常連

### 前提・実現したいこと
　あるツールの持つ機能「Webhook」を用いて、GooleAppsScriptで記載された処理を実行をしたいと考えてます。
　しかし、G-SUITE上のスクリプトの公開設定で”アプリケーションにアクセスできるユーザー”が
　　自分自身　or （G-SUITEの）組織メンバー
　の二択しか選択できないようです。
　（Googleの一般ユーザーアカウントであれば、
　「公開／アプリケーションにアクセスできるユーザー」に”全員（匿名ユーザー含む）”の選択肢がありました。）

　ここで、あるツールのWebhookはPOSTリクエストを発行できるのですが、
　受け側のG-SUITE/GASが、上記の状態（制約）のため、アクセスできません。
　（”あるツール”が匿名ユーザーアクセスに当たるためだと推測）
　
　G-SUITE/GASの公開設定で”全員”を可能にする方法、
　または、
　何かしら回避する方法
　はないものでしょうか？
　（G-SUITEの使用が大前提と考えてます。）

 補足：
　　・GAS＝＞シンプルトリガーであるdoPostにて、chatwrokの投稿内容を判断して、処理し、
　　　　　　　chatworkにメッセージを返すbotを作成
　　・”あるツール”　＝＞　chatworkのwebhook機能を利用。新規投稿があれば、上記の公開したGASを実行する。

GASの「公開／アプリケーションにアクセスできるユーザー」に”全員”が選択できない

### 実現したいこと
javascriptでkintoneというシステムからchatworkへ通知を飛ばす処理を行いたいです。


### 発生している問題・分からないこと
kintone内の他アプリで既に正常に動いている(kintoneでレコード保存時にchatworkへ通知が飛ぶ)ソースコードがあったため、ほぼコピーして作成したのですが、通知が飛ばずに困ってます。レコード自体は正常にkitnoneに保存されます。



### 該当のソースコード

```
;(function () {
	"use strict"
	const reqColumn = "フィールドユーザ選択"
	let reqColumn_Checked = null

	const API_TOKEN = "チャットワークAPIトークン"
	const ROOM_ID = "通知(タスク)したいチャットワークルームID"

	// 作成・編集画面を開いたタイミングの値を取得する
	kintone.events.on(
		["app.record.index.edit.show", "app.record.create.show", "app.record.edit.show"],
		function (event) {
			reqColumn_Checked = event.record[reqColumn]?.value[0]?.code || null
			return event
		}
	)
	// 更新処理後に値を比較してChatworkに通知を飛ばす処理を走らせる
	kintone.events.on(
		[
			"app.record.index.edit.submit.success",
			"app.record.create.submit.success",
			"app.record.edit.submit.success",
		],
		function (event) {
			// チェック対象のカラムが編集開始時点で入力されていれば処理を終了
			if (reqColumn_Checked != null) return event
			// 保存ボタンを押したタイミングの値を取得
			const checkColumnAfter = event.record[reqColumn]?.value[0]?.code || null
			// 未入力だったら処理を終了
			if (!checkColumnAfter) return event

			const toId = event.record.フィールドID.value
			console.log(toId)
			const title = "TEST"

			// Chatworkへの通知内容
			createTaskAtChatworkRoom(
				API_TOKEN,
				ROOM_ID,
				toId,
				title,
				event.record.$id.value
			)
			return event
		}
	)
	// Chatwork送信処理
	function createTaskAtChatworkRoom(
		apiToken,
		chatroomId,
		toId,
		title,
		recordId
	) {
		if (!toId) {
			window.alert(
				"Chatwork ID が設定されていません"
			)
			console.log("Chatwork ID が設定されていません")
			return
		}
		const uri = `https://api.chatwork.com/v2/rooms/${chatroomId}/tasks`;
		const header = {
			"Access-Control-Allow-Origin": uri,
			"X-ChatWorkToken": apiToken,
			"Content-Type": "application/x-www-form-urlencoded",
		}
		const msg = `[info][title]通知[/title]${title}[info][title]レコード[/title]#record=${recordId}[/info][/info]`
		console.log(msg)
		const body = `body=${msg}&to_ids=${toId}&amp;self_unread=0`
		console.log(body)
		return kintone.proxy(uri, "POST", header, body)
	}
})()
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
kitnone chatwork 連携 を調べましたが、JavaScriptでの実装方法が見つかりませんでした。
レコードは保存できており、コンソールを見るに値取得はできていそうです。

### 補足
知識が乏しい自覚はあるのですが、周囲に頼れる環境がなく、ご教授いただけますと幸いです。

kintoneでchatworkに通知を飛ばしたい

**Google スプレッドシートの特定の範囲が変更された場合に、
Chatwork に通知を送信するコード生成しました。
しかし、実行→エラーがでないものの、チャットワークにメッセージが届きません。
**
Q)　何が悪いか教えて頂けますと幸いです。

【再確認したもの】
①「cellAddress」を適切に設定する
M 列のすべてのセルを監視したいので、「M:M」と指定。

②シート名を正しく設定する

③Chatwork API キーとルーム ID を適切に設定する
chatworkAPIKey 変数とchatworkRoomID 変数を適切に設定してます。
プロパティも追加しております。

④onEdit トリガーを設定する

コード
```
function onEdit(e) {
  if (!e) return;
  
  var spreadsheetId = "スプシID";
  var sheetName = "シート名"; // replace with the name of your sheet
  var cellAddress = "M:M"; // replace with the range of cells you want to monitor
  var chatworkAPIKey = "CAPIkey"; // replace with your Chatwork API key
  var chatworkRoomID = "CID"; // replace with the ID of the Chatwork room you want to send the notification to

  var sheet = e.source.getActiveSheet();
  var range = e.range;

  if (sheet.getName() == sheetName && range.getA1Notation() == cellAddress) {
    var message = "The range " + cellAddress + " in sheet " + sheetName + " was updated by " + e.user.getEmail();
    var options = {
      "method": "post",
      "payload": { "body": message },
      "headers": {
        "X-ChatWorkToken": chatworkAPIKey,
        "Content-Type": "application/x-www-form-urlencoded"
      }
    };
    var url = "https://api.chatwork.com/v2/rooms/" + chatworkRoomID + "/messages";
    UrlFetchApp.fetch(url, options);
  }
}


スプシ更新時、Chatwork に通知を送信する方法。

### 前提・実現したいこと

チャットワークからpythonでデータを取得するコードを書いています。

### 発生している問題・エラーメッセージ

printにて変数にデータが格納されていることは確認できているのですが
最後の出力にてエンコードエラーが出てしまいます。


### 該当のソースコード

import requests
import json
import re

headers = {
    'X-ChatWorkToken': 'xxxxxxx'
}

info_pattern = re.compile(r'[info](.*?)[/info]', flags=re.DOTALL)

response = requests.get('https://api.chatwork.com/v2/rooms/xxxxxxx/messages?force=1', headers=headers)

if response.status_code==200:
    messages = response.json()
    with open('chat.log','a') as f:
        for message in messages:
            body = message['body']
            print(message)
            print(body)
            for info in info_pattern.findall(body):
                print(info)
                f.write((info + '\n').encode('cp932', 'ignore'))
### 試したこと

その解消のため、ignore処理をしたのですが
write() argument must be str, not bytes
のエラーがでてしまい、先に進めなくなってしまいました。

過去質問等も参考にしたのですが、わからなかったため
どう処理すればよいかご教授いただきたいです。

【python】write() argument must be str, not bytes のエラーの解決方法が知りたい

### 実現したいこと

営業時間外であれば「営業時間外です」と表示させたい

### 前提

GASで　営業時間外に「ChatWork」にメッセージが来たら自動的に「営業時間外です」という表示をしたいのだが、対応しているルームに営業時間外でメッセージを送るが「営業時間外です」というメッセージが表示されません。このコード自体は下記のサイトをほぼそのまま利用して作ったのだが、どういうわけかGASエディタ内では動くものの、Weｂhookに設定を変えた途端上手く出来ません。
セキュリティ関連で何か起きているのかそれともなにか見逃しているのか見当がつきません。
お願いします。

・下記のサイトを基にしてプログラムを作成した
https://creators-note.chatwork.com/entry/gas-auto-reply

パソコン　スペック　windows10


以下試した事
・webhooktest()を作成し、そのコードをGAS上のエディタで実行を行ってみると該当の
ルームに「営業時間外」と表示させる事が出来た。



### 発生している問題・エラーメッセージ

```
// 【編集対象】Chatwork API Token
const token = 'aaaa';//（※実際は違うものを記載しています）
// 【編集対象】営業時間（数字4桁、例：8時→0800、20時30分→2030）
const open_time_hhss = '0900';
const close_time_hhss = '1000';
// 【編集対象】自動応答対象グループチャットのルームID
const target_room_id = '1111';//（※実際は違うものを記載しています）
// 【編集対象】自動応答メッセージ
const replay_message = '申し訳ございません、営業時間外となります。';

function doPost(e) {
  
   Logger.log('Received Request: ' + JSON.stringify(e));

  let json = JSON.parse(e.postData.contents);
  let from_account_id = json.webhook_event.from_account_id;
  let message_id = json.webhook_event.message_id;
  let room_id = json.webhook_event.room_id;

  let send_time = new Date(json.webhook_event.send_time*1000);  // メッセージ送信時間
  let open_time = getDateFromString(open_time_hhss);  // 営業時間（開始）
  let close_time = getDateFromString(close_time_hhss);  // 営業時間（終了）


  if(send_time < open_time || close_time < send_time){
    // 営業時間外か
    if(checkRoomID(room_id)){
    // 自動応答対象のグループチャットの場合、定型文を送信
      var message = '';
      message += '[rp aid=' + from_account_id;
      message += ' to=' + room_id + '-' + message_id + '] ';
      message += replay_message;
      var client = ChatWorkClient.factory({token: token});
      client.sendMessage({
        room_id: room_id,
        body: message
      });
    }
  }


}





// 文字列（hhss）をDate型にして返却する
function getDateFromString(hhss){
  let date = new Date();
  date.setHours(hhss.substr(0,2));
  date.setMinutes(hhss.substr(2,2));
  date.setSeconds(0);
  return date;
}

// 指定したグループチャットのルームIDか判断する
function checkRoomID(room_id){
  if(target_room_id.split(',').includes(String(room_id))){
    return true;
  }
  return false;
}


function testWebhook() {
  // テストデータを作成します。これは実際のWebhookデータを模倣します。
  var testData = {
    postData: {
      contents: JSON.stringify({
        webhook_event: {
          from_account_id: '12345', // 送信元アカウントID
          message_id: '67890',      // メッセージID
          room_id: '1111',  // ルームID（※実際は違うものを記載しています）
          send_time: Math.floor(Date.now() / 1200) // 現在時刻（UNIXタイムスタンプ）
        }
      })
    }
  };

  // doPost関数を呼び出してテストを実行します
  doPost(testData);
}
```



### 試したこと

・webhooktest()を実行して該当のルームに「営業時間外」というメッセージはちゃんと届いていた
・ちなみにdoPostの最初にあるログは以下のようなのが出ました

15:04:38	情報	Received Request: {"postData":{"contents":"{\"webhook_event\":{\"from_account_id\":\"12345\",\"message_id\":\"67890\",\"room_id\":\"1111\",\"send_time\":1411938232}}"}}

・設定や操作のミスの可能性もあるので以下どういう手順で行ったかも写真つきで説明します。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-10/03b8ab91-0d81-4ae3-86e4-6661d90ff1a9.png)
1.デブロイボタンを押した

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-10/581fa18e-dc73-4d42-9515-920de69efb41.png)
２．URLのコピーを行い、その後完了ボタンを押した

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-10/adf6254b-145a-41b3-8ece-2c6604c0dd22.png)

3、上記の設定を押した後にしたにある保存ボタンを押した。

４，別のアカウントから該当のルームにメッセージを送るが、営業時間外というのが返ってこなかった。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
・実験的なこともあるのでルームの部分も送信者もどちらも個人事業主のフリープランとして実行を行った。
・４の後のGASコートエディタの実行の履歴の確認では、実行を行ったデータはなかった。あってもエディタ時にWebhooktest()を行った記録とデブロイ関係のしかなかった。![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-10/f0dab6f6-a9d3-4eaa-8ab9-8a6ff77cae4e.png)

【GAS×チャットワーク】Webhookを用いて　doPostを起動したいが出来ない

### 実現したいこと
chatworkと連携させているフォームを正しく機能させ、フォーム送信した内容がchatworkに投稿されるようにしたいです。
APIトークン以外の部分は変更していません。

### 発生している問題・分からないこと
APIトークンを変更したところ、これまで正常に作動していたGASがエラーを起こすようになってしまいました。

### エラーメッセージ
```error
TypeError: Cannot read properties of undefined (reading 'response')
onSubmit	@ コード.gs:3
```

### 該当のソースコード

```
function onSubmit(event) {
  var response = event.response;
  var itemResponses = response.getItemResponses();
  
  var Name = "〇〇さん"; 　　// ★要変更★　
  var chatworkToken = 'ここにAPIトークンを入力しています'; // ChatworkのAPIトークンを入力してください　※現在は管理用アカウントに設定
  var roomId = 'ルームID'; // ★要変更★　送信先のグループチャットのIDを入力してください
  
  var message = "";
  
  for (var i = 0; i < itemResponses.length; i++) {
    var itemResponse = itemResponses[i];
    var question = itemResponse.getItem().getTitle();
    var answer = itemResponse.getResponse();
    
    message += question + ":　" + Name + "　" + answer + "\n";
  }
  

  
  var chatworkUrl = 'https://api.chatwork.com/v2/rooms/' + roomId + '/messages';
  var options = {
    method: 'POST',
    headers: {
      'X-ChatWorkToken': chatworkToken,
      'Content-Type': 'application/x-www-form-urlencoded',
    },
    payload: {
      body: message,
    },
  };

  var response = UrlFetchApp.fetch(chatworkUrl, options);
  Logger.log(response.getContentText());
}
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
eを取得できていないというところまでは理解したのですが、トークンの変更しかしていないためどうすればよいか分かりません。

### 補足
特になし

chatworkと連携したフォームのGASが正常に作動しなくなった

### やりたいこと
別の用件で、関係ないグループチャットにメッセージが300件ほど送信されてしまい、
さすがに見た目が悪いので一括削除したい

### 発生している問題・エラーメッセージ
・検索かけても削除フルコードが転がっておらず自分でできない


### 該当のソースコード
メッセ削除API
http://developer.chatwork.com/ja/endpoint_rooms.html#DELETE-rooms-room_id-messages-message_id
```ここに言語名を入力
DELETE/rooms/{room_id}/messages/{message_id}
curl -X DELETE -H "X-ChatWorkToken: 自分のAPIトークン" "https://api.chatwork.com/v2/rooms/{room_id}/messages/{message_id}"
```

### 試したこと
削除したいmessage_idは下記コードで取得済みです
取得API　http://developer.chatwork.com/ja/endpoint_rooms.html#GET-rooms-room_id-messages
・100個のmessage_idをシートに記載している
・その範囲を{message_id}に入れたい
・削除して再度取得→削除を繰り返して300件ほど削除したい(最大100件まで取得の仕様なため)
```
function getmessage(){
  var params = {
    headers : {"X-ChatWorkToken" : 'トークン'},
    method : "get"
  };
  var roomID = ルームID; 
  var url = "https://api.chatwork.com/v2/rooms/" + roomID + "/messages?force=0"; //指定のグループチャットからメッセージを取得
  var strRespons = UrlFetchApp.fetch(url, params); //チャットワークAPIエンドポイントからレスポンスを取得
  var mySS = SpreadsheetApp.openById("スプシーxxxxx");
  var sheet = mySS.getSheetByName('シート24').getRange(1, 1);

  var json = JSON.parse(strRespons.getContentText()); //文字列をJSON形式として解析しJSONオブジェクトとして返す
 
  for each(var obj in json){
  Logger.log(obj.body);
  }
     for(var i=1; i<json.length; i++) {

      // スプレッドシートに書き込む
      sheet.offset(i, 0).setValue(json[i]["message_id"]);
      sheet.offset(i, 1).setValue(json[i]["body"]);　

}
}
```

チャットワークのメッセージを複数件一括削除したい

### 前提・実現したいこと

こんにちは。初めて質問させていただきます。
会社で事務をしている非エンジニアです。

Excelのマクロを利用して、ローカルにあるPDFファイル（請求書）をchatworkにアップロードしようとしています。
ボタンを押したら下記uploadFile()が実行され、Excelと同じフォルダにあるPDFファイルをchatworkにアップロードしたいと思っています。

### 発生している問題・エラーメッセージ

レスポンスでファイルIDが返ってきますが、該当のチャットにはファイルがアップロードされていません。
コード上でもエラーメッセージはなく正常に終了します。
問題の特定、切り分けができず投稿させていただきました。

### 該当のソースコード

```VBA
Const adTypeBinary = 1
Const adTypeText = 2

Const adBTypeContent = 1
Const adBTypeBody = 2
Const adBTypeFooter = 3

Public Function uploadFile() As Boolean


    Dim FilePath As String: FilePath = ThisWorkbook.Path & "\請求書" & ".pdf"
    Dim ROOM_ID As String: ROOM_ID = ｛roomID｝
    Dim strMethod As String: strMethod = "POST"
    Dim strUri As String: strUri = "https://api.chatwork.com/v2/rooms/" & ROOM_ID & "/files"
    Dim API_TOKEN As String: API_TOKEN = {APITOKEN}
    Dim strResult As String

    '---------------------------------
    '　リクエストパラメタ用の領域を生成
    '---------------------------------
    Dim tempParamStream As Object
    Set tempParamStream = CreateObject("ADODB.Stream")
    tempParamStream.Open

    '---------------------------------
    '　リクエストパラメタ作成
    '---------------------------------
    Dim filename As String
    filename = Dir(FilePath)

    If SetFileParmater(tempParamStream, "file", filename, "application/pdf", FilePath) Then
    End If

    If SetEndParameter(tempParamStream) Then
    End If

    '---------------------------------
    '　リクエストパラメタ取得
    '---------------------------------
    Dim snedParameter As Variant
    GetSendParameter snedParameter, tempParamStream

    '---------------------------------
    ' リクエスト
    '---------------------------------
    Dim objHTTP As XMLHTTP60
    Set objHTTP = New XMLHTTP60
    objHTTP.Open strMethod, strUri, False
    objHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=" + getBoundy(adBTypeContent)
    objHTTP.setRequestHeader "X-ChatWorkToken", API_TOKEN
    objHTTP.send snedParameter

    statusCode = objHTTP.Status

    strResult = StrConv(objHTTP.responseBody, vbUnicode)
    Set objHTTP = Nothing

    uploadFile = True
End Function

Private Function SetNomarlParameter( _
                    ByRef tempParamStream As Object, _
                    ByVal fname As String, _
                    ByVal fvalue As String) As Boolean

    If fvalue <> "" Then

        ChangeStreamType tempParamStream, adTypeText

        Dim params As String
        params = ""
        params = params + getBoundy(adBTypeBody)
        params = params + "Content-Disposition: form-data; name=""" + fname + """" + "; filename=" + fvalue + vbCrLf
        params = params + fvalue + vbCrLf

        tempParamStream.WriteText params

    End If

    SetNomarlParameter = True
End Function

Private Function SetFileParmater( _
                            ByRef tempParamStream As Object, _
                            ByVal fname As String, _
                            ByVal fvalue As String, _
                            ByVal fct As String, _
                            ByVal fpath) As Boolean

    '-------------------------------------
    ' テキストデータ
    '-------------------------------------
    ChangeStreamType tempParamStream, adTypeText

    Dim params As String
    params = ""
    params = params + getBoundy(adBTypeBody)
    params = params + "Content-Disposition: form-data; name=""" + fname + """; filename=""" + fvalue + """" + vbCrLf
    params = params + "Content-Type:" + fct + vbCrLf
    params = params + vbCrLf

    tempParamStream.WriteText params


    '-------------------------------------
    ' バイナリデータ
    '-------------------------------------
    ChangeStreamType tempParamStream, adTypeBinary

    Dim fileStream As Object
    Set fileStream = CreateObject("ADODB.Stream")
    fileStream.Type = adTypeBinary
    fileStream.Open
    fileStream.LoadFromFile fpath

    tempParamStream.Write fileStream.Read()

    fileStream.Close
    Set fileStream = Nothing

    SetFileParmater = True
End Function

Private Function SetEndParameter( _
                    ByRef tempParamStream As Object) As Boolean

    ChangeStreamType tempParamStream, adTypeText
    tempParamStream.WriteText getBoundy(adBTypeFooter)

    SetEndParameter = True
End Function

Private Function GetSendParameter( _
                    ByRef parameter As Variant, _
                    ByRef stream As Object) As Boolean

    ChangeStreamType stream, adTypeBinary
    stream.Position = 0
    parameter = stream.Read

    stream.Close
    Set stream = Nothing

    GetSendParameter = True
End Function

Private Function ChangeStreamType( _
                    ByRef stream As Object, _
                    ByVal adType As Integer) As Boolean
    Dim p As Long
    p = stream.Position
    stream.Position = 0
    stream.Type = adType

    If adType = adTypeText Then
        stream.Charset = "UTF-8"
    End If

    stream.Position = p

    ChangeStreamType = True
End Function

Private Function getBoundy(ByVal adType As Integer) As String

    Static sBoundy As String

    If sBoundy = "" Then

        Dim multipartChars As String: multipartChars = "-_1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim boundary As String: boundary = "--------------------"

        Dim i, point As Integer

        For i = 1 To 16
            Randomize
            point = Int(Len(multipartChars) * Rnd + 1)
            boundary = boundary + Mid(multipartChars, point, 1)
        Next

        sBoundy = boundary

    End If

    Select Case adType
    Case adBTypeContent
        getBoundy = sBoundy
    Case adBTypeBody
        getBoundy = "--" + sBoundy + vbCrLf
    Case adBTypeFooter
        getBoundy = vbCrLf + "--" + sBoundy + "--" + vbCrLf
    End Select

End Function



```

### 試したこと

こちらを参考にさせていただき、作成しました。
[EXCEL(VBA)から、HTTP通信でファイルをアップロードしてみよう。](https://tonari-it.com/excel-vba-chatwork-api-request/)
[chatwork API ドキュメント](https://developer.chatwork.com/ja/endpoint_rooms.html#POST-rooms-room_id-files)
[エクセルVBAでチャットワークに最もシンプルなメッセージを送る方法](https://tonari-it.com/excel-vba-chatwork-message-post/)

同様の問題が発生していると思われるこちらの方を参考に、SetFileParmater()とgetBoundy()の
vbCrLfの数をを減らしてみましたが動作は変わりませんでした。
[chatwork-ruby v0.10.0をリリースした](https://sue445.hatenablog.com/entry/2018/08/02/111403)

### 補足情報（FW/ツールのバージョンなど）

Windows10 Home 64bit
Microsoft Office 365 Business

VBAで追加した参照設定
- Microsoft Scripting Runtime
- MicrosoftXML v6.0