Aqui tienes una ejemplo practico:
<%
response.buffer=true
'Busqueda de campos del formulario
for each var in request.form
if var <> "Enviar comentarios" then
bod = bod &var &": " &request.form(var) &vbcrlf
end if
next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Username = "[email protected]"
Mail.Password = "xxxxxxx"
Mail.Host = "mail.xxxxxxxxxxx.com"
Mail.port = "25"
Mail.From = request.form("CorreoElectronicoUsuario")
Mail.FromName = request.form("NombreUsuario")
Mail.AddAddress "[email protected]"
Mail.Subject = "Comentarios xxxxxxx.com"
Mail.Body = bod
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encontrado: " & Err.Description
End If
%>
Este es una programa para enviar correo "mail.asp" llamalo desde tu formulario.......
