LotusScript でメール送信 ② - フォームの送信とは？

前回は、LotusScript でメールを送信する基本的な方法を紹介しました。今回はその続きなのですが、テーマは構文の最初の引数 attachForm です。

Call notesDocument .Send( attachForm [, recipients ] )

1	attachForm	Boolean	True：フォームを送信 False：フォームを送信しない
2	recipients	文字列 文字列リスト	省略可能。 メールの宛先です。

テストフォームの準備

まずは、単純なフォームを用意します。

メールの宛先と件名、本文のリッチテキストを配置します。これらのフィールド名は『@MailSend の動作 ①』で紹介した予約フィールド名で作成します。

また、フォーム下部には、テスト用にメール配信とは関係のないフィールドも配置します。

アクションボタン［メール送信］には、次の LotusScript を記述します。画面上の文書を NotesUIDocument から取得して、メール送信します。Send メソッドコール時には、今回のテーマである attachForm に True を指定しています。

Sub Click(Source As Button)    Dim nuiw As New NotesUIWorkspace    Dim nuid As NotesUIDocument    Dim nd As NotesDocument    '現在の文書を取得    Set nuid = nuiw.CurrentDocument    Set nd = nuid.Document    'メールを送信    Call nd.Send(True) End Sub

既存文書内のフィールドを利用してメールするパターンですので、前回 よりシンプルなコードになっていますね。

フォーム送信の動作

フォームが完成したらテストデータを作成して、［メール送信］ボタンをクリックします。

すると、宛先に設定したユーザにメールが届きます。そのメールを開くと、送信した文書と全く同じ画面が開きます。

その状態で、データベースのプロパティを確認するとメールボックスを指しています。メールボックス内でありながら、アプリの画面が開いていることがわかります。

このように、フォーム送信機能は、メール内にフォーム設計を含めて送信する機能です。

フォーム送信利用時の注意

届いたメール上部には［メール送信］ボタンが表示されており、クリックするとサンプルフォームと同様にメールが送信されます。このように、フォームの送信ではフォームの見た目だけでなく、アクションボタンなどの機能までもが送信されます。

また、送信されるのはフォームのみとなる点も注意が必要です。例えば、フォームがスクリプトライブラリを参照していたとします。

このフォームの文書をフォーム付きでメール送信した場合、受け取ったユーザがメールを開くと、ライブラリのロードエラーが発生します。これはメールボックス内にスクリプトライブラリが存在しないからですね。

フォーム付きでメールを送信する場合、メール DB 内で確実に表示 / 動作するよう、フォームはシンプルな構造にしておく必要があります。

まとめ

今回は、Send メソッドの attachForm 引数を使用した、フォーム付きメール送信について紹介しました。フォームに配置されているボタンなどのプログラムもメールで通知されます。また、届いたメールのプロパティを確認すると、フォーム上に配置したフィールドも配置されています。これらを利用すれば、簡単なアンケートなど、さまざまな ”機能付きメール” を実現することができることがわかりますね。

今では、HTML メールのように見た目がよく、多少の機能がついたメールは普通になりましたが、ノーツは 30 年前からフツウに実現できていました。ノーツってすごいですよね。

LotusScript でメール送信 ①

先日、@関数を使用した メール送信の方法についてまとめました。

• @MailSend の動作 ①
• @MailSend の動作 ②

今回は LotusScript でメールを送信する方法についてまとめます。

構文

LotusScript でメールを送信するには、NotesDocument クラスの Send メソッドを使用します。まずは、構文を確認しましょう。

Call notesDocument .Send( attachForm [, recipients ] )

引数は役割は次の通りです。

1	attachForm	Boolean	True：フォームを送信 False：フォームを送信しない
2	recipients	文字列 文字列リスト	省略可能。 メールの宛先です。

一般的な使い方

Send メソッドを使用した一般的はメール送信のプログラムは次の通りです。

Sub Click(Source As Button)    Dim ns As New NotesSession    Dim ndb As NotesDatabase    Dim ndMail As NotesDocument    Set ndb = ns.CurrentDatabase    '送信する文書を新規作成    Set ndMail = ndb.CreateDocument    ndMail.Form = "Memo"     'フォームを指定    ndMail.SendTo = "Masayuki Hama/NCOsaka"    '宛先をセット    ndMail.Subject = "LotusScript でメール送信 ①"    '件名をセット    '本文をセット    ndMail.Body = "これは『LotusScript でメール送信 ①』のサンプルで送信したメールです。"    'メールを送信    Call ndMail.Send(False) End Sub

処理の流れは単純です。新規文書を作成して、フォーム、宛先、件名をセットします。本文はプレーンテキストでよいのであれば文字列として与えるだけで OK です。送信する内容が出来上がったら Send メソッドをコールします。

届いたメールは次の通りです。指定した宛先とメールの内容がセットされています。

基本的な動作の仕組みは、@MailSend の引数なしのパターン と同じで、SendTo など文書内の予約フィールドを利用してメールが送信されます。

ちなみに、構文に記載した通り、Send メソッドの recipients 引数で宛先を指定できます。SendTo フィールドと 2 通りの宛先指定方法が提供されています。両方が指定されている場合、recipients 引数が優先され、SendTo フィールドは無視されます。動作がわかりにくくなるのでどちらか一方になるようにしたほうがいいですね。

メール送信の動作

@関数では画面上に存在するフィールドは、メール配信に関係していなくてもメール内に保持されました。上記プログラムでは、CreateDocument でメール文書を別途生成しているので、メール配信に不必要なフィールドがメールとともに配送されることはありません。無用な漏洩を止めることができますね。

また、Send メソッドでメールを送信すると、その内容はコピーされて、サーバ上のメールルータに渡されます。よって、保存しなくてもメールが送信でき、新規作成した文書はスクリプトの終了とともに消滅します。

フォームの指定

サンプルプログラムでは、Form フィールドに "Memo" と設定していました。この設定がなくてもメールとしては正常に送信されます。しかし、届いたメールには Form フィールドが作成されません。

ただ、Form フィールドがなくてもメールは通常通りのフォームで参照できます。これは、Memo フォームがデフォルトフォームに設定されているからです。

このように、たとえ忘れていても、正しく参照できるのですが、プログラムの意図を明示する観点からも設定しておくべきです。

DominoHub 2025 Tokyo レポート

6 月 19 日・20 日の 2 日間にわたり、DominoHub 2025 Tokyo を開催いたしました。ご参加いただいた皆様に、心より御礼申し上げます。

今年のテーマは「#DX（Domino Experience）〜Dominoの真実を語る〜」。Notes/Domino の実力や可能性を紹介するセッションをはじめ、実際の活用事例、さらには開催週にリリースされたばかりの 14.5 に関する最新情報 など、充実した内容となりました。

今回のイベントが、皆様のビジネスに少しでもお役立ていただける機会となったのであれば幸いです。

イベントの内容を詳細にレポートしたいのですが、スタッフとしての参加だったので、セッションは、ほとんど聞くことができませんでした（面白そうなテーマが盛りだくさんだったので、残念でなりません）。そこで、今回は、私が担当した部分だけのまとめとさせていただきます。

オンラインセッション

初日は、『Notes をもっと魅力的に！ 今すぐ使える Excel 連携術』と題して、オンラインセッションを行いました。このブログで連載 Notes - Excel 連携 を再編集して、Notes データから帳票やグラフを作成する方法の紹介でした。

また、後半は、Excel で作成したグラフ画像をノーツ文書に書き戻し、見栄のいいレポートを作成する方法です。こちらは DXL Step-by-Step で連載している DXL（Domino XML Language）の事例で、昨年リリースした dxlSuite for LotusScript の利用例を紹介させていただきました。

Excel 連携と DXL を使えば、Notes のニガテを克服でき、ノーツをもっとリッチに、もっと魅力的にできます。今回のセッションでは、具体的なコードとともに解説を加えました。また全コードは資料内に掲載しています。１か月間は DominoHub のポータルサイトで、セッション動画と資料が掲載されていますので、ご興味のある方はご参照ください。すでにイベントは終了していますが、後付けで登録いただいても参照可能です。

展示ブース

二日目はセミナー会場前で展示ブースを担当しました。これまで作成した数々のアプリケーションを一堂に展示しました（私が開発していないアプリも含まれます）。

AI 連携や Nomad アプリ、DXL や Excel 連携のアプリケーションを中心に、Notes/Domino の可能性を感じていただけるようなアプリが紹介できたかと思います。

また、会場セッションの合間に展示ブースを紹介する機会がありました。そこでは上記リストにない新しいアプリを紹介しました。

OpenAI 社の画像生成 AI である、Dall-e3 の API を利用して、Notes アプリのアイコンを生成させるアプリです。Dall-e3 で正方形の画像を生成すると 1024x1024 の画像となるので、それを Excel で 64x64 の画像に変換、DXL でアイコンとして nsf に登録する機能を持ちます。

Dall-e3 の API や DXL で DB アイコンを操作する方法については、いずれこのブログでまとめたいと思います。

さいごに

今年の会場セッションは CIRQ -シルク- 表参道 で行いました。白を基調とした上品な会場で清潔感がありました。また、スタッフはとても丁寧で気持ちが良い対応でした。そのおかげで、これまでにない上質なイベントとなったと思っています。

今後もこのような会場でイベントを行いたい思った反面、もっとスムーズに運営しなければ...と感じました（DominoHub は HCL Ambassador を中心に有志で運営しています）。

ODS の強制

本日、Notes/Domino 14.5 がリリースされ、先ほどまでリリースのウェビナーが配信されていました。14.5 の新機能についてはこれから検証して少しずつまとめたいと思います。

ところで、Notes/Domino 11.0.ｘ のサポート終了が近いこともあり、各所でバージョンアップが行われています。新バージョンがリリースされたこともあり、この流れはしばらく続くと思います。

このような状況で、複数の環境をサポートしていると nsf ファイルのやり取りが発生し、ODS を意識する機会が多くあります。しかも、先日 ODS を間違え、現場で開けないというミスを起こしたことがあります。今回は、今後そのようなことがないようにするための戒めと手順の整理のための記事となります。

前回、突然 ODS の話を始めたのは、この記事の情報を記録しておきたかったためなんです...

ODS の強制

データベースを他のユーザにファイルとして渡す場合、相手の Notes クライアントが対応している ODS にしておかないと、開くことができません。

以下は前回紹介した Notes 14 でコピーした ODS 55 の nsf を Notes 9 で開いた場合のエラーです。

これに対応する機能が、ODS の強制です。Notes クライアントでデータベースをコピーするとき、拡張子を指定すると特定の ODS にすることができます。例えば、Notes 14 を使用しても .ns9 と指定してコピーすると ODS は 52 となります。

各 ODS と指定すべき拡張子の関係は次の通りです。

ODS	拡張子
55	NS12
53	NS10
52	NS9
51	N85
48	NS8
43	NS7, NS6

そのままだと、ノーツデータベースとして OS が認識しません。また、ノーツクライアントのアプリケーションを開くダイアログにも表示されません。

コピーした後に、エクスプローラなどで拡張子を nsf に戻しておきましょう。

ODS（On Disk Structure ）とは？

ODS とは？

ODS とは、On Disk Structure のことで、Notes/Domino データベースの内部構造を表すバージョン番号のことです。Notes クラアインとの場合、データベースのプロパティの［情報］タブに表示されます。

また、Administrator クライアントの［ファイル］タブを使えば、一覧で確認できます。

Notes/Domino のバージョンと ODS

当たり前ではありますが、新しい Notes/Domino ほど、新しい ODS をサポートします。整理すると次の通りとなります。デフォルトは、通常新規作成したデータベースで採用される ODS で、最大は、そのバージョンでアクセスできる最大の ODS バージョンです。

Notes/Domino	デフォルト	最大
14.0.x	55	55
12.0.x	52	55
11.0.x, 10.0.x	52	53
9.0.1	43	52
9.0, 8.5.x	43	51
8.0.x	43	48
7.0.x, 6.x.x	43	43

例えば 9.0.x を利用している場合、ODS 52 まではアクセスできますが、ODS 55 のデータベースにはアクセスできません。例えば、以下の図は、ODS 55 の nsf ファイルを Notes  9.0.1 で開こうとした場合のエラーです。

ただし、Domino 14 サーバ上にある ODS 55 のデータベースを Notes 9 クライアントがアクセスすることは可能です。サーバ上のデータベースは、クライアントが直接アクセスするのではなく、サーバを介してアクセスするためです。

なお、Notes/Domino は上位互換性があり、新しい Notes/Domino であれば、古いバージョンで使用されていた ODS のデータベースにアクセスが可能です。

ODS と機能

ODS のバージョンが高いほど、機能が多く、制限が少なく、パフォーマンスが高くなります。例えば、１データベースの最大容量は、ODS 52 では 64 GB なのですが、 ODS 53 では 256 GB まで拡張されています。

現時点で最新の ODS である 55 の新機能は以下のリンクにまとまっています。

Domino 12 の ODS 55 で導入された拡張機能

リンクのページによると、ACL のエントリ数が 950 件から 65,535 件まで増加、サマリーフィールドのサイズが 64 KB から 16 MB まで拡張されたと記載があります。制限が緩和されること自体は良いことなのですが、利用に当たって注意が記載されています。

• 新機能を利用するためには設定が必要である
• 古いバージョンではエラーが出るなどアクセスが制限される場合がある

このように下位のバージョンに対して互換性のない機能は、通常、有効にするために設定が必要になっており、ODS を上げると自動的に適用されるわけではありません。管理者は、社内環境で安心して利用できる機能か確認したうえで採用する必要があります。

DXL Step-by-Step：#58）ノード操作 ⑪ - ノードの置き換え

ノード操作シリーズの最終回は、ノードの置き換え操作についてまとめます。

置き換え操作の必要性

例えば、リッチテキスト内のプレーンテキストに装飾をする場合を考えます。

それぞれを DXL で表現すると下図のようになるのですが、装飾を加えるためには、プレーンテキストを run や font ノードで装飾されたノードに置き換えることになります。

ReplaceChild メソッドの注意点

このような操作を行う際に利用するのが、ReplaceChild メソッドです。

ReplaceChild (NotesDOMNode - LotusScript®)

構文は以下の通りです。

Set notesDOMNode = notesDOMNode .ReplaceChild( newChild , oldChild )

引数には、置き換えるノードの新・旧を指定する仕様となっています。そのためか、メソッドをコールするノードは、RemoveChild メソッドと同じく、親のノードから実行する仕様になっています。NotesDOM??? クラスの設計者の親はよほど偉大な方なのかもしれませんね...

このヘルプを見ればわかるのですが、このメソッドには重大な注意点があります。それは戻り値が、置換されたノードであることです。

ReplaceChild メソッドの挙動

ヘルプを読んだだけではわかりにくいので、最初に記載したプレーンテキストを装飾する場合を例に、挙動を順に確認しましょう。

ReplaceChild 実行前はこのような状態となります。

紫色のノードが置換元のプレーンテキストのノードで、par ノードの配下に配置されています。置換先のノードは Create ??? Node メソッドを利用して新規で作成し準備します。これはノードの新規作成と同じ操作ですね。

この置換元と置換先のノードを引数に、親のノードである par ノードから ReplaceChild メソッドを実行することになります。実行後の状態は下図のような状態となります。

新規で作成したノードが par ノード配下に配置され、希望通りの結果になっています。問題は、はじき出されたノードです。このノードは、新規作成したてのノードと同じく、DXL ツリーには属さない宙に浮いた状態となっているのですが、このノードが ReplaceChild メソッドの戻り値となります。

DXL のコーディングをしていると、この挙動がとても煩わしく感じます。例えば、ノードを置き換えた後、後続の処理でそのノードを使いたくても、プログラム上は行方不明になってしまうからです。

ノードを置き換える関数

なぜこのようなインプリになっているか真意はわかりかねますが、この仕様では DXL を自由自在な操作に支障をきたします。そこで、次のような関数を作成して、標準メソッドの不便を解消しています。

Function xReplaceNode(vdnNew As NotesDOMNode, vdnOld As NotesDOMNode) As NotesDOMNode    Dim dnParent As NotesDOMNode    Dim dnNext As NotesDOMNode    Dim dnPrev As NotesDOMNode    ' 元の位置を保存    Set dnNext = vdnOld.NextSibling           ’ 次のノード    Set dnPrev = vdnOld.PreviousSibling  ' 手前のノード    Set dnParent = vdnOld.ParentNode     ' 親のノード    ' 置き換え    Call dnParent.ReplaceChild(vdnNew, vdnOld)    ' 行方不明の捜索    If dnPrev.IsNull = False Then       '手前のノードが存在したのでその次のノードが置換されたノード       Set xReplaceNode = dnPrev.NextSibling    ElseIf dnNext.IsNull = False Then       '手前のノードがないので、次のノードの１つ前が置換されたノード       Set xReplaceNode = dnNext.PreviousSibling    Else       '前後にノードがないので一人っ子、置換後も最初のノードが置換されたノード       Set xReplaceNode = dnParent.FirstChild    End If End Function

関数内の処理のポイントは、置換前に前後と親ノードを取得しておく点です。これで、置換後、自分自身が行方不明になっても、前後関係や親から自分探しができるというわけです。

ノード操作まとめ

昨年の DominoHub 2024 のオンラインセッション『 ”DXL” でリッチテキスト縦横無尽』でご紹介した DXL ノード操作をまとめたこのシリーズですが、今回の ⑪ で終了です。ここで紹介したテクニックは、DXL を使ったプログラミングをする中で必要となった知識や関数たちで、実体験に即したものをまとめました。

これらテクニックを利用すれば、DXL を自由自裁、縦横無尽に操作できるようになります。

前回

DXL Step-by-Step