Envio de Mala Direta em HTML com Imagem para Vários Emails

Galera....trago novidades......com a ajuda do meu grande amigo, conseuimos montar um código extremamente funcional de envio de emails. Abaixo segue o código testado e funcionando:

<%

Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "email@email.com" ' e-mail de quem esta enviando a mensagem
' e-mail de quem vai receber a mensagem, se quiser enviar mais de um email, basta copiar esta linha e colocar outro email
Mailer.To = "emai@email.com"

'Mailer.CC = "emai@email.com" ' Com Cópia
Mailer.BodyFormat = 0 ' parametro de formatação
Mailer.MailFormat = 0 ' parametro de formatação
'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail
vcampo = "Texto a ser enviado"
Mailer.Subject = "Nome da Empresa ou outro"
Mailer.Body = vcampo
Mailer.Send
Set Mailer = Nothing
%>

Valeu galera.