Default Signature at end of Excel generated email

[2Took]

Below code works, except that instead of a Signature that I have designated as default in Outlook to be added to all my emails, this code picks another signature.

- How do I fix it for it to pick a Signature that I have designated as default in Outlook to be added to all my emails?

Playing with numbers in this part of the code does not do the trick: "OpenAsTextStream(1, -2)"

Dim OutApp As Object, OutMail As Object, LogFile As String
Dim cell As Range, S As String, WMBody As String, lFile As Long

S = Environ("appdata") & "\Microsoft\Signatures\"
If Dir(S, vbDirectory) <> vbNullString Then S = S & Dir$(S & "*.htm") Else S = ""
S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).ReadAll

And then I append & S at the end of "EmailItem.HTMLBody = "

 

[Georgiboy]

If the signature loads up when you create mails automatically then you can capture it by displaying the mail first, grab the sig then place it on the end of the mail.

Try the below:

Sub test()
    Dim OApp As Object, OMail As Object, signature As String
    
    Set OApp = CreateObject("Outlook.Application")
    Set OMail = OApp.CreateItem(0)
    
    With OMail
        .Display
    End With
    
    signature = OMail.HTMLBody
    With OMail
        .To = "someone@somedomain.com"
        .Subject = "Email subject here"
        .HTMLBody = "Add body text here" & vbNewLine & signature
        '.Send
    End With
    
    Set OMail = Nothing
    Set OApp = Nothing
End Sub