$FormulaClass
| Note Class Type | Hex Value | Decimal Value | Comments |
|---|---|---|---|
| NOTE_CLASS_DOCUMENT | 0x0001 | 1 | document note |
| NOTE_CLASS_INFO | 0x0002 | 2 | notefile info (help-about) note |
| NOTE_CLASS_FORM | 0x0004 | 4 | form note |
| NOTE_CLASS_VIEW | 0x0008 | 8 | view note |
| NOTE_CLASS_ICON | 0x0010 | 16 | icon note |
| NOTE_CLASS_DESIGN | 0x0020 | 32 | design note collection |
| NOTE_CLASS_ACL | 0x0040 | 64 | acl note |
| NOTE_CLASS_HELP_INDEX | 0x0080 | 128 | Notes product help index note |
| NOTE_CLASS_HELP | 0x0100 | 256 | designer's help note |
| NOTE_CLASS_FILTER | 0x0200 | 512 | filter note |
| NOTE_CLASS_FIELD | 0x0400 | 1024 | field note |
| NOTE_CLASS_REPLFORMULA | 0x0800 | 2048 | replication formula |
| NOTE_CLASS_PRIVATE | 0x1000 | 4096 | Private design note, use $PrivateDesign view to locate/classify |
| NOTE_CLASS_DEFAULT | 0x8000 | 32,768 | MODIFIER - default version of each |
| NOTE_CLASS_ALL | 0x7fff | 32,767 | all note types |
| NOTE_CLASS_ALLNONDATA | 0x7ffe | 32,766 | all non-data notes |
| NOTE_CLASS_NONE | 0x0000 | 0 | no notes |
| Note ID | Database Element |
|---|---|
| FFFF0002 | "About This Database" document |
| FFFF0004 | Default form |
| FFFF0008 | Default view |
| FFFF0010 | Database icon |
| FFFF0020 | Database Design Collection (view) |
| FFFF0040 | Database ACL |
| FFFF0100 | "Using This Database" document |
| FFFF0800 | Replication Formula |
You'll notice that the last 4 numbers of the Note IDs are the hex values of the corresponding design elements in the previous tip. What's neat about this (and it makes sense if you think about it) is that these Note IDs are the same for every Notes database, so if you call:
db.GetDocumentByID("FFFF0002")
获得所有iNotes简要表信息
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db=s.currentdatabase
Set doc = db.GetProfileDocument("iNotesProfile")
ForAll item In doc.Items
Print item.Name + |:| + item.Text+ Chr(10) + Chr(13)
End ForAll
删除所有简要表
Dim s As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Set db = s.currentdatabase
Set col = db.GetProfileDocCollection
Call col.RemoveAll(True)
Messagebox"All Profiles Document Deleted"