在工作中,全局地址簿和 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