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 メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集