Nittho Lima Postado Maio 6, 2008 Denunciar Share Postado Maio 6, 2008 quando tento enviar da a seguinte mensagem de erro:CDO.Message.1 error '80040212' The transport lost its connection to the server. /espacoestudante/aspmail.asp, line 33 código aspmail.asp[cod]<%Dim iConfDim Flds Set iConf = Server.CreateObject("CDO.Configuration")Set Flds = iConf.FieldsWith Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .UpdateEnd With%><%Dim nome, eusou, telefone, email, cidade, estado, mensagem, objmailnome = Request.Form("nome")eusou = Request.Form("Eusou")email = Request.Form("email")telefone = Request.Form("telefone")mensagem = Request.Form("mensagem") Set objMail = Server.CreateObject("CDO.Message")Set objMail.Configuration = iConf ObjMail.From = email ObjMail.To = "mariziam@terra.com.br" 'Definições de servidor SMTP e Autenticação ObjMail.Subject = "Site: espacoestudante"Objmail.HTMLBody = "Informações preenchidas no formulário de Fale Conosco <br /><br />Nome : " & nome & "<br /><br />" & "Eu Sou : " & eusou & "<br /><br />" & "E-mail : " & email & "<br /><br />" & "Telefone : " & telefone & "<br /><br />" & "Mensagem : <br />" & mensagem Objmail.Send Response.Redirect "feed.html" Set objmail = Nothing%>[/cod] Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Maio 6, 2008 Denunciar Share Postado Maio 6, 2008 Indentifica sua linha 33 ai !!!Axo q está dando erro na sua configuração de email !!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Nittho Lima Postado Maio 6, 2008 Autor Denunciar Share Postado Maio 6, 2008 linha 33Objmail.Send Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jow Postado Maio 6, 2008 Denunciar Share Postado Maio 6, 2008 Verifica os dados do seu formulário e também as configurações do seu servidor !!!'Definições de servidor SMTP e Autenticação ObjMail.Subject = "Site: espacoestudante" Objmail.HTMLBody = "Informações preenchidas no formulário de Fale Conosco <br /><br />Nome : " & nome & "<br /><br />" & "Eu Sou : " & eusou & "<br /><br />" & "E-mail : " & email & "<br /><br />" & "Telefone : " & telefone & "<br /><br />" & "Mensagem : <br />" & mensagem & " Objmail.Send Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Nittho Lima Postado Maio 6, 2008 Autor Denunciar Share Postado Maio 6, 2008 Não tenho muita experiência mais vou v se consigo resolver.Obrigado! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Nittho Lima
quando tento enviar da a seguinte mensagem de erro:
CDO.Message.1 error '80040212'
The transport lost its connection to the server.
/espacoestudante/aspmail.asp, line 33
código aspmail.asp
[cod]
<%
Dim iConf
Dim Flds
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
%>
<%
Dim nome, eusou, telefone, email, cidade, estado, mensagem, objmail
nome = Request.Form("nome")
eusou = Request.Form("Eusou")
email = Request.Form("email")
telefone = Request.Form("telefone")
mensagem = Request.Form("mensagem")
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = iConf
ObjMail.From = email
ObjMail.To = "mariziam@terra.com.br"
'Definições de servidor SMTP e Autenticação
ObjMail.Subject = "Site: espacoestudante"
Objmail.HTMLBody = "Informações preenchidas no formulário de Fale Conosco <br /><br />Nome : " & nome & "<br /><br />" & "Eu Sou : " & eusou & "<br /><br />" & "E-mail : " & email & "<br /><br />" & "Telefone : " & telefone & "<br /><br />" & "Mensagem : <br />" & mensagem
Objmail.Send
Response.Redirect "feed.html"
Set objmail = Nothing
%>
[/cod]
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.