No pones el error, pero deduzco que no te envia el email.
No pones ni el email destino ni origen, simplemente pones dos cadenas que no son ninguna dirección
Donde pones:
MyCDONTSMail.From= "tuemail"
MyCDONTSMail.To= "emaildes"
prueba a poner
MyCDONTSMail.From= suemail
MyCDONTSMail.To= emaildestino
Suerte !!