Olá! Sunday, 26 de May de 2019.



Dicas CódigoFonte.net
Tuesday, 05 de June de 2007

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 = "" 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:


Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010