Cambiar la carpeta predeterminada de correo no deseado en Outlook 2007

Un antiguo programa de filtro de correo no deseado que solía usar creó una carpeta de correo no deseado. Cuando me mudé de Outlook 2003 a 2007, Outlook creó una nueva carpeta llamada Correo no deseado1. Ahora, después de mudarnos a un nuevo servidor de Exchange, ahora tengo una carpeta "Correo no deseado" y la carpeta "Correo no deseado1" existente. ¿Hay alguna manera de cambiar la carpeta predeterminada de correo electrónico no deseado de Outlook a "Correo no deseado"?

Para restablecer rápidamente todos los nombres de carpetas predefinidos:

Abra Inicio → Ejecutar (o Símbolo del sistema). Ejecute este comando:

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

Alternativamente:

"C: \ Archivos de programa \ Microsoft Office \ OFFICE12 \ outlook" / resetfoldernames

Diferentes fuentes enumeran ambos métodos. No he probado ninguno de ellos.

• XCLN: los nombres de las carpetas de buzones aparecen en diferentes idiomas
• OL2002: Interruptores adicionales de línea de comandos
• Restablecer idioma del buzón

Para cambiar el nombre de una sola carpeta:

1. Cambie el nombre del "Correo no deseado" actualmente existente por otro.
2. Instalar Microsoft CDO .
3. En Outlook, abra Herramientas → Macro → Editor de Visual Basic .
4. En la ventana de Visual Basic, abra Herramientas → Referencias y habilite la entrada "Microsoft CDO 1.2.1". (Haga clic en Aceptar.)
5. En el árbol izquierdo de la ventana VB, abra Project1 → Microsoft Office Outlook → ThisOutlookSession
6. Pegue el siguiente script (originalmente de Microsoft KB831363 ) y ejecútelo.

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