メソッドOP_CHECK_BYVALの型が一致しません

■エラーメッセージ
メソッドOP_CHECK_BYVALの型が一致しません:STRINGが検出されましたが、Unknownが必要です

■エラー画面

■原因

・「doc.test(0)」と書くべきところを「doc.test」とした。

日付・時刻を取得(ゲット)する

以下は、日付・時刻を取得し、メッセージボックスに表示します。

・ソース

Sub Click(Source As Button)
 Dim dt As New NotesDateTime("Today")
 Call dt.SetNow
 Messagebox dt.LocalTime
End Sub

・実行結果

以下は、日付を取得し、メッセージボックスに表示します。

・ソース

Sub Click(Source As Button)
 Dim dt As New NotesDateTime("Today")
 Messagebox dt.LocalTime
End Sub

・実行結果

以上

ユーザー名を取得(ゲット)する

以下は、ユーザー名をメッセージボックスに表示します。

・環境
実行環境：サーバーなし、ローカルでアプリケーションを作成
ユーザー名：shimao

・ソース

Sub Click(Source As Button)
 Dim session As New NotesSession
 Msgbox session.UserName
End Sub

・実行結果

以上

フィールドの値を入力(セット)する

以下は、開いている文書において、指定フィールドの値を変更します。
「test」フィールドに「テスト」と入力します。

対象フィールド名：test

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Dim doc As NotesDocument
 Set uidoc = workspace.CurrentDocument
 Set doc = uidoc.Document
 doc.test = "テスト"
End Sub

以上

フィールドの値を取得(ゲット)する

開いている文書の値を取得し、メッセージボックスに表示します。

取得フィールド名：test

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  Msgbox doc.test(0)
End Sub

以上

ボタン追加、LotusScript実行環境の準備

まずはボタンの追加からやってみました。
既存ボタンの利用のみの為、一から追加する機会がありませんでした。
意外と探すのに時間がかかりました。

ボタンを追加し、LotusScriptを使えるようにします。

手順は以下の通り。

「作成」→「ホットスポット」→「ボタン」をクリック

「ラベル」欄にボタン名を入力(今回は「テスト」と入力)

下部プログラムペイン「実行」欄→「LotusScript」を選択

これで、LotusScriptが使えるようになりました。

以上

IBM Domino Desinaerをインストール

ふと思い立ち、IBM Domino Designerをインストールした。

会社でDesignerを使用しているが、自宅の環境で利用できるとは思っていなかったが・・・。

dominoサーバーが無くても、ローカルでアプリケーション作成ができるんですね。

これなら、色々検証ができるので、あれやこれや試せそうです。

とりあえず、インストール完了した記念をここに残します。