febbraio 2004

You are currently browsing the monthly archive for febbraio 2004.

[delphi]
uses ComObj;
[/delphi]
[delphi]
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;
[/delphi]

Tags: