Sending a Fax using VB on XP

Posted on 2004-08-11
Last Modified: 2009-12-16

i have this code

Public Sub SendFax()
  Dim FaxServer As Object
  Dim FaxDoc As Object
  Set FaxServer = CreateObject("Faxserver.FaxServer")
  'Create FaxServer object...
  '<---This line does not produces an error.
  If (FaxServer.Connect("Fax")) Then
    MsgBox "Failed to connect"
  End If
  'Create document
  Dim FaxFile As String
  FaxFile = "C:\Work\Projects\Serck Controls\Vb\FaxSender\Message.txt"
  Set FaxDoc = FaxServer.CreateDocument(FaxFile)
  FaxDoc.FaxNumber = "0,49543543"
  FaxDoc.RecipientName = "John Doe"
  Dim iReturn As Integer
  iReturn = FaxDoc.Send                     '<--- Failed to Send
  FaxDoc = Nothing
  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?
Question by:cossy74

Accepted Solution

cristy56 earned 300 total points
ID: 11780209
#Mandix Repository#************************************************************
' * Programmer Name  : Dave Buckner
' * WebSite          :
' * 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 = 0
   Set oFaxDoc = oFaxServer.CreateDocument(App.Path & "\" & "New Text Document.txt")
   With oFaxDoc
      .FaxNumber = "5551212"
      .DisplayName = "Fax Server"
      lngSend = .Send
   End With
   Set oFaxDoc = Nothing
   Set oFaxServer = Nothing
   Exit Sub

   MsgBox Err.Number & " " & Err.Description
End Sub


Assisted Solution

nishikanth earned 100 total points
ID: 11780580
LVL 13

Assisted Solution

imarshad earned 100 total points
ID: 11780848

Expert Comment

ID: 11790166
Hi, how is your problem going on ? have u solved it ?



Author Comment

ID: 11865850
Sorry, i went away on holidays an got back this morning.
Crisy56: No the problem exists because to solutions require exchange which i donot have.
If i have read these answer wrongly please advise.

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now