When Adding Text To The Body A Warning message is prompted

[MeMatthew]

A message is prompted saying "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 shold choose "No"".

This outlook form Is to be as user Friendly as possible so any one can
give me an idea how i can modify this piece of code.

Set objOutlook = CreateObject("Outlook.Application")
Set objInspector = objOutlook.Activeinspector.CurrentItem
objInspector.Body = objInspector.Body & vbcrlf & "Text"

 

[MeMatthew]

Problem solved i put the code in a seperate method

 

[Sue Mosher [MVP-Outlook]]

Also note what triggers the security prompt is *reading* the BOdy, not adding to it. See http://www.outlookcode.com/d/sec.htm for more information on Outlook security prompts.

FYI, there is a newsgroup specifically for general Outlook programming issues "down the hall" at microsoft.public.outlook.program_vba or, via web interface, at http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers