Ir para conteúdo
  • Cadastre-se

dev botao

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


lemarq
  • Este tópico foi criado há 4108 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.

 

 

Editado por EMBarbosa
Correção de tags e título
Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...