Dim HttpClient As Object,url As String
Set HttpClient = CreateObject("MSXML2.ServerXMLHTTP")
mKEY = "ZOWe17zgDOzPCwcgBvugMg4ADFeLKenIj7zmJP9MTYs"
msg = "message=" & vbCrLf & "This is test message."
url = "https://notify-api.line.me/api/notify"
HttpClient.Open "POST", url, False
HttpClient.SetRequestHeader "Authorization", "Bearer " & mKEY
HttpClient.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
HttpClient.Send msg