Enviar evento email( sem anexo)

[marcelojsilva]

Boa tarde!

Estou enviando evento por email (MDF-e); o email chega mas sem o evento. Quando envio o MDfe dá certo. Estou usando o ACBrMail e a procedure ACBrMDFe.EnviarEmail; (Delphi 7)

[Italo Giurizzato Junior]

Bom dia Marcelo,

Esse método é necessário que você crie uma TString com o path+nome dos arquivos que deseja anexar para serem enviados por e-mail.

Sintaxe do método EnviarEmail:

    procedure EnviarEmail(sPara, sAssunto: String;
      sMensagem: TStrings = nil; sCC: TStrings = nil; Anexos: TStrings = nil;
      StreamMDFe: TStream = nil; NomeArq: String = ''); override;

 

Editado 30 Setembro, 2015 por Italo Jurisato Junior

[marcelojsilva]

Obrigado Italo, deu certo.