VBA結合line機器人自動推送訊息

最近花了許多時間研究Line機器人，以前都只能用line notify來發送給自己的訊息
但這麼會讓所有不同類別的訊息全部夾雜在line notify
如果可以用不同的機器人來推播不同的消息就好了
EX:一個機器人專門推播股票新聞，一個機器人專門推播天氣狀況...等等

今天終於學會怎麼做了!



首先，你當然要先有個line機器人
這部分算是蠻簡單的，到 https://developers.line.me/ 註冊一個機器人
網路上也有許多教學

接下來取得2樣東西
1.channel access token
如果沒有就按旁邊的issue，時間選 0 hour

2.userID
UsedID在最底下就可取得

然後將這兩樣東西帶入程式碼

Sub test()

Dim myXML As Object
Set myXML = CreateObject("winHttp.winHttpRequest.5.1")

channelAccessToken = ""
UserId = ""
sendMsg = "zzz"

With myXML
    .Open "POST", "https://api.line.me/v2/bot/message/push", False
    .setRequestHeader "Content-Type", "application/json"
    .setRequestHeader "Authorization", "Bearer " & channelAccessToken
    payLoad = "{""to"":""" & UserId & """, ""messages"":[{""type"":""text"",""text"":""" & sendMsg & """}]}}"
                 
    .send payLoad
 

End With

Set myXML = Nothing

End Sub

接下來只要按執行即可看到你的機器人出現訊息了!
(記得要先加自己機器人好友，只要掃上面的QR code就可以了)

參考資料
Line API reference

完整學習VBA自動化抓取網頁資料+資料圖表化，做出自己的股票研究系統

請參考

Excel VBA 金融資料抓取 | 打造股票研究系統

(學生數: 602，學員評價5顆星)