VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

VBでFAX送信を行いたい(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/07/16 10:04
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[通信][][]                                                          *
* キーワード：ファックス,ファクシミリ,ＦＡＸ,,,                                   *
***********************************************************************************

元質問：VBでFAX送信行いたい - 椿姫　2003/10/22-11:06 No.6316

--------------------------------------------------------------------
Re^6: VBでFAX送信行いたい - 花ちゃん   2003/10/22-15:41 No.6329
--------------------------------------------------------------------
必ず、元質問の一連のスレッドをご覧下さい。
http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=6316&page=690#6316

下記を試して見て下さい。
参照設定をする事。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"       'ハイフンを入れずに(Fax番号)
    End With
    Call objFaxDoc.Send
    Call objFaxServer.Disconnect
    Set objFaxServer = Nothing
End Sub