As constantes do Cdonts

O Cdonts utiliza diversas constantes numéricas como flags.  O fato de ser valores numéricos dificulta a leitura do código e pior ainda , ao examinar a documentação da CDO Library, você vai perceber que alguns valores numéricos dos flags não estão documentados. Para resolver esse problema você pode incluir o arquivo cdonts.inc. Se incluir esse arquivo em uma página ASP que use CDonts poderá especificar os flags textualmente.

Exemplo do arquivo:

<%
‘ CDONTS Constants

‘ CDONTS Attachment.Type values
Const CdoFileData = 1
Const CdoEmbeddedMessage = 4

‘ CDONTS Message.Importance Values.  Also used in NewMail.Importance
Const CdoLow = 0
Const CdoNormal = 1
Const CdoHigh = 2

‘ CDONTS Message.MessageFormat and Session.MessageFormat Values
Const CdoMime = 0
Const CdoText = 1

‘ CDONTS NewMail.AttachFile and NewMail.AttachURL EncodingMethod Values
Const CdoEncodingUUencode = 0
Const CdoEncodingBase64 = 1

‘ CDONTS NewMail.BodyFormat Values
Const CdoBodyFormatHTML = 0
Const CdoBodyFormatText = 1

‘ CDONTS NewMail.MailFormat Values
Const CdoMailFormatMime = 0
Const CdoMailFormatText = 1

‘ CDONTS Recipient.Type Values
Const CdoTo = 1
Const CdoCc = 2
Const CdoBcc = 3

‘ CDONTS Session.GetDefaultFolder Values
Const CdoDefaultFolderInbox = 1
Const CdoDefaultFolderOutbox = 2
%>

Enviando um e-mail com CDONTS

O CDONTS (Collaboration Data Objects for NT Server) instalado juntamente com o servidor smtp do IIS oferecem uma alternative robusta, conveniente e fácil de usar e independente de servidor para o envio de mensagens de dentro de uma página Asp. O CDONTS é semelhante ao ADO (Active X Data Objects). Eles permitem que o usuário independente da linguagem de programação ou script que estiver utilizando acesse um conjunto robusto e complexo de recursos do sistema operacional. Enquanto o ADO é específico para banco de dados, o cdonts permite que os programadores de Asp enviem e recebam correio eletrônico, envolvendo os serviços de mensagens nativos do Windows com o Active X.
Exemplo:

<%
Set objeto = CreateObject (“CDONTS.NewMail”)
objeto.from = “eu@bol.com.br
objeto.to = “destinatario@uol.com.br”
objeto.subject = “titulo”
objeto.body = “corpo do texto”
objeto.send
Set objeto = Nothing
%>