Fax送信について

S 2006-05-18 09:59:05 No: 95451

FAX送信方法を以前の履歴から下のようなことをしましたが、Call objFaxDoc.Sendの行で「sendメゾットは失敗しました」とでます。どうしてでしょうか？
ちなみにワードやエクセルからプリンターの変わりにMicrosoftFAXを使った方法ではちゃんとFAXできます。
環境：WinXP+VB6

[プロジェクト]-[参照設定]で、faxcom 1.0 Type Library(faxcom.dll)をチェックしました。

Option Explicit
Private Sub Command1_Click()
    Dim objFaxServer As FaxServer
    Dim objFaxDoc As FaxDoc

    Set objFaxServer = CreateObject("FaxServer.FaxServer")
    'objFaxServer.Connect CreateObject("WScript.Network").ComputerName
    objFaxServer.Connect ("\\自分のコンピュータ名")
    Set objFaxDoc = objFaxServer.CreateDocument("FaxDocument")
    With objFaxDoc
        .DisplayName = "c:\Book1.xls"
        .FileName = "c:\Book1.xls"
        .FaxNumber = "09032762633"
    End With
    Call objFaxDoc.Send
    Call objFaxServer.Disconnect
    Set objFaxServer = Nothing

End Sub