dim NP as Outlook.Namespace Set NP = Application.GetNamespace("MAPI")
This is for your information changed the Background color