当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年4月25日金曜日

エージェント名を表示する

ノーツDBのエージェント情報を取得するLotusScriptです。
名前が分かっている場合は、GetAgent()で取得できるが、そうでない場合に利用するとよいでしょう。

※一つのエージェントだけを取り出すことは出来ないことに注目

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim i As Integer
    Dim sbj As Variant
    
    Set db = session.CurrentDatabase
    
    i = 0
    'db.Agentsはデータベース中の全エージェントを取得する
    Forall agent In db.Agents
        i = i + 1
        'agent.Nameはエージェントの名前を取得する
        sbj = sbj & Cstr( i ) & ". " & agent.Name & Chr$(13)
    End Forall
    Messagebox sbj
End Sub 


0 件のコメント: