Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera,
com um problema chato e não sei mais o que pode ser, olhem o código:
<%
tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")
dim objMail
dim Iconf
dim Flds
assunto = tipo
Set objMail = Server.CreateObject("CDO.Message")
Set Iconf = Server.CreateObject("CDO.Configuration")
Iconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Iconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Iconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
Iconf.Fields.update
Set ObjMail.Configuration = iConf
objMail.From = "conversecomjulio@hotmail.com"
objMail.to = email2
objMail.Subject = assunto
objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font color='#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
"_____________________________________________<br><br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
"<br>"
objMail.Send
set objMail = nothing
set Iconf = nothing
response.redirect "[http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"](http://www.ducoco.com.br/po/fale/mensagem_enviada.asp)%>
Ai ele da o seguinte erro:
Movido de Artigos, Dicas, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP
Ted help me please?
Essas linhas aqui
ASP
objMail.to = email2objMail.Subject = assunto
coloque assim:
ASP
objMail.to = ""&email2&""objMail.Subject = ""&assunto&""
objMail.to = ""&email2&""
objMail.Subject = ""&assunto&""
mais é pra colocar assim mesmo com dois pares de aspas?
abraços.
acredite, coloque e vamos ver o resultado!!!
o email que você tenta enviar é valido(existe a caixa postal)?
<%
tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")
dim objMail
dim Iconf
dim Flds
assunto = tipo
email2 = "helpdesk@ccab.org.br"
Set objMail = CreateObject("CDO.Message")
Set IConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "E:\mailroot\Pickup"
Flds.Update
Set ObjMail.Configuration = iConf
objMail.From = email
objMail.to = ""&email2&""
objMail.Subject = ""&assunto&""
objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font 'color=#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
"_____________________________________________<br><br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
"<br>"
objMail.send
set objMail = nothing
set Iconf = nothing
response.redirect "[http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"](http://www.ducoco.com.br/po/fale/mensagem_enviada.asp)%>
Então coloquei assim e o formulários esta funcionando perfeitamente mas eu não recebo o e-mail!!! podem perceber que até mudei o e-mail pra ter certeza, o que pode ser agora?
coloque em from tbm
ASP
objMail.From = ""&email&""
<%
tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")
dim objMail
dim Iconf
dim Flds
assunto = tipo
email2 = "helpdesk@ccab.org.br"
Set objMail = CreateObject("CDO.Message")
Set IConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "E:\mailroot\Pickup"
Flds.Update
Set ObjMail.Configuration = iConf
objMail.From = ""&email&""
objMail.to = ""&email2&""
objMail.Subject = ""&assunto&""
objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font 'color=#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
"_____________________________________________<br><br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
"<br>"
objMail.send
set objMail = nothing
set Iconf = nothing
response.redirect "[http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"](http://www.ducoco.com.br/po/fale/mensagem_enviada.asp)%>
Então Ted o formulário esta funcionando eu acho, mais não estou recebendo no meu e-mail...
eu coloquei essa página no meu ftp olha ae http://www.ducoco.com.br/po/fale/componentes.asp pra mostrar que tem instalado o cdonts, mas também esta instalado o cdosys acho que é esse, já registrei a dll... e também tenho o serviço de smtp no servidor, o que será que pode ser?
Abraços e obrigado pela ajuda.
Ted, quando tiver um tempo da uma olhada pra mim, please.
reparei que você ñ estava usando um SMTP de envio
adaptei a sua necessidade ao meu código de envio
você vai receber esse envio no email "helpdesk@ccab.org.br"
olha ai como adaptei:
ASP
<%tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")
VarGeral ="<font size='1' face='Verdana, Arial'> <font 'color=#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
"_____________________________________________<br><br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
"<br>"
MsgHtml = "<html><body>"&VarGeral&"</body></html>"
Sch = "www.schemas.microsoft.com/cdo/configuration/"
Set TedkConfig = Server.CreateObject("CDO.Configuration")
TedkConfig.Fields.Item(Sch & "sendusing") = 2
TedkConfig.Fields.Item(Sch & "smtpauthenticate") = 1
TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.ccab.com.br"
TedkConfig.Fields.Item(Sch & "sendusername") = "helpdesk=ccab.com.br"
TedkConfig.Fields.Item(Sch & "sendpassword") = "SuaSenha"
TedkConfig.Fields.Update
Set TedkMessage = Server.CreateObject("CDO.Message")
Set TedkMessage.Configuration = TedkConfig
TedkMessage.From = ""&email&""
TedkMessage.To = "helpdesk@ccab.org.br"
TedkMessage.Subject = "Mensagem"
TedkMessage.ReplyTo = Email
TedkMessage.HTMLBody = MsgHtml
If MsgHtml <> "" Then
TedkMessage.AutoGenerateTextBody = False
TedkMessage.TextBody = MsgHtml
End If
Erro = ""
Sucesso = False
On Error Resume Next
TedkMessage.Send
Set TedkMessage = Nothing
Set TedkConfig = Nothing
If Err <> 0 Then
Erro = Err.Description
Else
Sucesso = True
End If
Set Mail = Nothing
response.redirect "[http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"](http://www.ducoco.com.br/po/fale/mensagem_enviada.asp)%>
Obrigado, eu vou testar e já ti falo...
:rolleyes:
Ted,
Então o formulário continua executando mais o e-mail não chega, estas páginas estão em um servidor na própria empresa, i eu não tenho certeza se esta tudo correto no servidor, mais como você pode ver CDO e o CDONTS esta instalado assim como o serviço de smtp.
Existe uma outra forma de enviar esse e-mail usando o server?
você tem como testar em um servidor na internet e não local?
caso tenha, faça esse teste e veja se continua o erro, se você receber a informação então verifique se você abilitou corretamente o SMTP local
Ted,
Então, pelo menos no formulário não tem mais erros, mais eu não recebo o formulário no meu email, como você viu o Cdonts esta instalado no servidor, tem como eu usar ele pra enviar o e-mail?
Obrigado pela paciencia.
http://forum.imasters.com.br/public/style_emoticons/default/natal_wink.gif
rapaz testei esse código e recebi normalmente, como está seu form, pode existir algum erro de passagem dos parâmentros, pois o código está legal.
antes disso:
você tem um SMTP de envio?
TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.ccab.com.br"substituiu esse que coloquei!
substitua tudo adequadamente como está pois é a autenticação que o servior necessita para o envio
ASP
TedkConfig.Fields.Item(Sch & "smtpserver") = "smtp.ccab.com.br"TedkConfig.Fields.Item(Sch & "sendusername") = "helpdesk=ccab.com.br"
TedkConfig.Fields.Item(Sch & "sendpassword") = "SuaSenha"
Ted,
Vou postar o Form pra você dar uma analisada, muito obrigado pela paciencia.
Obs.: eu to me complicando todo com esse cliente porque nunca tinha feito no proprio servidor.
Valeo ;)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>DUCOCO ALIMENTOS</title>
<style type="text/css"> background-image: url(images/fundo.jpg);
}</style>
<link href="arquivos/estilos.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
function confereTudo() texto = document.cadform.tipo.value;
if (texto.length == 0)
{
alert("Selecione um assunto");
document.cadform.tipo.focus();
return;
}
document.cadform.action="[http://www.ducoco.com.br/po/fale/ver_mandar_email.asp";](http://www.ducoco.com.br/po/fale/ver_mandar_email.asp)
document.cadform.submit();
}
</script>
<body>
<div id="Layer4" style="position:absolute; left:137px; top:140px; width:376px; height:238px; z-index:5">
<form action="" method="post" name="cadform" id="cadform">
<table width="100%" border="0">
<tr>
<td><span class="txt_Preto16_B">SAC</span></td>
<td colspan="3"><%
session("email_sac") = "ducoco@ducoco.com.br"
if len(request("tipo")) = 0 then %>
<select name="tipo" class="txt_preto12" id="tipo">
<option selected>Escolha um assunto</option>
<option value="duvidas">Dúvidas</option>
<option value="sugestoes">Sugestões</option>
<option value="reclamacoes">Reclamações</option>
<option value="receitas">Receitas</option>
<option value="outros">Outros</option>
</select>
<% else
select case (request("tipo"))
case "duvidas"
texto = "Dúvidas"
case "sugestoes"
texto = "Sugestões"
case "reclamacoes"
texto = "Reclamações"
case "receitas"
texto = "Receitas"
case "outros"
texto = "Outros"
end select
%>
<select name="tipo" class="txt_preto12" id="tipo">
<option value="duvidas">Dúvidas</option>
<option value="sugestoes">Sugestões</option>
<option value="reclamacoes">Reclamações</option>
<option value="receitas">Receitas</option>
<option value="outros">Outros</option>
<option>-----------</option>
<option value="<%=request("tipo")%>" selected><%=texto%></option>
</select>
<% end if %> </td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<tr class="txt_preto12">
<td><p>Nome:</p></td>
<td colspan="3"><input name="nome" type="text" class="txt_preto12" id="nome" size="55" maxlength="20"></td>
</tr>
<tr class="txt_preto12">
<td>Sobrenome:</td>
<td colspan="3"><input name="sobrenome" type="text" class="txt_preto12" id="sobrenome" size="55" maxlength="25"></td>
</tr>
<tr class="txt_preto12">
<td>Endereço</td>
<td colspan="3"><input name="endereco" type="text" class="txt_preto12" id="endereco" size="55" maxlength="50"></td>
</tr>
<tr class="txt_preto12">
<td>Número:</td>
<td><span class="txt_azul-12"><font face="Tahoma" size="2"><font face="Tahoma" size="2">
<input name="numero" type="text" class="txt_preto12" id="numero3" size="5" maxlength="40">
</font> </font></span></td>
<td width="26%" class="txt_preto12"> Complemento: </td>
<td width="44%" class="txt_preto12"><input name="complemento" type="text" class="txt_preto12" id="complemento" size="26" maxlength="9"></td>
</tr>
<tr class="txt_preto12">
<td>Bairro:</td>
<td colspan="3"><input name="bairro" type="text" class="txt_preto12" id="bairro" size="55" maxlength="50"></td>
</tr>
<tr class="txt_preto12">
<td>CEP:</td>
<td colspan="3"><input name="cep" type="text" class="txt_preto12" id="cep" size="55" maxlength="50"></td>
</tr>
<tr class="txt_preto12">
<td>Cidade:</td>
<td colspan="3"><input name="cidade" type="text" class="txt_preto12" id="endereco23" size="55" maxlength="40"></td>
</tr>
<tr class="txt_preto12">
<td><span class="txt_azul-12">Estado:</span> </td>
<td colspan="3"><span class="txt_azul-12">
<select name="estado" size="1" class="txt_preto12" >
<option value="" selected>Estado</option>
<option value="AC">ACRE</option>
<option value="AL">ALAGOAS</option>
<option value="AM">AMAZONAS</option>
<option value="AP">AMAPÁ</option>
<option value="BA">BAHIA</option>
<option value="CE">CEARÁ</option>
<option value="DF">DESTRITO FEDERAL</option>
<option value="ES">ESPÍRITO SANTO</option>
<option value="GO">GOIÁS</option>
<option value="MA">MARANHÃO</option>
<option value="MG">MINAS GERAIS</option>
<option value="MS">MATO GROSSO DO SUL</option>
<option value="MT">MATO GROSSO</option>
<option value="PA">PARÁ</option>
<option value="PB">PARAÍBA</option>
<option value="PE">PERNAMBUCO</option>
<option value="PI">PIAUÍ</option>
<option value="PR">PARANÁ</option>
<option value="RJ">RIO DE JANEIRO</option>
<option value="RN">RIO GRANDE DO NORTE</option>
<option value="RO">RONDÔNIA</option>
<option value="RR">RORAIMA</option>
<option value="RS">RIO GRANDE DO SUL</option>
<option value="SC">SANTA CATARINA</option>
<option value="SE">SERGIPE</option>
<option value="SP">SÃO PAULO</option>
<option value="TO">TOCANTINS</option>
</select>
</span></td>
</tr>
<tr class="txt_preto12">
<td width="22%">DDD:</td>
<td width="8%"><input name="ddd" type="text" class="txt_preto12" id="ddd" size="5" maxlength="2"></td>
<td><p>Telefone:
</p></td>
<td><input name="telefone" type="text" class="txt_preto12" id="telefone" size="26" maxlength="9"></td>
</tr>
<tr class="txt_preto12">
<td>E-mail:</td>
<td colspan="3"><input name="email" type="text" class="txt_preto12" id="email" size="55" maxlength="50"></td>
</tr>
<tr class="txt_preto12">
<td> Comentários:</td>
<td colspan="3" rowspan="3"><textarea name="comentario" cols="54" rows="3" class="txt_preto12" id="comentario"></textarea></td>
</tr>
<tr class="txt_preto12">
<td> </td>
</tr>
<tr class="txt_preto12">
<td> </td>
</tr>
<tr class="txt_preto12">
<td colspan="4"> </td>
</tr>
<tr class="txt_preto12">
<td colspan="4"><div align="center">
<input name="Button2" type="button" class="txt_preto12" onClick="java script:confereTudo()" value="Enviar">
</div></td>
</tr>
</table>
</form>
</div>
<div id="Layer3" style="position:absolute; left:0px; top:79px; width:336px; height:203px; z-index:4"><img src="images/fale_1.jpg"><img src="images/fale_2.jpg"><img src="images/fale_3.jpg"><img src="images/fale_4.jpg"><img src="images/fale_5.jpg"><img src="images/fale_6.jpg"></div></body>
</html>deve ser erro do seu javascript no action
faz assim
<form action="" method="post" name="cadform" id="cadform">
no button você faz isso aqui
<input name="BtEnviar" type="button" class="txt_preto12" value="Enviar">
a página de envio você coloca no final dessa página ai
<!--#include file="../arquivos/top.asp"-->
</body>
</html>ASP
If Request.Form("BtEnviar") = "Enviar" Then
tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
(.... continua o código....)
End If
Ted,
Sera que esse jeito vai? quando eu clico em enviar da erro!!! mais eu não consigo identificar esse problema, se tiver um tempo me da um help, abraços.
>
<%
tipo = request("tipo")
nome = request("nome")
sobrenome = request("sobrenome")
endereco = request("endereco")
numero = request("numero")
complemento = request("complemento")
cep = request("cep")
bairro = request("bairro")
cidade = request("cidade")
estado = request("estado")
ddd = request("ddd")
telefone = request("telefone")
email2 = request("email")
comentario = request("comentario")
dim objMail
dim Iconf
dim Flds
assunto = tipo
email2 = "ducoco@ducoco.com.br"
Set objMail = CreateObject("CDO.Message")
Set IConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "E:\mailroot\Pickup"
Flds.Update
Set ObjMail.Configuration = iConf
objMail.From = email
objMail.to = email2
objMail.Subject = assunto
objMail.HTMLBody = "<font size='1' face='Verdana, Arial'> <font color='#FF0000'> Mensagem encaminhada por usuário: " & now() & "</font>" & "<br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> WWW.DUCOCO.COM.BR </strong> </font>" & "<br>" & _
"_____________________________________________<br><br><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#FF0000'> MENSAGEM: </strong> </font><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Assunto: </strong> </font>" & assunto & "<BR><br>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Nome: </strong> </font>" & nome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Sobrenome: </strong> </font>" & sobrenome & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Endereço: </strong> </font>" & endereco & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Número: </strong> </font>" & numero & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Complemento: </strong> </font>" & complemento & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Bairro: </strong> </font>" & bairro & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> CEP: </strong> </font>" & cep & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Cidade: </strong> </font>" & cidade & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Estado: </strong> </font>" & estado & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> DDD: </strong> </font>" & ddd & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Telefone: </strong> </font>" & telefone & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> E-mail: </strong> </font>" & email2 & "<BR>" & _
"<font size='2' face='Verdana, Arial'> <strong> <font color='#000000'> Comentário: </strong> </font>" & "<br>" & _
"<font size='2' face='Verdana, Arial'> <font color='#000000'>" & comentario & "</font><BR>" & _
"<br>"
Mail.Send
response.redirect "[http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"](http://www.ducoco.com.br/po/fale/mensagem_enviada.asp)%>
Bom Dia,
Galera eu to com o mesmo problema ainda, vou tentar explicar:
Quando eu tento executar o codigo pra enviar o e-mail ele da um erro no comando send.mail eu não faço a menor idéia porque isso esta acontecendo, então eu coloquei uma página pra ver quais componentes estão rodando no servidor http://www.ducoco.com.br/po/fale/asp_test_components.asp.
Depois disso eu peguei um formulário básico como esse:
Formulario.html
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Contatos - Via CDONTS</title></head>
<body bgcolor="#FFFFFF">
<div align="center">
<form name="form1" action="Enviar_email.asp" >
<p>Nome: <br>
<input type="text" name="txtnome">
</p>
<p>Email: <br>
<input type="text" name="txtemail">
</p>
<p>Comentário: <br>
<textarea name="txtcomentario" cols="50" rows="10"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</div>
</body>
</html><%
Option Explicit
Dim var_nome, var_mail, var_comentario, var_to, EnviarMail, MsgBody
var_nome = Request.QueryString("txtnome")
var_mail = Request.QueryString("txtemail")
var_comentario = Request.QueryString("txtcomentario")
var_to = "ducoco@ducoco.com.br"
Set EnviarMail = Server.CreateObject("CDONTS.NewMail")
EnviarMail.To = var_to
EnviarMail.From = var_mail
EnviarMail.Subject = "Meu Site - Contatos"
MsgBody = "<html>" _
& "<head>" _
& "</head>" _
& "<body bgcolor=""#FFFFFF"">" _
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p>" _
& "</body>" _
& "</html>"Set EnviarMail = Nothing
Response.redirect "http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"
%>
E mesmo assim ele tah erro no comando EnviarMail.Send, Galera alguem pode me ajudar?
Request.QueryString? ñ cara é form
faz assim, agora me chateei teeei mesmo hehehehe vamos lá
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Contatos - Via CDONTS</title></head>
<body bgcolor="#FFFFFF">
<div align="center">
<form name="form1" method="post" action="Enviar_email.asp">
<p>Nome: <br>
<input type="text" name="txtnome">
</p>
<p>Email: <br>
<input type="text" name="txtemail">
</p>
<p>Comentário: <br>
<textarea name="txtcomentario" cols="50" rows="10"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</div>
</body>
</html><%
var_nome = Request.Form("txtnome")
var_mail = Request.Form("txtemail")
var_comentario = Request.Form("txtcomentario")
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" ' coloque o seu servidor
cdoConfig.fields.update
MsgBody = "<html><head></head><body bgcolor=""#FFFFFF""><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">Você recebeu uma mensagem de <b>" & var_nome & "</b>, email <b>" & var_mail & "</b> e fez o seguinte comentário:</font></p><p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><b>" & var_comentario & "</b></font></p></body></html>"Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "ducoco@ducoco.com.br"
cdoMessage.To = var_mail
cdoMessage.Subject = "Meu Site - Contatos"
cdoMessage.HTMLBody = MsgBody
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.redirect "http://www.ducoco.com.br/po/fale/mensagem_enviada.asp"
%>
Ted,
Eu acho que não tem erro no código porque você já fez de tudo, mas olha o erro que deu:
Technical Information (for support personnel)
* Error Type:
(0x80040211)
/po/fale/Enviar_email.asp, line 20
Bem na tag de enviar, será que esta faltando algum componente no servidor?
Obrigado.
Esse código de erro significa problemas com o SMTP.
Vamos a alguns pontos:
1- Você está realmente colocando um servidor SMTP valido ?
2- Neste servidor, o componente de e-mail está instalado ?
Responda isso com CERTEZA.. depois a gente volta a conversar...
Abraços...
quem é a linha 20?
no lugar de localhost colocou seu smtp?
Opa postei no lugar errado, mals.