Outlookで返信する際にすべての添付ファイルの名前をコピーするにはどうすればよいですか？

HTMLメールを返信前にRTFに変換していれば、Outlookで「ホーム」＞「返信」をクリックした後、すべての添付ファイルの名前が返信メッセージにコピーされます。

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

2続けてクリックします。 テキストの書式設定 > リッチ テキストその後、保存してメールを閉じます。

3. これでメインビューに戻ります。 メールを選択したまま、「 ホーム」＞「 返信」をクリックします。

4元のメールからすべての添付ファイルの名前がコピーされ、返信メッセージに貼り付けられました（下のスクリーンショット参照）。 返信メッセージを作成し、送信してください。

Outlookで選択したメールにオリジナルの添付ファイルをすべて保持して簡単に返信する

一般的に、Outlookでメールに返信すると、元の添付ファイルは削除されます。 しかし、素晴らしい 添付ファイル付きで返信 Kutools for Outlookの機能を使用すると、Outlookでメールに返信する際にすべての添付ファイルを簡単に保持できます。

Kutools for Outlookがインストールされている場合、その「名前をコピー」機能を使用して、受信したメールからすべての添付ファイルの名前をすばやくコピーし、Outlookで返信メッセージに簡単に貼り付けることができます。

1返信するメールを選択し、クリックします。 Kutools Plus > 添付ファイルツール > 名前をコピー.

ダイアログが表示され、添付ファイルの名前がクリップボードにコピーされたことを知らせます。 「OK」をクリックして閉じます。

2. 続けて「ホーム」＞「返信」をクリックして、選択したメールに返信します。

3返信メッセージウィンドウで、メッセージ本文にカーソルを置き、「Ctrl」＋「V」キーを押して添付ファイルの名前を簡単に貼り付けます。 Ctrl + V キーを押して、添付ファイルの名前を簡単に貼り付けます。

この方法では、メールに返信する際にすべての添付ファイルの名前をコピーし、Outlookの返信メールの本文に名前を貼り付けるVBAマクロを紹介します。

1. 「Alt」＋「F11」キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

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

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. 「ツール 」＞「参照設定」をクリックします。

4開いた「参照設定 – プロジェクト1」ウィンドウ（Outlook 2016の場合）で、 Microsoft Word 16.0 オブジェクト ライブラリ 利用可能な参照ボックス内の参照をチェックし、「OK」ボタンをクリックします。 スクリーンショットをご覧ください： OK ボタンをクリックします。 スクリーンショットをご覧ください：

注意以下を選択してください： Microsoft Word 15.0 オブジェクト ライブラリ Outlook 2013を使用している場合、または Microsoft Word 14.0 オブジェクト ライブラリ Outlook 2010での参照です。

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

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

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