CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesExperienced Users Primer|Experienced Users PrimerOnly using this frameset to get page window title to show up in client#4C##############################
CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesNew Users Tour|New Users TourOnly using this frameset to get page window title to show up in client#4C##################################################
CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesPrimer Task 1FS|Primer Task 1FSOnly using this frameset to get a page title to show up#4C
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIVIEW
Set Source = Bind(Objectname_)
On Event Queryopendocument From Source Call Queryopendocument
End Sub
'++LotusScript Development Environment:2:2:Queryopendocument:1:12
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim Workspace As NotesUIWorkspace
Dim Collection As NotesUIView
Dim Doc As NotesDocument
Set Workspace = New NotesUIWorkspace
Set collection = Source
Set doc = collection.Documents.GetFirstDocument
Call Workspace.URLOpen(doc.URL(0))
continue = False
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Name
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$ViewScript
More Bookmarks
Favorite Bookmarks|Favorites
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIVIEW
Set Source = Bind(Objectname_)
On Event Queryopendocument From Source Call Queryopendocument
End Sub
'++LotusScript Development Environment:2:2:Queryopendocument:1:12
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim Workspace As NotesUIWorkspace
Dim Collection As NotesUIView
Dim Doc As NotesDocument
Set Workspace = New NotesUIWorkspace
Set collection = Source
Set doc = collection.Documents.GetFirstDocument
Call Workspace.URLOpen(doc.URL(0))
continue = False
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
A=+xT
$TITLE
$Name
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$ViewScript
Notes 5 Tour
Sorry - the tour is not available with the beta release of Notes 5.
To check out "what's new" in Notes 5, which is aimed at experienced Notes users but is still helpful for a first time user,
Experienced Users Primer
click here
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WINDOWTITLE
$BODY
New Users Page 1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$FrameSet
$Flags
(GIF89aU
)))1cZ9ZZ9Z
JJJZ9ZZ9
c!Rc1
";rxx!
by=*x
QDdzc
N0vTi{
rYlpa
lo]9`
RW<qjj
F6&n
xtQG}
bLR]a
mmQi-:vP
>5z[}
Q!jb4oSS7
l|51:
aw&u8c
'-v^%vn
8rwKr
@0sdn
bi2x9rr.
4fi6h)
8If "
y@(UJ
!Pt]d
tqlD(
tc X8A[2
.vx63
\"mx{/
bx#a}
`#tQ7dI'pUH7q
$kjX-@
/ Prb
i`Oc4
L>x5!
I)!b8
*(ijC
.q/`\
\nYIDLZ
QBz{3
`IFrI
_TVZU
Nef3vf
VZ}_z
o[ErUB
uk_x
|oy^WawGy
P%+9
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesHigh
$ImagesColorize
$ImagesWide
$ImageData
$ImageNames
GIF89aU
)))1cZ9ZZ9c
JJJZZZZ
Bc!RcB
p\B e
T LHS
T5TXg
t:I1 \9
WT@ F
$ *NT$
u@iM/
s"?Y&F
#u_TL
NHIZ
=(A\~
{ov@#
-C`0D
r+7b/V~[
y[Wo{
KFt(h^+xk!
wbh~y
v[96s~h
rjvhb.
Uh9`z<
'n|H{
Gf^fb
m^Vh%Pk=`zX8
xtKV`
SxkJP
n2:fS9in
0wsXw
7qEzl>yl
IX^&fm
#` '0
|ubKw
z^^\b{z
hp\sz
DHwYy
BnuDn
"x(St5M
#cJAVX
pFkdQ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesHigh
$ImagesColorize
$ImagesWide
$ImageData
$ImageNames
(GIF89aU
)))1cZ9ZZ9c
JJJZZZZ
$YvHp
:=`-i
5o_C,
8zZRHD
VuX>~
\\7j\
u{#jv@
:@xs1j
Aa@30b4u
5m)Pg
Yuv8}
'b<%d
>3%="
eUYFR_
nfgAp21<
`x9h[
>q5U=
\[uH'
6r_Jeh
{m!B!
*EKUL5]P
8I4K
Joy$!
k=9Ip
YPC:0
4IWk"
w7<FN
qU[P#
=GtaG
BziLgJS
+aMuO
zF*N5HV
@C5dC7
\!/l@4
4$@R<
=KltE
:x}Ry
]Vr<Qa
z$I>t\s
\Y92\
q=^aK
,)UW3`
5FS7fU
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
.Wl?T
$ImagesHigh
$ImagesColorize
$ImagesWide
$ImageData
$ImageNames
(GIF89aU
)))1cZ9ZZ9c
JJJZ9ZZZZZZ
c!RcB
Tc>EP$phRe
`BgJ^`q
tJ!;P
%2C`:
pcJbe
-@_jA
U" AX
#O.ys'&
>Ii'EoC .!
]*\`B
;sGKd&
,\!<;
Slw#{
!B#0$
quJ0P
mH]v3u
H&BX
VB1#dU
@ p>
ExhDQ
mXG8@L
DxA Ba
P%KuJ
#M(?-
5nK$.
C)B i
*D<DD
MR!M\
49%1#a
=tL+|c
TSD(I
ENT h
UfvfhF
z3Q?<
3vACm@
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
btX$\
$ImagesHigh
$ImagesColorize
$ImagesWide
$ImageData
$ImageNames
Background Other.GIF
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Background
$INFO
$$ScriptName
$BODY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$$ScriptName
$BODY
"MS Sans Serif
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "FormulaBuilder"
'++LotusScript Development Environment:2:5:(Forward):0:1
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 ProcessMailResults(collection As NotesDocumentCollection, newnote As NotesDocument)
Declare Sub ProcessCalendarResults(collection As NotesDocumentCollection, newnote As NotesDocument)
Declare Sub AddEntryToResults(rtitem As notesrichtextitem, sortlist As sortablelist)
Declare Sub TransferItems(noteSrc As notesdocument, noteDest As notesdocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim dbCatalog As Notesdatabase
Dim vItemNames As Variant
Dim strWebSearchBuffer As String
Dim strDbSearchBuffer As String
Dim strBrowseBuffer As String
Dim strSearchOption As String
'++LotusScript Development Environment:2:1:SearchForDatabase:1:8
Function SearchForDatabase(dbToSearch As notesdatabase, strFormula As String) As notesdocumentcollection
Dim dtSearch As New NotesDateTime("")
If Not(dbToSearch.IsOpen) Then
Call dbToSearch.Open("","")
If Not(dbToSearch.IsOpen) Then Exit Function
End If
Set SearchForDatabase = dbToSearch.Search(strFormula, dtSearch, 0)
End Function
'++LotusScript Development Environment:2:2:ProcessResults:1:8
Sub ProcessResults(collection As notesdocumentcollection, newnote As NotesDocument)
Dim session As New notessession
Dim db As notesdatabase
Dim note As notesdocument
Dim rtitem As notesrichtextitem
Dim rtstyle As notesrichtextstyle
Dim nameSrv As notesname
Dim dbList As SortableList
Dim entry As SortableEntry
Dim strTitle As String
Dim strServer As String
Dim strReplicaId As Variant
If (collection Is Nothing) Then Exit Sub
If (collection.Count = 0) Then
Exit Sub
End If
Call newnote.replaceitemvalue("SearchType", "D")
Set rtstyle = session.CreateRichTextStyle
If (newnote.hasitem("Body")) Then
Set rtitem = newnote.getfirstitem("Body")
Else
Set rtitem = New notesrichtextitem(newnote, "body")
End If
Call InitRTStyle(rtstyle)
Call rtitem.AppendStyle(rtstyle)
Set dblist = New SortableList()
Set note = collection.GetFirstDocument
While Not(note Is Nothing)
Set entry = New SortableEntry()
Set nameSrv = New NotesName(note.GetItemValue("Server")(0))
'++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)
Set collection = db.Search(strMainFormula, dtStart, 0)
Print
If (collection.Count) Then
Set newnote = New notesdocument(session.currentdatabase)
Call processmailresults(collection, newnote)
Call newnote.replaceitemvalue("Form","Results")
Call ws.EditDocument(False, newnote)
Else
Msgbox "No documents were found"
End If
End Sub
Lotus Product
)< ^L
)< ^L
)< ^L
)< ^L
)< ^L
0S0E
Read your Mail
readmail.gif
Search Calendar
find.gif
SearchCalendar
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Dim ws As New notesuiworkspace
Dim session As New notessession
Dim db As notesdatabase
Dim results As notesnewsletter
Dim collection As notesdocumentcollection
Dim note As notesdocument
Dim newnote As notesdocument
Dim dtStart As New NotesDateTime("")
Dim dtSearch As New notesdatetime("")
Dim dtEnd As New NotesDateTime("")
Dim item As notesitem
Dim strCategory As String
Dim strFrom As String
Dim strSubject As String
Dim strDateFormula As String
Dim strFromFormula As String
Dim strSubjectFormula As String
Dim strCategoryFormula As String
Dim strMainFormula As String
If Not(ws.dialogbox("(SearchCalendarDlg)", True, True,,,,,"Search Calender",,True)) Then Exit Sub
' build the search formula
Set note = ws.CurrentDocument.document
strFrom = note.getitemvalue("tmpChair")(0)
strSubject = note.getitemvalue("tmpSubject")(0)
strCategory = note.getitemvalue("tmpCategory")(0)
Set item = note.getfirstitem("tmpStartDate")
If Len(item.text) Then Set dtStart = item.DateTimeValue
Set item = note.getfirstitem("tmpEndDate")
If Len(item.text) Then Set dtEnd = item.DateTimeValue
' build the date formula
If Not (dtStart Is Nothing) Then strDateFormula = BuildDateTimeFormula("StartDateTime", dtStart, OP_GREATEREQUAL)
If Not(dtEnd Is Nothing) Then strDateFormula = FormulaAppend(strDateFormula, BuildDateTimeFormula("EndDateTime", dtEnd, OP_LESSEQUAL), FORMULA_TYPE_AND)
We've made a few changes to the Notes 5 interface.
Click on a topic to learn more...
Sample Topics Arrows.gif
Task Buttons
Sample Task Buttons.GIF
All your active tasks in Notes are now just a button click away. Try it out -
Primer Task 1|Primer Task 1Page
click here
to open a second task - then click on the "New in Notes 5" task button to switch back to this page.
Closing tasks is easy too - just move the mouse to the task and click on the "x".
Sample X.gif
Keyboard shortcuts: Esc to close the current task; Ctrl+Tab to switch tasks; Alt+W+# to select a task.
Bookmarks
Your applications, databases, documents and web pages can be easily opened from the Notes Bookmark Bar running down the left of the Notes window.
Sample Bookmarks.gif
Just click any bookmark on the bar to open the application or page.
Sample Bookmark Folders.gif
The bookmark bar can also store folders of bookmarks. A click on a bookmarks folder slides open a page to display the contents of the folder.
Notes creates an initial set of bookmarks and folders for you (described below), but you can easily add your own. Just drag and drop any task button to the bookmark bar or to a folder on the bar.
Sample Drag Drop.GIF
Also use drag and drop to rearrange your bookmarks . To delete, rename or change the icon of a bookmark, click on it with the right mouse button.
You can choose any bookmark to be your home page - click with the right mouse button and choose the menu command "Set Bookmark as Home Page". You will see this page first when you start Notes, and it will be displayed whenever you close all other open tasks.
Notes creates an initial set of bookmarks on the bar to the core Notes applications (mail, headlines, calendar, address book, to do) and for mobile users, a bookmark to the replicator page. In addition, Notes creates the following bookmark folders:
Sample Favorites.gif
Favorite Bookmarks - in this folder we've put bookmarks to databases that you have recently opened. Feel free to drag some directly to the bookmark bar, to add your own, or to remove ones that you don't use frequently.
Sample Databases.GIF
Databases - this folder contains a bookmark to the R4 Notes Workspace. It also contains a bookmark for every database icon from your workspace. Each tab from the workspace becomes a folder on this page, and all the databases become bookmarks in the corresponding folder.
Sample Migrations.GIF
Sample Forms.gif
Create - we've put bookmarks in this folder for the kinds of documents people frequently create in Notes. For example, clicking the "New Memo" bookmark will start a new mail message for you. Add your own "create" bookmarks by dragging and dropping onto this folder the task button of any new document
before
you save the document for the first time. Like all other bookmarks, you can also put "create" bookmarks right on the bookmark bar.
Sample Netscape.gif
Sample IE.gif
Netscape and Internet Explorer folders - bookmarks from your web browser(s) of choice.
Disclaimer # 1 - Creating bookmark folders of your own is not fully functional in this beta release.
Disclaimer # 2 - Portfolios from Notes 4.6 are not yet supported - in the final release, Portfolios will display and act just like a folder of bookmarks.
Disclaimer # 3 - The Change Icon dialog is incomplete.
Navigation Buttons
Sample All Navs.gif
These buttons in the upper right corner of your Notes window are always available to help you get around.
Sample Nav1.GIF
Go Back - returns you to the previous page or task. Great for browsing the web, but also handy when you've closed a document or database that you'd like to revisit. Keyboard shortcut: Alt+back arrow
Sample Nav2.GIF
Go Forward - it takes you to the task or document that was on display prior to pressing the Go Back button. keyboard shortcut: Alt+forward arrow.
Sample Dropdown.gif
Click on the drop down section of either of these buttons to display a menu of the places you can go back or forward to - selecting an item from the menu takes you there.
Sample Nav3.GIF
Stop - interrupts the current program activity. Keyboard shortcut: Ctrl+Break.
Sample Nav4.GIF
Refresh - refreshes the current page or view with the latest data. Keyboard shortcut: F9.
Sample Nav5.GIF
Search - click on the main button to search the current document, page or view. Click on the drop down section of the button to display a menu of ways to find what you're looking for.
Sample Nav6.GIF
Open URL - displays a box that shows the URL (web address) of your current page. Type in a new URL and Notes will open up the web page for you. You can "pin" the URL box on screen by pressing the "pin" button.
Sample Pin.gif
Caveat - in this beta build, Notes displays icons in the navigation bar that take you the Administrator and the Designer (assuming you have installed these products). These will be displayed as bookmarks in subsequent builds.
Popup Keyboard Access
We've extended the Windows Alt+key menu access to include other on-screen elements, like our task buttons and action bars.
Just hold down the Alt key, and Notes displays little popups that let you know which letter or number to press to select an item.
Sample Popup.gif
Great for switching tasks (Alt+W followed by a number), getting to your bookmarks (Alt+B followed by a number) and performing actions on the action bar (Alt+1, 2, 3...).
Standard Windows Alt keyboard equivalents (e.g. Alt+F for the file menu) continue to work just fine.
Caveat - In this build, Notes only displays popups for the first 10 items.
Core Applications
Section not yet written.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$INFO
$WINDOWTITLE
$$ScriptName
$BODY
Lotus Product
(SearchCalendarDlg)
Date Range:
From:
.,$ //:
tmpStartDate
.,$ //:
tmpEndDate
Title:
tmpSubject
Chair
tmpChair
Category:
tmpCategory
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
StartDate
EndDate
$INFO
$$Script_O
$$ScriptName
tmpStartDate
tmpEndDate
$BODY
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
(SearchMailDlg)
Recipients contain:
tmpRecipientsList
Sender is:
tmpFrom
Subject contains:
tmpSubject
Importance is:
tmpImportance
-Any-|0High|1Normal|2Low|3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
MrffH5
$INFO
$Script
$$Script_O
$$ScriptName
$BODY
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIVIEW
Set Source = Bind(Objectname_)
On Event Queryopendocument From Source Call Queryopendocument
End Sub
'++LotusScript Development Environment:2:2:Queryopendocument:1:12
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
(.txt)