Hi
I'm using the following code in (excel VB) which works very well
except it deletes my signature.
The reason for this is that the signature is there when the email is created but its replaces it with text when it gets to the line:
.body =
Any way of preventing this? or re-adding 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
I'm using the following code in (excel VB) which works very well
except it deletes my signature.
The reason for this is that the signature is there when the email is created but its replaces it with text when it gets to the line:
.body =
Any way of preventing this? or re-adding 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