I don't know what's happened, but unfortunately this seems to have stopped working! Here's the script as it currently appears:
Code:
Option Explicit
Sub ForwardWithSubjectGmayor(olItem As Outlook.MailItem)
Dim olOutMail As Outlook.MailItem
Const strAddr As String = "[email address removed]"
Const strSubject As String = " [added string removed]"
Set olOutMail = olItem.Forward
With olOutMail
.Subject = .Subject & strSubject
.To = strAddr
.Send
End With
lbl_Exit:
Set olOutMail = Nothing
Exit Sub
End Sub
And this is what the rule looks like:
https://dl.dropboxusercontent.com/u/...utlookrule.png
Any idea why it would have stopped working?!
In case it's relevant, when I first checked, the rule description included "this machine only" (which I think appeared by itself), but I removed that in case that was the problem - but it didn't help.
You advice would be much appreciated!
Paul