Insert Signature

[Guest]

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!

 

[Michael Bauer [MVP - Outlook]]

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:

 

[Guest]

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 = .Recipients.Add("(e-mail address removed)")
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]]

You should try the HTML format, whcih e.g. doesn't know a vbCRLF but uses
<p></p> or <br> tags.

To send the message simply call its Send method. As you do this from within
Access it'll cause the security diaog to pop up. To avoid that you might use
the Redemption (www.dimastr.com) - or send from within Outlook itself.

--
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, 2 Jul 2007 07:32:02 -0700 schrieb J: