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

返信前に HTML メールを RTF 形式に変換している場合、Outlook で［ホーム］タブの［返信］をクリックすると、すべての添付ファイル名が返信メッセージに自動的にコピーされます。

1。添付ファイル名をコピーしたいメールをダブルクリックして開き、メッセージウィンドウで次のようにクリックします。メッセージ>操作>メッセージの編集。スクリーンショットをご参照ください。

2。次に、文字書式 > リッチテキストをクリックします。その後、メールを保存して閉じます。

3。これでメインビューに戻ります。そのメールをまだ選択した状態で、次に進みましょう。ホーム>返信。

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

Outlook で返信する際に、すべての元の添付ファイルを簡単に複数の選択したメールに返信するできます

通常、Outlook でメールに返信すると、元の添付ファイルは自動的に削除されてしまいます。しかし、Kutools for Outlook の素晴らしい添付ファイル付きで返信機能を使えば、返信時にすべての添付ファイルを簡単にそのまま保持できます！

すでにKutools for Outlookがインストール済みなら、その名前をコピー機能を使えば、受信メールのすべての【添付ファイル】名を瞬時にコピーし、Outlook で返信メッセージにサッと貼り付けられます！

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

ダイアログが表示され、「附件」名がクリップボードにコピーされたことを通知します。OKをクリックして閉じてください。

2。次に、ホーム>返信をクリックして、選択したメールに返信します。

3。返信メッセージウィンドウで、本文内にカーソルを置き、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ボタンをクリックしてください。スクリーンショットを参照してください。

注：Outlook 2013 を使用している場合はMicrosoft Word 15.0 オブジェクトライブラリを、Outlook 2010 の場合はMicrosoft Word 14.0 オブジェクトライブラリをご利用ください。

5。VBA コードを保存して、Microsoft Visual Basic for Applications ウィンドウを閉じましょう。

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

これで、選択したメールに含まれるすべての添付ファイル名がコピーされ、返信メールに貼り付けられました。スクリーンショットをご確認ください。