I have been trying to create a training form, that marks attendees as being ‘busy’ all day on their calendar. Basically, I created an all day event, and printed out all the variables used, with the values that they were set as. Would think that would work, but the all day event is not showing up on the calendar. The calendar only has @IsAvailable(CalendarDateTime), and if you see my code below, it is in the list. I can see the form in the ‘all documents’ view, and I can see that field with the correct date value in the field. Am I missing variables? I don’t think so. Why wouldn’t this show on the calendar if i set the start date, end date, and calendar date time? Any help would be appreciated.-----------------------------------------------
Set maildb = session.GetDatabase(strMailServer,strMailFile)
Set maildoc = New NotesDocument( maildb )
maildoc.From = session.UserName
maildoc.~$Alarm = 1
maildoc.~$AlarmOffset = -1440
maildoc.~$LangPrincipal = ""
maildoc.~$AltPrincipal = session.UserName
maildoc.~$BusyName = session.UserName
maildoc.~$BusyPriority = "1"
maildoc.~$CSVersion = 2
maildoc.~$PublicAccess="1"
maildoc.~$UpdatedBy = session.UserName
maildoc.~$SMTPKeepNotesItems = 1
maildoc.~$HFFlags = 1
maildoc.~$ExpandGroups =3
maildoc.Logo= "StdNotesLtr39"
maildoc.SaveOptions= ""
maildoc.MailOptions=""
maildoc.~$FromPreferredLanguage = "en-US"
maildoc.OnlinePlace = ""
maildoc.~$LangChair =""
maildoc.Alarms =1
maildoc.OrgConfidential = ""
maildoc.StartTimeZone = "Z=5$DO=0$ZX=66$ZN=US Eastern"
maildoc.EndTimeZone = "Z=5$DO=0$ZX=66$ZN=US Eastern"
maildoc.Repeats = ""
maildoc.OrganizerInclude = ""
maildoc.Location = ""
maildoc.RoomToReserve =""
maildoc.Resources = ""
maildoc.OnlineMeeting=""
maildoc.Presenters = ""
maildoc.OnlinePlaceToReserve = ""
maildoc.AudioVideoFlags = ""
maildoc.SendAttachments = ""
maildoc.SchedulerSwitcher = 1
maildoc.~$BorderColor = "D2DCDC"
maildoc.BookFreeTime = ""
maildoc.EnterSendTo = ""
maildoc.EnterCopyTo = ""
maildoc.EnterBlindCopyTo = ""
maildoc.Notes = ""
maildoc.Alarms =""
maildoc.ExcludeFromView = "D"
maildoc.SequenceNum = 1
maildoc.UpdateSeq = 1
maildoc.AltChair = session.UserName
maildoc.WebDateTimeInit = 1
Dim caldateTime As Variant
Set calendardatetime = New NotesDateTime( doc.EndDate(0) + " 08:00:00 PM" )
Dim item1 As New notesitem(maildoc, "AppendEndTime", calendardatetime.TimeOnly)
Set calendardatetime = New NotesDateTime( doc.StartDate(0)+ " 04:00:00 AM" )
Dim item2 As New notesitem(maildoc, "AppendStartTime", calendardatetime.TimeOnly)
Set calendardatetime = New NotesDateTime( doc.StartDate(0) + "04:00:00 AM" )
Dim item3 As New notesitem(maildoc, "CalendarDateTime", calendardatetime)
Set calendardatetime = New NotesDateTime( doc.EndDate(0) )
Dim item4 As New notesitem(maildoc, "EndDate", calendardatetime.DateOnly)
Set calendardatetime = New NotesDateTime( doc.EndDate(0) + " 08:00:00 PM" )
Dim item5 As New notesitem(maildoc, "EndDateTime", calendardateTime)
Set calendardatetime = New NotesDateTime( doc.EndDate(0) + " 08:00:00 PM" )
Dim item6 As New notesitem(maildoc, "EndTime", calendardatetime.TimeOnly)
Set calendardatetime = New NotesDateTime( doc.StartDate(0))
Dim item7 As New notesitem(maildoc, "StartDate", calendardatetime.DateOnly)
Set calendardatetime = New NotesDateTime( doc.StartDate(0)+ " 04:00:00 AM" )
Dim item8 As New notesitem(maildoc, "StartDateTime", calendardatetime)
Set calendardatetime = New NotesDateTime( doc.StartDate(0)+ " 04:00:00 AM" )
Dim item9 As New notesitem(maildoc, "StartTime", calendardatetime.TimeOnly)
Dim item10 As New notesitem(maildoc, "CalendarDateTime", calendardatetime)
Dim item11 As New notesitem(maildoc, "$NoPurge", calendardatetime)
maildoc.AppointmentType = "2"
maildoc.ApptUNID = maildoc.UniversalID
maildoc.Categories = doc.ReqType
maildoc.Chair = session.UserName
maildoc.MeetingType = 1
maildoc.Principal = session.UserName
maildoc.~_viewicon = 9
maildoc.Subject = doc.ReqType(0) + " TEST"
maildoc.Body = "test"
maildoc.Form = "Appointment"
Call maildoc.Save( True, True )