Set fso = CreateObject("Scripting.FileSystemObject") ObjMail.HTMLBody = Replace(objMail.HTMLBody, "SingaturePlaceHolder", bodySignature)įunction GetSignature(fPath As String) As String StrSignature = VBA.Replace(strSignature, signImageFolderName, completeFolderPath) SPath = Environ("appdata") & "\Microsoft\Signatures\signature2.htm"ĬompleteFolderPath = Environ("appdata") & "\Microsoft\Signatures\" & signImageFolderName SPath = Environ("appdata") & "\Microsoft\Signatures\signature1.htm" Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)ĮmailSubject = "T " & LCase(objMail.Subject) Signature is not displayed on recipient's outlook client (tried outlook and iOS mail). image is displayed before sending email). Signature looks okay on sender's outlook client (i.e. Image comes in correctly when replying or forwarding. Image issue occurs only when composing new email. The macro works and inserts the signature in the correct location but now the signature image is not showing up. The macro then finds the placeholder and replaces it with the correct signature. On my second try I set up a default signature that works as a placeholder. The signature came perfect including image and all but that there was an issue with the placement as the signature was appended at the very bottom of the email below the original text. ![]() On my first try I added the signature at the bottom of the email. I'm trying to change outlook email signatures automatically depending on a specific keyword on the subject.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |