Outlook で返信する際に添付ファイルを保持するにはどうすればよいですか？

Microsoft Outlook では、メールを転送する際に元の添付ファイルがそのまま維持されますが、返信する際には会話の中で不要と判断され、自動的にすべての添付ファイルが削除されます。これは、重要なファイルを参照したいときやドキュメントを再送したいとき、あるいは文脈を明確にするために添付ファイルを保持したい場合などに、非常に煩わしく非効率的です。幸いにも、Outlook で返信する際に添付ファイルを確実に含めるための方法がいくつかあります。手動、ワンクリック、自動化のいずれかのソリューションから選べます。

【Attachment】付きで返信（手動でコピー＆ペースト）（基本的だが面倒）

【Attachment】付きで返信（Kutools for Outlook を使用してワンクリック 👍）（迅速かつ簡単）

【Attachment】付きで返信（VBA を使用して自動化）（技術的で初期設定が必要）

【Attachment】付きで返信（手動でコピー＆ペースト）

メールの添付ファイルを手動でコピーして、返信メッセージに送信する前に貼り付けることができます。

1．Outlookを開き、返信したいメールを選択して、閲覧ウィンドウでプレビューするか、別ウィンドウで開いてください。

2．添付ファイルのいずれかをクリックし、添付ファイルタブからすべて選択＞コピーをクリックします。

3．返信ボタンをクリックすると、返信ウィンドウが開きます。

4．返信メッセージ内で本文の任意の場所をクリックし、Ctrl＋Vを押すか、貼り付けをメッセージタブから選択して、コピーした添付ファイルを挿入します。

5．返信内容を作成して添付ファイルを確認し、送信をクリックします。

---

📂 複数のメールから添付ファイルを簡単に保存

Outlook でメールごとに一つずつ添付ファイルを保存するのはもうお疲れですか？Kutools for Outlookの強力なすべて保存（添付ファイル）機能を使えば、複数のメールやフォルダー全体から添付ファイルをわずか数回のクリックで一括保存できます。面倒な手作業にサヨナラして、受信トレイを簡単にスッキリ整理しましょう！

Kutools for Outlook を今すぐダウンロード

【Attachment】付きで返信（Kutools for Outlook を使用してワンクリック 👍）

【Attachment】付きで返信を迅速かつ簡単に実行するには、Kutools for Outlookをご利用ください。元の添付ファイル付きで返信機能を使えば、元の添付ファイルをそのまま保持してワンクリックで返信できます。

添付ファイルを保持したいメールを選択し、Kutools＞元の添付ファイル付きで返信または元の添付ファイル付きで全員に返信をクリックしてください。

以上です！返信メッセージには、元のメールに含まれていた添付ファイルがすべて自動的に追加されます。あとはメッセージを作成して、送信をクリックするだけ！

【Attachment】付きで返信（VBA を使用して自動化）

VBA スクリプトに慣れている方向けのこの方法を使えば、添付ファイル付きで返信するプロセスを自動化できます。ただし、Outlook でマクロを有効化し、スクリプトを手動で追加する必要があります。

手順1：VBA エディターを開く

1．返信したいメールメッセージを選択してください。

2．Alt＋F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3．左側のパネルで、Project1＞Microsoft Outlook オブジェクトを展開し、ThisOutlookSessionをダブルクリックして開きます。

手順2：VBA コードを挿入する

以下の VBA コードをThisOutlookSessionウィンドウにコピー＆ペーストしてください。

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

手順3：VBA マクロを実行する

1．F5キーを押すか、実行ボタンをクリックしてマクロを実行します。

2．マクロダイアログボックスで、全員に返信するにはThisOutlookSession.RunReplyAllWithAttachmentsを、1 人の受信者に返信するにはThisOutlookSession.RunReplyWithAttachmentsを選択し、実行をクリックします。

結果

返信ウィンドウが開き、元の添付ファイルがすべて自動で含まれます。あとはメッセージを作成して、送信をクリックするだけ！

結論：どの方法を選ぶべきでしょうか？

次の表で3 つの方法を比較し、あなたのニーズに最も合うものをぜひ選んでください。

ほとんどのユーザーにとって、Kutools for Outlookが最適な選択肢です。なぜなら、Outlook で【Attachment】付きで返信する最も迅速かつ簡単な方法だからです。これで、ご自身のワークフローにぴったり合う方法で、Outlook から簡単に【Attachment】付きで返信できるようになりました！🚀

デモ：Kutools for Outlook で【Attachment】付きで返信をワンクリック

関連記事：

• Outlook で返信する際に添付ファイルを保持するにはどうすればよいですか？
• Outlook で複数のメールに含まれるすべての添付ファイルをフォルダーに保存するには、どうすればよいですか？
• Outlook でメールからすべての添付ファイルを削除するにはどうすればよいですか？

---

最高の 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

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