@dovid צודק. התקמצנתי....
זה הקוד:
Dim oHttp As Object
Dim sURL As String
Dim Body As String
Set oHttp = CreateObject("MSXML2.XMLHTTP")
sURL = "https://www.myofficeguy.com/api/accounting/customers/create/"
oHttp.Open "POST", sURL, False
oHttp.setRequestHeader "Accept", "text/plain"
oHttp.setRequestHeader "Content-type", "application/json-patch+json"
Body = "{ ""Details"":{""ExternalIdentifier"":null,""NoVAT"":null,""SearchMode"":null,"""
Body = Body & "Name"":" & Chr(34) & name & Chr(34) & ",""Phone"":" & Phone & ",""EmailAddress"":" & Mail & ","""
Body = Body & "City"":" & City & ",""Address"":" & Add & ",""ZipCode"":null,"""
Body = Body & "CompanyNumber"":" & tz & ",""ID"":null,""Folder"":null},"""
Body = Body & "Credentials"":{""CompanyID"":xxxxxxxxxx,""APIKey"":""xxxxxxxxxxxxxxxxx""},""ResponseLanguage"":null}"""
oHttp.send Body
זה קוד להוספת לקוח באתר של אופיס גיא (ניהול חשבונות)
הוא נתקע בשורה האחרונה.
תודה.
