Cambiar la carpeta predeterminada de correo no deseado en Outlook 2007


1

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

Respuestas:


2

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:

  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

La primera sugerencia no funciona. Yo el otro más tarde.
Mike Wills

Bien, lo ejecuté y cambió el nombre de la carpeta. Solo el tiempo dirá si funciona. Marcará como respuesta después de que se haya confirmado.
Mike Wills

¿Este problema recurre Mike? Tiene el mismo problema con un usuario y Kaspersky Anti-Spam y se repite después de reparar el PST y restablecer carpetas y restablecer nombres de carpetas (2 indicadores de perspectiva diferentes). ¡Tentado a tirarlo a Kaspersky Support! :)
HaydnWVN
Al usar nuestro sitio, usted reconoce que ha leído y comprende nuestra Política de Cookies y Política de Privacidad.
Licensed under cc by-sa 3.0 with attribution required.