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

[lemarq]

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 28 Dezembro, 2012 por EMBarbosa
Correção de tags e título

[lemarq]

O titulo ficou errado. o correto é: usando o indy clients delphi

[Régys Silveira]

Você tentou enviar o email usando as rotinas do componente?

[Daniel Simoes]

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/

[lemarq]

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;

[Régys Silveira]

Você está utilizando o componente Indy diretamente, tente utilizar o método EnviaEmail() que disponibilizamos no ACBrNFe.