Planos Linux Suporte
CDOSYS

...O CDOSYS é um componente CDO (Collaboration Data Objects) usado para envio de e-mails no Windows Server 2003. Ele é parte integrante do IIS6, e foi criado para substituir o antigo componente Cdonts, para envio de e-mails através do SMTP do novo IIS.

...Segue abaixo o padrão do código em CDOSYS.

**********ASP - CDO
On Error Resume Next
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "EXEMPLO@SEU_DOMINIO"
objEmail.To = "RECIPIENT"
objEmail.Subject = "Formulário de Contato "
objEmail.Textbody = "BODY"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MAIL.SEU_DOMINIO"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "EXEMPLO@SEU_DOMINIO"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "SENHA_DO_EMAIL"
objEmail.Configuration.Fields.Update
objEmail.Send
If Not err.number=0 Then
Response.write "ERROR: " & err.Description
err.Clear
end if




Para maiores informações sobre o CDOSYS, clique aqui.