Ver Mensaje Individual
  #1  
Antiguo 09-03-2005
Jose Manuel Jose Manuel is offline
Miembro
 
Registrado: may 2003
Posts: 112
Reputación: 22
Jose Manuel Va por buen camino
Pasar contenido fichero a un campo memo

Trabajando con Delphi6 y QuickReport 3, podrías decirme como hago para pasar el contenido de un fichero del correo electrónico guardado en un directorio con la extensión *.msg a un campo memo.

La ruta del fichero a leer, está guardado en un campo llamado docword1.text por ejemplo: docword1.text = d:\copia_correos\prueba_correo.msg

Lo que quiero es ver el contenido del fichero prueba_corre.msg y no el nombre del fichero, que es lo que me sale con está instrucción.

Gracias a todos de antemano, y un saludo

Jose Manuel García


Código:
   
Si utilizo esten ejemplo, leo el nombre del fichero, y yo quiero leer el contenido del fichero :

procedure TQR_Carpeta.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin

  QRExprMemo_email.lines.add(docword1.text);

end;
Responder Con Cita