LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim count As Integer Set db = session.CurrentDatabase Set dc = db.UnprocessedDocuments If dc.Count = 0 Then Exit Sub Set doc = dc.GetFirstDocument times = doc.GetItemValueDateTimeArray("Times") count = 0 Forall t In times count = count + 1 If Typename(t) = "NOTESDATETIME" Then Messagebox t.LocalTime,, "Date/time # " & count Elseif Typename(t) = "NOTESDATERANGE" Then Messagebox t.StartDateTime.LocalTime & " - " & _ t.EndDateTime.LocalTime,, "Date/time # " & count End If End Forall End Sub
See Also