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))
                    )
                );
        )
    )
)

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください