☰

Outlook 2010-Regel: Nachricht verschieben, wenn mehr als 5 Empfänger

tag-icon • tag-icon microsoft-outlook-2010 email-filter
Outlook 2010-Regel: Nachricht verschieben, wenn mehr als 5 Empfänger

Ich bekomme nur dann E-Mails mit mehr als 5 Empfängern, wenn es um Büroklatsch geht. Ich würde gerne eine Regel/einen Filter erstellen, um alle eingehenden Nachrichten mit mehr als 5 Empfängern in einen Junk-Ordner zu verschieben.

Ist das mit Outlook 2010 möglich? Ich konnte in den Standardregeln nichts dergleichen finden und war mir nicht sicher, ob man die Regel in VB umwandeln kann. Für jede Erkenntnis bin ich dankbar.

Antwort1

Ich habe das VBA-Skript mit Ressourcen von StackOverflow und SuperUser geschrieben, falls jemand interessiert ist.

Dieses Skript nimmt alle eingehenden E-Mails und zählt die Empfänger im To:Feld. Wenn die Empfängerzahl größer als 5 ist, markiert es sie als gelesen und verschiebt sie in einen GossipOrdner.

Es gibt auch eine sekundäre Bedingung, um zu prüfen, ob der Betreff Folgendes enthält CVS(wir erhalten Updates von unserem gleichzeitigen Versionssystem mit 10 Empfängern) und es in den entsprechenden Ordner zu verschieben.

Sub moveOfficeGossip(item As Outlook.MailItem)

    Dim strNames As String, i As Integer, j As Integer, cvs As String
    Dim olApp As New Outlook.Application
    Dim olNameSpace As Outlook.NameSpace
    Dim olDestFolder As Outlook.MAPIFolder

    j = 1
    cvs = "CVS"
    strNames = item.To
    Set olNameSpace = olApp.GetNamespace("MAPI")

    For i = 1 To Len(strNames)
        If Mid(strNames, i, 1) = ";" Then j = j + 1
    Next i

    If (j >= 5) Then
        If InStr(UCase(item.subject), cvs) Then
            Set olDestFolder = olNameSpace.Folders("Personal Folders").Folders("Filtered").Folders("CVS")
            item.Move olDestFolder
        Else
            Set olDestFolder = olNameSpace.Folders("Personal Folders").Folders("Filtered").Folders("Gossip")
            item.UnRead = False
            item.Move olDestFolder
        End If
    End If

End Sub

Ich entschuldige mich, wenn dies nicht das formalste Format ist, und ich weiß, dass es etwas besser organisiert werden kann, aber dies war mein erster Versuch, Visual Basic-Syntax zu verwenden.

verwandte Informationen