Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Erro Ao Enviar O Xml Por Email Usando O Indy Clients Delphi 7


lemarq
  • Este tópico foi criado há 3438 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá pessoal,
 

vejam se vocês podem me ajudar, o nosso software oferece uma funcionalidade de envio de xml da nota fiscal por email e um dos 

nossos clientes está com o seguinte problema: 

 

Sempre ele vai enviar um xml a aparece o seguinte erro: "auth failure"

 

Ele possui servidor de email próprio, no caso smtp.giteltelecom.com.br e porta 587

quando utilizamos smtp com conexão segura  aparece o erro que relatei acima: "auth failure'

quando utilizamos conexão segura SSL/TLS aparece o seguinte erro: "error connecting with ssl"

 

eu acredito ser alguma configuração do servidor dele pois este problema só está acontecendo com eles.

 

desde ja acredeço pela ajuda.

 

 

Edited by EMBarbosa
Correção de tags e título
Link to comment
Share on other sites

  • Fundadores

Pode ser que esteja faltando copiar as DLLs do OpenSSL para a pasta da aplicação... Vc pode encontra-las em:

 

https://acbr.svn.sourceforge.net/svnroot/acbr/trunk/DLLs/OpenSSL/

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to comment
Share on other sites

Segue o codigo usado para o envio do xml:

 

procedure TfrNFe1.EnviarXMLdaNFe1Click(Sender: TObject);
var
 Para : String;
 CC: Tstrings;
 SMTPConexaoSegura : boolean;
 i : integer;
 smtpAnexos : TStrings ;
begin

   Para := qrNf.fieldbyname('nm_email').asstring;

   if not(InputQuery('Enviar Email', 'Email de Destino', Para)) then
      exit;

   try

      pg1.MaxValue        := 1;
      pg1.Progress        := 0;

      Screen.Cursor       := crHourGlass;

      IdSMTP1.Host        := qrEmpresa.fieldbyname('nm_smtpemail').asstring;
      IDSMTP1.Username    := qrEmpresa.fieldbyname('nm_usuarioemail').asstring;
      IdSMTP1.Password    := qrEmpresa.fieldbyname('nr_senhaemail').asstring;
      IdSMTP1.Port        := StrToInt(qrEmpresa.fieldbyname('nr_portaemail').asstring);


      // servidor requer autenticacao
      if qrEmpresa.fieldbyname('tp_conexaoseguraemail').asinteger=1 then
         IdSMTP1.AuthenticationType := atLogin
      else
         IdSMTP1.AuthenticationType := atNone;

      if qrEmpresa.fieldbyname('tp_conexaossltsl').asinteger=1 then
        IdSMTP1.IOHandler := IdSSLIOHandlerSocket1
      else
        IdSMTP1.IOHandler := nil;


      IdMessage1.MessageParts.Clear;

      OpenDialog1.Title      := 'Selecione a NFE';
      OpenDialog1.DefaultExt := '*-nfe.XML';
      OpenDialog1.Filter     := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
      OpenDialog1.InitialDir := xml_emitente;

      if OpenDialog1.Execute then
         TIdAttachment.Create(IdMessage1.MessageParts, OpenDialog1.FileName);

      // dados da origem do email
      IdMessage1.From.Address := qrEmpresa.fieldbyname('nm_usuarioemail').asstring;
      IdMessage1.Subject      := 'XML da Nota Fiscal Eletronica';
      IdMessage1.Body.Text    := 'Segue Anexo XML';



      // dados do destino do email
      IdMessage1.Recipients.EMailAddresses  := Para;
      IdMessage1.BccList.EMailAddresses     := '';
      IdMessage1.CCList.EMailAddresses      := '';

      if not IdSMTP1.Connected then
         IdSMTP1.Connect(2000);

      if IdSMTP1.Connected then begin
         for i := 1 to pg1.MaxValue do begin
            IdSMTP1.Send(IdMessage1);
            pg1.AddProgress(1);
            Application.ProcessMessages;
         end;
      end;

      IdSMTP1.Disconnect;
      Screen.Cursor := crDefault;

      ShowMessage('E-mail Enviado com Sucesso!');

      pg1.Progress        := 0;

  Except
      on E:Exception do begin
        Screen.Cursor:= crDefault;
        ShowMessage(E.Message);
      end;
  end;


end;
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.