Note: The other languages of the website are Google-translated. Back to English

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

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

doc回复已發送電子郵件1

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

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


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

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

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

doc回复已發送電子郵件2


使用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

doc回复已發送電子郵件3

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


Kutools for Outlook-為Outlook帶來100個高級功能,並使工作更加輕鬆!

  • 自動CC / BCC 根據規則發送電子郵件; 自動前進 自定義多封電子郵件; 自動回复 沒有交換服務器,還有更多自動功能...
  • BCC警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護