Formulario de Envío de Correos en ASP

[puyehue]

Cuando tengas hecha tu pagina de formulario para envío de correos, debes submitirla a la misma y retomar los valores que se ingresaron en el formulario y con eso deberas hacer el texto del correo, una vez que tengas eso, a continuacion puedes colocar este codigo....

en la variable TEXTO, debes armar tu texto que quieres que le llegue a la persona....

LO MAS IMPORTANTE DE TODO ESTO ES QUE LA COMPONENTE DE ASPMAIL ESTE REGISTRADA EN EL SERVIDOR DONDE ESTA TU SITIO, YA QUE SIN ESO NO ENVIARA NINGUN CORREO, EL SERVIDOR DESDE DONDE SE ENVIE EL CORREO PUEDE SER ESE MISMO U OTRO QUE ELIJAS PARA QUE SE ENVIEN LOS CORREOS


texto = "AQUI DEBES COLOCAR EL TEXTO DEL CORREO"

strHost = "smtp.midominio.com" 'debes especificar el servidor enviante no el entrante (pop) o la IP del servidor
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = strHost
Mail.From = "Tu nombre"
Mail.FromName = "Nombre del que le enviaras el mail"
Mail.AddAddress "E-mail de el que le enviaras el mail"
Mail.Subject = "Asunto"
Mail.IsHTML = True
Mail.Body = texto
strErr = ""
bSuccess = False
On Error Resume Next ' por si hay errores
Mail.Send ' send message
If Err <> 0 Then ' si hay un error que de una descripcion
strErr = Err.Description
else
bSuccess = True
End If
Set Mailer=nothing