Hi Graham,
So then many of us owe you a big thank you for all of the help & resources you've provided!
Regarding the script you provided, I can test it myself simply by sending myself an email with the criteria that will trigger the rule that runs the script. Therefore I haven't included the test code you provided. I also didn't include the words "Option Explicit" as I wasn't sure what they were. So, my code simply says (with the subject suffix and email address filled in):
Code:
Sub ForwardWithSubject(olItem As Outlook.MailItem)
Dim olOutMail As Outlook.MailItem
Const strAddr As String = "someone@somewhere.com"
Const strSubject As String = " Additional subject text"
Set olOutMail = olItem.Forward
With olOutMail
.Subject = .Subject & strSubject
.To = strAddr
.Display 'Change to .Send after testing
End With
lbl_Exit:
Set olOutMail = Nothing
Exit Sub
End Sub
What happens is almost perfect - but the mail doesn't get sent. I end up with the message window open and waiting for me to click "send". I think that it would be perfect if I could have this whole thing run without my intervention at all. Any thoughts?