Enable enhanced HTML generation

HCL Domino Domino Forum
1

Everyone using 8.5 has probably seen the new database property “Enable enhanced HTML generation”. There is very little documentation regarding this new feature, but that’s not my point in writing this. I want this feature turned on in about 1000 databases. There does not seem to be any way of easily doing this that I can find. What I was originally going to do is write a LotusScript agent to loop through all of them and set this property, which I’ve done with other database properties in the past.

THE PROBLEM IS THERE DOES NOT SEEM TO BE ANY WAY TO SET THIS PROPERTY IN LOTUSSCRIPT!

In the past, setting database properties in LotusScript was a no-brainer using the NotesDatabase Class’ properties or its SetOption Method. As of now, I have to open the database properties box for 1000 databases and check off this option if it is not already checked off.

Even in the Domino Administrator, the “Advanced Properties…” functionality is conveniently missing the option to turn on enhanced HTML generation.

This has to be some sort of huge oversight with this product. Either that or I’m missing something simple since no one else has been asking about this. Maybe there is an undocumented way of doing this? Maybe there is an API I can use to set this (similar to the one that needed to be used to full-text index file attachments with conversion filters prior to Notes Release 6)?

2

Subject: Solution

Please everyone, don’t all reply at once!!!

Anyway, I found a way of doing this in LotusScript:

Tommy Valand’s code to do this:

Dim s As New NotesSession, db As NotesDatabase

Set db = s.currentDatabase

'// Fetch the db icon document

Dim col As NotesNoteCollection, doc As NotesDocument

Set col = db.createNoteCollection( False )

col.selectIcon = True

Call col.buildCollection()

'// Enable enhanced HTML

Set doc = db.getDocumentById( col.getFirstNoteId() )

Call doc.replaceItemValue( “$AllowPost8HTML”, “1” )

Call doc.save( True, False )

3

Subject: Shortcut code

If you want shorter code to do the same thing this also works…

Dim s As New NotesSession

s.CurrentDatabase.GetDocumentByID({FFFF0010}).ReplaceItemValue({$AllowPost8HTML}, {1}).Parent.Save False, False

FFFF0010 is a special NoteID for the Icon design element note.