Outlookで返信する際に添付ファイルを保持する方法は？

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

手動でコピー＆ペーストして返信する （基本的だが面倒）

Kutools for Outlookを使用してワンクリックで返信 👍 （高速で簡単）

VBAを使用して自動的に返信 （技術的で設定が必要）

手動でコピー＆ペーストして返信する

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

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

2. 添付ファイルのどれかをクリックし、『添付ファイル』タブの下にある『すべて選択』＞『コピー』をクリックします。

3. 返信ボタンをクリックして返信ウィンドウを開きます。

4. 返信メッセージ内で、本文のどこかをクリックし、Ctrl + Vを押すか、メッセージタブの『貼り付け』をクリックして、コピーした添付ファイルを挿入します。

5. 返信を作成し、添付ファイルを確認して、送信ボタンをクリックします。

---

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

Outlookで毎回1通ずつ添付ファイルを保存するのは面倒ではありませんか？Kutools for Outlookを使えば、作業効率が大幅に向上します！強力な「添付ファイルを保存する」機能を使えば、複数のメールやフォルダー全体からわずか数回のクリックで添付ファイルを保存できます。煩雑な手動操作にサヨナラし、受信トレイを簡単に管理しましょう。

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

Kutools for Outlookを使用してワンクリックで返信 👍

迅速かつ簡単に添付ファイル付きで返信するには、Kutools for Outlookを使用できます。『元の添付ファイル付きで返信』機能により、ワンクリックで元の添付ファイルを保持しながら返信できます。

必要な添付ファイルを保持したいメールを選択します。次に、Kutools ＞ 元の添付ファイル付きで返信 または 全員に元の添付ファイル付きで返信 をクリックします。

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

VBAを使用して自動的に返信

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

ステップ 1: VBAエディタを開く

1. 返信したいメールを選択します。

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

3. 左パネルで、Project1 > Microsoft Outlook Objects を展開します。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キーを押すか、Run（実行）ボタンをクリックしてマクロを実行します。

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

結果

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

結論：どの方法を選ぶべきですか？

ここでは、ニーズに最適な方法を決定するのに役立つ3つの方法の比較を示します：

ほとんどのユーザーにとって、Kutools for OutlookはOutlookで添付ファイル付きで返信する際の最も速くて簡単な方法です。これで、あなたのワークフローに最適な方法でOutlookでの添付ファイル付き返信が容易になります！🚀

デモ：Kutools for Outlookでワンクリックで添付ファイル付きで返信

関連記事：

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

---

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

最新情報: 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

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