A ver si esto te sirve
body="<html><head></head><body>" &_
"<h1>Encabezado</h1>" &_
"<p>Texto</p>" &_
"</body></html>"
Set mail = CreateObject ("JMail.SMTPMail")
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html" '
mail.Body = body
mail.Execute
set mail = nothing
Si vas a enviar un correo con imagenes, la direccion de la imagen debe estar completa, es decir si tienes una direcctorio llamado img con las imagenes deberas de poner asi la direccion para que el correo se vea con las imagenes:
<img src="http://www.tudominio.com/img/nombre_img.jpg"
Espero te sirva