Ir para conteúdo
Fórum Script Brasil
  • 0

Socket Error


mharcelinho

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

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 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link para o comentário
Compartilhar em outros sites

  • 0

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 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)
Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...