Private Sub InitializeDomino_Click()
Dim s As New NotesSession
Call s.Initialize
MsgBox s.CommonUserName, , "Common user name"
End Sub
Private Sub InitializeDomino_Click()
Dim session As NotesSession
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize("secretPassword")
TextUsername = session.UserName
End Sub