The CurrentUser property returns the active user as an AddressEntry object. Read-only.
objSession.CurrentUser
Object (AddressEntry)
The CurrentUser property returns Nothing when no user is logged on.
This code fragment checks for logon, then displays the full messaging address of the current user:
If objSession Is Nothing Then
MsgBox ("Must log on first")
Exit Function
End If
Set objAddrEntry = objSession.CurrentUser
If objAddrEntry Is Nothing Then
MsgBox "Could not set the address entry object"
Exit Function
Else
MsgBox "Full address = " & objAddrEntry.Type & ":" _
& objAddrEntry.Address
End If