Hi
I'm using the following code in (excel VB) which works very well
except it deletes my signature.

Anyway of preventing this? or readding the signature back in?

Thanks

Andy

******
'creates email
Dim myOutlook As Object
Dim myMailItem As Object
Dim fName As Object
'Dim sig As Signature
Dim strbody As String
Dim a As String

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)

With otlNewMail
..Attachments.Add "C:\@order_system\" &
Workbooks("Schedule.xls").Sheets("Import2").Range("b4").Value & ".xls"
..To = Workbooks("Schedule.xls").Sheets("Main2").Range("c9").Value
..Subject = "Please see attached schedules for " &
Sheets("Import2").Range("b4").Value
..body = Workbooks("Schedule.xls").Sheets("Main2").Range("bb1").Value
..Display
End With

> .body = Workbooks("Schedule.xls").Sheets("Main2").Range("bb1").Value
> .Display

instead:

..Display
..body = Workbooks("Schedule.xls").Sheets("Main2").Range("bb1").Value & .body

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


Am 11 Apr 2007 06:22:51 -0700 schrieb (E-Mail Removed):

> Hi
> I'm using the following code in (excel VB) which works very well
> except it deletes my signature.
>
> Anyway of preventing this? or readding the signature back in?
>
> Thanks
>
> Andy
>
> ******
> 'creates email
> Dim myOutlook As Object
> Dim myMailItem As Object
> Dim fName As Object
> 'Dim sig As Signature
> Dim strbody As String
> Dim a As String
>
> Set otlApp = CreateObject("Outlook.Application")
> Set otlNewMail = otlApp.CreateItem(olMailItem)
>
> With otlNewMail
> .Attachments.Add "C:\@order_system\" &
> Workbooks("Schedule.xls").Sheets("Import2").Range("b4").Value & ".xls"
> .To = Workbooks("Schedule.xls").Sheets("Main2").Range("c9").Value
> .Subject = "Please see attached schedules for " &

Call Display first, then **append** to Body.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

<(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> Hi
> I'm using the following code in (excel VB) which works very well
> except it deletes my signature.
>
> Anyway of preventing this? or readding the signature back in?
>
> Thanks
>
> Andy
>
> ******
> 'creates email
> Dim myOutlook As Object
> Dim myMailItem As Object
> Dim fName As Object
> 'Dim sig As Signature
> Dim strbody As String
> Dim a As String
>
> Set otlApp = CreateObject("Outlook.Application")
> Set otlNewMail = otlApp.CreateItem(olMailItem)
>
> With otlNewMail
> .Attachments.Add "C:\@order_system\" &
> Workbooks("Schedule.xls").Sheets("Import2").Range("b4").Value & ".xls"
> .To = Workbooks("Schedule.xls").Sheets("Main2").Range("c9").Value
> .Subject = "Please see attached schedules for " &
> Sheets("Import2").Range("b4").Value
> .body = Workbooks("Schedule.xls").Sheets("Main2").Range("bb1").Value
> .Display
> End With
>