sending mail using VB Script(Macros)

[#1]

HI guyz,

can any give me snippet to send mail with system pics in the body of the mail(not as attachment) and i am working on remote desktop.

Thanks in Advace

Regards

Sampath Botla.

[vikasmahajan]

pfa sample

Vikas

[Anonymous]

Hi try the following

sub SELECT_OT

SendToCC = ActiveDocument.GetSheetObject("TX101").gettext
'ActiveDocument.GetSheetObject("TX99").copytexttoclipboard
hi = ActiveDocument.GetSheetObject("TX98").gettext
go = ActiveDocument.GetSheetObject("TX111").GetText
'Sbjct = ActiveDocument.GetSheetObject("TX113").GetText
Set myApp = CreateObject ("Outlook.Application")
Set myMessage = myApp.CreateItem(olMailItem)
myMessage.BodyFormat = 3  'Outlook.OlBodyFormat.olFormatRichText

myMessage.To = "receipient@emailid"
myMessage.Subject = ActiveDocument.GetSheetObject("TX113").GetText
myMessage.cc = SendToCC
myMessage.Body = go
myMessage.Display

'myMessage.Send
'msgbox("Mail Sent")
Set myMessage = Nothing
Set myApp = Nothing
Set myInspector = Nothing
Set myDoc = Nothing

ActiveDocument.Fields("Code C@pplis").Clear
ActiveDocument.Fields("Template").Clear
ActiveDocument.Fields("Techno").Clear
End sub

................

It is working for my app

Thanks

Bhumika

[#4]

Hi Bhumika,

i am working on remote desktop so will it work.

Thanks in advance.

Sampath Botla

[Anonymous]

hmmm

Microsoft office is not istalled there, so it wont work.

[#6]

Hi Bhumika,

Then how can i run that macro in remote desktop.

Thanks in advance

Sampath Botla