Enviar Mail servidor SMTP

[manutd_ro]

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.

[neofilo]

Quizas me fale algun if o algo parecido pero creo que te puedes hacer una idea.

procesar.asp

Código:

<form name='contacto' method="get" action="procesar.asp">
<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"/>
<input name="enviado" type="hidden" id="enviado" value="1" />
</form>

<%
'Inicio del codigo asp.

enviado = request.querystring("enviado")

if enviado = "1" then

mensaje = "el mensaje o variable que te interese"

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.ksanet.es"
Mail.Port = 25 ''//* Valor opcional. 25 es el puerto por defecto.
Mail.Username = "[email protected]" ' Este es el E-Mail desde donde se Envia
Mail.Password = "Tu_password" ' Esta es la contraseña del mail desde donde se envia

Mail.From = "[email protected]"
Mail.FromName = email ''//* Opcional


Mail.AddAddress "el@email" 'este es el correo a donde se envia

Mail.Subject = "Asunto del Email."

Mail.Body =  mensaje ' esta es la variable que hemos declarado arriba que contiene el mensaje.

Mail.IsHTML = True



''//*Verificacion si el e-mail se ha enviado satisfactoriamente.
On Error Resume Next
Mail.Send 
If Err <> 0 Then
Response.Write "Se ha producido un error al enviar el e-mail " & Err.Description
%>
<p><font face=arial size=2>Puedes cerrar esta ventana, e intentarlo de nuevo m&aacute;s tarde.</font></p>
<%
Else
Response.Write "Correo enviado satisfactoriamente..."
end if

else
'si no se ha enviado el formulario no hace nada.
end if

[AlejandroDiegoo]

uhmmm ¿PHP?

Antes de nada preguntarte sobre qué servidor estás trabajando y qué lenguaje utilizas.

Si estás utilizando APACHE no es de extrañar que no te vaya el código ASP y si estás utilizando ASP, estás intentando enviar un email a través de Persits, que si no tienes instalada su librería tampoco funcionará.

Si puedes ejecutar ASP, lo más sencillo es que envíes los emails a través de CDOSYS.

un saludo.