Add an email signature/or image of signature to VBA Outllok Email Body.

[JamesStag]

Hi everyone, i have created an email quote template, however i would like to add my business signature, or a picture of the signature to the end of the body of text. If anyone has any suggestions please assist. Thank you .

Sub Send_RangeI()

   Dim strPath As String, strFName As String, Signature As String
   
   

   'Create the PDF
    Worksheets("Invoice").ExportAsFixedFormat Type:=xlTypePDF, filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
   

 'Create PDF of active sheet only
    strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"
   
    strFName = ActiveWorkbook.Name
    strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Name & ".pdf"
   
    Worksheets("Invoice").ExportAsFixedFormat Type:=xlTypePDF, filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   
   ' Select the range of cells on the active worksheet.
    
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
  
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   On Error Resume Next
   With ActiveSheet.MailEnvelope
      .Item.To = Range("C8").Value
      .Item.Subject = "Stag Arborists"
      .Item.Body = Worksheets("sheet2").Select.Range("B2& vbNewLine & B3  & vbNewLine & B4 & vbNewLine & B5 & ").Value
      .Item.Attachments.Add strPath & strFName
      .Item.send
   End With
End Sub

 

[MARK858]

Maybe worth reading the link below....

https://www.rondebruin.nl/win/s1/outlook/signature.htm