Comments on: Add signature to your automated emails

By: Tomasz Płociński

Tomasz Płociński — Wed, 06 Dec 2023 13:12:57 +0000

In reply to Mike B. Yes, images should copy too.

By: Mike B

Mike B — Tue, 05 Sep 2023 06:50:43 +0000

Hi Tomasz.
I’m thinking from your responses that Option 3 does not work with images so will be going with option 1 as you have suggested to others. I took it that if I had an image in the word document that this should work? However I see to only get the text to come into my email.

Should I expect that images can work with this method?

Thanks
Mike

By: Harm

Harm — Thu, 06 Jul 2023 08:40:08 +0000

I found a way to make the images work in option 3, by adding the path to ‘src=’:

Sub SendEmails()
Dim OutlookObj As Object
Dim MailObj As Object
Dim Path As String, FName As String, Signature As String
Path = Environ(“appdata”) & “\Microsoft\Signatures\”
If Dir(Path, vbDirectory) vbNullString Then
FName = Path & Dir$(Path & “*.htm”)
Else
FName = “”
End If
Signature = CreateObject(“Scripting.FileSystemObject”).GetFile(FName).OpenAsTextStream(1, -2).ReadAll
Signature = Replace(Signature, “src=”””, “src=””” & Path)
Set OutlookObj = CreateObject(“Outlook.Application”)
Set MailObj = OutlookObj.CreateItem(0)
With MailObj
.Display
.To = ThisWorkbook.Sheets(1).Range(“A1”).Value2
.Subject = “Test subject”
.HTMLBody = “Test content” & Signature
End With
End Sub

By: Tomasz Płociński

Tomasz Płociński — Wed, 22 Feb 2023 08:30:32 +0000

In reply to Jonathan Martynenko.

Hello
Have You tried the 1st & 2nd option from article? 🙂

By: Jonathan Martynenko

Jonathan Martynenko — Tue, 21 Feb 2023 18:57:56 +0000

In reply to Jim. Any update on how you got the images to work?

By: Jonathan Martynenko

Jonathan Martynenko — Tue, 21 Feb 2023 18:55:57 +0000

Any update on how to get signature with images working? I have the same issue.