Formulário
utilizando CDONTS
O Cdonts é um componente
que possibilita enviar e-mails por páginas
Web e possui diferenças com relação
ao ASPMail. Esse objeto é nativo
do IIS 4 e normalmente vem sendo utilizado
para desenvolvimento de formulários.
O Cdonts só está disponível
para o plano de hospedagem em ambiente Windows.
Vamos utilizar 2 arquivos
neste exemplo:
• form.html
• sendmail.asp
Nosso formulário de exemplo exige
que a pessoa indique o nome do remetente
e para quem está sendo enviada a
mensagem.
Estes 2 arquivos devem estar localizados
em um mesmo diretório.
No campo form do formulário, você
deve especificar o campo action com o nome
de nosso arquivo de exemplo: “sendmail.asp”
No exemplo abaixo, form.html (não copiar esta linha)
<html>
<head><title>ACL Network Solutions
– Exemplo Formulário Cdonts</title></head>
<body>
<form method="post" action="sendmail.asp"
name="Inputform">
<table border="1" width="50%">
<tr><td width="48%" align="right">De</td>
<td width="52%"> <input
type="text" name="de"
size="20"></td></tr>
<tr><td width="48%" align="right">Para</td><td
width="52%"><input type="text"
name="para" size="20"></td></tr>
<tr><td width="48%" align="right">Assunto</td><td
width="52%"><input type="text"
name="assunto" size="20"></td></tr>
<tr><td width="48%" align="right">Mensagem</td><td
width="52%"><input type="text"
name="mensagem" size="20"></td></tr>
<tr><td width="100%"
colspan="2" align="center"><input
type="submit" value="Enviar"><input
type="reset"value="Cancelar"></td></tr>
</table>
</form>
</body>
</html>
Este arquivo a seguir, é
o responsável pelo envio da mensagem.
No exemplo abaixo, sendmail.asp (não copiar esta linha)
<%
'Declara variáveis locais para armazenar
valores submetidos pelo formulário
de entrada
'criado no passo 1o.
Dim strTo
Dim strSubject
Dim strBody
Dim objCDOMail
'Primeiro nós vamos ler os valores
digitados no formulário e armazená-los
nas variáveis locais
strFrom = Request.Form("de")
strTo = Request.Form("para")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")
'Cria uma instância do objeto New
Mail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Atribui-se os valores para as propriedades
do objeto
objCDOMail.From = StrFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
' Outras propriedades que podem ser usadas,
mas que deixaremos comentadas neste exemplo:
' - Você pode enviar e-mail HTM, arquivos
anexados, etc;
' - Você pode mudar muitos aspectos
da mensagem;
'objCDOMail.Cc = "mailto:usuario1@seudominio.com.br;usuario2@seudominio.com.br"
'Note que ele mandará cópia
pra mais de uma pessoa!
'objCDOMail.Bcc = "usuario3@seudominio.com;usuario4@seudominio.com.br"
'objCDOMail.Importance = 1 '(0=Baixa, 1=Normal,
2=Alta)
'objCDOMail.AttachFile "c:\path\filename.txt",
"filename.txt"
' Envia a mensagem!
objCDOMail.Send
'Atribui nothing ao objeto porque ele se
torna inválido imediatamente após
o envio
'Não podendo ser utilizado dois "sends"
para o mesmo objeto New Mail
Set objCDOMail = Nothing
%>
<html>
<head><title>Mensagem Enviada</title></head>
<body>
Você enviou um e-mail para:<% =
request("para") %><br>
Horário de envio: <% = Now %>
</body>
</html>
Pronto! Agora é só
fazer a transferência dos arquivos
para sua área de hospedagem em nosso
servidor, que já estará funcionando.
Caso tenha alguma dúvida a respeito
da inserção do formulário
em sua página, entre em contato conosco
através de nosso Fale Conosco.
