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

Author: Kelly Last Modified: 2025-08-06

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

手動でコピー＆ペーストして添付ファイル付きで返信 （基本的で面倒）

Kutools for Outlookを使用したワンクリックで添付ファイル付きで返信 👍 （高速で簡単）

VBAを使用して添付ファイル付きで自動返信 （技術的で設定が必要）

手動でコピー＆ペーストして添付ファイル付きで返信

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

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

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

the screenshot of step about replying with attachments by manually copying and pasting 1

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

the screenshot of step about replying with attachments by manually copying and pasting 2

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

the screenshot of step about replying with attachments by manually copying and pasting 3

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

制限事項：

手動で繰り返し作業が必要：頻繁に使用するには適さない。
時間のかかる：毎回余分なステップが必要。
エラーが発生しやすい：添付ファイルをコピー＆ペーストすることを忘れる可能性がある。

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

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

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

Kutools for Outlookを使用したワンクリックで添付ファイル付きで返信 👍

添付ファイル付きで簡単に返信する方法として、Kutools for Outlookを使用できます。「元の添付ファイル付きで返信」機能を使えば、ワンクリックで元の添付ファイルを保持しながら返信できます。

Kutools for Outlookで究極のメール効率を解き放とう！強力な70の機能を永久に無料で利用できます。今すぐ無料版をダウンロード！

必要な添付ファイルが含まれているメールを選択し、「Kutools」＞「元の添付ファイル付きで返信」または「全員に元の添付ファイル付きで返信」をクリックします。

the screenshot of the Reply with Original Attachment or Reply All with Original Attachment button

これで完了です！返信メッセージには元のメールのすべての添付ファイルが自動的に含まれます。メッセージを作成して「送信」をクリックするだけです。

the screenshot of keeping attchments in replying email using Kutools for Outlook

なぜKutools for Outlookを使うべきなのか？

✅ 時間の節約：添付ファイルを手動でコピー＆ペーストする必要がない。
✅ ワンクリックソリューション：添付ファイル付きで即座に返信できる。
✅ 利用しやすい：技術的なスキルがなくても簡単に使える。

注意： 元の添付ファイル付きで返信機能を使用するには、まずKutools for Outlookをダウンロードしてインストールする必要があります。

VBAを使用して添付ファイル付きで自動返信

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

💡 重要なお知らせ: VBAマクロを実行する前に、Outlookでマクロを有効にする必要があります。

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

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

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

3. 左パネルでProject1 > Microsoft Outlook Objectsを展開し、ThisOutlookSessionをダブルクリックして開きます。

the screenshot of the ThisOutlookSession option

ステップ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を選択して「実行」をクリックします。

the screenshot of the Macros dialog box

結果

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

VBA方式の長所と短所：

✅ 自動化：添付ファイルを手動でコピー＆ペーストする必要がない。
❌ VBAの知識が必要：初心者には適さない可能性がある。
❌ マクロはデフォルトで無効：手動で有効にする必要がある。

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

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

方法	最適な用途	使いやすさ	効率性
手動コピー＆ペースト	時々の使用	⭐⭐⭐⭐	⭐⭐
Kutools for Outlook	日常的な使用、非技術的ユーザー	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐
VBAマクロ	自動化愛好家、上級ユーザー	⭐⭐⭐	⭐⭐⭐⭐