Изменить папку нежелательной почты по умолчанию в Outlook 2007

Question

Старая программа фильтрации нежелательной почты, которую я использовал, создавала папку нежелательной почты. Когда я перешел с Outlook 2003 на 2007, Outlook создал новую папку с именем Junk Email1. Теперь, после нашего перехода на новый сервер Exchange, у меня теперь есть папка "Нежелательная почта" и существующая папка "Нежелательная почта1". Есть ли способ изменить папку нежелательной почты Outlook по умолчанию обратно на "Нежелательная почта"?

Answer 1

Чтобы быстро сбросить все предопределенные имена папок:

Откройте Пуск → Выполнить (или Командная строка). Запустите эту команду:

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

В качестве альтернативы:

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

В разных источниках перечислены оба метода. Я не пробовал ни одного из них.

• XCLN: имена папок почтовых ящиков отображаются на разных языках
• OL2002: Дополнительные параметры командной строки
• Сбросить язык почтового ящика

---

Чтобы переименовать одну папку:

1. Переименуйте существующее в настоящий момент «Нежелательное письмо» на другое.
2. Установите Microsoft CDO.
3. В Outlook откройте Инструменты → Макрос → Редактор Visual Basic.
4. В окне Visual Basic откройте Инструменты → Ссылки и включите запись «Microsoft CDO 1.2.1». (Нажмите ОК.)
5. В левом дереве окна VB откройте Project1 → Microsoft Office Outlook → ThisOutlookSession
6. Вставьте следующий скрипт (изначально из Microsoft KB831363) и запустите его.

---

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