Manage Learn to apply best practices and optimize your operations.

LotusScript to search Lotus Notes documents created in a specific time zone

SearchDomino.com member Gunasekaran Subramainian explains how to create a button using LotusScript that will search for Lotus Notes documents created in a specific time zone and within a specified date and time range.

This database search functionality will search for Lotus Notes documents created in a specific time zone -- within the date/time range the user gives -- with just a couple of steps.

  1. Get the From date and time and the To date and time of Lotus Notes documents created from the search form.

  2. Now, search for the Lotus Notes documents created in that particular date and time range. The following code should be implemented into the search button:
 Dim wks As NotesUIWorkspace 
Dim session As NotesSession
Dim db As NotesDatabase
 
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim docCurrent As NotesDocument

Dim From_datetime As NotesDateTime
Dim To_datetime As NotesDateTime
 
Dim strFromDateTime As String
Dim strToDateTime As String
 
Set wks = New NotesUIWorkspace
Set session = New NotesSession
Set db = session.CurrentDatabase
Set uidoc = wks.CurrentDocument
Set docCurrent = uidoc.Document
 
'FromDate and FromTime are the fields 
to get corresponding Date and Time 
values of Search form
 strFromDateTime = 
Format(docCurrent.FromDate(0), "Short Date") 
&" " & Format(docCurrent.FromTime(0), 
"Long Time")
 Set From_datetime = 
New NotesDateTime(strFromDateTime)
 
'ToDate and ToTime are the fields to get 
corresponding Date and Time values of 
Search form 
 strToDateTime = 
Format(docCurrent.ToDate(0), "Short Date") 
&" " & Format(docCurrent.ToTime(0), "Long Time")
 Set To_datetime = 
New NotesDateTime(strToDateTime)
 
'docCreatedOnUS holds the date/time 
field (in US timezone) of the document created. 
'This query will helps to find the result. 
 querysearch$ = { Form = 
"Sample" & (docCreatedOnUS >= [} 
& From_datetime.ZoneTime & _ 
 {]) & (docCreatedOnUS 
<=  [} & To_datetime.ZoneTime & {])} 
'The collection of documents as result
 Set dc = 
db.Search(querysearch$, Nothing, 0)
 Msgbox dc.Count,0+64, db.Title

Do you have comments on this tip? Let us know.

This tip was submitted to the SearchDomino.com tip library by member Gunasekaran Subramanian. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.

Dig Deeper on LotusScript

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close