Outlook Warning Message

[101287]

I have the following code but whe it gets to the read the email text is shows a message. Is there anyway that I can bypass that message?

'Reset the olitems object otherwise new incoming mails and moving mails get missed
Set OlItems = myfolder.Items
For Each OlMail In OlItems
Text = OlMail.Body ====> Display Outlook Message

Message says: "Program is trying to access your email addressess......

Guidance will be appreciated to bypass this warning.

Luis

 

[DaveInIowa]

Take a look towards the end of thread707-1513300 or search this forum for ClickYes.

 

[PHV]

Do a google search for outlook object model guard

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886