LINE Developers首頁 ：https://developers.line.biz/zh-hant/

• 在LINE Developers Console 中建立 Channel

  • 步驟 1: 登入 LINE Developers Console

  • 步驟 2: 以開發者身份註冊 (僅須於第一次登入時進行)

  • 步驟 3: 建立新的 Provider

  • 步驟 4: 建立 channel

  • 步驟 5: 確認 Channel

依上面教學完成後，在下面二圖中取得User ID 和 ChannelAccessToken，並在VBA中使用以下兩種程式碼之一完成推播訊息。

'VBA第一種推播方式

Private Sub sendLine1(sendMsg As String)

channelAccessToken = "填入存取權杖" '取得方式請看上圖

UserID = "填入使用者ID"

'將資料推播到Line

Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

postData = "{""to"":""" & UserID & """, ""messages"":[{""type"":""text"",""text"":""" & sendMsg & """}]}}"

WinHttp.Open "POST", "https://api.line.me/v2/bot/message/push", False

WinHttp.SetRequestHeader "Content-Type", "application/json"

WinHttp.SetRequestHeader "Authorization", "Bearer " & channelAccessToken

WinHttp.send postData

End Sub

'VBA第二種推播方式

Private Sub sendLine2(sendMsg As String)

channelAccessToken = "填入存取權杖"

UserID = "填入使用者ID"

Dim myXML As Object

'將資料推播到Line

Set myXML = CreateObject("winHttp.winHttpRequest.5.1")

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