返信する前にHTMLメールをRTFに変換した場合、Outlookで[ホーム]> [返信]をクリックすると、すべての添付ファイルの名前が返信メッセージにコピーされます。

1。 添付ファイルの名前をコピーする必要があるメールをダブルクリックして開き、[ メッセージ > > メッセージの編集 メッセージウィンドウで。 スクリーンショットを参照してください：

2。 クリックしてください 書式テキスト > リッチテキスト、メールを保存して閉じます。

3。 ここで、メインビューに戻ります。 メールを選択し続け、クリックします ホーム > 返信.

4。 これで、以下のスクリーンショットに示すように、すべての添付ファイルの名前が元の電子メールからコピーされ、返信メッセージに貼り付けられます。 返信メッセージを作成して送信してください。

Outlookに保存されているすべての元の添付ファイルを使用して、選択した電子メールに簡単に返信できます

通常、Outlookで電子メールに返信すると、元の添付ファイルは削除されます。 しかし、素晴らしい 添付ファイルで返信 Kutools for Outlookの機能により、Outlookで返信するときに、メールのすべての添付ファイルを簡単に保持できます。

このメソッドは、電子メールに返信するときにすべての添付ファイルの名前をコピーするVBAマクロを導入し、Outlookの返信メールのメッセージ本文に名前を貼り付けます。

1。 押す 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 左側のプロジェクトエクスプローラーで、プロジェクト1を展開し、ダブルクリックして開きます。 このOutlookSession ウィンドウ（下のスクリーンショットを参照）をクリックし、以下のコードをウィンドウに貼り付けます。

VBA：Outlookでメールに返信するときに、すべての添付ファイルの名前をコピーします

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3に設定します。 OK をクリックします。 ツール > 参考情報.

4。 Outlook 1の最初の[参照–プロジェクト2016]ウィンドウで、 Microsoft Word16.0オブジェクトライブラリ [利用可能な参照]ボックスで参照し、[ OK ボタン。 スクリーンショットを参照してください：

Note：を選択してください Microsoft Word15.0オブジェクトライブラリ Outlook 2013を使用している場合は参照、または Microsoft Word14.0オブジェクトライブラリ Outlook2010との参照。

5。 VBAを保存し、Microsoft Visual Basic forApplicationsウィンドウを閉じます。

6。 ここで、Outlookのメインインターフェイスに戻ります。 返信するメールを選択して、 ホーム > 返信 or 全員に返信.
ご注意： 添付ファイル名がコピーされて返信メールに貼り付けられていない場合は、Outlookを再起動してもう一度返信してください。

これで、すべての添付ファイルの名前が選択した電子メールからコピーされ、返信電子メールに貼り付けられます。 スクリーンショットを参照してください：