Outlookでメールアドレスのないすべての連絡先をバッチ削除する2つの方法

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

Outlookでメールアドレスが登録されていない連絡先が見つかった場合、各連絡先フォルダを処理して、そのような連絡先をすべて削除したい場合があります。この記事では、その方法を2つご紹介します。

おそらく、Outlookに多くの連絡先があり、そのうちのいくつかは電子メールアドレスを持っていません。それらがもはや役に立たないと思う場合は、電子メールアドレスのないすべての連絡先を削除することを期待する必要があります。標準的な方法では、次の方法1のように、「インスタント検索」を使用してそれらを検索し、手動で削除できます。ただし、少し面倒です。したがって、方法2では、別のより効率的な方法を説明します。

方法1：メールアドレスのない連絡先を見つけた後に手動で削除する

まず、「Ctrl + 3」キーを押して「連絡先」パネルを開きます。
次に、検索ボックスをクリックします。
次に、表示される[検索]リボンで、[すべての連絡先アイテム]をクリックします。
続いて、「アドレスあり」>「メールアドレスあり」をクリックします。
その後、「NOT emailaddresses：= []」という条件が検索ボックスに追加されます。「NOT」を削除する必要があります。
その後、メールアドレスのないすべての連絡先が一覧表示されます。
ここで、連絡先グループもリストに含まれている必要があるため、検索結果で連絡先を手動で選択する必要があります。
最後に、「Del」キーボタンを押して、選択したすべての連絡先を削除します。

方法2：VBAを使用してメールアドレスのないすべての連絡先をバッチ削除する

まず、「Alt + F11」をタップして、OutlookでVBAエディターを起動します。
新しい画面で、次のVBAコードをモジュールにコピーします。

Sub BatchDeleteAllContactsWithoutEmailAddress()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
 
    lTotalCount = 0
    'Process all stores in your Outlook
    For Each objStore In Application.Session.Stores
       Call ProcessContactFolders(objStore.GetRootFolder.Folders, lTotalCount)
    Next
 
    MsgBox lTotalCount & " contacts are deleted!", vbInformation + vbOKOnly, "Delete Contacts"
End Sub

Sub ProcessContactFolders(ByVal objFolders As Outlook.Folders, lCount As Long)
    Dim objFolder As Outlook.Folder
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim objSubfolder As Outlook.Folder

    For Each objFolder In objFolders
        If (objFolder.DefaultItemType = olContactItem) And (objFolder.Name <> "Skype Contacts") Then
           For i = objFolder.Items.Count To 1 Step -1
               If objFolder.Items(i).Class = olContact Then
                  Set objContact = objFolder.Items(i)
                  'Delete the contact w/o email address
                  If (objContact.Email1Address = "") And (objContact.Email2Address = "") And (objContact.Email3Address = "") Then
                     objContact.Delete
                     lCount = lCount + 1
                  End If
               End If
           Next
 
           'Process subfolders recursively
           If objFolder.Folders.Count > 0 Then
              Call ProcessContactFolders(objFolder.Folders, lCount)
           End If
       End If
    Next
End Sub

後で、「BatchDeleteAllContactsWithoutEmailAddress」サブルーチンをクリックします。
最終的に、「F5」を押してこのマクロをトリガーします。
完了すると、下の画像のように、結果に関するメッセージが表示されます。
メールアドレスのない連絡先はすべて「削除済みアイテム」フォルダに移動されました。

すべての潜在的なリスクから遠ざける

Outlookは、ウイルス、ユーザーエラー、ソフトウェア障害、ハードウェア障害などのさまざまな要因によって損傷する可能性があります。 Outlookの損傷を経験することを躊躇する必要があるため、これらの潜在的なリスクをすべて回避する必要があります。たとえば、強力なウイルス対策ソフトウェアをPCにマウントする必要があります。さらに、Outlookデータを定期的にバックアップする必要があります。大事なことを言い忘れましたが、次のような堅牢で信頼性の高い修復ツールを準備することをお勧めします。 DataNumen Outlook Repair。それはあなたを修正することができます破損したPST 簡単にファイルします。

著者紹介：

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