<% ' ' 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 = "info@vlahebo.com" servidor = "mail.vlahebo.com" titulo = "Contacto Web" 'Asignamos los valores recibidos del formulario a las variables 'Estas variables deben estar en el formulario dentro del swf Origen = Request("email") nombre = Request("nombre") empresa = Request("empresa") Mensaje = Request("mensaje") 'Creamos una instancia del objeto ASPMAIL Set Mail = Server.CreateObject("Persits.MailSender") ' Creamos el cuerpo del mensaje strBody = strBody & "" strBody = strBody & "Mi nombre es: " strBody = strBody & "" & nombre & "

" strBody = strBody & "Mi e-mail es: " strBody = strBody & "" & Origen & "

" strBody = strBody & "Trabajo en la empresa: " strBody = strBody & "" & empresa & "

---

" strBody = strBody & "Mi mensaje es:
" strBody = strBody & Mensaje & chr(10) strBody = strBody & "" 'Asignamos las propiedades al objeto con ASPMAIL Mail.Host = servidor Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto. Mail.From = "miguel@dominiosweb.net" Mail.FromName = Email ' Opcional Mail.Subject = titulo Mail.Body = strBody Mail.IsHTML = True Mail.AddAddress Destino On Error Resume Next Mail.Send ' El control del error es con ASPMAIL If Err <> 0 Then Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description Else Response.Write "popup.mensaje=Mensaje enviado correctamente." End If 'Destruimos el objeto con aspmail Set Mail = Nothing %>