Bagaimana cara mengubah folder Email Sampah default di Outlook?

9

Saya menggunakan layanan email IMAP (fastmail.fm) yang memindahkan pesan email sampah ke folder IMAP yang disebut "Junk Mail". Arsip Outlook Sampah ke "Sampah E-Mail".
Bagaimana cara mengubah Outlook sehingga menggunakan folder "Junk Mail" untuk Junk alih-alih default?

microsoft-outlook spam-prevention

— seanyboy
sumber

2

Jauh lebih mudah untuk Mengkonfigurasi fastmail.fm untuk menyimpan kemungkinan spam di Junk E-Mailfolder yang dibuat Outlook daripada membangun konfigurasi Outlook khusus.

Masuk ke fastmail
Pergi ke Options > Spam/Virus Protection
Klik di CustomsebelahSpam Protection
Ubah folder tujuan untuk Kemungkinan Spam dari Junk Mailmenjadi Junk E-Maildan simpan.

— Jeremy W
sumber

1

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.1dalam 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.CDORenameFoldermakro. 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.

— pengguna1686
sumber

Jika saya membaca ini dengan benar - Anda sulit mengkodekan nama folder tujuan ke dalam skrip, kemudian menjalankan skrip untuk memilih sumbernya ?

— panas

@afrazier: Keterampilan VBScript saya ... buruk. Pada saat memposting, inilah yang saya miliki - copypasta dari Microsoft KB. (Sepertinya saya memang menulis ulang skrip nanti; Saya memperbarui posting.)

— user1686

Ah, itu lebih masuk akal. Agar adil bagi Anda, jika itu yang ada di MS KB, itu juga cukup menyedihkan.

— Afrazier

@afrazier: Tidak, bukan - KB memiliki skrip yang waras dengan semua yang di-kodekan - untuk mengganti nama semua folder khusus dengan cepat ke nama aslinya. (Lihat tautan "sumber asli".)

— user1686

0

Tidak mungkin Anda bisa melakukannya, tetapi Anda bisa membuat aturan untuk memindahkan junk mail dari folder tempat mereka ditempatkan ke folder Junk Mail default.

— alex
sumber