次のエージェントは省略形の階層名を作成し、それを正規形の階層名で表示します。
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 "CN=John B Goode/OU=Sales/OU=East/O=Acme/C=US"
Messagebox nam.Canonical,, "Canonical name"
End Sub