Getting a list of mail file ODS versions?

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Getting a list of mail file ODS versions?

Feedback Type: Question

Product Area: Domino Designer on Eclipse (DDE)

Technical Area: Administration

Platform: Windows

Release: 8.5.3

Reproducible: Not applicable

Wondering if someone could give me a hand since I'm not a developer. I am trying to get a list of mailfiles whose ODS level is less than 51

I am trying to compact my mail files to get them to ODS 51, but the Compact task is quitting after a few thousand mail files or so. So my thought is to break the mail files into groups using .ind files.

But I need to get a list of mailfiles less than ODS 51.

I did a search on the internet and came up with this code:

Sub Initialize Dim session As New NotesSession Dim dbdir As New NotesDbDirectory("") Dim db As NotesDatabase Set db = dbdir.GetFirstDatabase(DATABASE) While Not(db Is Nothing) Call db.Open("", "") ' Database must be open Messagebox "ODS version = " & db.FileFormat,, db.Title Set db = dbdir.GetNextDatabase Wend End Sub

But I'm not sure how to tweak the code to look in the Mail folder and have it say, if ODS Version is < 51, then write to a text file.

Thanks for any assistance you can give me.

Feedback number JHAE8N6NG8 created by ~Dana Ekweverikle on 10/31/2011

Status: Open
Comments: