mharcelinho Postado Maio 14, 2007 Denunciar Share Postado Maio 14, 2007 Tenho um site que envia email atraves de uma função em delphi, so que na hora de enviar o email esta aparecendo esta mensagem: "Socket Error # 10054 Connection reset by peer"O que poderia causar isso? e como resolver?Qualquer ajuda será apreciada. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ipc Postado Maio 14, 2007 Denunciar Share Postado Maio 14, 2007 Qual a função que você utiliza? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mharcelinho Postado Maio 15, 2007 Autor Denunciar Share Postado Maio 15, 2007 (editado) Segue abaixo a função que eu uso, ve se tem algum erro por favor.function TrdmSnackTech.SendSugestoes(const P_Resp, P_Mail, P_Sugest, P_CdClie: WideString): OleVariant; var IdMsgSend: TIdMessage; SMTP: TIdSMTP; lstMessage: TStringList; stNewHtml, Inst: String; begin SMTP := TIdSMTP.Create(Nil); IdMsgSend := TIdMessage.Create(Nil); lstMessage := TStringList.Create; try SetComplete; with adqParamGeral do begin Close; Open; end; with adqFilial, Parameters do begin Close; ParamByName('P_CDFILIAL').AsString := adqParamGeralCDFILIAL.AsString; Open; end; with adqFantClie, Parameters do begin close; ParamByName('P_CDCLIENTE').AsString := P_CDCLIE; open; end; Inst := adqFantClieNMFANTCLIE.AsString; IdMsgSend.Clear; lstMessage.Clear; lstMessage.Add(Format(msgPadrao.Msg('txtTetSug'),[Inst, P_Resp, P_Mail, P_Sugest])); with TIdText.Create(IdMsgSend.MessageParts, lstMessage) do begin ContentType := 'text/plain'; end; stNewHtml := msgPadrao.Msg('txtHtmlSug'); stNewHtml := StringReplace(stNewHtml,':P_Inst',Inst,[rfReplaceAll]); stNewHtml := StringReplace(stNewHtml,':P_Resp',P_Resp,[rfReplaceAll]); stNewHtml := StringReplace(stNewHtml,':P_Mail',P_Mail,[rfReplaceAll]); stNewHtml := StringReplace(stNewHtml,':P_Sugest',P_Sugest,[rfReplaceAll]); lstMessage.Clear; lstMessage.Text := stNewHtml; with TIdText.Create(IdMsgSend.MessageParts, lstMessage) do begin ContentType := 'text/html'; end; with IdMsgSend do begin Body.Text := ''; From.Text := adqParamGeralDSEMAILAUVND.AsString; Recipients.EMailAddresses := adqParamGeralDSEMAISACVND.AsString; { To: header } Subject := 'Sugestões de clientes'; Priority := TIdMessagePriority(2); { Message Priority - Normal} CCList.EMailAddresses := ''; {CC} BccList.EMailAddresses := ''; {BBC} ReceiptRecipient.Text := ''; end; {authentication settings} SMTP.AuthenticationType := atLogin; SMTP.UserID := adqParamGeralDSEMAILAUVND.AsString; SMTP.Password := Uncripto(adqParamGeralCDSENHAUTVND.AsString, 2); {General setup} SMTP.Host := adqParamGeralDSSMTPAUTVND.AsString; SMTP.Port := 25; {now we send the message} SMTP.Connect; try SMTP.Send(IdMsgSend); finally SMTP.Disconnect; end; finally FreeAndNil(SMTP); FreeAndNil(IdMsgSend); FreeAndNil(lstMessage); end; end; Editado Novembro 14, 2007 por Micheus Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;) Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ipc Postado Maio 15, 2007 Denunciar Share Postado Maio 15, 2007 (editado) Colega,Tente limpar todo seu IdMessage e simplesmente colocar em Body: "Teste".Veja se ele envia.Se não enviar, tente se logar implicitamente informando:SMTP.AuthenticationType := atLogin; SMTP.UserID := "minha_conta@meuprovedor.com.br" SMTP.Password := "senha_da_minha_conta" SMTP.Port := 25; SMTP.Connect; // coloque um break-point aqui e clique F8 Se conexão Ok, SMTP.Send(IdMessage); // outro break-point aqui e clique F8Poste o resultado Editado Novembro 14, 2007 por Micheus Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;) Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
mharcelinho
Tenho um site que envia email atraves de uma função em delphi, so que na hora de enviar o email esta aparecendo esta mensagem: "Socket Error # 10054 Connection reset by peer"
O que poderia causar isso? e como resolver?
Qualquer ajuda será apreciada.
Link para o comentário
Compartilhar em outros sites
3 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.