Envio do XML e DANFSE por email

[José Léo Boita]

Boa Noite !

Como faço para enviar o XML 'Completo' e a DANFSE em 'PDF' por email.

Obrigado !

[Italo Giurizzato Junior]

Boa noite José,

Tem que carregar o XML da NFSe e usar o comando EnviarEmail.

[José Léo Boita]

Bom dia !

Quais as propriedades do componente tenho que utilizar com as informaçoes do servidor de email e conta e senha ?

obrigado !

[Léo]

Bom dia Pessoal !

Consegui enviar o email da DANFSE, exemplo abaixo:

ACBrNFSe.NotasFiscais.Items[0].EnviarEmail(FieldByName('Servidor_Email').AsString,

FieldByName('Porta_Email').AsString,

FieldByName('Usuario_Email').AsString,

FieldByName('Senha_Email').AsString,

FieldByName('Email').AsString,

FieldByName('Internet_Email').AsString,

'NFS-e nr. ' + FieldByName('Numero_Nota').AsString,

Mensagem,

Autentica,

True, // envia PDF

nil, // CC

nil, // Anexos

False, // Pede Confirmacao

False, // Aguarda Envio

'', // Nome Remetente

True);

[Denio Galdino]

Bom Dia,

Estou com erro ao enviar o email com PDF usando a função ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail. Quando passo o parâmetro False para o pdf funciona normal. Atualizei o componente hoje. Vi algumas interações no fórum sobre o assunto, testei todas as mudanças mas não consegui fazer funcionar.

 

No arquivo ACBr.inc está da seguinte forma.

 

// Definições para o Quick Report

// Descomente a linha abaixo caso o Quick Report tenha suporte a PDF

//------------------------------------------------------------------------------

{$DEFINE QReport_PDF}

Segue em anexo o erro apresentado no meu sistema e no programa de exemplo.

[Denio Galdino]

Fui debugando o fonte e parei na linha 1717 da procedure TQRController.Execute em quickrpt.

Usei o comando ACBrNFSe1.NotasFiscais.ImprimirPDF.

 

 

if ((ParentReport.PageNumber <= 1) or GlobalCompositeFlag ) and

         (SelfCheck is TCustomQuickRep) then

      begin

         if (ParentReport.Bands.ColumnHeaderBand <> nil) and

            (ParentReport.Bands.ColumnHeaderBand.Enabled) then

         begin

           ParentReport.PrintBand(ParentReport.Bands.ColumnHeaderBand); // linha onde ocorre o erro.

           ParentReport.NoForceNewPage := true;

         end;

      end;