Forward subject only

Using outlook 2000, I would like to forward only the subject of e-mails received from certain senders.  Effectivly deleting the body of the E-mail.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Highlight the body and hit delete, then forward.
SteveerdosyAuthor Commented:
I neglected to include that I would like to make this a rule and automate this process.
You can't do it as a Rules Wizard rule, but you can write Outlook 2000 VBA code for it. I've put up an example at that shows how to write procedures to work with all incoming messages. You'd have to adapt it to your specific project. See for another sample that shows how to create and send a message.

Another possibility would be the Email Templates addin from It lets you create templates that can function as Rules Wizard custom actions.
I have a macro that do this

Private Sub Application_NewMail()
    Dim myFolder As Outlook.MAPIFolder
    Dim oItem As Object
    Dim oMailItem As MailItem
    Dim oNewItem As MailItem
    Set myFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    'searching for unread mailitems
    For Each oItem In myFolder.Items
        If TypeName(oItem) = "MailItem" Then
            Set oMailItem = oItem
            If oMailItem.UnRead Then
                Set oNewItem = CreateItem(olMailItem)
                'the new message will contain address and subject of the received mail
                oNewItem.Subject = oMailItem.SenderName & " : " & oMailItem.Subject
                oNewItem.Recipients.Add ""  ' <- here should be your address
                'mark an item as read so it won't be redirected twice
                'instead of this you may move it to another folder
                oMailItem.UnRead = False
            End If
        End If
    Next oItem
End Sub


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.