A program is trying to access e-mail addresses you have stored in Outlook

  • Thread starter Thread starter Chris
  • Start date Start date
C

Chris

I have use Visual Studio 6.0 to write VBA to access
outlook, it works in Outlook 2000, but Outlook 2003 will
prompt this message. How to prevent this caution from
appearing?

"A program is trying to access e-mail addresses you have
stored in Outlook"

I have read this article that interacting with Outlook in
a trusted manner may solve this problem, but how to do it
in my case?
http://office.microsoft.com/assistance/preview.aspx?
AssetID=HA011127891033&CTT=1&Origin=EC790000701033&QueryID=
OgW5A72cO&Query=Warning+Message+When+a+Program+Tries+to+Ret
rieve+Outlook+Object+Model+Objects&Scope=TC%2cHP%2cHA%2cRC%
2cFX%2cES%2cEP%2cDC%2cXT
Chris
 
In the article - "OL2002:Developer Informtion About E-Mail
Security Features", it suggest to use Administrator
features to disable object model restrictions for Outlook
Visual Basic for Application in order to avoid the
security features. But I don't know how to do it? Could
anyone tell me step by step?
 
Are you the Exchange administrator? If so, see
http://www.slipstick.com/outlook/esecup/admin.htm for details on using the
administrator features. If not, see http://www.outlookcode.com/d/sec.htm for
other solutions. If you're using Outlook 2003 VBA code, you won't get
security prompts from objects derived from the intrinsic Application object
in VBA.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Hi Sue Mosher

You have previously answer my question in Newsgroup of Microsoft. I have successfully made my program work again by using Outlook Redemption

But I want to let you know one thing that I have discovered, the Outlook Redemption will change your working directory in your program. So, it would be necessary to save your working directory and restore it before and after using this COM interface

OrgPath = CurDir -> Save Working Director
objMailItem.Save
Set objSafeMail = CreateObject("Redemption.SafeMailItem"
objSafeMail.Item = objMailIte
objSafeMail.Sen
ChDrive OrgPath -> Restore Working Driv
ChDir OrgPath -> Restore Working Director

Chris Yeun
 
Back
Top