Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

TecMan

Erro CDO.Message.1 error '8004020d'?

Por , em ASP Clássico

Recommended Posts

TecMan    0

TecMan
Postado

Pessoal,

 

O formulário de Contato está dando o erro abaixo:

 

CDO.Message.1 error '8004020d'

At least one of the From or Sender fields is required, and neither was found.

/www_novosite_2012/contato.asp, line 107

E eu não estou conseguindo encontrar onde estou errando...

Alguém consegue me ajudar?

Obrigado!

<!--#include virtual="/www_novosite_2012/comum/conexao.asp" -->
<!--#include virtual="/www_novosite_2012/comum/idioma.asp" -->
<%
botao_enviar = trim(request.Form("botao_enviar"))

if botao_enviar <> "" then

	faleconosco = trim(request.Form("faleconosco"))
'	response.Write(faleconosco)&"<br />"
	nome 		= trim(request.Form("nome"))
'	response.Write(nome)&"<br />"
	assunto		= trim(request.Form("assunto"))
'	response.Write(assunto)&"<br />"
	email 		= trim(request.Form("emailx"))
'	response.Write(email)&"<br />"

	tipo_msg 	= trim(request.Form("tipo_msg"))
		if tipo_msg <> "" then
			select case tipo_msg
				case "R"
					tipo_msg = "reclamaçao "
				case "S"
					tipo_msg = "sugestao "
				case "D"
					tipo_msg = "dúvida"
			end select
		else
			tipo_msg = "Outro"
		end if
	promocoes 	= trim(request.Form("promocoes"))
		if promocoes <> "S" then
			promocoes = "Nao"
		else
			promocoes = "Sim"
		end if
	linha 	= trim(request.Form("linha"))
		
	mensagem 	= trim(request.Form("mensagem"))
	'response.Write(faleconosco)
	'response.End()
			' Campo da mensagem
		corpo_email = "Fale Conosco Site Strahl"&Chr(10)&Chr(13)
		corpo_email = corpo_email & "Assunto: "&assunto&Chr(10)&Chr(13)
		corpo_email = corpo_email & "Nome: "&nome&Chr(10)&Chr(13)
		corpo_email = corpo_email & "Email: "&email&Chr(10)&Chr(13)
		corpo_email = corpo_email & promocoes&", quero receber o boletim informativo."&Chr(10)&Chr(13)
		corpo_email = corpo_email & "Quero receber promoçoes das seguintes linhas: "&linha&Chr(10)&Chr(13)
		corpo_email = corpo_email & "Tipo de Mensagem: "&tipo_msg&Chr(10)&Chr(13)
		corpo_email = corpo_email & "Mensagem: "&mensagem

'	response.Write(corpo_email)&"<br />"
'	response.End()

'Envio de email anterior		
			' Cria o componente aspmail
'				Set myMail = CreateObject("CDO.Message")
'				myMail.Subject= assunto
'			' E-mail do Rementente
'				myMail.From=email
'			' Nome / EndereA§o de quem recebera o E-mail
'				myMail.To = faleconosco
'				myMail.TextBody = corpo_email
'				myMail.Send
'				set myMail=nothing

'Envio de email no ar Ascent				

			Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
			Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mx01.anaxanet.com" 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
			objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
			objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
			objCDOSYSCon.Fields.update 
			Set objCDOSYSMail.Configuration = objCDOSYSCon 
'			objCDOSYSMail.From = "elaineamoraes@yahoo.com.br"
'			objCDOSYSMail.To = "elaine@ascentbrand.com.br"
'			objCDOSYSMail.Subject = "Teste do CDOSYS" 
'			objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS Disauto " 
			objCDOSYSMail.From = email
			objCDOSYSMail.To = faleconosco
			objCDOSYSMail.Subject = assunto 
			objCDOSYSMail.HtmlBody = corpo_email 
			objCDOSYSMail.Send 
			Set objCDOSYSMail = Nothing 
			Set objCDOSYSCon = Nothing 
			'response.write "E-mail enviado ascent"

			
		session("msg") = "Sua mensagem foi encaminhada com sucesso."
		response.redirect("/www_novosite_2012/index.asp")
	'	end if
'else
'	session("msg") = "Erro no envio da mensagem tente novamente."
end if
%><!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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>.:: <%=ucase(session("site_atual"))%> ::.</title>
<link href="css/reset.css" type="text/css" rel="stylesheet">
<link href="css/style.css" type="text/css" rel="stylesheet">
<link href="css/custom-theme/jquery-ui-1.8.23.custom.css" type="text/css" rel="stylesheet">
<link rel="stylesheet" href="css/jquery.fancybox.css?v=2.1.0" type="text/css" media="screen" />
<script src="js/jquery.min.js" type="text/javascript"></script>
<script src="js/jquery.kwicks-1.5.js" type="text/javascript"></script>
<script src="js/jquery-ui-1.8.23.custom.min.js" type="text/javascript"></script>
<script type="text/javascript" src="js/jquery.fancybox.js?v=2.1.0"></script>
<script src="js/script.js" type="text/javascript"></script>
<script>
function limpa() {
	if(document.getElementById('nome').value!="") {
	document.getElementById('nome').value="";
	}
	if(document.getElementById('empresa').value!="") {
	document.getElementById('empresa').value="";
	}
	if(document.getElementById('email').value!="") {
	document.getElementById('email').value="";
	}
	if(document.getElementById('faleconosco').value!="") {
	document.getElementById('faleconosco').value="";
	}
	if(document.getElementById('assunto').value!="") {
	document.getElementById('assunto').value="";
	}
	if(document.getElementById('tipo_msg').value!="") {
	document.getElementById('tipo_msg').value="";
	}
	if(document.getElementById('mensagem').value!="") {
	document.getElementById('mensagem').value="";
	}
	if(document.getElementById('promocoes').value!="") {
	document.getElementById('promocoes').value="";
	}

}
</script>
</head>

<body>
<div id="header">
	<div class="banner">
        <div class="base">
			<!--#include virtual="/www_novosite_2012/include/menusuperior.asp" -->
		</div>
        <div class="banner_layer"></div>
			<!--#include virtual="/www_novosite_2012/include/banner.asp" -->
    </div>
</div>
<div id="base">
    <div id="conteiner">
    	<div class=" header"></div>
        <div class="cont">
          <div class="interno">
            <h1>Contato</h1>
			<div class="mapacontato"><!--#include virtual="/www_novosite_2012/include/contato_mapa.asp" --></div>
                <div class="infocontato">
					<!--#include virtual="/www_novosite_2012/include/contato.asp" -->
                </div>
			</div>
        </div>
    </div>
	<!--#include virtual="/www_novosite_2012/include/rodape.asp" -->
</div>
<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-16847609-1']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

configure essas linhas de acordo com o seu servidor: como smpt, e-mail, senha

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="xxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="xxx"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="xxx"

 

exemplo:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.update
set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = remetente & "<" & emailremetente & ">"
objCDOSYSMail.To = destinatario & "<" & emaildestinatario & ">"
objCDOSYSMail.Subject = assunto
objCDOSYSMail.TextBody = texto
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write("enviado com sucesso!!")

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito