Option Public
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim col As notesdocumentcollection
Dim doc As notesdocument
Dim uiWorkspace As New NotesUiWorkspace
Set db=session.currentdatabase
Set col=db.unprocesseddocuments
Set doc=col.getfirstdocument
Dim Fld As NotesItem
Dim FldCount As Integer
If db.currentaccesslevel < 5 Then ' Little Security Touch
Print ("Access Denied")
Beep
Beep
Beep
Beep
Beep
Beep
Beep
Exit Sub
End If

'Get list of field names
FldCount = 0
Forall item In doc.Items
FldCount = FldCount + 1
End Forall
Redim FieldList(0 To FldCount)
FieldList(0) = "-Unlisted Field-"
x=0
Forall item In doc.Items
x=x+1
FieldList(x) = Cstr(item.name) ' now FieldList is an array with all fieldnames
End Forall
Call Sort(FieldList) ' Now it's alphabetized

'Now to select which fields
FieldToChange = UIWorkspace.Prompt(PROMPT_OKCANCELLISTMULT, "---- Field Deleter ----", "Please select wich fields you wish to Delete.","" ,FieldList )
If Isscalar(FieldToChange) Then
Print "Canceled"
Exit Sub
End If
If FieldToChange(0) = "-Unlisted Field-" Then
FieldToChange(0) = UIWorkspace.Prompt(PROMPT_OKCANCELEDIT, "---- Field Deleter ----", "Enter the Field Name you wish to Delete","" )
If Trim(FieldToChange(0)) ="" Then
Print "Canceled"
Exit Sub
End If
End If


While Not doc Is Nothing
For y= Lbound(FieldToChange) To Ubound(FieldToChange)
If Cstr(FieldToChange(y)) <> "" Then
Set deadfield = doc.GetFirstItem(FieldToChange(y))
If Not deadfield Is Nothing Then Call deadfield.Remove
End If
Next

Call doc.save(False,False)
Set doc=col.getnextdocument(doc)
Wend
End Sub
Sub Sort(array)
n=Ubound(array)+1
For I=1 To (n-1)
J=I
Do While J>=1
If array(J)<array(J-1) Then
A=array(J)
A1=array(J-1)
array(J)=A1
array(J-1)=A
J=J-1
Else
Exit Do
End If
Loop
Next
End Sub