Socket Error

[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.

[ipc]

Qual a função que você utiliza?

[mharcelinho]

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 ;)

[ipc]

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 F8

Poste o resultado

Editado Novembro 14, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)