Enviar Fax a traves de IFaxServer

[mgomez2]

Bueno, voy a mejorar un poquito el código:

Código Delphi [-]
uses FAXCOMEXLib_TLB; 
procedure TForm1.BitBtn1Click(Sender: TObject); 
var   
   vlDocument : IFaxDocument;
begin
     vlDocument := CoFaxDocument.Create;
     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('');
end;

He quitado toda referencia a FaxServer, puesto que no hace falta. Si alguien va a usar esto, le recomiendo encarecidamente que se lea detenidamente el manual de microsoft sobre el servicio de fax.

Ejemplo usando FaxServer:

Código Delphi [-]
uses FAXCOMEXLib_TLB; 
procedure TForm1.BitBtn1Click(Sender: TObject); 
var   
   vlServer : IFaxServer;
   vlDocument : IFaxDocument;
begin
     vlServer := CoFaxServer.Create;
     vlServer := Connect('');
     vlDocument := CoFaxDocument.Create;
     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.ConnectedSubmit(vlServer);
     vlServer.Disconnect;
end;

La version extendida FaxComEx, funciona a partir de W2000, y ademas, para Vista han hecho algunas mejoras y ampliaciones. Rectifico lo anteriormente dicho por mi, se puede controlar el fax, la consola, puedes programar tu propia consola, monitorizar cada fax, ver los recibidos .... en fin, control total del fax (como no podia ser de otra forma, al fin y al cabo)

Lo unico que no se puede hacer con XP (necesitas Vista) es enviar un fax con DOS ficheros adjuntos..... y ahí estoy atascado..... pero eso es otra cuestion.