Outlook で特定のExcel 添付ファイルだけを保存するには、どうすればよいですか？
Outlook には「すべての添付ファイルを保存」機能があり、メール内のすべての添付ファイルを一度に指定したフォルダーに保存できます。しかし、1 通または複数のメールに含まれる特定の種類の添付ファイル（たとえば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 Sub3．「ツール」＞「参照設定」をクリックします。「参照設定－プロジェクト」ダイアログボックスが表示されたら、「Microsoft Scripting Runtime」にチェックを入れて、「OK」ボタンをクリックします。
4．「F5」キーを押してコードを実行します。「フォルダーの参照」ダイアログボックスが表示されたら、添付ファイルの保存先フォルダーを選択してください。
5．次に「OK」をクリックすると、「Kutools for Outlook」ダイアログボックスが表示されます。保存したい添付ファイルの拡張子をテキストボックスに入力して、「OK」をクリックしてください。
注：複数のファイル拡張子を指定する場合は、カンマで区切ってください。
これにより、指定した添付ファイルのみが保存されます。
便利なツールを使用してOutlook で特定のファイルの種類添付ファイルを簡単に保存する
VBA に不慣れな場合は、すべての添付ファイルを保存するには、「Kutools for Outlook」の機能をご利用になることをおすすめします。この機能を使えば、Outlook で特定のファイル形式の添付ファイルを簡単に保存できます。
1．特定のファイル形式の添付ファイルのみを保存したいメールを選択します。
2．「Kutools」＞「添付ファイルツール」＞「すべて保存」をクリックしてください。
3．「保存設定」ダイアログボックスで、次のように設定してください。
ボタンをクリックして添付ファイルを保存します。
4．添付ファイルを保存するかどうか確認するダイアログボックスが表示されたら、「OK」をクリックして続行してください。
5．その後、保存された添付ファイルの件数を知らせるダイアログボックスが表示されるので、「OK」ボタンをクリックします。
これで、特定のファイル形式の添付ファイルのみが保存されました。
関連記事：
最高の Office 生産性ツール
まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！
🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。
📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...
📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...
📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...
🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...
👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...
👩🏼🤝👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...
Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！
ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！
🚀 ワンクリックダウンロード — Office アドインをすべて入手
強く推奨：Kutools for Office（5-in-1）
ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！
- ✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
- 🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
- 🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint