Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Guerreiro

Olha o Código ai!

Recommended Posts

<%'' FLASHMAIL 1.0'' Autores:' Kali Romiglia (http://www.romiglia.com)' Miguel Mora (http://www.prodigia.com)' DUDAS O PREGUNTAS A KALI@ROMIGLIA.COM'' INSTRUCCIONES ::'' Este archivo debe ir en la misma carpeta donde este el swf.'' Solo debes cambiar tres variables::' 1_ Destino = "tuemail@tudominio.com"' 2_ servidor = "mail.tuservidor.com" si no sabes cual es, simplemente contactate con tu proveedor' 3_ titulo = "el titulo que aparecerá en el email"''Destino = "rodrigosecurity@ig.com.br"servidor = "smtp.servidor.com.br"titulo = "Formulario de contacto"'Asignamos los valores recibidos del formulario a las variables'Estas variables deben estar en el formulario dentro del swfOrigen = Request("email")nombre = Request("nombre")empresa = Request("empresa")Mensaje = Request("mensaje")'Creamos una instancia del objeto ASPMAILSet Mail = Server.CreateObject("Persits.MailSender")' Creamos el cuerpo del mensajestrBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>" strBody = strBody & "Mi nombre es: "strBody = strBody & "<b>" & nombre & "</b><br><br>"strBody = strBody & "Mi e-mail es: "strBody = strBody & "<b>" & Origen & "</b><br><br>"strBody = strBody & "Trabajo en la empresa: "strBody = strBody & "<b>" & empresa & "</b><br><hr><br>"strBody = strBody & "Mi mensaje es: <br>"strBody = strBody & Mensaje & chr(10)strBody = strBody & "</font>" 'Asignamos las propiedades al objeto con ASPMAILMail.Host = servidorMail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.Mail.From = "miguel@dominiosweb.net"Mail.FromName = Email ' OpcionalMail.Subject = tituloMail.Body = strBodyMail.IsHTML = TrueMail.AddAddress DestinoOn Error Resume NextMail.Send' El control del error es con ASPMAILIf Err <> 0 Then Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.DescriptionElse Response.Write "popup.mensaje=Mensaje enviado correctamente."End If'Destruimos el objeto con aspmailSet Mail = Nothing%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pessoal peguei o formulario que o Thebike colocou.Funcionou que é uma beleza.Só que quando o formulario do flash manda as variaveis, o asp, ele não coloca o e-mail da pessoa como que ela enviou.Ele coloca os dados embaixo.Gostaria se possível que alguém me ajudasse, de maneira que o e-mail chegue até mim como o da pessoa para que eu possa dar a ela uma auto resposta.Entendem????UM ABRAÇO!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.