Please do send your code, if you would be so kind. I am still stuck
at the below. I am selster@san.rr.com. Thanks Steve

oCDO = CreateObject("MAPI.Session")
Session.Logon
*oCDO.Logon("", "", 0, 0)
oCDOMs = Createobject("CDO.Message")
oCDOMsg = oCDO.GetMessage(sEntry)