Fax Access Reports
Use this code to fax enable your application. Use this code to fax your access report. It also explains how to use winfax. I hope you find this code useful and spend a moment to rate it.
AI
Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Mã nguồn
Public Function FaxReport() As Boolean
On Error GoTo EH
Dim lReport As Report
Dim lFileName As String
Dim lSendObj As Object' winfax send object
Dim lRet As Long
'delete any existing fax report file
lFileName = CurDir & "\" & "FaxReport.html"
If Dir(lFileName) <> vbNullString Then
Kill lFileName
End If
'save as an html file so that it can be faxed
'as an attachement
DoCmd.OutputTo acOutputReport, _
mReportName, "html", lFileName
'now is the time to fax the html file
Set lSendObj = CreateObject("WinFax.SDKSend")
lRet = lSendObj.SetAreaCode("801")
lRet = lSendObj.SetCountryCode("1")
lRet = lSendObj.SetNumber(9816661)
lRet = lSendObj.AddRecipient()
lRet = lSendObj.AddAttachmentFile(lFileName)
lRet = lSendObj.ShowCallProgress(1)
lRet = lSendObj.Send(0)
lRet = lSendObj.Done()
Exit Function
EH:
Exit Function
end function
Bình luận gốc (3)
Được khôi phục từ Wayback Machine