How to input text at the beginning of the body of a message.

Need a little help.
I'm using Outlook 2003, trying to make a macro that inputs a set statment in
the body of a message. I got it to do it but the problem is my statement
needs to be in front of the attachment that is already in the message but it
keep going behind it. Also for some reason it is removing the first letter
from my statment. I copy and pasted the main parts of it below, ...

Option Explicit
Public icn As String
Public myOlApp As New Outlook.Application
Public myEmail As Object
Public myAttachment As Object

Sub FormateEmail()


Set myEmail = myOlApp.ActiveInspector.CurrentItem
Set myAttachment = myEmail.Attachments

myEmail.To = "email@someplace.com"
myEmail.Subject = "Subject Line"

myEmail.Body = "output statement 1=" + icn + " Output statement2"

End Sub

As your example completely overwrites the body of the message, there's no
reason to see how anything else could be there - except it's an rtf
message, in that case you need to set the position of the attachment(s).

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>

Am Fri, 18 Sep 2009 07:20:02 -0700 schrieb Mr. GetRight:

> Need a little help.
> I'm using Outlook 2003, trying to make a macro that inputs a set statment
in
> the body of a message. I got it to do it but the problem is my statement
> needs to be in front of the attachment that is already in the message but
it
> keep going behind it. Also for some reason it is removing the first letter
> from my statment. I copy and pasted the main parts of it below, ...
>
> Option Explicit
> Public icn As String
> Public myOlApp As New Outlook.Application
> Public myEmail As Object
> Public myAttachment As Object
>
> Sub FormateEmail()
>
>
> Set myEmail = myOlApp.ActiveInspector.CurrentItem
> Set myAttachment = myEmail.Attachments
>
> myEmail.To = "email@someplace.com"
> myEmail.Subject = "Subject Line"
>
> myEmail.Body = "output statement 1=" + icn + " Output statement2"
>
> End Sub