投稿日 | : 2003/10/22(Wed) 14:24 |
投稿者 | : 椿姫 |
Eメール | : |
URL | : |
タイトル | : Re^5: VBでFAX送信行いたい |
世話になりますありがとうごいます
ご教授の様に3種類ためしてみましたが、やはり同じところでエラーが発生してしましました。
再度、ご教授お願いいたします。
コンピュータ名は変更しています。
Dim objFaxServer As FaxServer
Dim objFaxDoc As FaxDoc
Set objFaxServer = CreateObject("FaxServer.FaxServer")
objFaxServer.Connect("\\WS001")
Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
With objFaxDoc
.DisplayName = "ドキュメント名"
.FileName = txtFilePath.Text
.FaxNumber = txtFaxNumber.Text
End With
objFaxDoc.Send ====> ここでエラーになります
objFaxServer.Disconnect
Set objFaxServer = Nothing