Thanks - wrote a small agent

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

As it happens, we need to update a couple more fields to cover all the cases.

I used the following code:

Dim session As New NotesSession
Dim maildb As NotesDatabase
Dim ooopdoc As notesdocument

Set maildb = session.Getdatabase("server", "database.nsf", False)

Set ooopdoc = maildb.Getprofiledocument("outofofficeprofile")

' Blank out any fields which would normally contain the date

' DaysOut is the field usually used at the beginning of the message
Call ooopdoc.Replaceitemvalue("DaysOut", "")
' SpecialBody is the field used at the beginning of any "Exceptions" message
Call ooopdoc.Replaceitemvalue("SpecialBody", "")
' AppendSubjectDate is the field added to the end of the subject if you enable this option
Call ooopdoc.Replaceitemvalue("AppendSubjectDate", "")

Call ooopdoc.Save(False, False, False)

Feedback response number WEBB8FFEF4 created by ~Manny Quetvelusonettu on 03/30/2011