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.
Para utilização deste componente é necessário a configuração de seu smtp para evitar possíveis problemas de envio de e-mail facilitando ao componente localizar o servidor de smtp que deseja usar para o envio do e-mail. Abaixo segue o procedimento para o uso desse componente usando o código de configuração. Copie todo o código em um único arquivo e salve como cdosys.asp, por exemplo.
<%
if request("botao") = "enviar" then
'Cria o objeto para o envio de e-mail
Set objMail = Server.CreateObject("CDO.Message")
'Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seudominio.com.br"
'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= 60
objCDOSYSCon.Fields.update
'Atualiza a configuração do CDOSYS para o envio do e-mail
Set objMail.Configuration = objCDOSYSCon
'Set key properties
objMail.From = "seuemail@seudominio.com.br"
objMail.To = request.form("to")
objMail.Subject= request.form("subject")
objMail.TextBody = request.form("body")
'Send the email
return = objMail.Send
'Notify user
if return <> 0 then
response.write "Erro: " & return
else
response.write "Mensagem enviada com sucesso."
end if
'Clean-up mail object
Set objMail = Nothing
end if
%>
<html>
<head>
<title>CDONT TEST</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
</head>
<body>
<p>CDOSYS TEST<br>
</p>
<form method="POST" action="cdosys.asp">
<table border="0" width="43%">
<tr>
<td width="13%">To:</td>
<td width="87%"><input type="text" name="to" size="20"></td>
</tr>
<tr>
<td width="13%">Subject:</td>
<td width="87%"><input type="text" name="subject" size="20"></td>
</tr>
<tr>
<td width="13%">Message:</td>
<td width="87%"><textarea rows="2" name="body" cols="20"></textarea></td>
</tr>
<tr>
<td width="13%"></td>
<td width="87%"><input type="submit" value="enviar" name="botao"></td>
</tr>
</table>
</form>
</body>
</html>
No campo: objMail.From = "email@seudominio.com.br" substitua pelo e-mail de seu domínio.
Importante:
Para evitar problemas com uso de acentuação e outros caracteres especiais, certifique-se que está declarando sempre o "charset" que se adeque corretamente à sua programação.
