jopomybest.blogg.se

' correct then code you insert a blank Signature ' If the path and file name given by you is not

SPath = Environ("appdata") & "MicrosoftSignaturesRobert.htm" SImage = Environ("appdata") & "MicrosoftSignaturesRobert_filesimage001.png" ' Set ObjMail = OutApp.CreateItem(olMailItem) Here's my code maybe I'm missing something else: Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) "MicrosoftSignaturesPUT YOUR SIG HERE.htm"įunction GetBoiler(ByVal sFile As String) As String 'Change only Mysig.htm to the name of your signature

" Ron's Excel Page Opens a new window" & _ "Please visit this website to download the new version. Strbody = " Dear Customer Ron de Bruin" & _ ' Don't forget to copy the function GetBoiler in the module. Set TSet = fso.GetFile(fPath).OpenAsTextStream(1, -2) Set fso = CreateObject("Scripting.FileSystemObject") SPath = Environ("appdata") & "MicrosoftSignatures" & signaturefilenameįunction GetSignature(fPath As String) As String Set OutApp = CreateObject("Outlook.Application") Sub sendemail(send As Boolean, strTo As String, subject As String, strHTMLBody As String, signaturefilename As String)ĭim sPath As String, strSignature As String Try the following code and the signature html file with image if you are still having problem with your code:Ĭall sendemail1(False, "email address", "test", " email body ", "test.htm") Set ObjMail = OutApp.CreateItem(olMailItem) Is there something that I'm missing in my function call?įunction RDB_Mail_PDF_Outlook(FileNamePDF As String, StrTo As String, _ĭim OutApp As Outlook.Application ' requires reference Microsoft Outlook Object Library Which has all worked well except the default signature does not get displayed. My automated Excel code loops through a worksheet and sends out an email. VBA Excel Outlook with default signature.