Envio de Email por AspMail, AspEmail e CDonts

Warning: Antes de mais nada é aconselhável que você descubra qual o componente que o seu servidor tem disponível. Se ele tiver todos os três, dê preferência para o ASPMAIL ou ASPEMAIL que são mais rápidos e eficientes que o CDONTS.

Para saber se ele tem os componentes instalados, sem ter que tratar com suporte, baixe aqui a página "componentes_email.asp" e execute-a no seu servidor. Os componentes que aparecerem em preto estão instalados, os em cinza não.

1º Passo - Definir o corpo da mensagem:
O corpo da mensagem é o que vai aparecer no e-mail da pessoa. Existem dois tipos de corpo, os em HTML ou em texto simples. Nos exemplos que eu estou dando, estou usando HTML, que é bem mais interessante do que texto simples, porque você pode utilizar imagens, tabelas e todos os recursos que uma página da web pode lhe oferecer.

Para definir o corpo da mensagem, vamos utilizar a variável CORPO (mas você pode utilizar qualquer coisa). Vale lembrar que essa variável provavelmente vai conter várias linhas, como eu vou mostrar abaixo...

Eu acho que é legal você montar uma página nova, com tudo o que você quer (inclusive outras variaveis, se forem existir, como Date() por exemplo), e depois fazer um "Localizar e Substituir" Aspas (") por " & chr(34) & " para que o seu email fique OK! Exemplo:

corpo = "<html><head><meta http-equiv=" & chr(34) & "Content-Type" & chr(34) & " content=" & chr(34) & "text/html; charset=iso-8859-1" & chr(34) & "></head>"
corpo = corpo+ "<body><font face=" & chr(34) & "Verdana" & chr(34) & " size="2">Corpo da mensagem..." & Date() & "</font></body></html>"

2º Passo - pelo CDONTS:
Agora você precisa fazer com que o código acima seja enviado usando o objeto CDONTS.

É importante que você já tenha ele no seu servidor

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.from = "user@dominio.com.br"
objmail.to = "user@dominio.com.br"
objmail.subject = "Assunto"
objmail.body = corpo
objmail.BodyFormat = 0
objmail.MailFormat = 0
objmail.send

Set objmail = nothing

2º Passo - pelo ASPMAIL:
Agora você precisa fazer com que o código acima seja enviado usando o objeto ASPMAIL.

É importante que você já tenha ele no seu servidor

Set objmail = Server.CreateObject("SMTPsvg.Mailer")
objmail.FromName = "Nome do Remetente"
objmail.FromAddress = "remetente@dominio.com.br"
objmail.RemoteHost = "smtp.dominio.com.br"
objmail.AddRecipient "Nome Destinatario 1", "destino1@dominio.com.br"
objmail.AddRecipient "Nome Destinatario 2", "destino2@dominio.com.br"
objmail.Subject = "Assunto"
objmail.ContentType = "text/html"
objmail.BodyText = corpo
objmail.SendMail 

Set objmail = nothing

2º Passo - pelo ASPEMAIL:
Agora você precisa fazer com que o código acima seja enviado usando o objeto ASPEMAIL.

É importante que você já tenha ele no seu servidor

Set objmail = Server.CreateObject("Persits.MailSender")
objmail.Host = "smtp.dominio.com.br"
objmail.From = "remetente@dominio.com.br"
objmail.FromName = "Nome do Remetente"
objmail.AddAddress "destino1@dominio.com.br" , "Nome Destinatario 1"
objmail.AddAddress "destino2@dominio.com.br"
objmail.Subject = "Assunto"
objmail.IsHTML = True
objmail.Body = corpo
objmail.Send

Set objmail = nothing

Espero que tenham gostado!!!
Até a Proxima...

Conheça nosso parceiro: