传真(Fax)编程

开发平台：

PowerBuilder

fax.txt：源码内容

							// FAX from this PowerBuilder code using WINFAX SDK
OLEObject   objWinfaxSend
Integer       li_rtn
s_fax          lsc_fax
string          ls_client_name
string          ls_subject
string          ls_cover_text
string          ls_attachment
string          ls_receipment_fax
objWinfaxSend = CREATE OLEObject
li_rtn= objWinfaxSend.ConnectToNewObject("WinFax.SDKSend")
open(w_resp_fax)
lsc_fax = Message.PowerObjectParm
If lsc_fax.ss_subject = '#cancel#' then
	return
end if
ls_client_name = lsc_fax.ss_client_name
ls_attachment = lsc_fax.ss_attachment
ls_subject = lsc_fax.ss_subject
ls_cover_text = lsc_fax.ss_cover_text
ls_receipment_fax = lsc_fax.ss_receipment_fax
objWinfaxSend.SetClientID (ls_client_name)
objWinfaxSend.SetSubject(ls_subject)
objWinfaxSend.SetUseCover(1)
objWinfaxSend.SetCoverText(ls_cover_text)
IF objWinfaxSend.AddAttachmentFile(ls_attachment) = 1 THEN
	Messagebox("Error", "File Not Found")
	return
end if
objWinfaxSend.SetNumber(ls_receipment_fax)  
objWinfaxSend.AddRecipient()
IF objWinfaxSend.Send(0) = 1 THEN
	MessageBox('Error', 'Fax Not Sent')
END IF
messagebox("WinFax", "done")

						