J
john
I am using the code below to attempt broadcast faxing. Problem is that it is
only semi-automated because I need to use the acSnapshot which is not
available as a Constant (apparently, at least not in Access 97) so I am
using send keys to select it for me when the dialog opens. I still after
that have to click ok on the Microsoft Exchange Dialog selection each time
thru the loop.
I am wondering if you can group an array of fax numbers thru CC like an
email does to do the
Fax Broadcasting or something simmilar.
If not can you help me improve the automation of this code?
Note: I could not get senkeys to click Enter for me on the Microsoft
Exchange Dialog
Function FaxResume()
Dim db As Database
Dim RS As Recordset
Dim strSQL As String
Set db = CurrentDb
strSQL = "Select * FROM Bookkeeper;"
Set RS = db.OpenRecordset(strSQL)
Do Until RS.EOF
With RS
DoCmd.SendObject acReport, "Report1", , "[fax: " & ![FaxNumber] &
"]", , , , , False
SendKeys "s"
SendKeys "{ENTER}"
End With
RS.MoveNext
Loop
db.Close
Set RS = Nothing
End Function
only semi-automated because I need to use the acSnapshot which is not
available as a Constant (apparently, at least not in Access 97) so I am
using send keys to select it for me when the dialog opens. I still after
that have to click ok on the Microsoft Exchange Dialog selection each time
thru the loop.
I am wondering if you can group an array of fax numbers thru CC like an
email does to do the
Fax Broadcasting or something simmilar.
If not can you help me improve the automation of this code?
Note: I could not get senkeys to click Enter for me on the Microsoft
Exchange Dialog
Function FaxResume()
Dim db As Database
Dim RS As Recordset
Dim strSQL As String
Set db = CurrentDb
strSQL = "Select * FROM Bookkeeper;"
Set RS = db.OpenRecordset(strSQL)
Do Until RS.EOF
With RS
DoCmd.SendObject acReport, "Report1", , "[fax: " & ![FaxNumber] &
"]", , , , , False
SendKeys "s"
SendKeys "{ENTER}"
End With
RS.MoveNext
Loop
db.Close
Set RS = Nothing
End Function