Estoy usando este script:
Código:
Pero tengo problemas por que el servidor de mail me pide autorización.Destino = "[email protected]" servidor = "mail.mihost.com.ar" titulo = "Formulario de contacto" '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 & "<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 ASPMAIL Mail.Host = servidor Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto. Mail.From = "[email protected]" 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 %>
¿alguien sabe como hacerlo?
gracias