Eu chamo esse metodo do ACBr: quando chega nesse : "ImprimirEventoPDF".. dar a mensagem.. esse metodo faz a passagem do "Danfe", o detalhe é como mando um "Danfe" pelo ESCPos..?
procedure TACBrNFe.EnviarEmailEvento(sPara, sAssunto: String;
sMensagem: TStrings; sCC: TStrings; Anexos: TStrings;
sReplyTo: TStrings);
var
NomeArq: String;
AnexosEmail: TStrings;
begin
AnexosEmail := TStringList.Create;
try
AnexosEmail.Clear;
if Anexos <> nil then
AnexosEmail.Text := Anexos.Text;
ImprimirEventoPDF;
NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id);
NomeArq := PathWithDelim(DANFE.PathPDF) + NomeArq + '-procEventoNFe.pdf';
AnexosEmail.Add(NomeArq);
EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, nil, '', sReplyTo);
finally
AnexosEmail.Free;
end;
end;
