Pagina Incicial TASS TELECOM
TASS TELECOM - Serviços de Telecomunicações

 

CENTRAL DE ATENDIMENTO | TUTORIAIS

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.
 

 

 

SERVIÇOS DE SUPORTE

CONSULTA DE DISPONIBILIDADE

CONSULTA DE DISPONIBILIDADE ATRAVÉS DE PREENCHIMENTO FORMULÁRIO

CONSULTE AGORA!

PRÉ-CADASTRO

Basta preencher o Formulário de PRÉ CADASTRO que entraremos em contato por telefone para confirmar seus dados e agendar a data da instalação.

PREENCHA AGORA!

TUTORIAIS

Os Tutoriais são um canal interativo de ajuda aos assinantes contendo várias dicas para melhor compreensão de algum tema importante para configuração ou para simples pesquisa.

TESTE DE VELOCIDADE

Faça o teste da velocidade da sua internet através da Entidade Aferidora de Qualidade de banda Larga Fixa: Brasil Banda Larga, o qual é homologado pela Anatel para medir a Qualidade da conexão.

QUALIDADE ISO 9001

A TASS TELECOM é a única emresa de Telecomunicações no Brasil a Implementar sistema de Qualidade baseado na série de Normas Internacionais ISO 9000, a qual é a melhor referência mundial em Sistema de garantia de Qualidade

s

 

 
 

Contato

» Rua Clotilde Galesi 150-B | Osasco | São Paulo| Brasil

» Fone: 55 (11) 0800 771 3344

» E-mail: sac@tass.com.br

» Website: www.tass.com.br

Suporte

Institucional

 

Copyright © 2018 TASS TELECOM