小编Rom*_*ain的帖子

如何使用VBA调用Microsoft Graph API？

问题

是否可以使用 VBA 代码调用 Microsoft Graph API？

如果是，如何处理O365授权？我看到很多主题都说要在 Microsoft Azure 中创建应用程序来获取令牌，但令我惊讶的是我必须为了简单的本地使用而这样做。

我尝试过的

发现 Microsoft Graph 后，我在 Graph Explorer 中尝试了此 API https://graph.microsoft.com/v1.0/planner/tasks

我能够在计划器中创建任务！

因此，在我看来，可以从直接在 Outlook 中执行的 VBA 代码调用此 API。

我在 Outlook 中创建了这个宏：

Sub TaskPlannerCreation()

    Dim PlannerService As New MSXML2.XMLHTTP60
    Dim sData As Variant

    sData = " { ""  ""planId"": ""K9Zv2QHm1U-GSAhd-PTGZfdFeOn"",""bucketId"": ""b6NVNiEIQkGZeBBzn7kWqJvAGvvs"",""title"": ""Outlook task"" } "

    With PlannerService
        .Open "POST", "https://graph.microsoft.com/v1.0/planner/tasks", False
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Accept", "application/json"
        .setRequestHeader "User-Agent", "xx"
        .Send (sData)

Run Code Online (Sandbox Code Playgroud)

我有一个授权错误