This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Ah, sorry. The view agent in @Commands can not do it.... ~Umberto Nongeroson 16.Jan.04 10:24 PM a Web browser Notes Client 6.5Windows 2000, Windows XP
LS Agent can. Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing) acts = doc.Activity If doc.acts(0) <> "" Then For i = Lbound(acts) to Ubound(acts)
set newDoc = db.CreateDocument
newDoc.Form = "Mod_Activity"
Call newDoc.MakeResponse(doc) 'If needed
newDoc.Activity_Date = strLeft(acts(i), " - ")
newDoc.Activity_Enter = strRight(acts(i), " - ")
Call newDoc.Save(True, False)
Next
doc.Recent_Activity = Today
doc.Activity = ""
Call doc.Save(False, True)
End If
Set doc = collection.GetNextDocument(doc)
Wend
Return to top
. . . . . . Ah, sorry. The view agent in @Comma... (~Dan Elhipister... 16.Jan.04)
Print this page
