Outlook で、元の添付ファイル付きですべての宛先に返信するにはどうすればよいですか？

Outlook で「全員に返信」をクリックしたら、元の添付ファイルが消えてしまった経験はありませんか？本当にイライラしますよね！ 「全員に返信するときに、添付ファイルをそのまま保持する方法はないの？」とお思いではありませんか？ 実は、可能です！ 今回は、返信メールに元の添付ファイルを確実に含める方法をご紹介します。これで、メール管理がさらにスムーズで効率的になります。ぜひ最後までご覧ください！

VBA コードで元の【Attachment】付きで全員に返信

Kutools for Outlook で元の【Attachment】付きで全員に返信

---

VBA コードで元の【Attachment】付きで全員に返信

Outlook にはこのタスクを直接処理する機能はありませんが、以下の VBA コードを使えば実現できます。下記の手順に従って操作してください。

1．Outlook を起動し、ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、ThisOutlookSessionをProject1 (VbaProject.OTM)ペインからダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

VBA コード：添付ファイル付きで全員に返信：

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = 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

3．次に、Microsoft Visual Basic for Applicationsウィンドウでツール＞参照をクリックし、表示された参照－Project1ダイアログボックスで、利用可能な参照リストボックスからMicrosoft Scripting Runtimeオプションにチェックを入れてください（下記スクリーンショット参照）。

4．その後、コードウィンドウを保存して閉じ、マクロボタンをクイックアクセスツールバーに追加できます。

5．添付ファイル付きで全員に返信したいメールをメッセージウィンドウで開き、その他のコマンドをクイックアクセスツールバーのカスタマイズドロップダウンメニューから選択してください（下記スクリーンショット参照）。

6．Outlook のオプションダイアログボックスで、次の操作を行います。

（1．）マクロを、次のコマンドの選択ドロップダウンリストから選択します。

（2．）直前に挿入したマクロの名前をクリックします。

（3．）次に、追加ボタンをクリックして、マクロをクイックアクセスツールバーのカスタマイズに追加しましょう。

7．次に、OKをクリックしてダイアログボックスを閉じます。クイックアクセスツールバーにマクロボタンが追加されました（下記スクリーンショット参照）。

8．マクロボタンをクリックすると、元の添付ファイル付きの返信メッセージウィンドウが開きますので、返信内容を作成して、送信ボタンをクリックしてください（下記スクリーンショット参照）。

---

Kutools for Outlook で元の【Attachment】付きで全員に返信

もしKutools for Outlookをお持ちなら、添付ファイル付きで全員に返信機能を使えば、たった1 回のクリックで【Attachment】付きの全員返信が完了します。

Kutools for Outlook をインストール後、次の手順に従って操作してください。Kutools for Outlook

1．全員に【Attachment】付きで返信したいメッセージを選択し、Kutools＞元の添付ファイル付きで全員に返信をクリックしてください（下記スクリーンショット参照）。

2．すると、元の添付ファイル付きの返信メッセージウィンドウが開きますので、メッセージを作成して送信してください（下記スクリーンショット参照）。

今すぐ今すぐKutools for Outlook の無料版をダウンロード！