投稿日 | : 2003/10/22(Wed) 13:42 |
投稿者 | : 椿姫 |
Eメール | : |
URL | : |
タイトル | : Re^3: VBでFAX送信行いたい(花ちゃん様) |
花ちゃんお世話になりますありがとうごいます。
サンプル等で実行しますと 実行時エラー '-2147024894 (800700002)sendメソッドは失敗しました”
となってしまいます。いろいろ施策しましたがわかりませんでした、ご教授お願いいたします。
Dim objFaxServer As FaxServer
Dim objFaxDoc As FaxDoc
Set objFaxServer = CreateObject("FaxServer.FaxServer")
objFaxServer.Connect("\\FAXSV")
Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
With objFaxDoc
.DisplayName = "ドキュメント名"
.FileName = txtFilePath.Text
.FaxNumber = txtFaxNumber.Text
End With
objFaxDoc.Send ====> ここでエラーになります
objFaxServer.Disconnect
Set objFaxServer = Nothing