Public Function SendFaxComEx(ByRef err_text As String, ByRef JobID As Object, _
   ByRef dwRes As Integer, ByRef ErrorBodyFile As Integer, _
   ByRef objFaxServer As FAXCOMEXLib.FaxServer, _
   ByVal RecFaxNumber As String(), _
   Optional ByVal RecName As String() = Nothing, _
   Optional ByVal Bodies As String() = Nothing, _
   Optional ByVal DocumentName As String = vbNullString, _
   Optional ByVal CoverPageType As FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptNONE, _
   Optional ByVal CoverPage As String = "generic", _
   Optional ByVal Subject As String = vbNullString, _
   Optional ByVal Note As String = vbNullString, _
   Optional ByVal ScheduleType As FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstNOW, _
   Optional ByVal ScheduleTime As Date = Nothing, _
   Optional ByVal Priority As FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptNORMAL, _
   Optional ByVal UseDefaultSender As Boolean = True, _
   Optional ByVal SdrTsid As String = vbNullString, _
   Optional ByVal SdrName As String = vbNullString, _
   Optional ByVal SdrFaxNumber As String = vbNullString, _
   Optional ByVal SdrEmail As String = vbNullString, _
   Optional ByVal SdrCompany As String = vbNullString, _
   Optional ByVal SdrDepartment As String = vbNullString, _
   Optional ByVal SdrTitle As String = vbNullString, _
   Optional ByVal SdrOfficeLocation As String = vbNullString, _
   Optional ByVal SdrHomePhone As String = vbNullString, _
   Optional ByVal SdrOfficePhone As String = vbNullString, _
   Optional ByVal SdrAddress As String = vbNullString, _
   Optional ByVal SdrBillingCode As String = vbNullString, _
   Optional ByVal ForceEmailAddress As Boolean = False
   ) As Boolean

    SendFaxComEx = True

    'Dim objFaxServer As New FAXCOMEXLib.FaxServer
    Dim objFaxDocument As New FAXCOMEXLib.FaxDocument

    Try
      ''Connect to the fax server
      'objFaxServer.Connect("")

      With objFaxDocument
        'Set the fax body
        If Not Bodies Is Nothing Then .Bodies = Bodies
        '.Body = FileName

        'Name the document
        .DocumentName = DocumentName

        'Add the recipient(s) with the fax number RecFaxNumber(j) and name RecName(j)
        If Not RecFaxNumber Is Nothing Then
          For i As Integer = 0 To UBound(RecFaxNumber)
            If IsNothing(RecName) OrElse (UBound(RecFaxNumber) < i) Then
              .Recipients.Add(RecFaxNumber(i))
            Else
              .Recipients.Add(RecFaxNumber(i), RecName(i))
            End If
          Next
        End If

        'Set the cover page type and the path to the cover page
        .CoverPageType = CoverPageType
        .CoverPage = CoverPage

        .Subject = Subject

        'Provide the cover page note
        .Note = Note

        'Specify that the fax is to be sent at a particular time
        .ScheduleType = ScheduleType
        .ScheduleTime = ScheduleTime

        'Set the fax priority
        objFaxDocument.Priority = Priority


        'Set the sender properties.
        With .Sender
          If UseDefaultSender Then
            .LoadDefaultSender()
          Else
            .TSID = SdrTsid
            .Name = SdrName
            .FaxNumber = SdrFaxNumber 'может быть более 20 символов, но только первые 20 передаются в TSID
            .Email = SdrEmail
            .Company = SdrCompany
            .Department = SdrDepartment
            .Title = SdrTitle
            .OfficeLocation = SdrOfficeLocation
            .HomePhone = SdrHomePhone
            .OfficePhone = SdrOfficePhone
            .StreetAddress = SdrAddress
            .BillingCode = SdrBillingCode
          End If
          If Strings.Len(.TSID) = 0 Then ' проблемы если он пустая строка
            If Strings.Len(.FaxNumber) > 0 Then
              .TSID = Strings.Left(.FaxNumber, 20) 'Факс-сервер итак это сделает, но не более 20 символов
            Else
              .TSID = " " 'workaround, иначе можно загнуть службу факсов
            End If
          End If
        End With

        If ForceEmailAddress Then 'вынуждены использовать .Sender.Email т.к. ReceiptAddress недоступно на XP, да и некорректно
          'Provide the e-mail address for the mail2fax notification
          .Sender.Email = SdrEmail
        End If

        If Not Bodies Is Nothing Then
          dwRes = .ConnectedSubmit2(objFaxServer, JobID, ErrorBodyFile)
          If (dwRes <> S_OK) Or (ErrorBodyFile <> -1) Then
            SendFaxComEx = False
            err_text = RaiseAPIErrorByNumber(dwRes)
            'If ErrorBodyFile <> -1 Then
            '  err_text = RaiseAPIErrorByNumber(dwRes) & ". Error Index File = " & CStr(ErrorBodyFile)
            'Else
            '  err_text = RaiseAPIErrorByNumber(dwRes)
            'End If
          End If
        Else 'нет смысла делать .ConnectedSubmit2, если нет Body(s) + более точное описание ошибки если Cover Page также отсутствует
          JobID = .ConnectedSubmit(objFaxServer)
        End If
      End With

    Catch
      SendFaxComEx = False
      err_text = Err.Number.ToString & " (" & Err.Description & ")"
    End Try

    'Try : objFaxServer.Disconnect() : Catch : End Try

  End Function