faxing without user input

[rds747]

Hi,

I posted this message in the vb6 forum group, but haven't had any luck with a reply. I need to allow a user to fax a report directly to the canon fax. The approach I'm trying is adding the "MS Fax Extended Service Com Type Library", FaxCom, and FaxControl 1.0 Type Library References. From code that I found on the msdn website this is what I have so far:

Dim objFaxServer As faxcomexlib.FaxServer
Dim objFaxDocument As faxcomexlib.FaxDocument
Dim jobid As Variant
    Set objFaxServer = New faxcomexlib.FaxServer
    Set objFaxDocument = New faxcomexlib.FaxDocument
    objFaxServer.Connect "\\Svrapps"
    objFaxDocument.Body = "C:\Test.txt"
    objFaxDocument.Recipients.Add "fax #", "Test"
    jobid = objFaxDocument.Submit(objFaxServer)

The error I receive is on the Connect property stating the "Connection to fax server failed". The fax is set up on the Svrapps computer and I have access it from my PC.

Thanks for the help!