Atualização para Envio de Email com HTML/Texto

[ArbSis]

Ola amigos do Fórum, posto aqui as mudanças que fizemos no componente ACBrNFe2 para o envio de emails usando comandos html ou texto ou texto com html.

No arquivo ACBrNFeNotasFiscais.pas foi criado um tipo novo chamado

TACBrNFeTipoMensagem = (tmTexto, tmHtml);

E o método EnviarEmail passa a ter uma nova assinatura

procedure 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;

                                TipoMensagem: TACBrNFeTipoMensagem = tmTexto;

                                mMen: TMimeMess = nil;

                                pMen: TMimePart = nil);

Onde:

* TipoMensagem é o tipo de mensagem que se deseja enviar: tmTexto ou tmHtml, escolhendo tmHtml e passando comandos html em sMensagem o método ira enviar o email usando Html.

* mMen e pMen: podem ser passados por parametros para ter maior controle sobre a mensagem que se dejeja enviar, podendo usar texto e html juntos, conforme consta mini exemplo em anexo.

Já estamos usando dessa forma e está funcionando nos testes que fizemos.

P.S. não podemos colocar no ACBrNFeDemo pois não utilizamos o componente de Danfe instalado no Delphi, dessa forma o Demo ficaria prejudicado.

ACBrNFeNotasFiscais.pas

MudançaNFE(1).txt

[Andrews R Bejatto]

ola pessoal, alguem conseguiu ver esta alteração e colocar no acbr

[silvio]

Essa implementacao foi feita mesmo? ou foi retirada?

[Mark Apollo]

Acredito que não subiu para o svn, pois, acabei de realizar uma alteração (que também não subiu) em que percebi que não havia nenhum destes códigos.

[silvio]

Mas sera atualizado entao? ou nao subira esta modificacao? abraco