I'm developing a custom appointment based form. Here the form's code:

Function Item_Write()
Item.Body = Item.Body + "My Message"
End Function

While I click on "Save and Close", the following message pops up:

   A program is trying to access e-mail addresses you have stored in
Outlook. Do you want to allow this? If this is unexpected, it may be a
virus and you should choose "No" There is a drop down menu next to
"Allow access for " to choose a number of minutes. Below that are the
choices of "Yes" "No" or "Help"

But the program is not trying to access any e-mail address.

This problem happens only in the Outlook 2002 sp3.

Is it possible no getting this pop up message?
If not, how can I now programmatically is my Application an "Outlook
2002 sp3"?