13/02/2007, 10:32
|
 | Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 21 años, 3 meses Puntos: 144 | |
| Re: envair form x mail y guardar datos en bd
Prueba así:
Código:
<%
'Pasamos los emails a variables
email_usuario = "[email protected]"
email_administrador = "[email protected]"
'Comenzamos...
Set Email = Server.CreateObject("Persits.MailSender")
'smpt para tu correo (correo saliente)
Email.Host = "mail.tuweb.com" 'puede tener ese formato, u otro distinto
'La cuenta desde la que mandas el correo (puede ser la misma de admin)
'o una específica para mandar correos desde la web
Email.From = email_administrador
'Nombre que aparece como remitente, en el buzón de correo del destinatario
Email.FromName = "Chica boom"
'Tu cuenta de usuario (en principio debería valer cualquier
'cuenta de correo que tuvieras dada de alta, pero imaginaremos
'que es la misma de siempre (admin)
Email.UserName = email_administrador
'El password que te ha proporcionado tu proveedor
'que será el mismo con el que accedes a tu panel de control
Email.password = "aqui_va_tu_password"
Email.AddAddress email_usuario
'Le voy a mandar una copia a mi amiga Lucía
Email.AddAddress "[email protected]"
'Lo mandamos en formato html
Email.Ishtml = true
Email.Subject = "Probando, probando, 1, 2, 3..."
Email.body = "<html>" & _
"<body bgcolor=""#FFD694"">" & _
"<br><br>" & _
"<table border=""1"" bordercolor=""#846B42"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""90%"">" & _
"<tr><td bgcolor=""#EFD6AD"">" & _
"<table border=""0"" align=""center"" cellpadding=""25"" cellspacing=""0"" width=""100%"">" & _
"<tr><td align=""center"">" & _
"<div align=""justify"">" & _
"<font face=""Verdana, Arial, Tahoma"" color=""#846B42"" size=""1"">" & _
"<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>¡¡¡Qué grande es esta tabla!!!<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>" & _
"</font>" & _
"</div>"& _
"</td></tr>" & _
"</table>" & _
"</td></tr>" & _
"</table>" & _
"</body>" & _
"</html>"
'Email.AddBcc email_administrador
'Si hay errores, que siga procesando esta página
On Error Resume Next
'Enviamos el email
Email.Send
'Miramos si hay errores en el envío
If Err <> 0 Then
'si hay errores en el envío, limpiamos el objeto
Set Email = nothing
'Volvemos a poner la sesión LCID originaria
Session.LCID=LCIDtemporal
'Mostramos un mensaje, indicando que se ha producido un error en el envío
response.write "Se han producido errores, y el email no se ha podido mandar.<br><br>Prueba a usar el correo postal ;-)"
else
'si no hay errores en el envío, limpiamos el objeto
Set Email = nothing
'Mostramos un mensaje, indicando que se ha producido un error en el envío
response.write "Eres un fiera. Tu email ha salido zumbando, ¡fiummmmmmmmmmm!."
end if
%>
Más info, por ejemplo a través de este manual de aspemail en español.
Salu2 |