Sorry, this Web board is dedicated for the 24x7 Scheduler support only. For specific VB or Lotus Notes questions please contact Microsoft (www.microsoft.com/support/) or Lotus Development (www.lotus.com/support/) tech. support PS. Just my thought, why don't implement this script in native Lotus environment using Lotus Script then simply call such script from VB? : Problem: I need to export the contents of the Notes Log out to an ASCII text : file. I have written the code below which will export the events in any of : the Notes log views I select without a drama. : The problem is that using a Variant I am restricted to 32K . This effectively : causes a portion of the event not to be exported. : If I select 2 3 or 10 items it will work fine except for that size : limitation. : Is there anything I can do to work around this ? : Is there another way to export the Logs contents ? : I really need to be able to export all the selected data : Sub Initialize : Dim session As New NotesSession : Dim db As NotesDatabase : Dim view As NotesView : Dim doc As NotesDocument : Dim collection As notesdocumentcollection : Set db=session.CurrentDatabase : Set collection = db.unprocesseddocuments : If Dir$( "c:\logs\dummy") "" Then : Kill "c:\logs\dummy" : End If : Open "c:\logs\dummy" For Output As #1 : For i = 1 To collection.count : Set doc = collection.getnthdocument(i) : Print #1 , Cstr(Doc.getitemvalue("Events")(0)) : 'Messagebox Cstr(tmp(0)) : Next : Close #1 : End Sub
|