Salve,
devo fare una pagina in asp che invii fax da una macchina xp.
ho trovato esempi che funzionano (dicono..) su windows 2000.

l'unico che ho trovato per windows xp è questo:

Sub CheckError(strDetails)

Dim strErr

If Err.Number <> 0 then

strErr = strDetails & " : Exception " & Err.Description & " err.Number=0x" & Hex(Err.Number)

WScript.Echo strErr

WScript.Quit(Err.Number)

End If

End Sub

ON ERROR RESUME NEXT



'For Windows XP



Set FaxServer = WScript.CreateObject("FAXCOMEX.FaxServer")

CheckError("WScript.CreateObject(FAXCOMEX.FaxServe r)")

WScript.Echo "FaxServer created"


' Connect to the fax server. Specify computer name if the server is remote. See How to connect to a remote Fax Service for details.

FaxServer.Connect ""

CheckError("FaxServer.Connect")


Set FaxDoc = WScript.CreateObject("FAXCOMEX.FaxDocument")

CheckError("WScript.CreateObject(FAXCOMEX.FaxDocum ent)")



' Set file name of any printable document.

FaxDoc.Body = "percorso file"

CheckError("FaxDoc.Body")

FaxDoc.DocumentName = "Fax"


' Add recipient's fax number. If this string contains a canonical fax number
' (starting with plus + followed by country code, area code in round brackets and the fax number),
' the Fax Service will translate that number into dialable format in accordance with your current location.
' Otherwise, make sure the international prefix or long distance prefix is specified when needed,
' as the fax number will be passed on to a fax driver (Fax Service Provider) unchanged.
' For example, sending a fax from San Francisco to Sydney's fax number 123456, the canonical address
' +61(2)123456 will be translated into dialable address 011612123456.
' If you are using T37FSP in conjunction with Internet Fax Service, specify absolute address
' 612123456 (without leading plus, to avoid translation into dialable format),
' as Internet Fax Service expects the number in the absolute format.


FaxDoc.Recipients.Add dest


' Optionally, set the sender properties.
' T37FSP uses only FaxDoc.Sender.Email in Windows Server 2003 for delivery status notifications.

'FaxDoc.Sender.Email = "bob@xyz.com"

FaxDoc.Sender.Name = Mittente_Sogg

FaxDoc.Sender.FaxNumber = Mittente_Num


' Optionally, you can control banner in outbound faxes
FaxServer.Folders.OutgoingQueue.Branding = True ' True to set banner on, False to set banner off
FaxServer.Folders.OutgoingQueue.Save ' Make the change persistent

' Optionally, use FaxServer.Folders.OutgoingQueue.Retries and FaxServer.Folders.OutgoingQueue.RetryDelay
' to control retries


' Submit the document to the connected fax server and get back the job ID.

JobID = FaxDoc.ConnectedSubmit(FaxServer)

CheckError("FaxDoc.ConnectedSubmit")

WScript.Echo "FaxDoc.ConnectedSubmit success"



la pagina non da errori, ma nei fax non mette nessun fax in coda.. quindi non spedisce nulla??

HELP VI PREGO!!!!