Adaptar meu código form para CDOSYS

TeixeiraRamos · Maio 29, 2010

Por favar, tenho essa página chamada contato.html com esse código:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script type="text/javascript">
//<![CDATA[
window.onload = function(){
        id('form1').onsubmit = function(){
                var erro = 0;
                erro = !obr( 'Nome' ) ? erro+1 : erro;
                erro = !obr( 'Email' ) ? erro+1 : erro;
                erro = !obr( 'Assunto' ) ? erro+1 : erro;
                erro = !obr( 'Mensagem' ) ? erro+1 : erro;
         
	            if( !checkMail( id('Email') ) )

                {

                   alert( 'Digite um email válido!' );

                       return false;
                }

                if( erro>0 )
                        return false;
        };
};
function obr( campo ){
        if( id(campo).value=='' || id(campo).value==0 ){
                alert( 'O campo '+campo+' é obrigatório!' );
                return false;

        }
        else
                return true;

}
function id( el ){
        return document.getElementById( el );
}
function checkMail(mail){
    var er = new RegExp(/^[A-Za-z0-9_\-\.]+@[A-Za-z0-9_\-\.]{2,}\.[A-Za-z0-9]{2,}(\.[A-Za-z0-9])?/);
    if(typeof(mail) == "string"){
        if(er.test(mail)){
            return true; }
    }else if(typeof(mail) == "object"){
        if(er.test(mail.value)){
            return true;
        }
    }else{
        return false;
    }
}
//]]>
</script>
        <title>Blog Teixeira - Contato</title>
        
		<meta name="description" content="divulgar diversos assuntos" />
        <meta http-equiv="Content-Type"  content="text/html; charset=utf-8" />
        <meta content="pt-br" name="language" />
        <meta content="Teixeira" name="title" />
        <link type="text/css" media="all" rel="stylesheet" href="css/geral.css" />
		<link type="text/css" media="all" rel="stylesheet" href="css/formulario.css" />
    </head>
    <body>
        <!--Início da div tudo-->
		<div id="tudo">
		<!--Início da div topo-->
        <div id="topo">
        	<h1>Blog <span>do Teixeira</span></h1>
        <!--Início da div sobre-->
		<div id="sobre">
		    <p>Teixeira teve um bom aproveitamento em diversos cursos da área de WebDesign e WebMaster. Atualmente aposentado tem esse 	espaço para postar comentários, artigos, reportagens, pesquisas. Tudo que ache relevante para o debate e a livre expressão	de opiniões.</p>
        </div>
		<!--Fim da div sobre-->
        
		<!--Início da div nav-->
		<ul id="nav">		
            <li><a href="index.html">Inicial</a></li>
            <li><a href="politica.html">Política</a></li>
            <li><a href="hobby.html">hobby</a></li>
            <li><a href="informatica.html">Informática</a></li>
            <li><a href="religiao.html">Religião</a></li>
            <li><a href="pesquisa.html">Pesquisa</a></li>
            <li><a href="samba.html">Samba</a></li>
            <li><a href="index.html">Eu indico</a></li>
            <li><a href="blog.html">Blog</a></li>
        </ul>
        </div>
		<!-- Fim da div#topo -->
        
		<!--Início da div principal contato--> 
        <div id="principal-contato">
        <form name="form1" id="form1" action="/cgi-bin/remotemail.cgi" method="post">
            <input type="hidden" value="carlos.teixeira@terra.com.br" name="recipient" /> 
			<input type="hidden" value="http://informacaoteixeira.com.br/confirma_formulario.html" />
		    <input type="hidden" value="Mensagem" name="subject" />
            <table id="table">
                <tbody>
                    <tr>
                        <td id="td" colspan="2">
                         <p class="p-top">Todas as mensagens serão lidas, analisadas e publicadas em seguida.<br />
                          Muito Obrigado.<br />
						  1 - Serão, automaticamente, descartados os comentários que contenham insultos, agressões e ofensas;<br/>
						  2 - que contenham qualquer espécie de anexo ou link, casos extremos contatar proprietário do site. </p>
						  					                                   
                        </td>
                    </tr>
                    <tr>
                        <td  id="td-nome"><span>Nome:</span></td>
                        <td>
						<input type="text" name="Nome" size="60" id="Nome" />
						</td>
                    </tr>
                    <tr>
                        <td id="td-email"><span>email:</span></td>
                        <td>
						<input type="text" name="Email" size="45" id="Email" />
						</td>
                    </tr>
                    <tr>
                        <td id="td-opcao"><span>Opção/assunto:</span></td>
                        <td>
						<select name="Assunto" id="Assunto">
	                        <option value="0">Escolha uma opção/assunto</option>
	                        <option value="1">Política</option>
	                        <option value="2">Hobby</option>
	                        <option value="3">Informática</option>
	                        <option value="4">Religião</option>
	                        <option value="5">Pesquisa</option>
	                        <option value="6">Samba</option>
                        </select>
						</td>
                    </tr>
                    <tr>
                        <td id="td-mensagem"><span>Comentários:</span></td>
                        <td>
						<textarea name="Mensagem" cols="60" rows="10" id="Mensagem"></textarea> 
                        </td>
                    </tr>
                    <tr>
                        <td class="td-mensagem"><span> </span></td>
                        <td><input type="submit" name="Enviar" value="Enviar" /></td>
                    </tr>
                </tbody>
            </table>
            
        </form>
        </div>
		<!-- Fim da div principal contato -->
        
		<!--Início da div#rodape -->
		<div id="rodape">
        <p>Site criado em 2010 por Teixieira - Copyright ®  2010 - Rio de Janeiro/RJ</p>
        </div>  
		<!--Fim da div#rodape-->
		</div>
		<!--Fim da div#tudo-->
    </body>
</html>

A empresa de hospedagem informou que só irá funcionar se criar o scrip ASP utilizando CDOSYS.

Ocorre que nunca desenvolvi em ASP, estou aprendendo e não sei o que devo alterar no código baixo para funcionar o meu formulário (criado com a ajuda do pessoal do forum porém a minha ignorância não permitiu que soubesse que não ia funcionar.

Dessa forma peço por favor, para me ajudarem. O que deve alterar. Vejam não tenho prática se não orientar para iníciantes não terei condições de executar. Muito obrigado.

A empresa informa:

Crie o seguinte trecho de código dentro do arquivo sedmail.asp:

<%
' Cria os objetos para envio de e-mail
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing")  = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

'Obtendo valores digitados no formulário e armazená-los nas variáveis locais
strFrom = Request.Form("from")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")

'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado
'para envio de Spam
aux1 = chr(13)
aux2 = chr(10)
regex= " | |cc:|bcc:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
'Atribui-se os valores para as propriedades do objeto
 message.From = strFrom
 message.To = strTo
 message.Subject  = StrSubject
 message.textBody = StrBody

' Outras propriedades que podem ser usadas, mas que deixaremos comentadas neste exemplo:
' - Você pode enviar e-mail HTML, arquivos anexados, etc;
' - Você pode mudar muitos aspectos da mensagem;
'message.HTMLBody = StrBody 'Envia no formato HTML
'message.Cc  = "conta1@dominio.com.br;conta2@dominio.com.br" 'Com Cópia
'message.Bcc = "conta3@dominio.com.br;conta4@dominio.com.br" 'Com Cópia Oculta
'message.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta)
'message.AddAttachment "I:InetpubWwwrootSuaContaNomeDoArquivo" 'Anexa arquivo na mensagem

' Envia a mensagem!
message.send

'Atribui nothing ao objeto para que ele se torna inválido imediatamente após o envio
'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail
Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td> </td></tr>"
Response.Write "<tr><td> </td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

Estou totalmente inseguro o que que devo alterar para menter o meu arquivo contato.html e chamar o sendmail.asp mandado pela empresa de hospedagem.

Sucesso na vida de todos.

Obrigado.

xanburzum · Maio 29, 2010

olha este exemplo, vai te ajudar

envio de um e-mail de texto :

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

envio de um texto de e-mail com campos Bcc e os CC:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.Bcc="someoneelse@somedomain.com"
myMail.Cc="someoneelse2@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

envio de e-mail em HTML

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.HTMLBody = "<h1>This is a message.</h1>"
myMail.Send
set myMail=nothing
%>

Sending an HTML e-mail that sends a webpage from a website:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "http://www.w3schools.com/asp/"
myMail.Send
set myMail=nothing
%>

Enviando um e-mail HTML que envia uma página de um arquivo:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.CreateMHTMLBody "file://c:/meusdocumentos/test.htm"
myMail.Send
set myMail=nothing
%>

O envio de um texto de e-mail com um anexo:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing
%>

O envio de um e-mail em texto usando um servidor remoto:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>

TeixeiraRamos · Maio 30, 2010

Pelo amor de Deus xanburzum,

O que vou fazer cara. Vou substituir o que?

Basta colocar isso e onde?

<%

Set myMail=CreateObject("CDO.Message")

myMail.Subject="Sending email with CDO"

myMail.From="mymail@mydomain.com"

myMail.To="someone@somedomain.com"

myMail.TextBody="This is a message."

myMail.Send

set myMail=nothing

%>

Não sei das opções que você sugeriu quais que devo colocar ou não no meu código.

-envio de um texto de e-mail com campos Bcc e os CC:?

-envio de e-mail em HTML?

-O envio de um texto de e-mail com um anexo:

-O envio de um e-mail em texto usando um servidor remoto:

O que eu desejo é que quem chegar na mimha página e desejar enviar em email que tenha condições enviar.

Se colocar uma dos seus exemplos em arquivo, salavar como sedmail.asp preencher os compos o formulário será enviado?

Eu não tenho conhecimento para resolver essa questão. Por favor.

xanburzum · Maio 30, 2010

basicamente é isso

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>

no from você coloca seu email, no .To você recupera o email do formulario, ou seja,

o email do user, TextBody você coloca sua mensagem, existe um tópico no fórum explicando ele, um tutorial

dá uma olhada nele

TeixeiraRamos · Maio 31, 2010

Antes de postar tudo isso imprimi e li todo o tutorial do forum.

Minha dúvuda consistem no seguinte:

Tenho esse escript mantenho no meu formuário contato.html?

<head>
<script type="text/javascript">
//<![CDATA[
window.onload = function(){
id('form1').onsubmit = function(){
var erro = 0;
erro = !obr( 'Nome' ) ? erro+1 : erro;
erro = !obr( 'Email' ) ? erro+1 : erro;
erro = !obr( 'Assunto' ) ? erro+1 : erro;
erro = !obr( 'Mensagem' ) ? erro+1 : erro;

if( !checkMail( id('Email') ) )

{

alert( 'Digite um email válido!' );

return false;
}

if( erro>0 )
return false;
};
};
function obr( campo ){
if( id(campo).value=='' || id(campo).value==0 ){
alert( 'O campo '+campo+' é obrigatório!' );
return false;

}
else
return true;

}
function id( el ){
return document.getElementById( el );
}
function checkMail(mail){
var er = new RegExp(/^[A-Za-z0-9_\-\.]+@[A-Za-z0-9_\-\.]{2,}\.[A-Za-z0-9]{2,}(\.[A-Za-z0-9])?/);
if(typeof(mail) == "string"){
if(er.test(mail)){
return true; }
}else if(typeof(mail) == "object"){
if(er.test(mail.value)){
return true;
}
}else{
return false;
}
}
//]]>
</script>

Tenho esses campos no meu formulario contato.html

<tr>
                        <td  id="td-nome"><span>Nome:</span></td>
                        <td>
						<input type="text" name="Nome" size="60" id="Nome" />
						</td>
                    </tr>
                    <tr>
                        <td id="td-email"><span>email:</span></td>
                        <td>
						<input type="text" name="Email" size="45" id="Email" />
						</td>
                    </tr>
                    <tr>
                        <td id="td-opcao"><span>Opção/assunto:</span></td>
                        <td>
						<select name="Assunto" id="Assunto">
	                        <option value="0">Escolha uma opção/assunto</option>
	                        <option value="1">Política</option>
	                        <option value="2">Hobby</option>
	                        <option value="3">Informática</option>
	                        <option value="4">Religião</option>
	                        <option value="5">Pesquisa</option>
	                        <option value="6">Samba</option>
                        </select>
						</td>
                    </tr>
                    <tr>
                        <td id="td-mensagem"><span>Comentários:</span></td>
                        <td>
						<textarea name="Mensagem" cols="60" rows="10" id="Mensagem"></textarea> 
                        </td>
                    </tr>
                    <tr>
                        <td class="td-mensagem"><span> </span></td>
                        <td><input type="submit" name="Enviar" value="Enviar" /></td>
                    </tr>
                </tbody>
            </table>

O segundo passo que eles pedem é "Digite o seguinte código dentro do arquivo sendmail.asp".

Entendo que tenho que fazer referencia dos meus campos do formulário cantato.html dentro desse código do sendmail.aso. Não é isso?

E como fazer essa referencia se o exemplos deles é diferente do meu formulário contado.html.

Veja o exemplo deles e onde vou introduzir meus campos do formulário. É essa a minha cruel dúvida:

<%
' Cria os objetos para envio de e-mail
Set message = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
param.Update

'Obtendo valores digitados no formulário e armazená-los nas variáveis locais
strFrom = Request.Form("from")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")

'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado
'para envio de Spam
aux1 = chr(13)
aux2 = chr(10)
regex= " | |cc:|bcc:|"& aux1 &"|"& aux2
Set objRegExp = New RegExp
objRegExp.Pattern = regex
objRegExp.IgnoreCase = True
objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")
strTo = objRegExp.Replace(strTo,"")
strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf
'Atribui-se os valores para as propriedades do objeto
message.From = strFrom
message.To = strTo
message.Subject = StrSubject
message.textBody = StrBody

' Outras propriedades que podem ser usadas, mas que deixaremos comentadas neste exemplo:
' - Você pode enviar e-mail HTML, arquivos anexados, etc;
' - Você pode mudar muitos aspectos da mensagem;
'message.HTMLBody = StrBody 'Envia no formato HTML
'message.Cc = "conta1@dominio.com.br;conta2@dominio.com.br" 'Com Cópia
'message.Bcc = "conta3@dominio.com.br;conta4@dominio.com.br" 'Com Cópia Oculta
'message.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta)
'message.AddAttachment "I:InetpubWwwrootSuaContaNomeDoArquivo" 'Anexa arquivo na mensagem

' Envia a mensagem!
message.send

'Atribui nothing ao objeto para que ele se torna inválido imediatamente após o envio
'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail
Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td> </td></tr>"
Response.Write "<tr><td> </td></tr>"
Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"
Response.Write "</body></html>"
%>

Veja o comentários deles

"Obtendo valores digitados no formulário e armazená-los nas variáveis locais"

Como eu vou idicar o meus campos aqui?

'Obtendo valores digitados no formulário e armazená-los nas variáveis locais
strFrom = Request.Form("from")
strTo = Request.Form("email")
strSubject = Request.Form("assunto")
strBody = Request.Form("mensagem")

Os compos do meu formulario são:

Nome:

<input type="text" name="Nome" size="60" id="Nome" />

Email:

<input type="text" name="Email" size="45" id="Email" />

Opção:

<td>
<select name="Assunto" id="Assunto">
<option value="0">Escolha uma opção/assunto</option>
<option value="1">Política</option>
<option value="2">Hobby</option>
<option value="3">Informática</option>
<option value="4">Religião</option>
<option value="5">Pesquisa</option>
<option value="6">Samba</option>
</select>
</td>

E por ultimo mensagem:

<textarea name="Mensagem" cols="60" rows="10" id="Mensagem"></textarea>

E, ainda, por cima tem que ser substituir a tag <textarea> porque o editor da hospedagem não pode conter essa tab <textarea>. Apresenta erro.

Observe que no meu formulário tem id o deles não tem. Mantenho no meu? Não tem problema?

<html>
<head><title>Mail Input Page</title></head>
<body>
<form method="post" action="sendmail.asp" name="Inputform">
<table border="1" width="50%">
<input type="hidden" name="email" value="Conta@SeuDomínio">
<tr><td width="48%" align="right">De</td><td width="52%"><input type="text" name="from" 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>

O meu formulário original é esse:

</td>

</tr>

<tr>

<td id="td-nome"><span>Nome:</span></td>

<td>

<input type="text" name="Nome" size="60" id="Nome" />

</td>

</tr>

<tr>

<td id="td-email"><span>email:</span></td>

<td>

<input type="text" name="Email" size="45" id="Email" />

</td>

</tr>

<tr>

<td id="td-opcao"><span>Opção/assunto:</span></td>

<td>

<select name="Assunto" id="Assunto">

<option value="0">Escolha uma opção/assunto</option>

<option value="1">Política</option>

<option value="2">Hobby</option>

<option value="3">Informática</option>

<option value="4">Religião</option>

<option value="5">Pesquisa</option>

<option value="6">Samba</option>

</select>

</td>

</tr>

<tr>

<td id="td-mensagem"><span>Comentários:</span></td>

<td>

<textarea name="Mensagem" cols="60" rows="10" id="Mensagem"></textarea>

</td>

</tr>

<tr>

<td class="td-mensagem"><span> </span></td>

<td><input type="submit" name="Enviar" value="Enviar" /></td>

</tr>

</tbody>

</table>

</form>

A empresa de hospedagem mandou um modelo, que pode ser mudade, que tem esse html:

<body>

<form method="post" action="sendmail.asp" name="Inputform">

<table border="1" width="50%">

<input type="hidden" name="email" value="carlos.teixeira@terra.com.br">

<tr><td width="48%" align="right">E-mail</td><td width="52%"><input type="text" name="from" 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>

A empresa mandou também um arquivo asp para trabalhar junto com o formulário.

O pior está sendo alterar o sandmail.asp, pois para incluir campos no html deles tenho que alterar também o arquivo abaixo e como vou fazer isso?

Estou apanhando muito. Observe que no início do meu formulário tem um javascript. Vou perder ele se for adaptar para o novo modelo deles?

<body>

<%

<head>

<script type="text/javascript">

//<![CDATA[

window.onload = function(){

id('form1').onsubmit = function(){

var erro = 0;

erro = !obr( 'Nome' ) ? erro+1 : erro;

erro = !obr( 'Email' ) ? erro+1 : erro;

erro = !obr( 'Assunto' ) ? erro+1 : erro;

erro = !obr( 'Mensagem' ) ? erro+1 : erro;

if( !checkMail( id('Email') ) )

{

alert( 'Digite um email válido!' );

return false;

}

if( erro>0 )

return false;

};

};

function obr( campo ){

if( id(campo).value=='' || id(campo).value==0 ){

alert( 'O campo '+campo+' é obrigatório!' );

return false;

}

else

return true;

}

function id( el ){

return document.getElementById( el );

}

function checkMail(mail){

var er = new RegExp(/^[A-Za-z0-9_\-\.]+@[A-Za-z0-9_\-\.]{2,}\.[A-Za-z0-9]{2,}(\.[A-Za-z0-9])?/);

if(typeof(mail) == "string"){

if(er.test(mail)){

return true; }

}else if(typeof(mail) == "object"){

if(er.test(mail.value)){

return true;

}

}else{

return false;

}

}

//]]>

</script>

' Cria os objetos para envio de e-mail

Set message = Server.CreateObject("CDO.Message")

Set conf = Server.CreateObject("CDO.Configuration")

Set param = conf.Fields

param("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

param("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

param.Update

'Obtendo valores digitados no formulário e armazená-los nas variáveis locais

strFrom = Request.Form("from")

strTo = Request.Form("email")

strSubject = Request.Form("assunto")

strBody = Request.Form("mensagem")

'Retira caracteres inválidos que possam ser inclusos por acesso não autorizado

'para envio de Spam

aux1 = chr(13)

aux2 = chr(10)

regex= " | |cc:|bcc:|"& aux1 &"|"& aux2

Set objRegExp = New RegExp

objRegExp.Pattern = regex

objRegExp.IgnoreCase = True

objRegExp.Global = True

strFrom = objRegExp.Replace(strFrom,"")

strTo = objRegExp.Replace(strTo,"")

strSubject = objRegExp.Replace(strSubject,"")

Set message.configuration = conf

'Atribui-se os valores para as propriedades do objeto

message.From = strFrom

message.To = strTo

message.Subject = StrSubject

message.textBody = StrBody

' Outras propriedades que podem ser usadas, mas que deixaremos comentadas neste exemplo:

' - Você pode enviar e-mail HTML, arquivos anexados, etc;

' - Você pode mudar muitos aspectos da mensagem;

'message.HTMLBody = StrBody 'Envia no formato HTML

'message.Cc = "conta1@dominio.com.br;conta2@dominio.com.br" 'Com Cópia

'message.Bcc = "conta3@dominio.com.br;conta4@dominio.com.br" 'Com Cópia Oculta

'message.Fields("urn:schemas:httpmail:importance").Value = 2 '(0=Baixa, 1=Normal, 2=Alta)

'message.AddAttachment "I:InetpubWwwrootSuaContaNomeDoArquivo" 'Anexa arquivo na mensagem

' Envia a mensagem!

message.send

'Atribui nothing ao objeto para que ele se torna inválido imediatamente após o envio

'Não podendo ser utilizado dois "sends" para o mesmo objeto New Mail

Set message = nothing

Msg = "Mensagem enviada com sucesso!"

Response.Write "<html><body><table align=center><tr><td> </td></tr>"

Response.Write "<tr><td> </td></tr>"

Response.Write "<tr><td><font face=Verdana><b>"& Msg &"</b></font></td></tr>"

Response.Write "</body></html>"

%>

</body>

Não estou conseguindo colocar os meus campo do meu formulário no exemplo deles e alterar o sandmail.asp

Se incluir um campo no medelo deles tem que incluir algo no sadmail.asp. E como?

Por favor, ajuda.

xanburzum · Maio 31, 2010

você vai precisar recuperar os dados do form e incluir no code de envio

TeixeiraRamos · Maio 31, 2010

Como recuperar eses dados. Não sei como fazer.

Por favor xanburzum. Não tenho estrutura para isso.

Me ajude.

Entrar

Arquivado

Adaptar meu código form para CDOSYS

Recommended Posts

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ajuda com Extends e envio para o banco

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante