Search Tools Links Login

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.

Original Author: urbano da gama

Assumptions

You will need to have symantec Winfax Pro10.0 installed on your machine before executing this code.

Code

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 80 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.