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

See Also

Addr822LocalPart property

Glossary