Outlook Rules don't apply to report messages

[greensweater]

Hi, thanks for viewing. I am trying to get Outlook 2003 to forward bounced messages to another machine. To do this I've made a rule that catches most subject lines ("undeliverable", "returned mail" etc).

It works, somewhat. Unfortunately, it only works on messages of type "message" not of type "report". Is there a way to apply rules to report-type messages?

 

[greensweater]

Reports don't have the same methods as regular messages. This VBA script uses the NewMailEx event when a message is received to create a normal message with the report's important properties. (may need to use more InStr to handle all report subject lines...)

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 entries = Split(EntryIDCollection, ",")
 For Each entry In entries
  Set myItem = Application.Session.GetItemFromID(entry)
  If InStr(myItem.Subject, "Undeliverable") Then
    Set myForward = Application.CreateItem(olMailItem)
    myForward.Body = myItem.Body
    myForward.Subject = myItem.Subject
    myForward.Recipients.Add "huh@huh.com"
    myForward.Send
    Set myForward = Nothing
  End If
 Next entry   
End Sub