| 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. JEL: Changed to automatic ref. of the computername JEL: Changed the App-reference Assumes:Make a reference to Fax COM Type lib 1.0 Declare Function GetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub SendWinFax() Dim strComputer As String Dim oFaxServer As FAXCOMLib.FaxServer Dim oFaxDoc As FAXCOMLib.FaxDoc Dim lngSend As Long Dim s As String Dim cnt As Long Dim dl As Long On Error Goto ErrHandler cnt = 199 s = String$(200, 0) dl = GetUserName(s, cnt) If dl <> 0 Then strComputer = Left$(s, cnt) Else strComputer = "" Set oFaxServer = New FAXCOMLib.FaxServer oFaxServer.Connect strComputer oFaxServer.ServerCoverpage = 0 s = AppDir Set oFaxDoc = oFaxServer.CreateDocument(s & "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 Private Function AppDir() As String '//If AppDir = NOT the root of the HD add "\", else don't add the slash '//(This sub makes sure an "\" is added to the app.path) If Right$(App.Path, 1) <> "\" Then AppDir = App.Path & "\" Else AppDir = App.Path End If End Function |
Fax with Win2k & XP |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design