Problema envio de boleto por email. add atachment: file not exists

[raosistemas]

Bom dia pessoal, estou quebrando a cabeça aqui, aparentemente o arquivo pdf não é gerado.

quando tento enviar o email recebo a seguinte mensagem de Erro:

ADD ATTACHMENT: FILE NOT EXISTS.

 

Já tentei gerar o gerarpdf antes de enviar o email, tentei definir um nome de arquivo, gerar o pdf e depois enviar o email, tentei não preencher propriedade alguma e apenas enviar o email...

Alguém pode me ajudar?

 

[Juliomar Marchetti]

Usando o exemplo conseguiu reproduzir o problema?

[raosistemas]

no exemplo nao tem envio de boleto por email.

 para:=LowerCase(cliemail2.Value);

          if not(InputQuery('Enviar Email', 'Email de destino', Para)) then
            exit else
          begin
              ACBrBoleto1.ListadeBoletos.Clear;
              Passaboletoatual;
              ACBrBoleto1.EnviarEmail(Para,edtEmailAssunto.Text,mmoEmailMsg.Lines,false);
                      ShowMessage('Envio de Email executado.'+chr(13)+'Se ocorrer algum erro contate a RAO Sistemas.');
          end;

tentei...

ACBrBoleto1.EnviarEmail(Para,edtEmailAssunto.Text,mmoEmailMsg.Lines,true);

tentei gerar pdf antes...

[Juliomar Marchetti]

Faz um e anexa  aqui demonstrando seu problema ou 

dá pra usar o código do monitor que é pascal e verificar como está sendo feito lá

[raosistemas]

onde fica o código do monitor?

[Juliomar Marchetti]

1 minuto atrás, raosistemas disse:

onde fica o código do monitor?

no svn na pasta projetos.

[raosistemas]

Localizei apenas para o Lazarus, é isso mesmo?

[raosistemas]

Método de envio no Monitor.
 

      else if cmd.Metodo = 'enviaremail' then
       begin
         Destinatario := Trim(Cmd.Params(0));
         if (Destinatario = '') and (ListadeBoletos.Count > 0) then
           Destinatario := ListadeBoletos[0].Sacado.Email;

         EnviarEmail( Destinatario,
                      FrmACBrMonitor.edtBOLEmailAssunto.Text,
                      FrmACBrMonitor.edtBOLEmailMensagem.Lines,
                      True);
         Cmd.Resposta := 'E-mail enviado com sucesso!'
       end

Aparentemente sem diferença... é necessário alguma biblioteca no diretório do EXE?

[BigWings]

Em 13/04/2018 at 15:34, raosistemas disse:

ACBrBoleto1.EnviarEmail(Para,edtEmailAssunto.Text,mmoEmailMsg.Lines,false);

Tentou passar true no quarto parâmetro?

 

[raosistemas]

Também... coloquei como false pra ver se iria como html apenas.

[Décio Neto]

Resolveu esse Problema ?

 

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário