Antes de la linea
ObjMail.BodyText
debes definir el tipo de mail que se enviará.
Eso lo hacemos con
ObjMail.ContentType = "text/html"
indicando que el mail va a llevar codigo HTML, y que debe ser enviado de ese modo. Asi que el fragmento de mail quedará asi.
Set ObjMail = Server.CreateObject ("SMTPsvg.Mailer")
ObjMail.RemoteHost = "localhost"
ObjMail.FromName = "Nombre del remitente"
ObjMail.FromAddress = "
[email protected]"
ObjMail.AddRecipient "Mario", "
[email protected]"
ObjMail.Subject = "Asunto del mail que enviamos"
ObjMail.ContentType = "text/html"
ObjMail.BodyText = "Cuerpo o mensaje del mail"
if ObjMail.SendMail then
response.write "El mail fue enviado con exito"
else
response.write "El mail no pudo ser enviado."
end if