如何在Outlook的已发送邮件文件夹中正常回复？

Author: Xiaoyang Last Modified: 2025-07-31

通常情况下，当您在“已发送邮件”文件夹中点击“答复”功能以向已发送邮件的收件人发送另一条附加消息时，您的电子邮件地址会显示在“收件人”字段中，如下图所示。每次更改地址可能会让您感到烦恼。那么，如何让Outlook使用原始收件人的地址而不是您的呢？

doc reply sent emails 1

通过“全部答复”功能在Outlook的已发送邮件文件夹中正常回复

通过VBA代码在Outlook的已发送邮件文件夹中正常回复

通过“全部答复”功能在Outlook的已发送邮件文件夹中正常回复

在Outlook中，“全部答复”功能可以帮助您解决此问题，请按照以下步骤操作：

当您需要回复已发送的邮件并再次发送以保留原始收件人的地址时，请点击“全部答复”按钮，原始收件人的地址将位于“收件人”字段中，如下图所示：

doc reply sent emails 2

通过VBA代码在Outlook的已发送邮件文件夹中正常回复

有时，您可能会忘记在回复已发送消息时使用“全部答复”功能，因此以下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