Newsgroup: it.comp.www.asp
Titolo: gestione fax via asp (FaxComEx)

Ciao a tutti,
sono parecchi mesi, a più tornate, che provo a gestire un fax attraverso le 
asp.
Non sono a tuttora riuscito a mandare un fax.
Riesco a connettermi al server a consultare tutte le caratteristiche 
attraverso questo script che ho fatto a fatica utilizzando varie parti della 
documentazione presente sul  Platform SDK
Riesco a consultare le varie cartelle presenti sul server fax, di seguito ho 
allegato lo scritto.
Ma non riesco a mandre un fax, sigh!
Ho cercato su Intenet, su forum, newsgroup qualche aiuto per risolvere il 
mio problema, ma tutti i scritti che ho provato non mi danno la possibilità 
di inviare il fax
Ho provato le soluzioni presenti su 
ASPITALIA.COM
, ma non funzionano sul mio 
server.
Esiste qualcuno che può aiutarmi.
Le caratteristiche del mio sistema sono
WINDOWS XP PROFESSIONAL
Service Pack 2
IIS 5.1
il servizio fax è
MICROSOFT CONSOLE SERVIZIO FAX
VERSIONE 5.1
-----------------------------------------------------
--------------------------------------------------------------------------------------------------------------------------------------------------------------
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
Set objFaxActivity = objFaxServer.Activity
objFaxServer.Connect ""
If Err.Number <> 0 Then
    response.write "Error number: " & Err.Number & ", " & Err.Description
else
 '------------------------------------------------------------
 '------- INFORMAZIONI SUL SERVER ----------------------------
 '------------------------------------------------------------
 lblMsg = "<table width='768' cellpadding='0' cellspacing='0' border='1' 
style='text-align:center'>"
 lblMsg = lblMsg & "<tr> "
 lblMsg = lblMsg & "<td colspan='3'>SERVIZIO FAX</td>"
 lblMsg = lblMsg & "</tr>"
 lblMsg = lblMsg & "<tr>"
 lblMsg = lblMsg & "<td rowspan='5'><img src='server.gif'><br>" & 
UCase(objFaxServer.ServerName) & "</td>"
 lblMsg = lblMsg & "<td>&nbsp;</td><td>&nbsp;</td>"
 lblMsg = lblMsg & "</tr>"
 lblMsg = lblMsg & "<tr>"
 lblMsg = lblMsg & "<td>VERSIONE API :</td>"
 lblMsg = lblMsg & "<td>" & objFaxServer.APIVersion  & "</td>"
 lblMsg = lblMsg & "</tr>"
 lblMsg = lblMsg & "<tr>"
 lblMsg = lblMsg & "<td> DEBUG  :</td><td>" & objFaxServer.Debug &  "</td>"
 lblMsg = lblMsg & "</tr>"
 lblMsg = lblMsg & "<tr>"
 lblMsg = lblMsg & "<td> BUILD  :</td><td>" & objFaxServer.MajorBuild & "." 
& objFaxServer.MinorBuild & "." & objFaxServer.MajorVersion & "." & 
objFaxServer.MinorVersion  & "</td>"
 lblMsg = lblMsg & "</tr>"
 '------------------------------------------------------------
 '------- INFORMAZIONI SUL SERVER ----------------------------
 '------------------------------------------------------------
 '------------------------------------------------------------
 '------- INFORMAZIONI SUI DISPOSITIVI -----------------------
 '------------------------------------------------------------
 Set collFaxDevices = objFaxServer.GetDevices
 lblMsg = lblMsg & "<tr>"
 lblMsg = lblMsg & "<td>DISPOSITIVI FAX INSTALLATI  :</td><td>" & 
collFaxDevices.Count & "</td>"
 lblMsg = lblMsg & "</tr>"
 For I = 1 To collFaxDevices.Count
 Set objFaxDevice = collFaxDevices.Item(I)
  'Refresh the device information
  objFaxDevice.Refresh
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td><img 
src='fax.gif'></td><td>&nbsp;</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>ID DISPOSITIVO N° " & I & 
"</td><td>" & objFaxDevice.ID & "</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>NOME DISPOSITIVO</td><td>" & 
objFaxDevice.DeviceName & "</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>PROVIDER</td><td>" & 
objFaxDevice.ProviderUniqueName & "</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>SPENTO ?</td><td>" & 
objFaxDevice.PoweredOff & "</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>RICEZIONE ?</td><td>" & 
objFaxDevice.ReceivingNow & "</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>SQUILLA ?</td><td>" & 
objFaxDevice.RingingNow & "</td></tr>"
  lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>INVIO ?</td><td>" & 
objFaxDevice.SendingNow & "</td></tr>"
  RoutingMethods = objFaxDevice.UsedRoutingMethods
       'UBound finds the size of the array
       For j = 0 To UBound(RoutingMethods)
            lblMsg = lblMsg & "<tr><td>&nbsp;</td><td>Routing Method 
Number</td><td >" & j & "</td></tr>"
       Next
 Next
 '------------------------------------------------------------
 '------- INFORMAZIONI SUI DISPOSITIVI -----------------------
 '------------------------------------------------------------
 'Display the routing methods for the device
 '------------------------------------------------------------
 '-------------- ATTIVITA' SERVER ----------------------------
 '------------------------------------------------------------
 objFaxActivity.Refresh
  lblMsg = lblMsg & "<tr>"
  lblMsg = lblMsg & "<td>&nbsp;</td><td>MESSAGGI IN ARRIVO</td><td>" & 
objFaxActivity.IncomingMessages & "</td>"
  lblMsg = lblMsg & "</tr>"
  lblMsg = lblMsg & "<tr>"
  lblMsg = lblMsg & "<td>&nbsp;</td><td>MESSAGGI IN USCITA</td><td>" & 
objFaxActivity.OutgoingMessages & "</td>"
  lblMsg = lblMsg & "</tr>"
  lblMsg = lblMsg & "<tr>"
  lblMsg = lblMsg & "<td>&nbsp;</td><td>MESSAGGI IN ROUTING</td><td>" & 
objFaxActivity.RoutingMessages & "</td>"
  lblMsg = lblMsg & "</tr>"
  lblMsg = lblMsg & "<tr>"
  lblMsg = lblMsg & "<td>&nbsp;</td><td>MESSAGGI IN CODA</td><td>" & 
objFaxActivity.QueuedMessages  & "</td>"
  lblMsg = lblMsg & "</tr>"
  lblMsg = lblMsg & "</table>"
  Response.Write lblMsg
 Set objFaxActivity = Nothing
 '------------------------------------------------------------
 '-------------- ATTIVITA' SERVER ----------------------------
 '------------------------------------------------------------
 Set objFaxDocument = CreateObject ("FaxComEx.FaxDocument")
 Set objFaxDocument = Nothing
end if
Set objFaxServer = Nothing
%>
---------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------
2) Riesco a controllare i fax in arrivo
Elenco fax in arrivo
<br><br>
<%
Dim objFaxServer
Dim objFaxIncomingArchive
Dim objFaxIncomingMessage
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect ""
Set objFaxIncomingArchive = objFaxServer.Folders.IncomingArchive
objFaxIncomingArchive.Refresh
Msg = "High quota water mark: " & objFaxIncomingArchive.HighQuotaWaterMark & 
_
  "<br>Low quota water mark:  " & objFaxIncomingArchive.LowQuotaWaterMark & 
_
 "<br>Archive folder: " & objFaxIncomingArchive.ArchiveFolder & _
 "<br>Age limit: " & objFaxIncomingArchive.AgeLimit & _
 "<br>Size high: " & objFaxIncomingArchive.SizeHigh & _
 "<br>Size low: " & objFaxIncomingArchive.SizeLow & _
 "<br>Is size quota warning on: " & objFaxIncomingArchive.SizeQuotaWarning & 
_
 "<br>Is archive used: " & objFaxIncomingArchive.UseArchive
Response.write Msg
Response.write "<br><br>"
Set objFaxServer = Nothing
%> 

 mio server.
[cut]
piuttosto che postare il codice perchè non posti l'errore?
-- 
Christian Paparelli
http://www.ithost.ch
 

 ha scritto nel messaggio 
news:dv9u8d$k1v$1...@news.hispeed.ch...
