Change the default Junk Email folder in Outlook 2007

Question

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"?

Answer 1

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

Alternatively:

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

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

• XCLN: Names of Mailbox Folders Appear in Different Languages
• OL2002: Additional Command-Line Switches
• Reset Mailbox Language

---

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
        cdoFolder.Update
    End If

    cdoSession.Logoff
    Set cdoSession = Nothing
    Set outlookSession = Nothing
    Set outlookApp = Nothing
End Sub