VBA Fax с использованием факс-сервера на сервере с компьютера в сети
Я использую Windows Server 2008 R2. Я установил роль факс-сервера на сервере. Я могу отправить документы по факсу с помощью внешнего модема, подключенного к серверу, с компьютеров, подключенных к сети, распечатав документы и выбрав "Факс на MYSERVER". Я могу отправить факс.pdf с помощью следующего кода (который я получил от mdsn.microsoft.com) с сервера, но не с любого другого компьютера, даже если он вошел в систему с учетной записью администратора.
Sub fax_report(location_fax_number, report_name, fax_location, fax_file_path)
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim JobID As Object
On Error GoTo Err_Clear
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
'Connect to the fax server
objFaxServer.Connect ("\\MYSERVER")
'Set the fax body
objFaxDocument.Body = fax_file_path
'Name the document
objFaxDocument.DocumentName = report_name
objFaxDocument.Recipients.add (location_fax_number)
JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
objFaxServer.Disconnect
End Sub
Я получаю ошибку:
- Описание: "Операция не удалась"
- HelpContext: 1000440
- HelpFile: "C: \ Program Files (x86) \ Общие файлы \ Microsoft Shared \ VBA \ VBA7.1 \ 1033 \ VbLR6.chm"
- LastDllError: 0
- Номер: -2147023741
- Источник: "FaxComEx.FaxDocument.1"
Хотя я могу отправить факс.pdf с сервера, когда я пытаюсь с компьютера в сети, это не удается. Я могу отправить файл.txt с компьютера в сети. Похоже, что.pdf автоматически не преобразуется в файл.tiff, как при запуске кода на сервере. Когда я запускаю код с сервера, открывается Adobe Acrobat Reader DC,.pdf открывается и преобразуется, а затем отправляется по факсу без ошибок. Adobe остается открытой, и я вижу, что временный файл создан, его нельзя открыть из меню недавних списков файлов.
1 ответ
Я разобрался с решением. Мне нужно было установить Adobe Acrobat Reader DC в качестве программы по умолчанию для работы с PDF-файлами на удаленных компьютерах.