Examples: Addr822Comment1 property

This agent creates an Internet name then displays the RFC 822 Comment1 component.

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 "Guitars"
  Messagebox nam.Addr822Comment1,, "Addr822Comment1"
End Sub