羅必達工作室

Windows都有內建了, 不知道有沒有人還在用WinFax傳真耶

Set SDKSend = CreateObject("WinFax.SDKSend")
Set CoverPages = CreateObject("WinFax.CoverPages")

SDKSend.SetTo("<<收件者名稱>>")
SDKSend.SetNumber(<<收件者傳真號碼含區碼>>)
SDKSend.SetType(0)
SDKSend.SetSubject("<<傳真的主旨內容>>")
SDKSend.SetCoverText("<<傳真內容>>")
SDKSend.EnableBillingCodeKeyWords(0)
SDKSend.SetPreviewFax(0)
SDKSend.SetUseCreditCard(0)
SDKSend.SetResolution(0)
SDKSend.SetUsePrefix(0)
SDKSend.SetDeleteAfterSend(0)
SDKSend.ShowCallProgess(0)

SDKSend.AddRecipient

ret = SDKSend.Send(1)

SDKSend.GetEntryID (0)

如果要在ASP使用要用元件去包裝
就是說要
ASP去呼叫元件
元件去呼叫WINFAX