LOTUSSCRIPT /COM/OLE のクラス
例:AddEntry メソッド
1. 次の例は、「Web site」アウトラインの一番下に「Home」という親エントリを新規作成します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim oe As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("Web site")
Set oe = outline.CreateEntry("Home")
Call outline.AddEntry(oe)
Call outline.Save()
End Sub
2. 次の例は、「Web site」アウトラインの最後のエントリの子エントリとして「About us」というエントリを新規作成します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim outline As NotesOutline
Dim oe As NotesOutlineEntry
Dim existingOE As NotesOutlineEntry
Set db = session.CurrentDatabase
Set outline = db.GetOutline("Web site")
Set existingOE = outline.GetLast
Set oe = outline.CreateEntry("About us", existingOE, True, True)
Call outline.AddEntry(oe)
Call outline.Save()
End Sub
関連項目
AddEntry メソッド
Save メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集