Faxen aus VB-Anwendung heraus

[canonme]

Hallo,

ich habe eine bestehende VB Anwendung die html Seiten erzeugt die zur Zeit
ausgedruckt werden und dann per Fax verschickt werden. Diese Lösung ist natürlich
sehr unschön. Nun würde ich gerne die ganze Sache automatisieren und die Faxe
bzw. die html Dateien direkt aus VB heraus versenden.

In dem Unternehmen wurde SharedFax zur Verfügung gestellt (ist wohl von MS). Aber
das Ding scheint ein FaxServer zu sein und ich hab keine Ahnung wie man das über
VB ansprechen kann. Was kann man sonst tun? Hilft da nur ein Faxmodem und eine
Faxsoftware die man dann über VB ansteuert?

Hilfe!!!

 

[Toaster]

normalerweise sind solche SW lösungen als Drucker einzubinden

 

[canonme]

Ich habs mittlerweile mal so versucht:

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!")

Aber da gibt er mir ne Fehlermeldung aus und springt zur folgenden Zeile:

Set obFaxServer = CreateObject("FaxServer.FaxServer")

Laufzeitfehler 429
Objekterstellung durch Active-x-Komponente nicht möglich.

Was mach ich da falsch?

 

[Arnd]

Das ActiveX Control wird wohl anders heissen? Oder ist nicht installiert.

MfG

Arnd

 

[canonme]

Wo kann ich das prüfen ob es installiert ist? Oder macht das was wenn
das Programm auf einem Server liegt?

 

[Arnd]

Kann ich Dir jetzt auch nicht sagen, aber auf dem Server liegt es sicher nicht.
Active X Controls liegen meistens im Windows Systemordner.
Im VC++ 6.0 gibt es einen Menüpunkt in dem installierte Controls angezeigt werden, aber in VB?

MfG

Arnd