I am getting error parsing error. I wonder what I may be doing wrong. Help is apprecited.
Public Function SendFax() As String
Dim client As New JobSubmitPortTypeClient
Dim submitRequest As New JobSubmitRequest
Dim request = New Request
Dim authetication As New RequestAuthentication
Dim xddsAuth As New XDDSAuthType
Dim uid As New UIDType
Dim myFileName = New EncodableStringType
xddsAuth.Password = "xxxx"
uid.Value = "xxxx"
xddsAuth.RequesterID = uid
authetication.Item = xddsAuth
request.Authentication = authetication
' PDF Message
Dim inFile As FileStream
Dim binaryData() As Byte
Try
inFile = New FileStream("C:\Tmp\test.pdf", IO.FileMode.Open, IO.FileAccess.Read)
ReDim binaryData(CInt(inFile.Length))
Dim bytesRead As Long = inFile.Read(binaryData, 0, CInt(inFile.Length))
inFile.Close()
Catch exp As Exception
' Error creating stream or reading from it.
MsgBox("Error: {0}", exp.Message)
Return ""
End Try
'convert PDF binary into Base64 UUEncoded output:
Dim base64String As String
Try
base64String = Convert.ToBase64String(binaryData, 0, binaryData.Length)
Catch ex As Exception
MsgBox("Error Converting Base64 :" & ex.Message)
Return ""
End Try
Dim documentData As New DocDataType
documentData.format = DocEncodingFormat.base64
documentData.Value = base64String
Dim documents() As DocumentType
ReDim documents(0)
documents(0) = New DocumentType
documents(0).DocType = "PDF"
documents(0).ref = "FirstPdf"
myFileName.Value = "test.pdf"
documents(0).Filename = myFileName
documents(0).ItemElementName = ItemChoiceType.DocData
documents(0).Item = documentData
documentData = Nothing
'add the documents to the job request
submitRequest.DocumentSet = documents
' Build a message
Dim message() As MessageType
ReDim message(0)
message(0) = New MessageType()
Dim content() As ContentPartType
Dim contentstype = New ContentsType
ReDim content(0)
content(0) = New ContentPartType
content(0).Item = "FirstPdf"
content(0).Treatment = TreatmentType.attachment
content(0).TreatmentSpecified = True
contentstype.Part = content
' Add the contents to the message
message(0).Contents = contentstype
' Setup job options
Dim joboptions = New JobOptionsType()
' Setup Fax options
Dim faxoptions As FaxOptionsType = New FaxOptionsType
faxoptions.FaxMode = FaxModeType.standard
' Add the Fax options to the job options
joboptions.FaxOptions = faxoptions
' Add the job options to the message
message(0).JobOptions = joboptions
' Setup delivery destination(s)
Dim deliveryFax() As FaxType
ReDim deliveryFax(0)
deliveryFax(0) = New FaxType
deliveryFax(0).Phone = "3050000000"
message(0).Destinations = deliveryFax
submitRequest.Message = message
Dim jobresult As JobSubmitResult
Dim submitResponse As Response
submitResponse = client.JobSubmit(request, submitRequest, jobresult)
If jobresult.Status.StatusCode = 0 Then ' No Error
Return jobresult.MessageResult(0).JobId.XDN
Else
Return ""
End If
End Function
