各カテゴリの連絡先の数を知りたい場合は、この記事で紹介した2つの方法を使用できます。 XNUMXつはインスタント検索を使用しており、もうXNUMXつはVBAを使用しています。
カラーカテゴリを使用してOutlookの電子メールを管理するのと同様に、連絡先をカテゴリで分類することもできます。 連絡先を色分けしていて、それぞれの異なるカテゴリの連絡先の総数を取得したい場合は、次の2つの方法を使用してそれを実現できます。
方法1：インスタント検索を使用する
- まず、Outlookを起動します。
- 次に、連絡先フォルダを開きます。
- 次に、検索ボックスをクリックして、「検索ツール」リボンをアクティブにします。
- 続いて、「分類済み」ボタンをクリックします。
- ドロップダウンリストから、XNUMXつ以上のカラーカテゴリを選択できます。 ここでは、例として「紫のカテゴリ」を取り上げます。
- 特定のカテゴリを選択すると、関連する検索条件が検索ボックスに入力されます。
- ステータスバーの左下で、次の画像のように、選択したカテゴリの連絡先の総数を確認できます。
つまり、すべてのカテゴリの連絡先をXNUMXつずつ数える必要があります。 かなり面倒です。 したがって、各色カテゴリの連絡先の総数を一度に取得したい場合は、次のトリックに繰り返すことができます。
方法2：OutlookVBAを使用する
- 最初に、Outlookの「Alt + F11」キーショートカットを押します。
- 次に、OutlookVBAエディターウィンドウにアクセスします。
- 次に、新しいモジュールまたは使用されていないモジュールを開く必要があります。
- 続いて、次のVBAコードをコピーしてそのようなモジュールに貼り付けます。
Sub CountContactsinEachCategory()
Dim objDictionary As Object
Dim objContactsFolder As Outlook.Folder
Dim objContacts As Outlook.Items
Dim objContact As Object
Dim strCategory As String
Dim strPrompt As String
Dim nMessage As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
'You can count the contacts in selected Contact folder by....
'Set objContactsFolder = Outlook.Application.ActiveExplorer.CurrentFolder
Set objContacts = objContactsFolder.Items
For Each objContact In objContacts
strCategory = objContact.Categories
objDictionary(strCategory) = CLng(objDictionary(strCategory)) + 1
Next objContact
For Each Key In objDictionary.Keys
strPrompt = strPrompt & Key & ": " & objDictionary(Key) & vbCrLf
Next
nMessage = MsgBox(strPrompt, vbInformation, "Count Contacts by Color Category")
End Sub
- その後、Outlookでマクロが許可されていることを確認します。
- 後で、ツールバーの「実行」アイコンをクリックできます。
- 最後に、次の画像のように、各カラーカテゴリの連絡先の数を示すメッセージが表示されます。
Outlookデータをレスキューする
通常どおりPSTファイルにアクセスできるような場合は、ファイルが破損している可能性があります。 この時点で、元に戻すために 破損したPST データの場合、次のような十分に強力な修復ツールに頼るしかありません。 DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdf修正 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com