Sorry, it wasn't clear to me from your earlier posts that you needed to add
information to the forwarded message. If you don't care about formatting,
you can use code like what you propose. If you want to retain the full
formatting of the item, you need to work with fwd.HTMLBody not fwd.Body, but
you can't just use simple concatenation. You would need to insert the new
text inside the HTMLBody content, with proper HTML tagging (as in a web
page); that just takes some text parsing.

You may have other options as well, depending on your Outlook version and
the email editor.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Dawn" wrote in message
...
Thanks Sue! Can you think of a way to both of a way to retain the
original
body of the email, along with my new text that I'm trying to put in? I
can
always just go find the original email by using the subject line, but it
would be great if I could save that step. Similar to how the subject line
is
retained, along with my additional text. Would something like this work?

.HTMLBody = "Here is my email message." & fwd.Body

Cheers,
Dawn




"Sue Mosher [MVP]" wrote:

1) That's a fine place. You can also add a new module to hold just your
rule
scripts if you prefer. You can copy and paste the one you have to create
the
next one, changing the name of the procedure, of course.

2) This statement replaces the existing body with the text on the right
side
of the equals sign:

.HTMLBody = "Here is my email message."

Take it out, and the forward message will be unchanged.

"Dawn" wrote in message
...
Hi, with the help of searching this forum (thanks, this place is
amazing!)
I
figured out a script that would forward a specified email when a rule
finds
emails that meet certain criteria. It works really well, but I still
have
two questions.

1) I am not sure I've saved the script in an appropriate location. I
really like this script and imagine I will be able to use variants of
it
for
a number of situations, so I want to be sure I'm saving it
appropriately
to
do so. The location I picked was based on a post, but it may have just
been
telling a person where to save a script to test it temporarily?

In the Visual Basic editor, I have the Projects explorer window open,
which
gave me a folder called Microsoft Office Outlook Objects. In this
folder
is
something called ThisOutlookSession. If I click this, a VB window is
opened,
and I have my code in there. I am hoping if I put in another similar
sub
into the same window, I will then be able to pick it to be used in
another
rule.

2) the script works great, except that it would be even better if it
retained the body of the email that fired the rule. This code produces
an
email that retains just the subject line, but the body of the email is
blank
except for my new text. Code is below. Thanks in advance for any
help!

Sub RunAScriptRuleRoutine(MyMail As MailItem)
Dim strID As String
Dim olNS As Outlook.NameSpace
Dim msg As Outlook.MailItem
Dim fwd As Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set msg = olNS.GetItemFromID(strID)
Set fwd = msg.Forward
With fwd
.To = "
.Subject = fwd.Subject & " -- MY TEXT HERE"
.HTMLBody = "Here is my email message."
.Send
End With

Set msg = Nothing
Set olNS = Nothing
End Sub