Comment modifier le dossier Courrier indésirable par défaut dans Outlook?

9

J'utilise un service de messagerie IMAP (fastmail.fm) qui déplace les messages électroniques indésirables vers un dossier IMAP appelé "Courrier indésirable". Outlook archive le courrier indésirable en «courrier indésirable».
Comment modifier Outlook pour qu'il utilise le dossier "Courrier indésirable" pour Junk au lieu de la valeur par défaut?

seanyboy
la source

Réponses:

2

Il est beaucoup plus facile de configurer fastmail.fm pour enregistrer le spam probable dans le Junk E-Maildossier créé par Outlook que de créer une configuration Outlook personnalisée.

  • Connectez-vous à fastmail
  • Aller à Options > Spam/Virus Protection
  • Cliquez sur à CustomcôtéSpam Protection
  • Modifiez le dossier de destination pour Probable Spam de Junk Mailà Junk E-Mailet enregistrez. Paramètres de protection anti-spam personnalisés
Jeremy W
la source
1

Tout d'abord, supprimez le dossier "Courrier indésirable" de fastmail s'il existe actuellement. Utilisez ensuite les instructions ci-dessous:


Installez les objets de données de collaboration . (Notez qu'il ne s'installe pas directement - le fichier que vous avez téléchargé décompresse simplement le véritable programme d'installation. Ennuyeux.)

Dans Outlook, ouvrez l'éditeur Visual Basic: soit Alt+ F11, soit Tools - Macro - Visual Basic Editor

Dans la fenêtre VB, accédez à Outils - Références et activez CDO 1.2.1dans la liste.

Dans l'arborescence du côté gauche, ouvrez Project1 - Microsoft Office Outlook - ThisOutlookSession et collez ce script ( source d'origine ) dans la fenêtre qui s'ouvre:

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

Appuyez sur F5(ou sur Run - Run Sub ) et exécutez la ThisOutlookSession.CDORenameFoldermacro. Une fenêtre de sélection de dossier devrait apparaître. Sous votre compte IMAP, choisissez le dossier "Courrier indésirable" (celui créé par Outlook) et cliquez sur OK.

(Si vous obtenez "Type défini par l'utilisateur non défini", vous avez oublié d'installer et / ou d'activer CDO.)


Oui, c'est exactement pourquoi je déteste Outlook maintenant.

user1686
la source
Si je lis cela correctement - vous codez en dur le nom du dossier de destination dans le script, puis exécutez-vous pour choisir la source ?
afrazier
@afrazier: Mes compétences en VBScript sont ... médiocres. Au moment de la publication, c'est ce que j'avais - copypasta du Microsoft KB. (Il semble que j'ai réécrit le script plus tard; j'ai mis à jour le message.)
user1686
Ah, ça a plus de sens. Pour être juste avec vous, si c'est ce qui était dans le MS KB, c'est assez triste aussi.
afrazier
@afrazier: Non, ce n'était pas le cas - la base de connaissances a un script sain avec tout ce qui est codé en dur - pour renommer rapidement tous les dossiers spéciaux en leurs noms d'origine. (Voir le lien "source d'origine".)
user1686
0

Il n'y a aucun moyen de le faire, mais vous pouvez créer une règle pour déplacer le courrier indésirable du dossier où il est placé vers le dossier Courrier indésirable par défaut.

alex
la source