LINE WORKS

Function GetAccessToken() As String
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    Dim url As String
    url = "https://auth.worksmobile.com/oauth2/v2.0/token"
    
    Dim params As String
    params = "grant_type=client_credentials" & _
             "&client_id=YOUR_CLIENT_ID" & _
             "&client_secret=YOUR_CLIENT_SECRET" & _
             "&scope=bot.message"
    
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.send params
    
    Dim response As String
    response = http.responseText
    
    ' JSONパースしてアクセストークンを取得
    Dim json As Object
    Set json = JsonConverter.ParseJson(response)
    GetAccessToken = json("access_token")
End Function

Sub SendMessage()
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    Dim url As String
    url = "https://www.worksapis.com/v1.0/bot/message/send"
    
    Dim token As String
    token = GetAccessToken()
    
    Dim message As String
    message = "{""content"": ""Hello, Works!""}"
    
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", "Bearer " & token
    http.send message
    
    If http.Status = 200 Then
        MsgBox "Message sent successfully!"
    Else
        MsgBox "Failed to send message: " & http.responseText
    End If
End Sub