>>loWSH = CreateObject( "WScript.Shell" )
>>loEmailitem.Display()
>>loWSH.AppActivate( loEmailItem.Application.ActiveInspector.Caption )
>>