How to change my email signature in outlook

#HOW TO CHANGE MY EMAIL SIGNATURE IN OUTLOOK CODE#

HTMLBody = Head & 'Here the HTML text of your mail' & Signature Set myMail = myOutlook.CreateItem(olMailItem) Then you can simply put your HTML text between Head and Signature: Set myOutlook = CreateObject('Outlook.Application') Signature = Right(HTMLBody, Len(HTMLBody) - PosSignature + 1) PosSignature = InStr(PosBody, HTMLBody, pTag) ' Search for the position of the tag before signature ' - Trick to split HTMLBody into Head and Signature. ' MailItem need to be displayed to be 'fully created' as object (maybe VBA bug) ' Trick to preserve Outlook default signature Set tempMail = myOutlook.CreateItem(olMailItem) I solved that issue with this trick: Set myOutlook = CreateObject('Outlook.Application')

#HOW TO CHANGE MY EMAIL SIGNATURE IN OUTLOOK CODE#

That works, but obviously takes out the HTML formatting of the signatureД®dit 2: The code works on my friend's computer but not on mine Set myOlApp = CreateObject('Outlook.Application')Д¬ode to show that signature is automatically inserted: Dim myOlApp As Outlook.ApplicationД®dit: I tried replacing. However the resulting email will be void of any signature.Д¬ode to copy and re-insert the signature: Dim myOlApp As Outlook.Application HTMLBody to a signature (string), and then reassign it to. My simple attempt was to save the contents of. This can be seen if you try Outmail.Display. Once you tell VBA to create a new email, it will already contain your default signature.

Everything so far is fine, except trying to keep my signature in the email. I am trying to automate some emails using VBA for Excel.

How to change my email signature in outlook