如何在 Outlook 中封鎖寄送至特定地址的郵件？

一般來說，Outlook 會將郵件寄送到所有有效的郵箱地址，且無法直接封鎖寄送至特定地址的郵件。然而，若您需要防止在 Outlook 中誤寄郵件給某些特定收件人，本教學將為您介紹一段實用的 VBA 程式碼，有效解決此問題。

使用 VBA 程式碼封鎖寄送到特定地址的寄件

以下 VBA 程式碼可協助您達成此目的，請照著下列步驟操作：

1. 啟動 Outlook，然後按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 接著，在 ThisOutlookSession 上按兩下（位於 ）Project-Project 1 窗格中），然後將下方程式碼複製並貼上至空白的程式碼視窗中：

VBA 程式碼：封鎖寄送到特定地址的寄件

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updatby ExtendOffice
Dim xMail As Outlook.MailItem
Dim xRecipients As Outlook.Recipients
Dim xContactGroupFound As Boolean
Dim i, n As Long
Dim xRecipient As Outlook.Recipient
Dim xAddress As String
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMail = Item
xContactGroupFound = True
Do While xContactGroupFound = True
  Set xRecipients = xMail.Recipients
  xContactGroupFound = False
  For i = xRecipients.Count To 1 Step -1
    If xRecipients(i).AddressEntry.DisplayType <> olUser Then
      For n = 1 To xRecipients(i).AddressEntry.Members.Count
        If xRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Address)
        Else
          xMail.Recipients.Add (xRecipients(i).AddressEntry.Members.Item(n).Name)
          xContactGroupFound = True
        End If
      Next
      xRecipients(i).Delete
    End If
  Next i
  xRecipients.ResolveAll
Loop
For Each xRecipient In xRecipients
  xAddress = xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
  If VBA.Trim(xAddress) = "" Then
    xAddress = xRecipient.Address
  End If
  If xAddress = "yy@addin99.com" Then    'change this email address to your need
    If MsgBox("Do you want to email to " & Chr(34) & xAddress & Chr(34) & "?", vbExclamation + vbYesNo, "Kutools for Outlook") = vbNo Then
      xRecipient.Delete
    End If
  End If
Next
If xMail.Recipients.Count = 0 Then
  Cancel = True
End If
End Sub

3. 接著，請儲存並關閉此程式碼視窗。日後當您寄送郵件時，若收件人清單中包含該特定信箱地址，系統將立即彈出如下圖所示的提示訊息。點選否，即可立刻移除該特定信箱地址。

4. 寄送郵件後，請前往已傳送郵件資料夾，檢查郵件收件人，確認該特定郵箱地址已從收件人清單中排除，請參見下圖：

Outlook 中的 AI 郵件助理：聰明回覆、清晰溝通，一鍵輕鬆搞定！

透過 Kutools for Outlook 的 AI 郵件助理，輕鬆簡化您每日的 Outlook 工作！這款強大工具能學習您過往的郵件內容，提供智慧又精準的回覆建議、優化郵件文字，並協助您毫不費力地起草與潤飾訊息。

此功能支援：

• 智慧回覆：根據您過往的對話，量身打造精準到位的回應，立即可用。
• 內容強化：自動優化您的郵件文字，提升清晰度與影響力。
• 輕鬆撰寫：只需提供關鍵字，其餘交給 AI 處理，並支援多種潤色風格。
• 智慧擴充：根據上下文提供貼心建議，延伸您的創意與想法。
• 摘要功能：立即獲取長篇郵件的簡明摘要。
• 全球溝通：輕鬆將郵件翻譯成任何語言。

此功能支援：

• 智慧郵件回覆
• 優化內容
• 關鍵字草稿
• 智慧內容擴充
• 郵件摘要
• 多語言翻譯

別再等待——立即下載 AI 郵件助理，盡情享受！

---

最佳 Office 生產力工具

體驗全新 Kutools for Outlook，內含 100+ 項超強功能！立即點擊下載！

🤖KUTOOLS AI：運用先進 AI 技術，輕鬆處理電子郵件——無論是回覆、摘要、優化、擴充、翻譯還是撰寫郵件，通通一鍵搞定！

📧 郵件自動化：自動答覆（支援 POP 與 IMAP）／預約寄送郵件／寄信時依規則自動抄送密送／自動轉發（高級規則）／自動加入問候語／自動將多收件人郵件拆分為個別訊息……

📨 郵件管理：撤回郵件／依主旨等條件封鎖詐騙郵件／刪除重複郵件／高級搜尋／整合文件夾……

📁 附件專業版：批次儲存／批次解除附加／批次壓縮／自動保存／自動拆離／自動壓縮……

🌟 介面魔法：😊更多精美酷炫表情符號／重要郵件來到時提醒您／最小化 Outlook 而非關閉……

👍 一鍵奇蹟：帶附件全部答復／防釣魚郵件／🕘顯示發送者當前時間時區……

👩🏼‍🤝‍👩🏻 聯絡人與行事曆：從選取的郵件中批次新增聯絡人／將聯繫人組拆分為個別群組／移除生日提醒……

用您的慣用語言暢享 Kutools — 完整支援英文、西班牙文、德文、法文、中文等 40 多種語言！

立即一鍵解鎖 Kutools for Outlook！別再等待，馬上下載，全面提升工作效率！

Kutools for Outlook 功能列表      立即下載      前往購買

🚀 一鍵下載 — 立即取得所有 Office 增益集

強烈推薦：Kutools for Office（5 合 1）

一鍵下載五個安裝程式，一次完成 — Kutools for Excel、Outlook、Word、PowerPoint 與 Office Tab Pro！立即點擊下載！

• ✅ 一鍵便利：只需一次操作，即可下載全部五個安裝套件！
• 🚀 隨時應對任何 Office 任務：按需安裝所需增益集，立即提升工作效率！
• 🧰 包含：Kutools for Excel／Kutools for Outlook／Kutools for Word／Office Tab Pro／Kutools for PowerPoint

關於此套件⬇ 下載套件💳 購買套件