F
Francisco
Hello all,
I am trying to send documents using MS Access from our Fax Server. I found
this code, but I get an error message (ActiveX component can't create object)
when I run it. I am not sure if I need to have a reference library. Please
help! Thank you.
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 ("myfaxserver")
'Create document
Set FaxDoc = FaxServer.CreateDocument("C:\ADOdb.doc")
'FaxDoc.FaxNumber = "+99 (99) 999999"
FaxDoc.RecipientName = "Francisco Montes"
FaxDoc.Send
Set FaxDoc = Nothing
FaxServer.Disconnect
Set FaxServer = Nothing
End Sub
I am trying to send documents using MS Access from our Fax Server. I found
this code, but I get an error message (ActiveX component can't create object)
when I run it. I am not sure if I need to have a reference library. Please
help! Thank you.
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 ("myfaxserver")
'Create document
Set FaxDoc = FaxServer.CreateDocument("C:\ADOdb.doc")
'FaxDoc.FaxNumber = "+99 (99) 999999"
FaxDoc.RecipientName = "Francisco Montes"
FaxDoc.Send
Set FaxDoc = Nothing
FaxServer.Disconnect
Set FaxServer = Nothing
End Sub