E-Mails verteilen - Betreff zentral auswerten

Hallo,

also die Regeln könntest du per Startscript automatisch bei allen Usern hinterlegen lassen. Unten ein Beispiel aus der Api-Doku. Müsste halt noch auf den Betreff geändert werden. Du leitest dann alle Mail mit Betreff "Kunde*" auf einen anderen Ordner um. Im neuen Ordner könntest du dann weiter verteilen, wenn du eine Ordnerstruktur mit den Kunden benötigst. Oder du baust einen Zähler ein und lässt das ganze in einer Schleife durchlaufen, sodass du pro Schleifendurchlauf eine neue Regel generierst (Kunde001, Kunde002, Kunde003, Kunde, ..., Kunde999) . Ich kann dir aber nicht sagen, wie viele Regeln David in einem Ordner zulässt. Du kannst per Script auch prüfen, ob die Regel bei den Usern noch existiert. Falls das nicht mehr der Fall ist einfach wieder anlegen.

PS: Bitte vergiss aber bei deinem Vorhaben den Datenschutz nicht, wenn du ungefragt E-Mails aus persönlichen Ordnern in andere kopierst.

Gruß

Baumi

Dim oApp As DvApi32.DavidAPI
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oArchiveDest As DvApi32.Archive
Dim oRoutEntries As DvApi32.RoutingEntries
Dim oRoutEntry As DvApi32.RoutingEntry
Dim oFilter As DvApi32.FilterEntry
Dim aDests(0)

Const Field_SRFrom = &H80008039 'ID for SR_From (see get_Fields)

Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
Set oArchive = oAccount.GetSpecialArchive(DvArchivePersonalIn)

MsgBox ("count of routing entries: " & oArchive.RoutingEntries.Count)
Set oRoutEntry = oArchive.RoutingEntries.Add("Neuer Eintrag") 'Add new RoutingEntry and return a RountingEntry object

'Set Properties of new entry
oRoutEntry.Enabled = True
oRoutEntry.RouteAsCopy = False

' Add Filters to this entry
Set oFilter = oRoutEntry.Conditions.Add
oFilter.Comparision = DvItemIsEqual
oFilter.Object = Field_SRFrom
oFilter.Value = "chef@firma.de"

' Add Destinations for Routing
Set oArchiveDest = oAccount.GetSpecialArchive(DvArchivePersonalTrash)
Set aDests(0) = oArchiveDest
oRoutEntry.Destinations = aDests

' Commit the new entry
oRoutEntry.Commit

MsgBox ("count of routing entries: " & oArchive.RoutingEntries.Count)
MsgBox ("Name of the last entry: " & oArchive.RoutingEntries.Item(oArchive.RoutingEntries.Count - 1).Name)
oAccount.Logoff

Hallo zusammen,

wir verteilen ausgehende Mails automatisch in Projektordner (Gruppenordner), damit alle Zugriff darauf haben. Dazu erstellt der Admin im Ausgangsordner die Regeln. Diese urt-Datei wird nachts per Aufgabenscript (im Windows) in alle User-Ausgangsordner kopiert.

Eingehende Mails müssen von Hand verschoben werden: einmal aus Datenschutzgründen, zum anderen sind viele nicht in der Lage aussagekräftige Betreffzeilen zu erzeugen, so dass eine automatisierte Zuordnung bei uns gar nicht möglich ist.

Nachteil unserer Lösung ist natürlich, dass User, die sich eigene Regeln im Postausgang erstellen, diese jede Nacht überschrieben bekommen. Kann aber auch ein Vorteil sein...Derzeit sind es 230 Regeln. Leistungseinbußen konnte ich noch keine feststellen. Wir sind aber auch sehr klein (3 User).

Grüße

Ming

Für eingehende eMails kann man auch den Spamfilter missbrauchen. Man hat im David.Administrator unter "Postman-> Datenbanken" Den Punkt "Nicht erlaubte Adressen(Spam Filter)" in den man Kriterien hinterlegen kann. Da er dabei auch den Betreff prüft, kann man diesen verwenden um sich die entsprechenden eMails rauszuziehen und woandershin zu verschieben.