Pagina Incicial TASS TELECOM

 
 
 
Home Empresa Internet Web Atendimento Imprensa Vagas Contato
 
     
 

Script para enviar e-mails com CDOSYS

Configurando sua Página de WEB para envio de mensagens de Contatos Utilizando o CDOSYS para enviar mensagens.

O CDOSYS é utilizado no Windows 2003 server ou superior e é um objeto disponibilizado pela Microsoft para envio de e-mails via web, oferecendo a mesma funcionalidade do antigo CDONTS (windows 2000 server), com uma série de melhorias.


Atenção: Antes de realizar qualquer envio, por favor siga nossas recomendações, dessa forma evitará problemas ao enviar suas mensagens.


Segue abaixo um exemplo, formatado para uso somente em nossos servidores Windows, na linguagem ASP:

O Formulário se parecerá com a imagem abaixo:



1º. PASSO    

Copie todo o código abaixo em um único arquivo e salve como contato.html por exemplo ou inclua o script em sua página de contatos.  Os dados em vermelho você deve colocar os seus dados para que fique personalizado o envio.



contato.html

<body>

<table width="40%" border="0" cellspacing="8" cellpadding="0">
<tr>
<td valign="top"><p>Essa página tem o objetivo de criar mais um meio de comunicação e correspondência com usuários em geral.</p>
<p>Preencha os campos abaixo e clique em Enviar. </p>
<p>Agradecemos desde já a todos so contatos.<br />
</p>
<p>A Diretoria</p>
<p></p></td>
</tr>
<tr>
<td><table width="97%">
<tr>
<td valign="top"><form id="form1" name="form1" method="post" action="sendmail.asp">
<table width="97%" border="0">
<tr>
<td width="86" >Empresa</td>
<td width="366" >
<input name="empresa" type="text" id="empresa" size="40" />
</span></td>
</tr>
<tr>
<td>Nome</td>
<td >
<input name="nome" type="text" id="nome" size="40" />
</span></td>
</tr>
<tr>
<td><span>Fone com DDD </span></td>
<td >
<input name="fone" type="text" id="fone" size="40" />
</span></td>
</tr>
<tr>
<td><span>Assunto</span></td>
<td >
<input name="assunto" type="text" id="assunto" size="40" />
</span></td>
</tr>
<tr>
<td><span>Seu E-mail</span></td>
<td >
<input name="email" type="text" size="40" />
</span></td>
</tr>
<tr>
<td>Des</font>tinatário</td>
<td class="style1"><span class="MsoNormal style1 style4">
<select name="emailto" id="emailto">
<option value="seuemail@seudominio.com.br" selected="selected">enviar mensagem para:</option>
<option value="seuemail@seudominio.com.br">Suporte</option>
<option value="seuemail@seudominio.com.br">Vendas</option>
</select>
</span></td>
</tr>
<tr>
<td>Comentários</td>
<td >
<textarea name="comentarios" cols="60" rows="10" wrap="virtual" id="comentarios"></textarea>
</span></td>
</tr>
<tr>
<td ><label></label></td>
<td ><input name="Submit" type="submit" value="Enviar" />
<input name="Limpar" type="reset" id="Limpar" value="Limpar" /></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>

 

</body>


2º. PASSO

Copie todo o código abaixo em outro arquivo e salve como sendmail.asp, por exemplo. 

Os dados em vermelho você deve colocar os seus dados para que fique personalizado o envio.

sendmail.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EM" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>FORMULÁRIO DE CONTATO</title>
</head>

<%
Dim ObjSendMail
Dim iConf
Dim Flds
Dim MyBody
Dim email
Dim emailto
Dim nome
Dim empresa
Dim fone
Dim assunto
Dim comentarios
emailto = Request.Form("emailto")
email = Request.Form("email")
nome = Request.Form("nome")
empresa = Request.Form("empresa")
fone = Request.Form("fone")
assunto = Request.Form("assunto")
comentarios = Request.Form("comentarios")
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
MyBody = "<p><font face=Arial size=2>" & Chr(13) & vbcrlf
MyBody = MyBody & "" & vbcrlf & "<br>"
MyBody = MyBody & " NOME DA SUA EMPRESA " & vbcrlf & "<br>"
MyBody = MyBody & "_____________________________________________________________." & vbcrlf & "<br>" & vbcrlf & "<br>"
MyBody = MyBody & "Está é uma mensagem automática do Sistema de Contatos NOME DA SUA EMPRESA." & vbcrlf & "<br>" & vbcrlf & "<br>"
MyBody = MyBody & "Os dados abaixo listados foram recebidos com sucesso ." & vbcrlf & "<br>" & vbcrlf & "<br>"
MyBody = MyBody & "Empresa: "& empresa & Chr(13) & vbcrlf & "<br>"
MyBody = MyBody & "Nome: "& nome & Chr(13) & vbcrlf & "<br>"
MyBody = MyBody & "Email: "& email & vbcrlf & "<br>"
MyBody = MyBody & "Fone: "& fone & vbcrlf & vbcrlf & "<br>"
MyBody = MyBody & "Assunto: "& assunto & vbcrlf & "<br>" & "<br>"
MyBody = MyBody & "Comentarios:" & vbcrlf & "<br>" & "<br>"
MyBody = MyBody & comentarios & vbcrlf & "<br>"

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

'**** Path below may need to be changed if it is not correct

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ns8.tass.com.br"

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

Flds.Update
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = email
ObjSendMail.Subject = assunto
ObjSendMail.From = emailto
ObjSendMail.Bcc = emailto

' we are sending a text email.. Simply switch the comments around to send na html email instead
ObjSendMail.HTMLBody = MyBody
ObjSendMail.Send
Set ObjSendMail = Nothing
'este comando abaixo redireciona o envio para uma página de obrigado!
response.Redirect("obrigado.htm")
%>

<%
' este comando agradece na própria página. Se gostar desse modo desative o outro acima colocando uma apóstrtofe na frente: 'response.Redirect("obrigado.htm") e tire as apóstrrofes dos dois itens abaixo

' <font color="blue">

' <% =Replace(MyBody,vbCr,"<font face=Arial size=2>") %></body>

</html>


3º. PASSO 

Crie uma página agradecendo o contato e salve como obrigado.html, por exemplo.

obrigado.html

<body>

Agradecemos o envio de sua mensagem.
Responderemos o mais breve possível.

</body>

 


Com a construção dessas 3 páginas, a sua página de contato estará funcionando corretamente.
 
 
 
A TASS TELECOM tem grande presença no mercado brasileiro de Telecomunicações como Operadora de Transmissão de Dados em Alta velocidade. Nossos serviços são globais em escala, conectando Governos, Operadoras, provedores, empresas e pessoas, em ambiente seguro e ideal para aplicações de negócios baseadas em IP. Conta com infra-estrutura e tecnologia de ponta baseada em redes de Fibra Óptica e Rádio Freqüência. Siga-nos:
 
 
  google TASS TELECOM       link social TASS TELECOM  

 
 
© TASS TELECOM - Todos os direitos reservados. Termos de Uso | Privacidade | TASS TELECOM