falolearning.blogg.se

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")

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.