LOTUSSCRIPT/COM/OLE CLASSES
Private Sub Export_Click() Dim session As New NotesSession Dim db As NotesDatabase Dim exporter As NotesDXLExporter Dim output As String Dim filenum As Integer Call session.Initialize Set db = session.GetDatabase("", "names", False) Set exporter = session.CreateDXLExporter output = exporter.Export(db) filenum = FreeFile Open "c:\dxl\names.dxl" For Output As filenum Write #filenum, output Close filenum End Sub
See Also