Slackのアプリ追加
・Slack ワークスペースにログインします。
・Slack APIのページ にアクセスして、Your Apps をクリックします。
・Create New App ボタンをクリックします。
・アプリの名前とワークスペースを選択し、Create App ボタンをクリックします。
・OAuth & Permissions セクションに移動します。
・Scopes セクションの下で、chat:write / channels:read 権限を追加します。
・サイドバーからApp Homeを選択 Botの名前を編集
・ページの上部にある Install Appボタンをクリックして、さらに innstall to Workspace ボタンクリックしてアプリをインストールします。
・アプリがインストールされたら、OAuth & Permissions ページに表示される OAuth Access Token をコピーして、後で使用するために保存しておきます。
VBAコード
Sub SendMessageToSlack(channel As String, message As String)
Dim objRequest As Object
Dim strURL As String
Dim strToken As String
Dim strPostData As String
' Slack APIのURL
strURL = "https://slack.com/api/chat.postMessage"
' OAuth Access Tokenをセット
strToken = "xoxb-HOGEHOGE" ' この部分を取得したトークンに置き換えてください
' POSTデータの作成
strPostData = "token=" & strToken
strPostData = strPostData & "&channel=" & channel
strPostData = strPostData & "&text=" & message
' HTTPリクエストの作成
Set objRequest = CreateObject("MSXML2.ServerXMLHTTP")
With objRequest
.Open "POST", strURL, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send strPostData
End With
' レスポンスを確認 (オプション)
Debug.Print objRequest.responseText
Set objRequest = Nothing
End Sub
Sub mess()
Call SendMessageToSlack("追加したbotのチャンネルID", "テストメッセージです")
End Sub
