Я создал макрос с кодом ниже. Он создает диалоговое окно, чтобы предупредить вас, если вы собираетесь отправить электронное письмо кому-то из списка исключений - вы можете отправить или отменить.
Обратите внимание, что он должен быть добавлен в ThisOutlookSession для работы.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) On Error Resume Next Select Case LCase(Item.To) Case Is <> "alias@domain.com", "alias2@domain3.com", "alias3@domain3.com" 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