LINEに通知

作成したプログラムからLINEに通知が送られるようにしてみました。
流れは次の様な感じです。

①　LINE DeveloperのMessaging APIを使ってチャネルを作る。
②　必要な情報（アクセストークン、ユーザーID）を取得する。
③　②の情報を使って、プログラムを作る
④　使っているスマホ内LINEアプリで、①のチャネルを友達登録する。
⑤　③で作ったプログラムを実行する。

＜プログラム：Python＞

from linebot import LineBotApi
from linebot.models import TextSendMessage

# LINE Developersで生成したアクセストークンを設定
channel_access_token = 'アクセストークン'

# LINE Bot APIを初期化
line_bot_api = LineBotApi(channel_access_token)

# 送信するメッセージを作成
message = TextSendMessage(text='PythonからのLINE通知です。')

# 送信先ユーザーのLINE IDを設定
user_id = 'ユーザーのLINE ID'

# ユーザーにメッセージを送信
line_bot_api.push_message(user_id, message)

＜プログラム：EXCEL VBA＞

Sub SendLineNotification()
    Dim url As String
    Dim requestData As String
    Dim http As Object
    
    ' LINE Messaging APIのエンドポイント
    url = "https://api.line.me/v2/bot/message/push"
    
    ' LINE Developersで発行したチャネルアクセストークン
    Dim channelAccessToken As String
    channelAccessToken = "あなたのアクセストークン"
    
    ' 送信先ユーザーのLINE ID
    Dim userId As String
    userId = "ユーザーのID"

    ' 送信するメッセージ
    Dim messageText As String
    messageText = "EXCEL VBA からの通知です。"
    
    ' HTTPリクエストデータの組み立て
    requestData = "{""to"":""" & userId & """,""messages"":[{""type"":""text"",""text"":""" & messageText & """}]}"
    
    ' HTTPリクエストの作成
    Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' POSTリクエストの設定
    http.Open "POST", url, False
    http.SetRequestHeader "Content-Type", "application/json"
    http.SetRequestHeader "Authorization", "Bearer " & channelAccessToken
    
    ' リクエストの送信
    http.Send requestData
    
    ' レスポンスの表示
    MsgBox http.ResponseText
End Sub

スマホ側LINEアプリ