例: Addr822LocalPart property

次のエージェントはインターネット名を作成し、RFC 822 の LocalPart 構成要素を表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim nam As NotesName
  REM Create an internet name
  Set nam = session.CreateName( _
  {"John B Goode" <jbg@us.acme.com> (Guitars) (Music) (East)})
  REM Returns "jbg"
  Messagebox nam.Addr822LocalPart,, "Addr822LocalPart"
End Sub