VBAを使用したGraph APIのアクセストークンを取得

Question

これは私の最初のGraph API（VBA付き）を呼び出す試みですが、まだこれに対して1つのアクセストークンを取得できませんでした。 ドキュメントを読んだことがありますが、ユーザーに強制的にログインさせずにアクセストークンを取得するために適用する必要のあるフローはわかりません。これはOneDrive Personalアカウントで可能ですか？ここで

は私が（：nameless_test@outlook.com、userpass：nameless1234名）だけで、テスト用のアカウントを作成し

Sub Test_GetToken() 

    Dim xml As New MSXML2.XMLHTTP60 
    Dim url As String 

    url = "https://login.microsoftonline.com/namelles_test@outlook.com/oauth2/v2.0/token" 

    url = url & "?client_id=eca0b14c-1154-4768-8e45-2cb5639b7e0d" 
    url = url & "grant_type=client_credentials" 
    url = url & "&client_secret=VksZ8FeDF5XiRfqTBsgs628" 
    url = url & "&resource=https://graph.microsoft.com" 

    xml.Open "POST", url, False 
    xml.setRequestHeader "application", "x-www-form-urlencoded" 


    xml.send ("") 
    Debug.Print "status=" & xml.Status, "readyState=" & xml.readyState 

    Debug.Print xml.responseText 

    Set xml = Nothing 

End Sub 

を試してきたものです。したがって、実際の資格情報を使用することができます。 申し込みが必要なフローとリクエストがどのくらい正確に作成されたかを誰かに見せてもらえますか？ ありがとうございます

Answer 1

あなたのコードにメールが間違っているようです。

url = "https://login.microsoftonline.com/namelles_test@outlook.com/oauth2/v2.0/token" 

は次のようになります。

url = "https://login.microsoftonline.com/nameless_test@outlook.com/oauth2/v2.0/token" 

はまた、あなたのコメントに基づいて、あなたが要求の代わりに、URLのクエリパラメータのボディにgrant_typeを入れて持っているようです。

xml.send ("grant_type=client_credentials")