Outlook'ta varsayılan Önemsiz Posta klasörünü nasıl değiştiririm?

9

Önemsiz e-posta iletilerini "Önemsiz Posta" adlı bir IMAP klasörüne taşıyan bir IMAP posta hizmeti (fastmail.fm) kullanıyorum. Outlook önemsiz "Önemsiz E-Posta" arşivler.
Outlook'u, Önemsiz için varsayılan yerine "Önemsiz Posta" klasörünü kullanacak şekilde nasıl değiştirebilirim?

microsoft-outlook spam-prevention

— seanyboy
kaynak

2

Outlook'un oluşturduğu klasöre olası spam'i kaydetmek için fastmail.fm'iJunk E-Mail yapılandırmak, özel bir Outlook yapılandırması oluşturmaktan çok daha kolaydır .

Fastmail'e giriş yapın
Adresine git Options > Spam/Virus Protection
CustomYanına tıklayınSpam Protection
Değişim Muhtemel Spam için hedef klasörü gelen Junk Mailetmek Junk E-Mailve kurtarmak.

— Jeremy W
kaynak

1

Öncelikle, varsa fastmail'in "Önemsiz Posta" klasörünü silin . Ardından aşağıdaki talimatları uygulayın:

İşbirliği Veri Nesneleri'ni yükleyin . (Doğrudan yüklenmeyeceğini unutmayın - indirdiğiniz dosya gerçek yükleyiciyi paketinden çıkarır.

Outlook'ta, Visual Basic düzenleyicisini açın: Alt+ F11veya Araçlar - Makro - Visual Basic Düzenleyicisi

VB penceresinde, Araçlar - Referanslar'a gidin CDO 1.2.1ve listeden etkinleştirin .

Sol taraftaki ağaçta Project1 - Microsoft Office Outlook - ThisOutlookSession'ı açın ve bu komut dosyasını ( orijinal kaynak ) açılan pencereye yapıştırın :

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

F5(Veya Run - Run Sub ) tuşuna basın ve ThisOutlookSession.CDORenameFoldermakroyu çalıştırın . Bir klasör seçim penceresi açılmalıdır. IMAP hesabınızın altında "Önemsiz E-posta" klasörünü (Outlook tarafından oluşturulan klasör) seçin ve Tamam'ı tıklayın.

("Kullanıcı tanımlı tür tanımlı değil" alırsanız, CDO'yu kurmayı ve / veya etkinleştirmeyi unutursunuz.)

Evet, tam da bu yüzden Outlook'tan nefret ediyorum.

— user1686
kaynak

Bunu doğru okuyorsam - hedef klasör adını betiğe kodluyorsanız, kaynak seçmek için betiği mi çalıştırıyorsunuz ?

— afrazier

@afrazier: VBScript becerilerim ... zayıf. Gönderme sırasında, bu benim vardı - Microsoft KB'den copypasta. (Komut dosyasını daha sonra yeniden yazdım;

— yazıyı

Ah, bu daha mantıklı. Size karşı dürüst olmak gerekirse, MS KB'de olan buysa, bu da oldukça üzücü.

— afrazier

@afrazier: Hayır, değildi - KB, tüm özel klasörlerin orijinal adlarına hızlı bir şekilde yeniden adlandırılması için sabit kodlanmış her şeye sahip bir aklı başında komut dosyası var. (Bkz. "Orijinal kaynak" bağlantısı.)

— user1686

0

Bunu yapmanın bir yolu yoktur, ancak önemsiz postaları varsayılan Önemsiz Posta klasörüne yerleştirildikleri klasörden taşımak için bir kural oluşturabilirsiniz.

— alex
kaynak