提示:其他語言是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
Kutools for Outlook:帶有許多方便的Outlook加載項,可以在45天免費試用而沒有限制。

在使用VBA代碼發送之前檢查地址

在這裡我有兩個代碼可以幫助你解決這個工作,你可以根據需要選擇任何人。

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

2。 雙擊 ThisOutlookSession 低至 Project1 窗格打開代碼編輯器,將以下代碼複製並粘貼到編輯器中。

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之前檢查收件人地址

使用上面的代碼,它只檢查電子郵件地址 字段,如果你想登記入住 , CC - BCC 字段,你可以使用下面的代碼。

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 - 為Outlook帶來100高級功能,讓工作更輕鬆!

  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 多個電子郵件按自定義; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
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.