Takenoff Labs

「フィールド値一括置換・削除ツール」のパスワードを取得するには、以下の操作を行ってください。（Domino Designer がインストールされていない環境では実行できません。あらかじめご了承ください。）

1. ノーツクライアントにて、リッチテキストフィールドがある文書（たとえばメールなど）を新規作成します。

2. リッチテキストにカーソルを合わせ、[作成]メニュー → [ホットスポット] → [ボタン] を実行します。

3. 下のペインで「Lotus Script」を選択します。

4. Click イベントに、以下のコードをペーストします。

Const P = "31,3;9,16;23,17;22,31;19,1;23,10;23,19;9,15;9,1;9,13;23,11"
Dim ret As Variant, ary1 As Variant, ary2 As Variant
Dim s As String
s = ""
ret = Evaluate({@ReplaceSubstring(@Password("Lotus Notes"); ")":"("; "A":"F")})
ary1 = Split(P, ";")
Forall a1 In ary1
	ary2 = Split(a1, ",")
	s = s & Chr(Val("&H" & Mid(ret(0), Cint(ary2(0)), 1) & Mid(ret(0), Cint(ary2(1)), 1)))
End Forall
Msgbox s

（例）

5. ボタンをクリックしてください。メッセージボックスに表示された文言がパスワードです。