Ir para conteúdo

POWERED BY:

Arquivado

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

Gs3llmann

Problemas com envio usando

Por , em ASP Clássico

Recommended Posts

Gs3llmann    0

Gs3llmann
Postado

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"

 

 

 

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gs3llmann    0

Gs3llmann
Postado

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>

Enviar_email

 

<%

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>"
EnviarMail.Body = MsgBody
EnviarMail.Importance = 1
EnviarMail.BodyFormat = 0
EnviarMail.MailFormat = 0
EnviarMail.Send

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?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

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"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gs3llmann    0

Gs3llmann
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

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...

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Cara.. o código que o Ted'K postou está perfeito... sem nenhum erro....

 

Eu TESTEI o código aki e recebi o e-mail sem problemas....

 

Usa o código que ele te passou que vai de boa....

 

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

ídem Darkdemo, testei tbm e de boa, agora tem certeza que esse é seu SMTP de envio, fale com seu servidor sobre esse erro

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Por favor... poste o Còdigo COMPLETO da página "Enviar_Email.asp" e nos indique qual a linha 20, que acusa o erro..

 

Abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gs3llmann    0

Gs3llmann
Postado 

<%
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"
%>

Esta é a linha 20: cdoMessage.Send

 

http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gs3llmann    0

Gs3llmann
Postado

Então,

 

O cara que configurou o Novell groupwise me falou que eu posso usar o mail.ducoco.com.br pra envio de e-mail, só que se eu fizer com ele eu tenho que fazer uma autenticação ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Então,

 

O cara que configurou o Novell groupwise me falou que eu posso usar o mail.ducoco.com.br pra envio de e-mail, só que se eu fizer com ele eu tenho que fazer uma autenticação ???

Exatamente....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gs3llmann    0

Gs3llmann
Postado

Galera olha ai como ficou o Codigo:

 

<%
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 & "smtpauthenticate") = 1
cdoConfig.Fields.Item(Sch & "smtpserver") = "mail.ducoco.com.br"
cdoConfig.Fields.Item(Sch & "sendusername") = "ducoco=ducoco.com.br"
cdoConfig.Fields.Item(Sch & "sendpassword") = "senha"
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"
%>

mais mesmo assim ele esta dando erro no msm comando:

cdoMessage.Send

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