Examples: Common property

  1. This agent creates a hierarchical name then displays the common name.
    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
  2. This agent creates an Internet name then displays the common name (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