目前使用者

Dim usern As New NotesName(ss.UserName)

Print usern.Abbreviated