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

作者: シルヴィア最終更新日：2022年06月17日

Outlookには、すべての添付ファイルを保存する機能があり、電子メール内のすべての添付ファイルを一度に特定のフォルダーに保存できます。ただし、Excelブック、Word文書など、特定の種類の添付ファイルのみをXNUMXつ以上の電子メールに保存する場合、どのようにそれを実現しますか？このチュートリアルでは、この問題を解決するためのXNUMXつの方法を提供します。

特定のファイル形式の添付ファイルのみをVBAコードを使用してOutlookに保存します
 すばらしいツールを使用して、特定のファイル形式の添付ファイルのみをOutlookに簡単に保存できます

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

次のVBAコードは、特定のファイル形式の添付ファイルのみをXNUMXつ以上の選択した電子メールの特定のフォルダーに保存するのに役立ちます。次のようにしてください。

1.Outlookを起動します。 [メール]リストで、添付ファイルのみを特定のファイル形式で保存するXNUMXつ以上の電子メールを選択します。

2。プレス他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。開始ウィンドウで、をクリックします インセット > モジュール、次に、以下のVBAコードをモジュールウィンドウにコピーします。

VBAコード：特定の添付ファイルのみをXNUMXつのメールまたは複数のメールでフォルダーに保存します

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スクリプトランタイム ボックスをクリックして OK