Uso de CDONTS para script de recomendar a um amigo em ASP
Este é um exemplo completo e bastante simples de como enviar um correio usando o componente CDONTS de IIS.
Tal componente está presente em muitas das versões de Windows em seu modo servidor, como Windows NT 4 ou Windows 2000, mas não assim em Windows 98, por não dispor de um servidor de envio de correio (SMTP). Atenção, que no Windows NT e 2000 teráimos que ter o servidor SMTP corretamente configurado e os usuários de Windows XP, que não dispõem essa ferramenta desde o princípio, embora poderiam obtê-la através de outro sistema Windows.
Script para recomendar a um amigo
O exercício seguinte é um script que permite mandar um e-mail desde nossa página a um amigo do visitante que o deseje. É um dos típicos sistemas de “recomenda a um amigo”.
Os dados para preencher o e-mail, colocaremos a mão. Se queremos enviar os dados de um formulário só temos que recolher com as instruções tão simples como estas:
cBody = Request.Form(“Body”)
cPara = = Request.Form(“Amigo”)
E agora o exemplo, no qual se mostra como enviar a um amigo, uma cópia e uma cópia oculta, o comum.
<%@ Language=VBScript%>
<html>
<head>
<title>Enviar a um amigo</title>
</head>
<body><%
Dim cBody, n
For Each n In Request.Form
cBody = cBody & n & “: ” & Request.Form(n) & chr(13)
Next
Set oCDO = Server.CreateObject(“CDONTS.NewMail”)
‘Atribuimos as propriedades ao objeto
oCDO.From = “fernando@seudominio.com”
oCDO.To = “foc@seudominio.com”
oCDO.Subject = “Assunto da mensagem”
oCDO.Body = cBody
‘oCDO.Cc = “resal@seudominio.com;webmaster@seudominio.com”
oCDO.Bcc = “quinqui@seudominio.com”
‘oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing ‘Liberar…
‘Mostramos mensagem de que se enviou com sucesso.
Response.Write “Foi enviada Ok, que fácil!!”
%>
</body>
</html>
Bom, amigos, espero que possa servir, como pode-se ver, há pouco o que programar!