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 |