View Single Post
  #3  
Old July 2nd 07, 04:32 PM posted to microsoft.public.outlook.program_vba
J
external usenet poster
 
Posts: 42
Default Insert Signature

Hi Michael -

Here's my code. I'm running this from within Access. With the below code,
it doesn't add "Test reminder" to the message, but the signature stays.

Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient

Set db = CurrentDb()

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)

With objMail
' Add the To recipient(s) to the message.
Set objOutlookRecip = ")
objOutlookRecip.Type = olTo
.Display
.Subject = "Weekly Email"
.HTMLBody = "Test reminder." & vbCrLf & vbCrLf & .HTMLBody

End With

Also, how do I actually send the message after I get the formatting fixed??

Thanks,
J
"Michael Bauer [MVP - Outlook]" wrote:



Use the HTMLBody property instead of Body.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize eMails:
http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6

Am Mon, 25 Jun 2007 12:53:02 -0700 schrieb J:

When I append to the body, it reformats my signature. How can I keep the
format of my signature and still append new text to the body??

Thanks!


Ads