Errata

Example 2.23

Dim string1 As String, string2 As String
string1 = "Today was a good day."
string2 = "slow day."
Print "Before:æ " & string1
Mid(string1, 13, 9) = string2
Print "After:æ " & string1

Table 2.4

Example 2.27

Output should be:

33
29
31
33
31

The explanation section mentions String2 and String3, but they should be String1.

Example 2.28

Replace:

ElseIf (Right(LCase(answer),1) = "n") Then

With:

ElseIf (Right(LCase(answer),1) = "o") Then

Chapter 3 Example

Variable and code to set the top sales person is missing.æ Declare public variable to store top salesperson?s name.

Public TopSalesPerson

Also, add code after third line of compareSalesAmount function that sets the TopSalesPerson variable.

TopSalesPerson = passedDoc.SalesPerson(0)

Example 4.1

Dim statement missing from declarations of dbTitle and dbSize

Dim dbTitle As String
Dim dbSize As Double

Example 4.7

Code for setName routine should be:

Me.Name = s

Example 4.9

Change line in Initialize section from...

.Name = "Student #" + x

to...

.Name = "Student #" + Cstr(x)

Chapter 4 Example

Numerous missing references to indexed object arrays.æ The full code is below.

?Declarations Section

Public Class SalesPerson
ææææ Private Name As String
ææææ Private ID As String
ææææ Private TotalSales As Currency
ææææ Sub New
æææææææææ With Me
ææææææææææææææ .Name = ""
ææææææææææææææ .ID = ""
ææææææææææææææ .TotalSales = 0
æææææææææ End With
ææææ End Sub
ææææ Public Sub setName(s As String)
æææææææææ Me.Name = s
ææææ End Sub
ææææ Public Function getName As String
æææææææææ getName = Me.Name
ææææ End Function
ææææ Public Sub setID(s As String)
æææææææææ Me.ID = s
ææææ End Sub
ææææ Public Function getID As String
æææææææææ getID = Me.ID
ææææ End Function
ææææ Public Sub setTotalSales(c As Currency)
æææææææææ Me.TotalSales = c
ææææ End Sub
ææææ Public Function getTotalSales As Currency
æææææææææ getTotalSales = Me.TotalSales
ææææ End Function
ææææ Public Sub incTotalSales(amount As Currency)
æææææææææ Me.TotalSales = Me.TotalSales + amount
ææææ End Sub
End Class

? Initialize Section
Dim sp() As SalesPerson
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set dc = db.AllDocuments
Dim x As Integer
Dim y As Integer
Dim z As Integer
For x = 1 To dc.Count
Set doc = dc.GetNthDocument(x)
If (x=1) Then
Redim sp(0) As SalesPerson
sp(0).setName(doc.name(0))
sp(0).setID(doc.ID(0))
sp(0).setTotalSales(doc.Sales(0))
Else
Found = False
For y = 0 To Ubound(sp)
If (sp(y).getID = doc.Name(0)) Then
sp(y).incTotalSales(doc.Sales(0))
Found = True
End If
Next y
If Not (found) Then
Redim Preserve sp(Ubound(sp) + 1) As SalesPerson
sp(Ubound(sp) + 1).setName(doc.Name(0))
sp(Ubound(sp) + 1).setID(doc.ID(0))
sp(Ubound(sp) + 1).setTotalSales(doc.Sales(0))
End If
End If
Next x
For z = 1 To Ubound(sp)
Msgbox "Total sales for " + sp(z).getName + " is " + Cstr(sp(z).getTotalSales) + "."
Next z

Example 5.7

Dim s As New NotesSession
Dim db As New NotesDatabase("","")
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim sales List As Currency
If (db.Open("","Test2.nsf")) Then
Set dc = db.AllDocuments
If (dc.Count > 0) Then
Call dc.FTSearch(|FIELD Form =| & "Sales", 0)
For x = 1 To dc.Count
Set doc = dc.GetNthDocument(x)
If (doc.HasItem("SalesAmount") And doc.HasItem("SalesPerson")) Then
If (sales.IsElement(doc.SalesPerson(0))) Then
'I am getting error message when I try to save form, Illegal reference to array orlist:
Sales
sales(doc.SalesPerson(0)) =sales(doc.SalesPerson(0)) + doc.SalesAmount(0)
Else
sales(doc.SalesPerson(0)) = doc.SalesAmount(0)
End If
End If
Next x
End If
Forall y In sales
soutput$ = soutput$ + Listtag(y) + " - " + y + Chr(13)
'I hadto change output$ to soutput$, Notes did not like output$
End Forall
Messagebox soutput$, 0, "Results"
End If

Example 5.7

The code uses a variable called name, but this is a reserved word in LotusScript.æ The variable name should be ?names?.

Example 5.14

A parenthesis was missing in the last if statement, and the Erase statement does not require parentheses around its argumentæ The corrected lines are...

If (Iselement(myList(search))) Then
Erase myList(search)

Example 5.17

The property used to check if the database is Full-Text Indexed is misspelled.æ It is listed as IsFullText, but it should be IsFTIndexed.æ The corrected line follows.

If (db.IsFTIndexed) Then

Example 5.23

The terms ?New? and ?As? are reversed in the declaration of the NotesUIWorkspace object.æ It is the first line.

Dim uiw As New NotesUIWorkspace

Chapter 5 Example

Replace the line

If (sales.IsElement(doc.SalesPerson(0))) Then

With:

If (Iselement(sales(doc.SalesPerson(0)))) Then

Also, the variable output is seen as a reserved word in LotusScript so redefine it to some other term such as out.æ It is used in two places.,

out = out + Listtag(y) + " - " + Cstr(y) + Chr(13)

and

Messagebox out, 0, "Results"

Example 6.17

Replace line:

Name destfile, renamefile

With

Name destfile As renamefile

Chapter 6 Example

Remove the line...

Dim db As New NotesDatabase

Example 7.4

The line instantiating the NotesUIWorkspace object should have the NEW keyword.

Dim uiw As New NotesUIWorkspace

Example 7.7

The second line after the first else statement is missing the ending quototation mark and parenthesis.

Call aLog.LogAction("There are 100 or fewer documents in this database")

Replace

Dim Log As NotesLog

With

Dim aLog As NotesLog

Example 7.11

Replace

Set aLog = New NotesLog( "Database log" )

With

Set aLog = New NotesLog( "Database log" )

Example 7.12

Replace

Call aLog.LogErrors("Another error has occurred.")

With

Call aLog.LogError(0,"Another error has occurred.")

Example 8.3

The line before the end of the While loop is missing.æ The line retrieves the next document from the collection.æ Without this line, the result is an infinite loop.

Dim uiw As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim lookupDoc As NotesDocument
Dim db As NotesDatabase
Dim view As NotesView
set uidoc = uiw.CurrentDocument
Dim NameList() As String
Set view = db.GetView("Names")
Set lookupDoc = view.GetFirstDocument
FirstTime = True
While Not (lookupDoc Is Nothing)
If (FirstTime) Then
Redim NameList(0) As String
FirstTime = False
Else
Redim Preserve NameList(Ubound(NameList) + 1) As String
End If
NameList(Ubound(NameList)) = lookupDoc.Name(0)
Set lookupDoc = view.GetNextDocument(lookupDoc)
Wend
uidoc.Document.Names = NameList
Call db.Close

Example 8.7

The If statement line is missing the ending parenthesis

If (Not (Source.EditMode)) Then

Example 9.5

The variable delete is declared, but delete is a reserved LotusScript keyword.æ Replace all instances of the variable delete with your own name or use deleteIt.æ

The second to last line in the entryOutput routine is missing a quotation before the word Delete.

outString3 = "Create personal folders: " & folders & Chr(13) & "Delete docs:æ " & deleteIt

Also, the properties CanCreatePersonalAgents and CanCreatePersonalFolders is referenced in the entryOutput routine.æ The correct spelling of the properties is without the trailing ?s?, so they should be referenced as CanCreatePersonalFolder and CanCreatePersonalAgent.

Example 9.6

Replace the line

aclEntry.CanCreatePersonalAgents = False

With

aclEntry.CanCreatePersonalAgent = False

Example 9.7

Corrected Code:

Dim s As New NotesSession
Dim db As NotesDatabase
Dim nACL As NotesACL
Dim rolesList As String
Set db = s.CurrentDatabase
Set nACL = db.ACL
rolesList = "List of roles for " & db.Title & Chr(13)
Forall v In nACL.Roles
rolesList = rolesList & v & Chr(13)
End Forall
Msgbox rolesList, 0, "Roles"

Example 10.1

The variable declared as ?name? conflicts with a LotusScript reserved word.æ Rename all instances of name to newName.

Example 10.3

This will work with version 5.æ The instantiation of the NotesDatabase object with this line.

Set db = uiw.CurrentDatabase

Replace with these two lines.

Dim s As New NotesSession
Set db = s.CurrentDatabase

Example 10.7

The object uidoc is improperly declared as a NotesDocument object; it should be declared as a NotesUIDocument object.

Dim uidoc As NotesUiDocument

Example 10.11

Replace

Call rtitem.AppendTab(1)

With

Call rtitem.AddTab(1)

Example 10.12

Replace:

rtStyle.Italics = False

With:

rtStyle.Italic = False

Example 11.4

Three lines of the listing have errors.æ Here is the complete corrected listing.

Dim ns As New NotesSession
Dim ndb As NotesDatabase
Dim ndoc As NotesDocument
Dim neo As NotesEmbeddedObject
Dim nrtf As NotesRichTextItem
Dim ndc As NotesDocumentCollection
Dim filename As String
Dim count As Long
Set ndb = ns.CurrentDatabase
Set ndc = ndb.AllDocuments
For count = 1 to ndc.Count
æææ Set ndoc = ndc.GetNthDocument(count)
æææ If (ndoc.HasItem("Body") & (ndoc.HasEmbedded)) Then
æææææææ Set nrtf = ndoc.GetFirstItem("Body")
æææææææ filename = InputBox("Please enter the name of the file.")
æææææææ If (filename <> "") Then
æææææææææææ Set neo = nrtf.GetEmbeddedObject(filename)
æææææææææææ If Not (neo Is Nothing) Then
æææææææææææææææ MsgBox "The file was found.",0,"Found"
æææææææææææææææ Exit Sub
æææææææææææ End If
æææææææ End If
æææ End If
Next count

Example 11.5

The last MsgBox line is missing the middle parameter.æ Here is the corrected line.

Msgbox "The file has been embedded.",0,"Success"

Example 11.12

The GetNthDocument method is missing the required index parameter.

Set doc = dc.GetNthDocument(x)

Example 12.6

The first line incorrectly spells the NotesUIWorkspace class as NotesWorkspace.

Example 12.8

Line 4 should use the outlookObject instead of the outlook object when calling the CreateItem method.

Dim outlookObject As Variant
Dim newMemo As Variant
Set outlookObject = CreateObject("Outlook.Application.")
If Not (outlookObject Is Nothing) Then
Set newMemo= outlookObject.CreateItem(0)

æææ If Not (newMemo Is Nothing) Then
æææææææ NewMemo.To = "baseline@aye.net"

æææææææ NewMemo.Subject = "Test message from Lotus Notes"
æææææææ NewMemo.Body = "This is the body of the message."
æææææææ Call NewMemo.PrintOut()
æææææææ Call NewMemo.Send()
æææ End If
æææ Call outlookObject.Quit()
End If

Example 13.4

The String variable type is misspelled when declaring searchString.

Example 13.8

The line containing the If statement is missing the Then statement.

If (dc.Count > 0) Then

Example 14.1

Remove the dash (-) from the line instantiating the NotesSession object.

Example 14.3

The flag variables (oneFlag, twoFlag, threeFlag, fourFlag, fiveFlag, sixFlag, and allFlag) set in the setFlags routine on page 225 must be declared in the Declarations section along with the classes on page 224.æ In addition, the variables must be declared as Public so they are accessible by all other scripts.

[Declarations]
Public oneFlag As Variant
Public twoFlag As Variant
Public threeFlag As Variant
Public fourFlag As Variant
Public fiveFlag As Variant
Public sixFlag As Variant
Public allFlag As Variant

Also, the last End If statement is missing in the Click subroutine.æ It goes between the End If and End Sub statements at the end of the code.

Example 14.4

Replace

Set new = New NotesNewsLetter(dc)

With

Set news = New NotesNewsLetter(dc)

Remove the first quotation mark from the second instance of this line.

Set dc = db.FTSearch(|(FIELD FORM = "salesRecord") OR (FIELD divisionName = "One")|,0)

Example 15.10

Replace

Loop Until ores.EndOfData

With

Loop Until ores.IsEndOfData

Example 15.11

Missing last End If, add it after the last End If in the code.

Section 17.3

The code listed for the Declarations section is missing lines, replace with this code.

Type STARTUPINFO
ææææ cb As Long
ææææ lpReserved As String
æææ ælpDesktop As String
ææææ lpTitle As String
ææææ dwX As Long
ææææ dwY As Long
ææææ dwXSize As Long
ææææ dwYSize As Long
ææææ dwXCountChars As Long
ææææ dwYCountChars As Long
ææææ dwFillAttribute As Long
ææææ dwFlags As Long
ææææ wShowWindow As Integer
æææ æcbReserved2 As Integer
ææææ lpReserved2 As Long
ææææ hStdInput As Long
ææææ hStdOutput As Long
ææææ hStdError As Long
End Type

Example 17.6

Add a space between ?As? and ?Variant? in the declaration of the username variable.

Chapter 20

Chapter 20 contains code errors that result from changes to the LotusScript language from the Beta to the Gold version.æ These corrections will be posted at later date.