Risolto così

Set miaMail = CreateObject("CDONTS.NewMail")

set mailrep = CreateObject("CDONTS.NewMail")

^__^