Zuerst löscht Fastmail der „Junk Mail“ Ordner , wenn es vorhanden ist zur Zeit. Verwenden Sie dann die folgenden Anweisungen:
Installieren Sie Collaboration-Datenobjekte . (Beachten Sie, dass die Installation nicht direkt erfolgt. Die heruntergeladene Datei entpackt lediglich das eigentliche Installationsprogramm. Ärgerlich.)
Öffnen Sie in Outlook den Visual Basic-Editor: entweder Alt+ F11oder Extras - Makro - Visual Basic-Editor
Gehen Sie im VB-Fenster zu Extras - Referenzen und aktivieren Sie sie CDO 1.2.1
in der Liste.
Öffnen Sie in der Baumstruktur auf der linken Seite Project1 - Microsoft Office Outlook - ThisOutlookSession und fügen Sie dieses Skript ( Originalquelle ) in das folgende Fenster ein:
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
Drücken Sie F5(oder Run - Run Sub ) und führen Sie das ThisOutlookSession.CDORenameFolder
Makro aus. Ein Ordnerauswahlfenster sollte sich öffnen. Wählen Sie unter Ihrem IMAP-Konto den Ordner "Junk-E-Mail" (den von Outlook erstellten) und klicken Sie auf OK.
(Wenn Sie "Benutzerdefinierter Typ nicht definiert" erhalten, haben Sie vergessen, CDO zu installieren und / oder zu aktivieren.)
Ja, genau deshalb hasse ich Outlook jetzt.
Es gibt keine Möglichkeit, dies zu tun, aber Sie können eine Regel erstellen, um Junk-Mails aus dem Ordner, in dem sie abgelegt sind, in den Standard-Junk-Mail-Ordner zu verschieben.
quelle