Hallo, dies ist mein erster Eintrag hier im Forum, also bitte ich um ein wenig Nachsicht.
Ich möchte ein Programm schreiben, welches im David InfoCenter FX Aufgaben erstellt.
Soweit habe ich mein Programm auch schon fertig, dass es bei mir im
Verzeichnis die Aufgabe ablegt, nun möchte ich allerdings Aufgaben für
andere Benutzer erstellen können. Diese kann ich mittels
auch umsetzen, aber wie finde ich die ID der entsprechenden Benutzer heraus, damit ich die IDs nicht immer raussuchen muss ?
Gibt es eine Möglichkeit, dass ich nicht manuell eine Liste pflegen muss ?
Derzeit sieht mein Code wie folgt aus:
Dim oApp As DvApi32.IApplication
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oTaskItem As DvApi32.TaskItem
oApp = CreateObject("DVOBJAPILib.DvISEAPI")
oApp.LoginOptions = DvApi32.DvLoginOptions.DvLoginForceAsyncDuplicate
oAccount = oApp.Logon("", "", "", "", "", "NOAUTH")
oArchive = oAccount.GetSpecialArchive(DvApi32.DvArchiveTypes.DvArchivePersonalToDo)
oTaskItem = oArchive.NewItem(DvApi32.DvItemTypes.DvTaskItem)
oTaskItem.StartTime = DateAdd("h", 1, Now)
oTaskItem.DueTime = DateAdd("h", 2, Now)
oTaskItem.Subject = "Testeintrag"
oTaskItem.Percentage = CLng(0)
oTaskItem.Reminder = ""
oTaskItem.Companies = "Firma XY"
'oTaskItem.Resources = ""
oTaskItem.KeepUpdatedCopy = True
oTaskItem.StatusReportOnCompletion = FALSE
oTaskItem.TaskStatus = 0
oTaskItem.Viewed = False
oTaskItem.Save(Nothing, oAccount.User.Name)
Alles anzeigen
Falls jemand weiß, wieso ich bei "oTaskItem.Resources" keinen String übergeben kann, immer raus mit der Sprache.
Ich bin über jeden Hinweis sehr dankbar.
Gruß