Windows 2000 client and Win2k3 Fax service

[Alexander Csontos]

I need to know if there is a way to program applications for a windows 2003
fax service from a 2000 client. We have certain applications that will
generate letters and instead of them manually putting in the info, we'd like
the program to pass the number to it. We're using vb and an access front
end.

Thanks in advance

 

[Tony]

Here is an example from an article on MSDN - I converted it to Delphi
and it works fine - except that I cannot see how to just send a cover
page from my program. The fax server demands a file name attachment so
you always get a second page

Note you can only send files of a registered type on the server (ie
txt or pdf or whatever)

HTH
Tony

Sub SendDocByFax()

Dim FaxServer As Object
Dim FaxDoc As Object

'Create FaxServer object...
Set FaxServer = CreateObject("FaxServer.FaxServer") '...and
connect to it - no empty name allowed
FaxServer.Connect ("mycomputer") 'Create document
Set FaxDoc = FaxServer.CreateDocument("d:\documents\mydoc.doc")

FaxDoc.FaxNumber = "+99 (99) 999999"
FaxDoc.RecipientName = "John Doe"
FaxDoc.Send

Set FaxDoc = Nothing

FaxServer.Disconnect

Set FaxServer = Nothing
End Sub