如何在Outlook的已傳送郵件資料夾中正常回覆？

Author: Xiaoyang Last Modified: 2025-08-06

一般情況下，當您點擊「已傳送郵件」資料夾中的「答覆」功能以向您已傳送過的人員發送另一條附加訊息時，您的電子郵件地址將顯示在「收件人」欄位中，如下方截圖所示。每次都要更改地址可能會讓您感到困擾。該如何讓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