MSXML2.ServerXMLHTTPのカスタムヘッダー

Question

現在、MSXML2.ServerXMLHTTPを使用してPOST HTTPリクエストを送信しようとしています。 私の要求が承認されるようにカスタムヘッダー "Auth"を追加する必要がありますが、動作していないようです。 は、ここに私のポスト関数のコードです：

Function post(path As String, authToken As String, postData As String) As String 
    Dim xhr As Object 
    Dim message As String 
On Error GoTo error: 

    Set xhr = CreateObject("MSXML2.ServerXMLHTTP") 
    xhr.Open "POST", path, False 
    xhr.setRequestHeader "Content-Type", "application/json" 
    xhr.setRequestHeader "Auth", authToken 
    xhr.send postData 

    If xhr.Status = 200 Then 
    message = xhr.responseText 
    Else 
    message = xhr.Status & ": " & xhr.statusText 
    End If 

    Set xhr = Nothing 
    post = message 
error: 
    Debug.Print "Error " & Err.Number; ":" & Err.Description 
End Function 

そして、私は（私は自分のコンピュータ上で別の言語を使用しているため、メッセージが実際に翻訳された）「が見つかりませんでしたエラーヘッダー要求さ-2147012746」で終わります。

しかし、 "Microsoft.XMLHTTP"オブジェクトでこの問題は発生しませんでした。 何か間違っていますか？

ありがとうございます。

Answer 1

文字列リテラルを使用するには、SetRequestHeaderの呼び出しを変更してみてください。私はauthTokenに値が設定されていないときに問題を再現しました。この

xhr.setRequestHeader "Auth", "testdatahere"