質問編集履歴
2
質問内容の追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -4,8 +4,52 @@
|
|
4
4
|
|
5
5
|
|
6
6
|
|
7
|
+
追記1
|
8
|
+
|
7
9
|
アクセス上でテーブルで顧客リストを作成し、そのデータの中に”FAX送付”のYES/NOを作成しています。
|
8
10
|
|
9
11
|
フォームでこのデータを表示し、印刷するのボタンを作成し、上記のYES/NOでYESのマークが付いたものの電話番号にFAXを送りたいのですが、送れない状況です。
|
10
12
|
|
11
13
|
きっと、プリンタの中にアドレス帳があり、そこでFAXを送付する先を選択する必要があるのかと現状は思っていますが、それでは時間短縮ができないため、なんとか、このアクセスファイル上で解決したいと考えています。
|
14
|
+
|
15
|
+
|
16
|
+
|
17
|
+
追記2
|
18
|
+
|
19
|
+
|
20
|
+
|
21
|
+
Private Sub FAX送付_Click()
|
22
|
+
|
23
|
+
Dim objFaxServer As FaxServer
|
24
|
+
|
25
|
+
Dim objFaxDoc As FaxDoc
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
Set objFaxServer = CreateObject("FaxServer.FaxServer")
|
30
|
+
|
31
|
+
objFaxServer.Connect CreateObject("WScript.Network").ComputerName
|
32
|
+
|
33
|
+
Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
|
34
|
+
|
35
|
+
With objFaxDoc
|
36
|
+
|
37
|
+
.FileName = "c:\test.PDF"
|
38
|
+
|
39
|
+
.FaxNumber = "0000000000"
|
40
|
+
|
41
|
+
End With
|
42
|
+
|
43
|
+
Call objFaxDoc.Send
|
44
|
+
|
45
|
+
Call objFaxServer.Disconnect
|
46
|
+
|
47
|
+
Set objFaxServer = Nothing
|
48
|
+
|
49
|
+
End Sub
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
上記のようなところまでは作成したのですが、FaxNumber = でFAX番号を入力するようになっており、アクセスに入力してるFAX番号を参照するようにはできていません。
|
54
|
+
|
55
|
+
宜しくお願い致します。
|
1
質問に具体性を追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,6 +2,10 @@
|
|
2
2
|
|
3
3
|
定期的にリストに記載してある顧客に対し、指定のPDFファイルを表示し、FAXにて、入力してある番号にアクセスより送りたいと思っています。
|
4
4
|
|
5
|
-
FAXは複合機でCANONのCanon TR8530 series FAXという製品です。
|
6
5
|
|
6
|
+
|
7
|
-
|
7
|
+
アクセス上でテーブルで顧客リストを作成し、そのデータの中に”FAX送付”のYES/NOを作成しています。
|
8
|
+
|
9
|
+
フォームでこのデータを表示し、印刷するのボタンを作成し、上記のYES/NOでYESのマークが付いたものの電話番号にFAXを送りたいのですが、送れない状況です。
|
10
|
+
|
11
|
+
きっと、プリンタの中にアドレス帳があり、そこでFAXを送付する先を選択する必要があるのかと現状は思っていますが、それでは時間短縮ができないため、なんとか、このアクセスファイル上で解決したいと考えています。
|