473,320 Members | 2,161 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,320 software developers and data experts.

Need help in asp.net ~ urgent

4
I'm doing my final year project which is web-based fax server. I'm using the faxcomexlib library that inside the visual studio 2005 to do the fax function. I had done the send fax part. But now i facing the problem on the receiving fax part. I can know there have incoming queue fax. but after i input the number that i want the information, it become nothing and error come out. Thanks for view the post and giving comments.

here's the code (refer from msdn) that i use for the receive fax function :-
Expand|Select|Wrap|Line Numbers
  1. Dim objFaxServer As New FAXCOMEXLib.FaxServer
  2. Dim collFaxIncomingJobs As FaxIncomingJobs
  3. Dim objFaxIncomingJob As FaxIncomingJob
  4.  
  5. 'Error handling
  6. On Error GoTo Error_Handler
  7.  
  8. 'Connect to the fax server
  9. objFaxServer.Connect "zeus-lap"
  10.  
  11. 'Get the collection of jobs in the incoming queue
  12. Set collFaxIncomingJobs = objFaxServer.Folders.IncomingQueue.GetJobs
  13.  
  14. 'Display the number of jobs in the collection
  15. MsgBox "There are " & collFaxIncomingJobs.Count & " jobs in the incoming queue."
  16.  
  17. Dim n As Long
  18.  
  19. 'Get the job
  20. n = InputBox("Input the item number for which you want information.")
  21. Set objFaxIncomingJob = collFaxIncomingJobs.Item(n)
  22.  
  23. 'Refresh the job object (job is in process of being received, you
  24. 'want current information)
  25. objFaxIncomingJob.Refresh
  26.  
  27. 'Display the job properties
  28. MsgBox "Available operations: " & objFaxIncomingJob.AvailableOperations & _
  29. vbCrLf & "Caller ID: " & objFaxIncomingJob.CallerId & _
  30. vbCrLf & "CSID: " & objFaxIncomingJob.CSID & _
  31. vbCrLf & "Current page: " & objFaxIncomingJob.CurrentPage & _
  32. vbCrLf & "Device ID: " & objFaxIncomingJob.DeviceId & _
  33. vbCrLf & "Extended status: " & objFaxIncomingJob.ExtendedStatus & _
  34. vbCrLf & "Extended status code : " & objFaxIncomingJob.ExtendedStatusCode & _
  35. vbCrLf & "Job ID: " & objFaxIncomingJob.Id & _
  36. vbCrLf & "Job type: " & objFaxIncomingJob.JobType & _
  37. vbCrLf & "Retries: " & objFaxIncomingJob.Retries & _
  38. vbCrLf & "Routing information: " & objFaxIncomingJob.RoutingInformation & _
  39. vbCrLf & "Size: " & objFaxIncomingJob.Size & _
  40. vbCrLf & "Status: " & objFaxIncomingJob.Status & _
  41. vbCrLf & "Transmission start: " & objFaxIncomingJob.TransmissionStart & _
  42. vbCrLf & "Transmission end: " & objFaxIncomingJob.TransmissionEnd & _
  43. vbCrLf & "TSID: " & objFaxIncomingJob.TSID
  44.  
  45. 'Allow user to cancel the selected fax
  46. Dim CancelString As String
  47. CancelString = InputBox("Cancel this fax (Y/N)?")
  48. If CancelString = "Y" Then objFaxIncomingJob.Cancel
  49.  
  50. 'Allow user to open the selected fax
  51. Dim OpenString As String
  52. OpenString = InputBox("Open this fax (Y/N)?")
  53. If OpenString = "Y" Then
  54.     Dim FileName As String
  55.     FileName = InputBox("Provide path and name of file for TIFF copy, e.g. c:\MyFax.tiff")
  56.     objFaxIncomingJob.CopyTiff (FileName)
  57.  
  58.     'Open the tiff file
  59.     Dim A As Object
  60.     Set A = CreateObject("wscript.shell")
  61.     A.run FileName
  62. End If
  63. Exit Sub
  64.  
  65. Error_Handler:
  66.     'Implement error handling at the end of your subroutine. This 
  67.     ' implementation is for demonstration purposes
  68.     MsgBox "Error number: " & Hex(Err.Number) & ", " & Err.Description
  69.  
Mar 13 '08 #1
1 1335
zeuscc
4
I'm doing my final year project which is web-based fax server. I'm using the faxcomexlib library that inside the visual studio 2005 to do the fax function. I had done the send fax part. But now i facing the problem on the receiving fax part. I can know there have incoming queue fax. but after i input the number that i want the information, it become nothing and error come out. Thanks for view the post and giving comments.

here's the code (refer from msdn) that i use for the receive fax function :-
Expand|Select|Wrap|Line Numbers
  1. Dim objFaxServer As New FAXCOMEXLib.FaxServer
  2. Dim collFaxIncomingJobs As FaxIncomingJobs
  3. Dim objFaxIncomingJob As FaxIncomingJob
  4.  
  5. 'Error handling
  6. On Error GoTo Error_Handler
  7.  
  8. 'Connect to the fax server
  9. objFaxServer.Connect "zeus-lap"
  10.  
  11. 'Get the collection of jobs in the incoming queue
  12. Set collFaxIncomingJobs = objFaxServer.Folders.IncomingQueue.GetJobs
  13.  
  14. 'Display the number of jobs in the collection
  15. MsgBox "There are " & collFaxIncomingJobs.Count & " jobs in the incoming queue."
  16.  
  17. Dim n As Long
  18.  
  19. 'Get the job
  20. n = InputBox("Input the item number for which you want information.")
  21. Set objFaxIncomingJob = collFaxIncomingJobs.Item(n)
  22.  
  23. 'Refresh the job object (job is in process of being received, you
  24. 'want current information)
  25. objFaxIncomingJob.Refresh
  26.  
  27. 'Display the job properties
  28. MsgBox "Available operations: " & objFaxIncomingJob.AvailableOperations & _
  29. vbCrLf & "Caller ID: " & objFaxIncomingJob.CallerId & _
  30. vbCrLf & "CSID: " & objFaxIncomingJob.CSID & _
  31. vbCrLf & "Current page: " & objFaxIncomingJob.CurrentPage & _
  32. vbCrLf & "Device ID: " & objFaxIncomingJob.DeviceId & _
  33. vbCrLf & "Extended status: " & objFaxIncomingJob.ExtendedStatus & _
  34. vbCrLf & "Extended status code : " & objFaxIncomingJob.ExtendedStatusCode & _
  35. vbCrLf & "Job ID: " & objFaxIncomingJob.Id & _
  36. vbCrLf & "Job type: " & objFaxIncomingJob.JobType & _
  37. vbCrLf & "Retries: " & objFaxIncomingJob.Retries & _
  38. vbCrLf & "Routing information: " & objFaxIncomingJob.RoutingInformation & _
  39. vbCrLf & "Size: " & objFaxIncomingJob.Size & _
  40. vbCrLf & "Status: " & objFaxIncomingJob.Status & _
  41. vbCrLf & "Transmission start: " & objFaxIncomingJob.TransmissionStart & _
  42. vbCrLf & "Transmission end: " & objFaxIncomingJob.TransmissionEnd & _
  43. vbCrLf & "TSID: " & objFaxIncomingJob.TSID
  44.  
  45. 'Allow user to cancel the selected fax
  46. Dim CancelString As String
  47. CancelString = InputBox("Cancel this fax (Y/N)?")
  48. If CancelString = "Y" Then objFaxIncomingJob.Cancel
  49.  
  50. 'Allow user to open the selected fax
  51. Dim OpenString As String
  52. OpenString = InputBox("Open this fax (Y/N)?")
  53. If OpenString = "Y" Then
  54.     Dim FileName As String
  55.     FileName = InputBox("Provide path and name of file for TIFF copy, e.g. c:\MyFax.tiff")
  56.     objFaxIncomingJob.CopyTiff (FileName)
  57.  
  58.     'Open the tiff file
  59.     Dim A As Object
  60.     Set A = CreateObject("wscript.shell")
  61.     A.run FileName
  62. End If
  63. Exit Sub
  64.  
  65. Error_Handler:
  66.     'Implement error handling at the end of your subroutine. This 
  67.     ' implementation is for demonstration purposes
  68.     MsgBox "Error number: " & Hex(Err.Number) & ", " & Err.Description
  69.  
Or anybody have a better way to do the receive fax job ?
Mar 14 '08 #2

Sign in to post your reply or Sign up for a free account.

Similar topics

1
by: Rahul S. | last post by:
Hey all: I need urgent information how to set the environment in Visual.NET wiritng in C. I am working with a licensed version of the Analyze 6.0 software from mayo clinic. I need to write...
3
by: Rahul S. | last post by:
Hey all: I need urgent information how to set the environment in Visual.NET wiritng in C. I am working with a licensed version of the Analyze 6.0 software from mayo clinic. I need to write...
28
by: Tamir Khason | last post by:
Follwing the struct: public struct TpSomeMsgRep { public uint SomeId;
16
by: | last post by:
Hi all, I have a website running on beta 2.0 on server 2003 web sp1 and I keep getting the following error:- Error In:...
15
by: Cheryl Langdon | last post by:
Hello everyone, This is my first attempt at getting help in this manner. Please forgive me if this is an inappropriate request. I suddenly find myself in urgent need of instruction on how to...
2
by: Max Power | last post by:
Hi All I am coding a small app in that swaps specific files between a client and server. All files and locations are set at both sides. I want my app to show a file list, based on the file...
3
by: N. Spiker | last post by:
I am attempting to receive a single TCP packet with some text ending with carriage return and line feed characters. When the text is send and the packet has the urgent flag set, the text read from...
3
by: Noremac | last post by:
My google skills must be dwindling. I am trying to determine how in ASP.NET 2.0 I can get the ReturnUrl querystring variable in Forms Authentication to contain the absolute url. Just like others...
9
needhelp123
by: needhelp123 | last post by:
Can any one send me a quick sort simple logic pogram... its very urgent urgent
1
by: psantosh12 | last post by:
Hello Frnds Please need help to resolve error.......... it is very very urgent........ The error is Runtime Error Description: An application error occurred on the server. The current custom...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
0
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
0
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.