Ir para conteúdo
Fórum CódigoFonte.net
Spider3

Problema Com Formulário Para Enviar Dados Ao Email

Recommended Posts

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...