選択したOutlook電子メールの添付ファイルの総数をすばやく取得する方法

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

選択した電子メールの添付ファイルの数を数える必要があったことはありますか？ 手動で数えると面倒です。 ここでは、OutlookVBAを使用してカウントをはるかに簡単かつ迅速にするのに役立ちます。

何らかの理由で、Outlookメールの添付ファイルの数を数える必要がある場合があります。1通のメールの添付ファイルの数だけを数えるのであれば、非常に簡単です。しかし、複数のメールの添付ファイルの数を数えたい場合は、手動で数えるのは非常に面倒です。一般的に、最も一般的な方法の1つは、すべての添付ファイルをコンピューターのローカルフォルダーに保存することです。その後、それらを選択すると、Windowsエクスプローラーのステータスバーに選択したアイテムの数が表示されます。Windowsエクスプローラーのステータスバーで番号を取得します

ただし、この方法が依然として非常に面倒であることは否定できません。 実際、Outlook VBAを使用すると、選択したOutlook電子メールの添付ファイルの総数をすばやく取得できます。 詳細なVBAコードと手順を学ぶために読んでください。

選択したメールの添付ファイルの総数をすばやく取得する

  1. まず、Outlookアプリケーションを起動し、「開発者」タブに移動します。
  2. 次に、「VisualBasic」ボタンをクリックします。 「MicrosoftVisualBasicforApplications」ウィンドウが表示されます。
  3. 次に、使用されていない新しいモジュールを開く必要があります。 「挿入」>「モジュール」を選択します。
  4. その後、次のVBAコードをコピーして貼り付ける必要があります。
Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

VBAコード-選択した電子メールの添付ファイルの総数を取得します

  1. その後、「Visual Basic」ウィンドウを終了して、Outlookのメインウィンドウに戻ることができます。 次に、クイックアクセスツールバーの下矢印を見つけて押し、ドロップダウンリストから[その他のコマンド]を選択する必要があります。
  2. 後で、下の画像に示されている手順に従います。クイックアクセスツールバーにVBAマクロを追加する
  3. 最後に、試してみることができます。
  • 複数のメールを選択した後、クイックアクセスツールバーの新しいボタンを押すことができます。 その後、選択した電子メールの添付ファイルの数を示すメッセージが表示されます。 次の画像のようになります。添付ファイルを数える
  • ただし、電子メールではなく、要求または応答を同様に満たすアイテムを選択すると、次の図のようなアラートが表示されます。メールのみを選択

時折発生するOutlookの問題に対応する

Outlookを何十年も使用している場合は、Outlookが応答しない、Outlookがフリーズする、頻繁にエラーメッセージが表示される、 OutlookPST電子メールの破損 などなど。これらの問題に対処するためのコツは既に習得済みですか？一般的には、Outlook をセーフモードで起動したり、新しい Outlook プロファイルを作成したり、Office を修復したり、サードパーティのアドインを無効にしたりすることができます。さらに、次のような強力な修復ツールも手元に置いておく必要があります。 DataNumen Outlook Repair。 これは、バックアップと受信トレイ修復ツールの両方が失敗した場合に役立ちます。

著者紹介：

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

今すぐ共有：

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