Najpierw usuń folder „Junk Mail” fastmaila, jeśli istnieje. Następnie skorzystaj z poniższych instrukcji:
Zainstaluj obiekty danych współpracy . (Pamiętaj, że nie zostanie zainstalowany bezpośrednio - pobrany plik po prostu rozpakowuje prawdziwy instalator. Irytujące).
W programie Outlook otwórz edytor Visual Basic: albo Alt+ F11, albo Narzędzia - Makro - Visual Basic Editor
W oknie VB przejdź do Narzędzia - Referencje i włącz CDO 1.2.1
na liście.
W drzewie po lewej stronie otwórz Project1 - Microsoft Office Outlook - ThisOutlookSession i wklej ten skrypt ( oryginalne źródło ) do okna, które zostanie otwarte:
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
Naciśnij F5(lub Uruchom - Uruchom Sub ) i uruchom ThisOutlookSession.CDORenameFolder
makro. Powinno pojawić się okno wyboru folderu. Na koncie IMAP wybierz folder „Wiadomości-śmieci” (utworzony przez program Outlook) i kliknij przycisk OK.
(Jeśli pojawi się komunikat „Nie zdefiniowano typu zdefiniowanego przez użytkownika”, oznacza to, że zapomniałeś zainstalować i / lub aktywować CDO.)
Tak, właśnie dlatego teraz nienawidzę programu Outlook.