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

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

2008年10月7日火曜日

文書のアイテムの最終更新日

文書にあるアイテムの最終更新日を取得する方法。
これでどのフィールドの値が変更されたかどうかが確認できるかな?

サンプルは、自文書の各アイテムの最終更新日を表示するものである。

Sub Click(Source As Button)
    Dim uiws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    
    Dim sbj As String
    Dim i As Integer
    
    '自文書の取得
    Set uidoc = uiws.CurrentDocument
    Set doc = uidoc.Document
    
    i = 0
    sbj = ""
    
    '文書中の全アイテム分繰り返す
    Forall x In doc.Items
        i = i + 1
        'x.Nameがアイテム名で、x.LastModifiedがアイテムの最終更新日
        sbj = sbj & Cstr( i ) & "." & x.Name & "の最終更新日 " & Cstr( x.LastModified ) & Chr$(10)
    End Forall
    
    '結果の表示
    Messagebox sbj, 0, "文書中のアイテムの最終更新日"
End Sub


Notes/Dominoで困ったことがあれば、弊社にお問い合わせください。
IBM Championの私が承ります!
Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ


0 件のコメント: