Outlook VBA Report email Abuse@

I am so sick of spammers using CEO names and addresses- mostly coming from Google mail - insinuating CEOs names usually to get phone numbers to scam gift cards. I spent a few minutes with ChatGPT to develop a VBA to forward the emails with headers to ABUSE@ the sender or reply-to domain; then move the original and sent email to an Inbox/Abuse folder.

This code gets put into a module in VBA in Outlook. If you are unsure about VBA do some checking - never just dump a VBA into a module!

Thes first three Sub Routines can be run with Alt+F8 or added to the toolbar as a macro:

• ReportAbuse_NoPrompt_Send - Emails abuse, moves the original message and sends it.

• ReportAbuse_NoPrompt_Send_Delay - Emails abuse, moves the original and adds a Delay of 5pm or 1 hour if too close to 5pm.

• ReportAbuse_NoSend - Starts an abuse email but doesn't' send it - for adding comments.

The delay comes in handy if you accidentally run the script on the wrong email. It will sit in the outbox for at least an hour prior to sending with the delays.