Insert standard text into a new message
This code worked for me. I put this code in a standard Outlook module.
You mentioned the security prompt, if you are using this in Outlook
that won't happen. Unfortunately the code changes the formatting of
the signature, a small price to pay.
Sub Macro1()
Dim olApp As Outlook.Application
Dim olMsg As Outlook.MailItem
Set olApp = Outlook.Application
Set olMsg = olApp.CreateItem(olMailItem)
With olMsg
.To = "
.Subject = "Hello world"
.Display
.Body = "Hello, here is my email!" & .Body
End With
Set olMsg = Nothing
Set olApp = Nothing
End Sub
HTH,
JP
On Jan 23, 11:49*am, Gabe wrote:
Sorry about that I am running 2003, I tried all the code in that link but it
doesn't seem to work? Also, is there a way to set a default SigName? Because
I am not the only one who will be using this code...
I am really kinda of new at all this, thank you so much for your help.
|