NFe enviar email Cópia Oculta (BCC)

[ThiagoDornelas]

boa tarde Pessoal,

apareceu um caso aqui de um cliente onde foi solicitado a possibilidade de envio da NFe por email com cópia oculta.

Hoje, para envio das notas, usamos o seguinte comando: TACBrNFe1.NotasFiscais.Items[0].EnviarEmail(...).

Fuçando no fontes, vi que ja foi implementado a opção de envio BCC mas no procedimento EnviarEmail, não possui esta opção como parâmetro.

Alterei meu fonte incluindo um novo parâmetro e nos meus testes, funcionou redondo.

Estou anexando o arquivo alterado para que avaliem a possibilidade de subir esta alteração, se assim, acharem necessário.

A única alteração que fiz foi esta (em negrito), o resto já estava pronto:

    procedure EnviarEmail(const sPara, sAssunto: String; sMensagem: TStrings = nil;
      EnviaPDF: Boolean = True; sCC: TStrings = nil; Anexos: TStrings = nil;
      sReplyTo: TStrings = nil; sBcc: TStrings = nil);

 

ACBrNFeNotasFiscais.pas