Hai provato così?
Set objMail = CreateObject("CDONTS.NewMail")

Ciao