Tempo fa sul nostro forum si è parlato di come inviare fax da pagine ASP.

Alla fine ne è uscita una soluzione, presa in parte da MSDN, in grado di funzionare molto bene, solo su Windows 2000 però.
Gli script che andremo a presentare infatti si appoggiano in toto al servizio Fax di Windows 2000, presente anche nella versione Professional.
Perchè funzionino, dunque, è necessario che il servizio sia funzionante e configurato in maniera ottimale.

Inviare fax da uno script

In definitiva il codice da utilizzare è breve ed immediato.

 <%

Set FaxServer = CreateObject("FaxServer.FaxServer.1")

' mi collego al server locale
FaxServer.Connect("\\localhost")

' creo il documento fax
Set FaxDoc = FaxServer.CreateDocument(Server.MapPath("testo.doc"))

' il numero di fax
FaxDoc.FaxNumber = "01234,56789"

' invio del fax
on error resume next
JobID = FaxDoc.Send()

if err.Number <> 0 then
  Response.write "Impossibile inviare il fax (" & err.description & ")"
else
  Response.write "Fax inviato con successo - JobID = " & JobID
end if 
' disconessione dal server
FaxServer.DisConnect

' rilascio gli oggetti
set FaxDoc = Nothing
set FaxServer = Nothing

%> 

Uno dei vantaggi di una soluzione del genere è che si può inviare semplicemente un file supportato dal server su cui viene instanziata la connessione al fax server, senza bisogno di convertirlo in formati particolari, ed ovviamente generando dinamicamente il contenuto.
Basta indicare come valore di

FaxDoc.Filename

Possibili miglioramenti

Mi rendo conto che lo script in sè é molto semplice, ma per spedire fax da una pagina ASP, è tutto quello che serve.
Tuttavia bisogna notare che con lo stesso set di oggetti messi a disposizione dal servizio Fax Server, è possibile controllare praticamente via web il funzionamento e lo stato dell'intero sistema, come la coda dei fax in entrata o in uscita, utilizzare dei frontespizi nella fase di invio, etc.

Per eventuali approfondimenti, vi suggerisco di fare una ricerca su MSDN .