Alterar a pasta padrão de lixo eletrônico no Outlook 2007

Question

Um antigo programa de filtro de lixo eletrônico que eu costumava usar criou uma pasta de lixo eletrônico. Quando mudei do Outlook 2003 para 2007, o Outlook criou uma nova pasta chamada Junk Email1. Agora, após nossa mudança para um novo servidor Exchange, agora tenho uma pasta "Junk Email" e a pasta "Junk Email1" existente. Existe uma maneira de alterar a pasta padrão de lixo eletrônico do Outlook de volta para "Lixo Eletrônico"?

    

Answer 1

Para redefinir rapidamente todos os nomes de pastas predefinidos:

Abra Iniciar → Executar (ou Prompt de Comando). Execute este comando:

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

Alternativamente:

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

Fontes diferentes listam os dois métodos. Eu não tentei nenhum deles.

• XCLN: nomes de pastas de caixa de correio aparecem em idiomas diferentes
• OL2002: opções adicionais de linha de comando
• Redefinir o idioma da caixa de correio

Para renomear uma única pasta:

1. Renomeie o "Junk E-mail" existente para algo diferente.
2. Instale o Microsoft CDO .
3. No Outlook, abra Ferramentas → Macro → Editor do Visual Basic .
4. Na janela do Visual Basic, abra Ferramentas → Referências e ative a entrada "Microsoft CDO 1.2.1". (Clique em OK.)
5. Na árvore do lado esquerdo da janela do VB, abra Projeto1 → Microsoft Office Outlook → ThisOutlookSession
6. Cole o seguinte script (originalmente da Microsoft KB831363 ) e execute-o.

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