A workgroup can use this database to share their thoughts and ideas. Almost any group that has information to share among its members can use a discussion database. An engineering group can discuss the products they are designing. An advertising agency can discuss the ad campaigns they are developing. A special interest group can share ideas and opinions on their common interests.
To get started, a user can simply browse through discussion topics and responses that others have contributed. This is particularly useful for new workgroup members who need to come up to speed on important issues that the group is working on. The history of discussion about these issues is preserved in the group's discussion database.
A user can also take a more active role in the discussion by composing his/her own responses to others' comments and by proposing new main topics for discussion.
You can think of a discussion database as an informal meeting place, where the members of a workgroup can share ideas and comments. Like a physical meeting, each member of the workgroup listens to what others have to say and can voice his/her own opinions. However, unlike a physical meeting, the participants do not have to be in the same room at the same time to share information. People can participate when it is convenient for them to do so. And because it is easy for them to share information, they will do so.
Who will use this database?
All the members of a workgroup should use the group's discussion database. Some users will just follow the main topics and responses that other members have contributed. More active users will compose their own main topics and responses.
This template is designed for users accessing the information either from a Notes client or a web browser. All features are available to both types of users. See the Database Using document for more information on how to use the discussion features from a web browser.
When to use this database?
Use the database when you have time: a free moment between meetings, after hours, while traveling.
Where to find more information?
More information can be found in the R4.6 help database, HELP4.NSF and in the
1S2S10S
Notes
/$help?OpenHelp
0R10S
Using document
for this database.
Refer to the following documentation database on
http://www.notes.net
Best Practices: Templates and Sample Databases (BPTEMP.NSF)
Access Control:
The default access of a database created with this template is "Author".
Select the All Documents view to see a chronological listing of main topics for discussion and their responses. Select the By Author view to see what individual members of the discussion group have said. Select the By Category view to browse the group's discussions by a categorization of main topics.
To begin a discussion:
From the All Documents view, By Author view or By Category view, create a Main Topic document to start a new topic for discussion. Be sure to enter a category for the topic (Training, Documentation, Technical Tips, etc.).
To respond to a main topic or a response document:
Menu
If you want to respond to a main topic, first highlight the main topic document and then select Create, Response. Fill out the response form.
When you are done, press
and answer Yes to save your new document.
If you want to respond to the message in a response document, highlight the appropriate response document and then select Create, Response to Response. Fill out the response form and then save your changes.
Actions
Open the document you wish to respond to and click the Response action button at the top of the document.
Web Browser
Open the document you wish to respond to and click on the New Response hotspot at the top of the document.
Fill out the response form and then click on either the Submit hotspot on the top of the response form or the Submit button at the bottom of the response form.
To flag a document as Private:
You can use the "Mark Private" and
"Mark Public" actions in the template to control whether anyone other than yourself can read a specific document. For example, if you have not completed the writing of a particular document, you can click the "Mark Private" action and others will not be able to see the document. When you complete the document, you can click the
"Mark Public"
action to make it available for others to read.
Note: This action is not available to Anonymous web users.
To mark a document as expired
Notes
Use the Action menu item Mark Document Expired to mark a document as obsolete. After a certain number of days (set in the Archive Profile) the obsolete document will be copied to an archive database and deleted from the discussion database.
Web Browser
Put the document in edit mode by clicking the Edit Document hotspot. Click the Mark Expired/Unexpired hotspot at the top of the document.
To set up an Interest Profile:
Notes
Use the Action menu item Edit Interest Profile to bring up your personal interest profile document. You can elect to be notified via a newsletter if certain conditions are met. These conditions can include the appearance of your name or phrases that you designate.
Web Browser
Select the Edit Profile hotspot from any of the views in the database
to bring up your personal interest profile document. You can elect to be notified via a newsletter if certain conditions are met. These conditions can include the appearance of your name or phrases that you designate. This feature is not available to Anonymous web users.
To add the current discussion topic to your Interest Profile:
Notes
Use the Action menu item Add Selected Topic To Interest Profile to add the current discussion topic to the list of items you wish to track via newsletter.
Web Users
Open the Main Topic which you would like to be added to your interest profile and select the Add Topic to Interest Profile hotspot. This action is available whether you are reading or editing a main topic document. This feature is not available to Anonymous web users.
Anonymous responses:
If you wish to respond anonymously to a discussion, highlight the main topic or a response and select Create, Other. Then select either Anonymous Response or Anonymous Response to Response. This feature is not available to web users. If an anonymous web user is able to open the discussion database, all documents created will reflect that the user is anonymous.
Agents & Archiving:
Newsletters
- A user can elect to be notified via e-mail when a new response has been added to certain topic(s) of discussion. These topics are specified in the user's Interest Profile. There are seven agents pertaining to newsletters.
Edit Interest Profile:
The Interest Profile contains individual topics, phrases, keywords or categories of interest to the individual. It can be tailored to contain as wide or as narrow a selection of topics as the individual is seeking information on. This document is used by the
Send Newsletters
and
Add Selected Topic to Interest Profile
agents, described below.
WebEditInterest Profile:
Web users equivalent of the Edit Interest Profile agent.
Web InterestProfileSave:
Saves the Interest Profiles for web users.
Add Selected Topic to Interest Profile:
Allows the user to add new topics of interest to their individual interest profiles. After a new topic has been added, a Notes agent will process this request and notify the user via e-mail whenever new responses to this topic are added to the database. If the error "This is not identified as a thread. Contact the database manager if you want all threads initialized." appears, the database manager must run the agent called
Initialize ThreadIds
(see description below).
WebAddTopic:
Web users equivalent of Add Selected Topic to Interest Profile agent.
Send Newsletters:
Reviews the "Interest Profile" of each user who has a profile on a server-based Discussion database. It matches criteria on the profile with any criteria it finds in the topics of the current database. Each match generates a document link, which will become part of the newsletter; that newsletter is then mailed to the subscriber. The agent can be run periodically. Typically this would be on a daily basis.
WebRemoveThread:
Removes the selected thread from the web users Interest Profile.
Update Thread Maps
Enables thread mapping for main topics and responses for web users. Thread mapping displays a list of all topics and responses in the current thread on the document that the user is currently viewing.
Archiving Documents
- This is a process by which certain documents are removed from the current database and stored in a different database. This keeps the discussion up-to-date with only the latest topics. Most of the Archiving activities take place from the "Archiving" view. You must switch to this view in order to initiate archiving on a discussion database.
Notes
To set up archiving on any discussion database, switch to the Archiving view and click the action called "Setup Archive". The Archive Profile appears. This document contains criteria that the user specifies for archiving topics in a discussion (e.g., inactive after 'x' days, or expired after 'x' days). The archive database is automatically created when the Profile is saved. The archival database filename is also specified in the Archive Profile; the title of the archive will be the title of the Discussion database followed by "(Archived)". After the archive criteria have been specified in the Archive Profile, other agents run on the database to move the document(s).
Web Users
Switch to the Archiving view and click the Setup Archive hotspot. This hotpot only appears to Managers and Designers of the database. The Archive Profile form appears.
The archive database is automatically created when the Profile is saved. The archival database filename is also specified in the Archive Profile; the title of the archive will be the title of the Discussion database followed by "(Archived)". After the archive criteria have been specified in the Archive Profile, other agents run on the database to move the document(s).
Mark/Unmark Document as Expired:
Marks a topic as "expired". If the Archive Profile specifies that
expired
topics should be archived, the document(s) marked with this agent would fall into that criterion. If a document is already marked as expired, this agent tells the user what the expire date was, and will ask if the user wants to un-expire it.
Periodic Archive:
Reviews the Archive Profile and moves documents which meet the archive criteria into the archive database. This agent is run automatically on the server; the schedule is set by the database manager/designer.
Redesigning R3 Discussion databases
- The R4 discussion template is fully backward-compatible with R3 discussion databases; therefore, these databases can be redesigned to use the R4 template/features. The R4 template has new agents (described above), one of which uses something called a ThreadId (also a new feature in the R4 template) to generate newsletters. The agent
Initialize ThreadIds
must be run on a redesigned database if users wish to use the new "Newsletter" agents.
Initialize ThreadIds:
Using @Unique, sets a common "id" to a discussion thread (main topic and all its responses). This agent runs on all documents in a database; it is recommended that it be run on any R3 Discussion database that is redesigned using the R4 Discussion template. The agent only needs to be run once.
By default this agent is hidden. The database designer/manager should un-hide the agent by editing it and selecting "Manually from Menu" as when the agent should run. The agent should then be hidden again to avoid accidental re-running.
If you want to convert existing documents such that they are identified as threads, run this once against all documents.EHCN=Catherine Duffy/OU=NAHQ/O=Lotus4fL3
Set item = New NotesItem(profile, "Readers", ReaderNames, READERS)
item.IsSummary = True
Else
Set item = profile.GetFirstItem("ProfileThreads")
If item.Contains(ThreadId(0)) Then
Messagebox "This topic is already in your Interest Profile.", 64, "Add Thread"
Exit Sub
Else
item.AppendToTextList(ThreadId(0))
Set item = profile.GetFirstItem("ProfileThreadSubjects")
item.AppendToTextList(ThreadSubject)
End If
End If
profile.Save True, True
Messagebox "The current topic has been added to your Interest Profile. You will be notified by mail when new responses appear in this topic.", 0 + 64, "Add Thread"
End Sub
LocalDomainServers
2S3S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
5Sg1M
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Delete
0S0E
_Forward
Categori_ze
Edit Message
Out Of the Office
Out Of Office Profile
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim parent As NotesDocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
Set s = New NotesSession
Set db = s.CurrentDatabase
Set view = db.GetView("($All)")
Set note = view.GetFirstDocument
Do Until note Is Nothing
FormName = note.Form
Subject = note.Subject
Select Case FormName(0)
Case "MainTopic", "Main Topic"
note.NewsLetterSubject = Subject(0)
Case "Response", "AnonymousResponse", "Response (Anonymous)"
note.NewsLetterSubject = Subject(0) & " (Response to Response to: -" & OriginalSubject(0) & "-)"
End Select
If note.IsResponse Then
Set parent = view.GetParentDocument(note)
Do Until parent.IsResponse = False
Set parent = view.GetParentDocument(parent)
Loop
NewId = parent.ThreadId
Else
NewId = Evaluate("@Unique")
End If
note.ThreadId = NewId(0)
note.save True, True
Set note = view.GetNextDocument(note)
Loop
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
4VW9"
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$Flags
Times New Roman
(ProfileInstructions)
A/-.9()
B7@'$%$/
'(CA;:
024GWTO
.7)'*
()7BQ?J?IXD>40$%
+/-. ()+)
424@Z?J?_MD
7(BGP
cb_G@420$
6/<:;.:
764>@QV?JLhbGDB+B7
'0-3#/
76G_Z?J?
MG:G:
9 69+D7@QGE
RseMG9B6G9D:@7>4<85!/
(69QXEJ?Ywvo
CMO;U
D9@BUg
_XDBPD
,96DG_
J Z{nZ]jbUB
G\Web_QKVQX_U
_laVKa
D ;+1
Xj?J?dN?
LcgUQD\mWbV?
gDUcg]J?JwsolbjlN
]NJ?J?VUP4'%&
?J?J?Sl_bmp
]dJ?Lrj_
jSJ?N{zslbjl?J?L
aU@2( "!
9:X_V?J?LnqY
m s]J?Lv{wd
coleohuN?Jd{soejln
Lryn?J?ZhWF5#!
a?J?yw
d?Jfv
o]?J?r
+ 9DXbJ?Jd|
?J?J?
?]vol
nJ?JrwoltloS
Y|y{yRJ?SseA-,
^J?`wsvohq?
oYJ?S|y{zL
ZvbG.
) 6DMZJ?Jt{
?J?iwo
l er?J?v|y{
RJ?[wv
w{w]?J?ko_;6+
'76XS?
gVoljb_bjJ?Jfst
?Yid?
YsjM6
7@GLJ?^w
a?J?vljX
ja?J?J?
?kolb_jlf?
`?J?J?Lgl_D(4
'*)7B
]otlS
UG_cN
?LZjXUGUGZ?
qlg_g
RJ?R{d
?^jt_D6*'
'4@Gj
l jGB@B9BUX
rlj_XB@6BGXjlb_
X jJ?Jd{wtg
lgD72$
0*4BGXGXUDU
7@BUX_X_XUB@
azolrjgUB7'$
2 '0'2*>7@9
6@74*
*4>76
@!6@QDZJ?JrljXGDB742$%
2 *20$
4 242'0'$'$
?tjUQ@>42'
]acjGB>4'0
$0247B
$024>742'$%&
kkksss{{{
Discussion Help
Interest Profile Help
The Interest Profile allows you to find and follow discussion topics that meet the criteria you designate in the Interest Profile. You will be notified of the relevant discussion topics via a newsletter which will be mailed to you. This newsletter will contain document links to the discussion topics that meet your criteria.
You can choose the following in your Interest Profile:
Inform me of new documents by these Authors:
Specify one or more authors.
Inform me of new documents in these Categories:
Specify a category or categories that you wish to follow.
Inform me of new documents containing these words or phrases (separate with a new line):
For example:
Apples
Oranges
In addition to the above you can choose to track any individual discussion thread by selecting a document in that thread, then choosing the
Actions menu
item:
Add Selected Topic to Interest Profile
for Notes users
Web users should open the main topic document that they want added and select the
The Archive Profile allows you to specify which documents should be removed from the current database and stored in an archive database. This allows you to keep your database up-to-date with only the latest topics. Archiving tasks can only be performed by designers or managers of the database.
You can choose the following in your ArchiveProfile:
Archive expired documents
Choose this option if you wish to archive documents which have been marked as expired. Indicate the number of days to wait before the expired documents are archived.
Archive documents which have no activity
Choose this option if you wish to archive documents which have had no activity. Indicate the number of days to wait before the inactive documents are archived.
Generate an Archive Log each time an archive occurs
Choose this option if you wish to have an Archive Log created when documents are archived. You can also indicate if you would like document links to the archived documents included in the Archive Log.
Archive Profile Editors:
Specify the names of those users that should be allowed to modify the Archive Profile.
Specify Archive Location:
Click on this button to specify the server and filename of the Archive database. The archive database is created for you based upon the values specified in the dialog box.
Documents are Archived:
Select the location for the archive database. Options are Locally or On Server. What you select depends on where you intend to locate the archive database. In order to create databases on a server, you must have the proper access rights in the server document for the specific server.
Archive Database Server:
Specify the server which you would like to create the archive database on. If you are entering this from a web browser, you can only enter the current server that the database is located on. Use a Domino Designer client to enter a server other than the current server where the database resides.
In order to create databases on a server, you must have the proper access rights in the server document for the specific server.
Archive File:
Specify the filepath and filename of the archive database. If no path is specified, the database will be created in the Notes data directory on the server or on the local client.
Messagebox "The archive database cannot be found. Click on the Setup Archive button to create a new archive database.",16,"Database not found"
Exit Sub
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$Index
$FORMULA
$FORMULACLASS
$VIEWFORMAT
$Comment
$ACTIONS
$SCRIPTOBJ_10
$ViewGlobalScript_O
Times New Roman
Archive Profile
(WebArchiveSave)
(WebArchiveOpen)
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ProcessExistingArchiveDB
Declare Sub ProcessNonExistingArchiveDB
Declare Sub ProcessArchiveDbExists
Declare Sub CreateNewArchiveDB
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lsconst.lss"
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim existingdb As NotesDatabase
Dim archivedb As NotesDatabase
Dim view As NotesView
Dim note As NotesDocument
Dim profile As NotesDocument
Dim archivedoc As NotesDocument
Dim doc As NotesUIDocument
Dim DocWasSaved As Integer
Dim DoNotClose As Variant
Dim ExistingServer As String
Dim ExistingPath As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:ProcessExistingArchiveDB:1:12
Sub ProcessExistingArchiveDB
an existing archive already exists and the user has choosen to create a new one
this function gets called on one of two occasions
either the document has a value in the tmpArchivePath field
or the user entered a server and path that has an existing database
we need to handle both cases
%END REM
End Sub
'++LotusScript Development Environment:2:2:ProcessNonExistingArchiveDB:1:8
Sub ProcessNonExistingArchiveDB
On Error Goto ProcessError
On Error 4005 Goto DbCreateError
'render the dialog box to get the location of the archive database
If (w.DialogBox("(ArchiveProfileDlg)",True,True,"Specify New Location")) Then
'see if the archive database exists
Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
If (archivedb.IsOpen) Then
Msgbox "Database already exists. Enter a new location"
ProcessNonExistingArchiveDB
Else
Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))
archivedb.Title = db.Title & " (Archive)"
End If
Call doc.Reload
Call doc.Refresh
Else
note.ArchiveServer = ""
note.ArchivePath = ""
End If
Exit Sub
DbCreateError:
Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
Case 6
ProcessNonExistingArchiveDb
End Select
Exit Sub
ProcessError:
Msgbox Error & " - (ProcessNonExistingArchiveDB)"
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:ProcessArchiveDbExists:1:8
Sub ProcessArchiveDbExists
'this function gets called if a database already exists in the tmpArchiveServer field
'render the dialog box to get the location of the archive database
On Error 4005 Goto DbCreateError
If (w.DialogBox("(ProcessExistingDbDlg)",True,True,"Specify New Location")) Then
On Error Resume Next
'see if the archive database exists
Set archivedb = New NotesDatabase(note.ArchiveServer(0),note.ArchivePath(0))
If (archivedb.IsOpen) Then
Msgbox "Database already exists. Enter a new location"
ProcessArchiveDbExists
Else
Call CreateNewArchiveDB
archivedb.Title = db.Title & " (Archive)"
End If
Call doc.reload
Call doc.refresh
End If
Exit Sub
DbCreateError:
Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
Case 6
ProcessNonExistingArchiveDb
End Select
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:CreateNewArchiveDB:1:8
Sub CreateNewArchiveDB
On Error 4005 Goto DbCreateError
On Error Goto ProcessError
'first, create the archive database
Set archivedb = db.CreateCopy(note.ArchiveServer(0),note.ArchivePath(0))
'if the profile says to copy new documents, then copy them now
If (note.CopyOptions(0) = "1") Then
Set allDocs = existingdb.AllDocuments
For i = 1 To allDocs.Count
Set archivedoc = allDocs.GetNthDocument(i)
Call archivedoc.CopyToDatabase(archivedb)
Next
End If
'if the profile says we should delete the original archive database, then remove it
If (note.DeleteOptions(0) = "1") Then Call existingdb.Remove
Exit Sub
DbCreateError:
Select Case Msgbox("Error creating archive database. The server may be down or you don't have access to create new databases on the server. Click Yes to try a different location now or No to cancel.",36,"Error")
Case 6
ProcessNonExistingArchiveDb
End Select
Exit Sub
ProcessError:
Msgbox Error & " - (ProcessNonExistingArchiveDB)"
Exit Sub
End Sub
Archive Profile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++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 NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryclose From Source Call Queryclose
On Event Querysave From Source Call Querysave
On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub
ItemList = profile.Items
Forall n In ItemList
profile.RemoveItem(n.Name)
End Forall
note.CopyAllItems profile
profile.SaveOptions = "1"
profile.save True, True
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DocWasSaved = True
DoNotClose = False
If Not(profile Is Nothing) Then note.SaveOptions = "0"
If (note.ArchivePath(0) = "") Then Msgbox "You will need to specify a location of the archive database before you can archive documents.",16
source.Reload
source.RefreshHideFormulas
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
'initialize global variables
Set note = source.Document
Set w = New NotesUIWorkspace
Set s = New NotesSession
Set db = s.CurrentDatabase
Set view = db.GetView("Archiving")
Set doc = source
'turn off auto reload to make processing faster
source.AutoReload = False
'if this is not a new doc, we don't need to continue
If Not (source.IsNewDoc) Then Exit Sub
'get the existing profile
key = "Archive Profile"
Set profile = view.GetDocumentByKey(key,False)
If profile Is Nothing Then
'an existing profile was not found
note.ProtectFromArchive = 1
note.ExcludeFromView = "D"
note.From = "Archiving"
note.Subject = "Archive Profile"
note.Categories = "(Archive)"
Call note.ReplaceItemValue("_ViewIcon", 11)
source.reload
Else
'copy the profile fields to this document
ItemList = note.Items
Forall n In ItemList
note.RemoveItem(n.Name)
End Forall
profile.CopyAllItems note
source.Reload
If source.EditMode Then source.Refresh
End If
DocWasSaved = False
End Sub
K ,`
Subject used for displaying the form name in the views
Archive Profile
Subject
Used for returning information to the user when the form is saved on the web
$$Return
STS)TST
S)T)TS)
)SdSdS)d
)S)S)
)T)TSdT)Sd
)SdTdS)T)T
S)dSd)S)dSd
S )5dSdST)T
S)SdSdT)STc5c
d)S)dB
d 5Sd5)Td5S
)d5d5d5d)5
dSdS)Td)d5ST)dS
ScdS)S)
XWXcY5YSY
5BT)d
5d)dS
SBSdBSd5ST)5TS
Sd)Sd)dS)Sd)d)Sd5d
5d)S)ST)T)
SdSc)cmcS5d
BcBmcdmBSc5c5B5B
5dSB5
cBcdcBcBc5Bm5m
SdB5dcd5dBS)cd
Sd)B5T5)S)dS
cYc5SY5
)S)dS)
dSd)S5S
SB)dS)S)d
Sd5BcdSBcBcB
d)mdc5B
Bdcdc
S)S)SB5d5BcB
)TcdSc5d)Yd5dBdBcd5d5m5
5d)mBmdm
cmJ5dc
m SBm5mcdl5
BcmBcB
mBdSd5J
ml>lB
X,_f6*WlcYc
_h VWl
)d)ST
)SdTdSdcd5cdB5
BcBdSd5BSBd5dYBdSmBdS)BS
c)cdSm
BdmcmJ
)SdSmcd)dS5
5BdSdm5mdm
m5SJd5dm5cBdcdBcBcmc
Jcm5dSdBmcBc5lmJmJ
/lCK>K
l>mJc
/m5cldmCm
n>cmKcmJ5BJBmBlc>l
J>mJ>5BSlCT
Z`i+? DWC
]i+f6*
cm5dY
d)S)TS)
d(BSBcB5Bc)BdSdB
Bm5Bd5m5BdScBdTBd5m5Sm5mB
B5mBSdB
JB)mJlmK5c5
KBmB5cJl
B5lJlBm
BmBl5BdmcmB5mB
5 Scm5mB>ml
lJKCK
B>LKLC>LKDv
DCD>lClm>m
KlJ>KJ
,b-^Eh D*
J>KC>KnCqf_,
+f 6*>l
S)d)S)S)dS
ScBd5c
SdBcB
BSBSm5c
d BKlm
c5cB>mB
Bm5cJmJK>K>m5c
mJStJlBm
Bm5dBc5J
l 5mBlKJcBl
KJc5B5
mJKJcmKJKv>K
*Xl*qf
mclJvn>n
C q *Xn qLM
lJmKL
XW*fDVCMDL
LC/D*Df
_<E?fDq*
XWlXY
dY5d5S
BSdB)dSdB)c
m5c5Bdmlm
B5B5mBlJSmc
> KmBlBcKmc
Bc5cBcK>tKJl>mJ5J
KJ>JlJv>J>JvKm
mKvKv
JmlJK>mcmc5cmJBl>vKm>mKv
Ef"xDL!v>
YhR"6L
LvqLY
Z1Dn*>LK
ZsEfD
KL>K>lL
F<_E?;DC>m
SZDXl>m
cBYBd5T)
TdSdB
mBm5c
>JtncBcBm>KmcmcJ
m d)5c
K/LKv
BJLmJmLJMKJt5KJdLK>JL
m>5cBJKvLJLMJ
f_1?x*nmKm
]i+?DM
iFE;qL>K
_ih?"D*L
CLMD8qY
*n>m/6Y
Vjhzf
h[fD6>*lm
JmBcX
m5dBYS
T)5dc
cBd5B
cml>J
Jm5KcBK>mKm
mKmcmJcB>lJKJ
LJvLvLm
lBJvLK
>mLJK
LBvK>m
mKm/Lvdm
>tJmLm>L
LtmJL
mJ>tcLBdlm
tlc5dKd
cmKJLl
L>Y6h
ojO Cn
BKJmJlMS
_-F?zDnMLxKLvC
RC8M!8"M!R
=|@$F0N;xCL>
UV,jFX
V`j+ 6DLK
S)dBS5
STSdc)dSd5SBcBcYB5J>5J>
BcJmdBlJ
JlJK>
mlBmK
m KmcBcBJlK
vKLmKvK
>mB5J5BKJvm5m
Jm>JKmB5dJ
Jm>J>KvJmJLKmL
vLKJL
mMvKJMvmJLcmL
JlmLvlmB
m>B>Jv
tLKM>xE$k=rw
.GFh6Cn
mJlKx
aw-r|jh?qCKLvLxMY
HpGE?;DM
l>lv T
Vr,sFRN"R!R8!N"1
$F1?;LCMnLM
poiF?6*Cnv>
^,[f *l/
Jcd5mdmcmc
)SdBdmdc5BcdJldc
mBc5lJvlKvc
Km>JLmlLcmK>m5
>BmKLvlJ
lmJvKLKvLm>lK5
J KmL>mMLJm
LvLMKJL
KMLJmKvmJLlJ
JmKJmlKmJmKlL lYU
Y.pGEfD
>LKLK>D
\Ia.pHkFh"Dn>
_.=Ab
^7g{_
V7p@OE?R1;9;>
G%H|+
?"!LCLD?T
h DCLlLmJlX
,ojf D
cB5Bc
TdBd5dBmcB5cB
BdBlBcBlclKv>vKmKv
KLvLJLJ
KmKmvJ
cBmKJKmJKv
JBl>m
K mvmKvJKvL
mJLKLxtJLvm
lmJKml
Blm>JtmK>KnS
wr|j? *l>tLlKL*
Ta.=Ho
<jFE"NDCDL"C"*S
D!8q?
WerH@
`b,Ef *DLKmJ
BJcBmB
ST)Bc5dBcJcmJd5
>JKm>JKv5mcmJl
KJ>Jml5JKvl
BmJKLvmKv
JMLvLvL
mJmJ>t
/KlKJKcL
>lmBld5BmBcKtmKL
KmJ>JKv
lmLvLvL
vLvLJKlmBlJ
JKmLlKv
_yAH<hqCxMlJKlDX
|@_E?DqMm>m>C*
x8"8D;WYXY\e7Aw6YXY,I3=:
T:#18"8M!E
. p@_RNxDLK
7rojfq*Mvl>
)ScBc5cm
5mBKm>JKtKlJmc
vKm>J
>KJKJm>JKv
KJtJL
mJKmJKl
vLmtvKm
BJvLKvJK>Jm>JvJKLvLK
a7a=<+qDMLvL
Zw.=pkuOFRx!nM>JKxq
ApH-2$<1OR
NR"N"E
I3%|P
X:41R"R"
yap|GsF?qnK>
7abkFE *nL>JcC
T)TdB)dcm
>mlBlJmBKmc
KLKJK
>m>mBvKvBK
KLJlKJmLJc
Kv>cJ
v>BvLJKLBmB
lBLvK
LJLvKvKt
mLvLvJ
KvLlJmJ
5mKLKmL
}w.=<~f"xLJtMlD
^.r=GP_hz"DnK>t>ln
H@G@#F
1EN";
3A&Q*
6 'w3H2$~
7yroGuFf8xL
e7rap`<jE"q>
m SdSdSd)S)
B5mBcKdmJBJm
JmBmJ
vmJ>mLJmKvKm
KLmMKv
v 5cJKvKBJm
LvKJKmKL
cmltJ
JmJmKJ
5cKxmvc>
K>JKmJlJKd
L vxvxLtJvK
vKtm>m
KmBKvm
W}7A|iO;nxK>m
r.p|kFEfD
x+>xlJKn>D6
YX+3
H2;*Y
^ger-@$ENxLMmK>m>Cq
rpG<F nDv
n Lmcm
mBc5d5dBS
m5)m>
cJ>B>mB
Kv5Bc
BJm/v
vJBLvLvL
mKmJcv
JKJKLlvmKcL
cKvJv
JKvBvKLvJ>lJlLvJKB
{wrG<O
nJnMvM*
er=kj[;6CMK>LKlJmMqE*
V}7.p,sFR?
M K>Jl>KL;W
,p-@jE?qD
d5)d5S
dBdSBd)
m5m5J5mJ>J5cBm
tKJmJmc5mBKJKLm5mL/vK
vLK>JK
JmKJv
LJKtL
mJ>mK
mJmJKmKc
JmLcmJcBmKL
tJvLmB
xLvKvLvKmKMLmL
KLvJKmJB
_yAGi$ORxMLKvLvY
XAr,<_f?DC
mxKv>KC"?@E6
Ypy.p-iEF?n
vcKJlmnDh]
ap,sEf6
lmBSB5S
ScB5c
dSc5J>
dBdBJKm
m>JvK>Bd5mlJcBKJvm
vJvmLJ
5m>BKBvBKJLmBJt
JL>m>KJLKvKLKvKLJmJmJvK
JvKMvJKL
JmvLMvLvLKtKLtKmJKL
xF@<`a
. wy7wr=|uO
D"OGH=bG@_h; *Mmv/vLKBLxM?#@%
p`@jhNxDLnKLvKJ>KD"Fk^Z
ap`jEf6*v>
m5mcmSmTS)
)d)SBS5dT)TU
BdSdSBS
BYSBlcm>K5mJlJltd5d5mJBcml
mvJKmLm5>JKJKJm
B5dlL
m5BcBcJ
K JvKmBKLtJ
vJvKvKLvJ>mK
JmLvJK
mvmKcJn>D?EiG
|@EO MxL
zEsGuiF+f 6lMc
JLtLmC!N1$@H
GHo-i
K BlnDfE,ob
i[Z nW>m
)S)ST)
TSTSTST
)dc)cB
d5d5mJcJdm>B>cJmdS5d5dc5Bm>m
lm>JmK5B5Bm
K lK>dKmc>v
KvJMKJ
J5mBmLvJm
mJLBmBLvKvK
LmJm>JmLJmM
mJKmKLD
sji,@
G#<$F1?zMxKLtvKvL"N?hOFE? nWlvKcmKvJm
F_hf n*DlJ
>lC;EFjk-k^<hf V
TdS)S)
S)d)5)dS)S)SB
S)dSB
md5B5Jl
Bc5mlJ
JmKJcm
c5mJmJ5mJl
mvJBmK
vKLvKl
lKJcmKm>
KJvLmJ
KBKmK/mJmK
KvLB>ml
tKlJK
vLnMzEfE1s
E hFER?x"vL
q Df;fD6M*
B5mJK
KD8N91#$
#1EFEh?6 DWm>lJm>
5cBYc*C]
]*VYXdY
S)TUTS
S d)dS5dm5B
)5SdBcBcBm>
JBcJld5Jc5B5JBKJc
JKJmBLml
mJBKmlBmJK>JKJv
v KLKvKLJmc
NfE ?q?
CDnD6MDLnm
J>mLMCM8
;? ;6
Sd5dYmX*nV
V6 VWXl
)TS)TS)S
Bd)S)BdS)S)
d5d)5S5m
l)Sm5m5
B dlclmKJcB
cBJmc5lJ
Km>B>
JBJ>m5
JmJmKc
mclK>vKl
qM6nx
lLmJn
LD;NR
n*nlcBdc5Yc
*W*WX
S)5Bcm
5)Bm5m5c
>mKJlm
JcmJKB
Ktl>l
KnDnLC*
mlmnLn>lc
Kl>ldcSm>K>
!"N"R1;
*>lmXc5S
SY5Yd
dSB5BSd
STdSd
B5d5B5d5d5c5dScd5
5d)cBlcB
dBdBd5d
mBmlcJB
mc5B5c5Bd>m>JlJ>lKl
clmlKt*KclK*J
LD!"?01
)S)S)TS
T)T)S5T
)TdS)S)d
)S)S)S)dS)SdSdS)S5dcB5cBd
SB5cSd5BmSc
S dS5Scmlc5
Bd5mJ
Bdm5d
>5c5Bl
5mcB5
mcBmBcmc
08?09#1?
1#F 0
)STd)
Sd)S5c5Bcd
dB5)d
c )BS)T5B)5
B5)Sd)d5cS5B
BcdSdB
d5BcB5Sc
m"YSBdScSBmSBcd
dm5BcBcB5Sdc
"0?"!D6L*6
;"?";
)ST)T
dSd)d
)d)T)TS
dBS)5
dBc5dT
5d5)S
TSB)d
dS)B5c5Bdcd)dS)S)d5dT5B5c5d
B5T)T5Scm
)STdTdSd
dS5dS)Y
dSdSTdTS
)dS)S)T
)SdSdSdT
)S)TS
STS)ST
5Y5Y5
kZ{cR
sckZJ
Profile"
Archive Profile
0S0E
G*{yB
?ByG~,
;uAEG
xE{GM
By{F|
A?v(?
skZRJ9
RcR!!
{k1ZR11)
ZZRRRB
kkkkkkkkkkkkkkkk
Edit Archive
/(ArchiveInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
kkkkkkkkkkkkkkkk
Document Instructions
ModifyArchive
0R4S
Archiving
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
([FileCloseWindo
Terminate
Close
/WebDelete?OpenAgent&
UNID"
0R10S
{E,FCwvu*
?BwI|
;>AwI
A?*s?
{skZRJ
kRB)B)
{kcZJ
{{sssk
t Profile"
Delete
/(ArchiveInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
Document Instructions
ModifyArchive
Periodic Archive
0R4S
0S0E
Bqo=<:i6
36i<n
p{IOT
Dpl9g
3h9lnA
JI{xwCs
Submit
Archiving
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
([FileCloseWindo
Terminate
Close
Select Document Archiving Preferences
vate
ArchiveExpired
Archive Expired documents | Yes
after
ExpiredLife
Number cannot be negative.{
3S4S6S11SExpiredLife
days
ArchiveInactive
Archive documents which have no activity | Yes
after
DocumentLife
Number cannot be negative.{
3S4S6S11SDocumentLife
days
ArchiveLog
Generate an Archive Log each time an archive occurs | Yes
Set existingdb = New NotesDatabase(ExistingServer,ExistingPath)
If (existingdb.IsOpen) Then
Select Case Msgbox("The database (" + Fullpath$ + ") already exists. To create a new database, select OK, otherwise click Cancel",33,"Database already exists")
Case IDOK: ProcessArchiveDBExists
End Select
Else
ProcessNonExistingArchiveDB
End If
Else
ProcessNonExistingArchiveDB
End If
End Sub
InstructionsF
(ArchiveInstructions)
2S4S
_Move to Folder...
_Remove from Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
DocLife
ArchiveDate
ObsoleteLife
$ManualArchivers_O
$TITLE
$INFO
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ExpiredLife
DocumentLife
$BODY
$ACTIONS
$SCRIPTOBJ_6
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Terminate
Declare Sub Main
Declare Sub GetProfileSettings
Declare Sub CreateLogDocument
Declare Sub ProcessDocuments
Declare Sub AddDocumentToLog (doc As NotesDocument)
Declare Sub CloseLogDocument
Declare Sub MarkLogDocuments
Declare Function ResponsesOkToArchive ( collectionDoc As NotesDocument) As Integer
Declare Sub ArchiveResponses ( collectionDoc As NotesDocument, archiveDB As NotesDatabase)
Declare Function DocEligibleToArchive ( doc As NotesDocument) As Integer
Declare Function CopyNoteToArchive ( doc As NotesDocument, db As NotesDatabase ) As Integer
Declare Sub RemoveNotesFromDB ( doc As NotesDocument )
'++LotusScript Development Environment:2:5:(Declarations):0:10
%INCLUDE "lserr.lss"
'%INCLUDE "lsxbeerr.lss"
Const MAXARCHIVEITEMS = 50
Dim session As NotesSession
Dim dbArchive As NotesDatabase
Dim dbSource As NotesDatabase
Dim docArchive As NotesDocument
Dim docLog As NotesDocument
Dim docProfile As NotesDocument
Dim dtNow As NotesDateTime
Dim dtExpired As NotesDateTime
Dim dtDocument As NotesDateTime
Dim dtCompare As NotesDateTime
Dim rtitem As NotesRichTextItem
Dim item As NotesItem
Dim nidArray() As String
Dim ArchiveServer As String
Dim ArchivePath As String
Dim ArchiveLog As String
Dim IncludeDocLinks As String
Dim ArchiveExpired As String
Dim ArchiveInactive As String
Dim ExpiredLife As Integer
Dim DocumentLife As Integer
Dim nLogItems As Integer
Dim numDocsArchived As Integer
Dim DoNotRun As Variant
Dim DocCanBeArchived As Variant
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'initialize some variables
Set session = New NotesSession
Set dbSource = session.CurrentDatabase
numDocsArchived = 0
nLogItems = 0 ' used for nidArray table
'call the main entry point
Main
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
'++LotusScript Development Environment:2:2:Main:1:8
Sub Main
'Read the profile document to see what options are enabled and where databases are located
GetProfileSettings
If DoNotRun Then Exit Sub
'setup the date/time structures
Set dtNow = New NotesDateTime("")
Set dtExpired = New NotesDateTime("")
Set dtDocument = New NotesDateTime("")
Set dtCompare = New NotesDateTime("")
dtNow.SetNow
dtExpired.SetNow
dtDocument.SetNow
dtCompare.SetNow
If ArchiveExpired = "Yes" Then dtExpired.AdjustDay(ExpiredLife * -1)
If ArchiveInactive = "Yes" Then dtDocument.AdjustDay(DocumentLife * -1)
'open the archive database
On Error Resume Next
Set dbArchive = New NotesDatabase(ArchiveServer,ArchivePath)
If Err = 4060 Then Goto ErrNoDBAccess
If Not (dbArchive.IsOpen) Then
Messagebox "Unable to open archive database.",16,"Error"
Exit Sub
End If
'see if we are logging documents, if we are, then create the first one
If ArchiveLog = "Yes" Then CreateLogDocument
'process the documents in the database
'this finds all documents that needs to be archived, archives them, logs them (if necessary), and removes them from this database
ProcessDocuments
'
'we are done processing all of the documents, close the last log document (if necessary)
'mark the log documents in terms of x out of y
'
If ArchiveLog = "Yes" Then
CloseLogDocument
MarkLogDocuments
End If
Exit Sub
ErrNoDBAccess:
Messagebox "You do not have access to the archive database. Please contact the database manager to have your name added to the Access Control List.", 0, "Database Access Error"
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:GetProfileSettings:1:8
Sub GetProfileSettings
'reads the profile document
Set view = dbSource.GetView("Archiving")
key = "Archive Profile"
Set docProfile = view.GetDocumentByKey(key,False)
If docProfile Is Nothing Then
'there is no profile document so exit
DoNotRun = True
Elseif docProfile.ArchivePath(0) = "" Then
'there is no archive database
Msgbox "You need to specify a location for the archive database.",16,"Error"
DoNotRun = True
Else
DoNotRun = False
ArchiveExpired = docProfile.ArchiveExpired(0)
ArchiveInactive = docProfile.ArchiveInactive(0)
DocumentLife = docProfile.DocumentLife(0)
ExpiredLife = docProfile.ExpiredLife(0)
ArchiveServer = docProfile.ArchiveServer(0)
ArchivePath = docProfile.ArchivePath(0)
ArchiveLog = docProfile.ArchiveLog(0)
IncludeDocLinks = docProfile.IncludeDocLinks(0)
End If
End Sub
'++LotusScript Development Environment:2:2:CreateLogDocument:1:8
Sub CreateLogDocument
'
'creates a new log document, incrementing the counter
'
' if this is the first time, declare dynamic array and allocate storage.
' This is a dummy entry that will never be referenced. We are going
' to start data population with the 1 array entry...
'
If nLogItems = 0 Then
Redim nidArray(nLogItems)
End If
Set docLog = New NotesDocument(dbSource)
Set rtitem = New NotesRichTextItem(docLog, "Body")
docLog.Form = "Archive Log"
dtNow.SetNow
docLog.ArchiveDate = dtNow.LSLocalTime
docLog.ProtectFromArchive = 1
docLog.ExcludeFromView = "D"
docLog.From = "Archiving"
docLog.Categories = "(Archive)"
docLog.ReplaceItemValue "_ViewIcon", 22
'
' need to increase our notes id table by one..
'
nLogItems = nLogItems + 1
Redim Preserve nidArray(nLogItems)
End Sub
'++LotusScript Development Environment:2:2:ProcessDocuments:1:8
Sub ProcessDocuments
'
' Process all documents in the database. Only archive if main document
' AND ALL response documents pass validation criteria.
'
Dim docSource As notesDocument
Dim docsCollection As NotesDocumentCollection
Dim searchDateTime As NotesDateTime
Dim protectFromArchive As Variant
Dim numDocs, x As Integer
On Error Goto errorProcessingDocs
'
'get a handle to all of the parent documents in the database
'
Set searchDateTime = New NotesDateTime ( dbSource.Created )
Set docsCollection = dbSource.Search ( "@IsResponseDoc=0",searchDateTime, 0)
numDocs = docsCollection.Count
For x =1 To numDocs
Set docSource = docsCollection.GetNthDocument(x)
If Not (docSource.IsResponse) Then ' main document only..
If DocEligibleToArchive(docSource) Then
If ResponsesOkToArchive ( docSource) Then
Call ArchiveResponses ( docSource, dbArchive ) ' archive the responses
Call CopyNoteToArchive ( docSource, dbArchive ) ' archive main note..
Call RemoveNotesFromDB ( docSource ) ' delete parent & child from db
End If
End If
End If
Next
Exit Sub
errorProcessingDocs:
Messagebox "(" & Str(Err) & ") " & Error$
Exit Sub
End Sub
'++LotusScript Development Environment:2:2:AddDocumentToLog:1:8
Sub AddDocumentToLog (doc As NotesDocument)
'see if we have hit the maximum number of entries in a log document; if so close the existing one and create a new one
If (numDocsArchived Mod MAXARCHIVEITEMS = 0) And (numDocsArchived > 0) Then
CloseLogDocument
CreateLogDocument
End If
'only called if a document was archived and logging was enabled
If IncludeDocLinks = "Yes" Then
'the user wants a doclink to the new archived document
Call rtitem.AppendDocLink(docArchive, "DocLink to " & doc.Subject(0))
Call rtitem.AddTab(1)
End If
Call rtitem.AppendText(" " & doc.Subject(0) & " (created by " & doc.From(0) & " on " &_
Format(doc.Created, "Short Date") & ")")
Call rtitem.AddNewLine(2)
End Sub
'++LotusScript Development Environment:2:2:CloseLogDocument:1:8
Sub CloseLogDocument
'saves the log document, adds the note id to the array,
docLog.Save True, True
nidArray(nLogItems) = docLog.NoteID
End Sub
'++LotusScript Development Environment:2:2:MarkLogDocuments:1:8
Sub MarkLogDocuments
'finds all of the log documents just created and marks them in terms of x out of y
Dim i As Integer
For i = 1 To nLogItems
Set docLog = dbSource.GetDocumentByID(nidArray(i))
3S4S6S8S12S'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
MainTopic'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, 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 NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Isnewdoc Then Exit Sub
Set note = source.document
'remove all this so it can get resest with default values each time the doc is opened
note.RemoveItem("WebCategories")
End Sub
Hidden Fields
-----------------------------
The user's name
FromAuthor of this document
List of readers used for private pages
readers
readers
Used in threading agent
ThreadId
Subject for newsletter
Subject
NewsLetterSubject
Text version of UNID used in threading agent
0S0E
MainID
Path Information for web URL's
Path_Info
Path_Info
Used for saving a document on the web
$$Return
Used for adding topics to the interest profile
Remote_User
Remote_User[<TYPE=hidden >]
"'3!"3#,
&%*3JHB
/6DJ#Bw
6A~+*
2-A~+*~+~2*(+6*$
$LA6y*5+y%}
+,30:/9/
ATF6y
>~5y5~6H#01
y6~y$
/ND@2=2?MA
Ay~6z/z$<84
,-34H9C/
n[MBA>5
nXPFA?A
*5>2%&
AFB6A?A?/
yR@JA
/ 9BNW6
F?<BL=
%.z1:
LPFKFA2
xE9:NR@J(
:EC:9HWN)
$/9:/1
9>=^h
gLY;RWTx
OEC:[W[
,B<H[YP
ncdnPMLM
LYW]NT[
Mn[WN
I^SMqL>
ed^XPSMk
5c]W@nT
:da\K
Q[n[NTA
S^UMUM/
,B0PT[/
$d[nPMkUI
Sda\I
.bh\P
1d^XMLSM?
gba\%
^hPUPU$
%aUSQjS
*+~,BrX
=bXULkLSU
9\SKIKL1
/USA>6~+
?ZQKpIOI
*+6AB1
2LB?AtOS
I\ZSUMSQ
?AL:$%/jLAG>A?LS=/}%/G\Z
KIGyG=/1xSIo
5>GjO9
):I>2
*5>?KQLKO?>v=>?
ZUZkSQOI?I
KG>=5=5>?OKI>:
:=GIKQVjI>2)
2=>?oG>=2(2=v5>?IKjKOpG>=E
&_SQjO
:=5=5=52:=2
1SjG>=s
1x)x)/
x)192
EQG=:
z/)/19=EGOGE:1/z
ZZZccckkksss{{{
s{{kss{
k{{css
9ss9{{1ssB
_IW4W
Discussion Topic
Anonymous
0S0E
Readers
readers
readers
0S0E
0R5S
/WebExpire?OpenAgent&
UNID"
0R10S
x"Jzy|L}N
$~NLyx
gb7_&S
Cx/{M
!!!111999JJJRRRkkk{{{
{sscZZJBB1))
{skskcZJ9
cRB!{c1
{kkcRRJ
s991!!
Mark Exprd-Unexprd
Readers
readers
0S0E
Bqo=<:i6
36i<n
p{IOT
Dpl9g
3h9lnA
JI{xwCs
Submit
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
Close
Anonymous
1S2S
0S0E
u#<v<w
BD@?wv
}{?(<
8u>{G
RU/]`c
gqkd%d
abe\]
'v(?{
kcccZZ
skcZRJ91)1)!
sBZJ)
skZJB1
ckZ1cR)
kB9!cR!{c!
ksc11)
cZ9JB!)!
sskZZRRRJBB911)BB1
Edit Document
Response to Response
0S0E
wA@?*
stw+H{
?AwH{
~ws;(
_haba
rstAw
~-{JH
HI{Hz
kkk{{{
{JB)1)
New Response
readers
/WebDelete?OpenAgent&
UNID"
0R10S
{E,FCwvu*
?BwI|
;>AwI
A?*s?
{skZRJ
kRB)B)
{kcZJ
{{sssk
Response to
Delete
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
Close
/WebAddTopic?OpenAgent&
UNID"
0R10S
Anonymous
0S0E
Readers
readers
readers
0S0E
0R5S
/WebExpire?OpenAgent&
UNID"
0R10S
x"Jzy|L}N
$~NLyx
gb7_&S
Cx/{M
!!!111999JJJRRRkkk{{{
{sscZZJBB1))
{skskcZJ9
cRB!{c1
{kkcRRJ
s991!!
Mark Exprd-Unexprd
Readers
readers
%)K)LM
!!!)))999JJJRRRccckkk{{{
cZZJBB
{scZR
{sk1)!
{RkR)B)
{kcZJ
s{sZskR
{{{k99111)!!
Mark Public - Private
0S0E
Bqo=<:i6
36i<n
p{IOT
Dpl9g
3h9lnA
JI{xwCs
Submit
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
Close
/WebAddTopic?OpenAgent&
UNID"
0R10S
C3w{JK}
n,fhn
} L~M
!!!111JJJRRRccckkksss{{{
cZZJBB1))
cZRB91!
{sk1)!ZJ9
kscJ9)
{kcZJ
s{kJ91!
skJJB!1)
s991sscccJ!!
Add Topic to Interest Profile
0S0E
u#<v<w
BD@?wv
}{?(<
8u>{G
RU/]`c
gqkd%d
abe\]
'v(?{
kcccZZ
skcZRJ91)1)!
sBZJ)
skZJB1
ckZ1cR)
kB9!cR!{c!
ksc11)
cZ9JB!)!
sskZZRRRJBB911)BB1
Edit Document
Response to Response
0S0E
wA@?*
stw+H{
?AwH{
~ws;(
_haba
rstAw
~-{JH
HI{Hz
kkk{{{
{JB)1)
New Response
readers
/WebDelete?OpenAgent&
UNID"
0R10S
{E,FCwvu*
?BwI|
;>AwI
A?*s?
{skZRJ
kRB)B)
{kcZJ
{{sssk
Response to
Delete
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
Close
/WebAddTopic?OpenAgent&
UNID"
0R10S
C3w{JK}
n,fhn
} L~M
!!!111JJJRRRccckkksss{{{
cZZJBB1))
cZRB91!
{sk1)!ZJ9
kscJ9)
{kcZJ
s{kJ91!
skJJB!1)
s991sscccJ!!
Add Topic to Interest Profile
Submitted by
Category
expiredate
Expired on
expiredateK
0S0E
Expire
readers
Private
Public
0S0E
Private
0S0E
tmpFrom
DateComposedDate this document was composed
at
timeComposed
Size=1
WebCategories
nocache
By Category
6S8S10S
Enter a new category:
NewCats
Notes
1S2S3S4S
Notes
Categories
WebCategories
NewCats
WebCategories
NewCats
3S4S6S11S12S13S14S18S23S24S
WebCategories
Notes
WebCategories
NewCats
1S2S3S6S7S9S11S16S17S
NewCats
0R1S2S3S
CategoriesPress ENTER for list of keywords or to add a new keyword.
In the case of reading an existing document, it is not necessary to do the @DbColumn because we don't support the use of Keyword Synonyms in this application, and thus translation doesn't need to be done.
nocache
By Category
0R4S5S7S9S15S17S19S
Document Title:
Subject
0S0E
SubjectEnter a short description of this main topic.
Message Content:
BodyEnter your comments, questions, ideas for discussion.
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function GetString ( StringType As Integer) As String
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString ( StringType As Integer) As String
'
Select Case StringType
Case 1 ' WebAddtopic, WebExpire
GetString = "Back to Previous Document"
Case 2 ' WebAddtopic, WebArchiveSave,WebDelete, WebExpire, WebRemoveThread
GetString = "All Documents"
Case 3 ' WebAddtopic, WebArchiveSave,WebDelete, WebExpire, WebRemoveThread
GetString = "by Category"
Case 4 ' WebAddtopic, WebArchiveSave,WebDelete, WebExpire, WebRemoveThread
GetString = "by Author"
Case 5 ' WebAddtopic, WebArchiveSave,WebDelete, WebExpire, WebRemoveThread
GetString = "Archiving"
Case 6 ' WebAddtopic
GetString = "This document is not identified as a thread. Contact the database manager if you want all threads initialized."
Case 7 ' WebAddtopic
GetString = "This topic is already in your Interest Profile."
Case 8 ' WebAddtopic
GetString = "has been added to your Interest Profile. You will be notified by mail when new responses appear in this topic."
Case 9 ' WebArchiveSave
GetString = "Back to Archive Profile"
Case 10 ' WebArchiveSave
GetString = "Archive Database created successfully."
Case 11 ' WebDelete
GetString = "The document has been deleted."
Case 12 ' WebExpire
GetString = " cannot be marked for expiration." ' leave the leading space..
Case 13 ' WebExpire
GetString = "The document's expiration date has been removed."
Case 14 ' WebExpire
GetString = "The current document has been marked for expiration."
Case 15 ' WebRemoveThread
GetString = "Back to Interest Profile"
Case 16 ' WebRemoveThread
GetString = "Profile document could not be found."
Case 17 ' WebRemoveThread
GetString = "The requested thread(s) have been removed from your Interest Profile."
Case 18 ' WebArchiveSubmit
GetString = "A problem was encountered while creating the archive database. Specified database may already exist or your database creation rights are limited."
Case 19 'WebArchiveSubmit
GetString = "You can only create an archive database on the Domino server that you are currently running on via a web browser. To create a database on a different server, use the Domino Designer client."
Case 20 'WebArchiveSubmit
GetString = "Archive Profile has been updated."
Case 21 'WebArchiveSave
GetString = "You will need to specify a location of the archive database before you can archive documents."
Case 22 'An error that we are not specifically handling
GetString = Err & " - " & Error
Case 23 'WebEditArchiveProfile
GetString = "Manager or Designer access is required to perform Archiving tasks."
End Select
End Function
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
zhH}4
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function GetDBPath
Declare Sub InstantiateObjects
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim s As NotesSession
Dim db As NotesDatabase
Dim dbpath As String
Dim note As NotesDocument
Dim IsWebUser As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:GetDBPath:1:8
Function GetDBPath
'check to see if the database is in a directory and swap the slash directions
Please specify the filename of the archive database
3S4S6S11SArchivePath
After creating the new archive db:
servers
names.nsf
($Servers)
1S2S
selectedserver
Server
Please select a server to create your archive database on.
archiveserver
servers
0R1S2S
ArchiveServer
selectedServer
0R1S2S3S
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
@If(@IsN
CopyOptions
Copy documents from the original archive to the new one|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
Sl&z'
$TITLE
$INFO
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
AllViewTemplate
Type=Hidden
Anonymous
0S0E
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
Anonymous
0S0E
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
q!nl8
68l=p
jl!pw
NMXOIM
6k;np@
=>p=o
{skZRJ
skJ)!
Edit Profile
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
(WebEditArchiveProfile)
0S0E
Archive Profile
0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
Main Navigator
($All)
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$ACTIONS
ArchivingViewTemplate
Type=Hidden
1S2S6S
Anonymous
0R6S7S10S12S13S
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
1S2S6S
Anonymous
0R6S7S10S12S15S16S17S
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
q!nl8
68l=p
jl!pw
NMXOIM
6k;np@
=>p=o
{skZRJ
skJ)!
Edit Profile
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
(WebEditArchiveProfile)
0S0E
Archive Profile
0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
1S2S6S
0R7S8S11S13S14S
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
q!nl8
68l=p
jl!pw
NMXOIM
6k;np@
=>p=o
{skZRJ
skJ)!
Edit Profile
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
(WebEditArchiveProfile)
0S0E
0S0E
Fwyv@
}vs9&
Bs"8&
skZRJ9
{k1ZR11)
{kkcZZRRRB!!
99)!!
Setup Archive
(WebEditArchiveProfile)
0S0E
Archive Profile
0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
NavigatorA
Archiving
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$ScriptName
$BODY
$ACTIONS
AuthorViewTemplate
Type=Hidden
Anonymous
0S0E
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
Anonymous
0S0E
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
q!nl8
68l=p
jl!pw
NMXOIM
6k;np@
=>p=o
{skZRJ
skJ)!
Edit Profile
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
(WebEditArchiveProfile)
0S0E
Archive Profile
0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
NavigatorB
By Author
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
"4DYx
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$ACTIONS
CategoryViewTemplate
Type=Hidden
Anonymous
0S0E
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
Anonymous
0S0E
Main Topic
0S0E
@A>=s$
|vr5"
kkksss{{{
kscJ9)
ZR)1)
{{{k99111)
New Main Topic
WebEditInterestProfile
0S0E
0S0E
q!nl8
68l=p
jl!pw
NMXOIM
6k;np@
=>p=o
{skZRJ
skJ)!
Edit Profile
0S0E
0S0E
imtl?
twrnof<
wy&sk
\6`:d<
dknsA
yogb\
sj`[0
IHy<8Z
01358b
usu&ruA
jfd;:
{{cZZ
{scZR
k{sR1)
Full Text Search
(WebEditArchiveProfile)
0S0E
Archive Profile
0S0E
Domino
ViewPreviousPage
d76c5
%eQPc$O#"
$P9:;?'
G>GVGB0f
g.WfGAU>G>?
98O#"`!
35$P:
;ePO53k
`K#O9
g.[]fH
AUA>';9O#K!
H^*BUA
"#P;>
.Z/GHF
K#P'RV
GIHF0F0F
-g.D[
v!3Q:>AB*
HF0F0F]
`58'?
F0F0F0FHIHI
GFH0\[ZC
C[E/]
?RP"k
`5P'UBI
0GF0\
[\0/G0
0F0HBA;P#k
v`"P'?
G0\[E
[/[0FG
IHFHI
`"$:?U
FGFHI0[
ID0F0F*HA?eO"!vu
*HY.I.+I/G\0FGFH0EGI]/0\
IFIFIG/
A>;8#
>?UYCIE
ZIC-/
EHGH[
Z+,YIY
c8;R?(+Y
0G+Eg-H+[/
Fg,G0
I Y.]
D0GIF
GI+\I
;:Q#K!
(T@UVG
IF-.F.+
@>;:P$#`
k3#$4lR;A>
G +,gI/
.HFI+C
&:9c5"k
k"4M8P:
Y+B*C
IF+,+Y
,+,+./
-HBH*C+,
4+N#"`n
HUBf*
HBXHG
>A&=?'
52a`n
n!kL47cO
;:;98
eQe;eR
O$O#5"3Kk!`
z4"5#76
cO7d$cN$cb7ON6
!!!999ccc
{k{skskcJB9
sJcR)
ccZRRJ11)!!
Previous Set of Documents
Archive Profile
0S0E
Domino
ViewPreviousPage
Domino
ViewNextPage
Domino
ViewNextPage
7$"h#
B]@D}|
,+[*YVjX&:Uo!
-HC^D
:jr>@A\]E^RE
`R`.2P}|
>rX&Ug!
SRP}|~
HNG12S`
YXjUo
U&X>@B]^.`
mMdPQRS
`^]BA)X&U!
XrA]_`J.Q
Q RQ1Ndc
mLcO121
^]@)j
Q2Q2Q
SRQ21ONdw
JS`FA>:U
XB].J.
g:>BF
2Q2QSTST
cdO1QR
e2e2e
FAY:!
:Y]`SJ
g:YBF.Q
RQ1Pd
1ONMOP2Q
FA>&g
#j?F`
Q 2.J
gj)A]E.SJSTSTSTRQ0/bf1
PTRQNQP
]A)&o
j>@]F`J.
bm/N1
0T2PT
E]@Yj
bcL01
SLmTN0Tc/
1RLbQ
A@)&U!
/2RLb
_FEABYj&
&jYZAF]
`.bLRc/
RT0m/
TLlT2
T QRTQ
:jXY?@
bcM/RN
0/mRS
.1JSJ._PR_.
GE^E]C
Z<(X:U
osx&:
@ABFA
ZA?ZY)Yr)jX&
j&XjX;VjYi
WVjWjiV:
%o#yzyq%y#
xzy7x
!!!RRRccckkk
JBBcZR
sscBkZ9
sskZJB1
RkZ)B1
{{s11)!!
Next Set of Documents
NavigatorC
By Category
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$$Script_O
$$ScriptName
$BODY
$ACTIONS
Times New Roman
Interest Profile
(WebInterestProfileSave)
(WebInterestProfileOpen)
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim view As NotesView
Dim profile As NotesDocument
Dim DocWasSaved As Integer
Dim ProfileKey(1) As String
Dim tmpList As Variant
Interest Profile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, 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 NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Postrecalc From Source Call Postrecalc
On Event Querysave From Source Call Querysave
On Event Queryclose From Source Call Queryclose
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
If source.IsNewDoc = False Then Exit Sub
Set note = source.Document
Set s = New NotesSession
Set db = s.CurrentDatabase
Set view = db.GetView("($Profiles)")
source.AutoReload = False
key = "Interest Profile" & s.CommonUserName
Set profile = view.GetDocumentByKey(key,False)
If profile Is Nothing Then
note.ProtectFromArchive = 1
Exit Sub
End If
ItemList = note.Items
Forall n In ItemList
note.RemoveItem(n.Name)
End Forall
profile.CopyAllItems note
source.Reload
source.RefreshHideFormulas
DocWasSaved = False
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
Action = note.Action
If Action(0) = "Maintain" Then
PersonName = note.PersonName
Else
Exit Sub
End If
source.AutoReload = False
Set profile = view.GetDocumentByKey(PersonName(0),False)
If profile Is Nothing Then Exit Sub
ItemList = note.Items
Forall n In ItemList
Print n.Name
note.RemoveItem(n.Name)
End Forall
profile.CopyAllItems note
source.Reload
source.Refresh
source.Refresh
DocWasSaved = False
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
DocWasSaved = True
If profile Is Nothing Then
Exit Sub
Else
note.SaveOptions = "0"
End If
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Profile Is Nothing Then
note.save True, True
End If
If (DocWasSaved = False) Or (profile Is Nothing) Then
Exit Sub
End If
ItemList = profile.Items
Forall n In ItemList
profile.RemoveItem(n.Name)
End Forall
note.CopyAllItems profile
profile.SaveOptions = "1"
profile.save True, True
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Isnewdoc Then Exit Sub
Set note = source.document
'remove all this so it can get resest with default values each time the doc is opened
note.RemoveItem("WebProfileStrings")
note.RemoveItem("WebProfileCategories")
End Sub
List of threads that the user wants to be notified of
ProfileThreads
ProfileThreads
List of people who can see the document
LocalDomainServers
1S2S
readers
Subject for forwarding this note
Interest Profile for
PersonName"
1S2S
Subject
No idea.
HiddenDocument
Standard Return information for the web clients
$$Return
Web User name
TYPE=hidden
Remote_User
Remote_User
^ Y$/c X
,aK'_
`lX,^
|$y !
w`!Xa.Ba
AWBEYm-G/XB
}"c Xza
~d$"$
v`#${
w+wX`!w
qvw"{c
Xa,la
+GX*u
X!XBlCWt.
{#dY}Y0{
l}"${
dY0c
awlaz
Va"$-c
>nBz!
>MmE/`
d$m-bX.
%ld#|0Y{c- ,lb
^med1Y
GC.lz Y
_dm$/c
)S9[@
X!w!XG>M:MhDEHm
HYDcb.n
WDG-a*k@*Cd3Yb0
GXb-Bb,.
b XA*k@)Ee
kN3EYDM
eYM0b.X
Ll+X,
*Hd1cmCBXCG_
I:>O>i
ChMCnGa*K_`&~#
lLl[ZBLaFAFW
MHDcCL*
FBC>GA`k
_WALYMG
LlG.`_lGCG`
lc;M+B
_paB'kwa`
_%_(YE+
WBGCB
l `(`AFW_l(
Cg[9C
k@`X`
k>ED!
B@_%^
!l!Ca
WJ6T>
^\ShW
QT<Ta
\De}"|
>IP;a
BQ]<:\P
@Q:>bCcG0YEW
>T<TF
9UT]*
TQ<]'
'Q;\:_
L\>C.n-y/M0u
'5Q;E^
T<]<W
C:[X.Xb.G-D
VTQ\h
B;\:D
F;Ph>
LT5<Q<Q];W
hPM>Gu
;:D;]>
Q:GlL!
8PhMl
'TQ;\P\h>bXa
);h>v
[WCP:
;>GBCA
FQ;>Fa;DWLh:>
Q:>GK
FP:[)A9Xlw
p:>[k
gL,+lL,bk
FP>9v
R>G9q
9>C.Bv
u9C8C
SCXB+
[M[ZC
*>CBl,LB^
8h>[C
u>CBZ
[>G9Z
CG9GZ
CBLB9C
[>[8La+`FlC[
CXC[a
>h>[XBa
_Q:>L>SR
> ClawFaLB9
9CBlL,Z9>ZL
BC9G[
8C[8L
9CL`*
tW`LBL
l,lg+F`(ap
`aB8CBlF`alB8C8CBp+(
,laWxW
A+LXCZCB
C 8ZBLa(AFL
(PGOCZB,L
olLa`
k)`+g
FaLB7LF`ku
x*WA`(`(
*`wFaFa
`AWx'k
*Wkt_
* kxk
>8aAxk
kW`=pFW
ZZZccckkksss{{{
{ssskk
kZ{cR
{skskc
{{ssskkkc
Interest Profile
ProfileThreadSubjects
0S0E
0S0E
/(ProfileInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
"Interest Pr
Document Instructions
RemoveThread
0S0E
FE@po
(?BEu
lopu}
{ok8#
|nj8#
89<>A
KI|ys?
!!!ccc{{{
{ssskk1))
kcZJB9
RJ9JB1
cJB){k9kZ!cR
t Profile"
########
Remove Thread
0S0E
Bqo=<:i6
36i<n
p{IOT
Dpl9g
3h9lnA
JI{xwCs
t Profile"
Submit
0S0E
0S0E
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
.
*.CGM
Excel 4.0/
ftWord RTF
*.DOC
Close
ProfileThreadSubjects
0S0E
/(ProfileInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
"Interest Pr
Document Instructions
RemoveThread
0S0E
0S0E
Bqo=<:i6
36i<n
p{IOT
Dpl9g
3h9lnA
JI{xwCs
t Profile"
Submit
0S0E
0S0E
/WebDelete?OpenAgent&
UNID"
0R10S
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
.
*.CGM
Excel 4.0/
ftWord RTF
*.DOC
Close
0S0E
0S0E
q!nl8
68l=p
jl!pw
NMXOIM
6k;np@
=>p=o
{skZRJ
skJ)!
WordPerfect 5
Edit Profile
/(ProfileInstructions)?OpenForm
C|NRW
ulowuv
}|C$/
%klko
!!!999RRRccckkk
{sscZZ1))
{skskc
{1)!ZJ9
cZR1JB!
{RRJ11)!!
ofile"
Document Instructions
0S0E
RemoveThread
0S0E
0S0E
AxH|~
JLKJ}
111ccc{{{
ZRRB999111)))!!
RJB1)!ZJ9)!
{kkcRRJ991kkZ11)99)
.
*.CGM
Excel 4.0/
ftWord RTF
*.DOC
Close
/WebDelete?OpenAgent&
UNID"
0R10S
{E,FCwvu*
?BwI|
;>AwI
A?*s?
{skZRJ
kRB)B)
{kcZJ
{{sssk
t Profile"
Delete
Select Interest Profile Preferences for
PersonNameRequired: enter a short description of this main topic.
Inform me of new documents by these Authors
size=40
ProfileAuthors
0S0E
ProfileAuthors
Inform me of new documents in these Categories:
WebProfileCategories
NoCache
By Category
3S4S6S8S10S
Notes
1S2S3S4S
Notes
ProfileCategories
WebProfileCategories
webprofilecategories
3S4S6S11S12S13S
WebProfileCategories
Notes
WebProfileCategories
0RR1S2S3S6S7S11S15S
0RRProfileCategories
In the case of reading an existing document, it is not necessary to do the @DbColumn because we don't support the use of Keyword Synonyms in this application, and thus translation doesn't need to be done.
nocache
By Category
0R4S5S7S9S15S17S19S
Inform me of new documents containing these words or phrases:
( separate
each listing with a new line )
Size=4
WebProfileStrings
ProfileStrings
0S0E
Enter a new word or phrase:
length = 20
NewString
ProfileStrings
Notes
ProfileStrings
WebProfileStrings
NewString
WebProfileStrings
NewString
3S4S6S11S12S13S18S23S24S
WebProfileStrings
Notes
WebProfileStrings
NewString
1S2S3S6S7S9S11S16S17S
NewString
0R1S2S3S
ProfileStrings
ProfileThreadsj
4S5S
Inform me if there is activity in any of the following threads:
ProfileThreadSubjects
ProfileThreadSubjects
0S0E
Submit
Closey
0S0E
Remove Thread
RemoveSubject
0S0E
profilethreads
RemoveSubject
Current Threads
Please choose the thread that you want to remove. (Note: Selecting a thread and clicking on OK will save the document).
ProfileThreadSubjects
ProfileThreadSubjects
Remove Thread
There are currently no threads in your interest profile. Select Add Topic to Interest Profile from any view.
0R10R13S14S16S18S20S24S27S
Member
RemoveSubject
ProfileThreadSubjects
0RR1S2S6S
ProfileThreadSubjects
ProfileThreadSubjects
RemoveSubject
0RR1S2S3S9S11S
RemoveId
ProfileThreads
Memberk
0RR1S2S8S11S
ProfileThreads
ProfileThreads
RemoveId
0RR1S2S3S9S11S
0RR4
ProfileThreadsj
4S5S
Categori_ze
_Edit Document
Save ProfileF
New Value
1S2S3S
InstructionsF
(ProfileInstructions)
2S4S
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder$
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Fde!f^^
$TITLE
$INFO
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$BODY
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "DiscussionRoutines"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim servername As notesname
'++LotusScript Development Environment:2:2:Initialize:1:10
(.txt)