Faxen aus VB-Anwendung heraus

msgbox("Initializing fax transmission...")
Dim obFaxServer
Dim obFaxDocument
Dim obFaxPorts
Dim obFaxPort
Dim obFaxRoutingMethod
Dim obFaxRoutingMethods
Dim intJobId
Dim NomeServer

Dim NomeFaxServer
Set obFaxServer = CreateObject("FaxServer.FaxServer")

'PUT THE MACHINE's NAME WITH FAXSERVICE INSTALLED
obFaxServer.Connect ("\\YOUR_MACHINE_NAME") 
Set obFaxPorts = obFaxServer.GetPorts()
Set obFaxPort = obFaxPorts.Item(1)

Set obFaxRoutingMethods = obFaxPort.GetRoutingMethods()
Set obFaxRoutingMethod = obFaxRoutingMethods.Item(2)

'FILE TO SEND
NomeFile = "c:\test.txt"   

Set obFaxDocument = obFaxServer.CreateDocument(NomeServer)
obFaxDocument.FileName = "c:\test.txt" 

'FAX SUBJECT
obFaxDocument.SenderTitle = ""

'FAX NUMBER WITHOUT SEPARATOR
obFaxDocument.FaxNumber = "" 

'RECIPIENT NAME
obFaxDocument.SenderName = "" 

 obFaxRoutingMethod.Enable = 1
 obFaxDocument.DisplayName = NomeFile
 obFaxDocument.SendCoverpage = 0
 intJobId = obFaxDocument.Send()
Set obFaxServer = Nothing
msgbox("Fax succesfully sended!")

Set obFaxServer = CreateObject("FaxServer.FaxServer")