Warn if key terms are in email before sending "ROC:"
''In My Outlook Session Function MyEmailAddress ( Optional strUSer As String ) As String '' https://stackoverflow.com/questions/26519325/how-to-get-the-email-address-of-the-current-logged-in-user Dim OL As Object Dim olAllUsers As Object Dim oExchUser As Object Dim oentry As Object Dim myitem As Object Set OL = Application Set olAllUsers = OL.Session.AddressLists.Item ( "All Users" ). AddressEntries If strUSer = "" Then strUSer = OL.Session.CurrentUser.name Set oentry = olAllUsers.Item ( strUSer ) Set oExchUser = oentry.GetExchangeUser () MyEmailAddress = oExchUser.PrimarySmtpAddress End Function Sub Application_ItemSend ( ByVal Item As Object , Cancel As Boolean ) Dim objrecip As Recipient Dim mydomain As String Dim ExternalAddress As Boolean If Outlook_ROC.ContainsROC ( Item ) Then mydomain = Split ( My...