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

Microsoft Outlookで電子メールメッセージを転送する場合、この電子メールメッセージの元の添付ファイルは転送されたメッセージに残ります。 ただし、電子メールメッセージに返信する場合、元の添付ファイルは新しい返信メッセージに添付されません。 ここでは、MicrosoftOutlookで返信するときに元の添付ファイルを保持するためのいくつかの秘訣を紹介します。

手動でコピーして貼り付けることにより、添付ファイルで返信する
VBAによって自動的に添付ファイルで返信する
ワンクリックでKutoolsforOutlookの添付ファイルを返信

手動でコピーして貼り付けることにより、添付ファイルで返信する

電子メールメッセージの元の添付ファイルを手動でコピーし、後で電子メールメッセージに返信するときに[返信メッセージ]ウィンドウに貼り付けることができます。

ステップ1：電子メールメッセージをクリックして、閲覧ウィンドウでプレビューします。

手順2：プレビューメールメッセージで添付ファイルをXNUMXつ右クリックし、 すべてを選択します。 右クリックメニューから。

手順3：選択した添付ファイルを右クリックして、 コピー 右クリックメニューから。

ステップ4：をクリックしてメールメッセージに返信する 返信 上のボタン ホーム タブ（またはOutlook 2007のツールバー）。

手順5：[返信メッセージ]ウィンドウで、[ 貼り付ける 上のボタン ビデオメッセージ これらの添付ファイルを貼り付けるタブ。

Outlook 2013以降のバージョンを使用している場合は、[ 飛び出る 閲覧ウィンドウの左上隅にある[返信メッセージ]ウィンドウを解放します。 詳細はクリックしてください…

手順6：返信メッセージを作成し、[ 送信

VBAによって自動的に添付ファイルで返信する 

元の添付ファイルで自動的に返信するのに役立つVBAマクロがあります。

注：VBAマクロを実行する前に、次のことを行う必要があります。 MicrosoftOutlookでマクロを有効にする.

ステップ1：添付ファイルを付けて返信する電子メールメッセージを選択します。

ステップ2： 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

手順3：左側のバーでProject1オブジェクトとMicrosoft Outlookオブジェクトを展開し、 このOutlookSession それを開く。

手順4：次のコードをThisOutlookSessionウィンドウに貼り付けます。

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    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 Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New 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 = ""
    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

ステップ5： F5 このマクロを実行するためのキー。 オープニングで マクロ ダイアログボックスで、をクリックします。 RunReplyAllWithAttachments 添付ファイルを付けて全員に返信したい場合。 それ以外の場合は、 RunReplyWithAttachments、 クリックします ラン

次に、元の添付ファイルをすべて添付した[返信メッセージ]ウィンドウを開きます。

手順6：返信メッセージを作成し、[ 送信

Outlook用Kutoolsを使用して添付ファイルで自動的に返信する

　 添付で返信 の有用性 Kutools for Outlook ワンクリックで元の添付ファイル付きのメールに返信するのに役立ちます。

Kutools for Outlook ：100以上の便利なOutlookアドイン、 60日以内に制限なしで無料でお試しいただけます.

1.返信する必要のある添付ファイルが含まれているメールを選択します。

2。 次に、をクリックします クツール > 添付ファイルで返信 > 添付ファイルで返信。 スクリーンショットを参照してください：

次に、選択した電子メールのすべての添付ファイルが 添付の 返信メッセージのフィールド。 メールを作成して送信します。

このユーティリティの無料トライアルをご希望の場合は、 ソフトウェアを無料でダウンロード まず、上記の手順に従って操作を適用します。

ワンクリックでKutoolsforOutlookの添付ファイルを返信

関連記事：

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

---

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

Kutools for Outlook - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロ: バッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

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

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

続きを読む       無料ダウンロード      購入