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!!!!
Rispondi quotando
