Hallo zusammen,
ich habe eine Anwendung, in der ich Kalenderdaten abfrage und daraus einen Kalendereintrag erstelle.
Das angefügte Coding überträgt nach Betätigen des Buttons die Werte auch ordnungsgemäß, doch die Räume und Ressourcen werden nicht richtig erkannt, sodass sie in der 'Freie Zeiten suchen' nicht angezeigt werden.
Wenn ich innerhalb der Kalenderanwendung dann auf die Buttons 'Räume suchen' und 'Ressourcen suchen' klicke und die PopUps ohne Selektion mit 'Ok' verlasse, tauchen die Einträge unten auf.
Hat jemand eine Idee woran es liegt und wie ich es beheben kann?
Besten Dank!
Marc Dittberner
Code
Dim kdoc As NotesUIDocument
Set kdoc = workspace.ComposeDocument ("XXXXX", filepath, "Appointment" )
'' Grundeinstellungen
Call kdoc.FieldSetText("subject",subject)
Call kdoc.FieldSetText("AppointmentType","3")
Call kdoc.FieldSetText("Form","Appointment")
Call kdoc.Refresh
'' Zeiten
Call kdoc.FieldSetText("StartDate",startdate)
Call kdoc.FieldSetText("StartTime",beginn)
Call kdoc.FieldSetText("EndDate",startdate)
Call kdoc.FieldSetText("EndTime",ende)
'' Gäste
Call kdoc.FieldSetText("EnterSendTo",gäste)
Call kdoc.FieldSetText("EnterCopyTo",gästeopt)
Call kdoc.FieldSetText("EnterBlindCopyTo",infoan)
Call kdoc.FieldSetText("Location", bort)
Call kdoc.FieldSetText("RoomToReserve", rource)
Call kdoc.FieldSetText("Resources", Beamer & ", " & Parkplatz)
' Call uidoc.FieldSetText("Alarms","1")
Call kdoc.FieldSetText("OrgConfidential","")
Call kdoc.Refresh
Alles anzeigen