Automatic email

[raj08536]

Hi Gurus,

How can I shoot email automatically using following code?




Dim myOutlook As Object
Dim myMailItem As Object
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
With otlNewMail
.To = "Bob@yahoo.com"
.CC = "Bob@yahoo.com"
.Subject = "Email from me"
.Body = "Attached is today's Report." & Chr(13) & "Regards," & Chr(13) & "Greg" & Chr(13) & Chr(13)
.Display
End With
Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing

 

[Smitty]

What should the trigger be for sending the e-mail?

 

[Walky]

Hi,

Based on Ron de Bruin's (search Google) examples on macros for sending e-mails, you should use:

.Send

instead of

.Display

in order to send an e-mail without displaying it for editing before sending it.

W.

 

[raj08536]

Perfect - worked.