ASP - Enviar email con SMTPsvg.Mailer

Saludos.

Estyo enviando un email desde un formulario utilizando SMTPsvg.Mailer.

Este es el código:

<%
Dim Mailer
Dim BodyText



Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Prueba."
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "mail.prueba.com"
Mailer.AddRecipient "Corpseyc", "[email protected]"
Mailer.Subject = "¡Prueba!"

BodyText = "Nombre: " & Request.Form("Nombre") & vbCrLf _
& "Email: " & Request.Form("Correo")


Mailer.BodyText = BodyText


If (Mailer.SendMail) then Response.Redirect("prueba.asp") else Response.Redirect("prueba.asp?error=" & chr(34) & replace(Mailer.Response, " ", "%20") & chr(34))

Set Mailer=nothing
%>

Todo bien hasta el momento. Ahora la cosa es hacer que el email llegue en formato HTML.

Qué y donde debo agregar los comandos???

Gracias...