Sending Fax from your application

On windows Server 2003 have capabilities act as fax server. so many client can be sending the document with fax service via this server. but on windows XP professional also have fax service like on server 2003 but not richeest functional like on server 2003. on windows XP You must active this service via add and remove windows component on control panel.
Like on microsoft office , The app have feature for sending document via email or fax service. on this post we can add that capabilities into .net project.  The project use windows xp proffesional for replace windows 2003 server.

 

Before started this project we must make sure fax service installed on Computer. because the project need component from that service. on the work sheet visual studio 2008 add the reference FAXCOMEXlib.dll into project. The source code like below

1. Public Class Form1

3. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

4. With cd

5. .ShowDialog()

6. TextBox5.Text = cd.FileName

7. End With

8. End Sub

10. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

11. TextBox1.Text = My.Computer.Name.ToString

13. End Sub

15. Private Sub sending()

17. Dim objFaxDocument As New FAXCOMEXLib.FaxDocument

18. Dim objFaxServer As New FAXCOMEXLib.FaxServer

19. Dim objSender As FAXCOMEXLib.FaxSender

21. Dim jobid As Int32

23. If TextBox1.Text = "" Or TextBox2.Text = "" Then

24. MsgBox("Please input server name and destination number !", MsgBoxStyle.Critical, "Faxing")

25. Exit Sub

26. End If

28. Try

29. objFaxServer.Connect("")

30. objFaxDocument.Body = TextBox5.Text

31. objFaxDocument.DocumentName = "Reliez "

32. objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

33. objFaxDocument.Recipients.Add(TextBox2.Text, TextBox3.Text)

34. objFaxDocument.Sender.Company = "Reliez "

35. objFaxDocument.Sender.StreetAddress = "Http:" & "//" & "reliez.net"

36. objFaxDocument.Sender.SaveDefaultSender()

37. objFaxDocument.ConnectedSubmit(objFaxServer)

38. System.Threading.Thread.Sleep(5000)

39. objFaxServer.Disconnect()

40. Me.Close()

42. Catch ex As Exception

43. MsgBox(ex.ToString)

44. 'MsgBox("Fail to Send Document !", MsgBoxStyle.Critical, "Fax")

45. End Try

47. End Sub

49. End Class

Download complete source code click this link

Tag Technorati: {grup-tag}Fax,Vb.Net