【LINE Messaging APIの使い方解説（その３）】チャンネル登録者全員に一斉にメッセージ配信

こんにちは、くのへです！
LINEのMessaging APIを使おう！というテーマで記事を書いて行きます。
前回の記事ではLINEのMessaging APIを使ってメッセージを送信しました！

でもこの方法だと、実は自分にしかメッセージが飛んできません。
自分以外のチャンネル登録者には全くメッセージが飛んでいないのです。

これは、前回の記事は「プッシュメッセージ」という仕組みを使っているため、所定のユーザIDの人にだけ送られる仕組みだったためです。
今回の記事はチャンネルの友達登録者全員に一斉にメッセージを送る「ブロードキャストメッセージ」を解説します。

なお、次回の記事では「メッセージオブジェクト」について解説したいと思います。メッセージオブジェクトを習得すればテキストだけではなく絵文字やLINEアイコンを送ることが出来ますよ。

LINEにブロードキャストメッセージを送る（GoogleAppsScript）

LINEにブロードキャストメッセージを送るプログラム（GoogleAppsScript）は、ずばりこちらです。
「ACCESS_TOKEN」の値は、前回の記事のアクセストークンを書いて下さい（クオーテーションの間のXXXXXの部分を書き換え。クオーテーションは消さないでね）。

function BroadCastmessageToLine() {
  const ACCESS_TOKEN = 'XXXXX';

  var url = 'https://api.line.me/v2/bot/message/broadcast';

  var headers = {
    'Content-Type': 'application/json; charset=UTF-8',
    'Authorization': 'Bearer ' + ACCESS_TOKEN
  };

  var message = "Hello BroadCastMessage";

  var data = {
    'messages': [
      {
        'type': 'text',
        'text': message
      }
    ]
  };


  var options = {
    'method': 'post',
    'headers': headers,
    'payload': JSON.stringify(data)
  };

  UrlFetchApp.fetch(url, options);

}

さて、これを実行してみましょう。
実行すると、、、「Hello BroadCastMessage」というメッセージが届くはずです！！

キターー！！！
コードの中央の「Hello BroadCastMessage」を書き換えると、メッセージが変わります。

LINEにメッセージを送る（VBA）

なお、ExcelVBAで同じことをやってみると、次のコードになります。
これもACCESS_TOKENの値は、自分のものを使ってください。

Sub BroadCastmessageToLine()

    ' LINEのアクセストークンとユーザーIDを設定
    Dim ACCESS_TOKEN As String
    Dim USER_ID As String
    ACCESS_TOKEN = "XXXXX"
    
    ' URLの設定
    Dim url As String
    url = "https://api.line.me/v2/bot/message/broadcast"
    
    ' メッセージの内容
    Dim message As String
    message = "Hello Line from VBA"
    
    ' JSONデータを作成
    Dim data As String
    data = _
    "{" & vbCrLf & _
    """messages"": [" & vbCrLf & _
        "{" & vbCrLf & _
          """type"": ""text""," & vbCrLf & _
          """text"": """ & message & """" & vbCrLf & _
        "}" & vbCrLf & _
      "]" & vbCrLf & _
    "}"


    Dim xmlhttp As Object
    ' HTTPリクエストの設定
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP.6.0")
    With xmlhttp
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json; charset=UTF-8"
        .setRequestHeader "Authorization", "Bearer " & ACCESS_TOKEN
        .send data
    End With

    ' レスポンスの確認
    If xmlhttp.Status = 200 Then
        MsgBox "メッセージが送信されました。"
    Else
        MsgBox "送信エラー: " & xmlhttp.Status & " - " & xmlhttp.responseText
    End If

    Set xmlhttp = Nothing
End Sub

これで実行すると、、、

ちゃんとLINEにキターーー！！！

LINEにメッセージを送る（Python）

Pythonだとこうなります。（これもACCESS_TOKENとUSER_IDの値は、前項で取得した値をコピペしましょう。）

import requests
import json

def BroadCastmessageToLine():
    ACCESS_TOKEN = "XXXXX"
    
    url = "https://api.line.me/v2/bot/message/broadcast"
    
    headers = {
        "Content-Type": "application/json",
        "Authorization": f"Bearer {ACCESS_TOKEN}"
    }
    
    message = "Hello Line from Python"
    
    data = {
        "messages": [
            {
                "type": "text",
                "text": message
            }
        ]
    }
    
    response = requests.post(url, headers=headers, data=json.dumps(data))
    
    if response.status_code == 200:
        print("メッセージが送信されました。")
    else:
        print(f"送信エラー: {response.status_code} - {response.text}")

# 関数を実行
BroadCastmessageToLine()

これを実行すると、、、