E-Mail No Formato Html

[wandarlei]

Olá pessoal.

 

Conclui um aplicativo para no NFS-e para a cidade de Curitiba, para uso interna da empresa em que trabalho.

 

Foi bem tranquilo a implementação utilizando o ACBrNFSe, mesmo porque já utilizo, o ACBrNFe, ACBrECF, ACBrSintegra, ACBrSPED, entre outros. 

 

Agradeço a comunidade pelos componentes.

 

No ACBrNFSe, me deparei com a necessidade de enviar o e-mail no formato html para que o link de acesso a NFSe no site da prefeitura ficar com o hiperlink somente.

Já existe este recurso em TACBrNFSe.EnviaEmailThread, contudo na chamada deste procedimento não tem o parâmetro então fiz uma mudança para contemplar o mesmo.

Na linha 58 da unit ACBrNFSeNotasFiscais

 

 

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;

                                UsarThread: Boolean = True; FormatoEmHTML: Boolean = False);

Linha 171

 

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; FormatoEmHTML: Boolean = False);

Na linha 197 eu comentei pois estava anexando 2 vezes o xml da NFSe

//       AnexosEmail.Add(NomeArq);

E na linha 239 na chamada

 

TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).EnviaEmail(sSmtpHost,

                sSmtpPort,

                sSmtpUser,

                sSmtpPasswd,

                sFrom,

                sTo,

                sAssunto,

                sMensagem,

                SSL,

                sCC,

                AnexosEmail,

                PedeConfirma,

                AguardarEnvio,

                NomeRemetente,

                TLS,

                StreamNFSe,

//                copy(NFSe.Numero, (length(NFSe.Numero) - 44) + 1, 44) + '-NFSe.xml',

                NomeArqXML + '-nfse.xml',

                UsarThread,

                FormatoEmHTML);

Estou anexando a unit para avaliação.

 

At.

Wandarlei Michelon

ACBrNFSeNotasFiscais.zip

[Italo Giurizzato Junior]

Boa tarde Wandarlei,

 

Muito obrigado pela colaboração.

 

Já esta disponível a sua alteração.

[wandarlei]

Muito obrigado Italo.

[Augusto Fontana]

Boa tarde Italo,

 

Eu sincronizei os fontes aqui, e está dando erro na compilação, o parâmetro no implementation está declarado como Html deve ser FormatoEmHtml.

[Italo Giurizzato Junior]

Boa tarde Augusto,

 

Mil desculpas, tens toda razão, problema resolvido.

 

Já disponibilizei a correção.

[Rigotti]

Bom dia Italo, estava com o mesmo problema de o email não ir em formato HTML mesmo setando corretamente na chamada da função, verifiquei que faltava passar o parâmetro na chamada da função TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).EnviaEmail(...) no arquivo ACBrNFSeNotasFiscais.pas.

 

Em anexo arquivo atualizado.

 

ACBrNFSeNotasFiscais.pas

[Italo Giurizzato Junior]

Bom dia Rigotti,

 

Muito obrigado pela colaboração, logo estarei disponibilizando.