Check if a OOO agent is activated on lotus notes databases…


This week I was asked to get all the activated out of office agent. I have activated the ooo agent on the server, so getting the info from the profile is not a solution.

If you launch your administrator client you could see that there is a column which indicates if the ooo is activated. This means that the property is set on the database file attribute.

 

 

Reading the web I found this post :

http://www-10.lotus.com/ldd/nd85forum.nsf/DateAllFlatWeb/37db9f50dc3f5515852576110067fb03?OpenDocument

So you can write this in a simple function :

Public Function isOOO(db as notesdatabase) As Integer
                On Error Goto errorHandler        
                If app.se.NotesBuildVersion < 379 Then
                        Call app.logError(“too old version 8.5x”)
                        Exit Function
                End If
                
                ‘ *** DBOPT_OUTOFOFFICEENABLED passed as a number to compile in R7 client
                If db.GetOption( 74 ) Then
                        isOOO = True
                Else
                        isOOO = False
                End If
                Exit Function
errorHandler:
                Dim sMsg As String
                sMsg =   Typename(Me) + “-” + Error + “-” +Cstr(Err()) & ” at line number ” & Erl() &  ” ” & Lsi_info(12) & ” ” & Lsi_info(2)
                Call app.logErrorExt(sMsg, Nothing)        
End Function

Advertisements

About pierrekoerber
Hey, pour faire connaissance, laisse-moi un message... drop me a line.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: