Cookies帮助我们提供我们的服务。 通过使用我们的服务,您同意我们使用Cookie。
提示:其他语言是Google翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何在通过Outlook发送之前检查收件人地址?

在某些时候,您可能会错过在通过Outlook发送电子邮件的同时将一些重要收件人添加到收件人,抄送或密件抄送字段。 在这里,我可以介绍一种方法来检查在通过Outlook发送之前是否添加了特定的电子邮件地址。

在使用VBA代码发送之前检查地址

回复所有人都排除了我自己的观点

当我们在Outlook中使用回复所有功能时,如果您收到的电子邮件中包含两个以上的帐户,我们也可以将我们的帐户添加到“收件人”字段。 在这种情况下,您可能需要从收件人和抄送字段中删除您的帐户。 Ktools for Outlook's 我的名字是 可以帮你快速解决这个工作。 只需点击一次,Outlook中的所有个人帐户就会从收件人和抄送字段中删除。 点击45天免费试用!
doc回复排除帐户
doc arrow dowm

doc回复排除帐户2
用于Outlook的Kutools:带有数十个方便的Outlook加载项,可以在45天免费试用。

在使用VBA代码发送之前检查地址

在这里我有两个代码可以帮助你解决这个工作,你可以根据需要选择任何人。

1。 按 Alt + F11 k可以启用 Microsoft Visual Basic for Applications 窗口。

2。 双击 ThisOutlookSessionProject1 窗格打开代码编辑器,将以下代码复制并粘贴到编辑器中。

VBA:发送前在收件人字段中检查收件人地址

Private Sub Application_ItemSend(ByVal Item As Object,Cancel As Boolean)'UpdatebyExtendoffice20180523 Dim xAddressArr()As Variant Dim xAddress As String Dim xRecipient As Recipient Dim xPrompt As String Dim xYesNo As Integer Dim xDictionary As Scripting.Dictionary On Error Resume Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array(“example1@126.com”,“example2@126.com”,“example3@126.com”)对于i = LBound(xAddressArr)To UBound(xAddressArr)xDictionary.Add xAddressArr(i ),真如下一个我为每个xRecipient在Item.Recipients如果xReictionaryient.Type = olTo然后如果xDictionary.Exists(xRecipient.Address)然后xDictionary.Remove xRecipient.Address结束如果下一个如果xDictionary.Count = 0然后GoTo L1对于i = 0到xDictionary.Count  -  1如果xAddress =“”那么xAddress = xDictionary.Keys(i)Else xAddress = xAddress +“;”&xDictionary.Keys(i)End If Next i xPrompt =“你没有发送给: “&xAddress&”。您确定要发送邮件吗?“ xYesNo = MsgBox(xPrompt,vbQuestion + vbYesNo,“Kutools for Outlook”)如果xYesNo = vbNo则取消= True L1:设置xRecipient = Nothing Set xDictionary = Nothing End Sub

doc在发送1之前检查收件人地址

在代码中,你可以改变 ("example1@126.com", "example2@126.com", "example3@126.com") 到您需要的真正收件人。

3。 然后也在 Microsoft Visual Basic for Applications 窗口中,单击 工具 > 参考文献。 检查 Microsoft脚本运行时 复选框 参考-Project1 对话。

doc在发送2之前检查收件人地址 doc右箭头 doc在发送3之前检查收件人地址

4。 点击 OK 并保存代码。

现在,如果在发送电子邮件时指定的收件人未显示在收件人字段中,将会弹出一个对话框提醒您是否发送电子邮件。
doc在发送4之前检查收件人地址

使用上面的代码,它只检查电子邮件地址 字段,如果你想登记入住 , CCBCC 字段,你可以使用下面的代码。

VBA:发送前在收件人/抄送/密件抄送字段中检查收件人地址

Private Sub Application_ItemSend(ByVal Item As Object,Cancel As Boolean)'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress As String On Error Resume Next If Item。类<> olMail然后退出子集xRecipients = Item.Recipients xAddress =“example1@gmail.com”对于每个xRecipient在xRecipients中xPos = InStr(LCase(xRecipient.Address),xAddress)如果xPos = 0那么xPrompt =“你发送这是“&xAddress&”。你确定要发送它吗?“ xYesNo = MsgBox(xPrompt,vbYesNo + vbQuestion + 4096,“Kutools for Outlook”)如果xYesNo = vbNo则取消= True结束如果下一个xRecipient End Sub

有了这个代码,你不需要检查 Microsoft脚本运行时 复选框,只需直接保存代码即可生效。



Kutools for Outlook

超过100高级功能的Outlook 2010,2013,2016,2019和365

屏幕截图kutools for outlook tiny for banner 201812

更多功能 | 免费下载 | 只有$ 39.00数百个函数

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.