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!
|