Componentes de correio eletrônico

Não tão fácil quanto a função mail( ) do PHP, utilizar um servidor SMTP com o ASP não é tão complicado como se pensa. Basta seguir algumas regrinhas básicas e pronto … lá vai você enviar mensagens através do seu website.

A grande dificuldade para o ASP é que como a linguagem está vinculada a objetos (Response, Request, Server, etc.) o sistema de correio eletrônico funciona do mesmo jeito; você precisa ter um componente de e-mail instalado e registrado para poder utilizar o servidor de SMTP. No caso do Windows versões NT, 2000, XP e 2003, o IIS (Internet Information Server) já vem com o Microsoft CDONTS (Collaborative Data Objects), conjunto de objetos como o CDONTS.NewMail. Para os que usam versões 9X do Windows, podem usar os objetos Mail ASPMAIL ou JMAIL. Neste artigo abordarei a utilização do CDONTS e do JMAIL.

Abaixo estão as configurações para utilizar o NewMail do CDONTS. Leia com atenção.

<%
'Configurações necessárias do objeto CDONTS
Set Mail = Server.CreateObject("CDONTS.NewMail")

'Destinatários ... somente endereços eletrônicos. Repare no ponto-e-vírgula ...
Mail.To = "carlosroberto@zipmail.com.br; pedropereira@bol.com.br"



'O endereço eletrônico do remetente ...
Mail.From = "josedasilva@hotmail.com"

'Cópias e outras providências ...
Mail.CC = "pedrosilva@zipmail.com.br;carlospereira@bol.com.br"
Mail.BCC = "admin@hotmail.com"

Mail.Subject = "Sim ... é bom ter um assunto"

corpo="Qualquer coisa que represente o corpo, inclusive <b>HTML</b>"
Mail.Body = corpo

'Prioridade ... use com cuidado ... 0 = baixa, 1 = normal (padrão), 2 = alta(!)
Mail.Importance = 1

'Formato do corpo da mensagem ... 0 = com HTML, 1 = modo texto (padrão)
Mail.BodyFormat = 0

'Coisas da Microsoft ... 0 = modo texto (padrão), 1 = com HTML
Mail.MailFormat = 1

On Error Resume Next
Mail.Send

If Err <> 0 Then
  Response.write "Erro ! Problemas com o servidor SMTP"
Else
  Response.write "Mensagem enviada com sucesso !"
End if

'Libere o objeto Mail ... o servidor agradece.
Set Mail = Nothing
%>

No código abaixo estão as configurações para enviar mensagens utilizando o JMAIL.

<%
'Configurações necessárias do objeto JMAIL
Set Mail = Server.CreateObject("JMail.SMTPMail")
Mail.ServerAddress = "mail.thewesthorse.com"
Mail.Logging = True

'O endereço eletrônico do remetente ...
Mail.Sender = "josedasilva@hotmail.com"

'Nome do rementente ...
Mail.SenderName = Request.Form("seuNome")

'Destinatários ... somente endereços eletrônicos.
Mail.AddRecipient "carlosroberto@zipmail.com.br","pedropereira@bol.com.br"
Mail.Subject = "Sim ... é bom ter um assunto"

corpo="Qualquer coisa que represente o corpo, inclusive <b>HTML</b>"

'Lembre-se ... você precisa definir se vai incorporar HTML na mensagem ...
Mail.ContentType = "text/html"
Mail.Body = corpo
On Error Resume Next
Mail.Execute

If Err <> 0 Then
  Response.write "Erro ! Problemas com o servidor SMTP"
Else
  Response.write "Mensagem enviada com sucesso !"
End if

'Libere o objeto Mail ... o servidor agradece.
Set Mail = Nothing
%>

Em outra oportunidade estarei falando de reply e envio de anexos. Até.

André Mattos
Designer gráfico, programador e consultor para soluções em Internet
[DHTML, PHP/mySQL, ASP/MS SQL Server e ActionScript]
Fale comigo agora Visite o meu site

Compatilhe esse artigo!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.