Спочатку видаліть папку "Небажана пошта" швидкої пошти, якщо вона існує. Потім скористайтеся інструкціями, наведеними нижче:
Встановлення об’єктів даних про співпрацю . (Зверніть увагу, що він не встановиться безпосередньо - завантажений файл просто розпаковує реальну програму встановлення. Дратує.)
У 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.