vba - VBA ServerXMLHTTP コードは Windows 7 では機能しますが、Windows 10 では失敗します

Question

Microsoft Access で VBA を使用して、XML をサーバーに送信し、応答文字列を取得しています。Windows 7 では問題なく動作します。最近、一部のユーザーが Windows 10 にアップグレードしたため、これが機能しなくなりました (Office 16 のすべてのユーザー)。具体的なエラー: -2147012867 - サーバーとの接続を確立できませんでした。

エラーは xsite.send 行で発生します

コードは次のとおりです。

Dim xsite As ServerXMLHTTP60
Set xsite = New ServerXMLHTTP60

On Error Resume Next

xsite.setTimeouts 0, 60000, 30000, 600000

xsite.Open "POST", pServerURL & func, False
aErr = Array(Err.Number, Err.Description)
On Error GoTo 0
If 0 = aErr(0) Then 'No error creating the link
    xsite.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    'Set request header with Base64-encoded username/password
    xsite.setRequestHeader "Authorization", "Basic " & EncodeBase64(UserName & ":" & Password)
    On Error Resume Next
    xsite.send "xmlData=" & URLEncode(xmldata)
    aErr = Array(Err.Number, Err.Description)
    On Error GoTo 0

    Debug.Print aErr(0)
    Debug.Print aErr(1)
End If

何か案は？