Examples: Addr821 property

This agent creates an Internet name then displays the RFC 821 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 "jbg@us.acme.com"
  Messagebox nam.Addr821,, "Addr821 name"
End Sub