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

通常，当您单击“已发送邮件”文件夹中的“答复”功能以向您发送的人发送另一封其他邮件时，您自己的电子邮件地址将显示在“收件人”字段，如以下屏幕截图所示。每次更改地址都可能很烦。如何使Outlook使用原始收件人的地址，而不是您的地址？

doc回复已发送电子邮件1

从Outlook的“已发送邮件”文件夹中以“全部答复”功能正常答复

使用VBA代码从Outlook中的“已发送邮件”文件夹中正常答复

从Outlook的“已发送邮件”文件夹中以“全部答复”功能正常答复

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

如果您需要回复已发送的电子邮件以再次发送以保留原始收件人的地址，请单击 全部回复 按钮，原始收件人的地址位于至如下图所示的屏幕截图：

doc回复已发送电子邮件2

使用VBA代码从Outlook中的“已发送邮件”文件夹中正常答复

有时，您可能会忘记 全部回复 回复已发送的邮件时使用“电子邮件发送”功能，因此下面的VBA代码可以帮助您使用“回复”功能在“已发送邮件”文件夹中正常回复。执行以下步骤：

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。在 Microsoft Visual Basic应用程序 窗口，双击 本次展望会议 来自 Project1（VbaProject.OTM） 窗格以打开模式，然后将以下代码复制并粘贴到空白模块中。

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回复已发送电子邮件3