دریافت و ارسال فکس توسط ms fax

[benyaminrahimi]

من از dll مایکروسافت fxcomex.dll و ایمپرت اون به FAXCOMEXLib_TLB تو نستم هر فایلی با شماره فکس به سرویس فکس ویندوز بفرستم سوال اینه کسی میتونه تو دریافت یا گرفتن استوس از ms fax کمکم کنه ؟ کد ارسالو براتون میزارم شاید بدرد کسی بخوره



uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FAXCOMEXLib_TLB, OleServer;

procedure TForm1.Button1Click(Sender: TObject);
var
vlserver: IFaxServer;
vlDocument : IFaxDocument;
begin
vlserver := CoFaxServer.Create;
vlDocument := CoFaxDocument.Create;
vlserver.Connect('');
vlDocument.Body := 'D:\1.docx';
vlDocument.DocumentName := '12321';
vlDocument.Note :='نوت' ;
vlDocument.Priority:=fptHIGH;
vlDocument.Recipients.Add('88866232','شماره') ;
vlDocument.AttachFaxToReceipt := True;
vlDocument.ScheduleType:=fstNOW;
vlDocument.ReceiptType:=frtNONE;
vlDocument.Submit('');


vlserver.Disconnect;


end;