J'ai regardé haut et bas pour toutes ces pièces nécessaires à la réalisation de ce simple filtre. Les filtres procmail Unix sont si faciles à utiliser en comparaison. Tous les assistants Microsoft Outlook gênent un simple filtre à l'aide de caractères génériques. Bien que de nombreuses conditions de filtrage des e-mails fournies par Microsoft par défaut soient utiles, rien ne peut battre la flexibilité et la personnalisation du code en cours d'exécution.
- Écrivez votre code.
Alt-F11 affiche l'éditeur de code VBA. Double-cliquez sur ThisOutlookSession. Écrivez votre code. Dans mon cas, il utilise une expression régulière sur la ligne d'objet et la déplace non pas vers le DefaultFolder mais mon propre pst dans un sous-dossier.
Sub filter(Item As Outlook.MailItem)
Dim ns As Outlook.NameSpace
Dim MailDest As Outlook.Folder
Set ns = Application.GetNamespace("MAPI")
Set Reg1 = CreateObject("VBScript.RegExp")
Reg1.Global = True
Reg1.Pattern = "(.*Abc.20.*)"
If Reg1.Test(Item.Subject) Then
Set MailDest = ns.Folders("Personal Folders").Folders("one").Folders("a")
Item.Move MailDest
End If
End Sub
- Exécutez le code pour chaque e-mail entrant avec une règle.
Sous les règles, sélectionnez "Gérer les règles et les alertes ...". La nouvelle règle ressemblera à
Apply this rule after the message arrives run Project1.ThisOutlookSession.filter
Pour l'obtenir, pour l'étape 1: Sélectionnez la ou les conditions: cliquez simplement sur suivant. Confirmez qu'il s'applique à tous les messages en cliquant sur OK. Pour Sélectionner une ou plusieurs actions, cochez «exécuter un script», puis cliquez pour choisir le script de filtre et sélectionnez Suivant ou Terminer. Pour Sélectionner une ou des exceptions, cliquez sur Suivant ou sur Terminer. Donnez-lui un bon nom comme vba-filter et cochez Activer cette règle. cliquez sur Terminer. Puisqu'il copie dans un dossier local, cliquez sur OK lorsqu'il vous demande de confirmer que cette règle ne fonctionnera pas pour les e-mails que vous vérifiez en ligne ou à partir d'un autre appareil. Cliquez sur OK dans la boîte de dialogue Règles et alertes.
- Outlook ne l'aime pas lorsque les macros ne sont pas signées. Pour signer automatiquement vos macros, créez un certificat et utilisez-le .