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.
Para cambiar el nombre de una sola carpeta:
- Cambie el nombre del "Correo no deseado" actualmente existente por otro.
- Instalar Microsoft CDO .
- En Outlook, abra Herramientas → Macro → Editor de Visual Basic .
- En la ventana de Visual Basic, abra Herramientas → Referencias y habilite la entrada "Microsoft CDO 1.2.1". (Haga clic en Aceptar.)
- En el árbol izquierdo de la ventana VB, abra Project1 → Microsoft Office Outlook → ThisOutlookSession
- 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