アクセスで顧客リストにFAXを送りたい

アクセスでテーブルで顧客リストを作成しており、そこに顧客名称、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