6 replies to this topic

[Phyriel]

Ola pessoal

Estava usando o CDonts mas agora, aki na empresa o Servidor novo utilizara o Windows 2003 e as estações de trabalho serao windows XP

O CDonts ta dando pau, existem alguma versao do CDonts q funcione bem no Windows 2003 e no XP, ou algum componente similar q funcione???

Se houver um link aki no forum q trate esse assunto, agredecerei se postarem aki p mim!!!

Obrigado

[edmais]

Use o CDOSYS.

[Phyriel]

Ele eh Free tbem???

[edmais]

Sim, ele vem no Windows 2003, ao invéz do CDONTS

[kaplan]

ele vem junto no win 2003, ou vc tem q instalar ele???

[Generation]

ele vem junto no win 2003, ou vc tem q instalar ele???

sim, ele é nativo no servidor

[Agente Linhares]

um ex. do uso do cdosys:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seusite.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "seu nome" & "teste@teste.com.br"
objCDOSYSMail.To = "teste@teste.com"
objCDOSYSMail.Subject = "assunto"
objCDOSYSMail.TextBody = "Mensagem..."
objCDOSYSMail.Send 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

OBS: dê uma atenção especial a parte "smtp.seusite.com.br", ond evc deve colocar o SMTP do seu site/servidor