LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim nam As NotesName REM Create a hierarchical name Set nam = session.CreateName( _ "CN=John B Goode/OU=Sales/OU=East/O=Acme/C=US/A=acmeadmd/P=acmeprmd") REM Returns "acmeadmd" Messagebox nam.ADMD,, "ADMD" End Sub
See Also