Send message with outlook signature

staticbob · #1 03-23-2005, 09:44 AM

Guys,

I have this code to create a new mail message with an attachment. Is it possible to use the signature set-up in the users outlook profile ? We have some fancy HTML signatures set-up and I'm hoping I don't need to re-create the signature in the code.

Cheers
Bob

Code:

Sub SendAttach(ByVal documentpath)
        Dim objOutlk
        Dim objMail
        Dim strMsg
        Const olMailItem = 0
        'Create a new message 
        objOutlk = CreateObject("Outlook.Application")
        objMail = objOutlk.createitem(olMailItem)
        objMail.To = "recipient@whatever.com"
        objMail.cc = ""
        'Set up Subject Line 
        objMail.subject = "Here is the reportr"

        objMail.attachments.add(documentpath)
        objMail.body = strMsg
        objMail.display()
        'Clean up 
        objMail = Nothing
        objOutlk = Nothing
    End Sub

herilane · #2 03-23-2005, 11:46 AM

The signature is inserted automatically. However it looks like that only happens AFTER the message is displayed. So you would need to re-order your code a bit. First, display the message; then get its contents (which will include the signature); then add your text and put the contents back. You'll get some flickering but it shouldn't be too bad, hopefully.

Code:

objMail.Subject = "Here is the reportr"
objMail.Display
strMsg = objMail.HTMLBody
strMsg = Replace$(strMsg, "<BODY>", "<BODY><p>New text</p>")
objMail.HTMLBody = strMsg

(VBA code - that's all I have at work, sorry)

staticbob · #3 03-23-2005, 03:57 PM

Thanks Helen,

I'll give that a shot over the weekend and report back.

Bob