View Single Post
  #5  
Old June 2nd 10, 12:41 PM
steve sharpe steve sharpe is offline
Junior Member
 
First recorded activity at Outlookbanter: May 2010
Posts: 6
Default

Thanks Ken. That worked Your'e a star!

Regards

Steve

Quote:
Originally Posted by Ken Slovak - [MVP - Outlook] View Post
I'm not sure. Let's see what happens first if you comment out the line
myItem.Body = "body text" & myItem.Body. Do you get the signature then? If
so and the body format is HTML, then see if it helps to use this line
instead:

myItem.HTMLBody = "body text" & myItem.HTMLBody

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"steve sharpe" wrote in message
...

Hi Ken
Thankyou for youir reply. What have I done wrong? I think I have
altered my code as you suggested but it does not make any difference.
Here's what I wrote... Would you be kind enough to point out my
mistake?

Sub InsertMySig()
Dim myOlApp As New Outlook.Application
Dim myItem As Object
Dim myAttachments As Outlook.Attachments
Set myItem = myOlApp.ActiveInspector.currentitem
Set myAttachments = myItem.Attachments
myItem.Subject = "Status Report"
myItem.Display
myItem.Body = "body text" & myItem.Body
myAttachments.Add "C:\Documents and settings\etc"
End Sub

I look forward to hearing from you.
Best wishes

Steve
Ads