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 = "
"
corpo = corpo+ "
Corpo da mensagem..." & Date() & ""
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 = "
[email protected]"
objmail.to = "
[email protected]"
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 = "
[email protected]"
objmail.RemoteHost = "smtp.dominio.com.br"
objmail.AddRecipient "Nome Destinatario 1", "
[email protected]"
objmail.AddRecipient "Nome Destinatario 2", "
[email protected]"
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 = "
[email protected]"
objmail.FromName = "Nome do Remetente"
objmail.AddAddress "
[email protected]" , "Nome Destinatario 1"
objmail.AddAddress "
[email protected]"
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: