I am using the following script to forward all incoming emails that meet a certain rule to my pager.
Sub StripAndForward(thisMail As Outlook.MailItem)
Const strAddress As String = "email@example.com"
Const blnAutoSend As Boolean = True
Dim objFwd As Outlook.MailItem
Dim objAtt As Outlook.Attachment
For Each objAtt In thisMail.Attachments
Set objFwd = thisMail.Forward
If blnAutoSend = True Then objFwd.Send Else objFwd.Display
Set objFwd = Nothing
Set objAtt = Nothing
Set thisMail = Nothing
The problem is, there is a character limit on the pager. I would like to delete all text in the email above a certain keyword (ie. "Problem:") before this email is forwarded. Is there anything I can add to this script to accomplish this. Thanks in advance.