How to insert email signature from EXCEL VBA

E

Eric_G

I am attempting to generate an an email message (Outlook 2007) from my EXCEL
VBA. All is working but for the fact that the message does not include my
default signature. Any suggestions?

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "XXX"
.body = .body & "insert text here
'.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
.Attachments.Add ("filename.xls")
.Display 'or use .Display or .send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
 
E

Eric_G

Job seems to "bomb" at this line of code:

Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
 
J

JP

FYI, email signatures will be added automatically under these
circumstances:

1) you have signatures set up under Tools > Options > Mail Format >
Signature for new messages / replies / forwards, or
2) you call the Display method before setting the Body property.

--JP
 
Top