Ich habe nach all diesen Teilen gesucht, die erforderlich sind, damit dieser einfache Filter funktioniert. Unix-Procmail-Filter sind im Vergleich so einfach zu bedienen. Alle Microsoft Outlook-Assistenten stehen einem einfachen Filter mit Platzhaltern im Weg. Obwohl viele E-Mail-Filterbedingungen, die Microsoft standardmäßig bereitstellt, nützlich sind, kann nichts die Flexibilität und Anpassung des ausgeführten Codes übertreffen.
- Schreiben Sie Ihren Code.
Alt-F11 ruft den VBA-Code-Editor auf. Doppelklicken Sie auf ThisOutlookSession. Schreiben Sie Ihren Code. In meinem Fall wird ein regulärer Ausdruck in der Betreffzeile verwendet und nicht in den Standardordner, sondern in meine eigene pst in einem Unterordner verschoben.
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
- Führen Sie den Code für jede eingehende E-Mail mit einer Regel aus.
Wählen Sie unter Regeln "Regeln und Warnungen verwalten ..." aus. Die neue Regel wird so aussehen
Apply this rule after the message arrives run Project1.ThisOutlookSession.filter
Um dies zu erhalten, klicken Sie für Schritt 1: Bedingung (en) auswählen: einfach auf Weiter. Bestätigen Sie, dass es für alle Nachrichten gilt, indem Sie auf OK klicken. Aktivieren Sie unter "Aktion (en) auswählen" die Option "Skript ausführen", klicken Sie auf das Filterskript, und wählen Sie "Weiter" oder "Fertig stellen". Klicken Sie unter Ausnahmen auswählen auf Weiter oder Fertig stellen. Geben Sie ihm einen guten Namen wie vba-filter und aktivieren Sie diese Regel. Klicken Sie auf Fertig stellen. Da es in einen lokalen Ordner kopiert wird, klicken Sie auf OK, wenn Sie gefragt werden, ob diese Regel nicht für E-Mails gilt, die Sie online oder von einem anderen Gerät aus überprüfen. Klicken Sie im Dialogfeld Regeln und Warnungen auf OK.
- Outlook gefällt es nicht, wenn Makros nicht signiert sind. Um Ihre Makros selbst zu signieren, erstellen Sie ein Zertifikat und verwenden Sie es .