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

Véase también

Glosario
¿Desea opinar sobre la Ayuda o sobre la utilidad del producto?