home *** CD-ROM | disk | FTP | other *** search
/ Computerworld: Vánoce 97 / Computerworld_1997-12_cd.bin / rocenka / notes4wm / data / discuss4.ntf (.txt) < prev    next >
Encoding:
Lotus Notes Storage Facility  |  1996-04-22  |  337.5 KB  |  2,727 lines

  1. Discussion (R4)
  2. #1StdR4Disc
  3. FOLDER_DIRECTORY_OBJECT
  4. My Favorites|My Favorites
  5. Lotus Notes
  6. Paul DiCristinaDebbie BrancoCN=Catherine Duffy/OU=NAHQ/O=LotusLotus NotesCN=Catherine Duffy/O=IrisCN=Mussie Shore/O=IrisLotus Notes|9
  7. ##########################################################
  8. $Modified
  9.     1S2S3S
  10. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  11.     0SL1S3724
  12. $TITLE
  13. CN=Catherine Duffy/O=Iris
  14. ##########################
  15. Main NavigatorDiscussion (R4)
  16. #1StdR4Disc
  17. Lotus Notes
  18. qqqq|
  19. ############
  20. Lotus Notes###
  21. Debbie Branco#
  22. ResponseResponse
  23. Debbie BrancoShared Response Header    
  24. BodySubjectNewsLetterSubjectThreadIdParentFormImmediateParentSubjectOriginalSubjectReadersFrom#########################################
  25. By Author | AuthorView
  26. Lotus Notes6
  27. $14#i
  28. useSubject
  29. ImmediateParentSubjecth
  30. ImmediateParentSubject
  31. OriginalSubject
  32. OriginalSubject
  33.     1S2S9S11RS35E16S18RS31E
  34. readers
  35. PRIVATE: 
  36. ExpireDate
  37. EXPIRED: 
  38. Subject
  39. useSubject
  40.  (RE: 
  41. useSubject
  42.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E
  43. $33$14$34$Conflict
  44. $33$14
  45.  $33 ,
  46. $14Date
  47. $14#i
  48. $34Topic
  49. useSubject
  50. ImmediateParentSubjecth
  51. ImmediateParentSubject
  52. OriginalSubject
  53. OriginalSubject
  54.     1S2S9S11RS35E16S18RS31E
  55. readers
  56. PRIVATE: 
  57. ExpireDate
  58. EXPIRED: 
  59. Subject
  60. useSubject
  61.  (RE: 
  62. useSubject
  63.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E&
  64. Y##########################################################
  65. ##########################################################
  66. Lotus Notes
  67. PURSAF
  68. Debbie2 Branco
  69. F)`b"
  70. 0|wm-
  71. PURSAF
  72. TS3+v
  73. 6UIlH
  74. $ACLDigest
  75. Delete 
  76.     0S0E
  77. _Forward
  78. Categori_ze
  79. Edit Message
  80. Out Of the Office
  81. Out Of Office Profile
  82. _Move to Folder...
  83. _Remove from Folder...
  84. Times New Roman
  85. Task List
  86. &Switch To
  87. About Discussion
  88.     What does this database do?
  89.     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.
  90.     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.E
  91.     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.O
  92.     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.
  93.     Who will use this database?
  94.     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.d
  95.     When to use this database?
  96.     Use the database when you have time:  a free moment between meetings, after hours, while traveling.  
  97.     Where to find more information? 
  98.     More information can be found in the R4 help database, HELP.NSF.
  99.     Access Control:T
  100.     The default access of a database created with this template is "Author". 
  101. Times New Roman
  102. Using Discussion
  103.     To follow a discussion:u
  104.     Select the o
  105.     All Documents view
  106.      to see a chronological listing of main topics for discussion and their responses.  Select the 
  107.     By AuthorT
  108.      view to see what individual members of the discussion group have said.  Select the 
  109.     By Categoryt
  110.      view to browse the group's discussions by a 
  111.     categorization of main topics.
  112.     To begin a discussion:
  113.     From the $
  114.     All Documents view
  115.     By AuthorT
  116.      view or i
  117.     By Categorye
  118.      view, create a Main Topic $
  119.     document to start a new topic for discussion.  Be sure to enter a category for the topic (Training, Documentation, Technical Tips, etc.).i
  120.     To respond to a main topic or a response document:
  121.     Menu
  122.     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.
  123.     When you are done, press
  124.     and answer Yes to save your new document.d
  125.     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.P
  126.     Actionso
  127.     Open the document you wish to respond to and click the Respond action button at the top of the document.
  128.     To flag a document as Private:
  129.     You can use the "Mark Private" and
  130.     "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 they
  131.     "Mark Public"t
  132.     action to make it available for others to read.m
  133.     To mark a document as expiredT
  134.     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.
  135.     To set up an Interest Profile:
  136.     Use the Action menu item 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.
  137.     To add the current discussion thread to your Interest Profile:
  138.     Use the Action menu item Add Current Thread to My Interest Profile add the current discussion thread to the list of items you wish to track via newsletter.
  139.     Anonymous responses:
  140.     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.
  141.     Agents & Archiving:
  142.     Newsletters
  143.      - 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 three agents pertaining to newsletters.
  144.     Edit Interest Profile:
  145.       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 -
  146.     Send Newsletter
  147.      and 
  148.     Add Current Topic to My Interest Profile
  149.      agents, described below.t
  150.     Add Current Topic to My Interest Profile:s
  151.       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 "No thread ID found..." appears, the database manager must run the agent called /
  152.     Initialize ThreadIDs
  153.      (see description below).t
  154.     Send Newsletter:
  155.       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.  
  156.     Archiving Documentsh
  157.      - 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.i
  158.     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).  #
  159.     Mark/Unmark Document as Expired:
  160.       Marks a topic as "expired".  If the Archive Profile specifies that #
  161.     expired 
  162.     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.
  163.     Periodic Archive:
  164.       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.
  165.     Redesigning R3 Discussion databases
  166.      - 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 
  167.     Initialize ThreadIDs
  168.      must be run on a redesigned database if users wish to use the new "Newsletter" agents.
  169.     Initialize ThreadIDs:i
  170.       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.
  171.     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.
  172. NewDocTitle
  173. New Response to "
  174. OriginalSubject
  175. OriginalSubject
  176. Subject
  177.     1S2S3S4S11S13S15S16S
  178. StandardTitle
  179. Response to "
  180. OriginalSubject
  181.     0R1S2S3S4S5S6S
  182. NewDocTitle
  183. StandardTitle
  184.     0R4S6S
  185. "Small Fonts
  186. Times New Roman
  187.  Response
  188. FromAuthor of this document
  189. Shared Response Header
  190.     Begin Hidden Fields 
  191. -----------------------------
  192. Readers
  193. OriginalSubject
  194. OriginalSubject
  195. Subject
  196.     7S9S
  197. OriginalSubject
  198. Subject
  199. ImmediateParentSubject
  200.         Hidden fields to store the subject of this document's ancestors.
  201. ParentForm
  202.         Hidden field to store type of form that is the parent document.  Used in Preview Parent action.
  203. ThreadId
  204. ThreadId
  205.         Used to maintain thread integrity.  Inherited from parent.
  206. Subject
  207.   (Response to:  ""
  208. OriginalSubject
  209.     1S2S3S4S5S6S
  210. NewsLetterSubject
  211.         Used as caption in newsletter that is sent based on user's interest profile
  212.     End Hidden Fields 
  213. -----------------------------
  214. readers
  215.     1S2S
  216. readers
  217.     1S2S
  218. Subject
  219.     0S0E
  220. SubjectEnter a short description of this response.
  221.     0S0E
  222. tmpFrom
  223. DateComposedDate this document was composed
  224. timeComposed
  225. BodyEnter the text of your response.
  226. Categori_zet
  227. _Edit Document
  228. Send Docu_ment
  229. _Move to Folder...
  230. _Forward
  231. _Remove from Folder
  232. Repaint
  233. Categori_zei
  234. _Edit Document
  235. Send Docu_ment
  236. _Forward
  237. Forward as Bookmark
  238. Bookmark
  239.     4S6S
  240. Navigator
  241. EnvName
  242. NavigatorState"
  243.     1S2S
  244. EnvName
  245. EnvName
  246. Main Navigator
  247. EnvName
  248.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  249. New Main Topic.
  250. Main Topic
  251.     0S0E
  252. Response,
  253. Response
  254.     0S0E
  255. Response To Response6
  256. ResponseToResponse
  257.     0S0E
  258. _Move to Folder...
  259. _Remove from Folder...
  260. Response To ResponseResponseToResponse
  261. Debbie BrancoShared Response Header    
  262. BodySubjectNewsLetterSubjectThreadIdParentFormImmediateParentSubjectOriginalSubjectReadersFrom###################
  263. 255D2116B7BDFECF1769F57E5917AA29Lotus Notes
  264. Interest ProfileInterestProfileInterest Profile
  265. Lotus NotesCD
  266. HiddenDocumentSubjectProfileThreadSubjectsProfileStringsProfileCategoriesProfileAuthorsProfileMyNamePersonNamereadersProfileThreads####################
  267. Add Selected Topic To Interest Profile
  268. ECN=Catherine Duffy/OU=NAHQ/O=Lotus4
  269. Lotus NotesfL3
  270. ######################################################
  271. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  272. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  273. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  274. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  275. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  276. ($Profiles)|($Profiles)
  277. Lotus Notes
  278. PersonName"
  279.     1S2S
  280. $70PersonName$Conflict
  281. Profile
  282.     L1S5S1!
  283. $70PersonName
  284. $70Type2
  285. PersonName"
  286.     1S2S
  287. PersonNamePerson Name&
  288. Y#####
  289. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  290. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  291. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  292. (Initialize ThreadIds)
  293. 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=Lotus4
  294. Lotus NotesfL3
  295. #####
  296. (ProfileInstructions)(ProfileInstructions)
  297. Lotus Notes
  298. HiddenDocument#########################
  299. Main Navigator
  300. Debbie BrancoG3#################################################
  301. ##########################################################
  302. NewDocTitle
  303. New Response to "
  304. Subject
  305.     1S2S3S4S5S6S
  306. StandardTitle
  307. Response to "
  308. ImmediateParentSubject"
  309.     0R1S2S3S4S5S6S
  310. NewDocTitle
  311. StandardTitle
  312.     0R4S6S
  313. "Small Fonts
  314. Times New Roman
  315.  ResponseToResponse
  316. FromAuthor of this document
  317. Shared Response Header
  318.     Begin Hidden Fields 
  319. -----------------------------
  320. Readers
  321. OriginalSubject
  322. OriginalSubject
  323. Subject
  324.     7S9S
  325. OriginalSubject
  326. Subject
  327. ImmediateParentSubject
  328.         Hidden fields to store the subject of this document's ancestors.
  329. ParentForm
  330.         Hidden field to store type of form that is the parent document.  Used in Preview Parent action.
  331. ThreadId
  332. ThreadId
  333.         Used to maintain thread integrity.  Inherited from parent.
  334. Subject
  335.   (Response to:  ""
  336. OriginalSubject
  337.     1S2S3S4S5S6S
  338. NewsLetterSubject
  339.         Used as caption in newsletter that is sent based on user's interest profile
  340.     End Hidden Fields 
  341. -----------------------------
  342. readers
  343.     1S2S
  344. readers
  345.     1S2S
  346. Subject
  347.     0S0E
  348. SubjectEnter a short description of this response.
  349.     0S0E
  350. tmpFrom
  351. DateComposedDate this document was composed
  352. timeComposed
  353. BodyEnter the text of your response.
  354. Categori_zet
  355. _Edit Document
  356. Send Docu_ment
  357. _Forward
  358. _Move to Folder...
  359. _Remove from Folder
  360. Repaint
  361. Categori_ze
  362. _Edit Document
  363. Send Docu_ment
  364. _Forward
  365. Forward as Bookmark
  366. Bookmark
  367.     4S6S
  368. Navigator
  369. EnvName
  370. NavigatorState"
  371.     1S2S
  372. EnvName
  373. EnvName
  374. Main Navigator
  375. EnvName
  376.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  377. New Main Topic.
  378. Main Topic
  379.     0S0E
  380. Response,
  381. Response
  382.     0S0E
  383. Response to Response8
  384. Response to Response
  385.     0S0E
  386. _Move to Folder...
  387. _Remove from Folder...
  388. Interest Profile
  389. Times New Roman
  390.  Interest Profile'++LotusScript Development Environment:2:5:(Options):0:66
  391. '++LotusScript Development Environment:2:5:(Forward):0:1
  392. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  393. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  394. Declare Sub Postopen(Source As Notesuidocument)
  395. Declare Sub Postrecalc(Source As Notesuidocument)
  396. '++LotusScript Development Environment:2:5:(Declarations):0:2
  397. '++LotusScript Development Environment:2:2:BindEvents:1:129
  398. Private Sub BindEvents(Byval Objectname_ As String)
  399.      Static Source As NOTESUIDOCUMENT
  400.      Set Source = Bind(Objectname_)
  401.      On Event Queryclose From Source Call Queryclose
  402.      On Event Querysave From Source Call Querysave
  403.      On Event Postopen From Source Call Postopen
  404.      On Event Postrecalc From Source Call Postrecalc
  405. End Sub
  406. '++LotusScript Development Environment:2:2:Queryclose:1:12
  407. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  408.      
  409.      If (DocWasSaved = False) Or (profile Is Nothing) Then Exit Sub
  410.      
  411.      ItemList = profile.Items
  412.      Forall n In ItemList
  413.           profile.RemoveItem(n.Name)    
  414.      End Forall
  415.      note.CopyAllItems profile
  416.      profile.SaveOptions = "1"
  417.      profile.save True, True
  418.      
  419. End Sub
  420. '++LotusScript Development Environment:2:2:Querysave:1:12
  421. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  422.      
  423.      DocWasSaved = True
  424.      
  425.      If profile Is Nothing Then 
  426.           Exit Sub
  427.      Else
  428.           note.SaveOptions = "0"
  429.      End If
  430.      
  431. End Sub
  432. '++LotusScript Development Environment:2:2:Postopen:1:12
  433. Sub Postopen(Source As Notesuidocument)
  434.      
  435.      If source.IsNewDoc = False Then Exit Sub
  436.      
  437.      Set note = source.Document
  438.      Set s = New NotesSession
  439.      Set db = s.CurrentDatabase
  440.      Set view = db.GetView("($Profiles)")
  441.      
  442.      source.AutoReload = False
  443.      
  444.      CurrentUser = s.CommonUserName
  445.      Set profile = view.GetDocumentByKey("Interest Profile" & CurrentUser)
  446.      If profile Is Nothing Then
  447.           note.ProtectFromArchive = 1         
  448.           Exit Sub
  449.      End If
  450.      
  451.      ItemList = note.Items
  452.      Forall n In ItemList
  453.           note.RemoveItem(n.Name)    
  454.      End Forall
  455.      profile.CopyAllItems note
  456.      
  457.      source.Reload
  458.      source.RefreshHideFormulas
  459.      
  460.      DocWasSaved = False
  461.      
  462. End Sub
  463. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  464. Sub Postrecalc(Source As Notesuidocument)
  465.      
  466.      Action = note.Action
  467.      If Action(0) = "Maintain" Then
  468.           PersonName = note.PersonName
  469.      Else
  470.           Exit Sub
  471.      End If
  472.      
  473.      source.AutoReload = False
  474.      
  475.      Set profile = view.GetDocumentByKey(PersonName(0))
  476.      If profile Is Nothing Then Exit Sub
  477.      
  478.      ItemList = note.Items
  479.      Forall n In ItemList
  480.           Print n.Name
  481.           note.RemoveItem(n.Name)    
  482.      End Forall
  483.      profile.CopyAllItems note
  484.      
  485.      source.Reload
  486.      source.Refresh
  487.      source.Refresh
  488.      
  489.      DocWasSaved = False
  490.      
  491. End Sub
  492. t    t    l
  493.     Hidden:  
  494. ProfileThreads
  495. ProfileThreads
  496. LocalDomainServers
  497.     1S2S
  498. readers
  499. Interest Pr
  500. ofile for 
  501. PersonNameRequired:  enter a short description of this main topic.
  502. ProfileMyName
  503. ProfileMyName
  504. Inform me of new documents which contain my name
  505.     Inform me of new documents by these Authors:
  506. ProfileAuthors
  507. ProfileAuthors
  508.     Inform me of new documents in these Categories:
  509. ProfileCategories
  510. ProfileCategories
  511. NoCache
  512. By Category
  513.     5S6S8S10S12S
  514.     Inform me of new documents containing these
  515.     words or phrases:
  516.      ( separate with a new line )    
  517. ProfileStrings
  518. ProfileStrings
  519. ProfileThreadsj
  520.     4S5S
  521.     Inform me if there is activity in any 
  522.     of the following threads
  523. ProfileThreadSubjects
  524. ProfileThreadSubjects
  525.     Hidden:  
  526. Interest Profile for 
  527. PersonName"
  528.     1S2S
  529. Subject
  530. HiddenDocument
  531. Close
  532.     0S0E
  533. Remove Thread
  534. RemoveSubject
  535. Current Threads
  536. Please choose the thread that you want to remove.
  537. ProfileThreadSubjects
  538. ProfileThreadSubjects
  539.     1S2S5S6S8S10S12S16S19S
  540. Member
  541. RemoveSubject
  542. ProfileThreadSubjects
  543.     0RR1S2S6S
  544. ProfileThreadSubjects
  545. ProfileThreadSubjects
  546. RemoveSubject
  547.     0RR1S2S3S9S11S
  548. RemoveId
  549. ProfileThreads
  550. Memberk
  551.     0RR1S2S8S11S
  552. ProfileThreads
  553. ProfileThreads
  554. RemoveId
  555.     0RR1S2S3S9S11S
  556.     0RR4
  557. ProfileThreadsj
  558.     4S5S
  559. Categori_ze
  560. _Edit Document
  561. Send Docu_ment
  562. _Forward
  563. Save Profile 
  564.     0S0E
  565. InstructionsF
  566. (ProfileInstructions)
  567.     2S4S
  568. _Move to Folder...    
  569. _Remove from Folder
  570. '++LotusScript Development Environment:2:5:(Options):0:66
  571. Option Public
  572. '++LotusScript Development Environment:2:5:(Forward):0:1
  573. Declare Sub Initialize
  574. '++LotusScript Development Environment:2:5:(Declarations):0:10
  575. Dim w As NotesUIWorkspace
  576. Dim s As NotesSession 
  577. Dim db As NotesDatabase
  578. Dim view As NotesView
  579. Dim note As NotesDocument
  580. Dim profile As NotesDocument
  581. Dim collection As NotesDocumentCollection
  582. Dim item As NotesItem
  583. Dim CurrentUser As String
  584. Dim Position As Integer
  585. '++LotusScript Development Environment:2:2:Initialize:1:10
  586. Sub Initialize
  587.      
  588.      Set s = New NotesSession
  589.      Set db = s.CurrentDatabase
  590.      Set collection = db.UnprocessedDocuments
  591.      If collection.Count > 1 Then
  592.           Messagebox "Please choose only one document.", 64, "Add Thread"
  593.           Exit Sub
  594.      End If
  595.      Set note = collection.GetFirstDocument
  596.      
  597. 'Get the subject field and remove any commas (Notes thinks they are multivalue separaters)
  598.      Subject = note.Subject
  599.      ThreadSubject = Subject(0)    
  600.      Do    
  601.           Position = Instr(1, ThreadSubject, ",")
  602.           If Position > 0 Then Mid(ThreadSubject, Position, 1) = "."
  603.      Loop Until Position = 0    
  604.      
  605.      ThreadId = note.ThreadId
  606.      
  607.      If ThreadId(0) = "" Then
  608.           Messagebox "This document is not identified as a thread.  Contact the database manager if you want all threads initialized.", _
  609.           0 + 64, "Not a Thread"
  610.           Exit Sub
  611.      End If
  612.      
  613.      Set view = db.GetView("($Profiles)")
  614.      
  615.      CurrentUser = s.CommonUserName
  616.      Set profile = view.GetDocumentByKey("Interest Profile" & CurrentUser)
  617.      If profile Is Nothing Then
  618.           Set profile = New NotesDocument(db)
  619.           profile.Form = "Interest Profile"
  620.           Set item = New NotesItem(profile, "PersonName", CurrentUser, AUTHORS)
  621.           profile.Subject = "Interest Profile for " & CurrentUser
  622.           profile.ProtectFromArchive = 1
  623.           profile.ProfileThreads = ThreadId(0)
  624.           profile.ProfileThreadSubjects = ThreadSubject
  625.           ReaderNames = Evaluate("(@UserName : ""LocalDomainServers"")")
  626.           Set item = New NotesItem(profile, "Readers", ReaderNames, READERS)
  627.           item.IsSummary = True
  628.      Else
  629.           Set item = profile.GetFirstItem("ProfileThreads")
  630.           If item.Contains(ThreadId(0)) Then
  631.                Messagebox "This topic is already in your Interest Profile.", 64, "Add Thread"
  632.                Exit Sub
  633.           Else
  634.                item.AppendToTextList(ThreadId(0))
  635.                Set item = profile.GetFirstItem("ProfileThreadSubjects")
  636.                item.AppendToTextList(ThreadSubject)
  637.           End If
  638.      End If
  639.      
  640.      profile.Save True, True
  641.      
  642.      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"
  643.      
  644. End Sub
  645. LocalDomainServers
  646.     2S3S
  647. Lotus Notes
  648. PURSAF
  649. Debbie2 Branco
  650. F)`b"
  651. 0|wm-
  652. PURSAF
  653. TS3+v
  654. $TITLE
  655. $AssistType
  656. $AssistLastRun
  657. $AssistDocCount
  658. $AssistFlags
  659. $MachineName
  660. $AssistInfo
  661. $AssistQuery
  662. $AssistAction
  663. $AssistAction_Ex
  664. $UpdatedBy
  665. $Flags
  666. '++LotusScript Development Environment:2:5:(Options):0:66
  667. Option Public
  668. '++LotusScript Development Environment:2:5:(Forward):0:1
  669. Declare Sub Initialize
  670. '++LotusScript Development Environment:2:5:(Declarations):0:10
  671. Dim s As NotesSession
  672. Dim db As NotesDatabase
  673. Dim view As NotesView 
  674. Dim note As NotesDocument
  675. Dim parent As NotesDocument
  676. '++LotusScript Development Environment:2:2:Initialize:1:10
  677. Sub Initialize
  678.      
  679.      Set s = New NotesSession
  680.      Set db = s.CurrentDatabase
  681.      Set view = db.GetView("($All)")
  682.      Set note = view.GetFirstDocument
  683.      
  684.      Do Until note Is Nothing
  685.           FormName = note.Form
  686.           Subject = note.Subject
  687.           Select Case FormName(0)
  688.           Case "MainTopic", "Main Topic"
  689.                note.NewsLetterSubject = Subject(0)
  690.           Case "Response", "AnonymousResponse", "Response (Anonymous)"
  691.                OriginalSubject = note.OriginalSubject
  692.                note.NewsLetterSubject = Subject(0) & "  (Response to:  -" & OriginalSubject(0) & "-)"
  693.           Case "ResponseToResponse", "Response to Response"
  694.                OriginalSubject = note.OriginalSubject
  695.                note.NewsLetterSubject = Subject(0) & "  (Response to Response to:  -" & OriginalSubject(0) & "-)"
  696.           End Select
  697.           If note.IsResponse Then
  698.                Set parent = view.GetParentDocument(note)              
  699.                Do Until parent.IsResponse = False
  700.                     Set parent = view.GetParentDocument(parent)              
  701.                Loop
  702.                NewId = parent.ThreadId
  703.           Else
  704.                NewId = Evaluate("@Unique")             
  705.           End If
  706.           note.ThreadId = NewId(0)
  707.           note.save True, True
  708.           Set note = view.GetNextDocument(note)
  709.      Loop
  710.      
  711. End Sub
  712. Lotus Notes
  713. PURSAF
  714. Debbie2 Branco
  715. F)`b"
  716. 0|wm-
  717. PURSAF
  718. TS3+v
  719. $TITLE
  720. $AssistType
  721. $AssistLastRun
  722. $AssistDocCount
  723. $Comment
  724. $AssistFlags
  725. $MachineName
  726. $AssistInfo
  727. $AssistQuery
  728. $AssistAction
  729. $AssistAction_Ex
  730. $UpdatedBy
  731. $Flags
  732. Times New Roman
  733.  (ProfileInstructions)
  734. Interest Profile Help
  735. The Interest Profile allows you to find and follow discussion topics
  736. that meet the criteria you designate in the Interest Profile. You will be
  737. notified of the relevant discussion topics via a newsletter which will 
  738. be mailed to you.  This newsletter will contain document links to the 
  739. discussion topics that meet your criteria.
  740. You can choose the following in your Interest Profile:
  741.     Inform me of new documents which contain my name:
  742.         Choose this option this if you wish to be informed when your name appearsm
  743.         in any discussion topic or response.
  744.     Inform me of new documents by these Authors:
  745.         Specify one or more authors.     
  746.     Inform me of new documents in these Categories:m
  747.         Specify a category or categories that you wish to follow
  748.     Inform me of new documents containing these words 
  749.     or phrases (separate with a comma):
  750.     e.g.
  751.     Apples, Oranges
  752. In addition to the above you can choose to track any individual 
  753. discussion thread by selecting a document in that thread, then
  754. choosing the Action menu item: Add Current Thread to My 
  755. Interest Profile.
  756. HiddenDocument
  757. Categori_ze
  758. _Edit Document
  759. Send Docu_ment
  760. _Forward
  761. _Move to Folder...
  762. _Remove from Folder_
  763. ($All)
  764. TextBox1All Documents
  765. TextBox2My Favorite Documents
  766. TextBox3By Category
  767. TextBox4By AuthorX
  768. Hotspot1
  769. ($All)
  770. Hotspot2
  771. My Favorites
  772. Hotspot3
  773. By Category
  774. Hotspot5
  775. By Author
  776. ACLNMIS AdministratorsDeadWood NewReplica ACLIRG$TITLEtm
  777. All by Date
  778. $Nam$Index
  779. DDDDDDDDDDDDDD
  780. $UpdatedBy
  781. Debbie Branco
  782. """""""""""""
  783. $Formula
  784. $Formula
  785. ActionTaken
  786. Signed in with changes
  787. DateOfActionK
  788. PriorDateReturned
  789. DateExtractedForKit
  790. DateExtractedForKit
  791. DateExtractedForKit
  792. PriorDateReturned
  793. ReadyForKit
  794.     2S5S6S
  795. Express
  796.     0R1S2S5S6S
  797.     0R1S2S3S4S
  798. ActionTaken
  799. Signout
  800. (Default View)|(Default View)
  801. Lotus Notes8
  802. $110i
  803. useSubject
  804. ImmediateParentSubjecth
  805. ImmediateParentSubject
  806. OriginalSubject
  807. OriginalSubject
  808.     1S2S9S11RS35E16S18RS31E
  809. readers
  810. PRIVATE: 
  811. ExpireDate
  812. EXPIRED: 
  813. Subject
  814. useSubject
  815.  (RE: 
  816. useSubject
  817.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E
  818. $110$31$112$Conflict
  819. $110$112
  820. $112$110
  821. $110Date
  822. $110i
  823. $31Topic
  824. useSubject
  825. ImmediateParentSubjecth
  826. ImmediateParentSubject
  827. OriginalSubject
  828. OriginalSubject
  829.     1S2S9S11RS35E16S18RS31E
  830. readers
  831. PRIVATE: 
  832. ExpireDate
  833. EXPIRED: 
  834. Subject
  835. useSubject
  836.  (RE: 
  837. useSubject
  838.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E$112By,
  839. d###############################################
  840. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  841. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  842. CN=Catherine Duffy/OU=NAHQ/O=Lotus#
  843. ##########################################################
  844. ##########################################################
  845. ##########################################################
  846. ##########################################################
  847. ##########################################################
  848. ##########################################################
  849. ##########################################################
  850. Send Newsletters
  851. Lotus NotesSfL3
  852. ######################################################
  853. ($All)
  854. Lotus Notes
  855. $106l
  856.     0S0E
  857. $116l
  858.     9S11S
  859. AuthorName
  860. Fromh
  861. Anonymous
  862.     1S2S16S
  863. readers
  864. PRIVATE: 
  865. ExpireDate
  866. EXPIRED: 
  867. Subject
  868. Subject
  869. AuthorName
  870. D2S0V
  871.     0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
  872. Author
  873. Interest Profile
  874.     1S2S5S6S10S11S12S18S19S20S
  875. readers
  876. PRIVATE: 
  877. ExpireDate
  878. EXPIRED: 
  879. Subject
  880. Author
  881.     0R4S8RS8E9S14RS6E16S17R18S
  882. $106$116$117$120$Conflict$REF
  883. $106Y######################################################
  884. StandardTitle
  885. Subject
  886.  (No Responses)
  887.  (1 Response)
  888.  (% Responses)
  889.     1S2S3S4S8S10S
  890. New Topic
  891. AuthorView
  892. Subject
  893. StandardTitle
  894.     0R4S6S7S8S10S12S
  895. "Small Fonts
  896. Times New Roman
  897.  MainTopic 
  898.     0S0E
  899.     Hidden Fields 
  900. -----------------------------
  901. FromAuthor of this document
  902. readers
  903. offset
  904. dateKeyword
  905. NoneCurrent date plus:
  906. ThreadId
  907. Subject
  908. NewsLetterSubject
  909. readers
  910.     1S2S
  911. readers
  912.     1S2S
  913. #    N/#    
  914. Subject
  915.     0S0E
  916. SubjectEnter a short description of this main topic.
  917.     0S0E
  918. tmpFrom
  919. DateComposedDate this document was composed
  920. timeComposed
  921. Categories
  922.     1S2S3S4S
  923.     Category:
  924. CategoriesPress ENTER for list of keywords or to add a new keyword.
  925. 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.
  926. By Category
  927.     0R4S5S7S9S13S15S17S
  928. ExpireDate
  929.     1S2S
  930. The document and its responses will be deleted 
  931. on a schedule determined by the Archive Profile
  932.     This document was marked expired on
  933. ExpireDate
  934. ExpireDateDisplay
  935. BodyEnter your comments, questions, ideas for discussion.
  936. Closee 
  937.     0S0E
  938. Save 
  939.     0S0E
  940. Categori_ze
  941. _Edit Document
  942.     0S0E
  943. Send Docu_ment
  944. _Forward
  945. Forward As Bookmark
  946. Bookmark
  947.     4S6S
  948. Response,
  949. Response
  950.     0S0E
  951. Mark Private:
  952. readers
  953. readers
  954.     0S0E
  955. Mark Public
  956. readers
  957. readers
  958.     0S0E
  959. _Move to Folder...
  960. _Remove from Folder
  961. '++LotusScript Development Environment:2:5:(Options):0:74
  962. Option Public
  963. '++LotusScript Development Environment:2:5:(Forward):0:1
  964. Declare Sub Initialize
  965. Declare Sub DoFTSearch
  966. Declare Sub DoFormulaSearch
  967. Declare Sub BuildTextList(n As Variant)
  968. Declare Sub BuildTotalQuery
  969. Declare Sub Terminate
  970. '++LotusScript Development Environment:2:5:(Declarations):0:10
  971. Dim s As NotesSession
  972. Dim db As NotesDatabase 
  973. Dim view As NotesView
  974. Dim note As NotesDocument
  975. Dim profile As NotesDocument
  976. Dim newnote As NotesDocument
  977. Dim newsletter As NotesNewsLetter
  978. Dim collection As NotesDocumentCollection
  979. Dim pPersonName As Variant
  980. Dim pCategories As Variant
  981. Dim pAuthors As Variant
  982. Dim pStrings As Variant
  983. Dim pMyName As Variant
  984. Dim pThreads As Variant
  985. Dim searchtype As String
  986. Dim query As String
  987. Dim textlist As String
  988. Dim totalquery As String
  989. '++LotusScript Development Environment:2:2:Initialize:1:10
  990. Sub Initialize
  991.      
  992.      Set s = New NotesSession
  993.      Set db = s.CurrentDatabase
  994.      Set view = db.GetView("($Profiles)")
  995.      Set profile = view.GetFirstDocument
  996.      If profile Is Nothing Then Exit Sub
  997.      
  998.      FormName = profile.Form
  999.      If FormName(0) <> "Interest Profile" Then Set profile = view.GetNextDocument(profile)
  1000.      
  1001.      Do Until profile Is Nothing
  1002.           FormName = profile.Form
  1003.           pPersonName = profile.PersonName
  1004.           pCategories = profile.ProfileCategories
  1005.           pAuthors = profile.ProfileAuthors
  1006.           pStrings = profile.ProfileStrings
  1007.           pMyName = profile.ProfileMyName
  1008.           pThreads = profile.ProfileThreads
  1009.           If db.IsFTIndexed = True Then
  1010.                DoFTSearch
  1011.           Else
  1012.                DoFormulaSearch
  1013.           End If
  1014.           If collection.Count > 0 Then
  1015.                Set newsletter = New NotesNewsletter(collection)
  1016.                newsletter.DoSubject = True
  1017.                newsletter.SubjectItemName = "NewsLetterSubject"
  1018.                Set newnote = newsletter.FormatMsgWithDoclinks(db)
  1019.                newnote.Form = "Memo"
  1020.                newnote.SendTo = pPersonName(0)
  1021.                newnote.Subject = "Documents you requested from " & db.Title
  1022.                newnote.Send True
  1023.           End If
  1024.           Set profile = view.GetNextDocument(profile)
  1025.      Loop
  1026.      
  1027. End Sub
  1028. '++LotusScript Development Environment:2:2:DoFTSearch:1:8
  1029. Sub DoFTSearch
  1030.      searchtype = "FT"
  1031.      totalquery = ""
  1032.      
  1033.      Forall n  In pCategories
  1034.           BuildTextList(n)
  1035.      End Forall
  1036.      If textlist <> "" Then
  1037.           query = "field Categories contains (" & textlist & ")"
  1038.           BuildTotalQuery         
  1039.      End If          
  1040.      
  1041.      Forall n In pAuthors
  1042.           If textlist <> "" Then
  1043.                query = "field From contains (" & textlist & ")"
  1044.                BuildTotalQuery         
  1045.           End If          
  1046.      End Forall
  1047.      
  1048.      Forall n In pStrings
  1049.           BuildTextList(n)
  1050.      End Forall
  1051.      If pMyName(0) <> "" Then
  1052.           Forall n In pPersonName
  1053.                BuildTextList(n)
  1054.           End Forall
  1055.      End If
  1056.      If textlist <> "" Then
  1057.           query = "field Body contains (" & textlist & ") or field Subject contains (" & textlist & ")"
  1058.           BuildTotalQuery         
  1059.      End If          
  1060.      
  1061.      Forall n In pThreads
  1062.           BuildTextList(n)
  1063.      End Forall
  1064.      If textlist <> "" Then
  1065.           query = "field ThreadId contains (" & textlist & ")"
  1066.           BuildTotalQuery         
  1067.      End If
  1068.      
  1069.      totalquery = totalquery & " and (not(field form contains log, profile))"
  1070.      
  1071.      Set collection = db.UnprocessedFTSearch(totalquery, 0)
  1072.      
  1073. End Sub
  1074. '++LotusScript Development Environment:2:2:DoFormulaSearch:1:8
  1075. Sub DoFormulaSearch
  1076.      searchtype = "Formula"
  1077.      totalquery = ""
  1078.      
  1079.      If pCategories(0) <> "" Then
  1080.           Forall n In pCategories
  1081.                BuildTextList(n)
  1082.           End Forall
  1083.           If textlist <> "" Then
  1084.                query = "(@Contains(@UpperCase(Categories); @UpperCase(" & textlist &_
  1085.                ")) | @AllDescendants)"
  1086.                BuildTotalQuery         
  1087.           End If
  1088.      End If
  1089.      
  1090.      If pAuthors(0) <> "" Then
  1091.           Forall n In pAuthors
  1092.                BuildTextList(n)
  1093.           End Forall
  1094.           If textlist <> "" Then
  1095.                query = "@Contains(@UpperCase(From); @UpperCase(" & textlist & "))"
  1096.                BuildTotalQuery
  1097.           End If
  1098.      End If
  1099.      
  1100.      If pStrings(0) <> "" Then
  1101.           Forall n In pStrings
  1102.                BuildTextList(n)
  1103.           End Forall
  1104.           If textlist <> "" Then
  1105.                query = "@Contains(@UpperCase(Body); @UpperCase(" & textlist &_
  1106.                ")) | @Contains(@UpperCase(Subject); @UpperCase(" & textlist & "))"
  1107.                BuildTotalQuery
  1108.           End If
  1109.      End If
  1110.      
  1111.      If pMyName(0) <> "" Then
  1112.           query = "@Contains(@UpperCase(Body); @UpperCase(" & """" & pPersonName(0) & """" &_
  1113.           ")) | @Contains(@UpperCase(Subject); @UpperCase(" & """" & pPersonName(0) & """" & "))"
  1114.           BuildTotalQuery
  1115.      End If
  1116.      
  1117.      If pThreads(0) <> "" Then
  1118.           Forall n In pThreads
  1119.                BuildTextList(n)
  1120.           End Forall
  1121.           If textlist <> "" Then
  1122.                query = "@Contains(@UpperCase(ThreadId); @UpperCase(" & textlist & "))"
  1123.                BuildTotalQuery         
  1124.           End If
  1125.      End If
  1126.      
  1127.      totalquery = totalquery & " & (!@Contains(Form; ""Log"" : ""Profile"")) & (readers = """")" 
  1128.      
  1129.      Set collection = db.UnprocessedSearch(totalquery, Nothing, 0)
  1130.      
  1131. End Sub
  1132. '++LotusScript Development Environment:2:2:BuildTextList:1:8
  1133. Sub BuildTextList(n As Variant)
  1134.      
  1135.      If searchtype = "FT" Then
  1136.           If textlist = "" Then
  1137.                textlist = n
  1138.           Else
  1139.                textlist = textlist & ", " & n
  1140.           End If
  1141.      Else
  1142.           nvalue = """" & n & """"                       
  1143.           If textlist = "" Then
  1144.                textlist = nvalue
  1145.           Else
  1146.                textlist = textlist & " : " & nvalue
  1147.           End If
  1148.      End If
  1149.      
  1150. End Sub
  1151. '++LotusScript Development Environment:2:2:BuildTotalQuery:1:8
  1152. Sub BuildTotalQuery
  1153.      
  1154.      If totalquery = "" Then
  1155.           totalquery = query
  1156.      Else
  1157.           If searchtype = "FT" Then
  1158.                totalquery = totalquery & " or " & query
  1159.           Else
  1160.                totalquery = totalquery & " | " & query
  1161.           End If
  1162.           query = ""
  1163.      End If
  1164.      
  1165.      textlist = ""
  1166.      
  1167. End Sub
  1168. '++LotusScript Development Environment:2:2:Terminate:1:10
  1169. Sub Terminate
  1170.      
  1171.      Set collection = db.UnprocessedDocuments
  1172.      For n = 0 To collection.Count
  1173.           Set note = collection.GetNthDocument(n)
  1174.           Call s.UpdateProcessedDoc(note)
  1175.      Next
  1176.      
  1177. End Sub
  1178. Lotus Notes
  1179. PURSAF
  1180. Debbie2 Branco
  1181. F)`b"
  1182. 0|wm-
  1183. PURSAF
  1184. TS3+v
  1185. $TITLE
  1186. $AssistType
  1187. $AssistLastRun
  1188. $AssistDocCount
  1189. $AssistFlags
  1190. $AssistInfo
  1191. $AssistQuery
  1192. $AssistAction
  1193. $AssistAction_Ex
  1194. $UpdatedBy
  1195. $Flags
  1196.  $106Date4
  1197. $106l
  1198.     0S0E
  1199. $116D
  1200. $116l
  1201.     9S11S$117
  1202. AuthorName
  1203. Fromh
  1204. Anonymous
  1205.     1S2S16S
  1206. readers
  1207. PRIVATE: 
  1208. ExpireDate
  1209. EXPIRED: 
  1210. Subject
  1211. Subject
  1212. AuthorName
  1213. D2S0V
  1214.     0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
  1215. $120TopicD
  1216. Author
  1217. Interest Profile
  1218.     1S2S5S6S10S11S12S18S19S20S
  1219. readers
  1220. PRIVATE: 
  1221. ExpireDate
  1222. EXPIRED: 
  1223. Subject
  1224. Author
  1225.     0R4S8RS8E9S14RS6E16S17R18S
  1226. Categori_ze
  1227. _Edit Document
  1228. Send Docu_ment
  1229. _Forward
  1230. Forward as Bookmark
  1231. Bookmark
  1232.     4S6S
  1233. Navigator
  1234. EnvName
  1235. NavigatorState"
  1236.     1S2S
  1237. EnvName
  1238. EnvName
  1239. Main Navigator
  1240. EnvName
  1241.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  1242. New Main Topic.
  1243. Main Topic
  1244.     0S0E
  1245. Response,
  1246. Response
  1247.     0S0E
  1248. Response To Response8
  1249. Response to Response
  1250.     0S0E
  1251. _Move to Folder...
  1252. _Remove from Folder...
  1253. By Category |By Category
  1254. Debbie Branco(
  1255. $111l
  1256.     9S11S
  1257. AuthorName
  1258. Fromh
  1259. Anonymous
  1260.     1S2S16S
  1261. readers
  1262. PRIVATE: 
  1263. ExpireDate
  1264. EXPIRED: 
  1265. Subject
  1266. Subject
  1267. AuthorName
  1268. D2S0V
  1269.     0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
  1270. readers
  1271. PRIVATE: 
  1272. ExpireDate
  1273. EXPIRED: 
  1274. Subject
  1275. Fromh
  1276. D0S0V
  1277.     4S8RS8E9S14RS6E17R18S19S20S21S25S27S28S2E39S47S
  1278. Categories$111$112$115$Conflict$REF
  1279. CategoriesPYT
  1280. ##########################################################
  1281. CN=Mussie Shore/O=Iris#############
  1282. Shared Response Header
  1283. Lotus NotesCUA3
  1284. NewsLetterSubjectThreadIdParentFormImmediateParentSubjectOriginalSubjectReaders############################################
  1285. CN=Mussie Shore/O=Iris#############
  1286. Anonymous ResponseAnonymousResponse
  1287. Debbie BrancoShared Response HeaderH
  1288. BodySubjectNewsLetterSubjectThreadIdParentFormImmediateParentSubjectOriginalSubjectReaders###################################
  1289. Anonymous Response To ResponseAnonymousResponsetoResponse
  1290. Debbie BrancoShared Response HeaderH
  1291. BodySubjectNewsLetterSubjectThreadIdParentFormImmediateParentSubjectOriginalSubjectReaders#############
  1292. Lotus NotesEdit Interest Profile303
  1293. ###################################################
  1294. 255D2116B7BDFECF1769F57E5917AA29Lotus Notes
  1295. (Archive Log)Archive LogArchiveLog
  1296. Debbie BrancoCD
  1297. CategoriesSubjectArchiveTrailerBodyArchiveDate$MessageType########################
  1298. Debbie BrancoMark/Unmark Document As Expired303
  1299. #######################################
  1300. Periodic Archive
  1301. Lotus NotesSfL3
  1302. ######################################################
  1303. ##########################################################
  1304. ##########################################################
  1305.  Categories$111D
  1306. $111l
  1307.     9S11S$112
  1308. AuthorName
  1309. Fromh
  1310. Anonymous
  1311.     1S2S16S
  1312. readers
  1313. PRIVATE: 
  1314. ExpireDate
  1315. EXPIRED: 
  1316. Subject
  1317. Subject
  1318. AuthorName
  1319. D2S0V
  1320.     0R4S8RS8E9S14RS6E17R20S21S23S24S25S27S29S30S31S32S33S34S35S43S
  1321. $115Topic
  1322. readers
  1323. PRIVATE: 
  1324. ExpireDate
  1325. EXPIRED: 
  1326. Subject
  1327. Fromh
  1328. D0S0V
  1329.     4S8RS8E9S14RS6E17R18S19S20S21S25S27S28S2E39S47S&
  1330. Categori_ze
  1331. _Edit Document
  1332. Send Docu_ment
  1333. _Forward
  1334. Forward as Bookmarkx.
  1335. Bookmark
  1336.     4S6S
  1337. Navigator
  1338. EnvName
  1339. NavigatorState"
  1340.     1S2S
  1341. EnvName
  1342. EnvName
  1343. Main Navigator
  1344. EnvName
  1345.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  1346. New Main Topic.
  1347. Main Topic
  1348.     0S0E
  1349. Response,
  1350. Response
  1351.     0S0E
  1352. Response To Response6
  1353. ResponseToResponse
  1354.     0S0E
  1355. _Move to Folder...
  1356. _Remove from Folder...
  1357. "Small Fonts
  1358. Shared Response Header<
  1359.     0S0E
  1360.     0S0E
  1361.     Begin Hidden Fields 
  1362. -----------------------------R
  1363. Readers
  1364. OriginalSubject
  1365. OriginalSubject
  1366. Subject
  1367.     7S9S
  1368. OriginalSubject
  1369. Subject
  1370. ImmediateParentSubject
  1371.         Hidden fields to store the subject of this document's ancestors.
  1372. ParentForm
  1373.         Hidden field to store type of form that is the parent document.  Used in Preview Parent action.
  1374. ThreadId
  1375. ThreadId
  1376.         Used to maintain thread integrity.  Inherited from parent.
  1377. Subject
  1378.   (Response to:  ""
  1379. OriginalSubject
  1380.     1S2S3S4S5S6S
  1381. NewsLetterSubject
  1382.         Used as caption in newsletter that is sent based on user's interest profile
  1383.     End Hidden Fields 
  1384. -----------------------------[
  1385. Close
  1386.     0S0E
  1387. Save 
  1388.     0S0E
  1389. Edit Document
  1390.     0S0E
  1391.     0S0E
  1392. Response,
  1393. Response
  1394.     0S0E
  1395. Response To Response8
  1396. Response To Response
  1397.     0S0E
  1398. Parent Preview 
  1399.     0S0E
  1400. Forward
  1401.     0S0E
  1402. Forward As Bookmark
  1403. Bookmark
  1404.     4S6S
  1405. Mark PrivateV
  1406. readers
  1407.     0S0E
  1408. readers
  1409.     0S0E
  1410. Mark PublicpX
  1411. readers
  1412.     0S0E
  1413. readers
  1414.     0S0E
  1415. Add To Folder... 
  1416.     0S0E
  1417. NewDocTitle
  1418. New Response to "
  1419. OriginalSubject
  1420. OriginalSubject
  1421. Subject
  1422.     1S2S3S4S11S13S15S16S
  1423. StandardTitle
  1424. Response to "
  1425. OriginalSubject
  1426.     0R1S2S3S4S5S6S
  1427. NewDocTitle
  1428. StandardTitle
  1429.     0R4S6S
  1430. "Small Fonts
  1431. Times New Roman
  1432.  AnonymousResponse
  1433. Shared Response Header
  1434.     Begin Hidden Fields 
  1435. -----------------------------
  1436. Readers
  1437. OriginalSubject
  1438. OriginalSubject
  1439. Subject
  1440.     7S9S
  1441. OriginalSubject
  1442. Subject
  1443. ImmediateParentSubject
  1444.         Hidden fields to store the subject of this document's ancestors.
  1445. ParentForm
  1446.         Hidden field to store type of form that is the parent document.  Used in Preview Parent action.
  1447. ThreadId
  1448. ThreadId
  1449.         Used to maintain thread integrity.  Inherited from parent.
  1450. Subject
  1451.   (Response to:  ""
  1452. OriginalSubject
  1453.     1S2S3S4S5S6S
  1454. NewsLetterSubject
  1455.         Used as caption in newsletter that is sent based on user's interest profile
  1456.     End Hidden Fields 
  1457. -----------------------------
  1458. readers
  1459.     1S2S
  1460. readers
  1461.     1S2S
  1462. Subject
  1463.     0S0E
  1464. SubjectEnter a short description of this response.
  1465.     Anonymous
  1466. DateComposedDate this document was composed
  1467. timeComposed
  1468. BodyEnter the text of your response.
  1469. Categori_zeo
  1470. _Edit Document
  1471. Send Docu_ment
  1472. _Move to Folder...
  1473. _Forward
  1474. _Remove from Folder
  1475. Repaint
  1476. NewDocTitle
  1477. New Response to "
  1478. Subject
  1479.     1S2S3S4S5S6S
  1480. StandardTitle
  1481. Response to "
  1482. ImmediateParentSubject"
  1483.     0R1S2S3S4S5S6S
  1484. NewDocTitle
  1485. StandardTitle
  1486.     0R4S6S
  1487. "Small Fonts
  1488. Times New Roman
  1489.  AnonymousResponsetoResponse
  1490. Shared Response Header
  1491.     Begin Hidden Fields 
  1492. -----------------------------
  1493. Readers
  1494. OriginalSubject
  1495. OriginalSubject
  1496. Subject
  1497.     7S9S
  1498. OriginalSubject
  1499. Subject
  1500. ImmediateParentSubject
  1501.         Hidden fields to store the subject of this document's ancestors.
  1502. ParentForm
  1503.         Hidden field to store type of form that is the parent document.  Used in Preview Parent action.
  1504. ThreadId
  1505. ThreadId
  1506.         Used to maintain thread integrity.  Inherited from parent.
  1507. Subject
  1508.   (Response to:  ""
  1509. OriginalSubject
  1510.     1S2S3S4S5S6S
  1511. NewsLetterSubject
  1512.         Used as caption in newsletter that is sent based on user's interest profile
  1513.     End Hidden Fields 
  1514. -----------------------------
  1515. readers
  1516.     1S2S
  1517. readers
  1518.     1S2S
  1519. Subject
  1520.     0S0E
  1521. SubjectEnter a short description of this response.
  1522.         Anonymous
  1523. DateComposedDate this document was composed
  1524. timeComposed
  1525. BodyEnter the text of your response.
  1526. Categori_zeo
  1527. _Edit Document
  1528. Send Docu_ment
  1529. _Forward
  1530. _Move to Folder...
  1531. _Remove from Folder
  1532. Repaint
  1533. Notes Product Development
  1534. )I^-.
  1535. PURSAF
  1536. Notes Domain Certificate
  1537. PURSAF
  1538. vDhFV
  1539. S_)tW'
  1540. aY*]c
  1541. PURSAF
  1542. San9e
  1543. Lotus Development Inc
  1544. 0wmS(
  1545. PURSAF
  1546. C$)NqF
  1547. ISd93
  1548. O=Iris
  1549. O=Iris
  1550. x>_/^
  1551. PURSAFO
  1552. .?    Kz"
  1553. O=Iris
  1554. CN=Catherine Duffy/O=Iris
  1555. PURSAFO
  1556. FDR.I
  1557. x@m=;y?kuf
  1558. 8CL*,
  1559. $TITLE
  1560. InterestProfile
  1561. My Favorites|My FavoritesMy Favorites|My Favorites/L
  1562. Lotus Notes:
  1563. $110i
  1564. useSubject
  1565. ImmediateParentSubjecth
  1566. ImmediateParentSubject
  1567. OriginalSubject
  1568. OriginalSubject
  1569.     1S2S9S11RS35E16S18RS31E
  1570. readers
  1571. PRIVATE: 
  1572. ExpireDate
  1573. EXPIRED: 
  1574. Subject
  1575. useSubject
  1576.  (RE: 
  1577. useSubject
  1578.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E
  1579. $110$114$112$Conflict
  1580. $110$112
  1581. $112$110
  1582. $110Date
  1583. $110i
  1584. $114Topic
  1585. useSubject
  1586. ImmediateParentSubjecth
  1587. ImmediateParentSubject
  1588. OriginalSubject
  1589. OriginalSubject
  1590.     1S2S9S11RS35E16S18RS31E
  1591. readers
  1592. PRIVATE: 
  1593. ExpireDate
  1594. EXPIRED: 
  1595. Subject
  1596. useSubject
  1597.  (RE: 
  1598. useSubject
  1599.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E$112By,
  1600. ##########################################
  1601. _Archiving|Archiving
  1602. Lotus Notes
  1603. Archive Logs
  1604. Archive Profile
  1605.     6S9S11S
  1606. $75$74Subject$Conflict
  1607. Archive
  1608.     L1S5S1(
  1609. $75$74Subject
  1610. Archive Logs
  1611. Archive Profile
  1612.     6S9S11S$74
  1613. SubjectDescription&
  1614. Y###############################################
  1615. 255D2116B7BDFECF1769F57E5917AA29Lotus Notes
  1616. Archive ProfileArchiveProfileArchive Profile
  1617. Debbie BrancoCD
  1618. ProfileEditorsArchivePathArchiveServerArchiveLocationIncludeDoclinksArchiveLogDocumentLifeArchiveInactiveExpiredLifeArchiveExpired
  1619. ##########################################################
  1620. Main TopicMainTopic    
  1621. BodyCategoriesSubjectNewsLetterSubjectThreadIddateKeywordoffsetreadersFrom2D7EFB06EAE6F4995FDFC25922882930Lotus Notes
  1622. Debbie BrancoLotus Notes##############################################
  1623. ##########################################################
  1624. ##########################################################
  1625. ##########################################################
  1626. Categori_ze    
  1627. _Edit Document
  1628. Send Docu_ment
  1629. _Forward
  1630. Forward as Bookmark3.
  1631. Bookmark
  1632.     4S6S
  1633. Navigator
  1634. EnvName
  1635. NavigatorState"
  1636.     1S2S
  1637. EnvName
  1638. EnvName
  1639. Main Navigator
  1640. EnvName
  1641.     0R11RS8E13RS20E14S20RS20E30RS8E32RS20E33S39RS20E44RS9E
  1642. New Main Topic.
  1643. Main Topic
  1644.     0S0E
  1645. Response,
  1646. Response
  1647.     0S0E
  1648. Response to Response8
  1649. Response to Response
  1650.     0S0E
  1651. _Move to Folder...
  1652. _Remove from Folder...
  1653. Archive Log
  1654. Times New Roman
  1655.  ArchiveLog
  1656. $MessageType
  1657. %12-/H
  1658. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  1659. WC9iB.xC-iF8wH8jT>zR<rd?
  1660. 2L3;FK=Dj=C:FQ8Qp<b
  1661. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  1662. Archive Log for 
  1663. ArchiveDate
  1664. ArchiveTrailer
  1665. ArchiveTrailer
  1666.     Hidden:  
  1667. Archive Log for 
  1668. ArchiveDate
  1669.     1S2S
  1670. Subject
  1671. (Archive)
  1672. Categories
  1673. Closee 
  1674.     0S0E
  1675. Categori_ze
  1676. _Edit Document
  1677. Send Docu_ment
  1678. _Forward
  1679. _Move to Folder...
  1680. _Remove from Folder
  1681. Notes Product Development
  1682. )I^-.
  1683. PURSAF
  1684. Notes Domain Certificate
  1685. PURSAF
  1686. vDhFV
  1687. S_)tW'
  1688. aY*]c
  1689. PURSAF
  1690. San9e
  1691. Lotus Development Inc
  1692. 0wmS(
  1693. PURSAF
  1694. C$)NqF
  1695. ISd93
  1696. O=Iris
  1697. O=Iris
  1698. x>_/^
  1699. PURSAFO
  1700. .?    Kz"
  1701. O=Iris
  1702. CN=Catherine Duffy/O=Iris
  1703. PURSAFO
  1704. FDR.I
  1705. $TITLE
  1706. ExpireError
  1707. This 
  1708. form"
  1709.  cannot be marked as expired.
  1710.     1S2S3S4S5S6S
  1711. ExpireDate
  1712. PROTECTFROMARCHIVEh
  1713. Protected Form
  1714. ExpireError
  1715. ExpireDate
  1716. Expire Date
  1717. This document was marked expired on 
  1718. ExpireDateV
  1719. .  Would you like to unmark it?
  1720. ExpireDate
  1721.     0R1S2S3S5R10S22R23S24S26S28S34S36S37S38S42S43S46S48S
  1722. _Forward
  1723. Categori_ze
  1724. Edit Document
  1725. _Move to Folder...
  1726. _Remove from Folder...
  1727. Setup Archive...L
  1728. ArchiveProfile
  1729. Server
  1730.     1S2S6S
  1731.     0R1S2S6S
  1732. Server
  1733.     0R7S8S11S13S14S15S16S
  1734. Archive Now
  1735. AllDocs
  1736. Archiving
  1737. Archive Profile
  1738. Archive Now
  1739. Before you can began archiving documents you need to fill out an Archive Profile.  Please press "Setup Archive...".
  1740.     1S2S10S12S14S16S20S26S28S32S
  1741. Archiving
  1742. Are you sure you want to move documents to the archive database now?
  1743.     0RR6S8S11S13S
  1744. AlreadyArchived
  1745. MailArchived|
  1746. Archiving
  1747. Since this is the first time you have requested an archive, it may take several minutes.  Do you want to proceed?
  1748. Archiving
  1749. No documents were archived
  1750.     0RR1S2S8S9S11S13S19S21S24S26S32S34S
  1751. MailArchived
  1752.     0RR1S2S3S
  1753. Periodic Archive
  1754.     0R4S
  1755. Server
  1756.     1S2S6S
  1757.     0R1S2S6S
  1758. Server
  1759.     0R7S8S11S13S14S15S16S
  1760. Enable Scheduled Archivingf
  1761. AllDocs
  1762. Archiving
  1763. Archive Profile
  1764. Archive Now
  1765. Before you can began archiving documents you need to fill out an Archive Profile.  Please press "Setup Archive...".
  1766.     1S2S10S12S14S16S20S26S28S32S
  1767. Periodic Archive
  1768.     0RR4S
  1769. Server
  1770.     1S2S6S
  1771.     0R1S2S6S
  1772. Periodic Archive
  1773. Server
  1774.     0R4S5R12S13S16S18S19S20S21S
  1775. Disable Scheduled Archiving2f
  1776. AllDocs
  1777. Archiving
  1778. Archive Profile
  1779. Archive Now
  1780. Before you can began archiving documents you need to fill out an Archive Profile.  Please press "Setup Archive...".
  1781.     1S2S10S12S14S16S20S26S28S32S
  1782. Periodic Archive
  1783.     0RR4S
  1784. Server
  1785.     1S2S6S
  1786.     0R1S2S6S
  1787. Periodic Archive
  1788. Server
  1789.     0R7S8R15S16S19S21S22S23S24S
  1790. Open Archive Db...'++LotusScript Development Environment:2:5:(Options):0:66
  1791. '++LotusScript Development Environment:2:5:(Forward):0:1
  1792. Declare Sub Click(Source As Button)
  1793. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1794. Dim s As NotesSession
  1795. Dim w As NotesUIWorkspace
  1796. Dim sourcedb As NotesDatabase
  1797. Dim view As NotesView
  1798. Dim profile As NotesDocument
  1799. Dim server As String
  1800. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1801. Private Sub BindEvents(Byval Objectname_ As String)
  1802.      Static Source As BUTTON
  1803.      Set Source = Bind(Objectname_)
  1804.      On Event Click From Source Call Click
  1805. End Sub
  1806. '++LotusScript Development Environment:2:2:Click:1:12
  1807. Sub Click(Source As Button)
  1808.      
  1809.      On Error Goto ErrorRoutine
  1810. '91 is Object Variable Not Set     
  1811.      On Error 91 Resume Next 
  1812.      
  1813.      Set s = New NotesSession
  1814.      Set sourcedb = s.CurrentDatabase
  1815.      Set view = sourcedb.GetView("Archiving")
  1816.      Set profile = view.GetDocumentByKey("Archive Profile")
  1817.      
  1818.      If profile Is Nothing Then
  1819.           Messagebox "There is no Archive Db for this database.", 0 + 64, "Archive"
  1820.           Exit Sub
  1821.      End If
  1822.      
  1823.      ArchivePath = profile.ArchivePath
  1824.      ArchiveServer = profile.ArchiveServer
  1825.      
  1826.      Set w = New NotesUIWorkspace
  1827.      
  1828.      On Error Resume Next
  1829.      Call w.OpenDatabase(ArchiveServer(0), ArchivePath(0), "", "", "1")
  1830.      
  1831.      Exit Sub
  1832.      
  1833. ErrorRoutine:
  1834.      Messagebox "Unexpected condition: " & Err & " - " & Error
  1835.      Exit Sub
  1836.      
  1837. End Sub
  1838. ed$UpdatedBy$ACLDigest$Signature$DESIGNVERSION$Version$FORMULA$FORMULACLASS$COLLATION$DefaultNavigator$Flags$FlagsNoRefresh$TITLEIconBitmap$INFO$Fonts$BODY$SubForms$WINDOWTITLE$$ScriptNameFromreadersOriginalSubjectImmediateParentSubjectParentFormThreadIdNewsLetterSubjectSubjectBody$FIELDS$ACTIONS$Index$VIEWFORMAT$Comment$$XMB$LicenseePROTECTFROMARCHIVE$Script$$Script_O$$FormScript$$$FormScript_OProfileThreadsPersonNameProfileMyNameProfileAuthorsProfileCategoriesProfileStringsProfileThreadSubjectsHiddenDocument$AssistVersion$AssistType$AssistLastRun$AssistDocCount$AssistFlags$MachineName$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$ViewMapDataset$ViewMapLayout$Collation1$Collation2expirationDateDisplayExpirationDateExpireDate$$FormAction6offsetdateKeywordCategories$Header$Type$Operation$Scan$LeftToDo$Name$FolderObject$FolderIDTableDocLife$ManualArchivers_OObsoleteLifeDocumentLife$MessageTypeArchiveDateArchiveTrailer$SCRIPTOBJ_10ArchiveExpiredExpiredLifeArchiveInactiveArchiveLogIncludeDoclinksArchiveLocationArchiveServerArchivePathProfileEditors$Collection$ViewContainer
  1839. Archive Profile
  1840. Times New Roman
  1841. '++LotusScript Development Environment:2:5:(Options):0:66
  1842. Option Public
  1843. '++LotusScript Development Environment:2:5:(Forward):0:1
  1844. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1845. %INCLUDE "lsconst.lss"
  1846. Dim s As NotesSession
  1847. Dim w As NotesUIWorkspace
  1848. Dim db As NotesDatabase
  1849. Dim archivedb As NotesDatabase
  1850. Dim view As NotesView
  1851. Dim note As NotesDocument
  1852. Dim profile As NotesDocument
  1853. Dim doc As NotesUIDocument
  1854. Dim DocWasSaved As Integer
  1855. Dim DoNotClose As Variant
  1856.  Archive Profile'++LotusScript Development Environment:2:5:(Options):0:66
  1857. '++LotusScript Development Environment:2:5:(Forward):0:1
  1858. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1859. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1860. Declare Sub Postopen(Source As Notesuidocument)
  1861. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1862. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1863. Private Sub BindEvents(Byval Objectname_ As String)
  1864.      Static Source As NOTESUIDOCUMENT
  1865.      Set Source = Bind(Objectname_)
  1866.      On Event Queryclose From Source Call Queryclose
  1867.      On Event Querysave From Source Call Querysave
  1868.      On Event Postopen From Source Call Postopen
  1869. End Sub
  1870. '++LotusScript Development Environment:2:2:Queryclose:1:12
  1871. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1872.      
  1873.      If (DocWasSaved = False) Or (profile Is Nothing) Or DoNotClose Then Exit Sub
  1874.      
  1875.      ItemList = profile.Items
  1876.      Forall n In ItemList
  1877.           profile.RemoveItem(n.Name)    
  1878.      End Forall
  1879.      note.CopyAllItems profile
  1880.      profile.SaveOptions = "1"
  1881.      profile.save True, True
  1882.      
  1883. End Sub
  1884. '++LotusScript Development Environment:2:2:Querysave:1:12
  1885. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1886.      
  1887.      ArchiveServer = Evaluate("@Name([Abbreviate]; ArchiveServer)", note)
  1888.      If note.ArchiveLocation(0) = "Local" Then ArchiveServer(0) = ""
  1889.      ArchivePath = note.ArchivePath
  1890.      
  1891.      On Error Resume Next
  1892.      Set archivedb = New NotesDatabase(ArchiveServer(0), ArchivePath(0))
  1893.      If note.HasItem("ArchiveDbCreated") Then
  1894.           If Not(archivedb.IsOpen) Then Messagebox "Unable to access the archive database.", MB_OK, "Archive Setup"
  1895.      Else
  1896.           Do Until archivedb.IsOpen
  1897.                If ArchiveServer(0) = "" Then
  1898.                     ArchiveFile = ArchivePath(0)
  1899.                Else
  1900.                     ArchiveFile = ArchiveServer(0) & "!!" & ArchivePath(0) 
  1901.                End If
  1902.                Print "Creating Archive database - " & ArchiveFile
  1903.                Set archivedb = db.CreateCopy(ArchiveServer(0), ArchivePath(0))
  1904.                If Not(archivedb.IsOpen) Then Call archivedb.Open("", "")
  1905.                If Err = 0 Then
  1906.                     archivedb.Title = db.Title & " (Archived)"
  1907.                     views = archivedb.Views
  1908.                     Forall i In views
  1909.                          If i.IsFolder Then
  1910. 'Don't remove default view from database
  1911.                               If Not i.IsDefaultView Then i.Remove
  1912.                          End If
  1913.                     End Forall
  1914.                     Messagebox "Archive database - " & ArchiveFile & " has been created.",_
  1915.                     MB_OK, "Archive Setup"
  1916.                     note.ArchiveDbCreated = 1
  1917.                     w.ViewRefresh
  1918.                     Call s.SetEnvironmentVar("MailArcSet", "1")
  1919.                Else
  1920.                     Err = 0
  1921.                     If ArchiveServer(0) = "" Then
  1922.                          Messagebox "Unable to automatically create local archive database - " & ArchivePath(0) & ".",_
  1923.                          MB_OK, "Archive Setup"
  1924.                          Exit Do
  1925.                     Else
  1926.                          Select Case Messagebox("Unable to automatically create server archive database - " & _
  1927.                          ArchiveServer(0) & "!!" & ArchivePath(0) & ".  Would you like to archive locally?",_
  1928.                          MB_YesNoCancel, "Archive Setup")
  1929.                          Case IDYES
  1930.                               note.ArchiveLocation = "Local"
  1931.                               source.reload
  1932.                               source.refresh
  1933.                               Delete archivedb
  1934.                               ArchiveServer = note.ArchiveServer
  1935.                               ArchivePath = note.ArchivePath
  1936.                          Case IDNO
  1937.                               Messagebox "Please contact your server administrator about adding " & ArchivePath(0) &_
  1938.                               " to server " & ArchiveServer(0) & ".", MB_OK, "Archive Setup"
  1939.                               Exit Do
  1940.                          Case Else
  1941.                               DoNotClose = True
  1942.                               Continue = False
  1943.                               Exit Sub
  1944.                          End Select
  1945.                     End If
  1946.                End If        
  1947.           Loop
  1948.      End If
  1949.      
  1950.      DocWasSaved = True
  1951.      DoNotClose = False
  1952.      
  1953.      If Not(profile Is Nothing) Then note.SaveOptions = "0"
  1954.      
  1955.      source.Reload
  1956.      source.RefreshHideFormulas  
  1957.      
  1958.      Print
  1959.      
  1960. End Sub
  1961. '++LotusScript Development Environment:2:2:Postopen:1:12
  1962. Sub Postopen(Source As Notesuidocument)
  1963.      
  1964.      Set note = source.Document
  1965.      Set w = New NotesUIWorkspace
  1966.      Set s = New NotesSession
  1967.      Set db = s.CurrentDatabase
  1968.      Set view = db.GetView("Archiving")
  1969.      
  1970.      source.AutoReload = False
  1971.      
  1972.      If source.IsNewDoc = False Then Exit Sub
  1973.      
  1974.      Set profile = view.GetDocumentByKey("Archive Profile")
  1975.      If profile Is Nothing Then
  1976.           note.ProtectFromArchive = 1
  1977.           note.ExcludeFromView = "D"
  1978.           note.From = "Archiving"
  1979.           note.Subject = "Archive Profile"
  1980.           note.Categories = "(Archive)"
  1981.           Call note.ReplaceItemValue("_ViewIcon", 11)
  1982.           source.reload
  1983.      Else
  1984.           ItemList = note.Items
  1985.           Forall n In ItemList
  1986.                note.RemoveItem(n.Name)    
  1987.           End Forall
  1988.           profile.CopyAllItems note
  1989.           source.Reload
  1990.           If source.EditMode Then source.Refresh
  1991.      End If
  1992.      
  1993.      DocWasSaved = False
  1994.      
  1995. End Sub
  1996. ArchiveServer
  1997. Archive Profile 
  1998. ArchiveExpired
  1999. Archive Expired documents | Yes
  2000.     after
  2001. ExpiredLife
  2002. Number cannot be negative.{
  2003.     3S4S6S11SExpiredLife
  2004.     days
  2005. ArchiveInactive
  2006. Archive documents which have no activity | Yes
  2007.     after
  2008. DocumentLife
  2009. Number cannot be negative.{
  2010.     3S4S6S11SDocumentLife
  2011.     days
  2012. ArchiveLog
  2013. Generate an Archive Log each time an archive occurs | Yes
  2014. IncludeDoclinks
  2015. Include document links | Yes
  2016.     0S0E
  2017.     Documents are archived:
  2018. Local
  2019. ArchiveLocation
  2020. Locally | LocalOn Server | Server
  2021. ArchiveLocation
  2022. Local
  2023.     1S2S3S4S
  2024.     Archive database is on server:
  2025.     0S0E
  2026. ArchiveServer
  2027. ArchiveLocation
  2028. Local
  2029. ArchiveServer
  2030. ArchiveServer
  2031.     4RS4E6R7S8S10RS4E12R13S14S16RS4E20S23R
  2032. ArchiveServer
  2033.     Archive file:
  2034. CurrentPath
  2035.     1S2S6S
  2036. CurrentFile
  2037. CurrentPath
  2038.     0R1S2S6S
  2039. FileOnly
  2040. CurrentPath
  2041. CurrentFile
  2042. Macintosh
  2043. CurrentPath
  2044. CurrentFile
  2045. CurrentPath
  2046. CurrentFile
  2047. CurrentFile
  2048.     0R1S2S8S11S15S18S19S20S21S22S26S29S33S36S37S38S39S40S44S47S51S54S
  2049. DirOnly
  2050. CurrentPath
  2051. CurrentFile
  2052. Macintosh
  2053. CurrentPath
  2054. CurrentFile
  2055. CurrentPath
  2056. CurrentFile
  2057.     0R1S2S8S11S15S17S18S20S21S22S23S24S28S31S35S37S38S40S41S42S43S44S48S51S55S57S58S60S
  2058. DirOnly
  2059. FileOnly"
  2060. CurrentPath
  2061.     0RR1S2S5S6S8S10S11S15S
  2062. ArchivePath
  2063. Please specify the filename of the archive database
  2064.     3S4S6S11SArchivePath
  2065.     Archive server:
  2066.     Archive database:
  2067. ArchiveServer
  2068. Local
  2069. ArchiveServer
  2070.     3S4S6S8S
  2071. tmpArchiveServer
  2072. ArchivePath
  2073. tmpArchivePath
  2074.     Archive Profile editors:
  2075. ProfileEditors
  2076. Close
  2077.     0S0E
  2078. Categori_ze
  2079. _Edit Document
  2080. Send Docu_ment
  2081. _Forward
  2082. Save Profile 
  2083.     0S0E
  2084. _Move to Folder...
  2085. _Remove from Folder
  2086. '++LotusScript Development Environment:2:5:(Options):0:74
  2087. Option Public
  2088. '++LotusScript Development Environment:2:5:(Forward):0:1
  2089. Declare Sub Initialize
  2090. Declare Sub EvaluateDocument(ArchiveType)
  2091. Declare Sub ArchiveDocument
  2092. Declare Sub Terminate
  2093. Declare Sub ProcessDocuments
  2094. Declare Sub FixReaderNames
  2095. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2096. %INCLUDE "lserr.lss"
  2097. %INCLUDE "lsxbeerr.lss"
  2098. Dim s As NotesSession
  2099. Dim sourcedb As NotesDatabase
  2100. Dim archivedb As NotesDatabase
  2101. Dim note As NotesDocument
  2102. Dim newnote As NotesDocument
  2103. Dim lognote As NotesDocument
  2104. Dim profile As NotesDocument
  2105. Dim documents As NotesDocumentCollection
  2106. Dim responses As NotesDocumentCollection
  2107. Dim view As NotesView
  2108. Dim dtNow As NotesDateTime
  2109. Dim dtExpired As NotesDateTime
  2110. Dim dtDocument As NotesDateTime
  2111. Dim dtCompare As NotesDateTime
  2112. Dim item As NotesItem
  2113. Dim rtitem As NotesRichTextItem
  2114. Dim CurrentServer As String
  2115. Dim ArchiveExpired As Variant
  2116. Dim ExpiredLife As Variant
  2117. Dim ArchiveInactive As Variant
  2118. Dim DocumentLife As Variant
  2119. Dim ArchiveServer As Variant
  2120. Dim ArchivePath As Variant
  2121. Dim ArchiveLog As Variant
  2122. Dim IncludeDocLinks As Variant
  2123. Dim Archive As Variant
  2124. Dim goAgain As Variant
  2125. Dim DoNotRun As Variant
  2126. Dim DbNotOpen As Variant
  2127. '++LotusScript Development Environment:2:2:Initialize:1:10
  2128. Sub Initialize
  2129.      
  2130.      On Error Goto ErrorRoutine
  2131.      On Error ErrObjectVariableNotSet Resume Next 
  2132.      
  2133.      Set s = New NotesSession
  2134.      Set sourcedb = s.CurrentDatabase
  2135.      Set view = sourcedb.GetView("Archiving")
  2136.      
  2137.      Set profile = view.GetDocumentByKey("Archive Profile")
  2138.      If profile Is Nothing Then
  2139.           Messagebox "There is no archive profile for this database.  " &_
  2140.           "Please contact the database manager for further information.", 0 + 64, "Archive"
  2141.           DoNotRun = True
  2142.           Exit Sub       
  2143.      End If
  2144.      
  2145.      ArchiveExpired = profile.ArchiveExpired
  2146.      ArchiveInactive = profile.ArchiveInactive 
  2147.      If (ArchiveExpired(0) = "") And (ArchiveInactive(0) = "") Then
  2148.           DoNotRun = True
  2149.           Exit Sub       
  2150.      End If
  2151.      
  2152.      ExpiredLife = profile.ExpiredLife
  2153.      DocumentLife = profile.DocumentLife
  2154.      ArchivePath = profile.ArchivePath
  2155.      ArchiveServer = Evaluate("@Name([Abbreviate]; ArchiveServer)", profile)
  2156.      ArchiveLog = profile.ArchiveLog
  2157.      IncludeDocLinks = profile.IncludeDocLinks
  2158.      
  2159.      Set dtNow = New NotesDateTime("Today")
  2160.      Set dtExpired = New NotesDateTime("Today")
  2161.      Set dtDocument = New NotesDateTime("Today")
  2162.      Set dtCompare = New NotesDateTime("Today")
  2163.      dtNow.SetNow
  2164.      If ArchiveExpired(0) = "Yes" Then dtExpired.AdjustDay(Int(ExpiredLife(0)) * -1)
  2165.      If ArchiveInactive(0) = "Yes" Then dtDocument.AdjustDay(Int(DocumentLife(0)) * -1)
  2166.      
  2167.      If ArchiveLog(0) = "Yes" Then
  2168.           Set lognote = New NotesDocument(sourcedb)
  2169.           Set rtitem = New NotesRichTextItem(lognote, "Body")
  2170.           lognote.Form = "Archive Log"
  2171.           lognote.ArchiveDate = dtNow.LSLocalTime
  2172.           lognote.ProtectFromArchive = 1
  2173.           lognote.ExcludeFromView = "D"
  2174.           lognote.From = "Archiving"
  2175.           lognote.Categories = "(Archive)"
  2176.           Call lognote.ReplaceItemValue("_ViewIcon", 22)
  2177.      End If
  2178.      
  2179.      On Error lsERR_NOTES_DBOPEN_FAILED Resume Next
  2180.      Set archivedb = New NotesDatabase(ArchiveServer(0), ArchivePath(0))
  2181.      If archivedb.IsOpen = False Then
  2182.           DbNotOpen = True
  2183.           Err = 0
  2184.           Exit Sub
  2185.      End If        
  2186.      
  2187.      ProcessDocuments
  2188.      
  2189.      Exit Sub
  2190.      
  2191. ErrorRoutine:
  2192.      Print "Unexpected condition: " & Err & " - " & Error
  2193.      Err = 0
  2194.      Exit Sub
  2195.      
  2196. End Sub
  2197. '++LotusScript Development Environment:2:2:EvaluateDocument:1:8
  2198. Sub EvaluateDocument(ArchiveType)
  2199.      
  2200.      On Error Goto ErrorRoutine
  2201.      On Error ErrObjectVariableNotSet Resume Next 
  2202.      
  2203.      Archive = False
  2204.      
  2205. 'If this type of form does not get archived then exit
  2206.      If note.HasItem("ProtectFromArchive") Then
  2207.           ProtectFromArchive = note.ProtectFromArchive
  2208.           If ProtectFromArchive(0) = 1 Then Exit Sub
  2209.      End If
  2210.      
  2211.      Select Case ArchiveType
  2212.      Case "Expired"
  2213.           If ArchiveExpired(0) = "Yes" And note.HasItem("ExpireDate") Then
  2214.                Set item = note.GetFirstItem("ExpireDate")
  2215.                Set dtCompare = item.DateTimeValue
  2216.                If dtCompare Is Nothing Then
  2217.                     Set dtCompare = New NotesDateTime("Today")
  2218.                Else
  2219.                     If dtExpired.TimeDifference(dtCompare) >= 0 Then
  2220.                          Archive = True
  2221.                          Exit Sub
  2222.                     End If
  2223.                End If
  2224.           End If
  2225.      Case "Inactive"
  2226.           If ArchiveInactive(0) = "Yes" Then
  2227.                AccessDate = note.LastAccessed
  2228.                dtCompare.LSLocalTime = AccessDate
  2229.                If dtDocument.TimeDifference(dtCompare) >= 0 Then Archive = True
  2230.           End If
  2231.      End Select
  2232.      
  2233.      Exit Sub
  2234.      
  2235. ErrorRoutine:
  2236.      Print "Unexpected condition: " & Err & " - " & Error
  2237.      Err = 0
  2238.      Exit Sub     
  2239.      
  2240. End Sub
  2241. '++LotusScript Development Environment:2:2:ArchiveDocument:1:8
  2242. Sub ArchiveDocument
  2243.      
  2244.      On Error Goto ErrorRoutine
  2245.      On Error ErrObjectVariableNotSet Resume Next 
  2246.      
  2247. $Archived and DateArchived might already be present, if this agent failed the last
  2248. time it was run.  None of these fields should be on the archived copy, because we 
  2249. don't want the archive database to inadvertantly archive these documents (it can
  2250. archive, but it needs to use its own criteria)
  2251. %END REM
  2252.      
  2253.      If note.HasItem("$Archived") Then note.RemoveItem("$Archived")
  2254.      If note.HasItem("DateArchived") Then note.RemoveItem("DateArchived")
  2255.      If note.HasItem("ExpireDate") Then note.RemoveItem("ExpireDate")
  2256.      FixReaderNames
  2257.      note.Save True, True
  2258.      Set newnote = note.CopyToDatabase(archivedb)
  2259.      note.DateArchived = dtNow.LSLocalTime    
  2260.      Call note.AppendItemValue("$Archived", True)
  2261.      note.Save True, True
  2262.      
  2263.      Subject = note.Subject
  2264.      CreatedBy = Evaluate("@Name([Abbreviate]; From)", note)
  2265.      CreatedDate = note.Created
  2266.      
  2267.      If ArchiveLog(0) = "Yes" Then
  2268.           If IncludeDocLinks(0) = "Yes" Then
  2269.                Call rtitem.AppendDocLink(newnote, "DocLink to " & Subject(0))
  2270.                Call rtitem.AddTab(1)
  2271.           End If
  2272.           Call rtitem.AppendText(Subject(0) & " (created by " & CreatedBy(0) & " on " &_
  2273.           Format(CreatedDate, "Short Date") & ")")
  2274.           Call rtitem.AddNewLine(2)
  2275.           lognote.Save True, True
  2276.      End If
  2277.      
  2278.      Exit Sub
  2279.      
  2280. ErrorRoutine:
  2281.      Print "Unexpected condition: " & Err & " - " & Error
  2282.      Err = 0
  2283.      Exit Sub
  2284.      
  2285. End Sub 
  2286. '++LotusScript Development Environment:2:2:Terminate:1:10
  2287. Sub Terminate
  2288.      
  2289.      If DoNotRun Then Exit Sub
  2290.      
  2291.      On Error Goto ErrorRoutine
  2292.      On Error ErrObjectVariableNotSet Resume Next 
  2293.      
  2294.      Set documents = sourcedb.Search("@IsAvailable(DateArchived)", Nothing, 0)
  2295.      ArchiveCount = documents.Count
  2296.      For n = 1 To ArchiveCount
  2297.           Set note = documents.GetNthDocument(n)         
  2298.           note.Remove(True)
  2299.      Next
  2300.      
  2301.      If ArchiveLog(0) = "" Then Exit Sub
  2302.      
  2303.      ArchiveTitle = archivedb.Title
  2304.      dtNow.SetNow
  2305.      If ArchiveServer(0) = "" Then ArchiveServer(0) = "Local"
  2306.      lognote.Subject = "Archive Log for " & Format(dtNow.LSLocalTime, "General Date")
  2307.      
  2308.      If DbNotOpen Then
  2309.           If ArchiveServer(0) = "" Then
  2310.                ArchiveFile = ArchivePath(0)
  2311.           Else
  2312.                ArchiveFile = ArchiveServer(0) & "!!" & ArchivePath(0)
  2313.           End If
  2314.           lognote.Body = "The Archive agent was unable to open your archive file - " & ArchiveFile &_
  2315.           ".  Please verify that the file exists."
  2316.      End If
  2317.      
  2318.      lognote.ArchiveTrailer = "Archive of " & ArchiveCount & " documents on server " & _
  2319.      ArchiveServer(0) & " from " & sourcedb.Title & " (" & sourcedb.FilePath & ") to " & ArchiveTitle & _
  2320.      " (" & ArchivePath(0) & ") completed sucessfully on " & _
  2321.      Format(dtNow.LSLocalTime, "Short Date") & " at " & _
  2322.      Format(dtNow.LSLocalTime, "Long Time") & _
  2323.      ".  Expired documents are archived after " & ExpiredLife(0) & _
  2324.      " days.  All other documents are archived after " & DocumentLife(0) & " days of inactivity."
  2325.      lognote.Save True, True
  2326.      Call lognote.CopyToDatabase(archivedb)
  2327.      
  2328.      Print
  2329.      
  2330.      Exit Sub
  2331.      
  2332. ErrorRoutine:
  2333.      If Not(DbNotOpen) Then Print "Unexpected condition: " & Err & " - " & Error
  2334.      Err = 0
  2335.      Exit Sub
  2336.      
  2337. End Sub
  2338. '++LotusScript Development Environment:2:2:ProcessDocuments:1:8
  2339. Sub ProcessDocuments
  2340.      
  2341.      On Error Resume Next
  2342.      
  2343.      Print "Archiving documents..."
  2344.      
  2345. 'First check for Expired documents
  2346.      If ArchiveExpired(0) = "Yes" Then
  2347.           Set documents = sourcedb.Search("@IsAvailable(ExpireDate)", Nothing, 0) 
  2348.           If documents.Count > 0 Then
  2349.                For n = 1 To documents.Count
  2350.                     Set note = documents.GetNthDocument(n)
  2351.                     EvaluateDocument("Expired")
  2352.                     If Archive = True Then ArchiveDocument
  2353.                Next
  2354.           End If
  2355.      End If
  2356.      
  2357. 'Now check the rest of the documents     
  2358.      If ArchiveInactive(0) = "Yes" Then
  2359.           Set documents = sourcedb.AllDocuments
  2360.           If documents.Count > 0 Then
  2361.                For n = 1 To documents.Count
  2362.                     Set note = documents.GetNthDocument(n)
  2363.                     EvaluateDocument("Inactive")
  2364.                     If Archive = True Then ArchiveDocument
  2365.                Next
  2366.           End If
  2367.      End If
  2368.      
  2369. 'Loop through all the documents that we archived and archive their reponses
  2370.      Do
  2371.           Set documents = sourcedb.Search("@IsAvailable($Archived)", Nothing, 0)
  2372.           goAgain = False
  2373.           For n = 1 To documents.count
  2374.                Set note = documents.GetNthDocument(n)
  2375.                Call note.RemoveItem("$Archived")              
  2376.                If Err = 0 Then
  2377.                     note.Save True, True
  2378.                     Set responses = note.Responses
  2379.                     If responses.Count > 0 Then
  2380.                          For i = 1 To responses.Count
  2381.                               Set note = responses.GetNthDocument(i)
  2382.                               If Not note.HasItem("$Archived") Then ArchiveDocument
  2383. 'Since we just archived a response, we have to loop back through in order to archive all of its reponses
  2384.                               goAgain = True
  2385.                          Next
  2386.                     End If
  2387.                Else
  2388.                     Err = 0
  2389.                End If
  2390.           Next
  2391.      Loop While goAgain
  2392.      
  2393. End Sub
  2394. '++LotusScript Development Environment:2:2:FixReaderNames:1:8
  2395. Sub FixReaderNames
  2396.      
  2397.      If note.HasItem("Readers") Then
  2398.           If note.Readers(0) = "" Then note.RemoveItem("Readers")
  2399.      End If
  2400.      If note.HasItem("DocumentReaders") Then
  2401.           If note.DocumentReaders(0) = "" Then note.RemoveItem("DocumentReaders")
  2402.      End If
  2403.      
  2404. End Sub
  2405. ;tAH=tA
  2406. lIlI8I8I
  2407. (    H    D
  2408. ("(" +
  2409. "H#L,
  2410. H#($4-
  2411. h#(%t-
  2412. h$(*H/
  2413. %H%T0
  2414. %H&D1
  2415. &H'@3
  2416. 'H)85
  2417. H(H( 6
  2418. h(h(T6
  2419. (h),7
  2420. )H+l8
  2421. +h,4<
  2422. ,h. >
  2423. h-h-8?
  2424. 0(1PE
  2425. h1H3xF
  2426. 1H2lG
  2427. 2H4@I
  2428. 3(8xI
  2429. 3(4|J
  2430. (4h4pK
  2431. 4h5LL
  2432. 5H6(N
  2433. h6h7xO
  2434. 8\@xS
  2435. 9XB8T
  2436. (9(:lT
  2437. 9H:XU
  2438. H:h;|V
  2439. H;H;PX
  2440. ELHLH
  2441. 8=,><Y    
  2442. H@F@FXGXG
  2443. ?dADZ    
  2444. \@HB\Z    
  2445. E4D4D
  2446. HBxB([    
  2447. lJ\c=
  2448. [(=KT<-(C#
  2449. ?K(=,LC}4]#
  2450. ?,|C}t]#
  2451. [XBK<>P
  2452. [xBK<>P
  2453. [hBK<>P
  2454. BK<>P
  2455. BK<>P
  2456. BK<>P
  2457. BK<>P
  2458. Kl@,4D
  2459. K|@,4D
  2460. [,>+H=[(=$
  2461. [8B+tAG,>}
  2462. K,>QdD}(`
  2463. K,>QpDK\@-|D#
  2464. [8=+d<
  2465. >,8E}
  2466. >,8E}
  2467. >,xE}
  2468. @KdA-
  2469. @.|DJ
  2470. >,8E}
  2471. >,@F}
  2472. >,8E}
  2473. >,@F}
  2474. >,8E}
  2475. >,@F}
  2476. F[8=#
  2477. FK\@-|D#
  2478. >-XG#
  2479. K8B,|G[
  2480. K,>,pF
  2481. >K(=,LH}$e
  2482. ^(I4(
  2483. ^8IK8=-HI#
  2484. K,>Q$G}
  2485. fK\@-|D#}8f
  2486. K,>Q|I}
  2487. K(=-HI#
  2488. K\@-|D#}
  2489. K\@-|D#}`h
  2490. K,>,pF
  2491. F[8=#1
  2492. >K(=,LH}
  2493. >K(=-
  2494. >K(=,LH}
  2495. >,@F}
  2496. ^@J48
  2497. >,8E}
  2498. ^PJ6G
  2499. >,8E},j#8
  2500. >,@F},j#
  2501. >,8E}Tj#8
  2502. >,@F}Tj#
  2503. ArchiveServer
  2504. Lotus Notes
  2505. PURSAF
  2506. Debbie2 Branco
  2507. F)`b"
  2508. 0|wm-
  2509. PURSAF
  2510. TS3+v
  2511. $TITLE
  2512. $AssistType
  2513. $AssistLastRun
  2514. $AssistDocCount
  2515. $AssistFlags
  2516. $AssistInfo
  2517. $AssistQuery
  2518. $AssistAction
  2519. $AssistAction_Ex
  2520. $UpdatedBy
  2521. $Flags
  2522. 12/08/95 12:00:19 PM Lotus Notes updated -Default-
  2523. rchiveManager
  2524. 10/24/95 01:30:09 PM Lotus Notes updated [-Default-]
  2525. 10/24/95 01:29:58 PM Lotus Notes deleted Mussie Shore
  2526. 10/08/95 08:47:21 PM Mussie Shore/Iris updated Mussie Shore
  2527. 10/08/95 08:47:15 PM Mussie Shore/Iris added Mussie Shore
  2528. 09/29/95 12:02:25 PM Catherine Duffy/Iris updated [OtherDomainServers]
  2529. 09/29/95 12:02:13 PM Catherine Duffy/Iris updated [LocalDomainServers]
  2530. 09/29/95 12:01:58 PM Catherine Duffy/Iris updated LocalDomainServers
  2531. 09/26/95 05:11:49 PM Catherine Duffy/Iris deleted role ArchiveManager
  2532. 09/06/95 12:00:46 PM Lotus Notes updated role ArchiveManager
  2533. 08/09/95 10:14:24 AM Lotus Notes updated [-Default-]
  2534. 08/07/95 01:27:22 PM Lotus Notes updated [-Default-]
  2535. 08/07/95 01:27:12 PM Lotus Notes updated [OtherDomainServers]
  2536. 08/07/95 01:27:02 PM Lotus Notes updated [LocalDomainServers]
  2537. 08/07/95 01:26:56 PM Lotus Notes updated LocalDomainServers
  2538. 08/07/95 01:26:48 PM Lotus Notes added [OtherDomainServers]
  2539. 08/07/95 01:26:48 PM Lotus Notes deleted OtherDomainServers
  2540. 08/07/95 01:26:41 PM Lotus Notes added [LocalDomainServers]
  2541. 08/07/95 01:26:27 PM Lotus Notes added [-Default-]
  2542. 08/07/95 01:26:27 PM Lotus Notes added OtherDomainServers
  2543. 08/07/95 01:26:27 PM Lotus Notes added LocalDomainServers
  2544. ftftDDf
  2545. -Default-
  2546. LocalDomainServers
  2547. [-Default-]
  2548. [LocalDomainServers]
  2549. [OtherDomainServers]
  2550. ResponseResponse
  2551. Response To ResponseResponseToResponse
  2552. Interest ProfileInterestProfileInterest Profile
  2553. Add Selected Topic To Interest Profile
  2554. (ProfileInstructions)(ProfileInstructions)
  2555. Anonymous ResponseAnonymousResponse
  2556. Anonymous Response To ResponseAnonymousResponsetoResponse
  2557. (Archive Log)Archive LogArchiveLog
  2558. Archive ProfileArchiveProfileArchive Profile
  2559. chive ProfileArchiveProfileArchive Profile
  2560. eArchive Profile
  2561. /OU=NAHQ/O=Lotus
  2562. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2563. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2564. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2565. If you want to convert existing documents such that they are identified as threads, run this once against all documents.
  2566. (ProfileInstructions)(ProfileInstructions).
  2567. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2568. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2569. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2570. CN=Mussie Shore/O=Iris
  2571. CN=Mussie Shore/O=Iris
  2572. Anonymous ResponseAnonymousResponse
  2573. Anonymous Response To ResponseAnonymousResponsetoResponse
  2574. (Archive Log)Archive LogArchiveLog.
  2575. Archive ProfileArchiveProfileArchive Profile.
  2576. chive ProfileArchiveProfileArchive Profile.
  2577. ResponseResponse
  2578. Response To ResponseResponseToResponse
  2579. Interest ProfileInterestProfileInterest Profile
  2580. Add Selected Topic To Interest Profile
  2581. (ProfileInstructions)(ProfileInstructions)
  2582. Anonymous ResponseAnonymousResponse
  2583. Anonymous Response To ResponseAnonymousResponsetoResponse
  2584. (Archive Log)Archive LogArchiveLog
  2585. Archive ProfileArchiveProfileArchive Profile
  2586. chive ProfileArchiveProfileArchive Profile
  2587. eArchive Profile
  2588. as threads, run this once against all documents.
  2589. (ProfileInstructions)(ProfileInstructions).
  2590. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2591. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2592. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2593. Main TopicMainTopic
  2594. ResponseResponse
  2595. Response To ResponseResponseToResponse
  2596. Interest ProfileInterestProfileInterest Profile
  2597. Add Selected Topic To Interest Profile
  2598. (ProfileInstructions)(ProfileInstructions)
  2599. Main TopicMainTopic
  2600. Anonymous ResponseAnonymousResponse
  2601. Anonymous Response To ResponseAnonymousResponsetoResponse
  2602. (Archive Log)Archive LogArchiveLog
  2603. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2604. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2605. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2606. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2607. If you want to convert existing documents such that they are identified as threads, run this once against all documents.
  2608. (ProfileInstructions)(ProfileInstructions).
  2609. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2610. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2611. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2612. Main TopicMainTopic
  2613. CN=Mussie Shore/O=Iris
  2614. CN=Mussie Shore/O=Iris
  2615. Anonymous ResponseAnonymousResponse
  2616. Anonymous Response To ResponseAnonymousResponsetoResponse
  2617. (Archive Log)Archive LogArchiveLog.
  2618. ResponseResponse
  2619. Response To ResponseResponseToResponse
  2620. Interest ProfileInterestProfileInterest Profile
  2621. Add Selected Topic To Interest Profile
  2622. (ProfileInstructions)(ProfileInstructions)
  2623. Main TopicMainTopic
  2624. Anonymous ResponseAnonymousResponse
  2625. Anonymous Response To ResponseAnonymousResponsetoResponse
  2626. (Archive Log)Archive LogArchiveLog
  2627. $Modified
  2628.     1S2S3S
  2629. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$C1$
  2630.     0SL1S
  2631. $TITLE
  2632. Debbie Branco
  2633. By Author | AuthorView
  2634. Lotus Notes
  2635. ($Profiles)|($Profiles)
  2636. (Initialize ThreadIds)
  2637. Main Navigator
  2638. (Default View)|(Default View)
  2639. Send Newsletters
  2640. ($All)
  2641. By Category |By Category
  2642. Shared Response Header
  2643. Edit Interest Profile!
  2644. Mark/Unmark Document As Expired
  2645. Periodic Archive
  2646. My Favorites|My Favorites
  2647. _Archiving|Archiving
  2648. 18RS31E
  2649. readers
  2650. PRIVATE: 
  2651. ExpireDate
  2652. EXPIRED: 
  2653. Subject
  2654. useSubject
  2655.  (RE: 
  2656. useSubject
  2657.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E
  2658. $110$114$112$Conflict
  2659. $110$112
  2660. $112$110
  2661. $110Date
  2662. $110i
  2663. $114Topic
  2664. useSubject
  2665. ImmediateParentSubjecth
  2666. ImmediateParentSubject
  2667. OriginalSubject
  2668. OriginalSubject
  2669.     1S2S9S11RS35E16S18RS31E
  2670. readers
  2671. PRIVATE: 
  2672. ExpireDate
  2673. EXPIRED: 
  2674. Subject
  2675. useSubject
  2676.  (RE: 
  2677. useSubject
  2678.     0RR4S8RS8E9S14RS6E17RR18S19RR22S23S25RS8E28S29S31RS4E$112By,
  2679. ##########################################
  2680. _Archiving|Archiving
  2681. Lotus Notes
  2682. Archive Logs
  2683. Archive Profile
  2684.     6S9S11S
  2685. $75$74Subject$Conflict
  2686. Archive
  2687.     L1S5S1(
  2688. $75$74Subject
  2689. Archive Logs
  2690. Archive Profile
  2691.     6S9S11S$74
  2692. ResponseResponse.
  2693. Response To ResponseResponseToResponse.
  2694. Interest ProfileInterestProfileInterest Profile
  2695. Add Selected Topic To Interest Profile8
  2696. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2697. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2698. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2699. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2700. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2701. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2702. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2703. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2704. If you want to convert existing documents such that they are identified as threads, run this once against all documents.
  2705. (ProfileInstructions)(ProfileInstructions).
  2706. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2707. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2708. CN=Catherine Duffy/OU=NAHQ/O=Lotus
  2709. CN=Mussie Shore/O=Iris
  2710. CN=Mussie Shore/O=Iris
  2711. Anonymous ResponseAnonymousResponse
  2712. Anonymous Response To ResponseAnonymousResponsetoResponse
  2713. (Archive Log)Archive LogArchiveLog.
  2714. Archive ProfileArchiveProfileArchive Profile.
  2715. Main TopicMainTopic
  2716. Debbie BrancoLotus Notes
  2717. ResponseResponse
  2718. Response To ResponseResponseToResponse
  2719. Interest ProfileInterestProfileInterest Profile
  2720. Add Selected Topic To Interest Profile
  2721. (ProfileInstructions)(ProfileInstructions)
  2722. Anonymous ResponseAnonymousResponse
  2723. Anonymous Response To ResponseAnonymousResponsetoResponse
  2724. (Archive Log)Archive LogArchiveLog
  2725. Archive ProfileArchiveProfileArchive Profile
  2726. Main TopicMainTopic
  2727.