-----------------------------删除文档中指定的一个域(注:是删除整个域而不是域值)-----------------------------
Sub Initialize
On Error Goto a
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = db.GetDocumentByUNID("749E51D317265737482578E800295CFD") '通过ID获取到文档
Dim item As NotesItem
'方法一
'判断文档中是否有IP这个域,有责执行
While doc.HasItem("IP")
Set item = doc.GetFirstItem("IP")
Call item.Remove
Call doc.Save(True,True)
Wend
'方法二
While doc.HasItem("SYSF_CreateTime")
Call doc.RemoveItem("IP")
Call doc.Save(True,True)
Wend
Exit Sub
a:
Msgb