You should also have a view, called LTT with no categorisation and showing all log entries you need exported.
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Dim fileNum As Integer Set db = session.Currentdatabase Set view = db.Getview("LTT") Set doc = view.GetFirstDocument fileNum% = FreeFile() Open "C:\log.txt" For Append As fileNum% While Not ( doc Is Nothing ) ForAll v In doc.EventList Print #fileNum% , v End ForAll Set doc = view.GetNextDocument(doc) Wend Close fileNum% End Sub
Data is exported to C:\log.txt