el codigo seria algo como esto colocare entre parentesis los comentarios no los agregen al codigo o les va a mandar un error
guardamos el contenido del mail en la variable HTML
HTML = "<table align='center' width='100%'>"
HTML = HTML + "<tr>"
HTML = HTML + "<td><img src='http://www.misitio.cl/imagenes/imagen.jpg'></td>"
HTML = HTML + "</tr>"
HTML = HTML + "<tr>"
HTML = HTML + "<td colspan='2'><font face='verdana' size='2px'><br>El usuario : " + nombre (dato enviado desde un formularios) + "</font></td>"
HTML = HTML + "</tr>"
HTML = HTML + "<tr>"
HTML = HTML + "<td colspan='2'><font face='verdana' size='2px'><br>Empresa : " + empresa (dato enviado desde un formularios) + "</font></td>"
HTML = HTML + "</tr>"
HTML = HTML + "<tr>"
HTML = HTML + "<td colspan='2'><font face='verdana' size='2px'><br>Telefono : " + telefono (dato enviado desde un formularios) + "</font></td>"
HTML = HTML + "</tr>"
HTML = HTML + "<tr>"
HTML = HTML + "<td colspan='2'><font face='verdana' size='2px'><br>Celular : " + celular (dato enviado desde un formularios) + "</font></td>"
HTML = HTML + "</tr>"
HTML = HTML + "<tr>"
HTML = HTML + "<td colspan='2'><font face='verdana' size='2px'><br>Escribio : " + contenido (dato enviado desde un formularios) + "</font></td>"
HTML = HTML + "</tr>"
HTML = HTML + "</table>"
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = mail (dato enviado desde un formularios o pueden colocar el correo directamente)
myMail.To = "
[email protected]"
myMail.Subject = "Tema: prueba de envio"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML (aqui agrego el cuerpo del correo)
myMail.Send
espero que les sirva