Outlookで特定の（Excel）添付ファイルのみを保存するにはどうすればよいですか？

Outlookには、すべての添付ファイルを保存する機能があり、電子メール内のすべての添付ファイルを特定のフォルダーに一度にすばやく保存できます。 ただし、Excelの添付ファイル、Word文書など、特定の種類の添付ファイルのみを電子メールに保存する場合は、それを実現するために何ができますか？ ここでは、問題を解決するためのVBAメソッドを提供します。

Outlookで特定の添付ファイルのみを保存する

Outlookで特定の添付ファイルのみを保存する

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

1. Outlookを起動し、メーリングリストで、特定の添付ファイルを保存するXNUMXつまたは複数の電子メールを選択します。

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

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

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3。 クリック 工具 > リファレンス、で 参考資料–プロジェクト ダイアログで、 Microsoftスクリプトランタイム ボックスをクリックして OK ボタン。

4。 プレス F5 コードを実行するためのキー。 飛び出した フォルダを参照する ダイアログボックスで、添付ファイルを保存するフォルダをXNUMXつ選択します。

5.次に、をクリックします OK、 以下では Outlook用Kutools ダイアログボックスで、保存する添付ファイルのファイル拡張子をテキストボックスに入力し、[ OK.

その後、指定した添付ファイルのみが保存されます。

免責事項:

1.異なる種類の添付ファイルを保存する場合は、ファイル拡張子をテキストボックスに入力し、カンマで区切ります。

2.保存後、添付ファイルの保存パスがメッセージ本文に表示されます。 ハイパーリンクを直接クリックすると、添付ファイルを開くことができます。

関連記事：

• Outlookで電子メールメッセージのすべての添付ファイルを保存するにはどうすればよいですか？
• Outlookで電子メールからすべての添付ファイルを削除するにはどうすればよいですか？

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします！

• 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
• BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
• メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
• 添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
• 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

続きを読みます... ダウンロード中...