User-Template mit Verteilregeln anlegen

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

Dim oApp As DvApi32.DavidAPI
Dim oAcc As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oOptions As DvAapi32.Options
...
Set oArchive = oAcc.GetSpecialArchive(DvArchivePersonalIn)
Set oDestArchive = oAccount.GetSpecialArchive(DvArchivePersonalOut)
Set oArchiving = oArchive.Archiving
oArchiving.Active = true
oArchiving.Year = false
oArchiving.Month = true 
oArchiving.Day = true
oArchiving.Age = 12
oArchiving.OnlyViewed = true
oArchiving.AsCopy = true
oArchiving.AutoArchivePath = oDestArchive


oArchive.Save
oAcc.Logoff