Creating Repeating Reminders for users w/ Lotus Script

hcl-bot · October 12, 2006, 2:44pm

I’m about to give up on this. I have been researching this problem on here for the past week & just CANNOT get it to work properly !!!

Here is my scenario :

I want to email my users a Lotus Script button which will make a reminder on their calendar which repeats on a daily basis. After researching & researching this I decided to use DupliDoc to create the necessary code for this. I made the necessary changes to the UNID (ApptUNID), along w/ some other additions (Call doc.PutInFolder( “$Alarms” ). I want the Reminder to repeat daily for the next year. What my button has created is 2 documents : The Parent Event - and the Child Reminder document which has 365 entries in its CalendarDateTime, EndDateTime, RepeatInstanceDates, & STARTDATETIME fields.

So far, I am able to make the necessary Reminder appear in their calendar. However, the Alarm will only appear on the first day. After that, there’s no Pop-Up Alarm.

I’ve looked into tons of Calendar & Scheduling posts & I cannot figure out why the Alarm will not pop up after the first day.

Here is my code :

Sub Click(Source As Button)

Dim session As New NotesSession

Dim db As NotesDatabase

Dim doc As NotesDocument

Dim docParent As NotesDocument

Dim varTemp As Variant

Dim dateArray( ) As NotesDateTime

Dim item

Set db = session.CurrentDatabase

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Set uidoc = workspace.CurrentDocument

Dim Buttonstatus As NotesItem

Dim user As String

user = session.UserName





Set doc = db.CreateDocument

Call doc.ReplaceItemValue("$PublicAccess", |1|)

Redim tempArray(0 To 1)

tempArray(0) = |D|

tempArray(1) = |S|

Call doc.ReplaceItemValue("ExcludeFromView", tempArray)

Call doc.ReplaceItemValue("WebDateTimeInit", |1|)

Call doc.ReplaceItemValue("OrgTable", |C0|)

Call doc.ReplaceItemValue("$AlarmUnit", |M|)

Call doc.ReplaceItemValue("$Alarm", 1)

Call doc.ReplaceItemValue("$AlarmDescription", |Don't forget to Clock In|)

Call doc.ReplaceItemValue("$AlarmOffset", -2)

Call doc.ReplaceItemValue("Chair", user)

Call doc.ReplaceItemValue("Principal", user)

Call doc.ReplaceItemValue("$AltPrincipal", user)

Call doc.ReplaceItemValue("SequenceNum", 1)

Call doc.ReplaceItemValue("UpdateSeq", 1)

Call doc.ReplaceItemValue("$CSVersion", |2|)

Call doc.ReplaceItemValue("$SMTPKeepNotesItems", |1|)

Redim tempArray(0 To 4)

tempArray(0) = |$S:1|

tempArray(1) = |$L:1|

tempArray(2) = |$B:1|

tempArray(3) = |$R:1|

tempArray(4) = |$E:1|

Call doc.ReplaceItemValue("$CSWISL", tempArray)

Call doc.ReplaceItemValue("RepeatUnit", |D|)

Call doc.ReplaceItemValue("RepeatInterval", |1|)

Set varTemp = New NotesDateTime(Datenumber(2006, 10, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Call doc.ReplaceItemValue("$AlarmTime",varTemp)

Call doc.ReplaceItemValue("RepeatStartDate", varTemp)

Call doc.ReplaceItemValue("EndDateTime", varTemp)

Call doc.ReplaceItemValue("STARTDATETIME", varTemp)

Call doc.ReplaceItemValue("RepeatHow", |F|)

Set varTemp = New NotesDateTime(Datenumber(2006, 10, 13))

Call doc.ReplaceItemValue("RepeatUntil", varTemp)

Call doc.ReplaceItemValue("txtNum", |365|)

Call doc.ReplaceItemValue("RepeatForUnit", |D|)

Call doc.ReplaceItemValue("RepeatFor", 365)

Call doc.ReplaceItemValue("RepeatWeekends", |X|)

Set varTemp = New NotesDateTime(Datenumber(2006, 10, 11))

Call doc.ReplaceItemValue("RepeatCustom", varTemp)

Call doc.ReplaceItemValue("EndDate", varTemp)

Call doc.ReplaceItemValue("StartDate", varTemp)

Call doc.ReplaceItemValue("OrgRepeat", |1|)

Call doc.ReplaceItemValue("MeetingType", |1|)

Call doc.ReplaceItemValue("SchedulerSwitcher", |1|)

Redim dateArray(0 To 260)

Set dateArray(0) = New NotesDateTime(Datenumber(2006, 10, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(1) = New NotesDateTime(Datenumber(2006, 10, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(2) = New NotesDateTime(Datenumber(2006, 10, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(3) = New NotesDateTime(Datenumber(2006, 10, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(4) = New NotesDateTime(Datenumber(2006, 10, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(5) = New NotesDateTime(Datenumber(2006, 10, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(6) = New NotesDateTime(Datenumber(2006, 10, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(7) = New NotesDateTime(Datenumber(2006, 10, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(8) = New NotesDateTime(Datenumber(2006, 10, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(9) = New NotesDateTime(Datenumber(2006, 10, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(10) = New NotesDateTime(Datenumber(2006, 10, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(11) = New NotesDateTime(Datenumber(2006, 10, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(12) = New NotesDateTime(Datenumber(2006, 10, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(13) = New NotesDateTime(Datenumber(2006, 10, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(14) = New NotesDateTime(Datenumber(2006, 10, 31) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(15) = New NotesDateTime(Datenumber(2006, 11, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(16) = New NotesDateTime(Datenumber(2006, 11, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(17) = New NotesDateTime(Datenumber(2006, 11, 3) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(18) = New NotesDateTime(Datenumber(2006, 11, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(19) = New NotesDateTime(Datenumber(2006, 11, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(20) = New NotesDateTime(Datenumber(2006, 11, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(21) = New NotesDateTime(Datenumber(2006, 11, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(22) = New NotesDateTime(Datenumber(2006, 11, 10) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(23) = New NotesDateTime(Datenumber(2006, 11, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(24) = New NotesDateTime(Datenumber(2006, 11, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(25) = New NotesDateTime(Datenumber(2006, 11, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(26) = New NotesDateTime(Datenumber(2006, 11, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(27) = New NotesDateTime(Datenumber(2006, 11, 17) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(28) = New NotesDateTime(Datenumber(2006, 11, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(29) = New NotesDateTime(Datenumber(2006, 11, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(30) = New NotesDateTime(Datenumber(2006, 11, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(31) = New NotesDateTime(Datenumber(2006, 11, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(32) = New NotesDateTime(Datenumber(2006, 11, 24) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(33) = New NotesDateTime(Datenumber(2006, 11, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(34) = New NotesDateTime(Datenumber(2006, 11, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(35) = New NotesDateTime(Datenumber(2006, 11, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(36) = New NotesDateTime(Datenumber(2006, 11, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(37) = New NotesDateTime(Datenumber(2006, 12, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(38) = New NotesDateTime(Datenumber(2006, 12, 4) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(39) = New NotesDateTime(Datenumber(2006, 12, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(40) = New NotesDateTime(Datenumber(2006, 12, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(41) = New NotesDateTime(Datenumber(2006, 12, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(42) = New NotesDateTime(Datenumber(2006, 12, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(43) = New NotesDateTime(Datenumber(2006, 12, 11) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(44) = New NotesDateTime(Datenumber(2006, 12, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(45) = New NotesDateTime(Datenumber(2006, 12, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(46) = New NotesDateTime(Datenumber(2006, 12, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(47) = New NotesDateTime(Datenumber(2006, 12, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(48) = New NotesDateTime(Datenumber(2006, 12, 18) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(49) = New NotesDateTime(Datenumber(2006, 12, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(50) = New NotesDateTime(Datenumber(2006, 12, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(51) = New NotesDateTime(Datenumber(2006, 12, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(52) = New NotesDateTime(Datenumber(2006, 12, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(53) = New NotesDateTime(Datenumber(2006, 12, 25) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(54) = New NotesDateTime(Datenumber(2006, 12, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(55) = New NotesDateTime(Datenumber(2006, 12, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(56) = New NotesDateTime(Datenumber(2006, 12, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(57) = New NotesDateTime(Datenumber(2006, 12, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(58) = New NotesDateTime(Datenumber(2007, 1, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(59) = New NotesDateTime(Datenumber(2007, 1, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(60) = New NotesDateTime(Datenumber(2007, 1, 3) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(61) = New NotesDateTime(Datenumber(2007, 1, 4) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(62) = New NotesDateTime(Datenumber(2007, 1, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(63) = New NotesDateTime(Datenumber(2007, 1, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(64) = New NotesDateTime(Datenumber(2007, 1, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(65) = New NotesDateTime(Datenumber(2007, 1, 10) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(66) = New NotesDateTime(Datenumber(2007, 1, 11) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(67) = New NotesDateTime(Datenumber(2007, 1, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(68) = New NotesDateTime(Datenumber(2007, 1, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(69) = New NotesDateTime(Datenumber(2007, 1, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(70) = New NotesDateTime(Datenumber(2007, 1, 17) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(71) = New NotesDateTime(Datenumber(2007, 1, 18) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(72) = New NotesDateTime(Datenumber(2007, 1, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(73) = New NotesDateTime(Datenumber(2007, 1, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(74) = New NotesDateTime(Datenumber(2007, 1, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(75) = New NotesDateTime(Datenumber(2007, 1, 24) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(76) = New NotesDateTime(Datenumber(2007, 1, 25) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(77) = New NotesDateTime(Datenumber(2007, 1, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(78) = New NotesDateTime(Datenumber(2007, 1, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(79) = New NotesDateTime(Datenumber(2007, 1, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(80) = New NotesDateTime(Datenumber(2007, 1, 31) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(81) = New NotesDateTime(Datenumber(2007, 2, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(82) = New NotesDateTime(Datenumber(2007, 2, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(83) = New NotesDateTime(Datenumber(2007, 2, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(84) = New NotesDateTime(Datenumber(2007, 2, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(85) = New NotesDateTime(Datenumber(2007, 2, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(86) = New NotesDateTime(Datenumber(2007, 2, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(87) = New NotesDateTime(Datenumber(2007, 2, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(88) = New NotesDateTime(Datenumber(2007, 2, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(89) = New NotesDateTime(Datenumber(2007, 2, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(90) = New NotesDateTime(Datenumber(2007, 2, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(91) = New NotesDateTime(Datenumber(2007, 2, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(92) = New NotesDateTime(Datenumber(2007, 2, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(93) = New NotesDateTime(Datenumber(2007, 2, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(94) = New NotesDateTime(Datenumber(2007, 2, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(95) = New NotesDateTime(Datenumber(2007, 2, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(96) = New NotesDateTime(Datenumber(2007, 2, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(97) = New NotesDateTime(Datenumber(2007, 2, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(98) = New NotesDateTime(Datenumber(2007, 2, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(99) = New NotesDateTime(Datenumber(2007, 2, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(100) = New NotesDateTime(Datenumber(2007, 2, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(101) = New NotesDateTime(Datenumber(2007, 3, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(102) = New NotesDateTime(Datenumber(2007, 3, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(103) = New NotesDateTime(Datenumber(2007, 3, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(104) = New NotesDateTime(Datenumber(2007, 3, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(105) = New NotesDateTime(Datenumber(2007, 3, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(106) = New NotesDateTime(Datenumber(2007, 3, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(107) = New NotesDateTime(Datenumber(2007, 3, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(108) = New NotesDateTime(Datenumber(2007, 3, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(109) = New NotesDateTime(Datenumber(2007, 3, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(110) = New NotesDateTime(Datenumber(2007, 3, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(111) = New NotesDateTime(Datenumber(2007, 3, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(112) = New NotesDateTime(Datenumber(2007, 3, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(113) = New NotesDateTime(Datenumber(2007, 3, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(114) = New NotesDateTime(Datenumber(2007, 3, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(115) = New NotesDateTime(Datenumber(2007, 3, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(116) = New NotesDateTime(Datenumber(2007, 3, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(117) = New NotesDateTime(Datenumber(2007, 3, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(118) = New NotesDateTime(Datenumber(2007, 3, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(119) = New NotesDateTime(Datenumber(2007, 3, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(120) = New NotesDateTime(Datenumber(2007, 3, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(121) = New NotesDateTime(Datenumber(2007, 3, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(122) = New NotesDateTime(Datenumber(2007, 3, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(123) = New NotesDateTime(Datenumber(2007, 4, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(124) = New NotesDateTime(Datenumber(2007, 4, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(125) = New NotesDateTime(Datenumber(2007, 4, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(126) = New NotesDateTime(Datenumber(2007, 4, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(127) = New NotesDateTime(Datenumber(2007, 4, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(128) = New NotesDateTime(Datenumber(2007, 4, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(129) = New NotesDateTime(Datenumber(2007, 4, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(130) = New NotesDateTime(Datenumber(2007, 4, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(131) = New NotesDateTime(Datenumber(2007, 4, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(132) = New NotesDateTime(Datenumber(2007, 4, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(133) = New NotesDateTime(Datenumber(2007, 4, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(134) = New NotesDateTime(Datenumber(2007, 4, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(135) = New NotesDateTime(Datenumber(2007, 4, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(136) = New NotesDateTime(Datenumber(2007, 4, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(137) = New NotesDateTime(Datenumber(2007, 4, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(138) = New NotesDateTime(Datenumber(2007, 4, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(139) = New NotesDateTime(Datenumber(2007, 4, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(140) = New NotesDateTime(Datenumber(2007, 4, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(141) = New NotesDateTime(Datenumber(2007, 4, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(142) = New NotesDateTime(Datenumber(2007, 4, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(143) = New NotesDateTime(Datenumber(2007, 4, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(144) = New NotesDateTime(Datenumber(2007, 5, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(145) = New NotesDateTime(Datenumber(2007, 5, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(146) = New NotesDateTime(Datenumber(2007, 5, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(147) = New NotesDateTime(Datenumber(2007, 5, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(148) = New NotesDateTime(Datenumber(2007, 5, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(149) = New NotesDateTime(Datenumber(2007, 5, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(150) = New NotesDateTime(Datenumber(2007, 5, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(151) = New NotesDateTime(Datenumber(2007, 5, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(152) = New NotesDateTime(Datenumber(2007, 5, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(153) = New NotesDateTime(Datenumber(2007, 5, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(154) = New NotesDateTime(Datenumber(2007, 5, 15) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(155) = New NotesDateTime(Datenumber(2007, 5, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(156) = New NotesDateTime(Datenumber(2007, 5, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(157) = New NotesDateTime(Datenumber(2007, 5, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(158) = New NotesDateTime(Datenumber(2007, 5, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(159) = New NotesDateTime(Datenumber(2007, 5, 22) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(160) = New NotesDateTime(Datenumber(2007, 5, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(161) = New NotesDateTime(Datenumber(2007, 5, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(162) = New NotesDateTime(Datenumber(2007, 5, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(163) = New NotesDateTime(Datenumber(2007, 5, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(164) = New NotesDateTime(Datenumber(2007, 5, 29) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(165) = New NotesDateTime(Datenumber(2007, 5, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(166) = New NotesDateTime(Datenumber(2007, 5, 31) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(167) = New NotesDateTime(Datenumber(2007, 6, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(168) = New NotesDateTime(Datenumber(2007, 6, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(169) = New NotesDateTime(Datenumber(2007, 6, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(170) = New NotesDateTime(Datenumber(2007, 6, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(171) = New NotesDateTime(Datenumber(2007, 6, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(172) = New NotesDateTime(Datenumber(2007, 6, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(173) = New NotesDateTime(Datenumber(2007, 6, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(174) = New NotesDateTime(Datenumber(2007, 6, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(175) = New NotesDateTime(Datenumber(2007, 6, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(176) = New NotesDateTime(Datenumber(2007, 6, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(177) = New NotesDateTime(Datenumber(2007, 6, 15) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(178) = New NotesDateTime(Datenumber(2007, 6, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(179) = New NotesDateTime(Datenumber(2007, 6, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(180) = New NotesDateTime(Datenumber(2007, 6, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(181) = New NotesDateTime(Datenumber(2007, 6, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(182) = New NotesDateTime(Datenumber(2007, 6, 22) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(183) = New NotesDateTime(Datenumber(2007, 6, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(184) = New NotesDateTime(Datenumber(2007, 6, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(185) = New NotesDateTime(Datenumber(2007, 6, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(186) = New NotesDateTime(Datenumber(2007, 6, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(187) = New NotesDateTime(Datenumber(2007, 6, 29) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(188) = New NotesDateTime(Datenumber(2007, 7, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(189) = New NotesDateTime(Datenumber(2007, 7, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(190) = New NotesDateTime(Datenumber(2007, 7, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(191) = New NotesDateTime(Datenumber(2007, 7, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(192) = New NotesDateTime(Datenumber(2007, 7, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(193) = New NotesDateTime(Datenumber(2007, 7, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(194) = New NotesDateTime(Datenumber(2007, 7, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(195) = New NotesDateTime(Datenumber(2007, 7, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(196) = New NotesDateTime(Datenumber(2007, 7, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(197) = New NotesDateTime(Datenumber(2007, 7, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(198) = New NotesDateTime(Datenumber(2007, 7, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(199) = New NotesDateTime(Datenumber(2007, 7, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(200) = New NotesDateTime(Datenumber(2007, 7, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(201) = New NotesDateTime(Datenumber(2007, 7, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(202) = New NotesDateTime(Datenumber(2007, 7, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(203) = New NotesDateTime(Datenumber(2007, 7, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(204) = New NotesDateTime(Datenumber(2007, 7, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(205) = New NotesDateTime(Datenumber(2007, 7, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(206) = New NotesDateTime(Datenumber(2007, 7, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(207) = New NotesDateTime(Datenumber(2007, 7, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(208) = New NotesDateTime(Datenumber(2007, 7, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(209) = New NotesDateTime(Datenumber(2007, 7, 31) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(210) = New NotesDateTime(Datenumber(2007, 8, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(211) = New NotesDateTime(Datenumber(2007, 8, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(212) = New NotesDateTime(Datenumber(2007, 8, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(213) = New NotesDateTime(Datenumber(2007, 8, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(214) = New NotesDateTime(Datenumber(2007, 8, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(215) = New NotesDateTime(Datenumber(2007, 8, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(216) = New NotesDateTime(Datenumber(2007, 8, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(217) = New NotesDateTime(Datenumber(2007, 8, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(218) = New NotesDateTime(Datenumber(2007, 8, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(219) = New NotesDateTime(Datenumber(2007, 8, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(220) = New NotesDateTime(Datenumber(2007, 8, 15) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(221) = New NotesDateTime(Datenumber(2007, 8, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(222) = New NotesDateTime(Datenumber(2007, 8, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(223) = New NotesDateTime(Datenumber(2007, 8, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(224) = New NotesDateTime(Datenumber(2007, 8, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(225) = New NotesDateTime(Datenumber(2007, 8, 22) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(226) = New NotesDateTime(Datenumber(2007, 8, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(227) = New NotesDateTime(Datenumber(2007, 8, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(228) = New NotesDateTime(Datenumber(2007, 8, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(229) = New NotesDateTime(Datenumber(2007, 8, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(230) = New NotesDateTime(Datenumber(2007, 8, 29) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(231) = New NotesDateTime(Datenumber(2007, 8, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(232) = New NotesDateTime(Datenumber(2007, 8, 31) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(233) = New NotesDateTime(Datenumber(2007, 9, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(234) = New NotesDateTime(Datenumber(2007, 9, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(235) = New NotesDateTime(Datenumber(2007, 9, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(236) = New NotesDateTime(Datenumber(2007, 9, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(237) = New NotesDateTime(Datenumber(2007, 9, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(238) = New NotesDateTime(Datenumber(2007, 9, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(239) = New NotesDateTime(Datenumber(2007, 9, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(240) = New NotesDateTime(Datenumber(2007, 9, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(241) = New NotesDateTime(Datenumber(2007, 9, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(242) = New NotesDateTime(Datenumber(2007, 9, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(243) = New NotesDateTime(Datenumber(2007, 9, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(244) = New NotesDateTime(Datenumber(2007, 9, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(245) = New NotesDateTime(Datenumber(2007, 9, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(246) = New NotesDateTime(Datenumber(2007, 9, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(247) = New NotesDateTime(Datenumber(2007, 9, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(248) = New NotesDateTime(Datenumber(2007, 9, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(249) = New NotesDateTime(Datenumber(2007, 9, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(250) = New NotesDateTime(Datenumber(2007, 9, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(251) = New NotesDateTime(Datenumber(2007, 9, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(252) = New NotesDateTime(Datenumber(2007, 9, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(253) = New NotesDateTime(Datenumber(2007, 10, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(254) = New NotesDateTime(Datenumber(2007, 10, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(255) = New NotesDateTime(Datenumber(2007, 10, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(256) = New NotesDateTime(Datenumber(2007, 10, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(257) = New NotesDateTime(Datenumber(2007, 10, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(258) = New NotesDateTime(Datenumber(2007, 10, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(259) = New NotesDateTime(Datenumber(2007, 10, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(260) = New NotesDateTime(Datenumber(2007, 10, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Call doc.ReplaceItemValue("RepeatDates", dateArray)

Call doc.ReplaceItemValue("RepeatEndDates", dateArray)

Call doc.ReplaceItemValue("RepeatInstanceDates", dateArray)

Redim tempArray(0 To 1)

tempArray(0) = |Create Repeat Entry by Notes Client on John Doe/DomainName(Release 7.0.1||January 17, 2006) at 10/11/2006 01:03:41 PM|

tempArray(1) = |Create Response Note by Notes Client on John Doe/DomainName(Release 7.0.1||January 17, 2006) at 10/11/2006 01:03:41 PM|

Call doc.ReplaceItemValue("$CSTrack", tempArray)

Set item = doc.CreateRichTextItem("Body")

item.AppendText(|Don't forget to Clock Inbody|)

Call doc.ReplaceItemValue("$BorderColor", |D2DCDC|)

Call doc.ReplaceItemValue("_ViewIcon", 10)

Set varTemp = New NotesDateTime(Datenumber(2007, 10, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Call doc.ReplaceItemValue("$NoPurge", varTemp)

Call doc.ReplaceItemValue("$CSFlags", |c|)

Call doc.ReplaceItemValue("$HFFlags", |1|)

Call doc.ReplaceItemValue("Form", |Appointment|)

Call doc.ReplaceItemValue("$ExpandGroups", |3|)

Call doc.ReplaceItemValue("Logo", |stdNotesLtr0|)

Call doc.ReplaceItemValue("Sign", |0|)

Call doc.ReplaceItemValue("Encrypt", |0|)

Set item = New NotesItem(doc, "From", |John Doe/O=DomainName|, AUTHORS)

item.isSummary = True

Call doc.ReplaceItemValue("$FromPreferredLanguage", |en-US|)

'Call doc.ReplaceItemValue("ApptUNID", |60D51291EBF5CDF285257204005DA2BF|)

Dim docunidvalue As String

docunidvalue = doc.UniversalID

Call doc.ReplaceItemValue("ApptUNID", docunidvalue)



Set item = New NotesItem(doc, "AltChair", |John Doe/O=DomainName|, NAMES)

item.isSummary = True

Call doc.ReplaceItemValue("AppointmentType", |4|)

Call doc.ReplaceItemValue("Alarms", |1|)

Call doc.ReplaceItemValue("Subject", |Don't forget to Clock In|)

Set varTemp = New NotesDateTime(Timenumber(09, 00, 0))

Call doc.ReplaceItemValue("StartTime", varTemp)

Call doc.ReplaceItemValue("EndTime", varTemp)

Redim tempArray(0 To 4)

tempArray(0) = |$S|

tempArray(1) = |$L|

tempArray(2) = |$B|

tempArray(3) = |$R|

tempArray(4) = |$E|

Call doc.ReplaceItemValue("$WatchedItems", tempArray)

Call doc.ReplaceItemValue("StartTimeZone", |Z=5$DO=1$DL=4 1 1 10 -1 1$ZX=25$ZN=Eastern|)

Call doc.ReplaceItemValue("EndTimeZone", |Z=5$DO=1$DL=4 1 1 10 -1 1$ZX=25$ZN=Eastern|)

Call doc.ReplaceItemValue("Repeats", |1|)

doc.Save True, True, True

’ that was a parent doc – now create response.

Set docParent = doc

Set doc = db.CreateDocument( )

doc.MakeResponse docParent

Call doc.ReplaceItemValue("$PublicAccess", |1|)

Redim tempArray(0 To 1)

tempArray(0) = |D|

tempArray(1) = |S|

Call doc.ReplaceItemValue("ExcludeFromView", tempArray)

Call doc.ReplaceItemValue("WebDateTimeInit", |1|)

Call doc.ReplaceItemValue("OrgTable", |C0|)

Call doc.ReplaceItemValue("$AlarmUnit", |M|)

Call doc.ReplaceItemValue("$Alarm", 1)

Call doc.ReplaceItemValue("$AlarmDescription", |Don't forget to Clock In|)

Call doc.ReplaceItemValue("$AlarmOffset", -2)

Set varTemp = New NotesDateTime(Datenumber(2006, 10, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Call doc.ReplaceItemValue("$AlarmTime",varTemp)

Call doc.ReplaceItemValue("Chair", user)

Call doc.ReplaceItemValue("Principal", user)

Call doc.ReplaceItemValue("$AltPrincipal", |John Doe/O=DomainName|)

Call doc.ReplaceItemValue("SequenceNum", 1)

Call doc.ReplaceItemValue("UpdateSeq", 1)

Call doc.ReplaceItemValue("$CSVersion", |2|)

Call doc.ReplaceItemValue("$SMTPKeepNotesItems", |1|)

Redim tempArray(0 To 4)

tempArray(0) = |$S:1|

tempArray(1) = |$L:1|

tempArray(2) = |$B:1|

tempArray(3) = |$R:1|

tempArray(4) = |$E:1|

Call doc.ReplaceItemValue("$CSWISL", tempArray)

Call doc.ReplaceItemValue("txtNum", |365|)

Call doc.ReplaceItemValue("OrgRepeat", |1|)

Call doc.ReplaceItemValue("$HFFlags", |1|)

Call doc.ReplaceItemValue("Form", |Appointment|)

Call doc.ReplaceItemValue("$ExpandGroups", |3|)

Call doc.ReplaceItemValue("Logo", |stdNotesLtr0|)

Call doc.ReplaceItemValue("Sign", |0|)

Call doc.ReplaceItemValue("Encrypt", |0|)

Set item = New NotesItem(doc, "From", |John Doe/O=DomainName|, AUTHORS)

item.isSummary = True

Call doc.ReplaceItemValue("$FromPreferredLanguage", |en-US|)

'Call doc.ReplaceItemValue(“ApptUNID”, |60D51291EBF5CDF285257204005DA2BF|)

Call doc.ReplaceItemValue("ApptUNID", docunidvalue)



Set item = New NotesItem(doc, "AltChair", |John Doe/O=DomainName|, NAMES)

item.isSummary = True

Call doc.ReplaceItemValue("AppointmentType", |4|)

Call doc.ReplaceItemValue("Alarms", |1|)

Call doc.ReplaceItemValue("Subject", |Don't forget to Clock In|)

Call doc.ReplaceItemValue("StartTimeZone", |Z=5$DO=1$DL=4 1 1 10 -1 1$ZX=25$ZN=Eastern|)

Call doc.ReplaceItemValue("EndTimeZone", |Z=5$DO=1$DL=4 1 1 10 -1 1$ZX=25$ZN=Eastern|)

Call doc.ReplaceItemValue("Repeats", |1|)

Call doc.ReplaceItemValue("MeetingType", |1|)

Call doc.ReplaceItemValue("SchedulerSwitcher", |1|)

Set item = doc.CreateRichTextItem("Body")

item.AppendText(|newestreminderbody|)

Call doc.ReplaceItemValue("$BorderColor", |D2DCDC|)

Redim tempArray(0 To 4)

tempArray(0) = |$S|

tempArray(1) = |$L|

tempArray(2) = |$B|

tempArray(3) = |$R|

tempArray(4) = |$E|

Call doc.ReplaceItemValue("$WatchedItems", tempArray)

Set varTemp = New NotesDateTime(Datenumber(2006, 10, 11))

Call doc.ReplaceItemValue("StartDate", varTemp)

Call doc.ReplaceItemValue("EndDate", varTemp)

Set varTemp = New NotesDateTime(Timenumber(09, 00, 0))

Call doc.ReplaceItemValue("StartTime", varTemp)

Call doc.ReplaceItemValue("EndTime", varTemp)

Redim dateArray(0 To 260)

Set dateArray(0) = New NotesDateTime(Datenumber(2006, 10, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(1) = New NotesDateTime(Datenumber(2006, 10, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(2) = New NotesDateTime(Datenumber(2006, 10, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(3) = New NotesDateTime(Datenumber(2006, 10, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(4) = New NotesDateTime(Datenumber(2006, 10, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(5) = New NotesDateTime(Datenumber(2006, 10, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(6) = New NotesDateTime(Datenumber(2006, 10, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(7) = New NotesDateTime(Datenumber(2006, 10, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(8) = New NotesDateTime(Datenumber(2006, 10, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(9) = New NotesDateTime(Datenumber(2006, 10, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(10) = New NotesDateTime(Datenumber(2006, 10, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(11) = New NotesDateTime(Datenumber(2006, 10, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(12) = New NotesDateTime(Datenumber(2006, 10, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(13) = New NotesDateTime(Datenumber(2006, 10, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(14) = New NotesDateTime(Datenumber(2006, 10, 31) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(15) = New NotesDateTime(Datenumber(2006, 11, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(16) = New NotesDateTime(Datenumber(2006, 11, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(17) = New NotesDateTime(Datenumber(2006, 11, 3) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(18) = New NotesDateTime(Datenumber(2006, 11, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(19) = New NotesDateTime(Datenumber(2006, 11, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(20) = New NotesDateTime(Datenumber(2006, 11, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(21) = New NotesDateTime(Datenumber(2006, 11, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(22) = New NotesDateTime(Datenumber(2006, 11, 10) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(23) = New NotesDateTime(Datenumber(2006, 11, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(24) = New NotesDateTime(Datenumber(2006, 11, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(25) = New NotesDateTime(Datenumber(2006, 11, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(26) = New NotesDateTime(Datenumber(2006, 11, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(27) = New NotesDateTime(Datenumber(2006, 11, 17) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(28) = New NotesDateTime(Datenumber(2006, 11, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(29) = New NotesDateTime(Datenumber(2006, 11, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(30) = New NotesDateTime(Datenumber(2006, 11, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(31) = New NotesDateTime(Datenumber(2006, 11, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(32) = New NotesDateTime(Datenumber(2006, 11, 24) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(33) = New NotesDateTime(Datenumber(2006, 11, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(34) = New NotesDateTime(Datenumber(2006, 11, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(35) = New NotesDateTime(Datenumber(2006, 11, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(36) = New NotesDateTime(Datenumber(2006, 11, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(37) = New NotesDateTime(Datenumber(2006, 12, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(38) = New NotesDateTime(Datenumber(2006, 12, 4) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(39) = New NotesDateTime(Datenumber(2006, 12, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(40) = New NotesDateTime(Datenumber(2006, 12, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(41) = New NotesDateTime(Datenumber(2006, 12, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(42) = New NotesDateTime(Datenumber(2006, 12, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(43) = New NotesDateTime(Datenumber(2006, 12, 11) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(44) = New NotesDateTime(Datenumber(2006, 12, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(45) = New NotesDateTime(Datenumber(2006, 12, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(46) = New NotesDateTime(Datenumber(2006, 12, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(47) = New NotesDateTime(Datenumber(2006, 12, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(48) = New NotesDateTime(Datenumber(2006, 12, 18) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(49) = New NotesDateTime(Datenumber(2006, 12, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(50) = New NotesDateTime(Datenumber(2006, 12, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(51) = New NotesDateTime(Datenumber(2006, 12, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(52) = New NotesDateTime(Datenumber(2006, 12, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(53) = New NotesDateTime(Datenumber(2006, 12, 25) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(54) = New NotesDateTime(Datenumber(2006, 12, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(55) = New NotesDateTime(Datenumber(2006, 12, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(56) = New NotesDateTime(Datenumber(2006, 12, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(57) = New NotesDateTime(Datenumber(2006, 12, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(58) = New NotesDateTime(Datenumber(2007, 1, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(59) = New NotesDateTime(Datenumber(2007, 1, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(60) = New NotesDateTime(Datenumber(2007, 1, 3) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(61) = New NotesDateTime(Datenumber(2007, 1, 4) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(62) = New NotesDateTime(Datenumber(2007, 1, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(63) = New NotesDateTime(Datenumber(2007, 1, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(64) = New NotesDateTime(Datenumber(2007, 1, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(65) = New NotesDateTime(Datenumber(2007, 1, 10) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(66) = New NotesDateTime(Datenumber(2007, 1, 11) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(67) = New NotesDateTime(Datenumber(2007, 1, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(68) = New NotesDateTime(Datenumber(2007, 1, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(69) = New NotesDateTime(Datenumber(2007, 1, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(70) = New NotesDateTime(Datenumber(2007, 1, 17) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(71) = New NotesDateTime(Datenumber(2007, 1, 18) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(72) = New NotesDateTime(Datenumber(2007, 1, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(73) = New NotesDateTime(Datenumber(2007, 1, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(74) = New NotesDateTime(Datenumber(2007, 1, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(75) = New NotesDateTime(Datenumber(2007, 1, 24) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(76) = New NotesDateTime(Datenumber(2007, 1, 25) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(77) = New NotesDateTime(Datenumber(2007, 1, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(78) = New NotesDateTime(Datenumber(2007, 1, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(79) = New NotesDateTime(Datenumber(2007, 1, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(80) = New NotesDateTime(Datenumber(2007, 1, 31) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(81) = New NotesDateTime(Datenumber(2007, 2, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(82) = New NotesDateTime(Datenumber(2007, 2, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(83) = New NotesDateTime(Datenumber(2007, 2, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(84) = New NotesDateTime(Datenumber(2007, 2, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(85) = New NotesDateTime(Datenumber(2007, 2, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(86) = New NotesDateTime(Datenumber(2007, 2, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(87) = New NotesDateTime(Datenumber(2007, 2, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(88) = New NotesDateTime(Datenumber(2007, 2, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(89) = New NotesDateTime(Datenumber(2007, 2, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(90) = New NotesDateTime(Datenumber(2007, 2, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(91) = New NotesDateTime(Datenumber(2007, 2, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(92) = New NotesDateTime(Datenumber(2007, 2, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(93) = New NotesDateTime(Datenumber(2007, 2, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(94) = New NotesDateTime(Datenumber(2007, 2, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(95) = New NotesDateTime(Datenumber(2007, 2, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(96) = New NotesDateTime(Datenumber(2007, 2, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(97) = New NotesDateTime(Datenumber(2007, 2, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(98) = New NotesDateTime(Datenumber(2007, 2, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(99) = New NotesDateTime(Datenumber(2007, 2, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(100) = New NotesDateTime(Datenumber(2007, 2, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(101) = New NotesDateTime(Datenumber(2007, 3, 1) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(102) = New NotesDateTime(Datenumber(2007, 3, 2) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(103) = New NotesDateTime(Datenumber(2007, 3, 5) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(104) = New NotesDateTime(Datenumber(2007, 3, 6) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(105) = New NotesDateTime(Datenumber(2007, 3, 7) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(106) = New NotesDateTime(Datenumber(2007, 3, 8) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(107) = New NotesDateTime(Datenumber(2007, 3, 9) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(108) = New NotesDateTime(Datenumber(2007, 3, 12) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(109) = New NotesDateTime(Datenumber(2007, 3, 13) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(110) = New NotesDateTime(Datenumber(2007, 3, 14) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(111) = New NotesDateTime(Datenumber(2007, 3, 15) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(112) = New NotesDateTime(Datenumber(2007, 3, 16) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(113) = New NotesDateTime(Datenumber(2007, 3, 19) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(114) = New NotesDateTime(Datenumber(2007, 3, 20) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(115) = New NotesDateTime(Datenumber(2007, 3, 21) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(116) = New NotesDateTime(Datenumber(2007, 3, 22) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(117) = New NotesDateTime(Datenumber(2007, 3, 23) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(118) = New NotesDateTime(Datenumber(2007, 3, 26) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(119) = New NotesDateTime(Datenumber(2007, 3, 27) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(120) = New NotesDateTime(Datenumber(2007, 3, 28) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(121) = New NotesDateTime(Datenumber(2007, 3, 29) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(122) = New NotesDateTime(Datenumber(2007, 3, 30) & " " & Timenumber(09, 00, 0) & " EST")

Set dateArray(123) = New NotesDateTime(Datenumber(2007, 4, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(124) = New NotesDateTime(Datenumber(2007, 4, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(125) = New NotesDateTime(Datenumber(2007, 4, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(126) = New NotesDateTime(Datenumber(2007, 4, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(127) = New NotesDateTime(Datenumber(2007, 4, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(128) = New NotesDateTime(Datenumber(2007, 4, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(129) = New NotesDateTime(Datenumber(2007, 4, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(130) = New NotesDateTime(Datenumber(2007, 4, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(131) = New NotesDateTime(Datenumber(2007, 4, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(132) = New NotesDateTime(Datenumber(2007, 4, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(133) = New NotesDateTime(Datenumber(2007, 4, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(134) = New NotesDateTime(Datenumber(2007, 4, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(135) = New NotesDateTime(Datenumber(2007, 4, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(136) = New NotesDateTime(Datenumber(2007, 4, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(137) = New NotesDateTime(Datenumber(2007, 4, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(138) = New NotesDateTime(Datenumber(2007, 4, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(139) = New NotesDateTime(Datenumber(2007, 4, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(140) = New NotesDateTime(Datenumber(2007, 4, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(141) = New NotesDateTime(Datenumber(2007, 4, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(142) = New NotesDateTime(Datenumber(2007, 4, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(143) = New NotesDateTime(Datenumber(2007, 4, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(144) = New NotesDateTime(Datenumber(2007, 5, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(145) = New NotesDateTime(Datenumber(2007, 5, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(146) = New NotesDateTime(Datenumber(2007, 5, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(147) = New NotesDateTime(Datenumber(2007, 5, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(148) = New NotesDateTime(Datenumber(2007, 5, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(149) = New NotesDateTime(Datenumber(2007, 5, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(150) = New NotesDateTime(Datenumber(2007, 5, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(151) = New NotesDateTime(Datenumber(2007, 5, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(152) = New NotesDateTime(Datenumber(2007, 5, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(153) = New NotesDateTime(Datenumber(2007, 5, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(154) = New NotesDateTime(Datenumber(2007, 5, 15) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(155) = New NotesDateTime(Datenumber(2007, 5, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(156) = New NotesDateTime(Datenumber(2007, 5, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(157) = New NotesDateTime(Datenumber(2007, 5, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(158) = New NotesDateTime(Datenumber(2007, 5, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(159) = New NotesDateTime(Datenumber(2007, 5, 22) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(160) = New NotesDateTime(Datenumber(2007, 5, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(161) = New NotesDateTime(Datenumber(2007, 5, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(162) = New NotesDateTime(Datenumber(2007, 5, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(163) = New NotesDateTime(Datenumber(2007, 5, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(164) = New NotesDateTime(Datenumber(2007, 5, 29) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(165) = New NotesDateTime(Datenumber(2007, 5, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(166) = New NotesDateTime(Datenumber(2007, 5, 31) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(167) = New NotesDateTime(Datenumber(2007, 6, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(168) = New NotesDateTime(Datenumber(2007, 6, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(169) = New NotesDateTime(Datenumber(2007, 6, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(170) = New NotesDateTime(Datenumber(2007, 6, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(171) = New NotesDateTime(Datenumber(2007, 6, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(172) = New NotesDateTime(Datenumber(2007, 6, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(173) = New NotesDateTime(Datenumber(2007, 6, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(174) = New NotesDateTime(Datenumber(2007, 6, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(175) = New NotesDateTime(Datenumber(2007, 6, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(176) = New NotesDateTime(Datenumber(2007, 6, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(177) = New NotesDateTime(Datenumber(2007, 6, 15) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(178) = New NotesDateTime(Datenumber(2007, 6, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(179) = New NotesDateTime(Datenumber(2007, 6, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(180) = New NotesDateTime(Datenumber(2007, 6, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(181) = New NotesDateTime(Datenumber(2007, 6, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(182) = New NotesDateTime(Datenumber(2007, 6, 22) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(183) = New NotesDateTime(Datenumber(2007, 6, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(184) = New NotesDateTime(Datenumber(2007, 6, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(185) = New NotesDateTime(Datenumber(2007, 6, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(186) = New NotesDateTime(Datenumber(2007, 6, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(187) = New NotesDateTime(Datenumber(2007, 6, 29) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(188) = New NotesDateTime(Datenumber(2007, 7, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(189) = New NotesDateTime(Datenumber(2007, 7, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(190) = New NotesDateTime(Datenumber(2007, 7, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(191) = New NotesDateTime(Datenumber(2007, 7, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(192) = New NotesDateTime(Datenumber(2007, 7, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(193) = New NotesDateTime(Datenumber(2007, 7, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(194) = New NotesDateTime(Datenumber(2007, 7, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(195) = New NotesDateTime(Datenumber(2007, 7, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(196) = New NotesDateTime(Datenumber(2007, 7, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(197) = New NotesDateTime(Datenumber(2007, 7, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(198) = New NotesDateTime(Datenumber(2007, 7, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(199) = New NotesDateTime(Datenumber(2007, 7, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(200) = New NotesDateTime(Datenumber(2007, 7, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(201) = New NotesDateTime(Datenumber(2007, 7, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(202) = New NotesDateTime(Datenumber(2007, 7, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(203) = New NotesDateTime(Datenumber(2007, 7, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(204) = New NotesDateTime(Datenumber(2007, 7, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(205) = New NotesDateTime(Datenumber(2007, 7, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(206) = New NotesDateTime(Datenumber(2007, 7, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(207) = New NotesDateTime(Datenumber(2007, 7, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(208) = New NotesDateTime(Datenumber(2007, 7, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(209) = New NotesDateTime(Datenumber(2007, 7, 31) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(210) = New NotesDateTime(Datenumber(2007, 8, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(211) = New NotesDateTime(Datenumber(2007, 8, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(212) = New NotesDateTime(Datenumber(2007, 8, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(213) = New NotesDateTime(Datenumber(2007, 8, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(214) = New NotesDateTime(Datenumber(2007, 8, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(215) = New NotesDateTime(Datenumber(2007, 8, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(216) = New NotesDateTime(Datenumber(2007, 8, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(217) = New NotesDateTime(Datenumber(2007, 8, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(218) = New NotesDateTime(Datenumber(2007, 8, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(219) = New NotesDateTime(Datenumber(2007, 8, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(220) = New NotesDateTime(Datenumber(2007, 8, 15) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(221) = New NotesDateTime(Datenumber(2007, 8, 16) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(222) = New NotesDateTime(Datenumber(2007, 8, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(223) = New NotesDateTime(Datenumber(2007, 8, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(224) = New NotesDateTime(Datenumber(2007, 8, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(225) = New NotesDateTime(Datenumber(2007, 8, 22) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(226) = New NotesDateTime(Datenumber(2007, 8, 23) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(227) = New NotesDateTime(Datenumber(2007, 8, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(228) = New NotesDateTime(Datenumber(2007, 8, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(229) = New NotesDateTime(Datenumber(2007, 8, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(230) = New NotesDateTime(Datenumber(2007, 8, 29) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(231) = New NotesDateTime(Datenumber(2007, 8, 30) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(232) = New NotesDateTime(Datenumber(2007, 8, 31) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(233) = New NotesDateTime(Datenumber(2007, 9, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(234) = New NotesDateTime(Datenumber(2007, 9, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(235) = New NotesDateTime(Datenumber(2007, 9, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(236) = New NotesDateTime(Datenumber(2007, 9, 6) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(237) = New NotesDateTime(Datenumber(2007, 9, 7) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(238) = New NotesDateTime(Datenumber(2007, 9, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(239) = New NotesDateTime(Datenumber(2007, 9, 11) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(240) = New NotesDateTime(Datenumber(2007, 9, 12) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(241) = New NotesDateTime(Datenumber(2007, 9, 13) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(242) = New NotesDateTime(Datenumber(2007, 9, 14) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(243) = New NotesDateTime(Datenumber(2007, 9, 17) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(244) = New NotesDateTime(Datenumber(2007, 9, 18) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(245) = New NotesDateTime(Datenumber(2007, 9, 19) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(246) = New NotesDateTime(Datenumber(2007, 9, 20) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(247) = New NotesDateTime(Datenumber(2007, 9, 21) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(248) = New NotesDateTime(Datenumber(2007, 9, 24) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(249) = New NotesDateTime(Datenumber(2007, 9, 25) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(250) = New NotesDateTime(Datenumber(2007, 9, 26) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(251) = New NotesDateTime(Datenumber(2007, 9, 27) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(252) = New NotesDateTime(Datenumber(2007, 9, 28) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(253) = New NotesDateTime(Datenumber(2007, 10, 1) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(254) = New NotesDateTime(Datenumber(2007, 10, 2) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(255) = New NotesDateTime(Datenumber(2007, 10, 3) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(256) = New NotesDateTime(Datenumber(2007, 10, 4) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(257) = New NotesDateTime(Datenumber(2007, 10, 5) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(258) = New NotesDateTime(Datenumber(2007, 10, 8) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(259) = New NotesDateTime(Datenumber(2007, 10, 9) & " " & Timenumber(09, 00, 0) & " EDT")

Set dateArray(260) = New NotesDateTime(Datenumber(2007, 10, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Call doc.ReplaceItemValue("STARTDATETIME", dateArray)

Call doc.ReplaceItemValue("EndDateTime", dateArray)

Call doc.ReplaceItemValue("RepeatInstanceDates", dateArray)

Call doc.ReplaceItemValue("CalendarDateTime", dateArray)

Set varTemp = New NotesDateTime(Datenumber(2007, 10, 10) & " " & Timenumber(09, 00, 0) & " EDT")

Call doc.ReplaceItemValue("$NoPurge", varTemp)

Call doc.ReplaceItemValue("_ViewIcon", 10)

Redim tempArray(0 To 1)

tempArray(0) = |Create Repeat Entry by Notes Client on John Doe/DomainName(Release 7.0.1||January 17, 2006) at 10/11/2006 01:03:41 PM|

tempArray(1) = |Create Response Note by Notes Client on John Doe/DomainName(Release 7.0.1||January 17, 2006) at 10/11/2006 01:03:41 PM|

Call doc.ReplaceItemValue("$CSTrack", tempArray)

Call doc.ReplaceItemValue("$RefOptions", |1|)

Call doc.ReplaceItemValue("$CSFlags", |i|)



Call doc.Save(True,True)

Call doc.PutInFolder( "$Alarms" )

End Sub

Any help you can give me would be VERY appreciated !!!

thank you !!!

v

hcl-bot · October 13, 2006, 4:53am

Subject: Creating Repeating Reminders for users w/ Lotus Script

V,

Could it be that the user doesn’t have alarms enabled in their calendar profile?

Here’s some code I wrote way back in 2000 for R4.6 which worked just fine - I’m pretty sure it still works in R6.5.

Sub Click(Source As Button)

'utility for creating a calendar entry (reminder) in the users mail file with alarm function.

’ Ben Rodway

Dim ns As NotesSession

Dim uiw As NotesUIWorkspace

Dim uid As NotesUIDocument

Dim doc As NotesDocument

Dim mailDB As New NotesDatabase("","")

Dim thisDB As NotesDatabase     

Dim dateitem As NotesItem

Dim timeitem As NotesItem

Dim success As Variant

Dim profile As NotesDocument



Set ns=New NotesSession

Set uiw=New NotesUIWorkspace

Set uid=uiw.CurrentDocument



Set thisDB = ns.CurrentDatabase

Set thisDoc = uid.Document

Set mailDB = New NotesDatabase (thisDoc.mS(0) , thisdoc.mF(0)) 'mS and mF are fields on the UIDoc containing mail server and mail file details of currrent user



Set profile = mailDB.GetProfileDocument("CalendarProfile")     'find users calendar profile

If profile.EnableAlarms(0) <> "1" Then ' check to see if alarms are enabled

	

	If Messagebox("You have not enabled alarms in your Calendar Profile.  Do you want to enable them now?", 4+32, "Enable Alarms?") = 6 Then

		uiw.EnableAlarms(True) 

		Call profile.ReplaceItemValue("EnableAlarms", "1")

		Call profile.Save(True,True,True)

	End If

End If

Set doc = New NotesDocument(mailDB)

doc.Form="Appointment"

doc.AppointmentType="4" 'reminder

doc.Subject="Reminder - please call " & thisDoc.comname1(0) & " on " & thisDoc.Phone(0)

doc.ExcludeFromView="D" 'ensures it doesn't appear in drafts view

doc.RemoveItem("$AlarmOffset")

Set dateitem = thisDoc.GetFirstItem("callback")

Set timeitem = thisDoc.GetFirstItem("calltime")

Set AlarmTime = New NotesDateTime(dateitem.DateTimeValue.DateOnly & " " & timeitem.DateTimeValue.TimeOnly)

Call doc.ReplaceItemValue("$AlarmTime", AlarmTime.LSLocalTime)

Call doc.ReplaceItemValue("$NoPurge", AlarmTime.LSLocalTime)

Call doc.ReplaceItemValue("$AlarmDescription" , doc.Subject)     

doc.StartDateTime=AlarmTime.LSLocalTime

doc.ReminderTime=AlarmTime.LSLocalTime

doc.EndDateTime=AlarmTime.LSLocalTime

doc.CalendarDateTime=AlarmTime.LSLocalTime

doc.BookFreeTime="1"

doc.CHAIR=ns.UserName

doc.ORGDONTDOUBLEBOOK=""

doc.ORGTABLE="C0"

doc.PRINCIPAL=ns.UserName

doc.tmpApptFlags=""

Call doc.ReplaceItemValue("_ViewIcon" , 10)

Call doc.ReplaceItemValue("$Alarm" , 1)

Call doc.ReplaceItemValue("$BusyPriority" , "2")

Call doc.ReplaceItemValue("$PublicAccess" , "1")

Call doc.ReplaceItemValue("$BusyName" , ns.UserName)

Call doc.ReplaceItemValue("$PrevBusyName" , ns.UserName)



success=doc.ComputeWithForm(False, False)

If success Then

	Call doc.Save(False, False)

	Call doc.PutInFolder("$Alarms") 'needs to be in this folder to allow the alarms agent to run on it

End If

Call uid.Refresh

Print "Calendar alarm created....."

Dim msg As String

msg = "Alarm Created for " & AlarmTime.LSLocalTime

Messagebox msg, 64, "Calendar"

End Sub

hcl-bot · October 13, 2006, 11:45am

Subject: RE: Creating Repeating Reminders for users w/ Lotus Script

Ben,

Thank you very much for your feedback.

“Could it be that the user doesn’t have alarms enabled in their calendar profile?”

no - that’s not the case. They all have their Calendar alarms activated. The first Reminder is popping up - but the following ones (the next day for the same time) is not popping up. However, it’s showing up on their calendar - just not actually popping up.

I looked at your coding. One difference I notice was that it has JUST a time for $Alarmtime, and I have the Events’ date AND time. Might that be the resign I am only getting the first Reminder ? I’ve been doing research on the $Alarmtime field, but can’t really find too much about it.

thanks !

v

hcl-bot · September 16, 2015, 4:28am

Subject: -

hcl-bot · September 16, 2015, 5:44pm

Subject: You don’t say!