Outlook VBA Spoof check - checks sender email against originator email - RED banner if fail
Attribute VB_Name = "otl_SpoofCheck" Option Explicit Option Compare Text ' References: ' - Microsoft Outlook XX.X Object Library ' - Microsoft VBScript Regular Expressions 5.5 ' - Microsoft Scripting Runtime Private Const WARNING_MARKER As String = "<!--CC-HEADER-SPOOF-BANNER-->" Private Const LOG_FILE As String = "C:\temp\AntiSpoof_HeaderOnly_Log.csv" Public Sub Run_HeaderSpoof_OnActive () Dim insp As Outlook.Inspector ' Active mail inspector On Error GoTo Quit Set insp = Application.ActiveInspector If insp Is Nothing Then MsgBox "Open an email first." , vbExclamation Exit Sub End If If TypeName ( insp.CurrentItem ) = "MailItem" Then Call IsSpoofHeader ( insp.CurrentItem ) 'MsgBox "Header spoof check complete.", vbInformation Else MsgBox "...