Eu criei uma macro com o código abaixo. Ele cria uma caixa de diálogo para avisá-lo se você está prestes a enviar um e-mail para alguém na lista de exceções - você pode enviar ou cancelar.
Observe que ele precisa ser adicionado a ThisOutlookSession para funcionar.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
Select Case LCase(Item.To)
Case Is <> "[email protected]", "[email protected]", "[email protected]"
Item.Send
Case Else
Prompt$ = "Are you sure you want to send this to " & Item.To
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then
Cancel = True
End If
End Select
End Sub