Pertama, hapus folder fastmail "Junk Mail" jika saat ini ada. Kemudian gunakan instruksi di bawah ini:
Instal Objek Data Kolaborasi . (Perhatikan bahwa itu tidak akan menginstal secara langsung - file yang Anda unduh hanya membongkar installer yang sebenarnya. Mengganggu.)
Di Outlook, buka editor Visual Basic: Alt+ F11, atau Tools - Macro - Visual Basic Editor
Di jendela VB, pergi ke Alat - Referensi , dan aktifkan CDO 1.2.1
dalam daftar.
Di pohon di sebelah kiri, buka Project1 - Microsoft Office Outlook - ThisOutlookSession , dan tempel skrip ini ( sumber asli ) ke jendela yang terbuka:
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
Tekan F5(atau Run - Jalankan Sub ), dan jalankan ThisOutlookSession.CDORenameFolder
makro. Jendela pemilihan folder akan muncul. Di bawah akun IMAP Anda, pilih folder "Junk E-mail" (yang dibuat oleh Outlook) dan klik OK.
(Jika Anda mendapatkan "Jenis yang ditentukan pengguna tidak didefinisikan", maka Anda lupa menginstal dan / atau mengaktifkan CDO.)
Ya, itulah mengapa saya membenci Outlook sekarang.
Tidak mungkin Anda bisa melakukannya, tetapi Anda bisa membuat aturan untuk memindahkan junk mail dari folder tempat mereka ditempatkan ke folder Junk Mail default.
sumber