how to workaround ...trying to automatically send e-mail

[Procuro]

For quite some time I've been using the peace of code,
which I've cut short to the essential part, from within
Access to send e-mails. Until today everything as run
smoothly, but since XP has been installed Outlook is
always replying with:

Security message "...trying to automatically send e-mail
on your behalf

the same goes for the command docmd. SendObject.

Since I use both ways to send large numbers of e-mails per
day I'm getting desperate.

Is there a way, programmatically, to workaround the
security message, i.e., saying to Outlook that the
messages are genuine and from a trustworthy part?

Thank you for the help

Dim objApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim myFoldSent As Outlook.mapiFolder
Dim Mail_msg As MailItem

Set objApp = CreateObject("Outlook.Application")
Set myNamespace = objApp.GetNamespace("MAPI")

Set myFoldSent = myNamespace.GetDefaultFolder
(olFolderSentMail)

Set Mail_msg = objApp.CreateItem(olMailItem)
Mail_msg.Subject = "Algo."
Mail_msg.Body = "O que se quiser." _
& vbNewLine & vbNewLine _
& "Algo mais!"
Mail_msg.To = "receivers name"

Mail_msg.Send

Set Mail_msg = Nothing
Set myFoldSent = Nothing
Set myNamespace = Nothing
Set objApp = Nothing

 

[Diane Poremsky [MVP]]

Outlook 2002 SP3 adds additional properties to the list of those that are
affected by the security features. As a result, one of your add-ins needs
updated to the latest version - antispam add-ins are a common cause
although others are affected by the changes as well. Many add-ins were
updated following the release of Outlook 2003 and should work with SP3, if
not you'll need to contact the vendor for a newer version.

http://www.slipstick.com/outlook/ol2002sp3.htm#problems has a list of
applications known to trigger the warning.

To learn how to program around the new properties (which is needed for the
macros to work with OL2003 too) see http://www.outlookcode.com/d/sec.htm


--
Diane Poremsky [MVP - Outlook]
Author, Teach Yourself Outlook 2003 in 24 Hours
Coauthor, OneNote 2003 for Windows (Visual QuickStart Guide)
Author, Google and Other Search Engines (Visual QuickStart Guide)



Join OneNote Tips mailing list: http://www.onenote-tips.net/

Vote for your favorite Outlook and Exchange utilities in the
Slipstick Ratings Raffle at http://www.slipstick.com/contest/