ThiagoDornelas Postado 4 Junho Compartilhar Postado 4 Junho 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 Thiago Dornelas Analista de Sistemase-mail: [email protected]Belo Horizonte/MG Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora