提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何從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 窗口,雙擊 ThisOutlookSession 來自 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警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.