Outlook電子メールのすべての添付ファイルをバッチで開く2つの方法

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

複数の添付ファイルが添付された電子メールを受信した場合、それらをまとめて開くことを希望する場合があります。この記事では、この問題を取り上げ、それを取得するための2つのアプローチを紹介します。

いくつかの添付ファイルを含むそのような電子メールを受け取ったことがあるはずです。添付ファイルの2つをダブルクリックするだけで、簡単に開くことができます。しかし、すべての添付ファイルをまとめてすばやく開きたい場合は、どうすれば入手できますか？ Outlookがそのような機能を提供していないことは明らかです。したがって、他の手段を探す必要があります。以下はXNUMXつのヒントです。

方法1：[すべての添付ファイルを保存]を使用してすべての添付ファイルをバッチで開く

添付ファイルが同じファイルタイプの場合は、次の方法を使用できます。

まず、メールアドレスを選択してください。
次に、閲覧ウィンドウでXNUMXつの添付ファイルを売り込みます。
次に、表示されている[添付ファイル]リボンで、[すべての添付ファイルを保存]ボタンを見つけてクリックします。
続いて、ポップアップの小さなダイアログボックスで「OK」をクリックします。
次の「すべての添付ファイルを保存」ダイアログボックスで、保存先のフォルダを選択し、「OK」をクリックします。
最後に、選択したフォルダを開くことができます。

「Ctrl + A」を押して、保存されているすべての添付ファイルを選択します。
次に、それらを右クリックします。
右クリックメニューで、「開く」オプションを選択できます。

上記の方法は、添付ファイルがすべて同じファイル形式である場合にのみ適用可能です。そうでない場合は、以下の方法をご利用ください。

方法2：OutlookVBAを介してすべての添付ファイルをバッチで開く

このメソッドは、添付ファイルが一般的なファイルタイプ（「.docx」、「。doc」、「。txt」、「。xlsx」、「xls」、「。jpg」、「。png」、「jpeg」）である場合に効果的に機能します。」。

まず、「Alt + F11」キーボタンを押します。
次に、VBAエディタウィンドウが表示されます。
次に、使用されていないモジュールを開く必要があります。
続いて、次のVBAコードをコピーして貼り付けます。

Sub OpenAllAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objTempFolder As Object
    Dim strFile As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim objExcelRange As Excel.Range
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachments = objMail.attachments
 
    If objAttachments.Count > 0 Then
       For Each objAttachment In objAttachments
           'Save the attachments to Temp folder
           Set objFileSystem = CreateObject("Scripting.FileSystemObject")
           Set objTempFolder = objFileSystem.GetSpecialFolder(2)
           strFile = objTempFolder.Path & "\" & objAttachment.DisplayName
           objAttachment.SaveAsFile strFile
 
           'Batch open all the attached Word documents and Text Files
           If InStr(LCase(strFile), "docx") > 0 Or InStr(LCase(strFile), "doc") > 0 Or InStr(LCase(strFile), "txt") > 0 Then
              Set objWordApp = CreateObject("Word.Application")
              Set objWordDocument = objWordApp.Documents.Open(strFile)
              objWordDocument.Activate
              Set objWordRange = objWordDocument.Range(0, 0)
              objWordApp.Visible = True
              objWordDocument.ActiveWindow.Visible = True
           End If
 
          'Batch open all the attached Excel workbooks
          If InStr(LCase(strFile), "xlsx") > 0 Or InStr(LCase(strFile), "xls") > 0 Then
             Set objExcelApp = CreateObject("Excel.Application")
             Set objExcelWorkbook = objExcelApp.Workbooks.Open(strFile)
             Set objExcelWorkSheet = objExcelWorkbook.Sheets(1)
             objExcelWorkSheet.Activate
             Set objExcelRange = objExcelWorkSheet.Range("A1")
             objExcelRange.Activate
             objExcelApp.Visible = True
          End If
 
          'Batch open all the attached pictures via Windows image view
          If InStr(LCase(strFile), "jpg") > 0 Or InStr(LCase(strFile), "png") > 0 Or InStr(LCase(strFile), "jpeg") > 0 Then
             Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & strFile
          End If
       Next
    End If
End Sub

その後、VBAエディターを閉じて、マクロをクイックアクセスツールバーに追加できます。
最後に、試してみることができます。

まず、メールを選択します。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
すぐに、次のスクリーンショットのように、選択した電子メールのすべての添付ファイルがバッチで開かれます。

PSTデータを効果的に保護する

Outlook PSTはさまざまな要因に対して脆弱であるため、破損を防ぐために多くの努力を払う必要があります。それ以外の場合、PSTが破損すると、 PSTを修復するかなり骨の折れる作業になります。 Scanpst.exeは、このような場合には役立ちません。したがって、唯一の手段は、次のような強力な外部ツールを適用することです。 DataNumen Outlook Repair.

著者紹介：

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