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