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で利用しています
宜しくお願いします。
Microsoft Fax Server Versionの情報を下さい。
返信ありがとうございます。
Microsoft Fax Service Extended COM Type Library 1.0.0.0
これでよろしいでしょうか
Windowsserverのversionとfaxserverソフトの対応を確認して、コーディングの前にマウス操作で問題なく動くかどうか確認して、特に問題がないという事が確認できていますか？
WindowsServerはありません、PCにモデムをつけています。
vb.netでならこのコードで問題なく動くのですがAccess VBAではエラーで止まってしまいます
先ほどvb.netで確認しましたが動作に問題はなかったです
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
FAXCOMEXLib
こちらも動作しました、原因は私のうっかりバグがありまして
解決して良かったです。力になれずすみません。