Faxing

[jamie13]

Hi,
I need to know if its possible, and if so how, to set up access to send faxes. I would like to send invoices to my customers via fax. I have the numbers and reports setup in access. I'm using a fax server to send the faxes.
Please help me if you can

Thanks
Jamie

 

[karassik]

There is plenty of code out there that provides examples of this.

Do a google search for "access XXXX faxing"

or try:

http://www.mvps.org/access/

or Direct from MS:

http://support.microsoft.com/default.aspx?scid=KB;EN-US;q145787&

Option Explicit
Public strInvoiceWhere As String

' ****************************************************************
' This function will walk through the Customers table and fax the
' Invoice report, which is filtered by the CustomerID field using
' MS Fax through the MS Access SendObject.
' This function assumes the Invoice report has the default
' printer set to MS Fax and the MS Fax driver is installed
' correctly.
' ****************************************************************

Function FaxInvoices()

Dim dbsNorthwind As DATABASE
Dim rstCustomers As Recordset

Set dbsNorthwind = CurrentDb()
Set _
rstCustomers = dbsNorthwind.OpenRecordset("Customers",dbOpenDynaset)

If MsgBox("Do you want to fax invoices" & Chr(13) & _
"to all customers using Microsoft Fax?", 4) = 6 Then
With rstCustomers
Do Until .EOF
' Create the Invoice report Filter used by the Report_Open
' event.
strInvoiceWhere = "[CustomerID] = '" & ![CustomerID] & "'"
DoCmd.SendObject acReport,"Invoice",acFormatRTF, _
"[fax: " & ![fax] & "]", , , , , False
.MoveNext
Loop
End With
End If
rstCustomers.Close
End Function



hope this helps,

nishan