Sending Fax Problems

[Guest KB]

I am trying to send fax through VBscript and although it works perfectly on Excel and Word macros, it doesn't work on Voiceguide.

Here's the code i'm using:

 

Dim sendObj

Set sendObj = CreateObject("WinFax.SDKSend8.0")

sendObj.SetTypeByName "Fax"

sendObj.ShowSendScreen (0)

sendObj.SetSubject ("Test Faxing")

sendObj.SetCoverText ("Test of cover Page")

sendObj.SetNumber ("74685861")

sendObj.AddRecipient

sendObj.Send (1)

sendObj.Done

 

Set sendObj = Nothing

 

The code does invoke winfax but it doesn't send anything.

 

Any idea?

 

P.S. the code on your examples using sendfax method doesn't work at all on my machine.

 

Thanks.

[SupportTeam]

The script you posted at no time specifies which document Winfax should be sending.

Maybe when ran in Excel/Word it sends the 'current' document but from VoiceGuide you will need to somehow specify the document...

[Guest KB]

I've finaly found out what the problem was, apparently the script is too quick for the send method so all you need to do is add this method

sendObj.LeaveRunning

 

Case anyone will have the smae problem.

[Guest researcher]

Dear sir

I want to thank with a personal mail to SK , the person who posted this solution. Can you help me establish contact with him/her please?

[Guest researcher]

How can I write email to this person who has postd this topic? Please help me in establishing contact with him. Or else can you let me know as to what statment will be used in the vbscript below to fax a document named myletter1.doc stored in drive c:? The following vbscript works well to send some document.

 

Dim sendObj

Set sendObj = CreateObject("WinFax.SDKSend8.0")

sendObj.SetTypeByName "Fax"

sendObj.ShowSendScreen (0)

sendObj.SetSubject ("Test Faxing")

sendObj.SetCoverText ("Test of cover Page")

sendObj.SetNumber ("172233")

sendObj.AddRecipient

sendObj.Send (1)

sendObj.Done

sendObj.LeaveRunning

 

urgent help will be greatly appreciated

[SupportTeam]

KB posted anonymously, without supplying contact details...

 

Not familiar with WinFax COM interface, but I think there are some examples in the Run VBScript section of the Help file.

[SupportTeam]

Here is a VBScript example supplied to us by another user (Thanks Bill!)

Dim objWinfaxSend
Set objWinfaxSend = CreateObject("WinFax.SDKSend8.0")
objWinfaxSend.SetTypeByName "Fax"
objWinfaxSend.ShowSendScreen (0)
objWinfaxSend.SetUseCover(0)
objWinfaxSend.SetSubject ("Property Information")
objWinfaxSend.SetNumber ("$RV[DestFaxNumber]")
objWinfaxSend.AddAttachmentFile("c:\retour\faxes\6013022-flyerfax.fxd")
objWinfaxSend.SetResolution(0)
objWinfaxSend.AddRecipient
objWinfaxSend.Send (0)
objWinfaxSend.Done
Set objWinFaxSend = Nothing