Tout d'abord, supprimez le dossier "Courrier indésirable" de fastmail s'il existe actuellement. Utilisez ensuite les instructions ci-dessous:
Installez les objets de données de collaboration . (Notez qu'il ne s'installe pas directement - le fichier que vous avez téléchargé décompresse simplement le véritable programme d'installation. Ennuyeux.)
Dans Outlook, ouvrez l'éditeur Visual Basic: soit Alt+ F11, soit Tools - Macro - Visual Basic Editor
Dans la fenêtre VB, accédez à Outils - Références et activez CDO 1.2.1
dans la liste.
Dans l'arborescence du côté gauche, ouvrez Project1 - Microsoft Office Outlook - ThisOutlookSession et collez ce script ( source d'origine ) dans la fenêtre qui s'ouvre:
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
Appuyez sur F5(ou sur Run - Run Sub ) et exécutez la ThisOutlookSession.CDORenameFolder
macro. Une fenêtre de sélection de dossier devrait apparaître. Sous votre compte IMAP, choisissez le dossier "Courrier indésirable" (celui créé par Outlook) et cliquez sur OK.
(Si vous obtenez "Type défini par l'utilisateur non défini", vous avez oublié d'installer et / ou d'activer CDO.)
Oui, c'est exactement pourquoi je déteste Outlook maintenant.