例: UserNameObject property (NotesSession - LotusScript®)

次の Visual Basic コードは、現在のユーザーの共通名を表示します。

Private Sub UserNameObject_Click()
Dim s As New NotesSession
s.Initialize
MsgBox s.UserNameObject.Common, , "Common user name"
End Sub