Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: arieger am 02.11.07 - 10:22:25
-
Hallo,
bin gerade beim Erstellen einer Datenbank (nicht MailDB), bei der es eine Schaltfläche zum Freie-Zeit-Suchen gibt. Die Mailbox wird mit dem physischen Namen angegeben, der Kalender des Beraters wird auch geöffnet, nur mit der Freienzeitsuche klappt es nicht so ganz.
Ziel sollte sein, daß ca 3 - 5 Zeitvorschläge wie auch immer ausgegeben werden.
Versuche mit "uidoc.FindFreeTimeDialogEx" oder ohne EX klappt es nicht so ganz.
Hat hierbei jemand Erfahrungen gesammelt oder hat mir jemand einen Tip oder Lösungsansätze.
Vielen Dank im Vorraus
Anton Rieger
-
Was heisst "klappt nicht so ganz"? Ich kann mir darunter nichts vorstellen.
Bernhard
-
Hallo,
klappt nicht ganz heiß, ich bekomme durch dieses Script kein Ergebnis (hier MessageBox):
Ich benötige mehrere Ergebnisse für eine freie Zeit, das wäre das Ziel !
Sub Click(Source As Button)
Dim session As New NotesSession
Dim window As NotesDateRange
Dim startDateTime As New NotesDateTime("Today")
Dim endDateTime As New NotesDateTime("Tomorrow")
Dim names(1 To 3) As String
Dim freeTime As Variant
Set window = session.CreateDateRange()
Set window.StartDateTime = startDateTime
Set window.EndDateTime = endDateTime
names(1) = "01 Test"
names(2) = "02 test"
names(3) = "Anton Rieger"
freeTime = session.FreeTimeSearch _
(window, 60, names, True)
Messagebox Error$
If (freeTime(0) Is Nothing) Then
Messagebox "No Match Found"
Else
Forall x In freeTime
Messagebox x.Text
' Später Call doc.ReplaceItemValue("FZEIT","KAMP")
' Später Call doc.Save( True, True )
End Forall
End If
End Sub
-
Hast Du das schon mal mit kanonischen Namen gemacht? In den Beispielen steht es zwar anders, aber ich bin mir nicht so sicher, wie der der Suchvorgang bei FreeTimeSearch funktioniert.
Bernhard