Sobre componentes para el envio de emils

[El_Metallick]

Hola maestros... mi duda es la siguiente... tengo windows XP profecional el cual trae el IIS por defecto lo instale y todo y me muestra (al ejecutar un codigo que hice por hay) que tengo CDOSYS... lo que no se es como pasarme de CDOSYS a CDONTS... ya que CDOSYS me da constantes errores y no puedo hacerlo funcionar... bueno espero que se pueda... eso saludos y gracias de antemano

[sjam7]

Con CDONTS envias asi:
<%
' Recogemos los datos del formulario
para = TRIM( Request( "para" ) )
asunto = TRIM( Request( "asunto" ) )
mensaje = TRIM( Request( "mensaje" ) )

' Comprobamos y enviamos el mail
IF para <> "" THEN
Set myMail = Server.CreateObject( "CDONTS.Newmail" )
myMail.From = "[email protected]"
myMail.To = para
myMail.Subject = asunto
myMail.Body = mensaje
myMail.Send
Set myMail = Nothing
Response.Write "Email enviado con éxito"
ELSE
Response.Write "Debes incluir una dirección de email"
END IF
%>

[El_Metallick]

sjam.. eso si lo se ^^ lo que busco es cambiar el componente de mi maquina local... es que tengo el CDOSYS y quiero cambiarlo a CDONTS... las estructuras de envio de mails con estos componentes las conozco pero no es eso lo que busco gracias por la ayuda de todas maneras... saludos

[sjam7]

ah, perdon, eso si no se, pero no se supone que el SYS es mejor?

[El_Metallick]

no se pero no me funciona mira tengo el siguiente código:

Código:

<%
Dim conf
Set conf = Server.CreateObject("CDO.Configuration")
With conf.Fields
.Item("http://schemas.microsoft.com/cdo/con...ion/smtpserver") = "http://localhost"
.Item("http://schemas.microsoft.com/cdo/con...smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/con...nectiontimeout") = 60
.Update 
End With
Set msMail = Server.CreateObject("CDO.Message")
With msMail
Set .Configuration = conf
.sender = "[email protected]"
.To = "[email protected]"
.Subject = "Hola"
.HTMLBody = "Hola"
.Send
End With
%>

Y me da el siguiente error:

CDO.Message.1 (0x80040213)
Error de transporte en la conexión al servidor.
/mail.asp, línea 19

No se que es??? bueno ojala por ahi ustedes que tienen mas experiencia con esto del envio de mails (porque lo que es yo es primera vez que lo intento) pillan el error... saludos y gracias de antemano

[Mickel]

no me acuerdo mucho ASP pero creo que es
Set msMail = NEW Server.CreateObject("CDO.Message")

[El_Metallick]

no ahi me tira error de clase no definida 'server'... :S

[sjam7]

pues no encontre mucha informacion pero a ver si te sirve esto:
http://vademecum.aruba.it/start/cont...ontatto_es.htm

[El_Metallick]

Prove haciendolo asi:

Código:

<%
Set oMail = Server.CreateObject("CDO.Message")
 
'reemplazar aqui las variables principales
para = "[email protected]"
de = "[email protected]"
asunto = "El asunto de mi email"
mensaje = "El mensaje del mail..."
 
oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.TextBody = mensaje
 
oMail.Send 
 
Set oMail = Nothing
 
Response.Write ("El mensaje se envio correctamente")
%>

Y no me da error me tira en pantalla "El mensaje se envio correctamente" pero el mail no llega a mi correo... he provado con hotmail y con gmail y no hay caso... quiza sea que se demora un poco pero bueno = les comento como me ha resultado... saludos