Incluir Html No Envio De Email Da Nfe

[netstart]

Bom dia, fiz uma alteração nas procedure EnviaEmailThread e EnviaEmail já algum tempo para que conseguisse enviar  o  XML e PDF da NFe com a logo do cliente e mais algumas personalizações em HTML, fiz a alteração bem simples no código fonte, mas toda a vez que tenho que fazer um UPDATE no ACBr tenho que mudar novamente, peço que analisem o código em anexo e se julgarem viável, subir a alteração para o SVN.

 

ACBrNFe.pas

[Régys Silveira]

Obrigado pela contribuição, já enviei para o repositório.

Seria bom se possível atualizar o Demo para mostrar as mudanças.

[netstart]

Obrigado Régys, assim que possível coloco no Demo...

[Renato_Incsoft]

Pessoal atualizei o componente ontem 05/09/2013 no entanto percebi que a função EnviarEmail da unit ACBrNFeNotasFiscais não foi alterada. Ela não tem o parâmetro HTML.

 

Quando será que isso vai estar disponível?

procedure NotaFiscal.EnviarEmail(const sSmtpHost,
                                      sSmtpPort,
                                      sSmtpUser,
                                      sSmtpPasswd,
                                      sFrom,
                                      sTo,
                                      sAssunto: String;
                                      sMensagem : TStrings;
                                      SSL : Boolean;
                                      EnviaPDF: Boolean = true;
                                      sCC: TStrings=nil;
                                      Anexos:TStrings=nil;
                                      PedeConfirma: Boolean = False;
                                      AguardarEnvio: Boolean = False;
                                      NomeRemetente: String = '';
                                      TLS : Boolean = True;
                                      UsarThread: Boolean = True);