EnviarEmailEvento dando erro ao criar PDF

[Ricardo Longo]

Estou tentando enviar um evento por email mas esta dando erro ao executar o comando ImprimirEventoPDF; que está na rotina EnviarEmailEvento.

Carrego o arquivo XML da NFe e do Evento, mas parece que ele tenta criar o PDF e retorna esse erro.

 

 

 

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;

[Ricardo Longo]

Acho que o problema está em não localizar o arquivo XML na pasta padronizada.

Resolvi o problema carregando o xml da nfe e executar acbrnf1.Consultar;

Dessa forma o arquivo é XML é gerado na pasta padronizada e o erro não ocorreu ao executar o envio do evento por e-mail.