Lotus Notes: Limpando a lista de Contatos Recentes

Como fazer para limpar a lista de Contatos Recenters da versão 8

Para isso sugiro:

1) Crie um email

2) Clique no corpo do documento e depois vá ao menu Criar -> Hotspot -> Button

O tipo de código deve ser LotusScript

Adicione o código abaixo que faz isso

Dim session As New NotesSession Dim db As NotesDatabase Dim col As NotesDocumentCollection Dim doc As NotesDocument Dim doc1 As NotesDocument Set db = session.GetDatabase("","names.nsf") Set col = db.AllDocuments Set doc = col.getFirstDocument While Not doc Is Nothing Set doc1 = col.GetNextDocument(doc) If doc.HasItem("Form") Then If doc.GetItemValue("Form")(0)="DPABperson" Or doc.GetItemValue("Form")(0) = "DPABgroup" Or         doc.HasItem("DPABLastSyncProcessTime") Then Call doc.Remove(True) End If   End If    Set doc = doc1 Wend

Envie para os seus funcionários