VoiceGuide IVR Software Main Page
Jump to content

Sending Out Fax's From Voiceguide

Recommended Posts

I have seen many post on how to receive fax but how do you send out a fax from voice guide.

 

Any programs recommended?

 

Any vbs code that you may offer?

 

Thanks,

 

-Brandon

 

p.s. Voice guide is an excellent program. I have recommended it to many corporations.

Share this post


Link to post

From VG Help file, Run VBScript module section:

 

Example 6:

The VB Script below will fax out a Word document "c:\info\prices1.doc" to fax number 5554321. Note: WinFax or another scriptable faxing agent is needed in order for the script below to work.

 

Dim WordApp

Dim myWordDoc

Dim strPathDoc

Dim intRecord

 

Set WordApp = CreateObject("word.application")

WordApp.Visible = True

strPathDoc = "c:\info\prices1.doc"

Set myWordDoc = WordApp.Documents.Open(strPathDoc)

myWordDoc.ActiveWindow.Document.SendFax("5554321")

 

'always deallocate after use...

Set myWordDoc = Nothing

Set WordApp = Nothing

 

 

Example 7:

This example builds on previous example by using Result Variables in the VB Script. The example below uses values entered by the caller in the 'Get Fax Number' and 'Select Price List' Get Number modules. The two result variables will be replaced with their actual values before the VB Script is run.

 

Dim WordApp

Dim myWordDoc

Dim strPathDoc

Dim intRecord

 

Set WordApp = CreateObject("word.application")

WordApp.Visible = True

strPathDoc = "c:\info\prices$RV[select Price List].doc"

Set myWordDoc = WordApp.Documents.Open(strPathDoc)

myWordDoc.ActiveWindow.Document.SendFax("$RV[Get Fax Number]")

 

 

'always deallocate after use...

Set myWordDoc = Nothing

Set WordApp = Nothing

 

 

Example 8:

The VB Script below will fax out a document "c:\info\prices1.doc" to all the fax numbers contained in the FaxDb database. Values could have been inserted into this database using the DB Query module.

 

Dim WordApp      'Object

Dim myWordDoc    'Word.Document

Dim strPathDoc  'String

Dim myRST        'Recordset

Dim myDB        'Database

Dim strFaxNumber 'String

Dim intRecord    'Long

 

Set WordApp = CreateObject("word.application")

Set myDB = DBEngine.Workspaces(0).Databases(0)

Set myRST = myDB.OpenRecordset("FaxDb", dbOpenDynaset)

myRST.MoveLast

 

WordApp.Visible = True

strPathDoc = "c:\info\prices1.doc"

 

Set myWordDoc = WordApp.Documents.Open(strPathDoc)

 

For intRecord = myRST.RecordCount To 1 Step -1

    strFaxNumber = CStr(myRST.Fields(1))

    myWordDoc.ActiveWindow.Document.SendFax(strFaxNumber)

    myRST.MovePrevious

Next intRecord

 

 

'always deallocate after use...

Set myWordDoc = Nothing

Set WordApp = Nothing

myRST.Close

Set myRST = Nothing

Set myDB = Nothing

Share this post


Link to post

When I run example 6 I get the following error at line 10

 

"Microsoft Mail Local Fax is not installed on your system." Source is Microsoft Word

 

Can you point me in the right direction.

 

I can send faxes from Word with no issues.

 

Thanks again for all of the help.

 

-Brandon

Share this post


Link to post

from the description of the examples quoted above:

Note: WinFax or another scriptable faxing agent is needed in order for the script below to work.

Share this post


Link to post

BTW, where from I can get "WinFax or another scriptable faxing agent"? And why Microsoft Local Fax is in the error? Is this WinFax or Microsoft Local Fax is free?

 

Sameers

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×