Sending a Fax using VB on XP

#Mandix Repository#************************************************************
' * 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 = 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
   oFaxServer.Disconnect
   Set oFaxServer = Nothing
   Exit Sub

ErrHandler:
   MsgBox Err.Number & " " & Err.Description
   Err.Clear
End Sub

------------------------------------------------------------
Cristy