ASP - CDONTS a fundo 


Oscar Pires é desenvolvedor ASP e Visual Basic, atualmente voltado para o e-commerce, e trabalha com sistemas para controle dos dados de lojas.

08/10/2001 - Coluna nº 05

ASP - CDONTS a fundo

Sites que mostram como enviar emails através de ASP é comum, porém, conheço poucos que mostram todos os recursos possíveis, que a grande maioria de desenvolvedores desconhece e poderia sem dúvida, auxiliar bastante em certos casos.

Segue abaixo o código de envio de email através do CDONTS (componente incluso no IIS, porém não no PWS), com comentários e descrição.

<%
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.to = "destinatario@provedor.com.br" 'destinatario, caso for mais de um, use ";"
mail.from = "remetente@provedor.com.br" 'remetente, não permite multiplos
mail.subject = "Nova mensagem em " & date 'titulo do email
mail.CC = "destinatario@copia.com" 'destinatario para copia, permite múltiplos
mail.BCC = "oculto@destinatario" 'destinatário também, porém fica oculto, não aparece no mail, permite múltiplos
mail.Importance = N 'importância do email:
Onde N é
0 (zero) Baixa
1 (padrão) Normal
2 Alta
mail.BodyFormat = x
mail.MailFormat = x
'use MailFormat e BodyFormat para indicar o tipo de email, onde:
1 (padrão) indica texto simples
0 (zero) indica conteúdo em HTML

mail.AttachFile "c:\inetpub\wwwroot\trabalho.doc","Meu trabalho.doc"
'o attach file serve pra incluir um arquivo em emails, requer caminho físico
mail.AttachURL "c:\inetpub\wwwroot\imagem.gif","imagem.gif"
'o attachURL serve para incluir imagens e caso o mail seja HTML, poderá fazer uma chamada a elas (veja body), também requer caminho físico
mail.SetLocateIDs valor
'Define formatação na mensagem para números, moeda, data, etc
mail.Value(função) = "valor"
'o Value inclui cabeçalho na mensagem, predefinindo funções, exemplo: mail.value("Reply-To") = "eu@eu.org" ao clicar em responder, o mail por padrão será enviado à eu@eu.org, e não o destinatário como padrão
mail.ContentBase = "http://www.URLPadrao.com.br"
'indica URL padrão, todos links tipo href=teste.html retornarao http://www.URLPadrao.com.br/teste.html
mail.body = "Corpo da mensagem, se você marcar BodyFormat e MailFormat para HTML, pode usar tags <b><h3>aqui</h3></b>!" 'corpo da mensagem
mail.send 'uso único, sem parametros

'se numero de erros for maior que zero, entao ocorreu
if err.number > 0 then response.write "Problemas ao enviar, porfavor tente novamente " & err.description else response.write "Email enviado com sucesso!"
end if
%>

Para saber o caminho físico no servidor, é simples, basta usar response.write Server.MapPath("/")

É isso aí, com certeza o envio de emails é um recurso de extrema importância e ter conhecimento amplo dos recursos amplia as possibilidades. Recomendo sempre ter em mãos descrição de tais recursos, até, ao menos, se familiarizar mais com eles :)

Até a próxima semana, onde irei escrever um pouco sobre File System Object.

Abraço.

Oscar Pires
blade@imasters.com.br

Todos os direitos autorais dos artigos pertencem ao seu autor.