Reference the active user
From Microsoft Office Outlook 2003
Reference the active user
Use GetNameSpace to return the Outlook NameSpace object from the Application object, and then use the CurrentUser property to return a Recipient object repesenting the active user, as shown in the following example.
Set myUser = Application.GetNameSpace("MAPI").CurrentUser