Outlookでフラグが立てられたすべてのアイテムをカウントする3つの簡単な方法

Outlookソリューション 2025 年 9 月 29 日
今すぐ共有：

Outlookでは、電子メールや連絡先などのフラグを立てるなど、フォローアップのためにアイテムにフラグを付けることができます。 このシナリオでは、フラグが立てられたアイテムを数えたい場合があります。 ここでは、3つのアプローチを紹介します。

おそらく、Outlookでフォローアップするために多数のアイテムにフラグを付けました。 たとえば、後でこの連絡先に電話をかける予定である連絡先にフラグを立てることができます。 非常に多くのフラグが立てられたアイテムに直面して、あなたはそれらの数を取得したいと思うかもしれません。 以下、3つの手段をご紹介します。Outlookでフラグが立てられたすべてのアイテムを数える

方法1：検索フォルダーを介してカウントする

フラグが立てられた電子メールを単に数えたい場合は、検索フォルダーを利用できます。 詳細な手順は次のとおりです。

  1. まず、メールナビゲーションペインで「フォルダーの検索」を右クリックします。
  2. 次に、コンテキストメニューから[新しい検索フォルダ]を選択します。新しい検索フォルダ
  3. ポップアップダイアログボックスで、「フォローアップのフラグが設定されたメール」を選択し、「OK」をクリックします。フォローアップのフラグが立てられたメール
  4. 最後に、次のスクリーンショットのように、検索フォルダーにフラグが設定された電子メールの総数が表示されます。フラグが立てられた電子メールの数

方法2：やることリストに数える

電子メールだけでなく、連絡先、連絡先グループなどにもフラグを付けた場合は、これらすべてのフラグが立てられたアイテムの総数を取得することをお勧めします。 この状況では、次の方法を使用できます。

  1. まず、「Ctrl +4」でタスクナビゲーションペインに切り替えます。
  2. 次に、「To Doリスト」にアクセスします。ここには、次の画像に示すように、フラグが立てられたすべての項目が表示されます。ToDoリストへのアクセス
  3. 次に、これらすべてのアイテムを選択し、「Enter」キーボタンを押して、バッチで開こうとします。フラグが立てられたすべてのアイテムを開こうとします
  4. その後、次の図のように、開くアイテムが多すぎるという警告が表示されます。 警告には、フラグが立てられたアイテムの総数があります。フラグが立てられたアイテムの数を含む警告

方法3：OutlookVBAでカウントする

フラグが立てられたすべてのアイテムの総数を取得するだけでなく、フラグが立てられたアイテムの個別のタイプのカウントも取得したい場合があります。 これがこの点での解決策です。

  1. まず、Outlook VBAエディターにアクセスするには、次の投稿を参照してください。OutlookでVBAコードを実行する方法"
  2. 次に、以下のVBAコードをモジュールまたはプロジェクトにコピーします。
Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

VBAコード-すべてのフラグ付きアイテムをカウントします

  1. 最後に、「CountFlaggedItems」サブルーチンをクリックして、「F5」ボタンを押します。
  2. マクロが完了すると、次の図のように、フラグが立てられたすべてのアイテムの総数を求めるメッセージが表示されます。フラグが立てられたアイテムの数を含むメッセージ

迷惑なOutlookのトラブルを処理する

Outlookでは、Outlookの問題が時々発生する可能性があります。 したがって、あなたはチップトップと信頼できるものを手に入れたほうがいいです Outlookの修正 のようなユーティリティ DataNumen Outlook Repair。 Outlookファイルをインテリジェントにスキャンし、数分以内にファイルエラーを修復できます。

著者紹介：

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

今すぐ共有：

コメントは締め切りました。