LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsHierarchical property
This agent creates and tests hierarchical and flat names.

Sub Initialize
 Dim session As New NotesSession
 Dim nam As NotesName
 REM Create a hierarchical name
 Set nam = session.CreateName( _
 "John B Goode/Sales/East/Acme/US")
 REM Returns "Hierarchical name"
 Call TestName(nam)
 REM Create a flat name
 Set nam = session.CreateName( _
 "John B Goode")
 REM Returns "Flat name"
 Call TestName(nam)
End Sub

Sub TestName(nam)
 If nam.IsHierarchical Then
   Messagebox nam.Abbreviated,, "Hierarchical name"
 Else
   Messagebox nam.Common,, "Flat name"
 End If
End Sub

See Also