I use this code. No error but do not send.
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = "yy@yy.com"
objMessage.To = "xx@xx.com"
objMessage.TextBody = "This is some sample message text send using ASP COD.Message Object."
objMessage.Send
response.write "Mail was Sent"