Как я могу запретить Outlook 2007 отправлять электронные письма на определенные адреса электронной почты?

Question

На работе есть несколько Тони в глобальной адресной книге и мой локальный кеш в клиенте Outlook 2007.

Я никогда не хочу, чтобы электронные письма приходили на 2 из них. Есть ли способ предотвратить отправку электронной почты по ошибке?

Answer 1

Я создал макрос с кодом ниже. Он создает диалоговое окно, чтобы предупредить вас, если вы собираетесь отправить электронное письмо кому-то из списка исключений - вы можете отправить или отменить.

Обратите внимание, что он должен быть добавлен в 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