Hi,
I have this particular part of a bigger code that generates an email with a custom email body and an attachment, thing that works perfectly fine.
However, I would like to display the custom signature that each user has defined in his Outlook in "Message->Signatures", inside the email body at the end.
Is there any possibility that someone can help me by adding to my code the right syntax that can bring me the signature?
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
bodyEmail = "Dear User,<br/><br/>" & "Please tae action" & "<br/><br/>" & _
"Dummy text" & "<br/><br/><b>" & _
"blablabla:" & "</b><br/><br/>" & _
"<u1><li><b>Bullet point number 1:</b>dummy text</li><li><b>Bullet point number 2:</b>Bla bla bla</li></u1>" & "<br/><br/>" & _
"*bla bla bla" & "<br/><br/>" & _
"dummy text" & "<br/>" & _
"bla bla dummy text bla bla" & "<br/><br/>" & _
"Many thanks," & "<br/>" & _
userName & "| Dummy Text" & "<br/>" & "DMM"
If Sheet2.Cells(3, 6) = "No" Then
With OutMail
.To = Destination 'Contacts
.Subject = b 'Subject of the mail
.HTMLBody = bodyEmail 'Body of the email
.Attachments.Add pt
.Send
End With
Else
With OutMail
.To = Destination
.Subject = b
.HTMLBody = bodyEmail
.Attachments.Add pt
.Display
End With
End If
Kill (pt)
End If
Bookmarks