Jump to content

dev botao

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

Recommended Posts

Posted (edited)

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
Posted

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;
×
×
  • 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.