[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2018
  • Last Modified:

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.
0
Steveerdosy
Asked:
Steveerdosy
1 Solution
 
MStaseyCommented:
Highlight the body and hit delete, then forward.
0
 
SteveerdosyAuthor Commented:
I neglected to include that I would like to make this a rule and automate this process.
0
 
SMosherCommented:
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 http://www.slipstick.com/dev/code/zaphtml.htm that shows how to write procedures to work with all incoming messages. You'd have to adapt it to your specific project. See http://www.slipstick.com/dev/code/sendreminder.htm for another sample that shows how to create and send a message.

Another possibility would be the Email Templates addin from http://www.nsoftware.com. It lets you create templates that can function as Rules Wizard custom actions.
0
 
BodyaCommented:
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 "bc@torba.com"  ' <- here should be your address
                'sending
                oNewItem.Send
               
                '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


0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now