Решил автоматически рассылать факсы посредством программы VentaFax, которая дает возможность вызовом с помощью ключей вставлять нужный факс в свое расписание на отправку.
Средствами в Акссессе формирую табличку с требуемой инфой (факсовый номер, текст имени клиента, путь к файлу собственно факса), открываю форму и по кнопке запускаю рассылку.
Вот код.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Private Sub sendFaxes_DblClick(Cancel As Integer)
Dim rst As DAO.Recordset, i As Integer
Dim fname As String 'Путь к файлу с текстом факса
Dim VentaFax As String, FaxNumber As String, CommandString As String
Dim NickName As String
On Error GoTo err
VentaFax = "C:\Program Files\Venta\VentaFax & Voice 5\ventafax.exe"
If MsgBox("Отправляем факсы по списку внизу. Вы уверены?", vbOKCancel) = vbOK Then
Set rst = Me.VChild.Form.Recordset
rst.MoveFirst
If rst.RecordCount > 0 Then
Do Until rst.EOF
If rst!Archive = 0 Then 'Посылаем только неархивную строчку
FaxNumber = rst!FaxNumber
fname = rst!FilePath
NickName = rst!NickName
Debug.Print FaхNumber, NickName, fname
CommandString = "/t:" & FaxNumber & " /c:'" & NickName & "' /f:'" & fname & "' /s" & " /a2-"
i = ShellExecute(Application.hWndAccessApp, "open", VentaFax, CommandString, 0 , SW_HIDE)
'MsgBox "Факс попал в расписание?", vbOKOnly
End If
mov:
rst.MoveNext
Loop
End If
End If
ex:
Exit Sub
err:
If err.Number = 3000 Or err.Number = 3420 Then GoTo mov
MsgBox err.Number
GoTo ex
End Sub
Я вообще в вызовах через API не рублю, равно как и в идеологии управления окнами (штоб им пусто было).
Так вот, в работе этого кода возможны 2 исхода.
1. Если я код не торможу (на строчке 'MsgBox "Факс попал в расписание?", vbOKOnly стоит коммент), то он проходит рекордсет без своих ошибок, но, несмотря на правильные параметры в Debug.Print FaхNumber, NickName, fname (т.е. они все разные в соответствии с данными), в прогу VentaFax попадает только последняя строка, повторенная столько раз, сколько строк в рекордсете.
2. Если я код искусственно торможу вопросом, то он (после ответа на вопрос MsgBox "Факс попал в расписание?", vbOKOnly) вылетает с ошибкой 3420 - Object no Longer Set. При этом в форме вижу, что рекордсет действительно развалился, но не весь.
Как быть? Получается, что вполне успешно можно вставить во внешнюю прогу 1 (один) факс. Но нужно-то целый список скинуть? Насколько я понимаю, опять уперся в какую-то асинхронность, в этот раз уже при работе с внешним приложением. Может мой вызов ShellExecute в корне неверен? Или все же ShellExecute нужно притормозить, чтобы она успела все что надо в загруженную прогу скинуть (тогда - как)? Или все дело в проге VentaFax, т.е. она некорректно работает?
Заранее как всегда благодарен!
