Outlookの特定の電子メールアドレスに電子メールを送信しないようにする方法

Outlookソリューション 2025 年 9 月 29 日

多くのユーザーは、Outlookの特定の電子メールアドレスに誤って電子メールを送信するのをブロックしたいと考えています。そこで、この記事ではそれを実現する方法を紹介します。

Outlookは、特定の電子メールアドレスへの電子メールの送信をブロックするためのネイティブ機能を提供していません。したがって、それを実現したい場合は、少しのスクリプトが必要です。さて、以下では、そのようなVBAコードを共有します。 VBAの使用方法がわからない場合は、前のpを読むことができます。ost - "OutlookでVBAコードを実行する方法"

特定の電子メールアドレスに電子メールを送信しないようにする

最初に、「Alt + F11」を介してOutlookVBAエディターにアクセスします。
次に、次のコードを「ThisOutlookSession」プロジェクトに配置します。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

その後、「Microsoft Visual BasicforApplications」ウィンドウを終了します。
最終的には、次の手順で試してください。

まず、メールを作成し、受信者に入力します。
次に、「送信」ボタンをクリックします。
マクロは、受信者の連絡先グループが存在する場合はそれを展開し、受信者に特定の電子メールアドレスが含まれているかどうかを確認するために機能します。
アドレスが見つかると、次の図に示すようなメッセージが表示されます。
「いいえ」を選択すると、特定のメールアドレスがすぐに削除されます。
メールを送信した後、特定のメールアドレスが含まれていない受信者を確認できます。

破損したOutlookファイルを修復する

Outlookファイルが破損したことはありますか？それは確かにmですost Outlookの厄介な問題。それに服従するとき、あなたは操作しなければなりません PST修復、少し節があります。いつものように、あなたは初めてScanpstを使うことを考えるでしょう。しかし、残念ながら、そのような場合には失敗する可能性があります。リゾートは、次のような経験豊富なツールである必要があります。 DataNumen Outlook Repair、またはプロのPST回復サービス。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQL修復と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com