例: Common property

次のエージェントは階層名を作成し、共通名を表示します。

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")
  REM Returns "John B Goode"
  Messagebox nam.Common,, "Common name"
End Sub

次のエージェントはインターネット名を作成し、共通名 (LocalPart) を表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim nam As NotesName
  REM Create an internet name
  Set nam = session.CreateName( _
  "John_B_Goode@us.acme.com")
  REM Returns "John_B_Goode"
  Messagebox nam.Common,, "Common name"
End Sub