Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim report As NotesDocument
Dim reportBody As NotesRichTextItem
Dim item As NotesItem
Dim dateTime As NotesDateTime
Set db = session.CurrentDatabase
Set collection = db.FTSearch("GMTTime",0)
Set doc = Collection.GetFirstdocument()
Set report = New NotesDocument( db )
Set reportBody = New NotesRichTextItem( report, "Body" )
report.Form = "Branch Office Report"
While Not(doc Is Nothing)
Set item = doc.GetFirstItem( "PostedDate" )
Set dateTime = item.DateTimeValue
Call reportBody.AppendText( dateTime.GMTTime )
Call reportBody.AppendText( " " )
Call reportBody.AppendText( doc.Event( 0 ) )
Call reportBody.AddNewLine( 1 )
Set doc = collection.GetNextDocument(doc)
Wend
Call report.Save( True, True )
End Sub
For example, if there are three documents in the collection created in Greenwich Mean Time, Pacific Standard Time, and Central Standard Time, respectively, the body of the Report might look like this:
08/06/95 06:12:14 PM GMT London office posts results
08/06/95 06:17:11 PM GMT San Francisco office obtains proposal
08/06/95 08:50:58 PM GMT Chicago office receives sketches