Lotus Notes: Limpando a lista de Contatos Recentes

De ebasso.net Wiki

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

Retirado de "http://ebasso.net/wiki/index.php/Lotus_Notes:_Limpando_a_lista_de_Contatos_Recentes"
Ferramentas pessoais