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

Ver também

• Mais artigos sobre IBM Domino e Notes