Во-первых, удалите папку 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 сейчас.