Domino 9 und frühere Versionen > ND6: Entwicklung

[Frage]: per Script Kalendereinträge erzeugen

<< < (4/4)

koehlerbv:
Ja, jetzt ist es klarer.

Start- und End-Datum/Zeit erhältst Du wie folgt:

'Übliche Deklarationen abseits des Problems fehlen!
Dim vStartDate As Variant
Dim vStartDateTime As Variant
Dim vEndDateTime As Variant

vStartDate = Datenumber (Year (doc.Datum (0), Month (doc.Datum (0), Day (doc.Datum (0))
vStartDateTime = vStartDate + doc.Uhrzeit (0)
vEndDateTime = vStartDate + doc.Uhrzeit (1)

Bernhard

koehlerbv:
Ich habe eben nochmal fix Deinen Code überflogen. Dir fehlen da aber noch ein paar essentielle Items, ich habe daher folgendes fix mal bei mir 'rausgeschnippelt:

--- Code: --- docCalendarEntry.~$AltPrincipal = docRequest.Requester (0)
docCalendarEntry.~$BusyName = docRequest.Requester (0)
Set itemTemp = docCalendarEntry.GetFirstItem ("$BusyName")
itemTemp.IsNames = True
docCalendarEntry.~$BusyPriority = "1"
docCalendarEntry.~$CSversion = "2"
docCalendarEntry.~$NoPurge = docRequest.EndDate (0)
docCalendarEntry.~$PublicAccess = "1"
docCalendarEntry.AltChair = docRequest.Requester (0)
docCalendarEntry.BookFreeTime = ""
docCalendarEntry.Chair = docRequest.Requester (0)
docCalendarEntry.ExcludeFromView = ArrayAdd ("D", "S")
docCalendarEntry.Principal = docRequest.Requester (0)
docCalendarEntry.tmpOwnerHW = "1"
--- Ende Code ---

$BusyName und $PublicAccess sind essentiell für C&S bzw. den Zugriff.

HTH,
Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete