Outlook VisualBasic Script

Sub current()
    MsgBox Application.GetNamespace("MAPI").CurrentUser
End Sub