[VB6] Inviare Fax

[diegocoz]

Salve a tutti,
mi chiedevo se fosse possibile inviare Fax da VisualBasic. Su un PC con Windows XP, dove una console fax è già installata, posso passare attraverso Word. Più difficile con Win2000 dove non ho un gestore di fax. Ma se volessi operare direttamente con il software dei fax di XP (così magari da passargli da vb tutta una serie di parametri per evitare di farmeli chiedere dal wizard) ? Ho provato con la libreria FAXCOMEXLIB.DLL di Windows XP, ma quando tento la connect ad un serverfax mi dà giustamente errore, in quanto si aspetta il nome di tale server che io non so cosa specificare.
Qualcuno ha avuto esperienza in merito (anche con altri software) ?

Grazie
Ciao a tutti

[diegocoz]

Ci riprovo, con una nuova versione del codice.

Ho ripreso da MSDN un esempio (tra l'altro citato proprio in questo forum) per l'invio di fax. Lavoro su WinXP, dove è installata e configurata la Console Fax del sistema operativo. Purtroppo mi dà errore il metodo Send, senza specificare con precisione che genere di errore (dicendo semplicemente 'metodo non riuscito'). Posto il codice, anche se dubito che si possa evincere qualcosa da esso:

la funzione è questa...

Public Function SendFax(FileName As Variant, FaxMachine As Variant, FaxNumber As Variant)
Dim FaxServer As Object, FaxDoc As Object

Set FaxServer = CreateObject("FaxServer.FaxServer")

FaxServer.Connect ("\\" & FaxMachine)
Set FaxDoc = FaxServer.CreateDocument(FileName)
With FaxDoc
.FaxNumber = FaxNumber
.Send
End With


Set FaxDoc = Nothing
Set FaxServer = Nothing
End Function

...che viene richiamata così...

SendFax Me.txtNomeDoc.Text, "cozziwmwarewxp", "+39 02 33496103"

Grazie a tutti
Saluti