impostare formato email con ASPEmail

[zeweb]

come si impostano in testo o HTML il fomato delle email con ASPEmail

<% 
Dim errore, azienda, cognome, telefono, email, commento, destinatario, contatto, email
errore = False
azienda = Trim(Request.Form("azienda"))
cognome = Trim(Request.Form("cognome"))
telefono = Trim(Request.Form("telefono"))
email = Trim(Request.Form("email"))
commento = Trim(Request.Form("commento"))
' *******************************************************
' 
	Sub SendMail()	
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
		Mailer.FromName   = cognome
		Mailer.FromAddress = emal
		Mailer.RemoteHost = "smtp.nettuno.it"
		Mailer.AddRecipient "TEKMEDIA Servizio Clienti", "tekmedia@tekmedia.it"
		Mailer.Subject    = "Contatto dal sito"
		Mailer.BodyText   = "Azienda: " & azienda & vbCrLf & "Nome: " & cognome &vbCrLf & " Telefono: " & telefono & vbCrLf & "Email: " & email & vbCrLf & "Messaggio: " & commento 
		If Mailer.SendMail then

' impostiamo la mail in formato testo
	Mailer.MailFormat = 1
	Mailer.BodyFormat = 1
	Mailer.Importance = 1

Response.Write "<span class='testoavviso'>Grazie per averci scritto, sarete contattati al pi&ugrave; presto !</span>"
		else
	  		Response.Write "<span class='testoavviso'>Errore! (Errore: " & Mailer.Response & ") </span>"
		End If
		set Mailer = Nothing
	End Sub
%>
</span>

<% Call SendMail %>