如何防止 Outlook 2007 向特定电子邮件地址发送电子邮件?

如何防止 Outlook 2007 向特定电子邮件地址发送电子邮件?

在工作中,全局地址簿和 Outlook 2007 客户端中的本地缓存中都保存着一些 Tony 的资料。

我不希望电子邮件同时发送给他们两个。有没有办法防止电子邮件被错误地发送给他们?

答案1

我用下面的代码创建了一个宏。如果您要向例外列表中的某人发送电子邮件,它会创建一个对话框来警告您 - 然后您可以发送或取消。

请注意,需要将其添加到此 Outlook 会话上班。

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

相关内容