VBA ส่งข้อความ LINE Notify

VBA ส่งข้อความ LINE Notify

Public Sub Send()
    Dim myURL As String
    Dim Message As String
    Dim postData As String
    Dim winHttpReq As Object
    Message1 = WorksheetFunction.EncodeURL(Sheets(Sheets(1).Name).Range("a1").Text)

    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    myURL = "https://notify-api.line.me/api/notify"
    postData = "message=" + Message1
    winHttpReq.Open "POST", myURL, False
    winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    winHttpReq.SetRequestHeader "Authorization", "Bearer xxxxxxxxxxxxxxxxxxxxxxxx"
    winHttpReq.Send (postData)

    SendSMS = winHttpReq.responseText
End Sub