在 Excel VBA 中使用 LINE Notify 發送訊息的教學

在這篇教學中，我們將介紹如何使用 Excel VBA 來發送訊息到 LINE Notify。LINE Notify 是 LINE 提供的服務，可以透過 API 發送訊息到 LINE 上。這篇教學將帶你步驟一步完成設置。

Desola Lanre-Ologun on Unsplash

取得 LINE Notify 權杖

1. 前往 LINE Notify 官方網站。
2. 點選「登入」並使用你的 LINE 帳號登入。
3. 點選「發行權杖」，並在出現的畫面中設定一個名稱，點選「發行」。
4. 複製你取得的權杖（token），這將用於程式碼中作為認證用。

設定 Excel VBA 程式碼

打開 Excel，按下 Alt + F11 進入 VBA 編輯器，然後新增一個新的模組（Module）。將以下程式碼貼入模組中：

Sub SendLineNotifyMessage()

    ' 請將下面的 access token 替換為你自己的 LINE Notify 權杖
    Dim accessToken As String
    accessToken = "你的LINE Notify權杖"

    ' 訊息內容
    Dim message As String
    message = "這裡是你要發送的訊息內容"

    ' LINE Notify 的 API 網址
    Dim apiUrl As String
    apiUrl = "https://notify-api.line.me/api/notify"

    ' 使用 XMLHTTP 物件來發送 POST 請求
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    
    ' 設定 POST 請求的相關屬性
    http.Open "POST", apiUrl, False
    http.setRequestHeader "Authorization", "Bearer " & accessToken
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
    ' 設定 POST 請求的內容，這裡是訊息內容
    Dim postData As String
    postData = "message=" & message
    
    ' 發送 POST 請求
    http.send (postData)
    
    ' 如果需要檢查回應，可以使用下面的程式碼
    ' Debug.Print http.responseText
    
    ' 釋放 HTTP 物件
    Set http = Nothing

End Sub

設定程式碼中的變數

• accessToken：將程式碼中的 "你的LINE Notify權杖" 替換為你在步驟 1 中取得的 LINE Notify 權杖。
• message：將 message 變數的內容修改為你想要發送的訊息內容。

執行 VBA 程式碼

按下 VBA 編輯器中的執行按鈕（或按下 F5），程式碼會發送一個 HTTP POST 請求到 LINE Notify 的 API 網址，發送你設定的訊息到你的 LINE 帳號。

注意事項：

• 請確保你的電腦能夠連接到網際網路。
• 確保你有正確的權杖和訊息內容。
• 如果需要更複雜的功能或更多的參數，請參考 LINE Notify 官方文件。

這樣，你就完成了在 Excel VBA 中使用 LINE Notify 發送訊息的設置和執行。希望這篇教學對你有幫助！