Microsoft Access 掲示板

FAXCOMEXLibを使ったFAX送信

7 コメント
views
4 フォロー

FAXCOMEXLibを使って送信をしたいのですが、送信の部分でエラーとなってしまいます。
ご教授いただけないでしょうか
`Dim Fs As FAXCOMEXLib.FaxServer
 Dim Fd As FAXCOMEXLib.FaxDocument
 Dim Fj As Variant

 STR(0) = "FAX番号"
 STR(1) = "宛名"
 STR(2) = "題名"

 Set Fs = New FAXCOMEXLib.FaxServer
 Set Fd = New FAXCOMEXLib.FaxDocument

 Fs.Connect (CpName)
 Fd.Recipients.Add STR(0), STR(1)  'FAX番号&宛名
 Fd.Subject = STR(2)               '題名
 Fd.Body = FileName                '出力するPDF
 Fd.ConnectedSubmit (Fs)           'FAX実行
 Fd = Nothing
 Fs = Nothing`

Fd.ConnectedSubmit (Fs)
実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません
となります
これをFj=Fd.ConnectedSubmit (Fs)とすると
実行時エラー’-2147024894(80070002)’
Operation failed.
AccessはOffice365で利用しています
宜しくお願いします。

エピ
作成: 2022/10/04 (火) 11:42:00
通報 ...
1
りんご 2022/10/04 (火) 12:49:00 c564b@0e907

Microsoft Fax Server Versionの情報を下さい。

2
エピ 2022/10/04 (火) 13:23:40 9f8a2@0c0df

返信ありがとうございます。
Microsoft Fax Service Extended COM Type Library 1.0.0.0
これでよろしいでしょうか

3
りんご 2022/10/04 (火) 15:12:34 c564b@0e907

Windowsserverのversionとfaxserverソフトの対応を確認して、コーディングの前にマウス操作で問題なく動くかどうか確認して、特に問題がないという事が確認できていますか?

4
エピ 2022/10/04 (火) 16:11:45 9f8a2@0c0df

WindowsServerはありません、PCにモデムをつけています。
vb.netでならこのコードで問題なく動くのですがAccess VBAではエラーで止まってしまいます
先ほどvb.netで確認しましたが動作に問題はなかったです

5
エピ 2022/10/05 (水) 10:11:55 9f8a2@0c0df

FAXCOMLibで送信することができました。
ただFAXCOMEXLibにあるSubjectがどれなのかわかっていませんが・・・
お騒がせしました。
`Dim Fs As FAXCOMLib.FaxServer
 Dim Fd As FAXCOMLib.FaxDoc
 Dim Cpname As String
 Cpname = Environ("COMPUTERNAME")

 Set Fs = New FAXCOMLib.FaxServer

 Fs.Connect (Cpname)
 Set Fd = Fs.CreateDocument("FaxDocument")

 Fd.DisplayName = "abcdefg"
 Fd.RecipientName = "abcd"      '受信者の名前
 Fd.FileName = "**.pdf"
 Fd.FaxNumber = "000-000-0000"

 Fd.Send
 Fs.Disconnect

 Set Fd = Nothing
 Set Fs = Nothing

6
エピ 2022/10/05 (水) 10:59:54 9f8a2@0c0df

FAXCOMEXLib
こちらも動作しました、原因は私のうっかりバグがありまして

7
りんご 2022/10/05 (水) 11:06:09 c564b@0e907

解決して良かったです。力になれずすみません。