undercover_smother
New Member
- Outlook version
- Outlook 2016 64 bit
- Email Account
- Exchange Server
Greetings,
I've tried a few options but none have worked. I'm trying to get all SENT emails from a 2010 email account to forward to another email account (on same server; I don't know if that is relevant) and to delete the forwarded email.
Some notes:
- This is to observe an employee that I oversee for suspected nefarious behavior (not ready to have franchise IT get involved yet...for many reasons)
- Attachment contents aren't relevant; attachment title is kind of relevant, but not mandatory
- Needs to be triggered by either a rule (less-ideal), or some kind of a listener in VBA (more ideal) - I don't want this person to see a rule with a script name in it
I've tried the code (from this site) below but it was not working:
Perhaps it's just me doing something wrong. Anyone have any ideas?
Thanks in advance for the help.
I've tried a few options but none have worked. I'm trying to get all SENT emails from a 2010 email account to forward to another email account (on same server; I don't know if that is relevant) and to delete the forwarded email.
Some notes:
- This is to observe an employee that I oversee for suspected nefarious behavior (not ready to have franchise IT get involved yet...for many reasons)
- Attachment contents aren't relevant; attachment title is kind of relevant, but not mandatory
- Needs to be triggered by either a rule (less-ideal), or some kind of a listener in VBA (more ideal) - I don't want this person to see a rule with a script name in it
I've tried the code (from this site) below but it was not working:
Sub ChangeSubjectForward(Item As Outlook.MailItem)
Set myForward = Item.Forward
myForward.Recipients.Add "alias@domain.com"
' To BCC an address or DL, try this:
'myForward.BCC = "alias"
myForward.DeleteAfterSubmit = True
myForward.Send
End Sub
Set myForward = Item.Forward
myForward.Recipients.Add "alias@domain.com"
' To BCC an address or DL, try this:
'myForward.BCC = "alias"
myForward.DeleteAfterSubmit = True
myForward.Send
End Sub
Thanks in advance for the help.