Email to include a saved signature from outlook.

  • Thread starter Thread starter Paul Lambson
  • Start date Start date
P

Paul Lambson

I have this macro that runs fine. What I would like to do is add a
signature from me outlook named "work" at the end of this email. Any
help is appreciated.

Thanks,

Paul




Sub EmailPDF()
Dim MyDate As String
MyDate = Date

ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "c:\sas
\DailyBuildReport" & Format(Date, "mm-dd-yyyy") & ".pdf"

Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail
.To = "(e-mail address removed)"
.CC = ""
.Subject = "Daily Build Test " & MyDate
.Body = "Please reference attached."
.Attachments.Add "c:\sas\DailyBuildReport" & Format(Date, "mm-
dd-yyyy") & ".pdf"
'.Display
.Send

End With

Set olMail = Nothing
Set olApp = Nothing




End Sub
 
Back
Top