Dim NS As Outlook.NameSpace Set NS = Application.GetNamespace("MAPI") MsgBox NS.CurrentUser
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)