Set Obj_mail = CreateObject("CDONTS.NewMail")

questo