Insert standard text into a new message

[Gabe]

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 = "(e-mail address removed)"
..Subject = "New Message"
..Body = "Hello?"
..Display
End With
Set Email = Nothing
Set OutLk = Nothing
End Sub

 

[JP]

Try

.Body = "Hello?" & .Body



HTH,
JP

 

[Gabe]

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]

You didn't mention the Outlook version. If you want to insert your
signature programmatically

In OL2007: http://www.outlookcode.com/codedetail.aspx?id=1743

Otherwise: http://www.outlookcode.com/codedetail.aspx?id=615


HTH,
JP

 

[Sue Mosher [MVP-Outlook]]

Where are you writing this macro? In Outlook or another application?

See http://www.outlookcode.com/article.aspx?ID=52 for information on the security prompts.

 

[Gabe]

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.

 

[Gabe]

Sorry, in Outlook 2003.

Where are you writing this macro? In Outlook or another application?

See http://www.outlookcode.com/article.aspx?ID=52 for information on the security prompts.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

 

[JP]

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 = "(e-mail address removed)"
.Subject = "Hello world"
.Display
.Body = "Hello, here is my email!" & .Body
End With

Set olMsg = Nothing
Set olApp = Nothing
End Sub


HTH,
JP

 

[Gabe]

Yes! that did it! your a genius! Thanks a bunch!

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 = "(e-mail address removed)"
.Subject = "Hello world"
.Display
.Body = "Hello, here is my email!" & .Body
End With

Set olMsg = Nothing
Set olApp = Nothing
End Sub


HTH,
JP

 

[JP]

Glad to hear it worked!


Thx,
JP

Yes! that did it! your a genius! Thanks a bunch!