Enviando e-mail usando o CDONTS (Microsoft Collaboration Data Objects for Windows NT Server):

Nesta lição você vai aprender um pouco sobre o uso do CDONTS. Existem alguns objetos que você pode declarar usando CDONTS, porém, vamos ver agora o uso do objeto NewMail.

Declarando um objeto do tipo NewMail:

<%
Dim MeuMail
Set MeuMail = Server.CreateObject("CDONTS.NewMail")
%>

Vamos usar o propriedade FROM para especificar o destinatário, apenas um destinatário é permitido:

<%
MeuMail.From="seuusername@provedor.com.br"
%>

Agora vamos especificar os recipientes para onde a mensagem vai ser enviada, você pode utilizar as propriedades To, Cc, Bcc:

<%
MeuMail.To = "amigo1@provedor.com.br;amigo2@provedor.com.br"
MeuMail.Cc = "amigo3@provedor.com.br;amigo4@provedor.com.br"
MeuMail.Bcc = "amigo5@provedor.com.br;amigo6@provedor.com.br"
%>

É necessário especificar o Assunto da mensagem:

<%
MeuMail.Subject = "Aprendendo a usar CDONTS"
%>

Vamos formatar o tipo de corpo do e-mail que pode ser texto(1) ou HTML(0):

<%
MeuMail.BodyFormat = 1
%>

A propriedade MailFormat seta a codificação usada no objeto NewMail. Pode ter dois valores possíveis o 0, que indica que o objeto é do formato MIME (Multipurpose Internet Mail Extension); ou 1, que indica que o objeto será somente texto. Esta propriedade é opcional e seu valor padrão é 1.

<%
MeuMail.MailFormat = 0
%>

A propriedade Importance (opcional) permite classificar o nível de importância da mensagem. Seus possíveis valores são: 0, baixa; 1, normal (padrão); e 2, alta.

<%
Meumail.Importance=2
%>

A propriedade Body permite você confeccionar o corpo da mensagem que pode ser texto ou HTML, como visto na propriedade BodyFormat:

<%
MeuMail.Body = "Enviar e-mails usando o objeto CDONTS NewMail" &_
"é moleza!"
%>

obs: &_ significa que o texto continua na próxima linha.

Caso precise atachar algum arquivo a sua mensagem use o métodoAttachFile. Este método tem três parametros:
1. Source: é requerido e precisa conter o caminho completo para o arquivo
2. FileName: é opcional, é como vai aparecer o nome do arquivo na mensagem. Se não for especificado aparecerá o nome original do arquivo;
3. EncodingMethod: é opcional, possui dois valores possíveis: 0, significa que o arquivo anexado é do formato UUEncode; e 1, que indica que o arquivo é do formato Base64. O padrão varia de acordo com a propriedade MailFormat. Se a MailFormat estiver setada para 1, o valor padrão da EncodingMethod é 0. Caso contrário será 1.

<%
MeuMail.Attachfile "c:\dir\smile.gif", "smilefile.gif", 1
%>

Agora vamos usar a propriedade Send para enviar o e-mail, e é muito importante lembrar que sempre depois de enviar o e-mail deve-se setar o objeto para nothing, caso contrário qualquer tentativa de acessar novamente esse objeto retornará um erro.

<%
MeuMail.Send
Set MeuMail = Nothing
%>

Pronto você já pode testar o código e enviar e-mails utilizando o Objeto CDONT NewMail!!