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


9

Я использую почтовый сервис IMAP (fastmail.fm), который перемещает нежелательные почтовые сообщения в папку IMAP, которая называется «Нежелательная почта». Outlook архивирует нежелательную почту на «нежелательную почту».
Как изменить Outlook, чтобы он использовал папку «Нежелательная почта» для нежелательной вместо стандартной?

Ответы:


2

Настроить fastmail.fm гораздо проще для сохранения вероятного спама в Junk E-Mailпапке, которую создает Outlook, чем для создания пользовательской конфигурации Outlook.

  • Войти в fastmail
  • Перейти к Options > Spam/Virus Protection
  • Нажмите Customрядом сSpam Protection
  • Измените папку назначения для вероятного спама с Junk Mailна Junk E-Mailи сохраните. Пользовательские настройки защиты от спама

1

Во-первых, удалите папку fastmail «Junk Mail», если она существует в данный момент. Затем используйте инструкции ниже:


Установите объекты данных совместной работы . (Обратите внимание, что он не будет установлен напрямую - загруженный файл просто распаковывает настоящий установщик. Раздражает.)

В 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(или Run - Run Sub ) и запустите ThisOutlookSession.CDORenameFolderмакрос. Должно появиться окно выбора папки. Под своей учетной записью IMAP выберите папку «Нежелательная почта» (созданную в Outlook) и нажмите «ОК».

(Если вы получаете «Определяемый пользователем тип не определен», значит, вы забыли установить и / или активировать CDO.)


Да, именно поэтому я ненавижу Outlook сейчас.


Если я правильно читаю - вы жестко кодируете имя папки назначения в сценарии, а затем запускаете сценарий для выбора источника ?
afrazier

@afrazier: Мои навыки в VBScript плохие. На момент публикации, это то, что у меня было - copypasta из Microsoft KB. (Кажется, я позже переписал скрипт; я обновил пост.)
user1686

Ах, это имеет больше смысла. Если быть честным, если это то, что было в MS KB, это тоже довольно печально.
afrazier

@afrazier: Нет, это не так - у КБ есть нормальный скрипт со всем жестко закодированным - для быстрого переименования всех специальных папок в их исходные имена. (См. Ссылку «первоисточник».)
user1686 14.12.10

0

Нет никакого способа сделать это, но вы можете создать правило для перемещения нежелательной почты из папки, в которой они находятся, в папку нежелательной почты по умолчанию.

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.