Ver Mensaje Individual
  #1  
Antiguo 30-09-2008
mgomez2 mgomez2 is offline
Registrado
 
Registrado: abr 2007
Posts: 9
Reputación: 0
mgomez2 Va por buen camino
Enviar Fax a traves de IFaxServer

Hola, estoy intentando enviar faxes a traves de la interface COM de windows, con un codigo como este:

Código Delphi [-]
uses FAXCOMEXLib_TLB; 
procedure TForm1.BitBtn1Click(Sender: TObject); 
var   
   vlserver: IFaxServer;   
   vlDocument : IFaxDocument;
begin
     vlserver := CoFaxServer.Create;
     vlDocument := CoFaxDocument.Create;
     vlserver.Connect('');
     vlDocument.Body := 'D:\prueba.pdf';
     vlDocument.DocumentName := 'Prueba';
     vlDocument.Priority:=fptHIGH;
     vlDocument.Recipients.Add('937111111','Nombre');
     vlDocument.AttachFaxToReceipt := True;
     vlDocument.CoverPageType := fcptNONE;
     vlDocument.ScheduleType:=fstNOW;
     vlDocument.ReceiptType:=frtNONE;
     vlDocument.Submit('');
    vlserver.Disconnect;
end;

El caso es que funciona, lo envia, pero me deja abierto el acrobat con el fichero que ha enviado.
La idea es automatizar una serie de envios, y claro, no es plan de que se queden abiertas 100 instancias del Acrobat...

Alguien puede darme una idea sobre como arreglar esto, y que el acrobat no se quede abierto?

Gracias !!

Última edición por mgomez2 fecha: 14-10-2008 a las 22:52:49.
Responder Con Cita