Platform SDK: CDO 1.2.1 |
The CurrentUser property returns the active user as an AddressEntry object. Read-only.
Set objAddrEntry = 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