Browser Enable a VB Script
- From: phpMax <tahir@xxxxxxxxxxxxx>
- Date: Mon, 19 Feb 2007 11:08:38 +0500
Hello
Below is a code in VBScript to send fax. I want to enable this code to run from IE. Can anyone help?
Thank You
-------------
Here is the code.
-----------------
Set FaxServer = WScript.CreateObject("FAXCOMEX.FaxServer")
CheckError("WScript.CreateObject(FAXCOMEX.FaxServer)")
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.FaxDocument)")
' Set file name of any printable document.
FaxDoc.Body = "test.rtf"
CheckError("FaxDoc.Body")
FaxDoc.DocumentName = "My First 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 ("612123456")
' Optionally, set the sender properties.
' T37FSP uses only FaxDoc.Sender.Email in Windows Server 2003 for delivery status notifications.
FaxDoc.Sender.Email = "bob@xxxxxxx"
FaxDoc.Sender.Name = "Bob"
FaxDoc.Sender.FaxNumber = "7777777"
' 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"
.
- Prev by Date: Re: SQL Query to CSV or XLS file
- Next by Date: Re: get and save "1.jpg, 2.jpg, 3.jpg, 4.jpg, 5.jpg"
- Previous by thread: Script to toggle connections options
- Next by thread: How to make Global Change to MS Document?
- Index(es):
Relevant Pages
|
