Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.
Sub Initialize Dim s As New NotesSession ' declare object variables Dim db As NotesDatabase Dim v As NotesView Dim doc As NotesDocument Dim docNext As NotesDocument ' instantiate objects Set db = s.CurrentDatabase Set v = db.GetView("Log_Refresh") v.AutoUpdate = False Set doc = v.GetFirstDocument Do Until doc Is Nothing Set docNext = v.GetNextDocument(doc) If doc.computewithform(True, False) Then Call doc.save(True, False) Else Messagebox "Document " & doc.UniversalID & " was not saved" End If Delete doc ' remove doc from cache (does not delete from database) Set doc = docNext Loop ' refresh the view (don't bother) ' Call v.Refresh End Sub
|@ command if structure getting unmanageable||12||87|
|Permanent Lotus Notes Connection for all users in a Domino Domain||15||106|
|IBM Lotus Notes Rules not working||5||75|
|Domino 8 run a specific agent on all nsf in a folder||9||25|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!