Outlookでメールの添付ファイルをフォルダーに保存して名前を変更するにはどうすればよいですか？

Author Sun Last modified 2025-08-26

Outlookでは、通常、添付ファイル付きのメールを受信することがあります。以下のスクリーンショットのように、メールの添付ファイルの名前を変更してフォルダーに保存しようとしたことはありますか？明らかに、それらをフォルダーに保存し、1つずつ名前を変更することはできますが、実際には、すべての添付ファイルを同じ名前で一括して名前を変更し、1つのフォルダーに保存できるVBAコードがあります。
doc rename save attach 1

同じ名前の添付ファイルをフォルダーに保存して名前を変更する

Kutools for Outlookを使用してフォルダー内の添付ファイルの名前を変更して保存する

同じ名前の添付ファイルをフォルダーに保存して名前を変更する

1. 添付ファイルを保存し、同じ名前に変更したいメールを選択します。

2. 「Alt」+「F11」キーを押して、「プロジェクト1」ペインで「ThisOutlookSession」をダブルクリックし、右側のセクションに新しい空のスクリプトを作成します。その後、コードをコピーして貼り付けます。

VBA: 添付ファイルの名前を変更して保存する

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
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
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

doc rename save attachments in a folder 2

3. 「ツール」>「参照設定」をクリックし、表示されるダイアログで「Microsoft Script Runtime」チェックボックスをオンにします。

doc rename save attachments in a folder 3

doc rename save attachments in a folder 4

4. 「OK」をクリックし、「F5」キーを押してコードを実行すると、「フォルダーの参照」ダイアログが表示され、添付ファイルを配置するためのフォルダーを選択または作成できます。
doc rename save attachments in a folder 5

5. クリックしてください OKそして、添付ファイルに名前を付けます。
doc rename save attachments in a folder 6

6. 「OK」をクリックすると、添付ファイルは同じ名前で名前が変更されます。重複がある場合、重複したものは接尾辞として番号が追加されます。

元の添付ファイルを含む返信メッセージをOutlookで送信

ご存知の通り、Outlookで受信者にメッセージを返信する際、元のメッセージに添付されていた添付ファイルは削除されてしまいます。添付ファイルを保持したまま返信したい場合、Kutools for Outlookの「添付ファイル付きで返信」機能をお試しください。この機能を使用すると、元の添付ファイルを含んだメッセージを簡単に返信できます。また、すべてのメッセージにも対応しています。　全機能を見るには 30 日間の無料トライアルをご利用ください！

Kutools for Outlook: 便利なOutlookアドインが数十種類揃っており、30日間、制限なく無料でお試しいただけます。

Kutools for Outlookを使用してフォルダー内の添付ファイルの名前を変更して保存する

実際、「Kutools for Outlook」には、Outlookの便利なアドインツールであり、添付ファイルを保存または送信する前にすべての添付ファイルの名前を変更する機能があります。

Kutools for Outlook: 100以上の基本的で高度な機能を解放しましょう！70以上の機能を無料でお楽しみいただけます。今すぐ無料版をダウンロードして探索してください！

無料でインストール Kutools for Outlookを、以下の手順に従って操作してください：

1. メールをナビゲーションペインまたはメッセージボックスでアクティブにし、「Kutools」>「添付ファイルツール」>「すべての名前を変更」をクリックします。
doc rename save attach 2

2. 表示されるダイアログで、各添付ファイルに使用する新しい名前を入力します。「OK」をクリックすると、添付ファイルが新しい名前で変更されます。
doc rename save attach 3

3. 1つの添付ファイルを右クリックし、「すべての添付ファイルを保存」を選択し、「OK」をクリックして、添付ファイルを保存するフォルダーを選択します。これで、名前が変更された添付ファイルがフォルダーに保存されます。
doc rename save attach 5

最高のオフィス生産性ツール

最新情報: Kutools for Outlook 無料版リリース！

新しくなった Kutools for Outlook を100以上の素晴らしい機能とともに体験してください！今すぐダウンロードしてみましょう！

🤖 Kutools AI : 高度なAI技術を活用し、メールの返信、要約、最適化、拡張、翻訳、作成までを簡単に処理します。

📧 メール自動化: 自動返信（POPとIMAPに対応） / スケジュール電子メールを送信 /送信時にルールで自動 CC/BCC / 高度なルールによる自動転送 / 挨拶を自動追加 / 複数宛先メールを自動的に一通ずつ分割...

📨 メール管理: メールの取り消し / 件名などで詐欺メールをブロックする / 重複メールを削除 / 高度な検索 / フォルダーを整理...

📁 添付ファイルプロ: 一括保存 / 一括切り離し / 一括圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...

🌟 インターフェイスマジック: 😊さらに美しくてクールな絵文字 /重要なメール到着時に通知 / Outlookを閉じるのではなくグループを最小化...

👍 ワンクリック便利機能: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーン表示...

👩🏼‍🤝‍👩🏻 連絡先＆カレンダー: 選択したメールから一括で連絡先を追加 /連絡先グループを個別グループに分割 / 誕生日のリマインダーを削除...

お好みの言語で Kutools を利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語に対応！

Kutools for Outlookをワンクリックですぐに利用開始。待たずに今すぐダウンロードして効率を高めましょう！

Kutools for Outlook の機能一覧ダウンロード購入画面へ移動

🚀 ワンクリックダウンロード — Office用アドインをすべて入手

強くおすすめ: Kutools for Office（5-in-1）

ワンクリックで五つのインストーラーを同時ダウンロード ― Kutools for Excel、Outlook、Word、PowerPoint、Office Tab Pro。今すぐダウンロード！

✅ ワンクリックの便利さ: 五つのセットアップパッケージを一度にダウンロードできます。
🚀 あらゆるOffice作業に準備完了: 必要なアドインをいつでもインストール可能です。
🧰 含まれるもの: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて ⬇ スイートをダウンロード 💳 スイートを購入