Welcome to the RingCentral Community

Hi !

We are using Visual Basic 6 to Send Http post request But unfortunaly the client receive empty Fax. here is our Base Code

Function CreateFaxMessage(strPath, _                            strStatus, _                            Receiver, _                            Optional coverPageText = "", _                            Optional strResponse = "", _                            Optional faxResolution As String = "High") As Boolean          '<EhHeader>          On Error GoTo CreateFaxMessage_Err          '</EhHeader>    100     If Not isLoggedIn Then                102         MsgBox "Le token daccs est Invalid"                Exit Function            End If                        Dim strFile, strExt, strContentType, strBoundary, bytData, bytPayLoad                On Error Resume Next    104     With CreateObject("Scripting.FileSystemObject")    106         If .FileExists(strPath) Then  108             strFile = .GetFileName(strPath)  110             strExt = .GetExtensionName(strPath)              Else  112             strStatus = "File not found"  114             CreateFaxMessage = False                                Exit Function                End If            End With        116     With CreateObject("Scripting.Dictionary")  118         .Add "txt", "text/plain"  130         .Add "jpeg", "image/jpeg"  132         .Add "jpg", "image/jpeg"  134         .Add "png", "image/png"  138         .Add "doc", "application/msword"  140         .Add "docx", "application/vnd.openxmlformats-officedocument.wordprocessingml.document"  142         .Add "xls", "application/vnd.ms-excel"  144         .Add "xlsx", "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"  146         .Add "pdf", "application/pdf"  148         strContentType = .Item(LCase(strExt))          End With        150     If strContentType = "" Then  152         strStatus = "Invalid file type"  154         CreateFaxMessage = False              Exit Function          End If              174     strBoundary = String(2, "-") & Replace(Mid(CreateObject("Scriptlet.TypeLib").Guid, 2, 36), "-", "")      Dim nFile           As Integer      Dim baBuffer()      As Byte      Dim sPostData       As String             '--- read file      nFile = FreeFile      Open strPath For Binary Access Read As nFile      If LOF(nFile) > 0 Then          ReDim baBuffer(0 To LOF(nFile) - 1) As Byte          Get nFile, , baBuffer          sPostData = StrConv(baBuffer, vbFromUnicode)      End If      Close nFile      '--- prepare body          sPostData = strBoundary & vbCrLf & _          "Content-Disposition: form-data; name=""attachment""; filename=""" & strFile & """" & vbCrLf & _          "Content-Transfer-Encoding: binary" & vbCrLf & _          "Content-Type: " & strContentType & vbCrLf & vbCrLf & _          sPostData & vbCrLf          sPostData = sPostData & strBoundary & "--"                                      Dim params As String           220     params = strBoundary & vbCrLf  222     params = params & "Content-Disposition: form-data; name=""faxResolution""" & vbCrLf & vbCrLf  224     params = params & faxResolution & vbCrLf            232     params = params & strBoundary & vbCrLf          params = params & "Content-Disposition: form-data; name=""to""" & vbCrLf & vbCrLf          params = params & Receiver & vbCrLf                                        Dim XMLHTTP As Object    218     Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")    240     With XMLHTTP  242         .setTimeouts 0, 60000, 300000, 300000  244         .Open "POST", FaxURL, False  246         '.setRequestHeader "Accept", "application/json; boundary=" & strBoundary  248         .setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Mid(strBoundary, 3)  250         .setRequestHeader "Authorization", "Bearer " & RingCentral.AccessToken  252         .send params & sPostData           254        ' If Err.Number <> 0 Then  256          '   strStatus = Err.Description & " (" & Err.Number & ")"             ' Else  258             ' End If    260         If Ok(.status) Then  262             strResponse = .responseText  264             CreateFaxMessage = True                       Else  266             MsgBox .statusText & " (" & .status & ")"              End If                    End With            '<EhFooter>          Exit Function    CreateFaxMessage_Err:          MsgBox Err.Description & vbCrLf & _                 "in Projet1.RingCentralManager.CreateFaxMessage " & _                 "at line " & Erl, _                 vbExclamation + vbOKOnly, "Application Error"          Resume Next          '</EhFooter>  End Function