LotusScript for Visual Basic Programmers - IBM Redbooks

Converting a HiTest Application Using Notes Classes in Visual Basic
through OLE Automation
Lotus Notes Release 4 is an OLE automation server. Converting your
HiTest applications to LotusScript Notes classes through OLE automation
enables you to develop and use your applications in all the environments
supported by Visual Basic, such as Windows, Windows 95 and Windows
NT.
To convert applications developed using the HiTest tools, you translate the
HiTest Basic API functions to equivalent Lotus Notes functions. There is a
number of LotusScript Notes class methods that perform functions
equivalent to HiTest functions.
Note For more details, see Appendix 1.
By converting your HiTest applications, you can more easily access the new
Release 4 Notes design elements. For example, HiTest has no support for
accessing the current Notes document and Notes item. LotusScript Notes
classes, on the other hand, include NotesUIWorkspace and
NotesUIDocument which enable you to access the current Notes workspace
and the current Notes document. You can access the current Notes item
using the CurrentField property of NotesUIDocument.
Let’s look at an example.
Example
This example shows how you can access the current Notes document in
Visual Basic using LotusScript Notes classes through OLE automation. You
will need to keep both Lotus Notes and the current document open.
Otherwise, although the application will be able to open the Notes
workspace, it will return an error message indicating that it cannot find the
current document.
Dim uispace As Object
Dim uidoc As Object
Dim doc As Object
Set uispace = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = uispace.CurrentDocument
Set doc = uidoc.Document
Print (doc.Created)
Set uispace = Nothing
To get the Subject item value of the current document (NotesUIDocument),
we need to get the hierarchy from the current workspace
Chapter 5: Converting HiTest Applications 103