Auto-forward HTML emails with added suffix to subject line

paulkaye · #5 12-03-2015, 04:51 AM

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?

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