Envio de Email por AspMail, AspEmail e CDonts

por **fernandosena** Ter 6 Set - 13:40

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

Seg	Ter	Qua	Qui	Sex	Sáb	Dom
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30