ASPemail vs. CDONTS, problema de principiante. Hola a todos. Tengo el siguiente problema, quizas alguien pueda ayudarme...
AspTutor nos recomiendan como servidores para alojamiento gratis a la buena gente de DomainDlx, lo cual estoy usando. Ademas, AspTutor nos dice que estos proporcionan servicio de ASPemail.
Bueno, hice un asp para poder utilisar esta facilidad, el codigo lo recuperé de no me acuerdo donde (no es mio, en esta face de aprendisaje todavía no me da) que reproduzco mas abajo. Pero al ejecutarlo me da este error
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/normaromero/aspmail.asp, line 13
La linea 13 a la cual se refiere el error es:
Set Mail = Server.CreateObject("Persits.MailSender")
y este es el codigo completo:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.domaindlx.com" 'sera este????
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.AddAddress "[email protected]"
Mail.Subject = "Mensaje de Prueba"
Mail.Body = "<HTML>><BODY BGCOLOR=#0000FF>Estimado Sr:....</BODY></HTML>"
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ocurrio un error: " & Err.Description
else
Response.Write "e-mail enviado...! "
End If
%>
Luego, segui buscando e intente probar en el mismo servidor este codigo
que utiliza en vez de ASPemail CDONTS, pero me da el siguiente error
Microsoft VBScript runtime error '800a0046'
Permission denied
/normaromero/mail.asp, line 36
aparentemente, este si funciona, pero tengo algun problema con el permiso...????
la linea 36 es la siguiente: OBJ_EMAIL.Send y todo el codigo esta asi:
Lo que me parece que esta bien, porque a diferencia dle ASPemail, este si pudo crear el objeto... o me equivoco???
<%
'Declaración de variables a usar
Dim OBJ_EMAIL
correoOrigen = "[email protected]"
CoreoDestino = "[email protected]"
titulo = "Titulo"
cuerpo = "Primer mensaje"
'Creación del objeto para enviar el correo
'Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
'OJO: También puedes colocar variables en correoDestino, correoOrigen, titulo y cuerpo.
'OBJ_EMAIL.From = "correoOrigen" 'No hace falta especificar un email valido
'OBJ_EMAIL.To = "correoDestino"
'OBJ_EMAIL.Subject = "titulo"
'OBJ_EMAIL.Body ="cuerpo" ' Cuerpo del mensaje
'OBJ_EMAIL.Send 'Envia el mail
'OJO: También puedes colocar variables en correoDestino, correoOrigen, titulo y cuerpo.
OBJ_EMAIL.From = correoOrigen
OBJ_EMAIL.To = correoDestino
OBJ_EMAIL.Subject = titulo
OBJ_EMAIL.Body = cuerpo
OBJ_EMAIL.Send
'Cierra el Objeto
Set OBJ_EMAIL = Nothing
response.write="ya mando el mail..."
%>
La pregunta del millon es: en servidores gratis se puede utilizar este tipo de servicio, y si es asi en cual servidor y cual servicio, deacuerdo a sus experiencias personales es mejor? o quizas para que situación es mejor uno que otro?... pido mucho no....
Bueno, nada mas, espero sus sabios consejos. Cualquier comentario será bienvenido.
Saludos cordiales.
