[リストへもどる]
一括表示
投稿時間：2003/10/22(Wed) 11:06
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：VBでFAX送信行いたい
FAX送信（faxcom 1.0 Type Library)を使用してFAX送信を行いたいのですが、どなたかご教授お願いいたします。環境windows2000、ｖｂ6.0（SP3）

投稿時間：2003/10/22(Wed) 11:22
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: VBでFAX送信行いたい
> FAX送信（faxcom 1.0 Type Library)を使用してFAX送信を行いたいのですが、
>どなたかご教授お願いいたします。環境windows2000、ｖｂ6.0（SP3）

どこが解らないのでしょうか？
１〜１０まで解らないというのであれば、教えて下さいではなく、作って下さいになります。
プログラムを作りたいなら自分でも勉強しましょう。
特に少し高度なものに挑戦するなら、自分で解る範囲は自分で調べるようにして下さい。

下記やWEBで検索すれば、色々でてきますよ。その上で解らない部分について質問
するようにして下さい。
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxlegacyvb_4r6t.asp

http://www1.harenet.ne.jp/~unaap/

又、この掲示板の　ワード検索で　FAX  で検索して見て下さい。

投稿時間：2003/10/22(Wed) 13:42
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：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

投稿時間：2003/10/22(Wed) 13:57
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: VBでFAX送信行いたい（花ちゃん様）
>     objFaxServer.Connect("\\FAXSV")

一度下記に変更して試して見て下さい。

    objFaxServer.Connect CreateObject("WScript.Network").ComputerName    
    '又は　objFaxServer.Connect ""  でも可　objFaxServer.Connect("\\コンピューター名")

投稿時間：2003/10/22(Wed) 14:24
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: VBでFAX送信行いたい
世話になりますありがとうごいます
ご教授の様に３種類ためしてみましたが、やはり同じところでエラーが発生してしましました。
再度、ご教授お願いいたします。
コンピュータ名は変更しています。
　
    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

投稿時間：2003/10/22(Wed) 15:20
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: VBでFAX送信行いたい
下記の意味を理解せずに使用すれば当然エラーがでます。
先ほどのMSのアドレスで調べて正しい値に変更して下さい。
人に聞いてばかりでなく自分でも色々調べたり試して見て下さい。
もう一度No.6316のレスを見直して下さい。

某HPのサンプルをそのまま投稿されているのだと思うのですが
No.6320のように変更すれば動くはずですが。

>     Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
>     　　.DisplayName = "ドキュメント名"
>         .FileName = txtFilePath.Text
>         .FaxNumber = txtFaxNumber.Text

# 今回とは関係ないかも知れませんが　サービスパックは最新のもの(SP5)を
  当てておいて下さい。

投稿時間：2003/10/22(Wed) 15:41
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: VBでFAX送信行いたい
下記を試して見て下さい。
参照設定をする事。FAXを送るファイルのフルパスを変更する事。FAX番号を変更する事
FAX番号は-（ハイフン）を入れない事。

Private Sub Command1_Click()
    Dim objFaxServer    As FaxServer
    Dim objFaxDoc       As FaxDoc
    
    Set objFaxServer = CreateObject("FaxServer.FaxServer")
    objFaxServer.Connect CreateObject("WScript.Network").ComputerName
    Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
    With objFaxDoc
        .DisplayName = "ドキュメント名"
        .FileName = "c:\test.txt"       'FAXで送りたいファイルをフルパスで
        .FaxNumber = "0748231234"       'ハイフンを入れずに
    End With
    Call objFaxDoc.Send
    Call objFaxServer.Disconnect
    Set objFaxServer = Nothing
End Sub

投稿時間：2003/10/22(Wed) 16:41
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^7: VBでFAX送信行いたい
大変お世話になっております。
先ほどご教授いただいた、コードを修正し、参照設定、ファイル名等をそれぞれ確認して、実行したところ
ＳＥＮＤの箇所でエラーとなり、私なりに調べたり、いろいろ試して見ましたが壁が越えられませんでした
モデムの設定も関係あるのですか？
忙しいところすみませんが、よろしくお願いします。

投稿時間：2003/10/22(Wed) 16:50
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^8: VBでFAX送信行いたい
objFaxServer.Connect CreateObject("WScript.Network").ComputerName
この個所を変更していませんか？

投稿時間：2003/10/22(Wed) 17:51
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^9: VBでFAX送信行いたい
お世話になっております
objFaxServer.Connect CreateObject("WScript.Network").ComputerName
この個所を変更していまん。コードはそのままコピーして使用しています。

投稿時間：2003/10/22(Wed) 17:52
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^9: VBでFAX送信
> お世話になっております
> objFaxServer.Connect CreateObject("WScript.Network").ComputerName
> この個所を変更していません。コードはそのままコピーして使用しています。

投稿時間：2003/10/22(Wed) 18:05
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：VBでFAX送信(追加)
コードの方が問題なければ、違う環境で試して見るとか、ご自分でも色々調べて下さい。

ひょっとして、ネットワーク環境で使用されているのでしょうか？
だったら、アクセス権等が影響しているかも知れません？
できたら、その辺も違う環境で試して見て下さい。WinXPでも使用可能です。

又、VBからでなく、スタートボタンからFAXの送信を選んで送信した場合は
送信できるのでしょうか？

投稿時間：2003/10/23(Thu) 12:02
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re: VBでFAX送信
お世話になっております。
スタンドアロンで使用しています。
ＷＯＲＤ等で印刷する時に、出力先をプリンターからＦＡＸへ変更し、印刷するとウイザード
が走り指定するとＦＡＸは送信できます。
よろしくお願いいたします。

投稿時間：2003/10/27(Mon) 03:14
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: VBでFAX送信を行いたい
> 実行時エラー　'-2147024894　(800700002）sendメソッドは失敗しました

800700002 という事は無いのでは。-2147024894 ならば、
80070002 になるはずですよね。

ちなみにエラーコード 0x80070002 は、WINERROR.H ファイルによると、
『警告:指定されたファイルが見つからない』のような意味になるようです。

投稿時間：2003/10/27(Mon) 10:12
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: VBでFAX送信を行いたい（照会）
> > 実行時エラー　'-2147024894　(800700002）sendメソッドは失敗しました
>
> 800700002 という事は無いのでは。-2147024894 ならば、
> 80070002 になるはずですよね。
>
> ちなみにエラーコード 0x80070002 は、WINERROR.H ファイルによると、
> 『警告:指定されたファイルが見つからない』のような意味になるようです。

お世話になっております。

実行時エラー　’-2147024883　(8007000d）
　　　　　　　’Send'　メソッドは失敗しました。　'IFaxDoc'　オブジェト
の意味はどのような意味ですか？　ご教授お願いたします。
　　　

投稿時間：2003/10/23(Thu) 14:32
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: VBでFAX送信(再確認）
環境は　windows2000、ｖｂ6.0（SP3）でしたよね！SP5　にしても同じですか？
参照設定で、faxcom 1.0 Type Library(faxcom.dll)　にチェックが入っていますよね
テストのプログラムは、No.6329のものを使っていますよね
（実際にテストしたプログラムをそのままもう一度投稿して下さい。どこも変更しないで）
上記プログラムだけを単独でテストしていますよね（他のプログラム中に組んでいない）
送りたいファイルのフルパスは間違っていませんよね
（念の為　c:\test.txt ファイルをメモ帳で作成して試して見て下さい）
ファイル名が違ってもそのエラーがでます。

イミディエイトウインドウで　?CreateObject("WScript.Network").ComputerName
と入力した場合正しいコンピュータ名が取得できていますか。

No.6329 のプログラムで問題ないはずですので、後は貴方の環境に問題が
あるものと思われますので、もう一度よく見直して見て下さい。

投稿時間：2003/10/24(Fri) 18:28
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: VBでFAX送信(再確認）
> 環境は　windows2000、ｖｂ6.0（SP3）でしたよね！SP5　にしても同じですか？
> 参照設定で、faxcom 1.0 Type Library(faxcom.dll)　にチェックが入っていますよね
> テストのプログラムは、No.6329のものを使っていますよね
> （実際にテストしたプログラムをそのままもう一度投稿して下さい。どこも変更しないで）
> 上記プログラムだけを単独でテストしていますよね（他のプログラム中に組んでいない）
> 送りたいファイルのフルパスは間違っていませんよね
> （念の為　c:\test.txt ファイルをメモ帳で作成して試して見て下さい）
> ファイル名が違ってもそのエラーがでます。
>
> イミディエイトウインドウで　?CreateObject("WScript.Network").ComputerName
> と入力した場合正しいコンピュータ名が取得できていますか。
>
> No.6329 のプログラムで問題ないはずですので、後は貴方の環境に問題が
> あるものと思われますので、もう一度よく見直して見て下さい。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
お世話になっております。
ｖｂ6.0（SP5）をあてました。コンピュータ名は正しい値が取得できています。
ファイル名も正しいぱすで指定しております。　ＳＥＮＤでエラーとなります
お忙しいところすみませんが、よろしくお願いいたします。

プログラムを掲示させていただきます。
Private Sub Command1_Click()
    Dim objFaxServer    As FaxServer
    Dim objFaxDoc       As FaxDoc
    
    Set objFaxServer = CreateObject("FaxServer.FaxServer")
    objFaxServer.Connect CreateObject("WScript.Network").ComputerName
    Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
    With objFaxDoc
        .DisplayName = "ドキュメント名"
        .FileName = "c:\test.txt"       'FAXで送りたいファイルをフルパスで
        .FaxNumber = "0334571234"       'ハイフンを入れずに
    End With
    Call objFaxDoc.Send
    Call objFaxServer.Disconnect
    Set objFaxServer = Nothing
End Sub

投稿時間：2003/10/25(Sat) 10:31
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Windows2000での動作確認のお願い
それでもエラーがでるなら、私には解りません。
貴方の環境のせいか、Windows2000ではこの設定ではエラーが出るのか、他の人に
動作確認して頂くしか方法が見当たりません。

=================================================================================
私の環境　WinXP VB6.0(SP5) では問題なく動くのですが、Windows2000をご使用の方で
どなたか動作確認をして頂けないでしょうか？
上記コードで参照設定で、faxcom 1.0 Type Library(faxcom.dll)　にチェックが入れて頂き
送付文書を用意して頂ければ（FAX 番号はそのままでもOKです）稼動すると思います。
(.FileName = "c:\test.txt" の部分のみの変更で動作可能）

実行後、FAXモニターが立ち上がればいいかと思います。
==================================================================================

投稿時間：2003/10/27(Mon) 01:42
投稿者名：みこぱぱ
Ｅメール：
ＵＲＬ　：
タイトル：Re: Windows2000での動作確認のお願い
> それでもエラーがでるなら、私には解りません。
> 貴方の環境のせいか、Windows2000ではこの設定ではエラーが出るのか、他の人に
> 動作確認して頂くしか方法が見当たりません。
>

初投稿になります。

私の自宅環境（Win2K+VB6SP5）ではエラーは発生せずに、
Fax出力されました。
（ファイル名とファックス番号を自宅のものにしています。）

ちなみに、ファイル名が正しくない場合Sendメソッドでエラーとなりましたので、
「ファイル名が正しいはず」ではなく、「ファイル名が正しい」ものを指定しているか
再度確認してみてはどうでしょうか

投稿時間：2003/10/27(Mon) 08:23
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: Windows2000での動作確認の件
> 私の自宅環境（Win2K+VB6SP5）ではエラーは発生せずに、
> Fax出力されました。
動作確認して頂きありがとうございました。
やはり、コードの方には問題がないようですね。
後は、椿姫さんの環境の方を調べて頂くしか方法がないようです。
まずもう一度　FAXFileName=Dir$("c:\test.txt")　のようにしてFAXFileNameに何が
入っているかを確認して見て下さい。

投稿時間：2003/10/27(Mon) 08:48
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: Windows2000での動作確認の件
> > 私の自宅環境（Win2K+VB6SP5）ではエラーは発生せずに、
> > Fax出力されました。
> 動作確認して頂きありがとうございました。
> やはり、コードの方には問題がないようですね。
> 後は、椿姫さんの環境の方を調べて頂くしか方法がないようです。
> まずもう一度　FAXFileName=Dir$("c:\test.txt")　のようにしてFAXFileNameに何が
> 入っているかを確認して見て下さい。

お世話になっております。
ありがとうございました。
今後もよろしくお願いいたします。

投稿時間：2003/10/27(Mon) 11:09
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: Windows2000での動作確認の件
> > > 私の自宅環境（Win2K+VB6SP5）ではエラーは発生せずに、
> > > Fax出力されました。
> > 動作確認して頂きありがとうございました。
> > やはり、コードの方には問題がないようですね。
> > 後は、椿姫さんの環境の方を調べて頂くしか方法がないようです。
> > まずもう一度　FAXFileName=Dir$("c:\test.txt")　のようにしてFAXFileNameに何が
> > 入っているかを確認して見て下さい。
>
何度もすみません
お世話になっております。
お忙しいところ申しわけありませんが、下記のエラーが発生しています。

実行時エラー　’-2147024883　(8007000d）
　　　　　　　’Send'　メソッドは失敗しました。　'IFaxDoc'　オブジェト
の意味はどのような意味ですか？　
ご教授お願いたします。

投稿時間：2003/10/27(Mon) 11:33
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：エラーの意味
VB付属のMSDNで-2147024883 で検索するば見つかりますよ。
-2147024883 0x8007000C The data is invalid. （データは無効です。）

空のファイルを指定したり、送付できないようなファイルを指定していませんか？
どのような拡張子のファイルを指定しているのですか？
前にも書きましたが、メモ帳で適当な語句を入力して "c:\test.txt" で保存して試して見ましたか？
但し C:\ の部分は貴方の環境に合せて下さい。

# エラー番号が変わった場合は教えて頂かないと。

投稿時間：2003/10/27(Mon) 13:53
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re: エラーの意味
お世話になっております。
よろしくお願いします。


> VB付属のMSDNで-2147024883 で検索するば見つかりますよ。
> -2147024883 0x8007000C The data is invalid. （データは無効です。）

   Ｑ.なぜ。　The data is invalid. （データは無効です。）となるのですか？（愚問ですみません）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

> 空のファイルを指定したり、送付できないようなファイルを指定していませんか？
> どのような拡張子のファイルを指定しているのですか？

　　Ａ.拡張子は、TXT　です。　実在するファイルで、データは空ではありません。

> 前にも書きましたが、メモ帳で適当な語句を入力して "c:\test.txt" で保存して試して見ましたか？
　　Ａ.　"c:\test.txt"　で実施しています。

投稿時間：2003/10/27(Mon) 15:14
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: エラーの意味
削除しました

投稿時間：2003/10/27(Mon) 16:41
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: エラーの意味
お世話になっております
お忙しいところすみません。
ＥＸＥを実行させて頂きました。
実行結果は下記のメッセージを出力しました。

実行時エラー　’-2147024883　(8007000d）
　　　　　　　’Send'　メソッドは失敗しました。　'IFaxDoc'　オブジェト

投稿時間：2003/10/27(Mon) 16:51
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: エラーの意味
> 実行時エラー　’-2147024883　(8007000d）
> 　　　　　　　’Send'　メソッドは失敗しました。　'IFaxDoc'　オブジェト

FormにFAXの送信テストと表示されていたでしょうか？

投稿時間：2003/10/27(Mon) 17:03
投稿者名：椿姫
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: エラーの意味
> > 実行時エラー　’-2147024883　(8007000d）
> > 　　　　　　　’Send'　メソッドは失敗しました。　'IFaxDoc'　オブジェト
>
> FormにFAXの送信テストと表示されていたでしょうか？

  Ａ.FAXの送信テストと表示されていました。Formの左です