Ir para conteúdo

POWERED BY:

Arquivado

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

Spider3Original

Problema com Formulário para enviar dados ao email

Por , em ASP Clássico

Recommended Posts

Spider3Original    0

Spider3Original
Postado

Olá Pessoal. Estou com um problema e não sei como resolver. Eu tinha um script funcionando para enviar email, agora está dando o seguinte erro:

 

CDO.Message.1 error '80040213'

 

The transport failed to connect to the server.

 

/sendmail.asp, line 149

 

A linha 149 diz: message.send

 

Alguém pode me ajudar? Marquei o número 149 na frente da linha e coloquei em negrito. Segue o código:

 

< %



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





strfrom = Request.Form("from")

strTo = Request.Form("email")

strSubject = Request.Form("subject")

strid = Request.Form("from1")

strempresa = Request.Form("empresa")

strcnpj = Request.Form("cnpj")

strcpf = Request.Form("cpf")

strde = Request.Form("de")

strendereco = Request.Form("endereco")

strnumero = Request.Form("numero")

strcomplemento = Request.Form("complemento")

strbairro = Request.Form("bairro")

strcidade = Request.Form("cidade")

strestado = Request.Form("estado")

strpais = Request.Form("pais")

strddd = Request.Form("ddd")

strtelefone = Request.Form("telefone")

strusuario = Request.Form("usuario")

strsenha = Request.Form("senha")



if strde = "" OR strid = "" OR strcpf = "" OR strfrom = "" OR strendereco = "" OR strnumero = "" OR strcomplemento = "" OR strbairro = "" OR strcidade = "" OR strestado = "" OR strpais = "" OR strddd = "" OR strtelefone = "" OR strusuario = "" OR strsenha = "" Then

Response.Redirect("cadaserro.htm")

Else

aux1 = chr(13)

aux2 = chr(10)

regex= "\\n|\\r|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,"")

strid = objRegExp.Replace(strid,"")

strempresa = objRegExp.Replace(strempresa,"")

strcnpj = objRegExp.Replace(strcnpj,"")

strcpf = objRegExp.Replace(strcpf,"")

strde = objRegExp.Replace(strde,"")

strendereco = objRegExp.Replace(strendereco,"")

strnumero = objRegExp.Replace(strnumero,"")

strcomplemento = objRegExp.Replace(strcomplemento,"")

strbairro = objRegExp.Replace(strbairro,"")

strcidade = objRegExp.Replace(strcidade,"")

strestado = objRegExp.Replace(strestado,"")

strpais = objRegExp.Replace(strpais,"")

strddd = objRegExp.Replace(strddd,"")

strtelefone = objRegExp.Replace(strtelefone,"")

strusuario = objRegExp.Replace(strusuario,"")

strsenha = objRegExp.Replace(strsenha,"")



Set message.configuration = conf



message.from = strfrom

message.To = strTo

message.Subject = StrSubject

message.htmlBody = "<b>Nome</b>" & strde & "<b><br>identidade: </b>" & strid & "<b><br>EMPRESA</b>: " & strempresa &"<b><br>CNPJ</b>: " & strcnpj & "<b><br>CPF</b>: " & strcpf & "<b><br>E-mail</b>: " & strfrom & "<b><br>Endereço: <b/>" & strendereco & "<b><br>Numero : </b>" & strnumero & "<b><br>Complemento: </b>" & strcomplemento & "<b><br>Bairro</b>: " & strbairro & "<b><br>Cidade: </b>" & strcidade & "<b><br>Estado</b>: " & strestado & "<b><br>País: </b>" & strpais & "<b><br>fone :</b>" & strddd & strtelefone & "<b><br>Usuário</b>: " & strusuario & "<b><br>Senha</b>: " & strsenha:



' Envia a mensagem!

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

Response.Redirect "Obrigado.html"

End If

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é porque você esta enviando apartir do localhost, você precisa configurá-lo corretamente ou ter um SMTP válido

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