enviar correos
estoy haiendo una pagina en la cual despues de llenar unos campos lo que quiero hacer es enciarlos a uandireccion de correo; si alguien puede ayuidarme que conteste por favor
Un ejemplo sencillo (con aspEmail):
<%
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 = "yyyyyy"
Mail.Host = "mail.zzzzzzzz.com"
Mail.port = "25"
Mail.From = request.form("Correo")
Mail.FromName = request.form("Nombre")
Mail.AddAddress ""[email protected]"
Mail.Subject = "Comentarios zzzzzz.com
Mail.Body = bod
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encontrado: " & Err.Description
End If
'URL donde direccionar confirmacion de envio
Server.Transfer("index.htm")
%>
<%
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 = "yyyyyy"
Mail.Host = "mail.zzzzzzzz.com"
Mail.port = "25"
Mail.From = request.form("Correo")
Mail.FromName = request.form("Nombre")
Mail.AddAddress ""[email protected]"
Mail.Subject = "Comentarios zzzzzz.com
Mail.Body = bod
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encontrado: " & Err.Description
End If
'URL donde direccionar confirmacion de envio
Server.Transfer("index.htm")
%>