Sample CDONTS mail script  

Set objsendmail = Createobject ("CDONTS.Newmail")
With objsendmail
    .From = "webmaster@rdsindia.com"
    .To = "support@rdsindia.com"
    .Subject = "Greetings"
    .Body = "How have you been?"
    .Send
End With
Set objsendmail = Nothing