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 = "
.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

Hi Eric

See
http://www.rondebruin.nl/mail/folder3/signature.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eric_G" wrote in message ...
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 = "
.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

This should help you

http://www.rondebruin.nl/mail/folder3/signature.htm

--
HTH,

Barb Reinhardt



"Eric_G" wrote:

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 = "
.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

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

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

"Ron de Bruin" wrote:

Hi Eric

See
http://www.rondebruin.nl/mail/folder3/signature.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eric_G" wrote in message ...
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 = "
.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
.

problem solved.... many thanks.

"Ron de Bruin" wrote:

Hi Eric

See
http://www.rondebruin.nl/mail/folder3/signature.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Eric_G" wrote in message ...
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 = "
.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
.

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

On Nov 13, 2:53*pm, Eric_G wrote:
problem solved.... many thanks.



"Ron de Bruin" wrote:
Hi Eric

See
http://www.rondebruin.nl/mail/folder3/signature.htm

--