VBA .send vs .display signature

[Roderick_E]

In my code snippet below I am checking checkbox2 to see if the user wants to display the email before sending. If TRUE, just send without display. Unfortunately if it sends without display, the person's default signature doesn't get included in the email. WHY??? I don't understand. Please help thanks.

    With OlMail
If Trim(mySender) <> "" Then
.SentOnBehalfOfName = mySender
End If
If mailform.CheckBox2.Value = False Then
.display
End If
.To = recips
.Subject = stSubject
.HTMLBody = vaMsg & Signature & "
" & .HTMLBody
If mailform.CheckBox2.Value = True Then
.Send
End If
    End With

 

[Logit]

.
What about this ? Does it help or have you already tried it ?

Option Explicit


With OlMail


    If Trim(mySender) <> "" Then
        .SentOnBehalfOfName = mySender
    End If
    
    If mailform.CheckBox2.Value = False Then
        .display
    End If
    
    .To = recips
    .Subject = stSubject
    .HTMLBody = vaMsg & Signature & "" & .HTMLBody
    
    If mailform.CheckBox2.Value = True Then
        .HTMLBody = vaMsg & Signature & "" & .HTMLBody
    .Send
    End If
    
End With

 

[Roderick_E]

Thanks Logit. Sorry I've tried that and it didn't work. However, if I add this I can get the signature to show but not the image within the signature:

sPath = Dir(Environ("appdata") & "\Microsoft\Signatures\*.htm", vbNormal)
        sPath = Environ("appdata") & "\Microsoft\Signatures\" & sPath
        sSignat = GetSignature(sPath)
.HTMLBody = myBody & sSignat '& "<br>" & .HTMLBody

 

[Roderick_E]

Oops, here's the function it calls:

Function GetSignature(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetSignature = ts.readall
    ts.Close
End Function

 

[Logit]

.
One way I've been able to add an image to a Signature is to provide the actual path to the image.

 

[Roderick_E]

.
One way I've been able to add an image to a Signature is to provide the actual path to the image.

Can you give an example how you incorporated it into the code I have? Thanks

 

[Logit]

.
Try this. Note the instructions in the code :

Dim ImagePath As String     '<-- Place in your Dim Statements at top




ImagePath = ThisWorkbook.Path & "\Your Image Name.jpg" '<-- Place after Dim Statements




sPath = Dir(Environ("appdata") & "\Microsoft\Signatures\*.htm", vbNormal)
        sPath = Environ("appdata") & "\Microsoft\Signatures\" & sPath
        sSignat = GetSignature(sPath)
.HTMLBody = myBody & sSignat '& "" & .HTMLBody & "

" & _
        "

 

" & "[IMG]https://www.mrexcel.com/forum/" & ImagePath & "[/IMG]"

As written, the image must be in the same folder as the workbook. Otherwise you'll need to change the path to the image :

ImagePath = ThisWorkbook.Path & "\Your Image Name.jpg"

Also, the image does not need to be a .JPG ... it can be a .BMP image as well. I haven't tried a .PNG but I'm guessing that might work as well.