Traveler zeigt auf iPhone letzten Urlaubstag nicht an.

[schroederk]

Hallo,

ich erstelle über einen Agenten (deshalb in der Rubrik Entwicklung) automatisiert Abwesenheiten (i.d.R Urlaub) im Kalender des Antragstellers und auch beim Genehmiger.
Im Notes werden die wiederholdenden Termine korrekt angezeigt, aber auf dem iPhone/iPad fehlt der letzte Tag.

Im Beispiel fehlt also auf dem iPhone der 17.07.2015 als vorhandener Urlaubstag.

Jetzt die Frage:
Liegt das eventuell daran, dass ich keine Uhrzeit angebe und IOS den 17.07.2015 00:00 Uhr als 00:00 Uhr in der Früh ansieht und daher den Tag nicht anzeigt?
Wie sollte ich die Einträge korrekt setzen, damit auch auf den mobilen Geräten die Einträge korrekt angezeigt werden?

Hier der entsprechende Code:

Code

		Dim startDate As Variant
		Dim endDate As Variant
		Dim aExcludeView(1) As String
		Dim cprofile As NotesDocument
		Dim mailowner As String
		Dim vDates As Variant
		Dim iLoop As Integer
		
		Dim atCSWISL (0 To 4) As String
		atCSWISL(0)="$S:1"
		atCSWISL(1)="$L:1"
		atCSWISL(2)="$B:1"
		atCSWISL(3)="$R:1"
		atCSWISL(4)="$E:1"
		
		Dim atWatched (0 To 4) As String
		atWatched(0)="$S"
		atWatched(1)="$L"
		atWatched(2)="$B"
		atWatched(3)="$R"
		atWatched(4)="$E"
 
		aExcludeView(0) = "D"
		aExcludeView(1) = "S"
		
		Set db = s.GetDatabase(argserver, argdb, False)
		
		If Not db.IsOpen Then Call db.Open("", "")
 
		Set cprofile = db.GetProfileDocument("CalendarProfile")
		mailowner = cprofile.GetItemValue("Owner")(0)
 
		Set view = db.GetView("Calendar")
 
		startdate = CDat(argvdat)
		enddate = CDat(argbdat)
 
		Set doc = db.Createdocument()
		docid = doc.UniversalID
		doc.form = "Appointment"
		doc.Subject = argtext
		doc.Location = " "
		doc.SequenceNum = "1"
 
		doc.StartDate = startdate
		doc.StartTime = startdate
		doc.StartDateTime = startdate
		doc.EndDate = enddate
		doc.EndTime = enddate
		doc.EndDateTime = enddate
		
		iLoop = enddate - startdate
		ReDim vDates (0 To iLoop)
		
		vDates (0) = startdate
		For iLoop = 1 To UBound (vDates)
			vDates (iLoop) = startdate + iLoop
		Next
		
		doc.CalendarDateTime = vDates
		
		doc.Repeats = "1"
		doc.RepeatFor = iLoop
		doc.RepeatHow = "F"
		doc.RepeatForUnit = "D"
		doc.RepeatWeekends = "D"
		doc.RepeatUnit = "D"
		doc.RepeatInterval = "1"
		doc.RepeatAdjust = "1"
		doc.RepeatStartDate = startdate
		doc.RepeatDates = vDates
		
		doc.ExcludeFromView = aExcludeView
 
		doc.MeetingType = "1"
 
		doc.AppointmentType	= argtype
		doc.MessageType = "Not a draft"
		doc.Logo = "StdNotesLtr3"
		doc.OrgTable = "P0"
		doc.SchedulerSwitcher = "1"
		doc.Notes = ""
		doc.Body = "Automatisch erzeugt durch den Agenten. **ID=" & arguid & "**"
		doc.~_ViewIcon = "9"
		doc.EndTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
		doc.StartTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
		doc.UpdateSeq = 1
		doc.WebDateTimeInit = 1
		doc.~$AlarmDisaOObled = "1"
		doc.~$PublicAccess = "1"
		
		doc.~$CSWISL = atCSWISL
		doc.~$WatchedItems = atWatched
		doc.~$CSFlags = "m"
		doc.OrgRepeat = "1"
		doc.~$CSVersion = "2"
		
		doc.Chair = mailowner
		doc.AltChair = mailowner
		doc.From = mailowner
		doc.Principal = mailowner
 
		If argtype = "2" Then
			doc.BookFreeTime = "0"
			doc.~$BusyName = mailowner
			doc.~$BusyPriority = "1"
		End If		
		doc.ApptUNID = docid		
 
		Call doc.Save( True, True )		
		Print "Eintrag wurde erstellt"