Я использую почтовый сервис IMAP (fastmail.fm), который перемещает сообщения Спама в папку IMAP под названием "Спам". Outlook архивирует Спам к "Спаму".
Как я изменяю Outlook так, чтобы он использовал папку "Junk Mail" для Спама вместо значения по умолчанию?
Во-первых, удалите папку "Junk Mail" fastmail, если она в настоящее время существует. Затем используйте инструкции ниже:
Объекты данных Сотрудничества установки. (Обратите внимание, что это не установит непосредственно - файл, который Вы загрузили, просто распаковывает реальный установщик. Раздражающий.)
В Outlook, открытом редактор Visual Basic: или Alt+F11, или Инструменты - Макрос - Visual Basic Editor
В окне 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 - Выполнение Sub) и работайте ThisOutlookSession.CDORenameFolder
макрос. Окно выбора папки должно открыться. В соответствии с Вашей учетной записью IMAP, выберите папку "Junk E-mail" (та, созданная Outlook), и нажмите "OK".
(Если Вы получаете "Пользовательский тип, не определенный", затем Вы забыли устанавливать и/или активировать CDO.)
Да, это точно, почему я ненавижу Outlook теперь.