Outlookの連絡先から特定のドメインを持つすべての電子メールアドレスをバッチ削除する方法

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

特定のドメインを持つすべてのメールアドレスを連絡先から削除したい場合があります。この状況では、あなたはそれを一つずつやる気がないに違いありません。したがって、このpost はるかに賢い方法を教えてくれます。

たとえば、会社の名前が変更されます。その間、会社のドメインも変更されます。ただし、Outlookでは、この会社に多くの連絡先を保存しており、その電子メールアドレスは古いドメインのものです。もちろん、これらのメールアドレスは無効になっています。したがって、このような状況で、これらの電子メールアドレスを一度に削除したい場合は、次の方法を使用できます。

特定のドメインを持つすべてのメールアドレスを連絡先からバッチ削除する

としてtart、キーショートカット「Alt + F11」でOutlookVBAエディターにアクセスします。
次に、新しいウィンドウで、次のVBAコードを空のモジュールに配置します。

Dim strDomain As String

Sub BatchRemoveAllEmailAddressesInSpecificDomain()
    Dim objStore As Store
    Dim objFolder As Folder
    Dim lTotalCount As Long
 
    'Input the specific domain
    strDomain = InputBox("Enter the specific domain:", , "@false.com")
 
    If Len(strDomain) <> 0 Then
       lTotalCount = 0
       'Process all Contact folders in your Outlook
       For Each objStore In Application.Session.Stores
           For Each objFolder In objStore.GetRootFolder.Folders
               If objFolder.DefaultItemType = olContactItem Then
                  Call ProcessContactFolders(objFolder, lTotalCount)
               End If
           Next
       Next
 
       'Prompt you
       MsgBox lTotalCount & " email addresses in " & strDomain & " are removed!", vbInformation + vbOKOnly
    End If
End Sub

Sub ProcessContactFolders(ByVal objCurrentFolder As Folder, ByRef lCount As Long)
    Dim objContacts As Items
    Dim i As Long
    Dim objContact As ContactItem
 
    Set objContacts = objCurrentFolder.Items
 
    For i = objContacts.Count To 1 Step -1
        If TypeName(objContacts(i)) = "ContactItem" Then
           Set objContact = objContacts(i)
 
           'Check 3 email addresses of each contact
           If InStr(objContact.Email1Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email1Address = ""
              objContact.Email1DisplayName = ""
           ElseIf InStr(objContact.Email2Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email2Address = ""
              objContact.Email2DisplayName = ""
           ElseIf InStr(objContact.Email3Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email3Address = ""
              objContact.Email3DisplayName = ""
           End If
 
           objContact.Save
        End If
     Next
 
     If objCurrentFolder.Folders.Count > 0 Then
        For Each objSubfolder In objCurrentFolder.Folders
            Call ProcessContactFolders(objSubfolder, lCount)
        Next
     End If
End Sub

その後、「BatchRemoveAllEmailAddressesInSpecificDomain」サブルーチンにカーソルを置きます。
最後に、「F5」キーボタンをクリックして、このマクロをトリガーします。
続いて、ポップアップダイアログボックスで特定のドメインを入力します。
「OK」をクリックすると、マクロが実行されます。
終了すると、結果に関するメッセージが表示されます。
これで、連絡先を確認できます。特定のドメインのすべての電子メールアドレスが消えている必要があります。

Outlookファイルを保存する

Outlookを取り巻くリスクが増えるにつれ、貴重なOutlookデータを保護することがますます困難になっています。たとえば、定期的なデータバックアップを継続するだけでなく、操作に注意する必要があります。未知の送信者からの電子メールをすぐに信頼することは賢明ではありません。そうしないと、ウイルスが感染している場合、Outlookファイルが感染します。その時、あなたは試みなければなりません Outlookの修復などの注目すべき修正ツールを介して DataNumen Outlook Repair.

著者紹介：

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