Home Tutoriais Desenvolvimento 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!

Fonte: http://www.criarweb.com/artigos/595.php

   

Leave a Reply

This blog is kept spam free by WP-SpamFree.