This code for sending a document by fax worked for just 
one day. The next day it didn't work anymore for some 
reason. 
An error message comes up like:

Run time error - Method connect of object 'ifaxserver' failed

Does anyone has any idea why this code isn't working 
anymore, perhaps some setting(s) in windows 2000?

Thanks in advance

Rini

Private Sub Command1_Click()

    Dim faxserver As Object
    Dim faxdoc As Object

    Set faxserver = CreateObject("faxserver.faxserver")
    
    faxserver.Connect ("RINI")
    
    Set faxdoc = faxserver.CreateDocument
("c:\vbhoofdmenu\test.doc")

    faxdoc.FaxNumber = "0104158312"
    
    faxdoc.recipientname = "P. Smits"
    
    faxdoc.Send
    
    faxserver.Disconnect

    Set faxdoc = Nothing
    Set faxserver = Nothing
       
End Sub