error na hora de enviar email

[Wilke1 0]

ola pessoal eo seguinte eu visualizo o meu relatorio, e na hora de mandar por email, ele dar essa menssagem ''GetFontData error.'' desde ja agradeço pela ajuda.

[rvlira 0]

Que componente está usando para gerar o relatório e qual código está usando para enviá-lo por e-mail?

 

t+!

[marcio.theis 3]

Veja este tópico, é um exemplo de aplicativo de envio de e-mail, não sei como você faz o envio e nem como salva o seu relatório, se puder dar mais detalhes...

[Wilke1 0]

Veja este tópico, é um exemplo de aplicativo de envio de e-mail, não sei como você faz o envio e nem como salva o seu relatório, se puder dar mais detalhes...

dir := ExtractFilePath( Application.ExeName );

FileExt := QRPreview.QRPrinter.Title;

FileExt := FileExt+'.pdf';

PDFFilt := TQRPDFDocumentFilter.Create( FileExt );

pdffilt.AddFontMap( 'WebDings:ZapfDingBats' );

pdffilt.TextOnTop := true;

pdffilt.LeftMargin := 0;

pdffilt.topMargin := 0;

pdffilt.CompressionOn := false;

pdffilt.Concatenating := true;

QRPreview.QRPrinter.ExportToFilter(PDFFilt);

pdffilt.EndConcat;

pdffilt.Free;

FileExt := dir+FileExt;

 

upd_mensagem := False;

FmEnviaEmail := TFmEnviaEmail.Create(Self);

FmEnviaEmail.Tag := 10;

 

nHost := QryContaUsuario.FieldByName('CD_SMTP').AsString;

nAddress := QryContaUsuario.FieldByName('DS_EMAIL_SMTP').AsString;

nName := QryContaUsuario.FieldByName('NM_CONTA').AsString;

nUsername := QryContaUsuario.FieldByName('DS_USUARIO_SMTP').AsString;

nPassword := Crypto(QryContaUsuario.FieldByName('CD_SENHA_SMTP').AsString);

 

if Email <> '' then

FmEnviaEmail.EditPara.Text := Email;

 

FmEnviaEmail.Caption := 'Nova Mensagem ::: '+QryContaUsuario.FieldByName('nm_conta').AsString+' <'+

QryContaUsuario.FieldByName('ds_email_smtp').AsString+'>';

FmEnviaEmail.Width := FmPrincipal.ClientWidth;

FmEnviaEmail.Height := FmPrincipal.Height - 33;

FmEnviaEmail.ckbSalvarEmail.Visible := True;

if QryContaUsuario.FieldByName('FL_GUARDA_EMAIL').AsString = 'S' then

FmEnviaEmail.ckbSalvarEmail.Checked := True

else FmEnviaEmail.ckbSalvarEmail.Checked := False;

FmEnviaEmail.ckbSalvarEmail.Caption := 'Salvar e-mail na Caixa de Saída';

FmEnviaEmail.cbbPrioridade.ItemIndex := 1;

FmEnviaEmail.btnEnviar.Caption := '&Enviar';

FmEnviaEmail.btnEnviar.Glyph := nil;

FmEnviaEmail.ImageList1.GetBitmap(0,FmEnviaEmail.btnEnviar.Glyph);

FmEnviaEmail.lbxAnexo.Clear;

FmEnviaEmail.lbxAnexo.Items.Add(FileExt);

if QryContaUsuario.FieldByName('DS_ASSINATURA').AsString <> '' then begin

FmEnviaEmail.mmMensagem.Clear;

FmEnviaEmail.mmMensagem.Lines.Add('');

FmEnviaEmail.mmMensagem.Lines.Add('');

FmEnviaEmail.mmMensagem.Lines.Add('----------');

FmEnviaEmail.mmMensagem.Lines.Add(QryContaUsuario.FieldByName('DS_ASSINATURA').AsString);

end;

FmEnviaEmail.ShowModal;

FmEnviaEmail.Free;

marcio esse eo codigo

[Wilke1 0]

Veja este tópico, é um exemplo de aplicativo de envio de e-mail, não sei como você faz o envio e nem como salva o seu relatório, se puder dar mais detalhes...

dir := ExtractFilePath( Application.ExeName );

FileExt := QRPreview.QRPrinter.Title;

FileExt := FileExt+'.pdf';

PDFFilt := TQRPDFDocumentFilter.Create( FileExt );

pdffilt.AddFontMap( 'WebDings:ZapfDingBats' );

pdffilt.TextOnTop := true;

pdffilt.LeftMargin := 0;

pdffilt.topMargin := 0;

pdffilt.CompressionOn := false;

pdffilt.Concatenating := true;

QRPreview.QRPrinter.ExportToFilter(PDFFilt);

pdffilt.EndConcat;

pdffilt.Free;

FileExt := dir+FileExt;

 

upd_mensagem := False;

FmEnviaEmail := TFmEnviaEmail.Create(Self);

FmEnviaEmail.Tag := 10;

 

nHost := QryContaUsuario.FieldByName('CD_SMTP').AsString;

nAddress := QryContaUsuario.FieldByName('DS_EMAIL_SMTP').AsString;

nName := QryContaUsuario.FieldByName('NM_CONTA').AsString;

nUsername := QryContaUsuario.FieldByName('DS_USUARIO_SMTP').AsString;

nPassword := Crypto(QryContaUsuario.FieldByName('CD_SENHA_SMTP').AsString);

 

if Email <> '' then

FmEnviaEmail.EditPara.Text := Email;

 

FmEnviaEmail.Caption := 'Nova Mensagem ::: '+QryContaUsuario.FieldByName('nm_conta').AsString+' <'+

QryContaUsuario.FieldByName('ds_email_smtp').AsString+'>';

FmEnviaEmail.Width := FmPrincipal.ClientWidth;

FmEnviaEmail.Height := FmPrincipal.Height - 33;

FmEnviaEmail.ckbSalvarEmail.Visible := True;

if QryContaUsuario.FieldByName('FL_GUARDA_EMAIL').AsString = 'S' then

FmEnviaEmail.ckbSalvarEmail.Checked := True

else FmEnviaEmail.ckbSalvarEmail.Checked := False;

FmEnviaEmail.ckbSalvarEmail.Caption := 'Salvar e-mail na Caixa de Saída';

FmEnviaEmail.cbbPrioridade.ItemIndex := 1;

FmEnviaEmail.btnEnviar.Caption := '&Enviar';

FmEnviaEmail.btnEnviar.Glyph := nil;

FmEnviaEmail.ImageList1.GetBitmap(0,FmEnviaEmail.btnEnviar.Glyph);

FmEnviaEmail.lbxAnexo.Clear;

FmEnviaEmail.lbxAnexo.Items.Add(FileExt);

if QryContaUsuario.FieldByName('DS_ASSINATURA').AsString <> '' then begin

FmEnviaEmail.mmMensagem.Clear;

FmEnviaEmail.mmMensagem.Lines.Add('');

FmEnviaEmail.mmMensagem.Lines.Add('');

FmEnviaEmail.mmMensagem.Lines.Add('----------');

FmEnviaEmail.mmMensagem.Lines.Add(QryContaUsuario.FieldByName('DS_ASSINATURA').AsString);

end;

FmEnviaEmail.ShowModal;

FmEnviaEmail.Free;

marcio esse eo codigo

 

marcio eu estava verificando esse processo com menas pagina, ele não apresenta o error .

o que será que pode ser?

[marcio.theis 3]

Já chegou a rodar passo a passo para verificar a linha de erro ?

[Wilke1 0]

Já chegou a rodar passo a passo para verificar a linha de erro ?

sim marcio, o error surge nessa linha'' pdffilt.EndConcat;'

[Wilke1 0]

Já chegou a rodar passo a passo para verificar a linha de erro ?

sim marcio, o error surge nessa linha'' pdffilt.EndConcat;'

 

marcio aonde eu posso encontrar alguma documentação, falando sobre ''TQRPDFDocumentFilter'', pra ver se existe alguma limitação de pagina.