Signature Images are not showing when sending email from MSAccess

[tasawer]

Hi,

I wish to send email with signature from within MSAccess. I have found the code below (http://www.rondebruin.nl/) that helps me to do exactly that however, any images within the signature do not show.

I have tried to contact the author but there is no response.
I was wondering if someone had a solution.

Kind Regards

below is the code

Sub SendMessageWithSig(DisplayMsg As Boolean, strMailTo As String, Optional AttachmentPath)
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2010
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim SigString As String
    Dim Signature As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "<H3><B>Dear Customer</B></H3>" & _
              "Please visit this website to download the new version.<br>" & _
              "Let me know if you have problems.<br>" & _
              "<A HREF=""http://www.rondebruin.nl/tips.htm"">Ron's Excel Page</A>" & _
              "<br><br><B>Thank you</B>"
 
    'Use the second SigString if you use Vista or win 7 as operating system
 
    SigString = "C:\Documents and Settings\" & Environ("username") & _
                "\Application Data\Microsoft\Signatures\real (html).htm"
 
    'SigString = "C:\Users\" & Environ("username") & _
     "\AppData\Roaming\Microsoft\Signatures\Mysig.htm"
 
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
 
    On Error Resume Next
    With OutMail
        .To = strMailTo
        .CC = ""
        .BCC = ""
        .Subject = "Special Offers"
        .HTMLBody = strbody & "<br><br>" & Signature
        'You can add files also like this
        '.Attachments.Add ("C:\test.txt")
        .Attachments.Add ("C:\Documents and Settings\" & Environ("username") & _
                "\Application Data\Microsoft\Signatures\real (html)_files\image005.jpg")
 
        .Attachments.Add ("s:\plus.bmp")
        .Display   'or use .Display
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
 
 
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function