Toolbar to clean up a forwrded email form messages except the orig

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi There,
With office 2000 and outlook 2003 is there any way (settings or programming)
to customize or create a macro to keep the first original message, sender's
information and all the attachments and delete the rest of the info in the
email, which has been forwarded several times between different people? What
I want to do is basically to clean up the email from the other messages that
have been added to the original email and also keep the attachments by using
a toolbar or a button somewhere in Outlook.
Any help would be really appreciated.
Leila
 
You could create a macro to modify the Body value property for a MailItem
object. However, accurately determining the beginning or end points of the
text to keep/delete would be painstaking unless you can expect a definitive
string within the message.

You could look for "-----Original Message-----", and use that with the InStr
function to return a number indicating how many characters into the body you
want to keep:

Dim lngX As Long

lngX = InStr(MailItem.Body, "-----Original Message-----")

If lngX <> 0 Then
MailItem.Body = Left(MailItem.Body, lngX)
MailItem.Save
End If

Just an idea to get you started; so yes, it is possible with some careful
use of string functions.
 
Back
Top