Email to include a saved signature from outlook.

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top