跳到主要內容

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

作者:小陽 最後修改時間:2018-11-14

通常,當您單擊“已發送郵件”文件夾中的“答复”功能以向您發送的其他人發送其他郵件時,您自己的電子郵件地址將顯示在“收件人”字段,如以下屏幕截圖所示。 每次更改地址都可能很煩。 如何使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 發布 免費版本!

體驗全新的Kutools for Outlook 免費版本擁有 70 多個令人難以置信的功能,您可以永遠使用! 點擊立即下載!

🤖 Kutools人工智慧 : 具備人工智慧魔力的即時專業電子郵件——一鍵天才回覆、完美語調、多語言掌握。輕鬆改變電子郵件! ……

📧 電子郵件自動化: 自動回覆(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 撤回電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  當重要電子郵件到來時提醒您  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

只需單擊即可立即解鎖 Kutools for Outlook -永久免費。別等了, 立即下載並提高您的效率!

Outlook 的 kutools 功能1 Outlook 的 kutools 功能2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations