When I try it I get the message Class Definition CDO.Message is not Found on
oMSG = createobject("CDO.Message")

Also, how do you read messages and delete them? This is the really important part for me.