Jeremy WH Ang 9.Feb.12 06:25 PM a Web browser Applications DevelopmentAll ReleasesAll Platforms
Dim thisSession As New NotesSession
Dim thisDatabase As NotesDatabase
Dim dateView As NotesView
Dim viewNav As NotesViewNavigator
Dim setview As NotesView
Dim viewEntry As NotesViewEntry
Dim setdoc As NotesDocument
Dim checkDate As NotesDateTime, dateHours As New NotesDateTime(Now)
Dim hoursVal As Integer
Dim subject As String, detail As string
Set thisDatabase = thisSession.CurrentDatabase
Set dateView = thisDatabase.GetView("LookupInProgress")
Set setview=thisDatabase.GetView(".keywordviewflat")
Set setdoc=setview.GetDocumentbyKey("Approval Reminder")