I'm trying to fax several reports to different clients who have different fax numbers in an Access database but apparently Win Fax Pro will only allow for one report to be sent to one fax number at a time.I'm hoping that this process can be automated so that one click broadcasts all the reports. [sig][/sig]
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Any Win Fax Pro gurus out there
- Thread starter jlitondo
- Start date
- Thread starter
- #2
- Thread starter
- #4
The url below leads to Symantec's (developers of Winfax) services and support page with sample source code listed by filename.
Select file name - WFxRpt_d.zip and click on it to unzip the sample database.This also comes with some very good documentation (in MS Word) on using code or macros to fax from Access into winfax or directly out to the fax recipient.
Most of the code (its ugly) that does the faxing is already in the sample db but you'll probably have to do some adjusting to suite your application.Larry (the guy that compiled the info) can be reached by email which he has listed on there.I used the macro way and I'd be glad to help with this.
[sig][/sig]
Select file name - WFxRpt_d.zip and click on it to unzip the sample database.This also comes with some very good documentation (in MS Word) on using code or macros to fax from Access into winfax or directly out to the fax recipient.
Most of the code (its ugly) that does the faxing is already in the sample db but you'll probably have to do some adjusting to suite your application.Larry (the guy that compiled the info) can be reached by email which he has listed on there.I used the macro way and I'd be glad to help with this.
[sig][/sig]
- Thread starter
- #6
WhiteZiggy
Programmer
You can use MSFAX is you wish. You just need to set up in outlook (thats my email client) add a new email called Fax Mail Transport. It is in the list you chose from. Then in the modules section place this code...
'********************************************************************************************
' This function will walk through the Customers table and fax the Invoices report which
' is filtered by the CustomerId field using MSFax through Access SendObject.
'
' This function assumes the report rptMSFaxInvoices has the default printer set to MSFax
' and the MSFax driver is installed correctly.
' *******************************************************************************************
'
Function MSFaxInvoices()
'********************************************************************************************
' Diming all variables
'********************************************************************************************
Dim dbsNorthwind As Database
Dim rstCustomers As Recordset
'********************************************************************************************
' Setting database and recordset variables
'********************************************************************************************
Set dbsNorthwind = CurrentDb()
Set rstCustomers = dbsNorthwind.OpenRecordset("Customers", dbOpenDynaset) ' Set Recordset to Customers table
'********************************************************************************************
' Walking through the Customers recordset until end of file, setting the global variable
' strInvoicesWhere to the current where and using SendObject passing
' customers fax number and report name.
'********************************************************************************************
If MsgBox("Do you want to fax invoices" & Chr(13) & "to all customers using MSFax?", 4) = 6 Then
With rstCustomers
Do Until .EOF
strInvoiceWhere = "[customerid] = '" & ![CustomerID] & "'" ' sets global strInvoiceWhere
DoCmd.SendObject acReport, "rptMSFaxInvoice", acFormatRTF, "[fax:" & ![Fax] & "]", , , , , False ' Runs Report to MSFax
.MoveNext ' Move to next record in Recordset
Loop
End With
End If
End Function
See where the sendobject uses "Fax:" and then adds the number from the table. This works great. Outlook sees the "Fax" then uses the Fax client and your phone line to fax the items.
Hope This Helps,
Jeremy
WZ
'********************************************************************************************
' This function will walk through the Customers table and fax the Invoices report which
' is filtered by the CustomerId field using MSFax through Access SendObject.
'
' This function assumes the report rptMSFaxInvoices has the default printer set to MSFax
' and the MSFax driver is installed correctly.
' *******************************************************************************************
'
Function MSFaxInvoices()
'********************************************************************************************
' Diming all variables
'********************************************************************************************
Dim dbsNorthwind As Database
Dim rstCustomers As Recordset
'********************************************************************************************
' Setting database and recordset variables
'********************************************************************************************
Set dbsNorthwind = CurrentDb()
Set rstCustomers = dbsNorthwind.OpenRecordset("Customers", dbOpenDynaset) ' Set Recordset to Customers table
'********************************************************************************************
' Walking through the Customers recordset until end of file, setting the global variable
' strInvoicesWhere to the current where and using SendObject passing
' customers fax number and report name.
'********************************************************************************************
If MsgBox("Do you want to fax invoices" & Chr(13) & "to all customers using MSFax?", 4) = 6 Then
With rstCustomers
Do Until .EOF
strInvoiceWhere = "[customerid] = '" & ![CustomerID] & "'" ' sets global strInvoiceWhere
DoCmd.SendObject acReport, "rptMSFaxInvoice", acFormatRTF, "[fax:" & ![Fax] & "]", , , , , False ' Runs Report to MSFax
.MoveNext ' Move to next record in Recordset
Loop
End With
End If
End Function
See where the sendobject uses "Fax:" and then adds the number from the table. This works great. Outlook sees the "Fax" then uses the Fax client and your phone line to fax the items.
Hope This Helps,
Jeremy
WZ
- Status
Similar threads
- Locked
- Question
- Locked
- Question