何が何でもExcelで！

そういった熱い思いは度々お聞きします。
気持ちは良くわかります。

しかしPower Automate loverとしては、何とかしてPower Automateと絡めたい・・・
そういった気持ちもございます。

それなら・・・
Office Scriptsいってみるか！ということで書いてみることにしました。

Outlookの連絡先をExcelからまとめて登録したい

Outlookには、連絡先がありますね。
こちらに様々な連絡先を登録することができます。

ただし一件一件まとめて入力するのは手間・・・。
そういったシーンもあるのでは・・・🧐

そういった時には、Outlookの連絡先をインポートを使用すれば、CSVで一括登録が可能です。

一度登録があるものは、再登録もされないので非常に便利です。

無理にExcelでやる必要はありません。
しかしそれでもExcelでやりたいんだ🔥という熱い思いもあるでしょう。

車輪の再発明な感じが否めませんが、Office Scriptsを書いてみましょう！

Office Scriptsの利点

Office Scriptsの利点として、ブックからPower Automateを起動できることが挙げられます。

ブック内にフローを追加すれば、ボタンクリック感覚で使えます。
Power Automateにつなぐことができれば、多様なAPIに繋げることができるので、可能性は無限大∞！

またスクリプトであるostsファイルを、SharePointに配置することで、複数の人とスクリプトを共有できます。よくわからない削除事故もリカバリーできるので嬉しい限りです。

拡張子にも依存されないので嬉しいですね！

Office Scriptsの用途としては

データの集計
レポート作成
大きなデータセットの計算処理
Power Automateでやりづらいデータ加工

といった様々なところで、活躍します。

さて、肝心なOutlookの連絡先の追加に移っていきましょう。

Power Automateの機能

Power Automateに標準で、Outlook 365 連絡先の作成 (V2)アクションが存在します。

こちらを使えばサクっと連絡先の追加はできそうです。
まあサクっといけちゃうわけですよ。

~~つまらない。~~
これをそのままやっても芸がないので、Microsoft Entra ID 付きの HTTP (事前承認済み)を使って、一括登録に試みます。

Graph APIを用いた連絡先の登録

標準コネクタの範囲内でできれば嬉しいのですが、第 1 セグメント/me、第 2 セグメント/contactsなので、妥当なコネクタが思いつきません。

今回紹介しているMicrosoft Entra ID 付きの HTTP (事前承認済み)は、プレミアムコネクタです。ライセンスにご注意ください。

実際に設定してみると、このようになります。

キー	値
URI	https://graph.microsoft.com/v1.0/me/contacts
Method	POST

■ ヘッダー

キー	値
Content-Type	application/json

HTTP送信、本文

{
  "givenName": "なまえ",
  "emailAddresses": [
    {
      "address": "メールアドレス",
      "name": "メールアドレスに付帯する名前"
    }
  ],
  "businessPhones": [
    "電話番号"
  ],
  "homeAddress": {
    "street": "住所"
  }
}

こちらを使えば、サクっと連絡先を追加できます。

ただし一件一件繰り返しするのは、あまりカッコよくないですね。
ということで、まとめてやってみましょう！

バッチリクエスト

バッチリクエストを使用することで、複数の連絡先を一度に追加することができるようです。

URI

https://graph.microsoft.com/v1.0/$batch

上記に対して、リクエストをまとめて格納します。

二件のコンタクトの追加の場合

{
    "requests": [
        {
            "id": "0",
            "method": "POST",
            "url": "/me/contacts",
            "body": {
                "givenName": "John Doe",
                "emailAddresses": [
                    {
                        "address": "john.doe@example.com",
                        "name": "John Doe"
                    }
                ],
                "businessPhones": [
                    "+1234567890"
                ],
                "homeAddress": {
                    "street": "123 Main St, Springfield, IL"
                }
            },
            "headers": {
                "Content-Type": "application/json"
            }
        },
        {
            "id": "1",
            "method": "POST",
            "url": "/me/contacts",
            "body": {
                "givenName": "Jane Smith",
                "emailAddresses": [
                    {
                        "address": "jane.smith@example.com",
                        "name": "Jane Smith"
                    }
                ],
                "businessPhones": [
                    "+0987654321"
                ],
                "homeAddress": {
                    "street": "456 Elm St, Springfield, IL"
                }
            },
            "headers": {
                "Content-Type": "application/json"
            }
        }
    ]
}

ほとんど前述のものと一緒ですね。
つまり、このJSONを作って送ればOK！

Office ScriptsでJSONを作成する

まず先にA1セルから下記のような表を格納することを想定します。

Name	Email	Phone	Address
サカナ太郎	sakana.taro@example.com	090-1234-5678	東京都港区魚町1-2-3
エビ花子	ebi.hanako@example.com	090-2345-6789	神奈川県横浜市エビ町4-5-6
タコ次郎	tako.jiro@example.com	090-3456-7890	大阪府大阪市タコ町7-8-9
カニ三郎	kani.saburo@example.com	090-4567-8901	北海道札幌市カニ町10-11-12
イカしおん	ika.shion@example.com	090-5678-9012	福岡県福岡市イカ町13-14-15
ホタテ恵子	hotate.keiko@example.com	090-6789-0123	千葉県千葉市ホタテ町16-17-18
サーモン竜也	salmon.tatsuya@example.com	090-7890-1234	新潟県新潟市サーモン町19-20-21
クジラ雅	kujira.miyabi@example.com	090-8901-2345	京都府京都市クジラ町22-23-24
ウナギ守	unagi.mamoru@example.com	090-9012-3456	愛知県名古屋市ウナギ町25-26-27
サバ幸子	saba.sachiko@example.com	090-0123-4567	広島県広島市サバ町28-29-30

これをOffice ScriptsでJSONにします。

ostsファイル

function main(workbook: ExcelScript.Workbook): string {
    // 1. シート名を指定
    const sheetName: string = "data";
    let sheet: ExcelScript.Worksheet = workbook.getWorksheet(sheetName);

    // 2. データ範囲を設定
    const startRow: number = 1;
    const startCol: number = 1;
    const endRow: number = sheet.getUsedRange().getRowCount();
    const endCol: number = 4; // A～D列
    let range = sheet.getRangeByIndexes(startRow - 1, startCol - 1, endRow, endCol);
    let values: string[][] = range.getValues() as string[][];

    // JSONの作成
    let requests: { id: string; method: string; url: string; body; headers: { "Content-Type": string } }[] = [];
    // 1行目はヘッダー
    for (let i: number = 1; i < values.length; i++) {
        let row: string[] = values[i];
        let contactData: {
            givenName: string;
            emailAddresses: { address: string; name: string }[];
            businessPhones: string[];
            homeAddress: { street: string }
        } = {
            givenName: row[0],
            emailAddresses: [
                {
                    address: row[1],
                    name: row[0]
                }
            ],
            businessPhones: [
                row[2]
            ],
            homeAddress: {
                street: row[3]
            }
        };
        requests.push({
            id: i.toString(),
            method: "POST",
            url: "/me/contacts",
            body: contactData,
            headers: {
                "Content-Type": "application/json"
            }
        });
    }

    let batchRequestData: { requests: typeof requests } = {
        requests: requests
    };

    let jsonString: string = JSON.stringify(batchRequestData, null, 2);

    // JSON文字列を戻り値として返す
    return jsonString;
}