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