PR

【GAS】Googleフォームに掲示板と返信メールを追加して署名活動フォームを作る

Google Workspace

googleフォームに掲示板と返信メールの機能をGASとスプレッドシートの関数を使って、次のような署名活動フォームを作ってみました。

署名者数の合計や達成状況などをフォームに掲示します。
また、署名に対しての返信メールに達成状況などを掲載します。

このようなフォームを作っていきます。
次の2つの記事からの続きにもなります。

GASで組んだ関数updateBbsdiyReplyを今回は使います。

updateBbs
diyReply
スポンサーリンク

応用例その9

フォーム

次のような掲示板(タイトルと説明)のあるフォームを作ります。

タイトル:ここでは、目標

スプレッドシート

フォームとリンクしたスプレッドシートを作ります。

フォームとリンクしたスプレッドシートに、次の2枚のシート(ここでは、シート1とシート2)を追加します。

シート1はGAS(updateBbs)で使うシートです。掲示板に表示したい内容を記します
必ず、タイトル(目標)をセルB1に入れてください。
COUNTA関数で回答数(賛同者数)を数えています。
※数式で表示([Ctrl]+@)しています。

シート1

シート2はGAS(diyReply)で使うシートです。返信メールに掲載したい内容を記します
※数式で表示([Ctrl]+@)しています。

シート2

コピペ用のシートの内容です。

フォームの回答
タイムスタンプお名前住所メールアドレス
シート1
タイトル目標
掲示内容="ただいまの賛同者数:"&COUNTA('フォームの回答'!A:A)-1&" 目標の達成率:"&TEXT((COUNTA('フォームの回答'!A:A)-1)/100,"0%")
シート2
質問タイムスタンプお名前住所メールアドレス
最新の回答
OFF:
メールを送らない
件名ご署名をありがとうございます
本文=C2&" 様、 現在、【"&(COUNTA('フォームの回答'!A:A)-1)&"名】の方に賛同をいただけました。 ありがとうございます。"
TO:=E2
CC:(省略可)
BCC:(省略可)
NAME:(省略可)
REPLY TO:(省略可)

GAS

3つのGAS、updateBbsdiyReply、そしてmyFunctionをフォームのスクリプトエディタへ登録します。

次のGASをスクリプトエディタにコピペします。

  1. function updateBbs(SheetNo){
  2.   //アクティブフォーム
  3.   const form = FormApp.getActiveForm();
  4.   //選択肢シート:SheetNoは必要なら変更する(一番左のシートが0、2番目が1、3番目が2、、、)
  5.   if(!(SheetNo>1)) SheetNo = 1;
  6.   const msgSheet = SpreadsheetApp.openById(form.getDestinationId()).getSheets()[SheetNo];
  7.   //シートの質問、説明などを配列で取得する
  8.   const question = msgSheet.getRange("B1").getDisplayValue();
  9.   const message = msgSheet.getRange("B2").getDisplayValue();
  10.   //フォームの質問、説明などの取得
  11.   const items = form.getItems();
  12.   for (let i = 0; i < items.length; i++) {
  13.     //対象の質問を探して見つけたら説明を更新
  14.     if (items[i].getTitle() === question) {
  15.       items[i].asSectionHeaderItem().setHelpText(message);
  16.       break;
  17.     }
  18.   }
  19. } //Ver1.1.0 for maintenance
  20. //
  21. function diyReply(SheetNo) {
  22.   // アクティブなフォームとスプレッドシート
  23.   const form = FormApp.getActiveForm();
  24.   if (!(SheetNo > 1)) SheetNo = 1; // SheetNoは必要なら変更する(一番左のシートが0、2番目が1、3番目が2…)
  25.   const ss = SpreadsheetApp.openById(form.getDestinationId());
  26.   // 回答シートとメール用シートを取得
  27.   const answerSheet = ss.getSheets()[0];
  28.   const mailSheet = ss.getSheets()[SheetNo];
  29.   // フォームのすべての回答を取得し、最後の(最新の)タイムスタンプを取得
  30.   const formResponses = form.getResponses();
  31.   const lastResponse = formResponses[formResponses.length - 1];
  32.   const formTimestamp = lastResponse.getTimestamp();
  33.   // 回答シートのA列(タイムスタンプ)から、最新のフォーム送信と一致する行を探す
  34.   const sheetTimestamp = answerSheet.getRange(2, 1, answerSheet.getLastRow() - 1).getValues();
  35.   let targetRow = -1;
  36.   for (let i = 0; i < sheetTimestamp.length; i++) {
  37.     if (sheetTimestamp[i][0] instanceof Date && sheetTimestamp[i][0].getTime() === formTimestamp.getTime()) {
  38.       targetRow = i + 2; // 実際の行番号
  39.       break;
  40.     }
  41.   }
  42.   if (targetRow === -1) {
  43.     Logger.log("回答が見つかりませんでした。");
  44.     return;
  45.   }
  46.   // 見つけた行の回答内容をメール用シートに転記
  47.   const lastCol = answerSheet.getLastColumn(); // 最大列数を取得
  48.   mailSheet.getRange(2, 2, 1, lastCol).setValues(answerSheet.getRange(targetRow, 1, 1, lastCol).getDisplayValues());
  49.   SpreadsheetApp.flush(); // sync;sync;syncのおまじない(省略可)
  50.   // B12セルが"ON"の場合、C12に編集リンクを出力
  51.   mailSheet.getRange('C12').setValue(mailSheet.getRange('B12').getValue() === 'ON' ? lastResponse.getEditResponseUrl() : "");
  52.   // メール用シートの項目(B3-B11)を配列に取得
  53.   const mailTbl = mailSheet.getRange('B3:B11').getDisplayValues().map(elm => elm[0]);
  54.   // FROM:(B11)が未設定ならアクティブユーザーのメールアドレスを使用
  55.   if (!mailTbl[8]) mailTbl[8] = Session.getActiveUser().getEmail();
  56.   // "OFF"でなければメール送信
  57.   if (mailTbl[0] !== 'OFF') {
  58.     GmailApp.sendEmail(mailTbl[3],mailTbl[1],mailTbl[2],{from:mailTbl[8],cc:mailTbl[4],bcc:mailTbl[5],name:mailTbl[6],replyTo:mailTbl[7]});
  59.   }
  60. } //Ver4.0.0 for maintenance
  61. //
  62. function myFunction() {
  63.   updateBbs(1);
  64.   diyReply(2);
  65. }

myFunctionは、updateBbsdiyReplyに引数(シートの位置番号:0, 1, 2,...)を渡すためにあります

↓ ↓ コピペ ↓ ↓

トリガー

myFunctionをトリガーに追加します

これで、準備は完了です。

実行

フォームをプレビュー回答、そして送信します。

結果

再度、プレビューします。

updateBbsにてシート1の掲示内容が、タイトル(目標)の説明に表示されています

diyReplyにて返信メールが送られ、シート2の件名と本文、回答のが記されています

署名活動フォームの完成です。このままプレビューと回答、送信を繰り返すと、賛同者数と達成率の数値が増えていきます。都度、返信メールが届きます。

おわりに

いかがでしょうか。掲示板を使ったフォームのパターンで私が思いついたのが、署名活動フォームだけでした。

今回は2つのGASを使いましたが、私の組むGASは複数で使うことも前提としているので、複数シートを管理できるならいくつでも追加しても大丈夫です。

相変わらずスプレッドシートの関数依存なGASですが、自由度はとても高い思います。

それではまた、

コメント

タイトルとURLをコピーしました