Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim uiview As notesuiview
Set uiview=ws.CurrentView
Dim view As notesview
Set view=uiview.View
Dim uidb As notesuidatabase
Set uidb=ws.CurrentDatabase
Dim db As notesdatabase
Set db=uidb.Database
Dim dc As notesdocumentcollection
Dim doc As notesdocument
Set dc=db.UnprocessedDocuments
Set doc=dc.GetFirstDocument
i=0
While Not doc Is Nothing
doc.IfRelate = "0" 'IfRelate是域名
Call doc.Save(True,True)
Set doc=dc.GetNextDocument(doc)
i=i+1
Wend
Print "成功替換數量 "+Cstr(i)
End Sub