Add outlook Signature using VBA when sending email.

mond007 · Dec 11, 2008

Hi

I am using the below code in a MS Office 2000 environment.
Does anyone know how to set the email type to be HTML and also automatically attach the signiature from outlook.

I am using the following standard code to send.

Code:

    Set myOlApp = CreateObject("Outlook.Application")
    Set myMail = myOlApp.CreateItem(olMailItem)
          
    With myMail
        .Display
        .To = ("[EMAIL="test@testcompany.com"]test@testcompany.com[/EMAIL]") 
        .Subject = "test"
        .Body = "test body"
        .Attachments.Add ThisWorkbook.FullName
    End With

    'AppActivate (myMail)   
    SendKeys ("^~")

Thanks in advance.

feuerundaxt · Oct 11, 2016

Julia Jones said:
I had the same problem with needing it to work for different users. Below is the code I use to capture each user's signature

Dim OApp As Object, OMail As Object, signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
With OMail
.Display
End With
signature = OMail.body
With OMail
'.To = "someone@somedomain.com"
'.Subject = "Type your email subject here"
'.Attachments.Add
.body = "Add body text here" & vbNewLine & signature
'.Send
End With
Set OMail = Nothing
Set OApp = Nothing

This code helped a lot. Thank you.
But i still have have a problem. When the signature contains hyperlinks, the hyperlinks in the signature of the email body are not shown correctly. Instead of a normal link or a normal email i get this
 [FONT=&quot]; HYPERLINK "Google"www.google.com. Any solution for this one?[/FONT]

Add outlook Signature using VBA when sending email.

mond007

New Member

feuerundaxt

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

Add outlook Signature using VBA when sending email.

mond007

New Member

feuerundaxt

New Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock