Send unattended email from Outlook using Excel macro

P

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?
 
P

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!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top