Outlookの送信済みアイテムフォルダーで通常通り返信するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

通常、送信済みアイテムフォルダーで「返信」機能をクリックして、送信済みの相手に追加のメッセージを送信すると、次のスクリーンショットに示すように、自分のメールアドレスが「宛先」フィールドに表示されます。これにより、毎回アドレスを変更する必要があり、煩わしく感じるかもしれません。Outlookで自分のアドレスではなく、元の受信者のアドレスを使用するにはどうすればよいでしょうか？

doc reply sent emails 1

Outlookの送信済みアイテムフォルダーで「全員に返信」機能を使用して通常通り返信する

Outlookの送信済みアイテムフォルダーでVBAコードを使用して通常通り返信する

Outlookの送信済みアイテムフォルダーで「全員に返信」機能を使用して通常通り返信する

Outlookでは、「全員に返信」機能を使用することでこの問題を解決できます。以下の手順で行ってください：

送信済みのメールに返信して再送する場合、元の受信者のアドレスを保持するには、「全員に返信」ボタンをクリックしてください。次のスクリーンショットに示すように、元の受信者のアドレスが「宛先」フィールドに表示されます：

doc reply sent emails 2

Outlookの送信済みアイテムフォルダーでVBAコードを使用して通常通り返信する

時々、送信済みメッセージに返信する際に「全員に返信」機能を忘れてしまうことがあります。以下のVBAコードは、送信済みアイテムフォルダーで「返信」機能を使用して通常通り返信するのに役立ちます。次の手順に従ってください：

1. ALT + F11 キーを押したままにし、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、Project1(VbaProject.OTM)ペインから ThisOutlookSession をダブルクリックしてモジュールを開き、次のコードを空白のモジュールにコピーして貼り付けます。

VBAコード: Outlookの送信済みアイテムフォルダーで通常通り返信する：

Option Explicit
Private WithEvents GExplorer As Explorer
Private WithEvents GMailItem As MailItem
Private Sub Application_Startup()
    Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
   On Error Resume Next
   Set GMailItem = GExplorer.Selection.Item(1)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xResponse As MailItem
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim i As Integer
Dim xTo As String, xCC As String, xBCC As String, xName As String
On Error Resume Next
If Application.ActiveExplorer.CurrentFolder <> Session.GetDefaultFolder(olFolderSentMail) Then
    Exit Sub
End If
Cancel = True
Set xResponse = GMailItem.Reply
Set xRecipients = GMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
    Set xRecipient = xRecipients.Item(i)
    xName = xRecipient.Name
    If Left(xName, 1) = "'" Then
        xName = Mid(xName, 2, Len(xRecipient.Name) - 2)
    End If
    Select Case xRecipient.Type
        Case olTo
            xTo = xName & ";" & xTo
        Case olCC
            xCC = xName & ";" & xCC
        Case olBCC
            xBCC = xName & ";" & xBCC
    End Select
Next
With xResponse
    .To = xTo
    .CC = xCC
    .BCC = xBCC
End With
xResponse.Recipients.ResolveAll
xResponse.Display
End Sub

doc reply sent emails 3