Send unattended email from Outlook using Excel macro

[PJ]

I found some code online that I'm trying to modify for my needs. We are
using Outlook & Excel 2003 and I'm trying to have Excel send a message
without any user interaction. I'm trying to get around the "virus warning"
notification and they wont allow us to install any 3rd party apps. Here is a
sample of the code.

With OutMail
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.Subject = "Daily Run is Complete"
.Body = strbody
.Send ' virus msg pops up after this line
Application.Wait (Now + TimeValue("0:00:04"))
Application.SendKeys "{TAB}{TAB}", True
' Application.SendKeys "{LEFT}", True
Application.SendKeys "{ENTER}", True
End With

I don't know if I have the correct syntax for the send keys, but I'm trying
to wait 4 seconds for the "Yes" option to become available, then either hit
the left arrow once or the tab key twice before hitting Enter. The problem
is that the VBA code doesn't continue processing anything after the ".Send"
line while that dialog box is up. Is there anyway around this?

 

[Ron de Bruin]

Hi PJ

SendKeys is not always reliable and this will not work correct on every computer

Check out CDO or upgrade one machine to Office 2007 (no warnings then)
http://www.rondebruin.nl/cdo.htm

 

[PJ]

Hi Ron,

I didn't realize you browsed these forums. The code sample I posted came
from your site in case you didn't recognize it. I did find the CDO example
and was able to get that to work, so thank you. I just want to make a slight
change so the recipient addresses are not hard coded in the macro but taken
directly from my spreadsheet. That will make it easier for others to update
the distribution list if necessary.

I'll attempt to make those changes on my own and open a new thread if I
can't figure it out.

Cheers!

 

[Ron de Bruin]

Hi PJ

See the Tips and links on the same page




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm