It asks for an array and using the semicolon separator does not work and returns the same error messages.
I did, however, find a solution using a VBA Console Application instead of VBScript. My code is as follows:
Module Module1
Function DecodeToDocArray(ByVal inputDocListString As String, ByRef numDocuments As Integer, ByRef bRetVal As Boolean) As String()
bRetVal = False
If (String.IsNullOrEmpty(inputDocListString)) Then
Return Nothing
End If
Dim docArray As String()
Dim strDelimiter As String
Dim delimiter As Char()
docArray = Nothing
strDelimiter = ";"
delimiter = strDelimiter.ToCharArray()
docArray = inputDocListString.Split(delimiter)
numDocuments = docArray.GetLength(0)
bRetVal = True
Return docArray
End Function
Sub Main()
Dim retVal As Boolean
Dim numDocs As Integer
Dim docArray As String()
Dim strDocList As String = "chili.txt;sugarcookies.txt"
MsgBox(strDocList)
numDocs = 0
docArray = DecodeToDocArray(strDocList, numDocs, retVal)
If ((docArray.GetLength(0) = 0) Or (retVal = False)) Then
System.Console.WriteLine("DecodeToDocArray failed")
retVal = False
MsgBox("End")
End
End If
Dim FaxDoc = CreateObject("FAXCOMEX.FaxDocument")
Dim FaxServer = CreateObject("FAXCOMEX.FaxServer")
FaxServer.Connect("")
MsgBox("test")
FaxDoc.Bodies = docArray
FaxDoc.Sender.LoadDefaultSender()
FaxDoc.Recipients.Add("15555551234", "TestUser")
Dim strJobIds As Object
strJobIds = Nothing
FaxDoc.ConnectedSubmit2(FaxServer, strJobIds)
MsgBox("sent")
End Sub
End Module