Microdoft Mail Local Fax Is Not Installed On Your

[Guest tltcommunications]

I have installed winfax on my machine and have copied one of your example

scripts into a run VBScript block. I get the

error"Microdoft Mail Local Fax is not installed on your system" every time i attempt to run the script.

 

please assist

[SupportTeam]

No idea why this could be happening...

Do you have a fax modem installed on this computer?

Any info in WinFax's help file as to what this means? It's probably a message from WinFax after all...

[Guest tltcommunications]

i am running Example 6 from VbScript examples and its giving an error on line 10. The modem is set up fine because i can send the fax using winfax manually. The problem comes on sending it automatically using vbscript thats when it gives the "Microsoft Mail Local Fax is not installed on your system" error.

[SupportTeam]

Maybe you should edit the "Printers" on your system and delete any "Microsoft Fax" type printer drivers. Then the WinFax printer driver will become the default printer driver for sending faxes...

[Guest Dominik]

I've been having the same problem, here is a possible solution:

It works for me.

Function AddAttachment(sendObj)

    Dim strFileName
    StrFileName = "c:\foo.doc"

   AddAttachment = True

   If sendObj.AddAttachmentFile(strFileName) = 1 Then
     MsgBox "Failed when adding attachment!", , MSGBOXCAPTION
     AddAttachment = False
   End If

End Function

Dim objWord
dim doc1
Set objWord = CreateObject("word.application")


objWord.Visible = false
set doc1 = objWord.Documents.Add
With objword 
       .ActiveDocument.PageSetup.Orientation = wdOrientLandscape 
       .ActiveDocument.PageSetup.LeftMargin = 70 
       .ActiveDocument.PageSetup.TopMargin = 30 
       .Selection.Font.Name = "Verdana" 
end with


doc1.Tables.Add objWord.Selection.Range, 4, 4
set tab1 = doc1.Tables(1)
tab1.Cell(1,1).Range.Text = "L.P."

doc1.SaveAs "c:\foo.doc"

objWord.Quit wdDoNotSaveChanges

set tab1 = nothing
set doc1 = nothing
set objWord = nothing

Dim objWinfaxSend
Set objWinfaxSend = CreateObject("WinFax.SDKSend8.0")
'objWinfaxSend.SetCoverText "test"
objWinfaxSend.SetTypeByName "Fax"
objWinfaxSend.SetResolution 1
objWinfaxSend.SetQuickCover 0
objWinfaxSend.SetNumber "9999"
objWinfaxSend.SetTo "Adresee" 
objWinfaxSend.SetSubject "Foo Bar"
objWinfaxSend.AddRecipient
AddAttachment(objWinfaxSend)
objWinfaxSend.Send (0)

Set objWinfaxSend = nothing

 

/Dominik

[Guest Guest]

I had same problem and is not solved by Dominik's VBscript. I am having Winfax Pro 10.0 installed and I an send faxes manually well. Is anyone ready with a solution?

[Guest anjupt]

hi,

 

 

I am also facing the same situation .i have also installed Winfax Pro 10.0 and i can send fax manually but not using scripts .I tried all the scripts provided in voiceguide help..

Could you please help me to solve this problem .I am in urgent need to send fax via script.

 

Suggest any possible solution.

 

 

ThankYou

 

Anju