Hi team,
Previously I used
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?
Previously I used
Code:
Dim signature As String / ObjMail.HTMLBody = strHTMLBody & ObjMail.Body
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