Super User is a question and answer site for computer enthusiasts and power users. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

An old junk mail filter program I used to use created a junk email folder. When I moved from Outlook 2003 to 2007, Outlook created a new folder called Junk Email1. Now, after our move to a new Exchange server, I now have a "Junk Email" folder and the existing "Junk Email1" folder. Is there a way to change the default Outlook Junk Email folder back to "Junk Email"?

share|improve this question
up vote 2 down vote accepted

To quickly reset all predefined folder names:

Open Start → Run (or Command Prompt). Run this command:

reg add "HKCU\SOFTWARE\Microsoft\Office\12.0\Outlook\Setup" /v ResetFolderNames /t reg_dword /d 1 /f


"C:\Program Files\Microsoft Office\OFFICE12\outlook" /resetfoldernames

Different sources list both methods. I haven't tried any of them.

To rename a single folder:

  1. Rename the currently existing "Junk E-mail" to something else.
  2. Install Microsoft CDO.
  3. In Outlook, open Tools → Macro → Visual Basic Editor.
  4. In the Visual Basic window, open Tools → References, and enable the "Microsoft CDO 1.2.1" entry. (Click OK.)
  5. In the VB window's left-side tree, open Project1 → Microsoft Office Outlook → ThisOutlookSession
  6. Paste the following script (originally from Microsoft KB831363) and run it.

Sub CDORenameFolder()
    Dim outlookApp As Outlook.Application
    Dim outlookSession As Outlook.NameSpace
    Dim cdoSession As MAPI.Session
    Dim folder As Outlook.MAPIFolder
    Dim cdoFolder As MAPI.folder
    Dim newName As String

    Set outlookApp = New Outlook.Application
    Set outlookSession = outlookApp.Session
    Set cdoSession = New MAPI.Session
    cdoSession.Logon ShowDialog:=False, NewSession:=False

    Set folder = outlookSession.PickFolder
    Set cdoFolder = cdoSession.GetFolder(folder.EntryID, folder.StoreID)

    newName = InputBox(("Rename '" + cdoFolder.Name + "' to:"), "Rename folder", cdoFolder.Name)
    If newName <> "" Then
        cdoFolder.Name = newName
    End If

    Set cdoSession = Nothing
    Set outlookSession = Nothing
    Set outlookApp = Nothing
End Sub
share|improve this answer
The first suggestion doesn't work. I'll the other one later. – Mike Wills Jun 3 '10 at 13:53
Okay, I ran it and it changed the folder name. Only time will tell if it works. Will mark as answer after it has been confirmed. – Mike Wills Jun 3 '10 at 17:53
Did this issue recur Mike? Have the same issue with a user and Kaspersky Anti-Spam and it recurs after repairing the PST & Resetting folders & Resetting folder names (2 different outlook flags). Tempted to throw it at Kaspersky Support! :) – HaydnWVN Jan 11 '12 at 10:51

You must log in to answer this question.

Not the answer you're looking for? Browse other questions tagged .