Erro Ao Enviar Um Evento Por Email

[Ricardo Longo]

Bom dia pessoal,

 

Depois que atualizei e instalei a nova versão não consigo mais enviar qualquer evento via email, sempre me retorno o erro "erro !!! Imprimir pdf acbr"

 

Estou usando o Delphi 7, já desinstalei o acbr e instalei novamente, usei o bloco de comando que veio no exemplo e nada. 

 

Estou usando estes comandos

 

var

  Arquivo: string;

 

  Para : String;

  Mensagem: Tstrings;

 

  CC: Tstrings;

  Anexo: Tstrings;

begin

 

.....

 

                try

 

                  Para := frmUsuarioDados.dbedtDado.Field.AsString;

 

                  Mensagem := TStringList.Create;

                  Mensagem.Add( FormatDateTime( 'dd/mm/yyyy hh:mm:ss', UnitBiblioteca.DataHoraCorrente ) );

                  Mensagem.Add( 'CCe - Longo Indústria e Comércio de Máquinas Texteis Ltda.' );

                  Mensagem.Add( 'Sequencia Carta Corr. : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'N_NotaFiscal_Evento' ).AsString );

                  Mensagem.Add( 'Enviado para o e-mail : ' + Para );

                  Mensagem.Add( '' );

                  Mensagem.Add( 'Ambiente : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'tpAmb' ).AsString );

                  Mensagem.Add( 'Situação : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'cStat' ).AsString + ' - ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'xMotivo' ).AsString );

                  Mensagem.Add( 'Chave    : ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'chNFe' ).AsString );

 

                  dtACBr.acbrnf1.EventoNFe.Evento.Clear;

                  dtACBr.acbrnf1.EventoNFe.LerXML( Arquivo );

 

                  CC := TStringList.Create;

                  CC.Add ( Para );

                  CC.Add ( '[email protected]' );

 

                  Anexo := TStringList.Create;

                  Anexo.Clear;

                  Anexo.Add( Arquivo );

                  Anexo.Add( StringReplace( Arquivo, '.xml', '.pdf', [] ) );

 

 

                  dtACBr.acbrnf1.EnviarEmailEvento( 'smtp.xxx.com'  // O erro ocorre aqui !!!

                                                  , '587'

                                                  , '[email protected]'

                                                  , 'notasxxxx'

                                                  , '[email protected]'

                                                  , Para

                                                  , 'CCe - ' + dtMovimentos.zqryMovimentos_Eventos.FieldByName( 'N_NotaFiscal_Evento' ).AsString

                                                  , Mensagem

                                                  , False                        // SSL - Conexão Segura

                                                  , True                         // Enviar Pdf

                                                  , CC                           // Lista com emails que serão enviado cópias - TStrings

                                                  , nil                          // Lista de anexos - TStrings

                                                  , False                        // Pede confirmação de leitura do email

                                                  , False                        // Aguarda Envio do Email(não usa thread)

                                                  , 'Longo Maquinas'             // Nome do Rementente

                                                  , False                        // Auto TLS

                                                  );

 

....

 

 

Obrigado pela atenção pessoal.

Editado 12 Novembro, 2013 por Ricardo Longo

[Ricardo Longo]

Se eu desabilito a opção Enviar Pdf vai normal.

[ricardo_casc]

Você está incluindo o pdf manualmente na StringList Anexo ? Caso esteja, faça um teste, não inclua e utilize somente a opção pdf = true.