Lotus Notes: Limpando a lista de Contatos Recentes: Difference between revisions
mNo edit summary |
No edit summary |
||
Line 34: | Line 34: | ||
Envie para os seus funcionários | Envie para os seus funcionários | ||
= Ver também = | |||
* [[Lotus Domino e Notes| Mais artigos sobre IBM Domino e Notes]] | |||
[[Category: IBM Domino]] | |||
[[Category: Lotus Domino]] |
Latest revision as of 15:23, 27 February 2014
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