[AP] 利用Lotus Script撈出view的屬性

'//利用Lotus Script撈出view的屬性

會議中有提到可以利用程式修改的部份，給各位參考，我有試幾個，是沒有什問題，所以並不保證喔，若要用的話，請再三確認。

Set t_view = session.CurrentDatabase.GetView("視界名稱")

Set t_doc = session.CurrentDatabase.GetDocumentByUNID(t_view.UniversalID)

'有問題的值為/T

call t_doc.ReplaceItemValue("$Index","")

call t_doc.save(true,true)

順便分享產生設計文件視界的方式

1、建立一個視界,"SELECT @ALL"

2、產生一代理程式

Dim session As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Set db = session.CurrentDatabase

Set view= db.GetView(”ViewDesignElements”)

Set doc = db.GetDocumentByUNID(view.UniversalID)

Call doc.ReplaceItemValue("$FormulaClass", "1548")

%REM

紅色值代表的是意義如下：

1 Documents

4 Forms and Subforms

8 Views, Folders and Navigators

16 Database Title

32 Design Collection

64 ACL Note (in compiled format)

512 Agents (Shared)

1024 Shared Fields

1548 Forms, Sub-forms, Views, Folders, Navigators, Agents(Shared), Shared Fields

%END REM

doc.Save True, True