Add outlook Signature using VBA when sending email.

[mond007]

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.

    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.

 

[Andrew Poulsom]

Look here:

http://www.rondebruin.nl/mail/folder3/signature.htm

 

[ericaindallas]

What if you wanted to add the default signature of who is using the macro?

Where different people would run the macro and their username and signature file name is different.

In that case, the following method will not work, http://www.rondebruin.nl/mail/folder3/signature.htm

Thoughts?

Thanks,
-Erica

 

[Andrew Poulsom]

Wouldn't the use of Environ("username") cater for that?

 

[ericaindallas]

That would work, but it's the name of the .txt file of the signature that is different for everyone.

Thanks,
-Erica

 

[Julia Jones]

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

That would work, but it's the name of the .txt file of the signature that is different for everyone.

Thanks,
-Erica

 

[coltrane59]

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 was helpful for me. I wanted to note one modification though that improved the look of the signature. Since my signature has formatting, and includes a "Thanks, " on the line before the main signature, the above code didn't work as cleanly until I used OMail.HTMLBody instead of Omail.Body.

The HTMLBody keeps all formatting and enter spacing if you have an HTML signature in Outlook.

 

[Scrappy666]

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

I know this is an old post, but I've been searching for hours for a simple solution to my email signature problem.
This worked like a charm, thank you!!

 

[DemDigidiz]

I know this is an old post, but I've been searching for hours for a simple solution to my email signature problem.
This worked like a charm, thank you!!

So, I was Upset I had to put these useless lines where you display the mail just to copy the signature.
Thus I found that there is a way which is simply more "slick" and uses a little less lines
just change:

This:

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

To this:

With OMail
.Display
'.To = "someone@somedomain.com"
'.Subject = "Type your email subject here"
'.Attachments.Add
.body = "Add body text here" & vbNewLine & .body
'.Send

of course, you can use .HTMLBody instead of .body if you are using HTML format.

If you know HTML, You can go as far as this:

With OMail
.Display
'.To = "someone@somedomain.com"
'.Subject = "Type your email subject here"
'.Attachments.Add
.HTMLbody = "******>" & "some html code containing your message" & .HTMLbody & "</body>"
'.Send

Also if you have a Variable holding your text, you could use:

.HTMLbody = "******>" & "<p>" & "%!a!%" & "</p>" & .HTMLbody & "</body>"
.HTMLbody = Replace(.HTMLBody, "%!a!%", YourVariableHoldingTheText)

Hope this helps further searchers (Such as I was)

Cheers!

 

[DemDigidiz]

Sorry for the BOLD, dunno what I did wrong :/

Seems I need to learn how to post things better...
The **** should be the html tag for body. at the end there should be a closing tag for the html body.

Sorry for any inconvenience...