שגיאה בגישה לAPI

[ארי]

שבוע טוב.
אני משתמש בקוד API - POST לגשת לאתר של ניהול חשבונות.
לפני כמה ימים פתאום בחלק מהמחשבים התחיל לי שגיאה "the download of the specified resource has failed vba access".
בשאר המחשבים זה עדיין עובד.
מישהו יודע איך אפשר לפתור את זה?
תודה!

[dovid]

@ארי בנוסח הנכחי, זה שאלה שמתאימה לגומלין...

אני משתמש בקוד API - POST

יש מצב לגלות לנו טפח או מילימטר מהקוד/ספריה/כלי שעושה את זה, ומי ובאיזה שורה פולט את השגיאה?

[ארי]

@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

זה קוד להוספת לקוח באתר של אופיס גיא (ניהול חשבונות)
הוא נתקע בשורה האחרונה.
תודה.

[dovid]

@ארי
בשני המחשבים הנתונים נשלחים זהים לגמרי? כלומר האם ניסת את אותם ערכים בname וphone וכולי?

פה: https://stackoverflow.com/a/44594589/1271037
מישהו אומר ששינוי השורה הראושנה בקוד שלך

Set oHttp = CreateObject("MSXML2.XMLHTTP")

לזה:

    Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")

עשויה לעזור.

[ארי]

@dovid אמר בשגיאה בגישה לAPI:

@ארי
בשני המחשבים הנתונים נשלחים זהים לגמרי? כלומר האם ניסת את אותם ערכים בname וphone וכולי?

כן

לא עזר (נשאר אותו הדבר).
תודה.