Windows 10でアクセス2016でFAXを送信する（FAXサーバーでWindows Server 2003を使用）

Question

私はWondows 7で実行していた従来のAccess 2003アプリケーションを使用しています。現在のWindows 7マシンの1つを置き換える必要がある場合に備えてWindows 10で動作し、Windows 10のみが使用可能です。ファックスの送信機能を除いて、ほとんど完全に変換されています。

私たちのファックスサーバーはWindows Server 2003マシンであり、私はWindows 10マシン上でAccess 2016でアプリケーションを実行していると言いました。

これは私のファックスコードです：私も使って試してみました

Public Sub SendFax(RptName, faxNumber, faxName) 

Dim FS As New FAXCOMEXLib.FaxServer 
Dim FD As New FAXCOMEXLib.FaxDocument 
Dim strComputerName As String 
Dim strFile As String 

strComputerName = "server08" 
strFile = "C:\Reports\test.snp" 
DoCmd.OutputTo acOutputReport, RptName, acFormatSNP, strFile, False 
DoCmd.Close acReport, RptName 

FS.Connect (strComputerName) 
FD.Body = strFile 

FD.CoverPageType = fcptNONE 

FD.DocumentName = "Test" 
FD.priority = fptHIGH 

'FD.Recipients.Add USCanonicalPhone(faxNumber), faxName 
FD.Recipients.Add faxNumber, faxName 

FD.Submit(strComputerName) 

End Sub 

：コードは、その行に吹く

FD.ConnectedSubmit(FS) 

FD.Submitの場所が、いずれかの方法で。私は次のエラーを取得する：

Run-time error '-2147023741 (80070483)': Operation failed. 

私は時代遅れと参照ビスタですこのWebページつまずくことが起こるんでしたが、それは同様のWindows 10のためにも当てはまる場合、私は疑問に思う：Sending a Fax (Windows)

私も試してみましたそのページに表示されているJobID変数を自分のコードに実装しても、同じエラーが発生します。

書き込み権限についてWebページに記載されている回避策がありますが、これを行う方法がわかりません。さらに、自分のコンピュータにC：\ ProgramDataディレクトリがありません。

また、Windows 7マシンをFAXサーバーとしてセットアップして問題を解決できるかどうかも疑問です。もちろん、私たちのサーバーは、そのOSが13歳であることを前提にアップグレードが予定されています.Windows Server 2012にアップグレードすると問題は解決しますか？または、Windows Server 2016がリリースされるのを待つ必要がありますか？

ご協力いただければ幸いです。ありがとう。

Answer 1

私はこれを理解しました。この問題は、間違いなくファイル関連の問題です。ただし、Access 2016、Windows FAXとスキャンとは関係ありません。それはあなたがPDFをどのように見るかに対処しなければならない。 （SNPファイルは真実と見なしますが、Access 2003はPDFへのエクスポートをサポートしていないため、SNPのみを使用しました。古いファイル形式の心配はありません）

Windows 10の新規インストール時のpdfはMicrosoft Edgeであり、Microsoft EdgeはFAXへの印刷をサポートしていません。この問題を解決するには、Adobe Acrobatをインストールし、FAXへの印刷をサポートするため、デフォルトのPDFビューアとして設定する必要があります。これを行うと、コードを使用してファックスサーバーにPDFファイルを送信したり、Acrobatで開いているファックスサーバーにPDFファイルを印刷したりすることは問題ありません。興味がある人のため

は、ここに私の新しいコードがあり、あまり変わっていません。もちろん

Public Sub SendFax(RptName, faxNumber, faxName) 

Dim FS As New FAXCOMEXLib.FaxServer 
Dim FD As New FAXCOMEXLib.FaxDocument 
Dim strComputerName As String 
Dim strFile As String 

strComputerName = "server08" 
strFile = "C:\Reports\test.pdf" 
DoCmd.OutputTo acOutputReport, RptName, acFormatPDF, strFile, False 
DoCmd.Close acReport, RptName 

FS.Connect strComputerName 
FD.Body = strFile 

FD.CoverPageType = fcptNONE 

FD.DocumentName = "Test" 
FD.priority = fptHIGH 

FD.Recipients.Add faxNumber, faxName 

FD.Submit (strComputerName) 


End Sub 

をご参考に「マイクロソフトFAXサービスは、COMタイプライブラリを拡張」を使用してする必要があります。