Exclui um campo

Sub ExcluiCampo(docD As NotesDocument, Campo As String)
' ===> Objetivo:
' ===> Exclui um campo

' Parâmetros
' docD = Documento
' Campo = Nome do Campo que deseja excluir

' Verificando se existe o campo
If docD.HasItem(Campo) Then
Set item = docD.GetFirstItem( Campo )

' remove o campo
Call item.Remove
End If

End Sub