Change Subject on Outlook Mail and Forward

[gmayor]

The following run from a rule should do the job

Sub SendOnMessage(olItem As Outlook.MailItem)
Dim olOutMail As Outlook.MailItem
    Set olOutMail = olItem.Forward
    With olOutMail
        .To = "someone@somewhere.com"
        .Subject = "HC"
        .sEnd
    End With
lbl_Exit:
    Exit Sub
End Sub