Outlook でメールの添付ファイルをフォルダーに保存する際に、ファイル名を変更する方法は？

著者Sun変更日2025-04-17

Outlook では、添付ファイル付きのメッセージを受信することがよくありますが、その添付ファイルの名前を変更して、以下スクリーンショットのようにフォルダーに保存したいと思ったことはありませんか？もちろん、ファイルをフォルダーに保存して1 つずつ名前を変更することも可能ですが、実はすべての添付ファイルを一括で同じ名前に素早く変更し、1 つのフォルダーに保存できる VBA コードがあるのです。
doc rename save attach 1

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

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

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

1。名前を変更して保存したい添付ファイルが含まれるメッセージを選択します。

2。「Alt」＋「F11」キーを押します。次に、「Project1」ペインで「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 Scripting 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 で受信者にメッセージを返信する際、元のメッセージに添付されていたファイルは自動的に削除されます。添付ファイルをそのまま保持して返信したい場合は、この機能をお試しください。この機能を使えば、元の添付ファイル付きで1 通のメッセージを返信でき、すべてのメッセージにも対応しています。全機能を30 日間無料でお試しください！

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

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

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

Kutools for Outlook：100 以上の必須機能および高度な機能をアンロックできます！今すぐダウンロードして体験しましょう！

無料インストールして、以下の手順に従ってください。

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

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

3。いずれかの添付ファイルを右クリックし、「すべての添付ファイルを保存」を選択して「OK」をクリックすると、フォルダーを選択できます。必要に応じて添付ファイルを保存してください。これにより、名前変更された添付ファイルがフォルダーに保存されます。
doc rename save attach 5

最高の Office 生産性ツール

まったく新しい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）

ワンクリックで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

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