如何找到丟失的文件夾在Outlook中意外移動的？

新增一名作者最後修改時間：2022-06-17

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

使用“文件夾大小”選項查找意外移動的丟失文件夾
 使用搜索和瀏覽功能查找意外移動的丟失文件夾
 查找使用 VBA 代碼意外移動的丟失文件夾
 使用神奇的工具輕鬆找到意外移動的丟失文件夾

查找丟失的文件夾，該文件夾是由“文件夾大小”選項意外移動的

假設丟失的文件夾的名稱為“ Internal”，則可以通過在“文件夾大小”對話框中瀏覽所有文件夾名稱來找到它。請執行以下操作。

1.右鍵點擊 導航窗格 然後單擊 數據文件屬性 從右鍵單擊菜單中。看截圖：

2。在裡面 今日展望 對話框並在總標籤，點擊 文件夾大小 按鈕。在開幕 文件夾大小 對話框，在文件夾框中找到丟失的文件夾。看截圖：

3.返回Outlook主界面，根據上面的文件夾路徑找到該文件夾，然後將其手動拖回到其所屬的位置。

查找丟失的文件夾，該文件夾被“搜索和瀏覽”意外移動

如果您記得丟失文件夾中任何電子郵件的標題，您可以通過搜索電子郵件標題來找到該文件夾，如下所示。

1。點擊檢索框，將搜索範圍更改為 所有郵箱，然後將電子郵件標題的任何單詞輸入到檢索框。看截圖：

2.然後，搜索出電子郵件並將其列在郵件列表中，請雙擊以打開它。

3。按 按Ctrl + 轉移 + F 鍵打開 高級查找 對話框（或者您可以選擇電子郵件並單擊檢索 > 搜索工具 > 高級查找）。在對話框中，您可以看到所選電子郵件所在文件夾的名稱顯示在 In 框，請單擊瀏覽按鈕。

4。在裡面 選擇文件夾 對話框中，您將看到丟失的文件夾當前所在的位置。記住文件夾路徑，然後單擊 OK 按鈕。

5、回到Outlook主界面，根據上面的文件夾路徑找到丟失的文件夾，然後手動將文件夾拖回原來的位置。

查找丟失的文件夾，該文件夾被VBA代碼意外移動

如果您記得丟失的文件夾的名稱，則可以直接通過其名稱找到它。

1。按其他 + 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 對話框中，在文本框中輸入丟失文件夾的名稱，然後單擊 OK 按鈕。