oOutlook = GetObject(,"Outlook.Application") oNameSpace = oOutlook.GetNameSpace("MAPI") oExplorer = oOutlook.Explorers.Add(oNameSpace.Folders[1],0) oExplorer.Activate() oInbox = oNameSpace.GetDefaultFolder( 6 ) omyItem = oinbox.Items(1) omyItem.DisplayHTH