Inviare Fax con classic ASP

[miciomao]

Era parecchio che ci pensavo ma non mi era mai servito metterlo in pratica. Mi faccio un giro in rete e trovo questo script:

<%

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

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

' cerco il documento fax da spedire
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

%>

Il suo autore scrive:
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.
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 il nome del file che si intende inviare ed il motore server si occuperà di formattare il fax e procedere all'invio in maniera rapida e veloce.
Quanto detto vale per file PDF, DOC, XLS ed in generale per qualsiasi tipo di file per cui sia presente un reader sul fax server.
Per inviare un listino, dunque, basterà convertirlo in DOC o PDF e procedere all'esecuzione dello script.

Fanstastico. Purtroppo lo script funzionerà, come suggerisce, solamente con il servizio attivo e configurato in maniera ottimale. Vadiamo come fare, questa parte non è stata descritta forse xchè troppo laboriosa, infatti non basta avere solo il servizio fax operativo.
Dopo aver creato la nostra paginetta ASP con lo script sopra citato andiamo a creare l'applicazione sul ns server 2000.

Ho aperto la consolle Servizi Componenti (start->esegui->C:\WINNT\system32\Com\comexp.msc) ho espanso le radici fino ad Applicazioni COM+ click dx ->nuovo->Applicazione. Parte un wizard, vado avanti creo un app vuota chiamata ASPFAX (per esempio), vado avanti fino alla fine senza modificare nulla. Ora vado in questa appena creata espando le radici e in Componenti click dx->Nuovo, riparte un wizard vado avanti e click su Importa componenti già registrati avanti e tra i componenti COM seleziona FaxServer.Faxserver.1 Fatto.... riavvia la macchina o prova ad avviare l'app manualmente, click dx su ASPFAX->avvia. Ora potete inviare FAX con la vostra pagina ASP da web.
Se riuscirete a crearne applicazioni interessanti vi sarei grato di farmelo sapere.
Buona fortuna