Add signature to Email body

The email signature is the signature from outlook.
In the sample code from arnelgp it uses the standard outlook signatures. And in the second file it even shows it in a display.
All works fine except that when the email opens it doesn't display the image. Also when it is send the picture is not there.
It does show in the preview display in access. It just somehow does not let me display it in Outlook.
 
Sorry, I am totally lost. We seem to be going in circles. I didn't look at the sample db, and I can't see yours.
Nous1970 said:
The email signature is the signature from outlook.
Click to expand...
This I understand.
Nous1970 said:
In the sample code from arnelgp it uses the standard outlook signatures.
Click to expand...
So far so good...
Nous1970 said:
All works fine except that when the email opens it doesn't display the image.
Click to expand...
This is where I get lost. Where did that reference to an "image" come from? Did Arnel use an image as a signature? If not, did you? Are you saying his sample works except when you use an image in your Outlook signature? Did you modify his code?
Nous1970 said:
It does show in the preview display in access. It just somehow does not let me display it in Outlook.
Click to expand...
Are you saying his code displays a Form in Access that shows the signature? Or are you saying Access opens Outlook and displays the signature correctly, but it disappears when you send the message, because you don't see it when you open the email in Outlook?

Perhaps it might also help us understand what's going on if you could post some screenshots.
 
I just want to confuse and clarify at the same time. Remember that there is also such a thing as a digital signature; essentially, a hash if your digital certificate, and you can sign an Outlook document with your digital (security) signature as well. You have to do a few gyrations to "reveal" the correct command button (for the Outlook application) to use for this purpose, in the same way that you can send an encrypted e-mail - again having to do a trick or two to reveal the correct command button.

The "signature" is not part of the formal protocol of SMTP. I.e. there is a .To, .CC, .BCC, .Subject, .From, .Body, etc.... but no .Signature component. It is an addendum / insert / concatenation to the .Body portion whether using text or HTML for the body type.
 
The_Doc_Man said:
I just want to confuse and clarify at the same time. Remember that there is also such a thing as a digital signature; essentially, a hash if your digital certificate, and you can sign an Outlook document with your digital (security) signature as well. You have to do a few gyrations to "reveal" the correct command button (for the Outlook application) to use for this purpose, in the same way that you can send an encrypted e-mail - again having to do a trick or two to reveal the correct command button.

The "signature" is not part of the formal protocol of SMTP. I.e. there is a .To, .CC, .BCC, .Subject, .From, .Body, etc.... but no .Signature component. It is an addendum / insert / concatenation to the .Body portion whether using text or HTML for the body type.
Click to expand...
Hello @The_Doc_Man

Thank you for the clarification

THis is not so much about the digital signature.

I just want to add the outlook signature to the end of the mail when I send it to Outlook.
And this works fine except it is not displaying the signature.

I assume it is a safety future, but I wish I could bypass it.

Below is the code I found online, which works really well... except the picture :-(


Code: 
Sub Mail_Outlook_With_Signature_Html_2()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2016
    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 Ron de Bruin</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>"

    'Change only Mysig.htm to the name of your signature
    SigString = Environ("appdata") & _
                "\Microsoft\Signatures\Mysig.htm"

    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If

    On Error Resume Next

    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br>" & Signature
        .Send    '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
 
change your code to this:
Code: 
Sub Mail_Outlook_With_Signature_Html_2()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2016
    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 Ron de Bruin</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>"

    'Change only Mysig.htm to the name of your signature
    SigString = "Mysig.htm"

    If Dir(SigString) <> "" Then
        Signature = ReadSignature(SigString)
    Else
        Signature = ""
    End If

    On Error Resume Next

    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br>" & Signature
        .Send    'or use .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Private Function ReadSignature(sigName As String) As String
' arnelgp
'
' sigName should include the .htm extension
'
    Dim appDataDir  As String
    Dim sig         As String
    Dim sigPath     As String
    Dim fileName    As String
    appDataDir = Environ$("APPDATA") & "\Microsoft\Signatures"
    sigPath = appDataDir & "\" & sigName
    With CreateObject("Scripting.FileSystemObject")
        sig = .OpenTextFile(sigPath).ReadAll
    End With
    ' fix relative references to images, etc. in sig
    ' by making them absolute paths, OL will find the image
    fileName = Replace$(sigName, ".htm", "_files/")
    sig = Replace$(sig, fileName, appDataDir & "\" & fileName)
    ReadSignature = sig
End Function
 
Hello Arnelgp

Thank you for this code.
I tried this already with the same result

I do have a question about your code.

Code: 
 'Change only Mysig.htm to the name of your signature
    SigString = "Mysig.htm"

    If Dir(SigString) <> "" Then

If you place only the name it will not find the "Dir", or am I missing something here?

Below is how it is displayed in the email.
1690257915679.png
 

Attachments

  • 1690257952953.png
    1690257952953.png
    17.8 KB · Views: 99
ok change the code i gave with this one:
Code: 
Sub Mail_Outlook_With_Signature_Html_2()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2016
    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 Ron de Bruin</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>"

    'Change only Mysig.htm to the name of your signature
    SigString = "Mysig.htm"


    Signature = ReadSignature(SigString)

    On Error Resume Next

    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br>" & Signature
        .Send    'or use .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Private Function ReadSignature(sigName As String) As String
' arnelgp
'
' sigName should include the .htm extension
'
    Dim appDataDir  As String
    Dim sig         As String
    Dim sigPath     As String
    Dim fileName    As String
    appDataDir = Environ$("APPDATA") & "\Microsoft\Signatures"
    sigPath = appDataDir & "\" & sigName
    If Len(Dir$(sigPath)) = 0 Then Exit Function
    With CreateObject("Scripting.FileSystemObject")
        sig = .OpenTextFile(sigPath).ReadAll
    End With
    ' fix relative references to images, etc. in sig
    ' by making them absolute paths, OL will find the image
    fileName = Replace$(sigName, ".htm", "_files/")
    sig = Replace$(sig, fileName, appDataDir & "\" & fileName)
    ReadSignature = sig
End Function
 
arnelgp said:
ok change the code i gave with this one:
Code: 
Sub Mail_Outlook_With_Signature_Html_2()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2016
    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 Ron de Bruin</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>"

    'Change only Mysig.htm to the name of your signature
    SigString = "Mysig.htm"


    Signature = ReadSignature(SigString)

    On Error Resume Next

    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br>" & Signature
        .Send    'or use .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Private Function ReadSignature(sigName As String) As String
' arnelgp
'
' sigName should include the .htm extension
'
    Dim appDataDir  As String
    Dim sig         As String
    Dim sigPath     As String
    Dim fileName    As String
    appDataDir = Environ$("APPDATA") & "\Microsoft\Signatures"
    sigPath = appDataDir & "\" & sigName
    If Len(Dir$(sigPath)) = 0 Then Exit Function
    With CreateObject("Scripting.FileSystemObject")
        sig = .OpenTextFile(sigPath).ReadAll
    End With
    ' fix relative references to images, etc. in sig
    ' by making them absolute paths, OL will find the image
    fileName = Replace$(sigName, ".htm", "_files/")
    sig = Replace$(sig, fileName, appDataDir & "\" & fileName)
    ReadSignature = sig
End Function
Click to expand...

Still same issue of not able to display picture.
I have a feeling it is an outlook security issue.
Just can't figure it out.

Thanks for the help though, it is much appreciated..
 
Last edited:
i am sorry that it does not work for you.
i made a short video of what i have (working in me, with same Code i uploaded).

the Signature is a jpg image.
 
arnelgp said:
i am sorry that it does not work for you.
i made a short video of what i have (working in me, with same Code i uploaded).

the Signature is a jpg image.
Click to expand...
I created a whole new module again, still no luck.
Again, I think it is something in outlook.

Thank you again.
 
Did you try the method in the code I presented at the beginning of the thread?
As far as I'm aware it works.
 
Minty said:
Did you try the method in the code I presented at the beginning of the thread?
As far as I'm aware it works.
Click to expand...
Well whattayouknow.... I totaly missed that one.
That one works indeed.

Nice workaround

It only does not pick up on the .SentOnBehalfOfName

Any ideas?
 
I've always had issues .SentOnBehalfOf
You basically can't use it by simply inserting another email address, you have to refer to the account.

More detailed info here:

SentOnBehalfOfName

I'm using the following code, works fine. Where would I place .SentOnBehalfOfName = "abc@123.com" DoCmd.SendObject _ acSendReport, _ "Shipment", _ acFormatPDF, _ [Cemail1], _ [email1], _ , _ "Shipment - " & [Mdid] & " - " & [Mnotes2], _ [Totalsnumber] & " - " &...
www.access-programmers.co.uk
 
This is how I determined which account to use.
On my phone right now, but

VBA to change Outlook 2010 Account

Hi Guys I have a minor issue and I am simplify the problem as much as I can OK - I need to use a different profile (?) account when I am doing busines/emails in the EU I already have a trigger that I can use (EU yes/no) tick box what i am after is somehow if EU (true/ticked etc) then...
www.access-programmers.co.uk
 
You must log in or register to reply here.

Similar threads

T
Attache to email from attachment Field
Replies
2
Views
219
theinviter
T
M
Signature Image in GMail email body
Replies
7
Views
394
Marshall Brooks
M
D
Default Signature new outlook current user
Replies
17
Views
659
GPGeorge
GPGeorge
N
Solved Receiving Emails in Access Database using CDO 2000 library
Replies
10
Views
323
sonic8
S
T
Access When emailing brings up Outlook 2016 wizard to add email account
Replies
10
Views
425
The_Doc_Man
The_Doc_Man

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom