Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 necesito ayuda
 Foro Bloqueado  Tema Bloqueado


Autor Temas
lisandrolisandro
Starting Member

Argentina
18 Posts
Mensajes - 02 Jul 2004 :  21:28:00  Ver Perfil  Enviar Email
alguno sabe como hacer que un formulario de asp se envie directamente al pulsar enviar
por email a mi casilla ded correo deasde la web

gracias

juanmones
Starting Member

Argentina
28 Posts
Posted - 02 Jul 2004 :  23:36:01  Ver perfil  Enviar e-mail  Visit juanmones's Homepage
Para usar este codigo debes instalar en el servidor el PERSITS SOFTWARE
<%
accion=request("enviar")
if accion <> "" then
mandarEmail
else
response.redirect "http://tu_sitio.com/"
end if

sub mandarEmail
from=request("email_remitente")
fromname=request("nombre_rte")
para="tu_email@tu_isp.com"
nombrepara="TU NOMBRE"
asunto="ASUNTO QUE DESEES"
mensaje=request("msg")
mensaje = Replace(mensaje, vbCrLf, "<BR>")
nombre = "TU NOMBRE"
responderA=request("emailrespuesta")
if responderA="" then responderA = from end
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "tu_smtp"
'si es que tu smtp necesita usuario y contraseña para enviar el email
Mail.UserName = "tu_usuario"
Mail.Password = "tu_contraseña"
Mail.From = from
Mail.fromname=fromname
Mail.AddAddress para, nombrepara
Mail.AddReplyTo responderA
Mail.Subject = asunto
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><font face=Verdana color=#000000 size=3><b>" & mensaje & "</font></b></BODY></HTML>"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "<HTML><BODY><b><font face=Verdana color=#000000 size=2><BR><BR>Hemos encontrado el siguiente error en su e-mail: " & Err.Description & ". Disculpe las molestias. <BR></font></b></BODY></HTML>"
else
Response.Write "<HTML><BODY><b><font face=Verdana color=#000000 size=2><BR><BR>Datos enviados con exito.<BR></font></b></BODY></HTML>"
End If
end sub
%>
</BODY>
</HTML>
SALUDOS... ESPERO QUE TE HAYA SERVIDO

JUANInicio Pagina

juanmones
Starting Member

Argentina
28 Posts
Posted - 02 Jul 2004 :  23:40:33  Ver perfil  Enviar e-mail  Visit juanmones's Homepage
Para usar este codigo debes instalar en el servidor el PERSITS SOFTWARE
<%
accion=request("enviar")
if accion <> "" then
mandarEmail
else
response.redirect "http://tu_sitio.com/"
end if

sub mandarEmail
from=request("email_remitente")
fromname=request("nombre_rte")
para="tu_email@tu_isp.com"
nombrepara="TU NOMBRE"
asunto="ASUNTO QUE DESEES"
mensaje=request("msg")
mensaje = Replace(mensaje, vbCrLf, "<BR>")
nombre = "TU NOMBRE"
responderA=request("emailrespuesta")
if responderA="" then responderA = from end
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "tu_smtp"
'si es que tu smtp necesita usuario y contraseña para enviar el email
Mail.UserName = "tu_usuario"
Mail.Password = "tu_contraseña"
Mail.From = from
Mail.fromname=fromname
Mail.AddAddress para, nombrepara
Mail.AddReplyTo responderA
Mail.Subject = asunto
Mail.IsHTML = True
Mail.Body = "<HTML><BODY><font face=Verdana color=#000000 size=3><b>" & mensaje & "</font></b></BODY></HTML>"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "<HTML><BODY><b><font face=Verdana color=#000000 size=2><BR><BR>Hemos encontrado el siguiente error en su e-mail: " & Err.Description & ". Disculpe las molestias. <BR></font></b></BODY></HTML>"
else
Response.Write "<HTML><BODY><b><font face=Verdana color=#000000 size=2><BR><BR>Datos enviados con exito.<BR></font></b></BODY></HTML>"
End If
end sub
%>
</BODY>
</HTML>
SALUDOS... ESPERO QUE TE HAYA SERVIDO

JUANInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar