Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/04/2013, 12:38
manutd_ro
 
Fecha de Ingreso: diciembre-2012
Ubicación: Capital Federal
Mensajes: 3
Antigüedad: 11 años, 5 meses
Puntos: 0
Pregunta Enviar Mail servidor SMTP

Buenas gente, tengo un problemita... El servidor donde tengo hosteada la pagina, no cuenta con el soporte para poder enviar mails mediante PHP. Y me pasaron un script que puedo utilizar para mandar los datos ...

El problema es que no se como vincular mi formulario con ello... Podrian darme una mano?

El codigo del fomrulario:

<form name='contacto' method="get" action="aca iria algo que me llame el script">
<label>Nombre:<br/>
<input name="nombre" type="text" size="50" maxlength="200"/></label>
<br/>
<label>Mail:<br/>
<input name="mail" type="text" size="50" maxlength="200"/></label>
<br/>
<label>Comentario:<br/>
<textarea name="body" cols="40" rows="10"></textarea></label>
<br/>
<input type="submit" value="Enviar" class="boton"/>
</form>



Y el script que me dejaron:

<%@LANGUAGE="VBSCRIPT" %>

Usuario smtp:
(El usuario puede encontrarlo en el panel de control, E-mail,
Administrar cuentas)
Contraseña smtp:
(La contraseña de su correo electrónico)
E-mail destinatario: width="50">


<%
' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
If Request("enviar") = 1 Then
If Not Request("usuario") = "" And Not Request("passwd") = "" And Not
Request("destinatario") = "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.tudominio.com.ar"
Mail.Username = Request("usuario")
Mail.Password = Request("passwd")
Mail.AddAddress Request("destinatario")
Mail.From = "[email protected]"
Mail.FromName = "Prueba de SMTP Validado"
Mail.Subject = "E-mail de prueba"
Mail.Body = "Este es un e-mail enviado desde la página de ejemplo de
SMTP Validado"
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set Mail = Nothing
Else
' Respuesta en caso de que no se completen todos los datos
Response.Write("Complete todos los campos para ejecutar el ejemplo")
End If
End If
%>



Espero me puedan dar una mano..

Desde ya , muchas gracias.

Saludos.