The new parameter and value have been set. The list above will not reflect this until you hit OK to close the Server Configuration Settings dialog box. You may set other values before closing. This message will only appear once per session.
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class SortableEntry
Declare Class SortableList
Declare Sub Initialize
Declare Function BuildSearchFromList(vItemNames As Variant, vList As Variant) As String
Declare Function BuildSearchFromValue(strItemName As String, strValue As String) As String
Declare Function FormulaAppend(strMainFormula As String, strFormula As String, Byval iType As Integer) As String
Declare Function ConvertArrayToList(vArray As Variant, Byval bIncludeQuotes As Integer) As String
Declare Function BuildDateTimeFormula(strItemName As String, dtValue As NotesDateTime, Byval iComp As Integer) As String
Declare Function BuildNumberFormula(strItemName As String, Byval iNumber As Integer, Byval iComp As Integer) As String
Declare Function SearchForDatabase(dbToSearch As notesdatabase, strFormula As String) As notesdocumentcollection
Declare Sub ProcessResults(collection As notesdocumentcollection, newnote As NotesDocument)
Declare Sub AddLineItemToResults(rtitem As notesrichtextitem, strReplicaID As String, strServer As String, strNoteID As String, strTitle As String, strData As String)
Declare Sub InitRTStyle(rtstyle As NotesRichTextStyle)
Declare Sub AddEntryToResults(rtitem As notesrichtextitem, sortlist As sortablelist)
Declare Function ExecuteSearch(db As NotesDatabase, vValues As Variant, strForm As String, Byval iHow As Integer) As NotesDocument
'++LotusScript Development Environment:2:5:(Declarations):0:10
'FormulaBuilder:
Const FORMULA_TYPE_AND = 1
Const FORMULA_TYPE_OR = 2
Const OP_LESS = 1
Const OP_GREATER = 2
Const OP_EQUAL = 3
Const OP_LESSEQUAL = 4
Const OP_GREATEREQUAL = 5
Dim dbCatalog As Notesdatabase
' We normally would not go for public data members, but we want speed and simplicity
Class SortableEntry
Public m_vNext As SortableEntry
Public m_vPrev As SortableEntry
Public m_strTitle As String
Public m_strData As String
Public m_strReplicaID As String
Public m_strServer As String
Public m_strNoteID As String
End Class
Class SortableList
Public m_head As SortableEntry
Sub AddEntry(vEntry As SortableEntry)
Dim currententry As SortableEntry
If (m_head Is Nothing) Then
Set m_head = vEntry
Exit Sub
Else
' find the first place to insert this
Set currententry = m_head
While (Strcompare(vEntry.m_strTitle, currententry.m_strTitle) > 0)
If (currententry.m_vNext Is Nothing) Then
' we are at the end of the list; append
Set currententry.m_vNext = vEntry
Set vEntry.m_vPrev = currententry
Exit Sub
End If
Set currententry = currententry.m_vNext
Wend
' insert this entry
Set vEntry.m_vNext = currententry
Set vEntry.m_vPrev = currententry.m_vPrev
If Not(currententry.m_vPrev Is Nothing) Then Set currententry.m_vPrev.m_vNext = vEntry
Set currententry.m_vPrev = vEntry
If currententry Is m_head Then Set m_head = vEntry
End If
End Sub
End Class
Dim uidoc As notesuidocument
Dim note As notesdocument
Dim newnote As notesdocument
Dim collection As NotesDocumentCollection
Dim strFormula As String
Dim strTitles As String
Dim strValues As String
Dim i As Integer
Dim nPos As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:BuildSearchFromList:1:8
Function BuildSearchFromList(vItemNames As Variant, vList As Variant) As String
Dim strFormula As String
Dim strItemNames As String
' First, check to see if any recipients were listed
'++LotusScript Development Environment:2:2:AddLineItemToResults:1:8
Sub AddLineItemToResults(rtitem As notesrichtextitem, strReplicaID As String, strServer As String, strNoteID As String, strTitle As String, strData As String)
(.txt)