VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -