Outlookで元の添付ファイルを含めて全員に返信するにはどうすればよいですか?
Outlookで「全員に返信」を押して、元の添付ファイルが消えてしまったことはありませんか?それはイライラしますよね!全員に返信する際にその添付ファイルを保持する方法が気になりますか?はい、可能です!では、どのように元の添付ファイルを返信に含めるか見ていきましょう。これにより、メール管理がスムーズかつ効率的になります。お楽しみに!
Kutools for Outlookを使用して全員に元の添付ファイル付きで返信する
VBAコードを使用して全員に元の添付ファイル付きで返信する
このタスクを直接処理する機能はOutlookにはありませんが、以下のVBAコードを適用することで実現できます。以下の手順で行ってください:
1. Outlookを起動し、ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。
2. Microsoft Visual Basic for Applicationsウィンドウで、Project1(VbaProject.OTM)ペインから ThisOutlookSessionをダブルクリックしてモードを開き、次のコードを空白のモジュールにコピーして貼り付けます。
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ウィンドウで Tools > Referencesをクリックし、表示されたReferences-Project1ダイアログボックスでAvailable ReferencesリストボックスからMicrosoft Scripting Runtimeオプションをチェックしてください。スクリーンショットをご覧ください:

4. その後、コードウィンドウを保存して閉じ、次にマクロボタンをクイックアクセスツールバーに追加します。
5. メッセージウィンドウで全員に返信したいメールを開き、カスタマイズクイックアクセスツールバードロップダウンからMore Commandsを選択します。スクリーンショットをご覧ください:

6. Outlook Optionsダイアログボックスで、次の操作を行います:
(1.) Choose commands fromドロップダウンリストからMacrosを選択します;
(2.) 今挿入したばかりのマクロ名をクリックします;
(3.) そしてAddボタンをクリックして、マクロをカスタマイズクイックアクセスツールバーに追加します。

7. 次にOKをクリックしてダイアログボックスを閉じると、マクロボタンがクイックアクセスツールバーに挿入されています。スクリーンショットをご覧ください:

8. これで、マクロボタンをクリックすると、元の添付ファイル付きの返信メッセージウィンドウが開きますので、返信メッセージを作成し、Sendボタンをクリックします。スクリーンショットをご覧ください:

Kutools for Outlookを使用して全員に元の添付ファイル付きで返信する
Kutools for Outlookを持っている場合、Reply All with Attachment機能を使用して、ワンクリックで全員に添付ファイル付きで返信できます。
Kutools for Outlookで究極のメール効率を解き放とう!強力な70の機能を永久に無料で利用できます。今すぐ無料版をダウンロード!
Kutools for Outlookをインストール後、以下のように操作してください:
1. 添付ファイル付きで全員に返信したいメッセージを選択し、Kutools > Reply All with Original Attachmentをクリックします。スクリーンショットをご覧ください:

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

今すぐKutools for Outlookの無料版をダウンロードするにはここをクリック!
最高のオフィス生産性ツール
速報: Kutools for Outlook が無料版をリリース!
新しい Kutools for Outlook の無料版を体験してください。70以上の素晴らしい機能が永遠に使えます!今すぐダウンロードをクリック!
🤖 Kutools AI : 高度なAI技術を使用して、メールの返信、要約、最適化、拡張、翻訳、作成を簡単に行います。
📧 メール自動化: 自動返信 (POPとIMAPで利用可能) / メール送信のスケジュール / メール送信時にルールによる自動 CC/BCC / 自動転送 (高度なルール) / 自動挨拶追加 / 複数の宛先を持つメールを個別のメールに自動的に分割...
📨 メール管理: メールの取り消し / 件名やその他によるスパムメールのブロック / 重複したメールの削除 / 高度な検索 / フォルダーを整理...
📁 添付ファイルプロ: バッチ保存 / バッチ切り離し / バッチ圧縮 / 自動保存 / 自動的に切り離す / 自動圧縮...
🌟 インターフェースマジック: 😊より美しくクールな絵文字 /重要なメールが来たときに通知 / クローズ中ではなくOutlookを最小化...
👍 ワンクリックの驚き: 全員に【Attachment】付きで返信 / フィッシング対策メール / 🕘送信者のタイムゾーンを表示...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 /連絡先グループを個別のグループに分割 / 誕生日のリマインダーを削除...
Kutools for Outlook をワンクリックで即座にアンロック。待たずに今すぐダウンロードして効率を高めましょう!

