Freie Zeit finden

[arieger]

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

[koehlerbv]

Was heisst "klappt nicht so ganz"? Ich kann mir darunter nichts vorstellen.

Bernhard

[arieger]

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

[koehlerbv]

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