View Single Post
  #3  
Old January 23rd 08, 05:26 PM posted to microsoft.public.outlook.program_vba
Gabe
external usenet poster
 
Posts: 18
Default Insert standard text into a new message

No, a message box came up that said (A program is trying to access e-mail
addresses you have stored in Outlook. Do you want tp allow this?

If this is unexpected, it may be a virus and you should choose "No".)

So when I click on No it does nothing, when I click on Yes it works but the
signature is still deleted?

Any alternatives to this problem?



"JP" wrote:

Try

.Body = "Hello?" & .Body



HTH,
JP

On Jan 22, 9:08 pm, Gabe wrote:
Hello,

I am pretty new at this but, how do you insert standard text into a new
e-mail message without deleting the default signature? I am using the
following code:

Sub Macro1()
Set OutLk = CreateObject("Outlook.Application")
Set Email = OutLk.CreateItem(0)
With Email
.To = "
.Subject = "New Message"
.Body = "Hello?"
.Display
End With
Set Email = Nothing
Set OutLk = Nothing
End Sub



Ads