You may have accidentally moved a folder but it is not easy to find the folder and move it back to where it belongs. This article will introduce three methods to help you find a missing folder moved by accident in Outlook.
Find a missing folder which was moved by accident by Folder Size option
Find a missing folder which was moved by accident by Search and Browse
Find a missing folder which was moved by accident by VBA code
Supposing the name of the missing folder is “Internal”, you can find it with browsing all folder names in the Folder Size dialog box. Please do as follows.
1. Right click the email account in the Navigation Pane and then click Data File Properties from the right-clicking menu. See screenshot:
2. In the Outlook Today dialog box and under the General tab, click the Folder Size button. In the opening Folder Size dialog box, find your missing folder in the folder box. See screenshot:
3. Go back to Outlook main interface, find the folder according to the above folder path, then manually drag the folder back to where it belongs.
If you remember the title of any email in the missing folder, you can find it by searching email title as below steps shown.
1. Click to activate the Search box, change the search scope to All Mailboxes, and then enter any words of the email title into the Search box. See screenshot:
2. Then the email is searched out and listed in the mail list, please double click to open it.
3. Press the Ctrl + Shift + F keys to open the Advanced Find dialog box. In the dialog, you can see the folder name of the email is displayed in the In box, please click the Browse button. See screenshot:
4. In the Select Folder(s) dialog box, you will see where the missing folder locates currently. Remember the folder path and then click the OK button.
5. Go back to Outlook main interface, find the missing folder according to the above folder path, then manually drag the folder back to where it belongs.
If you remember the name of the missing folder, you can find it by its name directly.
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy below VBA code into the code window.
VBA code: find a missing folder with its name
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. Press the F5 key to run the code.
4. In the Kutools for Outlook dialog box, enter the missing folder name into the text box and then click the OK button.
5. Click the Yes button in the following dialog box.
6. Then the missing folder is opened immediately in the Navigation Pane, please manually drag the folder back to where it belongs.
