LotusScript复选框遍历取值

前言

网上没啥这块的资料，就算有也是罗里吧嗦一大堆，而且是错的。

---

一、域和按钮

二、按钮的代码

Sub Click(Source As Button)
	Dim cBasic As New BasicTool
	Dim Session As New NotesSession
	Dim Curdoc As Notesdocument
	Dim Uidoc As NotesUIDocument
	Dim Ws As New NotesUIWorkspace
	Dim Db As NotesDatabase
	Dim FileTypeItem As NotesItem
	
	Set Db = Session.CurrentDatabase
	Set Uidoc = Ws.CurrentDocument
	Set Curdoc= Uidoc.Document
	Set FileTypeItem = Curdoc.GetFirstItem("FileType")
	
	Forall v In FileTypeItem.Values
		Msgbox v
	End Forall
End Sub

三、效果