Sending Multiple Emails from Access - Security Update

[Guest]

I would like to loop through some code and send many emails. Apparently the
latest security update for Outlook forces each email to be validated before
it will send. Is there a way around this? I don't want to click "yes" 200
times. Thanks

 

[Jeff Conrad]

Here is some info on this subject which should help.

From a past post by the angelic MVP Cheryl Fischer:Unless you are working in an Exchange environment, these prompts cannot be
turned off. If you are working in the Exchange environment see:
http://www.outlookcode.com/d/sec.htm

To work around this feature, I have been pleased with Express Soft's free
utility called "ClickYes", available for download at:
http://www.express-soft.com/mailmate/clickyes.html. It does not make the
security prompt go away, but it does use api calls to click the 'Yes' button
for you. Here is a link to a thread where you can find code that will check
to see whether ClickYes is running, start the utility, run email-related
code, and then turn the utility off. http://tinyurl.com/3x3xj

ClickYes is not the only work-around or option available; others can be
found at: http://www.outlookcode.com/d/sec.htm
And a post by someone named John Conklin:I found this on a website somewhere and just put it into my database, and it
works great.

Set outl = CreateObject("Outlook.Application")
Set mail = outl.CreateItem(olMailItem)
mail.To = "(e-mail address removed)"
mail.Subject = ActiveWorkbook.Name
mail.attachments.Add (ActiveWorkbook.FullName)
mail.display
SendKeys "^{ENTER}"

Set outl = Nothing
Set mail = Nothing
This link may also be of assistance:
http://office.microsoft.com/en-us/assistance/HA011402931033.aspx

Hope that helps you,
--
Jeff Conrad
Access Junkie - MVP
http://home.bendbroadband.com/conradsystems/accessjunkie.html
http://www.access.qbuilt.com/html/articles.html

in message: