- This agent creates a hierarchical name and displays its Common,
Abbreviated, and Canonical properties.
Sub Initialize
Dim session As New NotesSession
Dim nam As NotesName
Dim msg As String
REM Create a hierarchical name
Set nam = session.CreateName( _
{CN=John B Goode/OU=Sales/OU=East/O=Acme/C=US})
%REM
Returns:
John B Goode
John B Goode/Sales/East/Acme/US
CN=John B Goode/OU=Sales/OU=East/O=Acme/C=US
%END REM
msg = nam.Common & Chr(13)
msg = msg & nam.Abbreviated & Chr(13)
msg = msg & nam.Canonical
Messagebox msg,, "Canonical name"
End Sub
- This agent creates an Internet address and displays its Addr822Phrase,
Addr821, Addr822Comment1, Addr822Comment2, and Addr822Comment3 properties.
Sub Initialize
Dim session As New NotesSession
Dim nam As NotesName
Dim msg As String
REM Create an internet name
Set nam = session.CreateName( _
{"John B Goode" <jbg@us.acme.com> (Guitars) (Music) (East)})
%REM
Returns:
"John B Goode"
jbg@us.acme.com
Guitars
Music
East
%END REM
msg = nam.Addr822Phrase & Chr(13)
msg = msg & nam.Addr821 & Chr(13)
msg = msg & nam.Addr822Comment1 & Chr(13)
msg = msg & nam.Addr822Comment2 & Chr(13)
msg = msg & nam.Addr822Comment3
Messagebox msg,, "Internet name"
End Sub
- This agent displays the Common, Abbreviated, and Canonical properties
of the user name.
Sub Initialize
Dim session As New NotesSession
Dim nam As NotesName
Dim msg As String
REM Create a NotesName from user name
Set nam = session.CreateName(session.UserName)
REM Display common, abbreviated, and canonical formats
msg = nam.Common & Chr(13)
msg = msg & nam.Abbreviated & Chr(13)
msg = msg & nam.Canonical
Messagebox msg,, "User name"
End Sub
- This agent gets the SendTo item of the current document, a mail
message, and displays its Addr821 property.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim nam As NotesName
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
REM Create NotesName from SendTo item
REM We expect an Internet name
Set nam = New NotesName(doc.GetItemValue("SendTo")(0))
REM Display Addr821 name
Messagebox nam.Addr821,, "SendTo name"
End Sub