Hola! más o menos es así, yo lo tengo para enviarle los datos al usuario cuando se registra. Tienes que recoger el campo del email del destinatario (si es que se lo quieres enviar a él) si no debes poner el email a quien se le va a enviar este correo:
Código:
email = request.querystring("Email") // este campo lo pides o lo recoges o pones tu email
if producto <> "" and nombre <> "" and precio <> "" and precio_total <> "" then
asunto = "El asunto del email"
nombre_url = "[email protected]"
mensaje = "<font face=verdana size=1>Hola " & nombre & " los datos del producto " & producto & " son:<br>"
mensaje = mensaje & "Precio: " & precio & "<br>"
mensaje = mensaje & "Total: " & precio_total & "<br>"
Set envio = Server.CreateObject("CDONTS.NewMail")
envio.BodyFormat = 0
envio.MailFormat = 0
envio.Send nombre_url, email, asunto, mensaje
Set envio = Nothing
response.write "Emvio con éxito.<br>"
else
response.write "Lo sentimos ha habido un <b>error</b>. Vuelválo a intentarlo más tarde.<br>"
end if
Espero que te sirva. Ah! tu servidor debe tener instalado CDONTS que es por donde se envia el email, sino puedes probar con PERSITS, la sintaxis básica del PERSITS es:
Código:
tunombre=Request.Form("tunombre")
tuemail=Request.Form("tuemail")
sunombre=Request.Form("sunombre")
suemail=Request.Form("suemail")
strHost = "servmail.tusitio.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "[email protected]"
Mail.FromName = "Pon tu Nombre"
Mail.AddAddress suemail
Mail.Subject = "Pon el asunto, por ejemplo RECOMENDAR"
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>Hola! Tu amigo "&tunombre&" ("&tuemail&") te recomienda que visites la página <a href='http://scripts.maruspage.com'>Cute Scripts For Personal Webs</a>, es una web que posee contenido de gran utilidad para webmasters, sobre todo principiantes.<br><br>Espero que te guste!</p></font></BODY></HTML>"
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
Modifica los datos a tu gusto. Hasta luego!
