如何從Outlook中的已發送郵件文件夾中正常答复？ 

通常，當您單擊“已發送郵件”文件夾中的“答复”功能以向您發送的其他人發送其他郵件時，您自己的電子郵件地址將顯示在“收件人”字段，如以下屏幕截圖所示。 每次更改地址都可能很煩。 如何使Outlook使用原始收件人的地址，而不是您的地址？

通過Outlook的“全部答复”功能正常在“已發送郵件”文件夾中進行答复

使用VBA代碼從Outlook中的“已發送郵件”文件夾中正常答复

通過Outlook的“全部答复”功能正常在“已發送郵件”文件夾中進行答复

在Outlook中， 全部回复 功能可以幫助您解決此問題，請按以下步驟操作：

當您需要回复已發送的電子郵件以再次發送以保留原始收件人的地址時，請單擊 全部回复 按鈕，原始收件人的地址位於 至 如下圖所示的屏幕截圖：

使用VBA代碼從Outlook中的“已發送郵件”文件夾中正常答复

有時，您可能會忘記 全部回复 回复已發送的郵件時使用“電子郵件發送”功能，因此下面的VBA代碼可以幫助您使用“回复”功能在“已發送郵件”文件夾中正常回复。 執行以下步驟：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 在 Microsoft Visual Basic for Applications 窗口，雙擊 本次展望會議 來自 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

3。 然後，保存代碼，然後在單擊時重新啟動Outlook以使代碼生效。 回复 重新發送電子郵件 發送的郵件 文件夾中，根據需要在“收件人”字段中顯示原始收件人的地址。