如何找到丢失的文件夹在Outlook中意外移动的？

您可能不小心在 Outlook 中移动了一个文件夹，但要找到该文件夹并将其移回其原始位置并不容易。本文将介绍四种方法来帮助您在 Outlook 中找到意外移动的丢失文件夹。

使用“文件夹大小”选项查找意外移动的丢失文件夹
 使用搜索和浏览功能查找意外移动的丢失文件夹
 查找使用 VBA 代码意外移动的丢失文件夹
 使用神奇的工具轻松找到意外移动的丢失文件夹

查找丢失的文件夹，该文件夹是由“文件夹大小”选项意外移动的

假设丢失的文件夹的名称为“ Internal”，则可以通过在“文件夹大小”对话框中浏览所有文件夹名称来找到它。请执行以下操作。

1.右键点击 导航窗格 依次 数据文件属性 从右键单击菜单中。看截图：

2。在里面 今日展望 对话框并在一般标签，点击 文件夹大小 按钮。在开幕 文件夹大小 对话框，在文件夹框中找到丢失的文件夹。看截图：

3.返回Outlook主界面，根据上面的文件夹路径找到该文件夹，然后将其手动拖回到其所属的位置。

查找丢失的文件夹，该文件夹被“搜索和浏览”意外移动

如果您记得丢失文件夹中任何电子邮件的标题，您可以通过搜索电子邮件标题来找到该文件夹，如下所示。

1。点击搜索框，将搜索范围更改为 所有邮箱，然后将电子邮件标题的任何单词输入到搜索框。看截图：

2.然后，搜索出电子邮件并将其列在邮件列表中，请双击以打开它。

3。按 按Ctrl + 转移 + F 键打开 高级查找 对话框（或者您可以选择电子邮件并单击搜索 > 搜索工具 > 高级查找）。在对话框中，您可以看到所选电子邮件所在文件夹的名称显示在 In 框，请单击浏览按钮。

4。在里面 选择文件夹 对话框中，您将看到丢失的文件夹当前所在的位置。记住文件夹路径，然后单击 OK 按钮。

5、回到Outlook主界面，根据上面的文件夹路径找到丢失的文件夹，然后手动将文件夹拖回原来的位置。

查找丢失的文件夹，该文件夹被VBA代码意外移动

如果您记得丢失的文件夹的名称，则可以直接通过其名称找到它。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。在里面 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将下面的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 展望 对话框中，在文本框中输入丢失文件夹的名称，然后单击 OK 按钮。