Windows Server 2008 R2を実行しています。私はサーバーにファックスサーバーの役割をインストールしました。ドキュメントを印刷し、「MYSERVERでファックス」を選択すると、ネットワークに接続されたコンピュータからサーバーに接続された外部FAXモデムを使用してドキュメントをFAXできます。私は管理者アカウントを使用してコンピュータにログインしても、他のコンピュータからではなく、サーバーから(mdsn.microsoft.comから入手した)次のコードを使用して.pdfをファックスすることができます。VBAネットワーク上のコンピュータからサーバー上のFAXサーバーを使用してFAX
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:\プログラムファイル(x86の)\共通ファイル\マイクロソフト 共有\ VBA \ VBA7.1 \ 1033 \ VbLR6.chm」
- LastDllError:0
- 番号:-2147023741
- 出典:「FaxComEx.FaxDocument.1」
私はそれが失敗したネットワーク上のコンピュータからしようとすると、サーバーからPDFファイルをファックスで送信することができていますが。ネットワーク上のコンピュータから.txtファイルを送信できます。 .pdfがサーバー上でコードを実行すると、自動的に.tiffファイルに変換されないようです。 Adobe Acrobat Reader DCが開いているサーバーからコードを実行すると、.pdfが開き、変換されてエラーなしでファックスされます。 Adobeは開いたままで、一時ファイルが作成されたことがわかります。最近のファイルリストメニューから開くことはできません。