在Outlook中查找所有轉發電子郵件的2種快速方法

如果您想在Outlook中快速找到轉發給其他人的所有電子郵件，可以閱讀本文。 在這裡，我們將與您分享2種有效的方式。

眾所周知，轉發的電子郵件在圖標中包含一個藍色的右箭頭。 在大量電子郵件中很容易識別它。 有時，您可能要檢查Outlook中轉發的所有內容。 在這種情況下，為方便起見，您必須找出它們並將它們收集在同一位置。 Outlook不為用戶提供搜索轉發電子郵件的直接標準。 但是，您仍然可以通過以下兩種方法輕鬆實現它。

方法1：在一個文件夾中搜索轉發的電子郵件

1. 首先，打開一個郵件文件夾，例如“收件箱”。
2. 然後，轉到“查看”選項卡，然後單擊“查看設置”按鈕。
3. 接下來，在彈出對話框中，單擊“過濾器”按鈕。
4. 隨後，在新對話框中，轉到“ SQL”選項卡。
5. 之後，選中“直接編輯這些條件。 其他所有選項卡將在底部不可用。
6. 然後，將光標放在上面的框中，然後將以下條件複製到其中。

http://schemas.microsoft.com/mapi/proptag/0x10810003 = 104

7. 最終，單擊一系列“確定”以保存視圖設置。
8. 返回文件夾後，您會發現只有轉發的電子郵件在那兒，如下圖所示。

方法2：搜索所有文件夾中的轉發電子郵件

1. 首先，透過「Alt + F11」啟動 Outlook VBA 編輯器。
2. 然後，將以下VBA代碼放入模塊中。

Sub GetEmailForwardedStatus()
    Dim objPSTFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
 
    'Process all folders in your default Outlook file
    Set objPSTFolders = Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders
 
    For Each objFolder In objPSTFolders
        If objFolder.DefaultItemType = olMailItem Then
           Call ProcessFolders(objFolder)
        End If
    Next
End Sub

Sub ProcessFolders(ByVal objFolder As Outlook.Folder)
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objForwardedProperty As Outlook.UserProperty
    Dim strForwardedStatus As String
    Dim objSubFolder As Outlook.Folder
 
    'Get the forwarded status of all mails
    For i = objFolder.Items.Count To 1 Step -1
        If TypeOf objFolder.Items(i) Is MailItem Then
           Set objMail = objFolder.Items(i)
 
           Set objForwardedProperty = objMail.UserProperties.Find("Forwarded", True)
           If objForwardedProperty Is Nothing Then
              Set objForwardedProperty = objMail.UserProperties.Add("Forwarded", olText, True)
           End If
 
           strForwardedStatus = objMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")
           If strForwardedStatus = 104 Then
              objForwardedProperty.Value = "Yes"
           Else
              objForwardedProperty.Value = "No"
           End If
 
           objMail.Save
        End If
    Next
 
    'Process subfolders recursively
    If objFolder.Folders.Count > 0 Then
       For Each objSubFolder In objFolder.Folders
           If objSubFolder.DefaultItemType = olMailItem Then
              Call ProcessFolders(objSubFolder)
           End If
       Next
    End If
End Sub

3. 接下來，單擊第一個子例程，然後按“ F5”鍵。
4. 隨後，退出VBA編輯器。
5. 然後，在郵件文件夾列表中，右鍵單擊“搜索文件夾”，然後選擇“新建搜索文件夾”。
6. 在彈出對話框中，選擇“創建自定義搜索文件夾”，然後單擊“選擇”按鈕。
7. 然後，在“自定義搜索文件夾”對話框中，在“名稱”字段中輸入“轉發的電子郵件”，然後單擊“條件”按鈕。
8. 稍後，在最新的對話框中，切換到“高級”選項卡並添加以下過濾器。

• “轉發”>“是（完全）”>“是”

9. 最後，單擊幾個“確定”以創建這樣的自定義搜索文件夾。
10. 成功創建後，在此搜索文件夾中，默認Outlook數據文件中的所有轉發電子郵件都已收集在此處，如下圖所示。

擺脫Outlook數據丟失

對於每個Outlook普通用戶，Outlook數據丟失肯定是不可接受的。 因此，必須採取一些有效措施，包括對PST文件進行定期數據備份，學習如何使用收件箱修復工具以及準備可靠而有效的工具。 PST修復 工具，例如 DataNumen Outlook Repair。 通過這些準備工作，即使PST文件已損壞，您仍然可以輕鬆地恢復它們。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM