Adding Signature to new email macro - Used to work

rexhvn

New Member
Joined
Jan 7, 2016
Messages
27
Hi team,

Previously I used
Code:
 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?

Code:
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
 

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.

Forum statistics

Threads
1,223,231
Messages
6,170,885
Members
452,364
Latest member
springate

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top