Adding Signature to new email macro - Used to work

[rexhvn]

Hi team,

Previously I used

 Dim signature As String / ObjMail.HTMLBody =  strHTMLBody & ObjMail.Body

which used to get the default signature when the macro was executed, however since implementing a PDF attachment, it no longer works. I also tried to create a path to the signature folders but it doesn't work 100% given there is an image and never displays the image.

Is there another way to get the default signature to work with my current macro?

Sub Adcorp_PDF()
'
' Adcorp_PDF Macro
'


'
   Dim strPath As String, strFName As String
    Dim OutApp As Object, ObjMail As Object
    Dim signature As String
   




   strPath = Environ$("temp") & "\"
  
    strFName = ActiveWorkbook.Name
    strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Range("A8").Value & ".pdf"
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
       
           With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With


Set OlApp = Outlook.Application
   Set ObjMail = OlApp.CreateItem(olMailItem)




   On Error Resume Next
    With ObjMail
        ObjMail.To = Worksheets("client information").Range("B12")
       .CC = ""
        .BCC = ""
        ObjMail.Subject = Range("A8") & " - Quarterly Rebate Adjustment Note"
        ObjMail.HTMLBody = "Test" & strHTMLBody & ObjMail.Body
        .Attachments.Add strPath & strFName
        .Display


   End With
     
   Kill strPath & strFName
    On Error GoTo 0
    Set ObjMail = Nothing
    Set OutApp = Nothing


'
End Sub