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 "John B Goode" Messagebox nam.Addr822Phrase,, "Addr822Phrase" End Sub
See Also