Your question, your audience. Choose who sees your identity—and your question—with question security.
Sending a Fax using VB on XP
Hi,
i have this code
Public Sub SendFax()
Dim FaxServer As Object
Dim FaxDoc As Object
Set FaxServer = CreateObject("Faxserver.Fa
'Create FaxServer object...
'<---This line does not produces an error.
If (FaxServer.Connect("Fax"))
MsgBox "Failed to connect"
End If
'Create document
Dim FaxFile As String
FaxFile = "C:\Work\Projects\Serck Controls\Vb\FaxSender\Mess
Set FaxDoc = FaxServer.CreateDocument(F
FaxDoc.FaxNumber = "0,49543543"
FaxDoc.RecipientName = "John Doe"
Dim iReturn As Integer
iReturn = FaxDoc.Send '<--- Failed to Send
FaxDoc = Nothing
FaxServer.Disconnect
FaxServer = Nothing
End Sub
I have referenced the fxscom.dll but it fails to send can anyone help?
Do i have to set anything up in the xp enviroment?
i have this code
Public Sub SendFax()
Dim FaxServer As Object
Dim FaxDoc As Object
Set FaxServer = CreateObject("Faxserver.Fa
'Create FaxServer object...
'<---This line does not produces an error.
If (FaxServer.Connect("Fax"))
MsgBox "Failed to connect"
End If
'Create document
Dim FaxFile As String
FaxFile = "C:\Work\Projects\Serck Controls\Vb\FaxSender\Mess
Set FaxDoc = FaxServer.CreateDocument(F
FaxDoc.FaxNumber = "0,49543543"
FaxDoc.RecipientName = "John Doe"
Dim iReturn As Integer
iReturn = FaxDoc.Send '<--- Failed to Send
FaxDoc = Nothing
FaxServer.Disconnect
FaxServer = Nothing
End Sub
I have referenced the fxscom.dll but it fails to send can anyone help?
Do i have to set anything up in the xp enviroment?
Asked:
2- +1
3 Solutions
check this
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxlegacyvb_836n.asp
for detailed info to use faxserver
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxlegacyvb_836n.asp
for detailed info to use faxserver
You my also check this link for other options...
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_21004244.html
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/VB_Controls/Q_21004244.html
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
' * Programmer Name : Dave Buckner
' * WebSite : http://www.d2dsources.com
' * Date : 16/05/02
' **************************
' * Comments : Fax with Win2k & XP
' *
' * Fax with Win2k & XP
' *
' **************************
Description:With this snippet you can fax from any windows 2000 and
windows XP box with Fax Services! The only other way to share a fax
otherwise is Small Business server. All feedback is welcome!
Assumes: Make a reference to Fax COM Type lib 1.0
'
Private Sub Form_Load()
Dim lngSend As Long
Dim strComputer As String
Dim oFaxServer As FAXCOMLib.FaxServer
Dim oFaxDoc As FAXCOMLib.FaxDoc
On Error Goto ErrHandler
strComputer = "yourComputerName"
Set oFaxServer = New FAXCOMLib.FaxServer
oFaxServer.Connect strComputer
oFaxServer.ServerCoverpage
Set oFaxDoc = oFaxServer.CreateDocument(
With oFaxDoc
.FaxNumber = "5551212"
.DisplayName = "Fax Server"
lngSend = .Send
End With
Set oFaxDoc = Nothing
oFaxServer.Disconnect
Set oFaxServer = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number & " " & Err.Description
Err.Clear
End Sub
--------------------------
Cristy