[PowerApps]入退室管理システム

PowerAppsで部屋の入退室管理システムを作成します。

システムに対する要件

  • 部屋はフロア、フロアは建物、建物は地区に紐づく。
  • 各部屋に対して、ユーザー個人の使用開始時刻と使用終了時刻(入退室時刻)を記録できる。
  • 部屋ごとに現在の使用者一覧を表示できる。使用者一覧から簡便に使用者へ連絡ができる。
  • 入退出時刻のデータは過去にさかのぼって閲覧できる。
  • 部屋の使用中の人数が閾値以下になると、使用終了しようとするユーザーに対して注意喚起を行う。閾値は部屋ごとに設定できる。
  • 地区、建物、フロアについても、ユニークな使用者数が閾値を下回ると、使用終了時に注意喚起がなされる。
  • 使用終了操作は、他人が行うこともできる。これは使用終了操作を行わずに退出したユーザーの情報をデータに反映させるため。

データソースの構成

SharePointリストで以下の5つのリストを作成しておきます。各マスタテーブルは、一つ上の階層の値を参照列で関連付けします。

AreaMaster

列名列の型目的
Title一行テキスト(自動生成)地区名を入れる
ID数値

BuildingMaster

列名列の型目的
Title一行テキスト(自動生成)建物名を入れる
ID数値(自動生成)
Area参照AreaMasterを参照し、AreaMasterタイトル列の値を示します。

FloorMaster

列名列の型目的
Title一行テキスト(自動生成)フロア名を入れる
ID数値(自動生成)
Building参照BuildingMasterを参照し、BuildingMasterタイトル列の値を示します。

RoomMaster

列名列の型目的
Title一行テキスト(自動生成)部屋名を入れる
ID数値(自動生成)
Floor参照FloorMasterを参照し、FloorMasterタイトル列の値を示します。
alertPeopleThreshold数値残り人数が閾値以下のとき、使用終了操作に対して注意喚起をするのに用います。
documentURL複数行テキスト部屋に関連する情報をまとめた外部資料へのリンクを示すのに用います。
isActiveはい/いいえ本システムで管理する対象とするかを指定します。

entry_exit_log

列名列の型目的
Title1行テキスト(自動生成)
ID数値(自動生成)
Start時刻部屋の使用開始日時
End時刻部屋の使用終了日時
isActiveはい/いいえ部屋を使用中か否かを示す
RoomID数値部屋を一意に特定します。
FloorID数値フロアを一意に特定します。
BuildingID数値建物を一意に特定します。
AreaID数値地区を一意に特定します。
Created Byユーザー (自動生成)部屋を使用するユーザーを示します。
Modified Byユーザー(自動生成)レコードを書き換えたユーザーを示します。これがCreated Byと異なる場合、他人が操作したとわかります。

画面構成

  • エリア選択
  • 建物選択
  • フロア選択
  • 部屋選択とフロアの利用者一覧
  • 部屋の利用者一覧
  • 使用終了への注意喚起

画面詳細と関数の定義

App

App.Start

Formulas

Start Screen

エリア選択

あとで書く

建物選択

あとで書く

フロア選択

あとで書く

部屋選択とフロアの利用者一覧

あとで書く

部屋の利用者一覧

あとで書く

使用終了への注意喚起

あとで書く

2代目日産リーフZE1の7年目車検を終えて

2017年10月の納車から7年の月日が経ちました。2代目リーフを新型リーフと呼んでいたのも今は昔。2025年3月ごろには3代目リーフが登場するのではないかと噂されています

以下では7年間リーフに乗って得られたデータを紹介します。

走行距離は10万9千kmになりました。EVならでは視点としては、ブレーキパッドは交換していません。回生ブレーキが主に動作するためです。EVはランニングコストが低いというとき、ガソリン代だけでなく消耗品にかかる費用が少ない点も忘れてはならないでしょう。

急速充電は1,000回ほど、普通充電も200回を超えています。電池の劣化は初期の9割のところで進行が緩やかになり、その後はかなりゆっくりとした劣化が進行しています。航続距離にしても、満充電スタートで高速道路を使って240kmくらい。納車された日に下道で270km近く走れたので、10%から15%低下しているのは体感通りです。

リーフの車上で確認できる情報として、いまだにセグメント低下は生じていません。初代リーフが5年も経つと2セグ3セグ欠けていたのとは大違いです。2017年に製造された電気自動車ですらこのレベルなのですから、いわんや最新のEVをや。

Power Appsで関数の実行時間を計測する

PowerAppsではユーザーの操作に対して処理を行うのであまり待ち時間を長くしたくありません。処理に要する時間が関数の書き方で大きく変わります。この記事では、関数の処理時間を計測する方法を示します。

まず実行時間を計測したい処理を以下のようなUpdateContext関数で挟みます。

//計測開始
UpdateContext({startime : Now()});

ここに計測したい関数を書く

//計測終了
UpdateContext({endtime : Now()});

得られた実行時間を表示するため、ラベルコントロールなどのTextを以下のように設定します。TimeUnitを秒またはミリ秒にしておくと良いです。

"実行時間 " & DateDiff(startime, endtime, TimeUnit.Milliseconds)  & "ms"

個人的には5秒を超える待ち時間は長いと思います。

処理時間を短縮する指針として、コネクションを呼び出す回数を極力減らす、コネクションを呼び出すにしても一括処理することが有効です。コレクションに対してForAll関数で愚直に繰り返し処理をするのをAddColumns関数で書き換えるだけで10分の1以下の時間で処理できることもあります。

PowerAppsから直接Teamsで20人以上に@メンションする投稿を行う

Teamsの投稿にはひとつの投稿でメンションできる宛先に上限があります。具体的な上限は、ユーザー20名、タグ20個です。PowerAppsを使ってTeamsに投稿するときも例外でなく、Teamsコネクタを介して20個以上のメンションを埋め込んだ投稿を行おうとするとエラーが返されます。

PowerAppsで定型的な作業を自動化する際に数の制限は困りものです。たとえばSharePointリストに登録されたユーザー全員に対してメンションする定型投稿を行うようなケースを実行しようとすると困ります。

本稿では、伝えたいメッセージ本文を親投稿としてスレッドを立てた上で、スレッドに返信する形で多数のメンションを追加することを考えます。これにより、通知を送りたい相手にもれなくメンションできます。

以下ではユーザーのコレクションからメールアドレスをThisRecord.Mailで取り出して上でUPNを取得し@mentionトークンを文字列として形成します。@メンショントークンの上限である20件ごとにコレクションを切り分けるため、GroupBy関数を用います。また、実行時間を短縮するため、Office365ユーザーコネクタを介してUPNを取得する処理をAddColumns関数で一括処理しています。

//多数のユーザーが入ったコレクション(配列)allusersからグループ分け用のコレクションallusersandindexを作成する。20行ごとにグループ分けする想定。
Clear(allusersandindex);
ForAll(allusers,
    Collect(allusersandindex,
        {
            numberofgroup: RoundUp( (CountRows(allusersandindex) + 1)/numberDivede,0),
            usermail : ThisRecord.Mail
        }
    )
);

//指定した行数ごとにグループ分けしたうえで、メンションタグを文字列結合した列concatmentiontagを作成する
ClearCollect(allusersmentiontags,AddColumns(GroupBy( AddColumns(allusersandindex, usermensiontag, "<at>" & Office365ユーザー.UserProfileV2( ThisRecord.usermail).userPrincipalName & "</at>" ), numberofgroup, assingedgroup ), concatmentiontag, Concat(assingedgroup,usermensiontag,",")));

コレクションの準備ができたら、これを使ってTeamsに投稿します。PowerAppsからPowerAutomateを介さずに直接Teamsに投稿したりスレッドに返信したりする方法は他のページで紹介しています。

groupIdをDropdownTeamID.Selected.id, channelIdをDropdownChannelID.Selected.idで与えています。

//新規スレッドの投稿内容を作成
UpdateContext(
    {
        newPostMessage:
        {
            recipient:{
                groupId: DropdownTeamID.Selected.id,
                channelId: DropdownChannelID.Selected.id
            },
            messageBody: TextInputMessage.Text
        }
    }
);
//新規スレッドを立てる
With(
    {
        newPostResult: MicrosoftTeams.PostMessageToConversation(
                    "user",
                    "Channel",
                    ParseJSON(JSON(newPostMessage))
                    )
    },
    //新規スレッドを立てるのに成功した場合、返信でメンションをつける
    If(IsBlankOrError(newPostResult), 
        Notify("error on new post", NotificationType.Error),
        ForAll(allusersmentiontags,
            With(
                { replyPostMessage:
                    {
                        recipient:{
                            groupId: DropdownTeamID.Selected.id,
                            channelId: DropdownChannelID.Selected.id
                        },
                        parentMessageId: newPostResult.id,
                        messageBody: "スレッドの親投稿を確認してください" & ThisRecord.concatmentiontag
                    }
                },
                MicrosoftTeams.ReplyWithMessageToConversation(
                        "user",
                        "Channel",
                        ParseJSON(JSON(replyPostMessage))
                    )
                );
        )
    )
)

テキスト入力の改行を反映してPowerAppsからTeams/Outlookのメッセージを送信する

PowerAppsのテキスト入力コントロールで入力した文章をTeamsコネクタやOutlookコネクタを使ってメッセージ送信する際に、テキスト入力の改行がメッセージに反映されない問題があります。テキスト入力コントロールを複数行にしているときに目にします。

テキスト入力コントロールの文字列には、改行を表す不可視な文字が含まれています。開業を表す文字は、Char関数で呼び出すことができ、具体的にはChar(10)です。TeamsやOutlookのメッセージはHTML形式で書かれるので、HTMLの改行タグである<br>に置換すれば改行が反映されます。

たとえば、コントロール名TextInput1に入力された文の変換はSubstitute関数を使って以下のように書けます。

Substitute(TextInput1.Text, Char(10), "<br>")

細かいことをいうと改行文字にはLF, CR, LF CRの3通りがあります。私が検証した範囲では、PowerAppsのテキスト入力コントロールに入力された改行文字はChar(10)すなわちLFだけでした。もしほかの改行文字が出てくる場面があるのなら、対応する改行文字をChar関数で与えて置換すればよいわけです。なお、CRはChar(13)です。

10万km突破!2代目日産リーフZE1

2017年から乗っている2代目日産リーフZE1の走行距離が10万kmを超えました。

満充電での走行可能距離は225kmと表示されています。走行可能距離は直近の運転の仕方に影響されます。最近の状況は、季節が冬でエアコン暖房18℃設定、スタッドレスタイヤ、高速道路走行が半分くらいです。

納車直後の秋に一般道で270km走ったのと比べると、1割くらい悪くなった程度と思います。電池劣化にしても、初代リーフとは比較にならないほどEVの実用性が向上したといえます。

車に表示されるバッテリー容量表示ではセグメント低下(セグ欠け)は出ていません。

LeafSpyで取得したデータでは、SOHが85.74%でした。2年経ったあたりから変化が鈍化しているのがわかります。

鴨川館のEV充電設備

先日宿泊した施設にあまり見ないEV充電設備がありました。アルファチャージという会社の充電サービスです。宿泊施設に6kW充電器を設置しているケースが多いようです。

私が宿泊したのは千葉県鴨川市にある鴨川館。鴨川シーワールドの目の前です。ホテルの公式サイトには充電器に関する情報は見当たりませんでした。GoGoEVには情報があります

充電器があるのはホテルの北側道路を挟んで向こうの鴨川館第3駐車場です。ホテルのエントランスからおなじみの青い充電スタンド標識が見えます。出力6kWのケーブル付き充電器が付いた駐車マスが2台分あります。

GoGoEVには充電料金の案内が10分55円(クレジットカード、PayPay、d払い、aupay)とありました。私の乗っているリーフZE1の40kWhモデルでは6kW充電に対応していないので使用しませんでしたが、あとで充電器を見てみたらびっくり。実は、アルファチャージのアプリで充電出力を利用者が設定でき、それに応じて充電料金も変わりました。充電出力は3 kW, 4 kW, 5 kW, 6 kWから選べ、3 kWでは10分27円, 60分165円と普通充電の典型的な利用料金に表示が変わりました。また、充電時間は10分単位で最長20時間まで選択でき、満充電に到達すると自動的に停止するそうです。

アルファチャージの公式サイトにもこのあたりの詳しい事柄が記載されておらず、もったいない印象を受けました。

Power AppsからTeamsに直接メッセージを送信する。Power Automateを介さずに。

以前PowerAutomateを介してPowerAppsからTeamsにメッセージを送信したり、投稿に返信したりする方法をご紹介しました。ここでは、Power Automateを使わずPowerAppsから直接Teamsへメッセージを送信する方法を紹介します。

PowerAutomateを介さないメリットは2つあります。ひとつは、管理すべき対象がアプリひとつになること。共有するのも楽です。もうひとつは、投稿者をアプリを開いているユーザーに簡単にできること。PowerAutomateだと実行可能ユーザーとして権限設定してやる必要があります。

PowerAutomateを介さないデメリットは、アプリにアクセスしたユーザーの権限でしか動かせないことです。チームにメンバーを追加するなど特別な権限が必要な処理を行えない可能性があります。


本ページに関連する資料をまとめます。

操作画面付きの実施例が他サイトで紹介されています。PowerAppsに慣れない方はリンク先をご覧いただくことをお勧めします。
Power Apps のキャンバスアプリから直接 Teams にメッセージを投稿しよう


ボットチャットにメッセージを送信する

ボットチャットからのメッセージが投稿されるWorkflowsとのチャットにメッセージを送信する方法です。宛先メールアドレスとメッセージ本文が必要です。メッセージ本文はHTMLで記述できます。isAlertがtrueだとメンション等と同じく通知が受信者に届きますが、falseだと通知が届かず未読メッセージが増えるような挙動になります。

以下の例ではlocBotChatMessageで作成したメッセージをPostMessageToConversation関数で送信しています。

//メッセージを作成
UpdateContext({
    locBotChatMessage:
    {
        recipient: 宛先メールアドレス,
        messageBody: メッセージ本文,
        isAlert:true
    }
    });
//メッセージを送信。戻り値をlocResultBotChatMessageに格納
UpdateContext({locResultBotChatMessage:
MicrosoftTeams.PostMessageToConversation(
    "Flow bot",
    "Chat with Flow bot",
    ParseJSON(JSON(locBotChatMessage))
)});

グループチャットにメッセージを送信する

まじめにPowerAppでTeamsコネクタを使いこなすよりも、宛先・タイトル・本文をURIスキーマで指定し、Luanch関数でTeamsを起動する方が楽なような気がします。とはいえPowerAppでがんばる場合の作例をまとめておきましょう。

グループチャットにメッセージを送信するには、まずチャットの場を作ってその会話IDを基にチャットにメッセージを送信するという流れになります、注意が必要なのですが1対1の会話でもグループチャットと呼びます。

具体的は次の通りです。CreateChat関数でグループチャットを作成し会話IDを得ます。次にPostMessageToConversation関数から会話IDをrecipientにしてメッセージを送信します。

注意が必要な点としては、宛先メールアドレスを複数入力する場合は、;で結合した文字列を渡すこと、ただし末尾には;を付けないことが必要です。
正常な例: abc@example.com;zyx@example.com
不適な例: abc@example.com;zyx@example.com;

messageBodyはHTML形式で渡せます。本稿の本題ではありませんが、”のエスケープは””と2個重ねて書けばよいです。

//グループチャットを作成
UpdateContext({
   resultCreateChat:
      MicrosoftTeams.CreateChat("宛先メールアドレス",{topic:"グループチャットのタイトル(任意)"})
   }
);

//メッセージを作成
UpdateContext({
   newPostMessage:{
      recipient: resultCreateChat.id,
      messageBody: "<p>ここにメッセージを挿入する<br><a href = ""https://www.office.com/?auth=2"">リンクもできる</a><br>リストも使える<ol><li>番号ありリスト01</li><li>番号ありリスト02</li><li>番号ありリスト03</li></ol></p>"        }
});

//チャットに投稿する
MicrosoftTeams.PostMessageToConversation(
   "User",
   "Group chat",
   ParseJSON(JSON(newPostMessage))
);

前準備

メッセージを投稿する先のチャネルの情報を確認します。
チャネルのURLからチームIDとチャネルIDを読み取る方法を参照してください。

新しいメッセージをチャネルに投稿する

新規メッセージを投稿する場合の方法を紹介します。新しいスレッドを建てることです。

PostMessageToConversation関数を使います。

以下の例文のうち、チームID、チャネルID、メッセージ本文、メッセージタイトルにそれぞれ文字列を設定します、メッセージタイトルは必須ではないので、タイトルが必要ない場合はsubjectを消してください。メッセージ本文はHTMLで記述できるので、リンクを張ったり文字を大きくしたり色を付けたりできます。

//メッセージを作成
UpdateContext({
    locPostMessage:
    {
        recipient:{
            groupId: チームID,
            channelId: チャネルID
        },
        messageBody: メッセージ本文,
        subject: メッセージタイトル
    }}
);
//メッセージを送信。戻り値をlocResultPostMessageに格納
UpdateContext({locResultPostMessage:
MicrosoftTeams.PostMessageToConversation(
    "user",
    "Channel",
    ParseJSON(JSON(locPostMessage))
)});

戻り値は、conversationId, id, messageLinkの3つが入ったレコードです。

conversationIdはチャネルID、idは後述する返信で使用するメッセージID、messageLinkはその投稿へアクセスできるURLです。

既存のスレッドに返信する

ReplyWithMessageToConversation関数を使います。

チームID、チャネルID、メッセージID、メッセージ本文が必要です。
メッセージIDは前節でPostMessageToConversation関数の戻り値のidとして得られることを紹介しています。

なお、ReplyWithMessageToConversation関数の戻り値はPostMessageToConversation関数の戻り値と同じ構造です。

//メッセージを作成
UpdateContext({
    locReplyMessage:
    {
        recipient:{
            groupId: チームID,
            channelId: チャネルID
        },
        parentMessageId: メッセージID,
        messageBody: メッセージ本文
    }}
);

//返信する
UpdateContext({locResultReplyMessage:
MicrosoftTeams.ReplyWithMessageToConversation(
    "user",
    "Channel",
    ParseJSON(JSON(locReplyMessage))
)});

各パラメータの関係を理解しやすくするため、新規スレッドの投稿から返信までを一貫して行う例を以下に示します。

//新規スレッドの投稿内容作成
UpdateContext(
    {
        newPostMessage:
        {
            recipient:{
                groupId: DropdownTeamID.Selected.id,
                channelId: DropdownChannelID.Selected.id
            },
            messageBody: TextInputMessage.Text
        }
    }
);
//新規スレッドを立てて、返信をつける
With(
    {
        newPostResult: MicrosoftTeams.PostMessageToConversation(
                    "user",
                    "Channel",
                    ParseJSON(JSON(newPostMessage))
                    )
    },
    If(IsBlankOrError(newPostResult), 
        Notify("error on new post", NotificationType.Error), 
        With(
            { replyPostMessage:
                {
                    recipient:{
                        groupId: DropdownTeamID.Selected.id,
                        channelId: DropdownChannelID.Selected.id
                    },
                    parentMessageId: newPostResult.id,
                    messageBody: "reply message here"
                }
            },
            MicrosoftTeams.ReplyWithMessageToConversation(
                    "user",
                    "Channel",
                    ParseJSON(JSON(replyPostMessage))
                )
            );
        )
)

応用例

PowerAppsから直接Teamsで20人以上に@メンションする投稿を行う

Teamsで音声通話やチャットを開くリンクの作り方

ディープリンクあるいはURIスキーマを使うと、リンクを開いたとき自動的に特定のユーザーとの音声通話を開始したり、チャット画面を開いたりできます。宛先は複数でも可能。
ユーザーがTeamsで投稿ボタンを押す動作が必要ですが、PowerAppsやPowerAutomateで頑張ってチャット送信の仕組みを作るよりも断然楽です。

Teamsが使用できる環境であれば、PCでもスマートフォンでも同様に動作します。

このページでは、メールアドレス example@onmicrosoft.com を宛先の例に使います。複数の宛先を用いる場合はカンマで繋げてください。

音声通話を開始する

Teamsの音声通話を開始するリンクの書き方は以下の通りです。参考リンク

https://teams.microsoft.com/l/call/0/0?users=example@onmicrosoft.com

https://teams.microsoft.com/l/call/0/0?users=example1@onmicrosoft.com,example2@onmicrosoft.com

&withVideo=trueを追加すると、ビデオ通話を開始します。

https://teams.microsoft.com/l/call/0/0?users=example@onmicrosoft.com&withVideo=true

外線電話番号への発信

Teamsから普通の外線電話番号に電話をかけさせることもできます。外線番号への発信は、公衆交換電話網, PSTNとの通話を発信するものと表記されます。参考リンク
Teams電話のようなサービスを使用してTeamsから外線電話に掛けられる環境が必要です。
以下の例は電話番号090-1234-5678に電話をかけるものです。いずれの表記にも対応しています。普通の電話アプリを起動するリンクはtel://09012345678のように書けるのに似ています。複数の宛先を書いたときにどのような挙動になるかは調べていません。

https://teams.microsoft.com/l/call/0/0?users=4:09012345678
https://teams.microsoft.com/l/call/0/0?users=4:090-1234-05678
https://teams.microsoft.com/l/call/0/0?users=4:+8190-1234-05678

チャットを開始する

Teamsのチャットを開くリンクの書き方は以下の通りです。参考リンク

https://teams.microsoft.com/l/chat/0/0?users=example@onmicrosoft.com

グループチャットのタイトルはtopicNameで指定できます。さらに、メッセージの下書きはmessageで指定できます。

ここで注意していただきたいのが、日本語の使用する場合はURIエンコードした文字列を埋め込むということです。
以下の例では
topicName=ここにタイトルを書く
message=ここに本文を書く
という文字列をURIエンコードした文字列を使用することで、グループチャットのタイトルと本文を指定した状態でTeamsを開かせることができます。

https://teams.microsoft.com/l/chat/0/0?&users=example1@onmicrosoft.com,example2@onmicrosoft.com&topicName=%E3%81%93%E3%81%93%E3%81%AB%E3%82%BF%E3%82%A4%E3%83%88%E3%83%AB%E3%82%92%E6%9B%B8%E3%81%8F&message=%E3%81%93%E3%81%93%E3%81%AB%E6%9C%AC%E6%96%87%E3%82%92%E6%9B%B8%E3%81%8F

掲示物への表示

商店でQRコードを読み込むと電話をかけられるポスターを見たことがある方は少なくないと思います。このページで紹介した通話を開始するリンクはWEBページに埋め込むことで利用できますが、リンクをQRコードにして掲示物に表示することもできます。仕事の現場でも、PowerAppsを作るまでもない定型連絡をするのに便利です。

QRコードの作成はQRQRが便利で安心です。

新しいデジタルツールを組織に導入するには

会社のような組織でTeamsのような現代的なデジタルツールを利用できるようになったとしても、それだけ同僚の多くが業務に活用するようになるわけではありません。それどころか、ツールが導入されただけで使われないまま何年も経過することさえあります。

デジタルツールを業務で活用していくためには、実際の業務で実践できることが何よりも肝心です。新規プロジェクトを例にとってデジタルツールを導入できるか否かは、以下の3点が揃った人物が行動するか否かにかかっています。

  • プロジェクトの主導的な立場である
    プロジェクトのやり方が決まる前にデジタルツールを使おうと言える立場であること。
    発起人、とりまとめ役、初期メンバーのいずれかである。
  • デジタルツールを使える
    Teamsで新しいチームを作れる、Plannerで新しいPlanやTaskを作れる、など少し調べればたいていの操作を自分でできる
  • 協働する同僚をサポートできる
    ツールの使い方を教える、業務に合わせて適切な使い方を実践して見せる、などツールを使って実際の業務をみんなで進めるために他人を支援できる。