Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-12-2003
Avatar de merlin
merlin merlin is offline
Miembro
 
Registrado: Nov 2003
Posts: 64
Poder: 15
merlin Va por buen camino
Question como puedo hacer para enviar un quick report por email??


Hola magos de la programación, bueno mi pregunta es la siguiente:

Se puede enviar por e-mail (me da igual de la forma q sea), una pagina de un quick report?
__________________
.:|Merlin|:.
Responder Con Cita
  #2  
Antiguo 14-12-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: May 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Si se puede, utilizando el componente TNMSMTP, aquí tienes un ejemplo, los datos se toman de unos Edits en donde capturamos todo lo necesario.

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  ExpFilter: TQRHTMLDocumentFilter;
begin
  Form2 := TForm2.Create(nil);
  try
    ExpFilter := TQRHTMLDocumentFilter.Create('report.htm');
    try
      {Save to HTML}
      Form2.Table1.Open;
      Form2.QuickRep1.ExportToFilter(ExpFilter);
      with SMTP do
        begin
          Host := HostEdit.Text;
          UserID := USerEdit.Text;
          PostMessage.ToAddress.Add(ToEmailEdit.Text);
          PostMessage.FromAddress := FromEmailEdit.Text;
          PostMessage.FromName := FromNameEdit.Text;
          PostMessage.Body.Assign(BodyMemo.Lines);
          PostMessage.Subject := SubjectEdit.Text;
          PostMessage.Attachments.Add('report.htm');
          Connect;
          SendMail;
          Disconnect;
        end;
      {Delete the finished HTML file}
      DeleteFile('report.htm');
    finally
      ExpFilter.Free;
    end;
  finally
    Form2.Free;
  end;
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:22:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi