' Samples in comments at
' http://www.slipstick.com/outlook/rules/run-script-rule-change-subject-message/


Private Sub ForwardEmail(Item As Outlook.MailItem)
 Dim arrSubject As Variant
 Dim strSubject As String
Set myforward = Item.Forward

arrSubject = Array("Indeed", "s1JOBS", "JobsDB", "TradeWindsJobs", "Quartz")
For i = LBound(arrSubject) To UBound(arrSubject)
    If InStr(Item.Subject, arrSubject(i)) Then strSubject = arrSubject(i)
    myforward.Subject = Item.Subject & strSubject
Next i

If InStr(Item.SenderEmailAddress, "auto@oilandgasjobsearch.com") Or InStr(Item.Body, "oilandgasjobsearch.com") Then
 myforward.Subject = Item.Subject & " Oil&Gas JobSearch"
End If

Item.Categories = "Added to Safesforce"
Item.Save

myforward.Recipients.Add "your@forwardingaddress"
myforward.Display 'Send

End Sub




' add a different word to the subject

Private Sub ForwardEmail(Item As Outlook.MailItem)
 Dim arrSubject As Variant
Dim arrAdd as Variant
 Dim strSubject As String

Set myforward = Item.Forward

arrSubject = Array("Indeed", "s1JOBS", "JobsDB", "TradeWindsJobs", "Quartz")
arrAdd = Array(" Indeed", " s1JOBS", " JobsDB", " TradeWinds", " Quartz Newsletter")

For i = LBound(arrSubject) To UBound(arrSubject)
    If InStr(Item.Subject, arrSubject(i)) Then strSubject = arrAdd(i)
    myforward.Subject = Item.Subject & strSubject
Next i

If InStr(Item.SenderEmailAddress, "auto@oilandgasjobsearch.com") Or InStr(Item.Body, "oilandgasjobsearch.com") Then
 myforward.Subject = Item.Subject & " Oil&Gas JobSearch"
End If

Item.Categories = "Added to Safesforce"
Item.Save

myforward.Recipients.Add "your@forwardingaddress"
myforward.Display 'Send

End Sub







' Select Case sample 
Private Sub ForwardEmail(Item As Outlook.MailItem)

Dim str, strSubject As String
Set myForward = Item.Forward

Select Case True

Case InStr(1, Item.Subject, "Indeed") > 0
 strSubject = " Indeed"

Case InStr(1, Item.Subject, "s1JOBS") > 0
 strSubject = " S1 Jobs"

Case InStr(1, Item.Subject, "JobsDB") > 0
strSubject = " JobsDB"

Case InStr(1, Item.Subject, "TradeWindsJobs") > 0
 strSubject = " Tradewinds"

Case InStr(1, Item.Subject, "LinkedIn") > 0
 strSubject = " LinkedIn Advert"
 
Case InStr(1, Item.Subject, "Quartz") > 0
 strSubject = " Quartz"
 End Select
 
If True Then
myForward.Subject = Item.Subject & strSubject
End If
 
If InStr(Item.SenderEmailAddress, "auto@oilandgasjobsearch.com") Or InStr(Item.Body, "oilandgasjobsearch.com") Then
 myForward.Subject = Item.Subject & ("Oil&Gas JobSearch")
End If

Item.Categories = "Added to Safesforce"
Item.Save

myForward.Recipients.Add "your@forwardingaddress"
myForward.Display 'Send

End Sub