Як змінити папку небажаної пошти за замовчуванням у Outlook?


9

Я використовую поштову службу IMAP (fastmail.fm), яка переміщує повідомлення небажаної пошти у папку IMAP під назвою "Небажана пошта". Прогнози архівів "Небажана електронна пошта".
Як змінити Outlook, щоб він використовував папку "Небажана пошта" для "Небажана", а не за замовчуванням?

Відповіді:


2

Налаштувати fastmail.fm набагато простіше, щоб зберегти ймовірний спам у Junk E-Mailпапці, яку створює Outlook, ніж створити власну конфігурацію Outlook.

  • Увійдіть до швидкої пошти
  • Йти до Options > Spam/Virus Protection
  • Клацніть CustomпоручSpam Protection
  • Змініть папку призначення для ймовірного спаму з Junk Mailна Junk E-Mailі збережіть. Спеціальні налаштування захисту від спаму

1

Спочатку видаліть папку "Небажана пошта" швидкої пошти, якщо вона існує. Потім скористайтеся інструкціями, наведеними нижче:


Встановлення об’єктів даних про співпрацю . (Зверніть увагу, що він не встановиться безпосередньо - завантажений файл просто розпаковує реальну програму встановлення. Дратує.)

У Outlook відкрийте редактор Visual Basic: або Alt+ F11, або Інструменти - макрос - редактор Visual Basic

У вікні VB перейдіть до Інструменти - Довідки та увімкніть CDO 1.2.1у списку.

На дереві ліворуч відкрийте Project1 - Microsoft Office Outlook - ThisOutlookSession та вставте цей скрипт ( оригінальне джерело ) у вікно, що відкриється:

Sub CDORenameFolder()
    Dim outlookApp As Outlook.Application
    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 cdoSession = New MAPI.Session
    cdoSession.Logon ShowDialog:=False, NewSession:=False

    Set folder = outlookApp.Session.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 outlookApp = Nothing
End Sub

Натисніть F5(або Виконати - запустити суб ) і запустіть ThisOutlookSession.CDORenameFolderмакрос. З'явиться вікно вибору папок. Під обліковим записом IMAP виберіть папку "Небажана електронна пошта" (створену Outlook) та натисніть кнопку ОК.

(Якщо ви отримали "Тип, визначений користувачем не визначений", ви забули встановити та / або активувати CDO.)


Так, саме тому зараз я ненавиджу Outlook.


Якщо я читаю це правильно - ви жорстко кодуєте ім'я папки призначення в скрипт, а потім запускаєте скрипт, щоб вибрати джерело ?
afrazier

@afrazier: Мої навички VBScript ... погані. На момент публікації цього я мав - copypasta з Microsoft KB. (Здається, я переписав сценарій пізніше; я оновив публікацію.)
user1686

Ах, це має більше сенсу. Якщо бути справедливим до вас, якщо це було в MS KB, це теж сумно.
afrazier

@afrazier: Ні, це не так - у KB є здоровий скрипт із усім жорстким кодом - для швидкого перейменування всіх спеціальних папок на їх оригінальні назви. (Див. Посилання "оригінальне джерело".)
user1686

0

Ви не можете це зробити, але ви можете створити правило для переміщення небажаної пошти з папки, в якій вони розміщені, до стандартної папки небажаної пошти.

Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.