FAXCOMLib and TIF

[vladimir_vvm]

Hello,

I created program to send faxes:

-------------
Private Sub TestFAXCOMLib(strTestFaxNumber As String)

Dim objFaxServer As FAXCOMLib.FaxServer

Dim objFaxDocument As FAXCOMLib.FaxDoc

Dim strFILE_TO_FAX As String

Dim JobId


Set objFaxServer = New FAXCOMLib.FaxServer

objFaxServer.Connect (vbNullString)

Set objFaxDocument = objFaxServer.CreateDocument("Test")


strFILE_TO_FAX = CurrentProject.Path & "\TestFaxDocument.txt"

objFaxDocument.FileName = strFILE_TO_FAX

objFaxDocument.FaxNumber = strTestFaxNumber


objFaxDocument.Send

End Sub


Private Sub btnSEND_FAX_Click()

Call TestFAXCOMLib("416-111-1111")

End Sub
-------------

It was working - sending faxes.

I went to Windows Explorer\Tools\Folder options\File Types and deleted
TIFF and TIF file types.

Ran fax program and objFaxDocument.Send gave me error 80070006 (Method
'Send' of object 'IFaxDoc' failed).

I recreated TIFF and TIF file types exactly like it was before but
still getting same error.

I am stuck.

Please help!!!