Enviar E-mail Danfe com o FortesReport

[Henrique Souza]

Olá 

Utilizo os métodos ACBrNFe1.EnviarEmail e ACBrNFe1.EnviarEmailEvento

Ambos funcionam perfeitamente

Porém  notei a existência de um botão "Enviar" no ACBrNFeDANFeRL

Ele está desabilitado, como proceder para utiliza-lo?

Obrigado

[Juliomar Marchetti]

2 horas atrás, Henrique Souza disse:

Olá 

Utilizo os métodos ACBrNFe1.EnviarEmail e ACBrNFe1.EnviarEmailEvento

Ambos funcionam perfeitamente

Porém  notei a existência de um botão "Enviar" no ACBrNFeDANFeRL

Ele está desabilitado, como proceder para utiliza-lo?

Obrigado

Tu diz no preview né?

se for isso não está sendo configurado no componente internamente por isso!

[Henrique Souza]

Obrigado pela atenção,

É exatamente no preview

Se entendi sua resposta, não há como habilitar o botão pelo ACBr.

É isso?

[Juliomar Marchetti]

Exato!

[alonsoa]

Em 26/10/2016 at 18:07, Henrique Souza disse:

Obrigado pela atenção,

É exatamente no preview

Se entendi sua resposta, não há como habilitar o botão pelo ACBr.

É isso?

Eu uso este código para enviar pelo botão enviar

Chamo ele pela propriedade send RLPreview1

_email_enviar:=T_email_enviar.create(application);
_email_enviar.CreateShowAndFree(TRLPreviewForm(Sender).Preview.Pages);

 

procedure T_email_enviar.CreateShowAndFree(aPages:TRLGraphicStorage);
var
 pdf, ftr :TRLCustomSaveFilter;
 s,preview,tmpfile,tmpext:string;
 go:boolean;

 qtabela : TZQuery;

 IdSMTP1     : TIdSMTP;
 IdMessage1  : TIdMessage;
 Texto       : TidText;
 HTML        : TidText;
 IdSSL       : TIdSSLIOHandlerSocketOpenSSL;
 Anexo       : TIdAttachmentFile;
begin
  // CRIA O DIRETORIO ANEXO
  if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Anexo') then
        ForceDirectories(ExtractFilePath(Application.ExeName)+'Anexo');

  with T_email_enviar.Create(nil) do
  begin
      Pages           :=aPages;
      EdtAssunto.Text :=Pages.Title;
      // procura no diretório corrente
      GetDir(0,s);
      preview:=IncludeTrailingBackslash(s)+SelfFileName;
      // se não achar procura no diretório do executável
      if not FileExists(preview) then
        preview:=IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)+
        'Anexo')+SelfFileName;
      // valida os filtros
      pdf:=SaveFilterByFileName('.pdf');
      //
      go:=(ShowModal=mrOk);
      if not go then
        Exit;
      // seleciona filtro
        ftr:=pdf;
      if ftr=nil then
        tmpext:='.exe'
      else
        tmpext:=ftr.DefaultExt;
      //
      tmpfile:=ExpandFileName(ChangeFileExt('Anexo\'+EdtAssunto.Text+' '+
      FormatDateTime('yyyy-mm-dd',now)+'.',tmpext));
//      try
        // faz selfprint
        if ftr=nil then
          MakeSelfPrint(preview,tmpfile,Pages)
        else
        begin
          // filtra
          ftr.FileName:=tmpfile;
          FilterPages(Pages,ftr,1,1,'',1);
        end;

end;

[tonygyn]

gostaria de reativar o tópico, pois não consigo usar o evento send do previewsetup.

Poderiam me ajudar com isto?

incluí no meu relatório o previewsetup.

programei o previewsetup.onsend := mostraOi;

procedure tform.mostraOi(Sender:TObject);

begin

showMessage('oi');

end;

Ele não apresenta a mensagem, habilita o botão, mas não apresenta a mensagem.

[Juliomar Marchetti]

1 hora atrás, tonygyn disse:

gostaria de reativar o tópico, pois não consigo usar o evento send do previewsetup.

Poderiam me ajudar com isto?

incluí no meu relatório o previewsetup.

programei o previewsetup.onsend := mostraOi;

procedure tform.mostraOi(Sender:TObject);

begin

showMessage('oi');

end;

Ele não apresenta a mensagem, habilita o botão, mas não apresenta a mensagem.

Ler as regras do fórum e aguardar. vou fechar esse tópico.