LOTUSSCRIPT /COM/OLE のクラス
例:文書のプロパティにアクセスする
1
次の例は、文書のプロパティを出力します。
Sub Initialize
Dim db As New NotesDatabase _
("", Inputbox("Name of database file?"))
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = db.AllDocuments
Set doc = dc.GetFirstDocument
Forall docAuthor In doc.Authors
Messagebox docAuthor
End Forall
Messagebox "Created:" & doc.Created
If doc.IsNewNote Then
Messagebox "Is a new note"
End If
If doc.IsResponse Then
Messagebox "Parent:" _
& doc.ParentDocumentUNID
End If
If doc.IsSigned Then
Messagebox "Signed by:" & doc.Signer
Messagebox "Verified by:" & doc.Verifier
End If
If doc.IsValid = True Then
Messagebox "This document is valid."
Else
Messagebox "Document does not exist."
End If
Messagebox "Last accessed:" & doc.LastAccessed
Messagebox "Last modified:" & doc.LastModified
Messagebox "Note ID:" & doc.NoteID
Messagebox "Universal ID:" & doc.UniversalID
End Sub
2 次の例では、新規文書を作成してフォルダ view1、view2、view3 に入れ、各文書のフォルダ参照と note ID をステータスバーに出力します。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
If(db.FolderReferencesEnabled) Then
Messagebox ("Folder references enabled")
Else
Messagebox("Folder references are not enabled")
Messagebox("Enabling folder references")
db.FolderReferencesEnabled = True
End If
db.FolderReferencesEnabled = True
Set doc = db.CreateDocument
If Not(doc Is Nothing) Then
Call doc.AppendItemValue("To", _
"Test Document Name")
Call doc.AppendItemValue("Subject", _
"Test Document Topic")
Call doc.Save(True, True)
Messagebox ("Adding document to views")
doc.PutInFolder("view1")
doc.PutInFolder("view2")
doc.PutInFolder("view3")
Call doc.Save(True, True)
End If
Dim doccoll As NotesDocumentCollection
Set doccoll = db.AllDocuments
Set doc = doccoll.GetFirstDocument
While Not(doc Is Nothing)
i = 0
Forall FolderReference In doc.FolderReferences
i = i+1
Print doc.noteid, "", i, "", _
_FolderReferences
End Forall
Set doc = doccoll.GetNextDocument(doc)
Wend
End Sub
関連項目
LotusScript のクラスで文書のプロパティにアクセスする
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集