Enviar mail desde ASP URGE

ludovico2000 · #1 (**permalink**) 14/02/2005, 06:13

Hola a todos. Estoy añadiendo un código a mi ASP para que me mande un mail avisándome de los datos nuevos que se han introducido en una base de datos. El código que estoy probando es este:

<%
'ENVIO MAIL CON LOS DATOS QUE SE HAN INTRODUCIDO
'creo el objeto correo
Set Mail = Server.CreateObject("CDONTS.newmail")
Mail.From = "[email protected]" [Esto lo tengo asi para las pruebas, luego
Mail.To = "[email protected]" pondre al mio desde el del form]
Mail.Subject = "SU ASUNTO"
Mail.Body = "Codigo: " & codigo & vbCrLf & VBNEWLINE & "Nombre: " & nombre & vbCrLf & "Apellidos: " & vbCrLf & apellidos
On Error Resume Next
Mail.Send
if Err <>0 then
response.write "Error, no se ha podido completar la operación" & Err.Description
else
response.write "Gracias por rellenar el formulario. Se ha enviado correctamente."
end if
Set Mail = Nothing
%>

El error que sale es "permiso denegado". (No se que es CDONTS)

Agradezco cualquier ayuda

ludovico2000 · #2 (**permalink**) 14/02/2005, 10:50

Ya lo he corregido:

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.miservidor.com" ' el servidor SMTP que envía
Mail.From = "[email protected]" ' remitente del mensaje
Mail.FromName = "Yo" ' Nombre del remitente
Mail.AddAddress "[email protected]" ' necesario para el envio = remitente
Mail.Subject = "Datos enviados" 'asunto
'cuerpo:
Mail.Body = "<html><body>Codigo: " & codigo & "Nombre: " & nombre & "Apellidos: " & apellidos & "</body></html>"
Mail.IsHTML = True

On Error Resume Next
Mail.Sendtoqueue
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<br><center><h3>El mensaje ha sido mandado con éxito</h3></center><hr>
<p align="center"><font color="#FF9900" size="5"><a href="index.htm">PÁGINA PRINCIPAL</a></font></p>

Gracias al servicio soporte de ARSYS, que en dos minutos me han subido un asp corregido y bien descrito.