User-Template mit Verteilregeln anlegen

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • User-Template mit Verteilregeln anlegen

      Hallo Forum!

      Gibt es die Möglichkeit ein User-Template anzulegen bzw. ein vorhandenes Template so zu ergänzen, dass die Verteilregeln (archive.urt etc.) und auch firmenspezifisch vordefinierten Ablageordner beim Anlegen eines neuen Nutzer automatisch mit angelegt werden?

      Bei mir gibt es zwar einen User-Template im David Administrator, aber physisch finde ich keinen Ordner mit der entsprechenden Benutzer ID des Templates...

      Entweder ist der Ordner irgendwie weggekommen oder ist halt immer nicht da...

      Somit bräuchte man nicht jedesmal bei einen neuen Nutzer alles manuell eingeben, mit den entsprechenden Fehlerquellen.

      Vielen Dank im voraus.

      Thomas
    • Hallo Thomas,

      man könnte dies über ein Script lösen, das man allen Usern und dann dem Default-User hinterlegt.
      Damit könnte man Regeln und die Ablageordner konfigurieren.
      Hier mal die Beispiele aus der DvAPI32-Doku:

      Regeln:

      Source Code

      1. Dim oApp As DvApi32.DavidAPI
      2. Dim oAccount As DvApi32.Account
      3. Dim oArchive As DvApi32.Archive
      4. Dim oArchiveDest As DvApi32.Archive
      5. Dim oRoutEntries As DvApi32.RoutingEntries
      6. Dim oRoutEntry As DvApi32.RoutingEntry
      7. Dim oFilter As DvApi32.FilterEntry
      8. Dim aDests(0)
      9. Const Field_SRFrom = &H80008039 'ID for SR_From (see get_Fields)
      10. Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
      11. Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
      12. Set oArchive = oAccount.GetSpecialArchive(DvArchivePersonalIn)
      13. MsgBox ("count of routing entries: " & oArchive.RoutingEntries.Count)
      14. Set oRoutEntry = oArchive.RoutingEntries.Add("Neuer Eintrag") 'Add new RoutingEntry and return a RountingEntry object
      15. 'Set Properties of new entry
      16. oRoutEntry.Enabled = True
      17. oRoutEntry.RouteAsCopy = False
      18. ' Add Filters to this entry
      19. Set oFilter = oRoutEntry.Conditions.Add
      20. oFilter.Comparision = DvItemIsEqual
      21. oFilter.Object = Field_SRFrom
      22. oFilter.Value = "chef@firma.de"
      23. ' Add Destinations for Routing
      24. Set oArchiveDest = oAccount.GetSpecialArchive(DvArchivePersonalTrash)
      25. Set aDests(0) = oArchiveDest
      26. oRoutEntry.Destinations = aDests
      27. ' Commit the new entry
      28. oRoutEntry.Commit
      29. MsgBox ("count of routing entries: " & oArchive.RoutingEntries.Count)
      30. MsgBox ("Name of the last entry: " & oArchive.RoutingEntries.Item(oArchive.RoutingEntries.Count - 1).Name)
      31. oAccount.Logoff
      Display All
      Ablageordner:

      Source Code

      1. Dim oApp As DvApi32.DavidAPI
      2. Dim oAcc As DvApi32.Account
      3. Dim oArchive As DvApi32.Archive
      4. Dim oOptions As DvAapi32.Options
      5. ...
      6. Set oArchive = oAcc.GetSpecialArchive(DvArchivePersonalIn)
      7. Set oDestArchive = oAccount.GetSpecialArchive(DvArchivePersonalOut)
      8. Set oArchiving = oArchive.Archiving
      9. oArchiving.Active = true
      10. oArchiving.Year = false
      11. oArchiving.Month = true
      12. oArchiving.Day = true
      13. oArchiving.Age = 12
      14. oArchiving.OnlyViewed = true
      15. oArchiving.AsCopy = true
      16. oArchiving.AutoArchivePath = oDestArchive
      17. oArchive.Save
      18. oAcc.Logoff
      Display All
      Gruß

      Baumi