Outlookで特定の（Excel）添付ファイルのみを保存する方法は？

Author: Siluvia Last Modified: 2025-05-23

Outlookには、すべての添付ファイルを一度に特定のフォルダに保存できる「すべての添付ファイルを保存」機能が用意されています。しかし、複数のメールから特定の種類の添付ファイル（例えばExcelブックやWord文書など）だけを保存したい場合、どのようにすればよいでしょうか？このチュートリアルでは、この問題を解決するための2つの方法をご紹介します。

VBAコードを使用してOutlookで特定のファイル形式の添付ファイルのみを保存する
驚きのツールを使ってOutlookで特定のファイル形式の添付ファイルを簡単に保存する

VBAコードを使用してOutlookで特定のファイル形式の添付ファイルのみを保存する

次のVBAコードは、選択した1つまたは複数のメールから特定のファイル形式の添付ファイルのみを特定のフォルダに保存するのに役立ちます。以下の手順を行ってください。

1. Outlookを起動します。メールリストで、特定のファイル形式の添付ファイルのみを保存したい1つまたは複数のメールを選択します。

2. 「Alt」+「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。開いたウィンドウで、「挿入」>「モジュール」をクリックし、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード：1通または複数のメールから特定の添付ファイルをフォルダに保存する

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. 「ツール」>「参照設定」をクリックします。「参照設定 - プロジェクト」ダイアログで、「Microsoft Scripting Runtime」のチェックボックスをオンにして「OK」ボタンをクリックします。

steps on saving only Specific (Excel) Attachment In Outlook using vba