' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' * ' * Getting special documents (About, Using, Icon) ' * Programmatic handling of About document ' * ' * sample code from ' * LotusScript to Lotus C API Programmer Guide by Normunds Kalnberzins, (c) 2000-2003 ' * ' * http://www.ls2capi.com ' * ' * Author: Normunds Kalnberzins ' * ' * This code has been written as a sample to illustrate aspects of handling of Lotus C API from LotusScript ' * and may be reused, modified on full responsibility of the developer and provided this notice is preserved ' * ' * The author does not guaranty it to fit any particular purpose and it is up to the developer ' * to modify, test it and determine the limits of its applicability ' * ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' * * * * * * * * START (Const) [SPECIAL_ID] ' * * * * * * * * ' * ' * /* Notes product help index note */ ' * Const NOTE_ID_SPECIAL = &hFFFF0000& Const NOTE_CLASS_HELP = &h0100 Const NOTE_CLASS_INFO = &h0002 Const NOTE_CLASS_ICON = &h0010 Const NOTE_CLASS_DESIGN = &h0020 Const NOTE_CLASS_ACL = &h0040 Const NOTE_CLASS_HELP_INDEX = &h0080 ' * * * * * * * * END (Const) [SPECIAL_ID] ' * * * * * * * * ' * * * * * * * * START (Method) [INITIALIZE] ' * * * * * * * * ' * Sub Initialize Dim s As New notessession Dim ndb As notesdatabase Dim doc As NotesDocument Set ndb = s.currentdatabase Set doc = ndb.getDocumentbyid(Hex(NOTE_ID_SPECIAL Or NOTE_CLASS_INFO)) doc.Version_num = Timer doc.save True, True End Sub ' * * * * * * * * END (Method) [INITIALIZE] ' * * * * * * * * ' * * * * * * * * END (Function library) [GETSPECIALDOC] ' * * * * * * * *