Outlook: Run macro when a recipient is added to "To:" field

[Flashbond]

Hi,

Is there a specific evet or method that will run when a recipient is added to "To:" field?

What I am trying to achieve is, if recipient is john@doe.com then, display a msgbox says "are you sure to add this contact?".

Something like this.. Thanks a lot!

 

[Logit]

Option Explicit

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Recip As Outlook.Recipient
    Dim MailItem As Outlook.MailItem
    
    ' Ensure the item being sent is a mail item
    If TypeOf Item Is Outlook.MailItem Then
        Set MailItem = Item
        
        ' Loop through recipients
        For Each Recip In MailItem.Recipients
            If LCase(Recip.Address) = "john@doe.com" Then
                If MsgBox("Are you sure you want to add this contact?", vbYesNo + vbExclamation, "Confirm Recipient") = vbNo Then
                    Cancel = True
                    Exit Sub
                End If
            End If
        Next Recip
    End If
End Sub

Paste the above in the "ThisOutlookSession" module. When sending the email it will ask if you want to include that address.