|
<< TextStream | Mapa do Guia ASP >>
|
referências >
com > componentes de e-mail |
|
|
. : : . componentes de e-mail . : : .
|
Este tipo de
componentes (e-mail) são muito importantes na construção de sites dinâmicos.
É uma das maneiras de fazer chegar informação ao utilizador num nível mais
pessoal. Normalmente necessitas de preencher o campo de e-mail noutros
sites, e disso depende a recepção de uma password, ou de um ficheiro do qual
não é possível fazer download, pois tem de ser pedido aos seus responsáveis.
Com estes componentes podes fazer algo semelhante. Estão disponíveis vários
componentes na Internet, assim como o ASPEmail (www.aspemail.com) ou o Jmail
que são grátis e qualquer pessoa os pode usar.
Ficam então todos os
passos para teres acesso ao componente Jmail, que existe há alguns anos e
funcionou sempre na perfeição. Para fazeres download deste componente tens
de ir a
http://tech.dimac.net, e procurar o ficheiro w3Jmail. Depois do download,
a instalação é simples, pois trata-se de um ficheiro executável, e não de um
DLL solto. Neste site existem também exemplos de código em que se usa o
Jmail. Cabe-te a ti explorar estes pontos mais a fundo.
Aqui fica um exemplo válido do uso deste componente:
<%
Set JMail = Server.CreateObject("JMail.SMTPMail") 'criar ligação
ao componente de e-mail JMail
JMail.ServerAddress = "mail.servidor.pt" 'smtp do servidor de
e-mail
JMail.Sender = "remetente@servidor.pt" 'endereço de quem
envia o e-mail
JMail.Subject = "Assunto do E-Mail" 'assunto do e-mail
JMail.AddRecipient "receptor@servidor.pt" 'endereço para onde
queres enviar o e-mail
Texto = "Texto que vai no e-mail..."
& Chr(13) & chr(12) & Chr(13) & chr(12)
Texto = Texto & Chr(13) & chr(12) &
"Obrigado"
JMail.Body = Texto 'texto da mensagem acima concatenada
JMail.AddAttachment "d:\texto.doc" 'definição de um anexo ao
e-mail - opcional
JMail.Priority = 3 'prioridade: 1-mínima 3-máxima
JMail.Execute 'enviar o e-mail
Set JMail = Nothing 'libertar a ligação ao componente de e-mail
%> |
<%
Set Mail = Server.CreateObject("Persits.MailSender") 'criar
ligação ao componente de e-mail ASPEmail
Mail.Host = "mail.servidor.pt" 'smtp do servidor de e-mail
Mail.From = "meu_email@servidor.pt" 'endereço de quem envia o
e-mail
Mail.FromName = "O Meu Nome" 'nome de quem envia o e-mail
Mail.AddAddress "email_amigo@servidor.pt", "Nome do Amigo"
'endereço e nome para quem envias o e-mail
Mail.AddReplyTo "meu_email@servidor.pt" 'e-mail para a
resposta
Mail.Subject = "Assunto do e-mail" 'assunto do e-mail
Texto = "Olá!" & Chr(10)
Texto = Texto & "Este é o texto do
corpo do e-mail!" & Chr(10)
Texto = Texto & "Até breve!" &
Chr(10)
Texto = Texto & "O teu amigo."
Mail.Body = Texto 'texto do corpo do e-mail acima concatenado
Mail.Send 'enviar e-mail
Set Mail = Nothing 'libertar a ligação ao componente de e-mail
%> |
Um outro componente de e-mail que
também é muito usado, é o CDONTS, que vem no IIS5. O formato e a estrutura
deste componente, como podes ver no exemplo que se segue, é bastante
idêntico aos anteriores componentes, apenas alguns métodos têm nomes
diferentes. A funcionalidade mantém-se, de certa forma.
<%
Set objCDONTS = Server.CreateObject("CDONTS.NewMail") 'criar ligação ao
componente de e-mail CDONTS
objCDONTS.To = """ Nome do Amigo "" <amigo@e-mail.pt>" 'nome
e endereço para onde queres enviar o e-mail
objCDONTS.From = """O Meu Nome"" <meu@e-mail.pt>" 'nome e
endereço de quem envia o e-mail
objCDONTS.Value("Reply-To") = "<meu@e-mail.pt>" 'endereço de
e-mail para resposta
objCDONTS.Subject = "Assunto do e-mail" 'assunto do e-mail
objCDONTS.BodyFormat = 1 'formato do e-mail: 0-html 1-texto
objCDONTS.Body = "Corpo da mensagem do e-mail." 'texto do
corpo do e-mail
objCDONTS.Importance = 1 'importancia do e-mail: 0-baixa
1-normal 2-alta
objCDONTS.Send 'enviar o e-mail
Set objCDONTS = Nothing 'libertar a ligação ao componente de e-mail
%> |
Com estes componentes de e-mail e muita
imaginação, podes fazer um site hiper dinâmico!
<< TextStream | Mapa do Guia ASP >>
|
