It's easy! Check out this step-by-step guide for asking an anonymous question on Experts Exchange.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.