Employing the FAXCOMEXLib object for more than 1 attachments

[sonnykei]

Hi All,

In my application, I am currently employing FAXCOMEXLib to send out faxes. It works great, but one issue still remains. How can I send out multiple attachments in one Fax transmission using FAXCOMEXLib? As shown in the code snippet below, I only have the code which can only send out one attachment at a time. In return, Windows Fax Server takes my attachment and adds the local cover-page to it.

As I have read on the internet, I know this can be done, but no one has posted any sample codes of how actually it is implemented.

I hope someone out there can reply back with a sample code for this.

 public int FaxDocument(String TheFile, string faxnumber)
        {
            int JobID = 0;
            FAXCOMEXLib.FaxServer faxsrv = new FAXCOMEXLib.FaxServerClass();
 
            try
            {
                faxsrv.Connect(Environment.MachineName);
                var faxdoc = new FAXCOMEXLib.FaxDocumentClass();
 
                //*** How can I add 2 or more attachments to my fax Body with the use of one coverpage?
                faxdoc.Body = @"C:\Temp\test.doc";
                //************************************************************************
 
                faxdoc.Priority = FAX_PRIORITY_TYPE_ENUM.fptNORMAL;
 
                faxdoc.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptLOCAL;
                faxdoc.CoverPage = "TestCoverPage";
                faxdoc.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstNOW;
                faxdoc.DocumentName = "Fax Transmission";
                faxdoc.Recipients.Add(faxnumber, "John Doe");                
                faxdoc.AttachFaxToReceipt = false;
                faxdoc.Note = "Here is the info you requested";
                faxdoc.Subject = "Today's fax";
 
                faxdoc.ConnectedSubmit(faxsrv);
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            finally
            {
                faxsrv.Disconnect();
            }
 
            return JobID;
        }

Thx

[durgaprasadP]

Instead of useing faxdoc.Body use faxdoc.Bodies and for submit use faxserver.connectsubmited2

all the attachements store in a single array and assign the faxdoc.Bodies=array

[sonnykei]

Thanks for getting back to me. By any chance, do you have a code snippet that can help me checking on the status of the fax job to make sure if it was successfully faxed, or failed?

[durgaprasadP]

Please see the bellow sample rugh code. we can play with it. any issues plz mail me.

Dim WithEvents objFaxServer As New FAXCOMEXLib.FaxServer
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim JobID As Object
Dim STAttach1(1) As String

objFaxServer.Connect(Environment.MachineName)
objFaxServer.ListenToServerEvents(FAXCOMEXLib.FAX_ SERVER_EVENTS_TYPE_ENUM.fsetOUT_QUEUE)
strfilename = ""
STAttach1(0) = "D:\Robofax.pdf"
STAttach1(1) = "D:\Black-ICE.doc"
objFaxDocument.Bodies = STAttach1
objFaxDocument.DocumentName = "MedFax Testing"
Faxnumber = "26"
objFaxDocument.Recipients.Add(Faxnumber, "test")
objFaxDocument.AttachFaxToReceipt = True
objFaxDocument.Note = "TEST FAX (MEDFAX)"
objFaxDocument.Subject = "Testing FAX(MEDFAX)"
objFaxDocument.CoverPageType = FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
objFaxDocument.CoverPage = "generic"
objFaxDocument.Note = "Here is the info you requested" '===Comments files
Dim strJobIds As Object
strJobIds = Nothing

JobID = objFaxDocument.ConnectedSubmit2(objFaxServer, strJobIds)

strJID = JobID(0)
strJobID = "The Job ID is :" & JobID(0)
MsgBox("The Job ID is :" & JobID(0))
'objFaxServer.Disconnect()

[sonnykei]

Once again thank you for this code resource you have posted. I will go ahead and use it right away. Do you also happen to know how can I use the returned JobID from your code and check for the status of my fax (sent, error, processing, etc) in the queue at some other time later? I hope you’ll be able to guide me on this one as well.

Thank you

[durgaprasadP]

SURE , I will try my best

[durgaprasadP]

I Forgot to tell you it will work only on windows vista.

[linksys]

sonnykei:
You can subscribe to OnOutgoingJobChanged event of the Fax Server Object.
Here's a snippet of my code (written in VB.NET)
I call my window app from a console app (automation):

-----------------------
 Private Sub g_objFaxServer_OnOutgoingJobChanged1(ByVal pFaxServer As FAXCOMEXLib.FaxServer, ByVal bstrJobId As String, ByVal pJobStatus As FAXCOMEXLib.FaxJobStatus) Handles g_objFaxServer.OnOutgoingJobChanged
    Try
 
      Dim objFaxOutgoingQueue As FAXCOMEXLib.FaxOutgoingQueue
      Dim objFaxOutgoingJob As FAXCOMEXLib.FaxOutgoingJob = Nothing
      Dim sExtendedStatus As String = String.Empty
 
      objFaxOutgoingQueue = pFaxServer.Folders.OutgoingQueue
      objFaxOutgoingJob = objFaxOutgoingQueue.GetJobs.Item(0)
 
      Select Case pJobStatus.Status
        Case FAXCOMEXLib.FAX_JOB_STATUS_ENUM.fjsCOMPLETED
          Me.ListBox1.Items.Add("Fax has completed without errors")
          bOKToExit = True
        Case FAXCOMEXLib.FAX_JOB_STATUS_ENUM.fjsNOLINE
          Me.ListBox1.Items.Add("No fax line available")
          'Cancel the job immediately.
          objFaxOutgoingJob.Cancel()
          bOKToExit = True
 
 
 
 
        Case FAXCOMEXLib.FAX_JOB_STATUS_ENUM.fjsINPROGRESS
 
 
          Select Case pJobStatus.ExtendedStatusCode
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesBAD_ADDRESS
              sExtendedStatus = "->Bad address."
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesANSWERED
              sExtendedStatus = "->Answered."
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesBUSY
 
              sExtendedStatus = "->1.)Busy. 2.)Canceling fax. 3.)Resending Fax."
              'Cancel the job immediately and resend.
              objFaxOutgoingJob.Cancel()
 
              Me.nCurrentRetry += 1
              If (Me.nCurrentRetry <= 3) Then
                bOKToExit = False
                Fax()
              Else
                bOKToExit = True
              End If
 
 
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesCALL_COMPLETED
              sExtendedStatus = "-Fax is complete."
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesCALL_DELAYED
              sExtendedStatus = "-Fax is delayed."
              'Cancel the job immediately.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesDIALING
              sExtendedStatus = "-Dialing " & Me.m_sParam(1).ToString & "."
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesDISCONNECTED
              sExtendedStatus = "-Fax was disconnected."
              'Cancel the job immediately.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesFATAL_ERROR
              sExtendedStatus = "-Fatal Error!"
              'Cancel the job immediately.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesHANDLED
              sExtendedStatus = "-Handled."
              'Cancel the job immediately.
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesINITIALIZING
              sExtendedStatus = "-Initializing."
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesLINE_UNAVAILABLE
              sExtendedStatus = "-Line unavailable."
              'Cancel the job immediately and resend.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesNO_ANSWER
              sExtendedStatus = "-No answer."
              'Cancel the job immediately and resend.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesNO_DIAL_TONE
              sExtendedStatus = "-No dial-tone."
              'Cancel the job immediately.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesNONE
              sExtendedStatus = "-(Unknown)."
              'Cancel the job immediately.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesNOT_FAX_CALL
              sExtendedStatus = "-Not a fax call."
              'Cancel the job immediately.
              objFaxOutgoingJob.Cancel()
              bOKToExit = True
            Case FAXCOMEXLib.FAX_JOB_EXTENDED_STATUS_ENUM.fjesTRANSMITTING
              sExtendedStatus = "-Sending page " & pJobStatus.CurrentPage.ToString & " of " & pJobStatus.Pages.ToString
          End Select
          Me.ListBox1.Items.Add(sExtendedStatus)
        Case FAXCOMEXLib.FAX_JOB_STATUS_ENUM.fjsFAILED
          Me.ListBox1.Items.Add("Fax job failed!")
          'Cancel the job immediately.
          objFaxOutgoingJob.Cancel()
          bOKToExit = True
        Case FAXCOMEXLib.FAX_JOB_STATUS_ENUM.fjsRETRYING
          Me.ListBox1.Items.Add("Retrying fax.")
          bOKToExit = False
        Case FAXCOMEXLib.FAX_JOB_STATUS_ENUM.fjsRETRIES_EXCEEDED '*This case statement will never fire, as we handle retries elsewhere.
          Me.ListBox1.Items.Add("Retries exceeded")
          'Cancel the job immediately.
          objFaxOutgoingJob.Cancel()
          bOKToExit = True
      End Select
 
    Catch ex As Exception : End Try
 
 
    If (bOKToExit) Then
      'Okay to shutdown the application.
      End
    End If
 
  End Sub
-------------------------

[Laura Nicholaso]

Interesting issue and solution. FYI, there’s a page that documents common FAXCOMEXLib problems and solutions on the Interfax site:
http://www.interfax.net/en/dev/faxcomexlib
If you have any more related issues, it includes information collected from major developer Web forums (including links to the discussions).