domino代理、lotusscript实现删除域

------删除sign6和sign9域------------------------------------

Sub Click(Source As Button)

Dim sess As New NotesSession

Dim db As NotesDatabase

Set db = sess.CurrentDatabase

Dim wsAs New NotesUIWorkspace

Dim uiview As NotesUIView

Set uiview = ws.CurrentView

Dim dc AsNotesDocumentCollection

Dim doc As NotesDocument

Dim rtfitem As NotesRichTextItem

Set db = sess.CurrentDatabase

Set dc = uiview.Documents

If dc.Count = 0 Then

Msgbox "请选择要修改ID的文档！"

Exit Sub

End If

answer% = Messagebox("您是否确认要删除选中的文档的sign6域！！", 4 , "提示") If answer%=6 Then

Set doc = dc.GetFirstDocument()

While Not doc Is Nothing

'Set rtfitem = doc.GetFirstItem("zwnr")

Call doc.RemoveItem("sign6")

Call doc.RemoveItem("sign9")

Call doc.Save(True,True)

Set doc = dc.GetNextDocument(doc)

Wend

Msgbox "修改sign6完成！"

End If

End Sub

------删除sign0域------------------------------------

Sub Click(Source As Button)

Dim sess As New NotesSession

Dim db As NotesDatabase

Set db = sess.CurrentDatabase

Dim wsAs New NotesUIWorkspace

Dim uiview As NotesUIView

Set uiview = ws.CurrentView

Dim dc AsNotesDocumentCollection

Dim doc As NotesDocument

Set db = sess.CurrentDatabase

Set dc = uiview.Documents

If dc.Count = 0 Then

Msgbox "请选择要删除文档Sign的文档！"

Exit Sub

End If

answer% = Messagebox("您是否确认要修改选中的文档的ID！！", 4 , "提示") If answer%=6 Then

Set doc = dc.GetFirstDocument()

While Not doc Is Nothing

Dim item As NotesRichTextItem

Set item = doc.GetFirstItem("sign0")

If Not item Is Nothing Then

Call doc.RemoveItem("sign0")

End If

doc.TAllSSign = ""

doc.TAllSSigner = ""

doc.TALLSSIGNERCN = ""

doc.TComm2=""

doc.TComm2Name = ""

Call doc.Save(True,True)

Set doc = dc.GetNextDocument(doc)

Wend

Msgbox "删除文档Sign完成！"

End If

End Sub