Hello,
I am getting a Run-Time Error 53 File not found when I call my function on this line of code:
Set TSet = fso.GetFile(fPath).OpenAsTextStream(1, -2)
Can anyone please help?
Thank you,
Ken Mc
Function GetSignature(fPath As String) As String Dim fso As Object Dim TSet As Object Set fso = CreateObject("Scripting.FileSystemObject") Set TSet = fso.GetFile(fPath).OpenAsTextStream(1, -2) GetSignature = TSet.readall TSet.Close End Function Sub Outlook_Default_Signature_With_Image() 'Do not forget to change the email ID 'before running this code Dim OlApp As Object Dim NewMail As Object Dim EmailBody As String Dim StrSignature As String Dim sPath As String Dim signImageFolderName As String Dim completeFolderPath As String Set OlApp = CreateObject("Outlook.Application") Set NewMail = OlApp.CreateItem(0) sPath = Environ("appdata") & "\Microsoft\Signatures\Default.htm" ' Here Since we are talking about ' the HTML email then we need to ' write the Body of the Email in ' HTML. EmailBody = "Hello Friends !!" & "" sPath = Environ("appdata") & "\Microsoft\Signatures\Default.htm" StrSignature = GetSignature(sPath) completeFolderPath = Environ("appdata") & "\Microsoft\Signatures\" & signImageFolderName On Error Resume Next With NewMail .To = "kwesmc1@verizon.net" ' .CC = "anybody.com" ' .BCC = "anybodyelse.com" .Subject = "Hello" ' Important! Before writing the body of your email ' you should display the mail .display ' Here at the end of the Email Body ' HTML Signature is inserted. .htmlBody = EmailBody & StrSignature .send End With On Error GoTo 0 Set NeMail = Nothing Set OlApp = Nothing End Sub