Innanzitutto, eliminare la cartella "Posta indesiderata" di Fastmail, se attualmente esiste. Quindi utilizzare le istruzioni seguenti:
Installa Collaboration Data Objects . (Nota che non si installerà direttamente: il file che hai scaricato decomprime semplicemente il vero programma di installazione. Fastidioso.)
In Outlook, aprire l'editor di Visual Basic: Alt+ F11o Strumenti - Macro - Visual Basic Editor
Nella finestra VB, vai su Strumenti - Riferimenti e abilita CDO 1.2.1
nell'elenco.
Nella struttura a sinistra, apri Project1 - Microsoft Office Outlook - ThisOutlookSession e incolla questo script ( origine originale ) nella finestra che si apre:
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
Premere F5(o Esegui - Esegui sottotitoli ) ed eseguire la ThisOutlookSession.CDORenameFolder
macro. Dovrebbe apparire una finestra di selezione delle cartelle. Sotto il tuo account IMAP, seleziona la cartella "Posta indesiderata" (quella creata da Outlook) e fai clic su OK.
(Se ottieni "Tipo definito dall'utente non definito", hai dimenticato di installare e / o attivare il CDO.)
Sì, questo è esattamente il motivo per cui odio Outlook adesso.