Outlook で特定のアドレス宛ての送信メールをブロックするには、どうすればよいでしょうか？

著者Xiaoyang変更日2024-09-18

一般的に、Outlook はすべての通常のメールアドレス宛てにメールを送信でき、特定のアドレスへの送信をブロックする機能は備えていません。しかし、状況によっては、特定のメールアドレスへの送信を防ぎたいこともあるでしょう。そんなときこそ、このチュートリアルで紹介する VBA コードがその課題をスマートに解決します。

VBA コードで特定のアドレス宛ての送信メールをブロックする

次の VBA コードが役立ちますので、以下のように操作してください。

1。Outlook を起動し、次にALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。次に、ThisOutlookSessionをプロジェクト - Project1ペインでダブルクリックし、表示される空のコードウィンドウに以下のコードをコピー＆ペーストしてください。

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

注：上記のコードでは、メールアドレスを自分のものに変更してください。

doc-block-email-to-an-address-1

3。その後、このコードウィンドウを保存して閉じます。これで、メール送信時に受信者リストに特定のメールアドレスが含まれていると、下記のスクリーンショットのようなプロンプトメッセージが表示されます。「いいえ」をクリックすると、該当のメールアドレスが即座に削除されます。

doc-block-email-to-an-address-2

4。メール送信後は、送信済みアイテムフォルダーで受信者を確認できます。特定のメールアドレスは受信者リストから除外されています（スクリーンショット参照）。

doc-block-email-to-an-address-3

Outlook の AI メールアシスタント：ワンクリックで魔法のように、よりスマートな返信と明確なコミュニケーションを実現！

Kutools for Outlook の AI メールアシスタントで、日々のOutlook タスクをもっと効率的に。この強力なツールは過去のメールから学習し、的確で知的な返信を提案したり、メールの内容を最適化したり、メッセージの下書きや修正を簡単にサポートします。

この機能は以下のサポートを提供します：

スマート返信：過去の会話に基づき、カスタマイズされ、正確で即使用可能な返信を取得できます。
コンテンツ強化：メール本文を自動で明確かつ効果的な内容にブラッシュアップします。
簡単作成：キーワードを入力するだけで、AI が複数の書式スタイルで残りの作業を自動処理します。
インテリジェント拡張：文脈を的確に捉えた提案であなたのアイデアをさらに広げます。
要約機能：長いメールを瞬時に簡潔な概要にまとめてくれます。
グローバル対応：メールをあらゆる言語に簡単に翻訳できます。

この機能は以下のサポートを提供します：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メール要約
多言語翻訳

今すぐ始めましょう—AI メールアシスタントを今すぐダウンロードして、AI メールアシスタントを今すぐダウンロード！

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧今すぐダウンロード購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて ⬇ スイートをダウンロード 💳 スイートを購入