Invio Mail HTML con CDOSYS

[mr.fifteen]

Salve a tutti ho un problema, ho trovato uno script molto bello per la gestione di una newsletter, ma funziona con l'invio tramite CDONT, ho allora fatto qualche modifica per trasformarlo in CDOSYS.

Ora funziona perfettamente ma non riesco a visualizzare nella mail l'html
Questa è la mail come mi è arrivata:

Non ne mando più
(almeno spero)

vi posto il codice originale dello script che ho trovato

         Set objMail = Server.CreateObject("CDONTS.NewMail")
         objMail.BodyFormat = 0 
         objMail.MailFormat = 0
         objMail.From=mittente 
         objMail.To=rs("Email")
         objMail.Subject=oggetto
         objMail.Body=email
         objMail.Send
         Set objMail = nothing

e come l'ho modificato io

         Set objMail = Server.CreateObject("CDO.Message")
         objMail.From=mittente 
         objMail.To=rs("mail")
         objMail.Subject=oggetto
         objMail.TextBody=email
         objMail.Send
         Set objMail = nothing
         rs.movenext

Ora non so come sostituire il bodyformat e il Mailformat in modo che li legga anche CDOSYS

Vi ringrazio anticipatamente