Auto-forward HTML emails with added suffix to subject line

paulkaye · #1 12-09-2015, 03:42 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook 2013 Auto Forward / Auto Redirect emails not working	katm3	Outlook	4	08-07-2015 01:50 AM
Need to forward subject alone of mails	abhikulsh	Outlook	1	08-28-2013 10:47 AM
Forward emails not opening, why?	alexb123	Outlook	0	10-19-2012 02:22 PM
Auto Subject Line	hollwall	Outlook	0	04-19-2012 08:49 AM
Auto Forward Emails - Specific Time Periods Only	Dav	Outlook	0	06-22-2011 12:03 PM