如何在Outlook中找到被意外移動的遺失資料夾？

Author: Siluvia Last Modified: 2025-05-13

您可能不小心在Outlook中移動了一個資料夾，但要找到該資料夾並將其移回原始位置並不容易。本文將介紹四種方法，幫助您找到在Outlook中被意外移動的遺失資料夾。

使用「資料夾大小」選項查找被意外移動的遺失資料夾
 使用「搜索與瀏覽」功能查找被意外移動的遺失資料夾
 使用VBA代碼查找被意外移動的遺失資料夾
 使用一款出色的工具輕鬆查找被意外移動的遺失資料夾

通過「資料夾大小」選項查找被意外移動的遺失資料夾

假設遺失資料夾的名稱為“Internal”，您可以在「資料夾大小」對話框中瀏覽所有資料夾名稱來找到它。請按照以下步驟操作：

1. 在導航窗格中右鍵單擊郵件帳戶，然後從右鍵菜單中選擇「數據文件屬性」。參見截圖：

steps of finding a missing folder which was moved by accident by Folder Size option

2. 在「Outlook Today」對話框中的「常規」標籤下，點擊「資料夾大小」按鈕。在彈出的 「資料夾大小」對話框中，在資料夾列表中找到您的遺失資料夾。參見截圖：

3. 返回Outlook主界面，根據上述資料夾路徑找到該資料夾，然後手動將其拖回原位。

Outlook中的AI郵件助理：更聰明的回覆，更清晰的溝通（一鍵奇蹟！）免費

使用Kutools for Outlook的AI郵件助理簡化您的日常Outlook任務。這個強大的工具會從您過去的郵件中學習，提供智能且準確的答覆，優化您的郵件內容，並幫助您輕鬆起草和潤色郵件。

此功能支援：

智能回覆：根據您過去的對話獲得量身定制、精確且隨時可用的回覆。
增強內容：自動優化您的郵件文字以提高清晰度和影響力。
輕鬆撰寫：只需提供關鍵字，讓AI處理其餘部分，並有多種寫作風格可供選擇。
智能擴展：通過上下文感知建議來拓展您的思路。
摘要生成：即時獲取長郵件的簡潔概述。
全球觸及：輕鬆將您的郵件翻譯成任何語言。

此功能支援：

智能郵件回覆
優化的內容
基於關鍵字的草稿
智能內容擴展
郵件摘要生成
多語言翻譯

最重要的是，此功能永遠完全免費！不要再等待了——立即下載AI郵件助理並享受吧

通過「搜索與瀏覽」查找被意外移動的遺失資料夾

如果您記得遺失資料夾中任何郵件的標題，可以通過搜索郵件標題來找到該資料夾，具體步驟如下所示：

1. 點擊搜索框，將搜索範圍更改為「所有郵箱」，然後在搜索框中輸入郵件標題中的任意詞語。參見截圖：

steps of finding a missing folder which was moved by accident by Search and Brows

2. 然後搜索到的郵件會顯示在郵件列表中，請雙擊打開它。

3. 按下Ctrl + Shift + F鍵以打開「高級查找」對話框（或者您可以選擇郵件並點擊「搜索」 > 「搜索工具」 >「高級查找」）。在對話框中，您可以看到所選郵件所在的資料夾名稱顯示在「所在資料夾」框中，請點擊「瀏覽」按鈕。

4. 在「選擇資料夾」對話框中，您將看到遺失資料夾目前的位置。記住資料夾路徑，然後點擊「確定」按鈕。

5. 返回Outlook主界面，根據上述資料夾路徑找到遺失資料夾，然後手動將其拖回原始位置。

通過VBA代碼查找被意外移動的遺失資料夾

如果您記得遺失資料夾的名稱，可以直接通過名稱找到它。

1. 按下Alt + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 在 Microsoft Visual Basic for Applications窗口中，點擊「插入」>「模組」。然後將以下VBA代碼複製到代碼窗口中。

VBA代碼：通過名稱查找遺失資料夾

Private g_Folder As Outlook.MAPIFolder
Private g_Find As String

Public Sub FindFolder()
Dim xFldName As String
Dim xFolders As Outlook.Folders
Dim xYesNo As Integer
On Error Resume Next
Set g_Folder = Nothing
g_Find = ""
xFldName = InputBox("Folder name:", "Kutools for Outlook")
If Trim(xFldName) = "" Then Exit Sub
g_Find = xFldName
g_Find = UCase(g_Find)
Set xFolders = Application.Session.Folders
LoopFolders xFolders
If Not g_Folder Is Nothing Then
    xYesNo = MsgBox("Activate folder: " & vbCrLf & g_Folder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
    If xYesNo = vbYes Then
        Set Application.ActiveExplorer.CurrentFolder = g_Folder
    End If
Else
    MsgBox "Not found", vbInformation, "Kutools for Outlook"
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim xFolder As Outlook.MAPIFolder
Dim xFound As Boolean
On Error Resume Next
xFound = False
For Each xFolder In Folders
    If UCase(xFolder.Name) = g_Find Then xFound = True
    If xFound Then
        Set g_Folder = xFolder
        Exit For
    Else
        LoopFolders xFolder.Folders
        If Not g_Folder Is Nothing Then Exit For
    End If
Next
End Sub

3. 按下F5鍵運行代碼。

4. 在 Kutools for Outlook對話框中，將遺失資料夾的名稱輸入到文本框中，然後點擊「確定」按鈕。