Cookies help us deliver our services. By using our services, you agree to our use of cookies.
Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to find a missing folder which was moved by accident in Outlook?

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

Kutools for Outlook: 100+ New Advanced Tools for Outlook.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013, 2016 and 2019.

Find a missing folder which was moved by accident by Folder Size option

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.


Find a missing folder which was moved by accident by Search and Browse

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.


Find a missing folder which was moved by accident by VBA code

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.


Related articles:



Kutools for Outlook

More than 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 and 365

screen shot kutools for outlook tiny for banner 201812

More Features  |  Free Download  |  Only $39.00 for hundreds of functions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nikhil · 22 days ago
    Thanks a ton!
  • To post as a guest, your comment is unpublished.
    J Collins · 2 months ago
    I'm trying to run macro but I get the following window box:

    Compile error:

    Invalid outside procedure