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 = "Nome" & strde & "
identidade: " & strid & "
EMPRESA: " & strempresa &"
CNPJ: " & strcnpj & "
CPF: " & strcpf & "
E-mail: " & strfrom & "
Endereço: " & strendereco & "
Numero : " & strnumero & "
Complemento: " & strcomplemento & "
Bairro: " & strbairro & "
Cidade: " & strcidade & "
Estado: " & strestado & "
País: " & strpais & "
fone :" & strddd & strtelefone & "
Usuário: " & strusuario & "
Senha: " & 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 "" 'Response.Write "" 'Response.Write "" 'Response.Write "" ``` Response.Redirect "Obrigado.html" End If %>

"& Msg &"

Spider3Original

Problema com Formulário para enviar dados ao email