アクセスでテーブルで顧客リストを作成しており、そこに顧客名称、FAX番号が入力してあります。
定期的にリストに記載してある顧客に対し、指定のPDFファイルを表示し、FAXにて、入力してある番号にアクセスより送りたいと思っています。
追記1
アクセス上でテーブルで顧客リストを作成し、そのデータの中に”FAX送付”のYES/NOを作成しています。
フォームでこのデータを表示し、印刷するのボタンを作成し、上記のYES/NOでYESのマークが付いたものの電話番号にFAXを送りたいのですが、送れない状況です。
きっと、プリンタの中にアドレス帳があり、そこでFAXを送付する先を選択する必要があるのかと現状は思っていますが、それでは時間短縮ができないため、なんとか、このアクセスファイル上で解決したいと考えています。
追記2
Private Sub FAX送付_Click()
Dim objFaxServer As FaxServer
Dim objFaxDoc As FaxDoc
Set objFaxServer = CreateObject("FaxServer.FaxServer") objFaxServer.Connect CreateObject("WScript.Network").ComputerName Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument") With objFaxDoc .FileName = "c:\test.PDF" .FaxNumber = "0000000000" End With Call objFaxDoc.Send Call objFaxServer.Disconnect Set objFaxServer = Nothing
End Sub
上記のようなところまでは作成したのですが、FaxNumber = でFAX番号を入力するようになっており、アクセスに入力してるFAX番号を参照するようにはできていません。
宜しくお願い致します。
あなたの回答
tips
プレビュー