Faxing pictures with FaxServer

  • Thread starter Thread starter Ones Self
  • Start date Start date
O

Ones Self

Hi all,

I'm trying to fax using FaxServer. If I send a text file or even a
doc file, everyting works fine. But when I try to send an image, I
get a bunch of defferent errors.

Here's my code:

' <------------------ Snip -------------------->
Dim fs As FaxServer
Dim fd As FaxDoc
Set fs = CreateObject("FaxServer.FaxServer")

Call fs.Connect("EYAL-PC")
' This works fine
Set fd = fs.CreateDocument("C:\z\fax.txt")
' Here I get the following error:
' Method 'Send' of Object 'IFaxDoc' failed
Set fd = fs.CreateDocument("C:\z\fax.bmp")
' Here the Send method works, but the page
' that comes out of the recieving fax machine
' is all black, instead of containing the image.
Set fd = fs.CreateDocument("C:\z\fax.tiff")
fd.FaxNumber = "12125551234"
fd.Send

fs.Disconnect

Set fd = Nothing
Set fs = Nothing


' <------------------ Snip -------------------->

Any help would be appritieted.
 
Back
Top