febbraio 2004

You are currently browsing the monthly archive for febbraio 2004.

Inviare fax tramite Microsoft FaxServer con delphi

3 febbraio 2004 in Codice by Massimiliano | No comments

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  mFax,mFaxDoc: Variant;
begin
  mFax := CreateOleObject('FaxServer.FaxServer');
  mFax.Connect('mypc'); // PC che mette a disposizione il servizio FAX,                                 
  mFaxDoc := mFax.CreateDocument('c:pp.doc');
  mFaxDoc.FaxNumber     :='02555555330';
  mFaxDoc.RecipientName := 'Mio Cliente';
  mFaxDoc.Send;
  mFax.Disconnect;
end;

Tags: