Postagens
Não informado
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.micro...tion/sendusing") = 2
param("http://schemas.micro...ion/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:
[b]' Envia a mensagem!
[b]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
%>
