home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / notes / 50lbwic.exe / DATA1.CAB / NotesDataFilesRequiredDataFiles / cmcforms.ntf (.txt) < prev    next >
Encoding:
Lotus Notes Storage Facility  |  1999-01-29  |  2.4 MB  |  27,506 lines
  1. MIME Conversion Forms
  2. #1MimeConvForms
  3. xd~:}
  4. iLeCp
  5. }eD>C
  6. PCYCp
  7. CN=Lotus Notes Template Development/O=Lotus Notes
  8. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesW^I
  9. y###################################
  10. $Modified
  11.     1S2S3S
  12. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE
  13. $Flags
  14.     0SL1S4S5S3724
  15. $TITLE
  16. CN=Keith Hatfield/OU=CAM/O=Lotus#####
  17. CN=Barney Rubble/O=Iris AssociatesCN=Buzz Lightyear/O=Iris AssociatesCN=Ryan Jansen/O=IrisCN=Buzz Lightyear/O=Iris AssociatesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1#############################################
  18. CN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################
  19. CN=Ryan Jansen/O=Irise:\notefile\mail45.ntf
  20. CN=Ryan Jansen/O=IrisCN=Keith Hatfield/OU=CAM/O=Lotus
  21. ##########################################################
  22. CN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################
  23. CN=Keith Hatfield/OU=CAM/O=Lotus2
  24. 30719
  25. ##########################
  26. CN=Keith Hatfield/OU=CAM/O=Lotus
  27. CN=Keith Hatfield/OU=CAM/O=Lotus2
  28. 30719
  29. ##########################################################
  30. MemoMemo
  31. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
  32. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
  33. CN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP##################
  34. ReplywReplyReply
  35. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
  36. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendTo
  37. CN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#########################################
  38. PCYCp
  39. Reply With HistoryReply With HistoryReply
  40. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
  41. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendTo
  42. CN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP################
  43. To DoTask
  44. tmpNoActionBartmpOwnerHWTaskType$ExpandGroups$KeepPrivateDefaultMailSaveOptionsEncryptSignFromBodyCategoriesAlarmsOrgConfidentialBlindCopyToCopyToRepeatsStatusDueDateImportanceStartDateSubjectSendTo1
  45. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP####################
  46. $Subscription
  47. $HLFormulaCritFromNamesCritFromCritMeetResponseCritMeetInviteCritToDoCompleteCritToDoCritReturnReceiptCritHighPriorityCritSentDirectlyToMeCritSentOnlyToMe$QueryType$HLMonitorType$HLSubscription$HLDisabled$HLTitle$HLType$NoPurge$HLMLastChecked$HLMLastServer
  48. CN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP#########################################
  49. xd~:}
  50. (Calendar Profile)CalendarProfileFF
  51. TaskFollow$CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailPreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeCalendarTimeSlotDurationCalendarTimeSlotEndCalendarTimeSlotStartAlarmSoundTaskLeadSetAlarmTaskAnniversaryLeadSetAlarmAnniversaryEventLeadSetAlarmEventReminderLeadSetAlarmReminderAppointmentLeadSetAlarmAppointmentEnableAlarmsAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayUserCategoriesConflictAnniversaryConflictEventConflictMeetingExcludeFromSentExcludeFromAllAutoAnniversaryRepeatDefaultDurationCalEntryTypeSignatureSignature_1Signature_2SignatureOptionEnableSignatureDefaultLogoOffSetCharFormatRepliesSpellCheckOwnertmpAlarmSounds1
  52. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP##
  53. (Delivery Report)Delivery Report
  54. BodyDeliveryDateSubject
  55. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP##########
  56. (GroupCalendar)(GroupCalendar)
  57. GroupCalendarFSGroupCalendarCtl
  58. ExcludeFromViewSaveOptions1
  59. CN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP############################
  60. (GroupHelper)
  61. SelectedGroupMembersDescriptionGroupTypeGroupName
  62. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP####
  63. (NameHelper)
  64. IncludeX509tmpDomaintmpEmailAddresstmpEmailTypetmpSuffixtmpLastNametmpMiddleNametmpFirstNametmpTitletmpConflictAction$AlertGraphic
  65. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP##############################
  66. (NonDelivery Report)DeliveryReportNonDelivery Report
  67. BodySubjectCopyToSendToIntendedRecipient
  68. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#######
  69. (Notice)Notice
  70. StatusUpdateBodytmpNoActionBarForm1
  71. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP######
  72. (Out Of Office Profile)OutOfOfficeProfile
  73. dateFirstDayBackdateFirstDayOutIgnoreSubjectPhraseIgnoreSendIgnoreFromListExcludeInternetEmailSpecialMessageSpecialSubjectSpecialPeopleGeneralMessageDaysOutGeneralSubjectBookBusyTimeFirstDayBackFirstDayOutCurrentStatusDialogStatusTab_ViewIconExcludeFromViewSubjectFromSenderNotified
  74. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#################################################
  75. (ParticipantTable)ParticipantTable
  76. tmpSortTypetmpOriginalStatustmpOriginalRoletmpOriginalPeople1
  77. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#########################################
  78. (ReplyNotice)(ReplyNotice)
  79. StatusUpdateSaveOptionsMailOptionsForm1
  80. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#######
  81. O=Lotus Notes
  82. O=Lotus Notes
  83. PURSAFO
  84. |.:#U
  85. O=Lotus Notes
  86. CN=Lotus Notes Template Development/O=Lotus Notes
  87. PURSAFO
  88. =^S^ML
  89. $ACLDigest
  90. '++LotusScript Development Environment:2:5:(Options):0:66
  91. '++LotusScript Development Environment:2:5:(Forward):0:1
  92. Declare Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  93. Declare Sub Postdocumentdelete(Source As Notesuidatabase)
  94. '++LotusScript Development Environment:2:5:(Declarations):0:2
  95. '++LotusScript Development Environment:2:2:BindEvents:1:129
  96. Private Sub BindEvents(Byval Objectname_ As String)
  97.      Static Source As NOTESUIDATABASE
  98.      Set Source = Bind(Objectname_)
  99.      On Event Querydocumentdelete From Source Call Querydocumentdelete
  100.      On Event Postdocumentdelete From Source Call Postdocumentdelete
  101. End Sub
  102. '++LotusScript Development Environment:2:2:Querydocumentdelete:1:12
  103. Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  104.      
  105. End Sub
  106. '++LotusScript Development Environment:2:2:Postdocumentdelete:1:12
  107. Sub Postdocumentdelete(Source As Notesuidatabase)
  108.      
  109. End Sub
  110. O=Lotus Notes
  111. O=Lotus Notes
  112. PURSAFO
  113. |.:#U
  114. O=Lotus Notes
  115. CN=Lotus Notes Template Development/O=Lotus Notes
  116. PURSAFO
  117. tvSk1D
  118. $DBScript
  119. $DBScript_O
  120. $TITLE
  121. $Flags
  122. $PublicAccess
  123. Times New Roman
  124. Using MIME Conversion Forms
  125.  @  @@ @` @
  126. @@ @@@@@`@@
  127. `@ `@@`@``@
  128.     All uses of this database are limited to automated CD->MIME conversion for RC1 and adding customized forms, though possible, must be pre-tested by the customer in controlled manner.
  129. O=Lotus Notes
  130. O=Lotus Notes
  131. PURSAFO
  132. |.:#U
  133. O=Lotus Notes
  134. CN=Lotus Notes Template Development/O=Lotus Notes
  135. PURSAFO
  136. " };>
  137. $INFO
  138. $BODY
  139. Times New Roman
  140. About MIME Conversion Forms
  141.  @  @@ @` @
  142. @@ @@@@@`@@
  143. `@ `@@`@``@
  144.     The template is used to create a database for use during the rendering of Notes Mail Rich Text bodies to MIME content.  The database: cmcforms.nsf is created automatically the first time CD->MIME conversion takes place.
  145.     There is no Help available for this template.
  146. O=Lotus Notes
  147. O=Lotus Notes
  148. PURSAFO
  149. |.:#U
  150. O=Lotus Notes
  151. CN=Lotus Notes Template Development/O=Lotus Notes
  152. PURSAFO
  153. $INFO
  154. $BODY
  155. $HideMailHeader
  156. BGTableColor
  157. HeaderRegion
  158. BodyRegion
  159. New Memo
  160. Subject
  161. Subject
  162. Subject
  163.     4S6S12S13S14S15S17S21S23S25S26S28S
  164. wMemo
  165. returnreceipt
  166. wMemoOpen
  167. Query_string
  168. forward
  169. wMemoOpen
  170.     13R24S
  171. (Help)
  172. MAIL_F_MEMO
  173.     0S0E
  174. &Arial
  175. FComic Sans MS
  176. '++LotusScript Development Environment:2:5:(Options):0:74
  177. Option Public
  178. Option Explicit
  179. Use "CoreEmailClasses"
  180. '++LotusScript Development Environment:2:5:(Forward):0:1
  181. '++LotusScript Development Environment:2:5:(Declarations):0:10
  182. Dim cMemoObject As Variant
  183. Lotus ProductQ
  184. V0.0L
  185. J,|}8r
  186. J,|}8r
  187. ^,|J,|
  188. JT~KD~-
  189. JT~KD~-
  190. KD~-<
  191. ~}8rKD~-`
  192.  Memo'++LotusScript Development Environment:2:5:(Options):0:66
  193. '++LotusScript Development Environment:2:5:(Forward):0:1
  194. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  195. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  196. Declare Sub Postmodechange(Source As Notesuidocument)
  197. Declare Sub Postopen(Source As Notesuidocument)
  198. Declare Sub Postsave(Source As Notesuidocument)
  199. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  200. Declare Sub Postrecalc(Source As Notesuidocument)
  201. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  202. Declare Sub Click(Source As Button)
  203. '++LotusScript Development Environment:2:5:(Declarations):0:2
  204. '++LotusScript Development Environment:2:2:BindEvents:1:129
  205. Private Sub BindEvents(Byval Objectname_ As String)
  206.     Static Source As NOTESUIDOCUMENT
  207.     Set Source = Bind(Objectname_)
  208.     On Event Queryopen From Source Call Queryopen
  209.     On Event Querysave From Source Call Querysave
  210.     On Event Postmodechange From Source Call Postmodechange
  211.     On Event Postopen From Source Call Postopen
  212.     On Event Postsave From Source Call Postsave
  213.     On Event Queryclose From Source Call Queryclose
  214.     On Event Postrecalc From Source Call Postrecalc
  215.     On Event Querymodechange From Source Call Querymodechange
  216. End Sub
  217. '++LotusScript Development Environment:2:2:Queryopen:1:12
  218. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  219.     Set cMemoObject = New UIMemoDocument         
  220.     Call cMemoObject.Init(Source,Isnewdoc)  
  221. End Sub
  222. '++LotusScript Development Environment:2:2:Querysave:1:12
  223. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  224.     Call cMemoObject.QuerySave(Continue)
  225. End Sub
  226. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  227. Sub Postmodechange(Source As Notesuidocument)
  228.     Call cMemoObject.PostModeChange()    
  229. End Sub
  230. '++LotusScript Development Environment:2:2:Postopen:1:12
  231. Sub Postopen(Source As Notesuidocument)
  232.     Call cMemoObject.PostOpen(Source)    
  233. End Sub
  234. '++LotusScript Development Environment:2:2:Postsave:1:12
  235. Sub Postsave(Source As Notesuidocument)
  236.     Call cMemoObject.PostSave()
  237. End Sub
  238. '++LotusScript Development Environment:2:2:Queryclose:1:12
  239. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  240.     Call cMemoObject.QueryClose(Continue)
  241. End Sub
  242. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  243. Sub Postrecalc(Source As Notesuidocument)
  244. End Sub
  245. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  246. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  247.     Continue = cMemoObject.QueryModeChange(Source)
  248. End Sub
  249. '++LotusScript Development Environment:2:2:Click:1:8
  250. Sub Click(Source As Button)
  251.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  252.     Call cMemoObject.noteUIMemo.save()
  253.     Call cMemoObject.noteUIMemo.close()
  254. End Sub
  255. Lotus Product1
  256. KV0.0}
  257. Kl*,|$}0
  258. Kl*U|*
  259. Kl*,|$}`
  260. Kl*,|$}
  261.  -$&#,
  262.  -$&#,|$}p
  263.  -$&#,
  264.  -$&#,
  265.  -$&#,|$}p
  266.  -$&#,
  267.  -$&#,|$}
  268.     Always hidden: 
  269.     0S0E
  270. NamePreferencez
  271. NamePreference
  272.     0S0E
  273. LanguagePreference
  274. Principal
  275. CalendarProfile
  276. Owner
  277.     1S2S3S7S
  278. FromPerson memo is from.z
  279. AltFrom
  280.     10SAltFrom
  281. CalendarProfile
  282. DefaultLogo
  283. stdNotesLtr0
  284. CalendarProfile
  285. DefaultLogo
  286. StdNotesLtrGateway
  287.     4S13S24R25S29S32S34S
  288. Logoz
  289. StdNotesLtr41
  290. StdNotesLtr41
  291. Black
  292.     11S12S
  293. BGTableColor
  294. Principal
  295. Principal
  296. Principal
  297. NamePreference
  298. AltFrom
  299. PostedDateh
  300. $LangFrom
  301. LanguagePreferencet
  302. AltFrom
  303.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
  304.     0R1S2S8S
  305.     0R1S2S5S6S8S14S18S
  306.     0R1S2S5S6S8S14S18S
  307. SentBy
  308. X400FreeForm^
  309.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  310. SentBy
  311. FromDomain
  312. FromDomain
  313. FromDomain
  314. FromDomain
  315.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  316. FromName
  317. Principal
  318. Principal
  319. Principal
  320.     0RR1S2S10S11S16S18S
  321. FromStops
  322.     0RR1S2S6S
  323. FromName
  324. FromStops
  325. FromStops
  326. FromStops
  327.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  328. tmpDisplayFrom_Preview
  329.     0S0E
  330. Signz
  331.     0S0E
  332. Encrypt
  333. Encrypt
  334. $KeepPrivate
  335. $KeepPrivate
  336. $KeepPrivate
  337.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  338.     0S0E
  339. DefaultMailSaveOptionsz
  340. DefaultMailSaveOptions
  341. .,$,  , :
  342. Path_Info_DEcoded
  343. Path_Info
  344. .,$,  , :
  345. Query_String_Decoded
  346. Query_String
  347. (WebSpecificFields)
  348.     0S0E
  349.     From:
  350. tmpDisplayFrom_Preview
  351. tmpDisplayFrom_NoLogo
  352. tmpDisplayFrom_NoLogo
  353. NamesList
  354. NamePreference
  355. AltSendTo
  356. $NameLanguageTags
  357. LanguagePreferencet
  358. AltSendTo
  359. SendTo
  360.     11S12S15S16S20S
  361. ImplodedNamesList
  362. NamesList
  363. ImplodedNamesList
  364. ImplodedNamesList
  365. ImplodedNamesList
  366. tmpDisplaySendTo
  367.     Subject:
  368. Subject
  369. Subject
  370. Subject
  371.     0S0E
  372. TmpDisplaySubject_1
  373. CC_Content
  374. NamePreference
  375. AltCopyTo
  376. $NameLanguageTags
  377. LanguagePreferencet
  378. AltCopyTo
  379. CopyTo
  380.     7S8S9S11S12S16S
  381. BCC_Content
  382. DeliveredDate
  383. BlindCopyTo
  384.  (bcc: 
  385. BlindCopyTo
  386.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  387. NamesList
  388. CC_Content
  389. BCC_Content
  390.     0R9S10S
  391. ImplodedNamesList
  392. NamesList
  393. ImplodedNamesList
  394. ImplodedNamesList
  395. ImplodedNamesList
  396. tmpDisplayCC
  397. SendToz
  398. SIZE=80
  399. CopyToz
  400. SIZE=80
  401.     bcc:
  402. BlindCopyTo
  403. SIZE=80
  404.     Subject:
  405. Subject
  406. WebSubjectz
  407. SIZE=80
  408. tmpDisplayFrom_Preview
  409. DisplayFrom_Preview_1
  410. DisplayFrom_Preview_1
  411. $HideMailHeader
  412. Principal
  413. Principal
  414. Principal
  415. Principal
  416. Principal
  417.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  418.     Sent by: 
  419. FromDomain
  420. FromDomain
  421. FromDomain
  422. FromDomain
  423.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  424. FromName
  425.     0RR1S2S6S
  426. FromStops
  427.     0R1S2S6S
  428. FromName
  429. FromStops
  430. FromStops
  431. FromStops
  432.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy_1z
  433. tmpDisplaySentBy_1
  434. PostedDateh
  435. PostedDate
  436.     4S5S10S12S
  437. tmpDisplayDate_Preview_1Time/date memo was created or mailed.
  438. tmpDisplayDate_Preview_1
  439. ReplyDate
  440. ReplyTo
  441. $HideMailHeader
  442.     2S3S4S5S6S7S9S10S14S15R
  443. Please respond
  444. ReplyTo
  445. ReplyTo
  446. ReplyDate
  447. ReplyDate
  448.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo_1
  449. tmpDisplayReplyInfo_1
  450.     Attachment(s):
  451.     <font size=-1>
  452.     </font>
  453. $HideMailHeader
  454.     0S0E
  455. tmpDisplayFrom_Preview
  456. DisplayFrom
  457. DisplayFrom_Pre
  458.     Sent by: 
  459. FromDomain
  460. FromDomain
  461. FromDomain
  462. FromDomain
  463.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  464. FromName
  465.     0RR1S2S6S
  466. FromStops
  467.     0R1S2S6S
  468. FromName
  469. FromStops
  470. FromStops
  471. FromStops
  472.     0RR1S2S3S4S10S13S17S20SDisplaySent
  473. tmpDisplaySent
  474. PostedDateh
  475. PostedDate
  476.     4S5S10S12S
  477. DisplayDateTime/date memo was created or mailed.z
  478. tmpDisplayDate_Pre
  479. Please respond
  480. ReplyTo
  481. ReplyTo
  482. ReplyDate
  483. ReplyDate
  484.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  485. tmpDisplayReply
  486. $HideMailHeader
  487. IsMailStationery
  488.     4S5S
  489.     Stationery name:
  490. MAILSTATIONERYNAME
  491. -Untitled-
  492. MAILSTATIONERYNAME
  493.     0S0E
  494. StatNamez
  495. Statio
  496. $HideMailHeader
  497. StdNotesLtr16
  498.     7S9S10S11S13S15S
  499.     To:    
  500. NamePreference
  501. AltSendTo
  502. $NameLanguageTags
  503. LanguagePreferencet
  504. AltSendTo
  505. SendTo
  506.     5S6S9S10S14S
  507. EnterSendTo
  508.     0S0E
  509. EnterSendTo
  510.     cc:    
  511. NamePreference
  512. AltCopyTo
  513. $NameLanguageTags
  514. LanguagePreferencet
  515. AltCopyTo
  516. CopyTo
  517.     5S6S7S9S10S14S
  518. EnterCopyTo
  519.     0S0E
  520. EnterCopyTo
  521.         cc:    
  522. CC_Content
  523. NamePreference
  524. AltCopyTo
  525. $NameLanguageTags
  526. LanguagePreferencet
  527. AltCopyTo
  528. CopyTo
  529.     11S12S13S15S16S20S
  530. BCC_Content
  531. DeliveredDate
  532. BlindCopyTo
  533.  (bcc: 
  534. BlindCopyTo
  535.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  536. CC_Content
  537. BCC_Content
  538.     0R3S4S
  539. tmpEnterCopyTo
  540.     bcc:    
  541. NamePreference
  542. AltBlindCopyTo
  543. $NameLanguageTags
  544. LanguagePreferencet
  545. AltBlindCopyTo
  546. BlindCopyTo
  547.     5S6S7S9S10S14S
  548. EnterBlindCopyTo}
  549.     0S0E
  550. EnterBlindCopyTo
  551. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  552.     Subject:    
  553. SIZE=50
  554. Subject
  555. ISMAILSTATIONERYh
  556.     0S0E
  557. MailedThisPass
  558. MailedThisPass
  559. MailedThisPass
  560.     0R1RT4RTTT11RT
  561. ReplyDate
  562. ReplyDate
  563. ReplyDate
  564. Importanceh
  565. Importance
  566. Importance
  567. Importance(
  568. DeliveryReporth
  569. DeliveryReport
  570. DeliveryReport
  571. DeliveryReport(
  572. DeliveryPriorityh
  573. DeliveryPriority
  574. DeliveryPriority
  575. DeliveryPriority(
  576. UpdateProfileNote
  577. UpdateProfileNote
  578. UpdateProfileNote
  579. ReturnReceipt
  580. ReturnReceipt
  581. ReturnReceipt
  582. $KeepPrivateh
  583. $KeepPrivate
  584. $KeepPrivate(
  585. ExpireDateh
  586. ExpireDate
  587. ExpireDate(
  588. ReplyTo
  589. ReplyTo
  590. ReplyTo
  591. MimeFormath
  592. MimeFormat
  593. MimeFormat
  594. MimeFormat(
  595. SMTPEncodingh
  596. SMTPEncoding
  597. SMTPEncoding
  598. SMTPEncoding(
  599. MIMEMailCharset
  600. MIMEMailCharset
  601. MIMEMailCharset
  602. MIMEMailCharset
  603. $AutoSpellh
  604. $AutoSpell
  605. $AutoSpell(
  606. WebSubjecth
  607. WebSubject
  608. WebSubject(
  609. tmpSenderTagh
  610. tmpSenderTag
  611. tmpSenderTag
  612. tmpSenderTag(
  613.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  614. MailedThisPass
  615. MailedThisPass(
  616. EnterSendTo
  617. EnterSendTo
  618. EnterCopyTo
  619. EnterCopyTo
  620. EnterBlindCopyToh
  621. EnterBlindCopyTo(
  622.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  623. RemoveNoteItems
  624. $HideMailHeader
  625. Moods
  626. PostedDate
  627. SenderTag
  628. Moods
  629.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  630. Bodyz
  631. Lotus Product
  632. OBJECT
  633. Lotus Product
  634. Lotus Product
  635. OBJECT
  636. Lotus Product
  637. OBJECT
  638. Lotus ProductQ
  639. V0.0L
  640. J,|}8r
  641. J,|}8r
  642. ^,|J,|
  643. JT~KD~-
  644. JT~KD~-
  645. KD~-<
  646. ~}8rKD~-`
  647. Discard Changes
  648. MEMO_CANCEL
  649. 4194304
  650.     0S0E
  651. ActionInProgress
  652. MEMO_CANCEL
  653.     0R1S
  654. IsMailStationery
  655.     1S2S3S
  656. Save And Close
  657. MEMO_DRAFT
  658.     0S0E
  659. ActionInProgress
  660. MEMO_DRAFT
  661.     0R1S
  662. PostedDateh
  663. IsMailStationery
  664.     7S8S9S10S13S14S15S16S
  665. Save And File
  666. MEMO_DRAFT_FILE
  667.     0S0E
  668. ActionInProgress
  669. MEMO_DRAFT_FILE
  670.     0R1S
  671. PostedDateh
  672. IsMailStationery
  673.     7S8S9S10S13S14S15S16S
  674. Close
  675. MEMO_CANCEL
  676. 4194304
  677.     0S0E
  678. ActionInProgress
  679. MEMO_CANCEL
  680.     0R1S
  681. IsMailStationery
  682.     0S1S2S
  683. New Memo(
  684.     0S0E
  685. Reply\Reply
  686. Reply
  687.     0S0E
  688. Reply\Reply with History
  689. Reply with History
  690. This document is truncated.
  691.     4S8S10S13S
  692. Reply with history
  693. Reply\Reply to AllX
  694. MailStEd
  695.     0S0E
  696. Reply
  697. Reply\Reply to All with History
  698. MailStEd
  699.     0S0E
  700. Reply with History
  701. This document is truncated.
  702.     0R4S8S10S13S
  703. Reply with history
  704. Categori_ze
  705. _Edit Document
  706. Send Docu_ment
  707. Forward
  708.     0S0E
  709. ISMAILSTATIONERY
  710.     1S2S
  711. _Forward
  712. Delete 
  713.     0S0E
  714. _Move To Folder...
  715. _Remove From Folder
  716. MEMO_SEND
  717.     0S0E
  718. ActionInProgress
  719. MEMO_SEND
  720.     0R1S
  721. PostedDateh
  722. IsMailStationery
  723.     5S6S7S8S10S11S12S13S
  724. Send and File
  725. MEMO_SEND_FILE
  726.     0S0E
  727. ActionInProgress
  728. MEMO_SEND_FILE
  729.     0R1S
  730. PostedDateh
  731. IsMailStationery
  732.     5S6S7S8S12S13S
  733. MEMO_STATIONERYSAVE
  734.     0S0E
  735. ActionInProgress
  736. MEMO_STATIONERYSAVE
  737.     0R1S
  738. IsMailStationery
  739.     2S3S
  740. Save As Draft
  741. MEMO_DRAFT
  742.     0S0E
  743. ActionInProgress
  744. MEMO_DRAFT
  745.     0R1S
  746. PostedDateh
  747. IsMailStationery
  748.     5S6S7S8S10S11S12S13S
  749. Rename Stationery
  750. xxTitle
  751. Rename Stationery
  752.     0S0E
  753. xxPrompt
  754. Please enter new stationery name.
  755. MailStationeryName
  756. xxTitle
  757. xxPrompt
  758. MailStationeryName
  759.     0R1S
  760.     0RS>
  761. IsMailStationery
  762.     2S3S4S5S
  763. Address...T
  764. EnterSendTo
  765. EnterCopyTo
  766. EnterBlindCopyTo
  767.     0S0E
  768. PostedDateh
  769. IsMailStationery
  770.     5S6S7S8S10S11S12S13S
  771. Delivery Options...
  772. DeliveryOptions
  773. Delivery Options
  774.     0R4S10S
  775. PostedDateh
  776.     5S6S7S8S
  777. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  778. Use "CommonUI"
  779. '++LotusScript Development Environment:2:5:(Forward):0:1
  780. Declare Sub Click(Source As Button)
  781. '++LotusScript Development Environment:2:5:(Declarations):0:2
  782. '++LotusScript Development Environment:2:2:BindEvents:1:129
  783. Private Sub BindEvents(Byval Objectname_ As String)
  784. Static Source As BUTTON
  785. Set Source = Bind(Objectname_)
  786. On Event Click From Source Call Click
  787. End Sub
  788. '++LotusScript Development Environment:2:2:Click:1:12
  789. Sub Click(Source As Button)
  790.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  791. End Sub
  792. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  793. Use "CommonUI"
  794. '++LotusScript Development Environment:2:5:(Forward):0:1
  795. Declare Sub Click(Source As Button)
  796. '++LotusScript Development Environment:2:5:(Declarations):0:2
  797. '++LotusScript Development Environment:2:2:BindEvents:1:129
  798. Private Sub BindEvents(Byval Objectname_ As String)
  799. Static Source As BUTTON
  800. Set Source = Bind(Objectname_)
  801. On Event Click From Source Call Click
  802. End Sub
  803. '++LotusScript Development Environment:2:2:Click:1:12
  804. Sub Click(Source As Button)
  805.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  806. End Sub
  807. Copy into\New To Do '++LotusScript Development Environment:2:5:(Options):0:74
  808. Use "CommonUI"
  809. '++LotusScript Development Environment:2:5:(Forward):0:1
  810. Declare Sub Click(Source As Button)
  811. '++LotusScript Development Environment:2:5:(Declarations):0:2
  812. '++LotusScript Development Environment:2:2:BindEvents:1:129
  813. Private Sub BindEvents(Byval Objectname_ As String)
  814.     Static Source As BUTTON
  815.     Set Source = Bind(Objectname_)
  816.     On Event Click From Source Call Click
  817. End Sub
  818. '++LotusScript Development Environment:2:2:Click:1:12
  819. Sub Click(Source As Button)
  820.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  821. End Sub
  822. Tools\Preferences...2
  823. (Preferences)
  824.     0S0E
  825. Tools\Delivery Information...m
  826. xxTitle
  827. Delivery Information
  828.     0S0E
  829. DeliveryInfo
  830. xxTitle
  831.     0RR4S5S6S7S8S9S10S11S12S14S
  832. Tools\Out of Office...8
  833. (EditOfficeProfile)
  834.     0S0E
  835. Tools\Add Sender to Address Book<
  836. (AddSenderToAddressBook)
  837.     0S0E
  838. Tools\New Memo - Using StationeryC'++LotusScript Development Environment:2:5:(Options):0:66
  839. '++LotusScript Development Environment:2:5:(Forward):0:1
  840. Declare Sub Click(Source As Button)
  841. '++LotusScript Development Environment:2:5:(Declarations):0:2
  842. '++LotusScript Development Environment:2:2:BindEvents:1:129
  843. Private Sub BindEvents(Byval Objectname_ As String)
  844.     Static Source As BUTTON
  845.     Set Source = Bind(Objectname_)
  846.     On Event Click From Source Call Click
  847. End Sub
  848. '++LotusScript Development Environment:2:2:Click:1:12
  849. Sub Click(Source As Button)
  850.     Dim session As New notessession
  851.     Dim uiws As New notesuiworkspace
  852.     Dim collection As notesdocumentcollection
  853.     Dim noteUIEditDocument As notesuidocument
  854.     Dim database As NotesDatabase
  855.     Set noteCursorDoc = session.currentdatabase.createdocument
  856.     Set database = session.currentdatabase
  857.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  858.     Set noteCursorDoc = collection.getfirstdocument
  859.     If Not noteCursorDoc Is Nothing Then
  860.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  861.     End If
  862. End Sub
  863. Tools\Insert Signature...
  864. '++LotusScript Development Environment:2:5:(Options):0:66
  865. '++LotusScript Development Environment:2:5:(Forward):0:1
  866. Declare Sub Click(Source As Button)
  867. '++LotusScript Development Environment:2:5:(Declarations):0:2
  868. '++LotusScript Development Environment:2:2:BindEvents:1:129
  869. Private Sub BindEvents(Byval Objectname_ As String)
  870.     Static Source As BUTTON
  871.     Set Source = Bind(Objectname_)
  872.     On Event Click From Source Call Click
  873. End Sub
  874. '++LotusScript Development Environment:2:2:Click:1:12
  875. Sub Click(Source As Button)
  876.     Call cMemoObject.InsertSignature(False)
  877. End Sub
  878. PostedDateh
  879.     5S6S7S8S
  880. Tools\Save as Stationery... 
  881. MEMO_ISSTATIONERY
  882.     0S0E
  883. MEMO_STATIONERYSAVE
  884. ActionInProgress
  885. MEMO_STATIONERYSAVE
  886.     0R1S
  887. MergeFlag
  888. MEMO_ISSTATIONERY
  889.     0R1S
  890. PostedDateh
  891. IsMailStationery
  892.     5S6S7S8S10S11S12S13S
  893. New Memo(
  894.     0S0E
  895. Forwardc
  896.     1S10S14S16S23S
  897. path"
  898. /Memo?OpenForm&UNID="
  899. &forward"
  900. Send\Sendl`
  901. tmpSendOptions
  902. Send\Send and Save`
  903. tmpSendOptions
  904. Send\Save as Draft`
  905. tmpSendOptions
  906. Reply\Reply
  907. wReply
  908.     0S0E
  909. Reply\Reply to All
  910.     0R1S10S14S16S23S
  911. path"
  912. /wReply?OpenForm&
  913. &All"
  914.     0R3S4S5S6S7S8S15S17S18S
  915. Reply\Reply with HistoryV
  916.     1S10S14S16S23S
  917. Format
  918. CalendarProfile
  919. FormatReplies
  920.     0R6S
  921. Format
  922. path"
  923. /Reply+With+History?OpenForm&
  924. &Format
  925. Reply With History
  926.     0R9S10S11S12S13S14S21S23S24S
  927. Reply\Reply to All with HistoryR
  928.     1S10S14S16S23S
  929. Format
  930. CalendarProfile
  931. FormatReplies
  932.     0R6S
  933. Format
  934. path"
  935. /Reply+With+History?OpenForm&
  936. &Format&All
  937. path"
  938. /Reply+With+History?OpenForm&
  939. &All"
  940.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  941. Edit 
  942.     0S0E
  943. Delete
  944.     1S10S14S16S23S
  945.     0R5S
  946. path"
  947. /wDelete?OpenAgent&
  948. UNID"
  949. Inboxm
  950.     1S2S
  951. path"
  952. /MailFS?OpenFrameset"
  953.     0R3S4S5S6S
  954. Next 
  955.     0S0E
  956. Previous 
  957.     0S0E
  958. Discard Changes
  959. MEMO_CANCEL
  960. 4194304
  961.     0S0E
  962. ActionInProgress
  963. MEMO_CANCEL
  964.     0R1S
  965. IsMailStationery
  966.     1S2S3S
  967. Save And Close
  968. MEMO_DRAFT
  969.     0S0E
  970. ActionInProgress
  971. MEMO_DRAFT
  972.     0R1S
  973. PostedDateh
  974. IsMailStationery
  975.     7S8S9S10S13S14S15S16S
  976. act_save.GIF|act_CSSAVE?
  977. Save And File
  978. MEMO_DRAFT_FILE
  979.     0S0E
  980. ActionInProgress
  981. MEMO_DRAFT_FILE
  982.     0R1S
  983. PostedDateh
  984. IsMailStationery
  985.     7S8S9S10S13S14S15S16S
  986. act_FOLDER.GIF|act_FOLDER?
  987. Close
  988. MEMO_CANCEL
  989. 4194304
  990.     0S0E
  991. ActionInProgress
  992. MEMO_CANCEL
  993.     0R1S
  994. IsMailStationery
  995.     0S1S2S
  996. New Memo(
  997.     0S0E
  998. act_NEWMEMO.GIF|act_NEWMEMO?
  999. Reply\Reply
  1000. Reply
  1001.     0S0E
  1002. act_REPLY.GIF|act_REPLY?
  1003. Reply\Reply with History
  1004. Reply with History
  1005. This document is truncated.
  1006.     4S8S10S13S
  1007. Reply with history
  1008. act_REPLY.GIF|act_REPLY?
  1009. Reply\Reply to AllX
  1010. MailStEd
  1011.     0S0E
  1012. Reply
  1013. act_REPLY.GIF|act_REPLY?
  1014. Reply\Reply to All with History
  1015. MailStEd
  1016.     0S0E
  1017. Reply with History
  1018. This document is truncated.
  1019.     0R4S8S10S13S
  1020. Reply with history
  1021. act_REPLY.GIF|act_REPLY?
  1022. Categori_ze
  1023. _Edit Document
  1024. Send Docu_ment
  1025. Forwardl 
  1026.     0S0E
  1027. ISMAILSTATIONERY
  1028.     1S2S
  1029. act_FORWARD.GIF|act_FORWARD?
  1030. _Forward
  1031. Delete 
  1032.     0S0E
  1033. act_DELETE.GIF|act_DELETE?
  1034. _Move To Folder...
  1035. _Remove From Folder
  1036. MEMO_SEND
  1037.     0S0E
  1038. ActionInProgress
  1039. MEMO_SEND
  1040.     0R1S
  1041. PostedDateh
  1042. IsMailStationery
  1043.     5S6S7S8S10S11S12S13S
  1044. act_SEND.GIF|act_SEND?
  1045. Send and File
  1046. MEMO_SEND_FILE
  1047.     0S0E
  1048. ActionInProgress
  1049. MEMO_SEND_FILE
  1050.     0R1S
  1051. PostedDateh
  1052. IsMailStationery
  1053.     5S6S7S8S12S13S
  1054. act_SEND.GIF|act_SEND?
  1055. MEMO_STATIONERYSAVE
  1056.     0S0E
  1057. ActionInProgress
  1058. MEMO_STATIONERYSAVE
  1059.     0R1S
  1060. IsMailStationery
  1061.     2S3S
  1062. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  1063. Save As Draft
  1064. MEMO_DRAFT
  1065.     0S0E
  1066. ActionInProgress
  1067. MEMO_DRAFT
  1068.     0R1S
  1069. PostedDateh
  1070. IsMailStationery
  1071.     5S6S7S8S10S11S12S13S
  1072. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  1073. Rename Stationery
  1074. xxTitle
  1075. Rename Stationery
  1076.     0S0E
  1077. xxPrompt
  1078. Please enter new stationery name.
  1079. MailStationeryName
  1080. xxTitle
  1081. xxPrompt
  1082. MailStationeryName
  1083.     0R1S
  1084.     0RS>
  1085. IsMailStationery
  1086.     2S3S4S5S
  1087. act_RENAME.GIF|act_RENAME?
  1088. Address...T
  1089. EnterSendTo
  1090. EnterCopyTo
  1091. EnterBlindCopyTo
  1092.     0S0E
  1093. PostedDateh
  1094. IsMailStationery
  1095.     5S6S7S8S10S11S12S13S
  1096. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  1097. Delivery Options...
  1098. DeliveryOptions
  1099. Delivery Options
  1100.     0R4S10S
  1101. PostedDateh
  1102.     5S6S7S8S
  1103. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  1104. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  1105. Use "CommonUI"
  1106. '++LotusScript Development Environment:2:5:(Forward):0:1
  1107. Declare Sub Click(Source As Button)
  1108. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1109. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1110. Private Sub BindEvents(Byval Objectname_ As String)
  1111. Static Source As BUTTON
  1112. Set Source = Bind(Objectname_)
  1113. On Event Click From Source Call Click
  1114. End Sub
  1115. '++LotusScript Development Environment:2:2:Click:1:12
  1116. Sub Click(Source As Button)
  1117.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  1118. End Sub
  1119. act_COPYINTO.GIF|act_COPYINTO?
  1120. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  1121. Use "CommonUI"
  1122. '++LotusScript Development Environment:2:5:(Forward):0:1
  1123. Declare Sub Click(Source As Button)
  1124. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1125. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1126. Private Sub BindEvents(Byval Objectname_ As String)
  1127. Static Source As BUTTON
  1128. Set Source = Bind(Objectname_)
  1129. On Event Click From Source Call Click
  1130. End Sub
  1131. '++LotusScript Development Environment:2:2:Click:1:12
  1132. Sub Click(Source As Button)
  1133.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  1134. End Sub
  1135. act_COPYINTO.GIF|act_COPYINTO?
  1136. Copy into\New To Do
  1137. '++LotusScript Development Environment:2:5:(Options):0:74
  1138. Use "CommonUI"
  1139. '++LotusScript Development Environment:2:5:(Forward):0:1
  1140. Declare Sub Click(Source As Button)
  1141. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1142. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1143. Private Sub BindEvents(Byval Objectname_ As String)
  1144.     Static Source As BUTTON
  1145.     Set Source = Bind(Objectname_)
  1146.     On Event Click From Source Call Click
  1147. End Sub
  1148. '++LotusScript Development Environment:2:2:Click:1:12
  1149. Sub Click(Source As Button)
  1150.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  1151. End Sub
  1152. act_COPYINTO.GIF|act_COPYINTO?
  1153. Tools\Preferences...2
  1154. (Preferences)
  1155.     0S0E
  1156. act_TOOLS.GIF|act_TOOLS?
  1157. Tools\Delivery Information...
  1158. xxTitle
  1159. Delivery Information
  1160.     0S0E
  1161. DeliveryInfo
  1162. xxTitle
  1163.     0RR4S5S6S7S8S9S10S11S12S14S
  1164. act_TOOLS.GIF|act_TOOLS?
  1165. Tools\Out of Office...8
  1166. (EditOfficeProfile)
  1167.     0S0E
  1168. act_TOOLS.GIF|act_TOOLS?
  1169. Tools\Add Sender to Address Book<
  1170. (AddSenderToAddressBook)
  1171.     0S0E
  1172. act_TOOLS.GIF|act_TOOLS?
  1173. Tools\New Memo - Using Stationery
  1174. '++LotusScript Development Environment:2:5:(Options):0:66
  1175. '++LotusScript Development Environment:2:5:(Forward):0:1
  1176. Declare Sub Click(Source As Button)
  1177. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1178. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1179. Private Sub BindEvents(Byval Objectname_ As String)
  1180.     Static Source As BUTTON
  1181.     Set Source = Bind(Objectname_)
  1182.     On Event Click From Source Call Click
  1183. End Sub
  1184. '++LotusScript Development Environment:2:2:Click:1:12
  1185. Sub Click(Source As Button)
  1186.     Dim session As New notessession
  1187.     Dim uiws As New notesuiworkspace
  1188.     Dim collection As notesdocumentcollection
  1189.     Dim noteUIEditDocument As notesuidocument
  1190.     Dim database As NotesDatabase
  1191.     Set noteCursorDoc = session.currentdatabase.createdocument
  1192.     Set database = session.currentdatabase
  1193.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  1194.     Set noteCursorDoc = collection.getfirstdocument
  1195.     If Not noteCursorDoc Is Nothing Then
  1196.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  1197.     End If
  1198. End Sub
  1199. act_TOOLS.GIF|act_TOOLS?
  1200. Tools\Insert Signature...a'++LotusScript Development Environment:2:5:(Options):0:66
  1201. '++LotusScript Development Environment:2:5:(Forward):0:1
  1202. Declare Sub Click(Source As Button)
  1203. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1204. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1205. Private Sub BindEvents(Byval Objectname_ As String)
  1206.     Static Source As BUTTON
  1207.     Set Source = Bind(Objectname_)
  1208.     On Event Click From Source Call Click
  1209. End Sub
  1210. '++LotusScript Development Environment:2:2:Click:1:12
  1211. Sub Click(Source As Button)
  1212.     Call cMemoObject.InsertSignature(False)
  1213. End Sub
  1214. PostedDateh
  1215.     5S6S7S8S
  1216. act_TOOLS.GIF|act_TOOLS?
  1217. Tools\Save as Stationery...
  1218. MEMO_ISSTATIONERY
  1219.     0S0E
  1220. MEMO_STATIONERYSAVE
  1221. ActionInProgress
  1222. MEMO_STATIONERYSAVE
  1223.     0R1S
  1224. MergeFlag
  1225. MEMO_ISSTATIONERY
  1226.     0R1S
  1227. PostedDateh
  1228. IsMailStationery
  1229.     5S6S7S8S10S11S12S13S
  1230. act_TOOLS.GIF|act_TOOLS?
  1231. New Memo(
  1232.     0S0E
  1233. act_NEW.GIF|act_NEW?
  1234. Forward
  1235.     1S10S14S16S23S
  1236. path"
  1237. /Memo?OpenForm&UNID="
  1238. &forward"
  1239. act_FORWARD.GIF|act_FORWARD?
  1240. Send\SendE`
  1241. tmpSendOptions
  1242. act_SEND.GIF|act_SEND?
  1243. Send\Send and Save`
  1244. tmpSendOptions
  1245. act_SEND.GIF|act_SEND?
  1246. Send\Save as Draft`
  1247. tmpSendOptions
  1248. act_SEND.GIF|act_SEND?
  1249. Reply\Replys*
  1250. wReply
  1251.     0S0E
  1252. act_REPLY.GIF|act_REPLY?
  1253. Reply\Reply to All
  1254.     0R1S10S14S16S23S
  1255. path"
  1256. /wReply?OpenForm&
  1257. &All"
  1258.     0R3S4S5S6S7S8S15S17S18S
  1259. Reply\Reply with HistoryV
  1260.     1S10S14S16S23S
  1261. Format
  1262. CalendarProfile
  1263. FormatReplies
  1264.     0R6S
  1265. Format
  1266. path"
  1267. /Reply+With+History?OpenForm&
  1268. &Format
  1269. Reply With History
  1270.     0R9S10S11S12S13S14S21S23S24S
  1271. act_REPLY.GIF|act_REPLY?
  1272. Reply\Reply to All with History
  1273.     1S10S14S16S23S
  1274. Format
  1275. CalendarProfile
  1276. FormatReplies
  1277.     0R6S
  1278. Format
  1279. path"
  1280. /Reply+With+History?OpenForm&
  1281. &Format&All
  1282. path"
  1283. /Reply+With+History?OpenForm&
  1284. &All"
  1285.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  1286. Address...
  1287. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  1288. var pathname = (window.location.pathname);
  1289. if (navigator.appName =='Netscape') {
  1290. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  1291.     } else {
  1292. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  1293. Delivery Options...
  1294. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  1295. var pathname = (window.location.pathname);
  1296. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  1297. Edit 
  1298.     0S0E
  1299. act_EDIT.GIF|act_EDIT?
  1300. Delete
  1301.     1S10S14S16S23S
  1302.     0R5S
  1303. path"
  1304. /wDelete?OpenAgent&
  1305. UNID"
  1306. act_DELETE.GIF|act_DELETE?
  1307. Inbox
  1308.     1S2S
  1309. path"
  1310. /MailFS?OpenFrameset"
  1311.     0R3S4S5S6S
  1312. act_NEWMAIL.GIF|act_NEWMAIL?
  1313. Copy Into\New Task
  1314. act_COPYINTO.GIF|act_COPYINTO?
  1315. var pathname = window.location.pathname
  1316. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  1317. window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
  1318. Copy Into\New Calendar Entry
  1319. act_COPYINTO.GIF|act_COPYINTO?
  1320. alert('Feature in Progress')
  1321. Next 
  1322.     0S0E
  1323. Previous 
  1324.     0S0E
  1325. O=Lotus Notes
  1326. O=Lotus Notes
  1327. PURSAFO
  1328. |.:#U
  1329. O=Lotus Notes
  1330. CN=Lotus Notes Template Development/O=Lotus Notes
  1331. PURSAFO
  1332. ,*~qf
  1333. $Background
  1334. $HeaderArea
  1335. $RegionFrameset
  1336. $INFO
  1337. $SubForms
  1338. $WINDOWTITLE
  1339. $WEBQuerySave
  1340. $WEBQueryOpen
  1341. $AppHelpFormula
  1342. $WebFlags
  1343. $Script
  1344. $$Script_O
  1345. $$ScriptName
  1346. $$FormScript
  1347. $$$FormScript_O
  1348. $BODY
  1349. $SCRIPTOBJ_24
  1350. $SCRIPTOBJ_25
  1351. $SCRIPTOBJ_26
  1352. $SCRIPTOBJ_31
  1353. $SCRIPTOBJ_32
  1354. $ACTIONS
  1355. $V5ACTIONS
  1356. $HideMailHeader
  1357. BGTableColor
  1358. HeaderRegion
  1359. BodyRegion
  1360. New Memo
  1361. Subject
  1362. Subject
  1363. Subject
  1364.     1RT4RTT6RT7RTT12S13S14S15S17RTTT18RTTTT21RTTTTT23RTTTTS24RTTT25RTTT26S28RTT32RTT33RT
  1365. wMemo
  1366. returnreceipt
  1367. wMemoOpen
  1368. Query_string
  1369. forward
  1370. wMemoOpen
  1371. Query_string
  1372. wMemoOpen
  1373.     13R24S
  1374. (Help)
  1375. MAIL_F_MEMO
  1376.     0S0E
  1377. &Arial
  1378. FComic Sans MS
  1379. '++LotusScript Development Environment:2:5:(Options):0:74
  1380. Option Public
  1381. Option Explicit
  1382. Use "CoreEmailClasses"
  1383. '++LotusScript Development Environment:2:5:(Forward):0:1
  1384. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1385. Dim cMemoObject As Variant
  1386. Lotus Product
  1387. [V0.0 -L
  1388.  Reply'++LotusScript Development Environment:2:5:(Options):0:66
  1389. '++LotusScript Development Environment:2:5:(Forward):0:1
  1390. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1391. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1392. Declare Sub Postmodechange(Source As Notesuidocument)
  1393. Declare Sub Postopen(Source As Notesuidocument)
  1394. Declare Sub Postsave(Source As Notesuidocument)
  1395. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1396. Declare Sub Postrecalc(Source As Notesuidocument)
  1397. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  1398. Declare Sub Click(Source As Button)
  1399. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1400. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1401. Private Sub BindEvents(Byval Objectname_ As String)
  1402.     Static Source As NOTESUIDOCUMENT
  1403.     Set Source = Bind(Objectname_)
  1404.     On Event Queryopen From Source Call Queryopen
  1405.     On Event Querysave From Source Call Querysave
  1406.     On Event Postmodechange From Source Call Postmodechange
  1407.     On Event Postopen From Source Call Postopen
  1408.     On Event Postsave From Source Call Postsave
  1409.     On Event Queryclose From Source Call Queryclose
  1410.     On Event Postrecalc From Source Call Postrecalc
  1411.     On Event Querymodechange From Source Call Querymodechange
  1412. End Sub
  1413. '++LotusScript Development Environment:2:2:Queryopen:1:12
  1414. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  1415.     Set cMemoObject = New UIMemoDocument         
  1416.     Call cMemoObject.Init(Source,Isnewdoc)  
  1417. End Sub
  1418. '++LotusScript Development Environment:2:2:Querysave:1:12
  1419. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  1420.     Call cMemoObject.QuerySave(Continue)
  1421. End Sub
  1422. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  1423. Sub Postmodechange(Source As Notesuidocument)
  1424.     Call cMemoObject.PostModeChange()    
  1425. End Sub
  1426. '++LotusScript Development Environment:2:2:Postopen:1:12
  1427. Sub Postopen(Source As Notesuidocument)
  1428.     Call cMemoObject.PostOpen(Source)    
  1429. End Sub
  1430. '++LotusScript Development Environment:2:2:Postsave:1:12
  1431. Sub Postsave(Source As Notesuidocument)
  1432.     Call cMemoObject.PostSave()
  1433. End Sub
  1434. '++LotusScript Development Environment:2:2:Queryclose:1:12
  1435. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  1436.     Call cMemoObject.QueryClose(Continue)
  1437. End Sub
  1438. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  1439. Sub Postrecalc(Source As Notesuidocument)
  1440. End Sub
  1441. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  1442. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  1443.     Continue = cMemoObject.QueryModeChange(Source)
  1444. End Sub
  1445. '++LotusScript Development Environment:2:2:Click:1:8
  1446. Sub Click(Source As Button)
  1447.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  1448.     Call cMemoObject.noteUIMemo.save()
  1449.     Call cMemoObject.noteUIMemo.close()
  1450. End Sub
  1451. Lotus Product
  1452. yV0.0~
  1453.  ,,#}H
  1454.  -,$#K
  1455.  ,H!}t
  1456.  ,H!}l
  1457.  ,,#}l
  1458.  ,,#}
  1459.     Always hidden:  
  1460.     0S0E
  1461. NamePreferencez
  1462. NamePreference
  1463.     0S0E
  1464. LanguagePreference
  1465. Notes
  1466. PostedDateh
  1467. SendTo
  1468. CopyTo
  1469. InheritedSendTo
  1470. SendTo
  1471. CopyTo
  1472.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
  1473. InheritedSendTo
  1474. InheritedSendTo
  1475. Notes
  1476. PostedDateh
  1477. NamePreference
  1478. AltSendTo
  1479. AltSendTo
  1480. AltCopyTo
  1481. SendTo
  1482. CopyTo
  1483. InheritedAltSendTo
  1484. SendTo
  1485. CopyTo
  1486.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53R
  1487. $AltNameLanguageTags
  1488. $AltNameLanguageTags
  1489.     0RR1S
  1490. $StorageTo
  1491. $StorageFrom
  1492.     0RR1S
  1493. $StorageTo
  1494. $StorageTo
  1495.     0RR1S
  1496. $StorageCc
  1497. $StorageCc
  1498.     0R1S
  1499. $StorageBcc
  1500. $StorageBcc
  1501.     0R1S
  1502. InetSendTo
  1503. InetSendTo
  1504.     0RR1S
  1505. InetCopyTo
  1506. InetCopyTo
  1507.     0R1S
  1508. InetBlindCopyTo
  1509. InetBlindCopyTo
  1510.     0R1S
  1511. InheritedAltSendToz
  1512. InheritedSendTo_1
  1513. Notes
  1514. PostedDateh
  1515. ReplyTo
  1516. ReplyTo
  1517.     1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
  1518. InheritedReplyToz
  1519. InheritedReplyTo
  1520. Principal
  1521. Principal
  1522. Principal
  1523. Fromh
  1524.     1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
  1525. FromDomainh
  1526. FromDomain"
  1527.     0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
  1528. InheritedFrom
  1529. AltPrincipalh
  1530. AltPrincipal
  1531. AltPrincipal
  1532. AltFrom
  1533. AltFrom
  1534.     1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
  1535. FromDomainh
  1536. FromDomain"
  1537.     0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
  1538. InheritedFrom_1
  1539. Notes
  1540. PostedDateh
  1541. FromDomain
  1542. InheritedFromDomain
  1543. FromDomain
  1544.     9S10S12S13SInheritedFromDomain
  1545. InheritedFromDomain
  1546. Principal
  1547. CalendarProfile
  1548. Owner
  1549.     1S2S3S7S
  1550. FromPerson memo is from.z
  1551. AltFrom
  1552.     10SAltFrom
  1553. CalendarProfile
  1554. DefaultLogo
  1555. stdNotesLtr0
  1556. CalendarProfile
  1557. DefaultLogo
  1558. StdNotesLtrGateway
  1559.     4S13S24R25S29S32S34S
  1560. Logoz
  1561. StdNotesLtr41
  1562. StdNotesLtr41
  1563. Black
  1564.     11S12S
  1565. BGTableColor
  1566. Principal
  1567. Principal
  1568. Principal
  1569. NamePreference
  1570. AltFrom
  1571. PostedDateh
  1572. $LangFrom
  1573. LanguagePreferencet
  1574. AltFrom
  1575.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
  1576.     0R1S2S8S
  1577.     0R1S2S5S6S8S14S18S
  1578.     0R1S2S5S6S8S14S18S
  1579. SentBy
  1580. X400FreeForm^
  1581.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  1582. SentBy
  1583. FromDomain
  1584. FromDomain
  1585. FromDomain
  1586. FromDomain
  1587.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  1588. FromName
  1589. Principal
  1590. Principal
  1591. Principal
  1592.     0RR1S2S10S11S16S18S
  1593. FromStops
  1594.     0RR1S2S6S
  1595. FromName
  1596. FromStops
  1597. FromStops
  1598. FromStops
  1599.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  1600. tmpDisplayFrom_Preview
  1601.     0S0E
  1602. Signz
  1603.     0S0E
  1604. Encrypt
  1605. Encrypt
  1606. $KeepPrivate
  1607. $KeepPrivate
  1608. $KeepPrivate
  1609.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  1610.     0S0E
  1611. DefaultMailSaveOptionsz
  1612. DefaultMailSaveOptions
  1613. .,$,  , :
  1614. Path_Info_DEcoded
  1615. Path_Info
  1616. .,$,  , :
  1617. Query_String_Decoded
  1618. Query_String
  1619. (WebSpecificFields)
  1620.     0S0E
  1621.     From:
  1622. tmpDisplayFrom_Preview
  1623. tmpDisplayFrom_NoLogo
  1624. tmpDisplayFrom_NoLogo
  1625. NamesList
  1626. NamePreference
  1627. AltSendTo
  1628. $NameLanguageTags
  1629. LanguagePreferencet
  1630. AltSendTo
  1631. SendTo
  1632.     11S12S15S16S20S
  1633. ImplodedNamesList
  1634. NamesList
  1635. ImplodedNamesList
  1636. ImplodedNamesList
  1637. ImplodedNamesList
  1638. tmpDisplaySendTo
  1639.     Subject:
  1640. Subject
  1641. Subject
  1642. Subject
  1643.     0S0E
  1644. TmpDisplaySubject_1
  1645. CC_Content
  1646. NamePreference
  1647. AltCopyTo
  1648. $NameLanguageTags
  1649. LanguagePreferencet
  1650. AltCopyTo
  1651. CopyTo
  1652.     7S8S9S11S12S16S
  1653. BCC_Content
  1654. DeliveredDate
  1655. BlindCopyTo
  1656.  (bcc: 
  1657. BlindCopyTo
  1658.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  1659. NamesList
  1660. CC_Content
  1661. BCC_Content
  1662.     0R9S10S
  1663. ImplodedNamesList
  1664. NamesList
  1665. ImplodedNamesList
  1666. ImplodedNamesList
  1667. ImplodedNamesList
  1668. tmpDisplayCC
  1669. MailAddress
  1670. InheritedReplyTo
  1671. InheritedReplyTo
  1672. InheritedFrom
  1673. NamePreference
  1674. AltSendTo
  1675. AltSendTo
  1676. SendTo
  1677.     1S2S22S2E23S24S25S
  1678. MailAddress
  1679. SendToz
  1680. SIZE=80
  1681. CopyTo
  1682.     0S0E
  1683. CopyToz
  1684. SIZE=80
  1685.     bcc:
  1686. BlindCopyTo
  1687.     0S0E
  1688. BlindCopyTo
  1689. SIZE=80
  1690.     Subject:
  1691. Subject
  1692. Topic
  1693. Subject
  1694.     1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
  1695. Subj"
  1696.     0R1RT10S12S16S17S19RTT21RT22S23S24RT
  1697. WebSubjectz
  1698. SIZE=80
  1699. tmpDisplayFrom_Preview
  1700. DisplayFrom_Preview_1
  1701. DisplayFrom_Preview_1
  1702. $HideMailHeader
  1703. Principal
  1704. Principal
  1705. Principal
  1706. Principal
  1707. Principal
  1708.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  1709.     Sent by: 
  1710. FromDomain
  1711. FromDomain
  1712. FromDomain
  1713. FromDomain
  1714.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  1715. FromName
  1716.     0RR1S2S6S
  1717. FromStops
  1718.     0R1S2S6S
  1719. FromName
  1720. FromStops
  1721. FromStops
  1722. FromStops
  1723.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy_1z
  1724. tmpDisplaySentBy_1
  1725. PostedDateh
  1726. PostedDate
  1727.     4S5S10S12S
  1728. tmpDisplayDate_Preview_1Time/date memo was created or mailed.
  1729. tmpDisplayDate_Preview_1
  1730. ReplyDate
  1731. ReplyTo
  1732. $HideMailHeader
  1733.     2S3S4S5S6S7S9S10S14S15R
  1734. Please respond
  1735. ReplyTo
  1736. ReplyTo
  1737. ReplyDate
  1738. ReplyDate
  1739.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo_1
  1740. tmpDisplayReplyInfo_1
  1741.     Attachment(s):
  1742.     <font size=-1>
  1743.     </font>
  1744. $HideMailHeader
  1745.     0S0E
  1746. tmpDisplayFrom_Preview
  1747. DisplayFrom
  1748. DisplayFrom_Pre
  1749.     Sent by: 
  1750. FromDomain
  1751. FromDomain
  1752. FromDomain
  1753. FromDomain
  1754.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  1755. FromName
  1756.     0RR1S2S6S
  1757. FromStops
  1758.     0R1S2S6S
  1759. FromName
  1760. FromStops
  1761. FromStops
  1762. FromStops
  1763.     0RR1S2S3S4S10S13S17S20SDisplaySent
  1764. tmpDisplaySent
  1765. PostedDateh
  1766. PostedDate
  1767.     4S5S10S12S
  1768. DisplayDateTime/date memo was created or mailed.z
  1769. tmpDisplayDate_Pre
  1770. Please respond
  1771. ReplyTo
  1772. ReplyTo
  1773. ReplyDate
  1774. ReplyDate
  1775.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  1776. tmpDisplayReply
  1777. $HideMailHeader
  1778. StdNotesLtr16
  1779.     7S9S10S11S13S15S
  1780.         To:    
  1781. MailAddress
  1782. InheritedReplyTo
  1783. InheritedReplyTo
  1784. NamePreference
  1785. InheritedAltFrom
  1786. InheritedAltFrom
  1787. InheritedFrom
  1788. NamePreference
  1789. AltSendTo
  1790. $NameLanguageTags
  1791. LanguagePreferencet
  1792. AltSendTo
  1793. SendTo
  1794.     1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
  1795. MailAddress
  1796. EnterSendTo
  1797.     0S0E
  1798. EnterSendTo
  1799.     cc:    
  1800. NamePreference
  1801. AltCopyTo
  1802. $NameLanguageTags
  1803. LanguagePreferencet
  1804. AltCopyTo
  1805. CopyTo
  1806.     1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
  1807. EnterCopyTo
  1808.     0S0E
  1809. EnterCopyTo
  1810.         cc:    
  1811. CC_Content
  1812. NamePreference
  1813. AltCopyTo
  1814. $NameLanguageTags
  1815. LanguagePreferencet
  1816. AltCopyTo
  1817. CopyTo
  1818.     2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
  1819. BCC_Content
  1820. DeliveredDate
  1821. BlindCopyTo
  1822.  (bcc: 
  1823. BlindCopyTo
  1824.     0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
  1825. CC_Content
  1826. BCC_Content
  1827.     0RR3S4StmpEnterCopyTo
  1828.     bcc:    
  1829. NamePreference
  1830. AltBlindCopyTo
  1831. $NameLanguageTags
  1832. LanguagePreferencet
  1833. AltBlindCopyTo
  1834. BlindCopyTo
  1835.     1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
  1836. EnterBlindCopyTo}
  1837.     0S0E
  1838. EnterBlindCopyTo
  1839. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  1840.     Subject:    
  1841. SIZE=50
  1842. Subject
  1843. Topic
  1844. Subject
  1845.     1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
  1846. Subj"
  1847.     0R1RT10S12S16S17S19RTT21RT22S23S24RT
  1848. Subject
  1849.         Subject:    
  1850. Subject
  1851. tmpDisplaySubject
  1852. $HideMailHeader
  1853. tmpDisplayLink
  1854. ISMAILSTATIONERYh
  1855.     0S0E
  1856. MailedThisPass
  1857. MailedThisPass
  1858. MailedThisPass
  1859.     0R1RT4RTTT11RT
  1860. ReplyDate
  1861. ReplyDate
  1862. ReplyDate
  1863. Importanceh
  1864. Importance
  1865. Importance
  1866. Importance(
  1867. DeliveryReporth
  1868. DeliveryReport
  1869. DeliveryReport
  1870. DeliveryReport(
  1871. DeliveryPriorityh
  1872. DeliveryPriority
  1873. DeliveryPriority
  1874. DeliveryPriority(
  1875. UpdateProfileNote
  1876. UpdateProfileNote
  1877. UpdateProfileNote
  1878. ReturnReceipt
  1879. ReturnReceipt
  1880. ReturnReceipt
  1881. $KeepPrivateh
  1882. $KeepPrivate
  1883. $KeepPrivate(
  1884. ExpireDateh
  1885. ExpireDate
  1886. ExpireDate(
  1887. ReplyTo
  1888. ReplyTo
  1889. ReplyTo
  1890. MimeFormath
  1891. MimeFormat
  1892. MimeFormat
  1893. MimeFormat(
  1894. SMTPEncodingh
  1895. SMTPEncoding
  1896. SMTPEncoding
  1897. SMTPEncoding(
  1898. MIMEMailCharset
  1899. MIMEMailCharset
  1900. MIMEMailCharset
  1901. MIMEMailCharset
  1902. $AutoSpellh
  1903. $AutoSpell
  1904. $AutoSpell(
  1905. WebSubjecth
  1906. WebSubject
  1907. WebSubject(
  1908. tmpSenderTagh
  1909. tmpSenderTag
  1910. tmpSenderTag
  1911. tmpSenderTag(
  1912.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  1913. MailedThisPass
  1914. MailedThisPass(
  1915. EnterSendTo
  1916. EnterSendTo
  1917. EnterCopyTo
  1918. EnterCopyTo
  1919. EnterBlindCopyToh
  1920. EnterBlindCopyTo(
  1921.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  1922. RemoveNoteItems
  1923. $HideMailHeader
  1924. Moods
  1925. PostedDate
  1926. SenderTag
  1927. Moods
  1928.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  1929. Bodyz
  1930. Lotus Product
  1931. [V0.0 -L
  1932. Lotus Product
  1933. OBJECT
  1934. Lotus Product
  1935. OBJECT
  1936. Lotus Product
  1937. OBJECT
  1938. Lotus Product
  1939. OBJECT
  1940. Lotus Product
  1941. OBJECT
  1942. Lotus Product
  1943. [V0.0 -L
  1944. Discard Changes
  1945. MEMO_CANCEL
  1946. 4194304
  1947.     0S0E
  1948. ActionInProgress
  1949. MEMO_CANCEL
  1950.     0R1S
  1951. IsMailStationery
  1952.     1S2S3S
  1953. Save And Close
  1954. MEMO_DRAFT
  1955.     0S0E
  1956. ActionInProgress
  1957. MEMO_DRAFT
  1958.     0R1S
  1959. PostedDateh
  1960. IsMailStationery
  1961.     7S8S9S10S13S14S15S16S
  1962. Save And File
  1963. MEMO_DRAFT_FILE
  1964.     0S0E
  1965. ActionInProgress
  1966. MEMO_DRAFT_FILE
  1967.     0R1S
  1968. PostedDateh
  1969. IsMailStationery
  1970.     7S8S9S10S13S14S15S16S
  1971. Close
  1972. MEMO_CANCEL
  1973. 4194304
  1974.     0S0E
  1975. ActionInProgress
  1976. MEMO_CANCEL
  1977.     0R1S
  1978. IsMailStationery
  1979.     0S1S2S
  1980. New Memo(
  1981.     0S0E
  1982. Reply\Reply
  1983. Reply
  1984.     0S0E
  1985. Reply\Reply with History
  1986. Reply with History
  1987. This document is truncated.
  1988.     4S8S10S13S
  1989. Reply with history
  1990. Reply\Reply to AllX
  1991. MailStEd
  1992.     0S0E
  1993. Reply
  1994. Reply\Reply to All with History
  1995. MailStEd
  1996.     0S0E
  1997. Reply with History
  1998. This document is truncated.
  1999.     0R4S8S10S13S
  2000. Reply with history
  2001. Categori_ze
  2002. _Edit Document
  2003. Send Docu_ment
  2004. Forward
  2005.     0S0E
  2006. ISMAILSTATIONERY
  2007.     1S2S
  2008. _Forward
  2009. Delete 
  2010.     0S0E
  2011. _Move To Folder...
  2012. _Remove From Folder
  2013. MEMO_SEND
  2014.     0S0E
  2015. ActionInProgress
  2016. MEMO_SEND
  2017.     0R1S
  2018. PostedDateh
  2019. IsMailStationery
  2020.     5S6S7S8S10S11S12S13S
  2021. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  2022. '++LotusScript Development Environment:2:5:(Forward):0:1
  2023. Declare Sub Click(Source As Button)
  2024. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2025. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2026. Private Sub BindEvents(Byval Objectname_ As String)
  2027.     Static Source As BUTTON
  2028.     Set Source = Bind(Objectname_)
  2029.     On Event Click From Source Call Click
  2030. End Sub
  2031. '++LotusScript Development Environment:2:2:Click:1:12
  2032. Sub Click(Source As Button)
  2033.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  2034.     Call cMemoObject.noteUIMemo.save()
  2035.     Call cMemoObject.noteUIMemo.close()    
  2036. End Sub
  2037. PostedDateh
  2038. IsMailStationery
  2039.     5S6S7S8S12S13S
  2040. Send and Filen
  2041. MEMO_SEND_FILE
  2042.     0S0E
  2043. ActionInProgress
  2044. MEMO_SEND_FILE
  2045.     0R1S
  2046. PostedDateh
  2047. IsMailStationery
  2048.     5S6S7S8S12S13S
  2049. MEMO_STATIONERYSAVE
  2050.     0S0E
  2051. ActionInProgress
  2052. MEMO_STATIONERYSAVE
  2053.     0R1S
  2054. IsMailStationery
  2055.     2S3S
  2056. Save As DraftI
  2057. MEMO_DRAFT
  2058.     0S0E
  2059. ActionInProgress
  2060. MEMO_DRAFT
  2061.     0R1S
  2062. PostedDateh
  2063. IsMailStationery
  2064.     5S6S7S8S10S11S12S13S
  2065. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  2066. '++LotusScript Development Environment:2:5:(Forward):0:1
  2067. Declare Sub Click(Source As Button)
  2068. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2069. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2070. Private Sub BindEvents(Byval Objectname_ As String)
  2071.     Static Source As BUTTON
  2072.     Set Source = Bind(Objectname_)
  2073.     On Event Click From Source Call Click
  2074. End Sub
  2075. '++LotusScript Development Environment:2:2:Click:1:12
  2076. Sub Click(Source As Button)
  2077.     Call cMemoObject.ReplyToAll()
  2078. End Sub
  2079. PostedDateh
  2080. IsMailStationery
  2081.     5S6S7S8S10S11S12S13S
  2082. Rename Stationery
  2083. xxTitle
  2084. Rename Stationery
  2085.     0S0E
  2086. xxPrompt
  2087. Please enter new stationery name.
  2088. MailStationeryName
  2089. xxTitle
  2090. xxPrompt
  2091. MailStationeryName
  2092.     0R1S
  2093.     0RS>
  2094. IsMailStationery
  2095.     2S3S4S5S
  2096. Address...T
  2097. EnterSendTo
  2098. EnterCopyTo
  2099. EnterBlindCopyTo
  2100.     0S0E
  2101. PostedDateh
  2102. IsMailStationery
  2103.     5S6S7S8S10S11S12S13S
  2104. Delivery Options...    ~
  2105. DeliveryOptions
  2106. Delivery Options
  2107.     0R4S10S
  2108. PostedDateh
  2109.     5S6S7S8S
  2110. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  2111. Use "CommonUI"
  2112. '++LotusScript Development Environment:2:5:(Forward):0:1
  2113. Declare Sub Click(Source As Button)
  2114. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2115. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2116. Private Sub BindEvents(Byval Objectname_ As String)
  2117. Static Source As BUTTON
  2118. Set Source = Bind(Objectname_)
  2119. On Event Click From Source Call Click
  2120. End Sub
  2121. '++LotusScript Development Environment:2:2:Click:1:12
  2122. Sub Click(Source As Button)
  2123.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  2124. End Sub
  2125. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  2126. Use "CommonUI"
  2127. '++LotusScript Development Environment:2:5:(Forward):0:1
  2128. Declare Sub Click(Source As Button)
  2129. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2130. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2131. Private Sub BindEvents(Byval Objectname_ As String)
  2132. Static Source As BUTTON
  2133. Set Source = Bind(Objectname_)
  2134. On Event Click From Source Call Click
  2135. End Sub
  2136. '++LotusScript Development Environment:2:2:Click:1:12
  2137. Sub Click(Source As Button)
  2138.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  2139. End Sub
  2140. Copy into\New To Do '++LotusScript Development Environment:2:5:(Options):0:74
  2141. Use "CommonUI"
  2142. '++LotusScript Development Environment:2:5:(Forward):0:1
  2143. Declare Sub Click(Source As Button)
  2144. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2145. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2146. Private Sub BindEvents(Byval Objectname_ As String)
  2147.     Static Source As BUTTON
  2148.     Set Source = Bind(Objectname_)
  2149.     On Event Click From Source Call Click
  2150. End Sub
  2151. '++LotusScript Development Environment:2:2:Click:1:12
  2152. Sub Click(Source As Button)
  2153.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  2154. End Sub
  2155. Tools\Preferences...2
  2156. (Preferences)
  2157.     0S0E
  2158. Tools\Delivery Information...e
  2159. xxTitle
  2160. Delivery Information
  2161.     0S0E
  2162. DeliveryInfo
  2163. xxTitle
  2164.     0RR4S5S6S7S8S9S10S11S12S14S
  2165. Tools\Out of Office...8
  2166. (EditOfficeProfile)
  2167.     0S0E
  2168. Tools\Add Sender to Address Book<
  2169. (AddSenderToAddressBook)
  2170.     0S0E
  2171. Tools\New Memo - Using Stationeryb'++LotusScript Development Environment:2:5:(Options):0:66
  2172. '++LotusScript Development Environment:2:5:(Forward):0:1
  2173. Declare Sub Click(Source As Button)
  2174. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2175. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2176. Private Sub BindEvents(Byval Objectname_ As String)
  2177.     Static Source As BUTTON
  2178.     Set Source = Bind(Objectname_)
  2179.     On Event Click From Source Call Click
  2180. End Sub
  2181. '++LotusScript Development Environment:2:2:Click:1:12
  2182. Sub Click(Source As Button)
  2183.     Dim session As New notessession
  2184.     Dim uiws As New notesuiworkspace
  2185.     Dim collection As notesdocumentcollection
  2186.     Dim noteUIEditDocument As notesuidocument
  2187.     Dim database As NotesDatabase
  2188.     Set noteCursorDoc = session.currentdatabase.createdocument
  2189.     Set database = session.currentdatabase
  2190.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  2191.     Set noteCursorDoc = collection.getfirstdocument
  2192.     If Not noteCursorDoc Is Nothing Then
  2193.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  2194.     End If
  2195. End Sub
  2196. Tools\Insert Signature...
  2197. '++LotusScript Development Environment:2:5:(Options):0:66
  2198. '++LotusScript Development Environment:2:5:(Forward):0:1
  2199. Declare Sub Click(Source As Button)
  2200. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2201. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2202. Private Sub BindEvents(Byval Objectname_ As String)
  2203.     Static Source As BUTTON
  2204.     Set Source = Bind(Objectname_)
  2205.     On Event Click From Source Call Click
  2206. End Sub
  2207. '++LotusScript Development Environment:2:2:Click:1:12
  2208. Sub Click(Source As Button)
  2209.     Call cMemoObject.InsertSignature(False)
  2210. End Sub
  2211. PostedDateh
  2212.     5S6S7S8S
  2213. Tools\Save as Stationery... 
  2214. MEMO_ISSTATIONERY
  2215.     0S0E
  2216. MEMO_STATIONERYSAVE
  2217. ActionInProgress
  2218. MEMO_STATIONERYSAVE
  2219.     0R1S
  2220. MergeFlag
  2221. MEMO_ISSTATIONERY
  2222.     0R1S
  2223. PostedDateh
  2224. IsMailStationery
  2225.     5S6S7S8S10S11S12S13S
  2226. New Memo(
  2227.     0S0E
  2228. Forwardu
  2229.     1S10S14S16S23S
  2230. path"
  2231. /Memo?OpenForm&UNID="
  2232. &forward"
  2233. Send\Send `
  2234. tmpSendOptions
  2235. Send\Send and Save`
  2236. tmpSendOptions
  2237. Send\Save as Draft`
  2238. tmpSendOptions
  2239. Reply\Replyi*
  2240. wReply
  2241.     0S0E
  2242. Reply\Reply with HistoryV
  2243.     1S10S14S16S23S
  2244. Format
  2245. CalendarProfile
  2246. FormatReplies
  2247.     0R6S
  2248. Format
  2249. path"
  2250. /Reply+With+History?OpenForm&
  2251. &Format
  2252. Reply With History
  2253.     0R9S10S11S12S13S14S21S23S24S
  2254. Reply\Reply to All
  2255.     0R1S10S14S16S23S
  2256. path"
  2257. /wReply?OpenForm&
  2258. &All"
  2259.     0R3S4S5S6S7S8S15S17S18S
  2260. Reply\Reply to All with History
  2261.     1S10S14S16S23S
  2262. Format
  2263. CalendarProfile
  2264. FormatReplies
  2265.     0R6S
  2266. Format
  2267. path"
  2268. /Reply+With+History?OpenForm&
  2269. &Format&All
  2270. path"
  2271. /Reply+With+History?OpenForm&
  2272. &All"
  2273.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  2274. Edit 
  2275.     0S0E
  2276. Delete
  2277.     1S10S14S16S23S
  2278.     0R5S
  2279. path"
  2280. /wDelete?OpenAgent&
  2281. UNID"
  2282. Inbox.
  2283.     1S2S
  2284. path"
  2285. /MailFS?OpenFrameset"
  2286.     0R3S4S5S6S
  2287. Next 
  2288.     0S0E
  2289. Previous 
  2290.     0S0E
  2291. Discard Changes
  2292. MEMO_CANCEL
  2293. 4194304
  2294.     0S0E
  2295. ActionInProgress
  2296. MEMO_CANCEL
  2297.     0R1S
  2298. IsMailStationery
  2299.     1S2S3S
  2300. Save And Close
  2301. MEMO_DRAFT
  2302.     0S0E
  2303. ActionInProgress
  2304. MEMO_DRAFT
  2305.     0R1S
  2306. PostedDateh
  2307. IsMailStationery
  2308.     7S8S9S10S13S14S15S16S
  2309. act_save.GIF|act_CSSAVE?
  2310. Save And File
  2311. MEMO_DRAFT_FILE
  2312.     0S0E
  2313. ActionInProgress
  2314. MEMO_DRAFT_FILE
  2315.     0R1S
  2316. PostedDateh
  2317. IsMailStationery
  2318.     7S8S9S10S13S14S15S16S
  2319. act_FOLDER.GIF|act_FOLDER?
  2320. Close
  2321. MEMO_CANCEL
  2322. 4194304
  2323.     0S0E
  2324. ActionInProgress
  2325. MEMO_CANCEL
  2326.     0R1S
  2327. IsMailStationery
  2328.     0S1S2S
  2329. New Memo(
  2330.     0S0E
  2331. act_NEWMEMO.GIF|act_NEWMEMO?
  2332. Reply\Reply
  2333. Reply
  2334.     0S0E
  2335. act_REPLY.GIF|act_REPLY?
  2336. Reply\Reply with History
  2337. Reply with History
  2338. This document is truncated.
  2339.     4S8S10S13S
  2340. Reply with history
  2341. act_REPLY.GIF|act_REPLY?
  2342. Reply\Reply to AllX
  2343. MailStEd
  2344.     0S0E
  2345. Reply
  2346. act_REPLY.GIF|act_REPLY?
  2347. Reply\Reply to All with History
  2348. MailStEd
  2349.     0S0E
  2350. Reply with History
  2351. This document is truncated.
  2352.     0R4S8S10S13S
  2353. Reply with history
  2354. act_REPLY.GIF|act_REPLY?
  2355. Categori_ze
  2356. _Edit Document
  2357. Send Docu_ment
  2358. Forwardg 
  2359.     0S0E
  2360. ISMAILSTATIONERY
  2361.     1S2S
  2362. act_FORWARD.GIF|act_FORWARD?
  2363. _Forward
  2364. Delete 
  2365.     0S0E
  2366. act_DELETE.GIF|act_DELETE?
  2367. _Move To Folder...
  2368. _Remove From Folder
  2369. MEMO_SEND
  2370.     0S0E
  2371. ActionInProgress
  2372. MEMO_SEND
  2373.     0R1S
  2374. PostedDateh
  2375. IsMailStationery
  2376.     5S6S7S8S10S11S12S13S
  2377. act_SEND.GIF|act_SEND?
  2378. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  2379. '++LotusScript Development Environment:2:5:(Forward):0:1
  2380. Declare Sub Click(Source As Button)
  2381. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2382. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2383. Private Sub BindEvents(Byval Objectname_ As String)
  2384.     Static Source As BUTTON
  2385.     Set Source = Bind(Objectname_)
  2386.     On Event Click From Source Call Click
  2387. End Sub
  2388. '++LotusScript Development Environment:2:2:Click:1:12
  2389. Sub Click(Source As Button)
  2390.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  2391.     Call cMemoObject.noteUIMemo.save()
  2392.     Call cMemoObject.noteUIMemo.close()    
  2393. End Sub
  2394. PostedDateh
  2395. IsMailStationery
  2396.     5S6S7S8S12S13S
  2397. Send and Filet
  2398. MEMO_SEND_FILE
  2399.     0S0E
  2400. ActionInProgress
  2401. MEMO_SEND_FILE
  2402.     0R1S
  2403. PostedDateh
  2404. IsMailStationery
  2405.     5S6S7S8S12S13S
  2406. act_SEND.GIF|act_SEND?
  2407. MEMO_STATIONERYSAVE
  2408.     0S0E
  2409. ActionInProgress
  2410. MEMO_STATIONERYSAVE
  2411.     0R1S
  2412. IsMailStationery
  2413.     2S3S
  2414. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  2415. Save As Draft
  2416. MEMO_DRAFT
  2417.     0S0E
  2418. ActionInProgress
  2419. MEMO_DRAFT
  2420.     0R1S
  2421. PostedDateh
  2422. IsMailStationery
  2423.     5S6S7S8S10S11S12S13S
  2424. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  2425. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  2426. '++LotusScript Development Environment:2:5:(Forward):0:1
  2427. Declare Sub Click(Source As Button)
  2428. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2429. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2430. Private Sub BindEvents(Byval Objectname_ As String)
  2431.     Static Source As BUTTON
  2432.     Set Source = Bind(Objectname_)
  2433.     On Event Click From Source Call Click
  2434. End Sub
  2435. '++LotusScript Development Environment:2:2:Click:1:12
  2436. Sub Click(Source As Button)
  2437.     Call cMemoObject.ReplyToAll()
  2438. End Sub
  2439. PostedDateh
  2440. IsMailStationery
  2441.     5S6S7S8S10S11S12S13S
  2442. act_REPLY.GIF|act_REPLY?
  2443. Rename Stationery 
  2444. xxTitle
  2445. Rename Stationery
  2446.     0S0E
  2447. xxPrompt
  2448. Please enter new stationery name.
  2449. MailStationeryName
  2450. xxTitle
  2451. xxPrompt
  2452. MailStationeryName
  2453.     0R1S
  2454.     0RS>
  2455. IsMailStationery
  2456.     2S3S4S5S
  2457. act_RENAME.GIF|act_RENAME?
  2458. Address...T
  2459. EnterSendTo
  2460. EnterCopyTo
  2461. EnterBlindCopyTo
  2462.     0S0E
  2463. PostedDateh
  2464. IsMailStationery
  2465.     5S6S7S8S10S11S12S13S
  2466. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  2467. Delivery Options...
  2468. DeliveryOptions
  2469. Delivery Options
  2470.     0R4S10S
  2471. PostedDateh
  2472.     5S6S7S8S
  2473. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  2474. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  2475. Use "CommonUI"
  2476. '++LotusScript Development Environment:2:5:(Forward):0:1
  2477. Declare Sub Click(Source As Button)
  2478. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2479. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2480. Private Sub BindEvents(Byval Objectname_ As String)
  2481. Static Source As BUTTON
  2482. Set Source = Bind(Objectname_)
  2483. On Event Click From Source Call Click
  2484. End Sub
  2485. '++LotusScript Development Environment:2:2:Click:1:12
  2486. Sub Click(Source As Button)
  2487.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  2488. End Sub
  2489. act_COPYINTO.GIF|act_COPYINTO?
  2490. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  2491. Use "CommonUI"
  2492. '++LotusScript Development Environment:2:5:(Forward):0:1
  2493. Declare Sub Click(Source As Button)
  2494. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2495. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2496. Private Sub BindEvents(Byval Objectname_ As String)
  2497. Static Source As BUTTON
  2498. Set Source = Bind(Objectname_)
  2499. On Event Click From Source Call Click
  2500. End Sub
  2501. '++LotusScript Development Environment:2:2:Click:1:12
  2502. Sub Click(Source As Button)
  2503.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  2504. End Sub
  2505. act_COPYINTO.GIF|act_COPYINTO?
  2506. Copy into\New To Doi'++LotusScript Development Environment:2:5:(Options):0:74
  2507. Use "CommonUI"
  2508. '++LotusScript Development Environment:2:5:(Forward):0:1
  2509. Declare Sub Click(Source As Button)
  2510. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2511. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2512. Private Sub BindEvents(Byval Objectname_ As String)
  2513.     Static Source As BUTTON
  2514.     Set Source = Bind(Objectname_)
  2515.     On Event Click From Source Call Click
  2516. End Sub
  2517. '++LotusScript Development Environment:2:2:Click:1:12
  2518. Sub Click(Source As Button)
  2519.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  2520. End Sub
  2521. act_COPYINTO.GIF|act_COPYINTO?
  2522. Tools\Preferences...2
  2523. (Preferences)
  2524.     0S0E
  2525. act_TOOLS.GIF|act_TOOLS?
  2526. Tools\Delivery Information...I
  2527. xxTitle
  2528. Delivery Information
  2529.     0S0E
  2530. DeliveryInfo
  2531. xxTitle
  2532.     0RR4S5S6S7S8S9S10S11S12S14S
  2533. act_TOOLS.GIF|act_TOOLS?
  2534. Tools\Out of Office...8
  2535. (EditOfficeProfile)
  2536.     0S0E
  2537. act_TOOLS.GIF|act_TOOLS?
  2538. Tools\Add Sender to Address Book<
  2539. (AddSenderToAddressBook)
  2540.     0S0E
  2541. act_TOOLS.GIF|act_TOOLS?
  2542. Tools\New Memo - Using Stationeryv'++LotusScript Development Environment:2:5:(Options):0:66
  2543. '++LotusScript Development Environment:2:5:(Forward):0:1
  2544. Declare Sub Click(Source As Button)
  2545. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2546. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2547. Private Sub BindEvents(Byval Objectname_ As String)
  2548.     Static Source As BUTTON
  2549.     Set Source = Bind(Objectname_)
  2550.     On Event Click From Source Call Click
  2551. End Sub
  2552. '++LotusScript Development Environment:2:2:Click:1:12
  2553. Sub Click(Source As Button)
  2554.     Dim session As New notessession
  2555.     Dim uiws As New notesuiworkspace
  2556.     Dim collection As notesdocumentcollection
  2557.     Dim noteUIEditDocument As notesuidocument
  2558.     Dim database As NotesDatabase
  2559.     Set noteCursorDoc = session.currentdatabase.createdocument
  2560.     Set database = session.currentdatabase
  2561.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  2562.     Set noteCursorDoc = collection.getfirstdocument
  2563.     If Not noteCursorDoc Is Nothing Then
  2564.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  2565.     End If
  2566. End Sub
  2567. act_TOOLS.GIF|act_TOOLS?
  2568. Tools\Insert Signature...
  2569. '++LotusScript Development Environment:2:5:(Options):0:66
  2570. '++LotusScript Development Environment:2:5:(Forward):0:1
  2571. Declare Sub Click(Source As Button)
  2572. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2573. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2574. Private Sub BindEvents(Byval Objectname_ As String)
  2575.     Static Source As BUTTON
  2576.     Set Source = Bind(Objectname_)
  2577.     On Event Click From Source Call Click
  2578. End Sub
  2579. '++LotusScript Development Environment:2:2:Click:1:12
  2580. Sub Click(Source As Button)
  2581.     Call cMemoObject.InsertSignature(False)
  2582. End Sub
  2583. PostedDateh
  2584.     5S6S7S8S
  2585. act_TOOLS.GIF|act_TOOLS?
  2586. Tools\Save as Stationery...
  2587. MEMO_ISSTATIONERY
  2588.     0S0E
  2589. MEMO_STATIONERYSAVE
  2590. ActionInProgress
  2591. MEMO_STATIONERYSAVE
  2592.     0R1S
  2593. MergeFlag
  2594. MEMO_ISSTATIONERY
  2595.     0R1S
  2596. PostedDateh
  2597. IsMailStationery
  2598.     5S6S7S8S10S11S12S13S
  2599. act_TOOLS.GIF|act_TOOLS?
  2600. New Memo(
  2601.     0S0E
  2602. act_NEW.GIF|act_NEW?
  2603. Forward
  2604.     1S10S14S16S23S
  2605. path"
  2606. /Memo?OpenForm&UNID="
  2607. &forward"
  2608. act_FORWARD.GIF|act_FORWARD?
  2609. Send\Send
  2610. tmpSendOptions
  2611. act_SEND.GIF|act_SEND?
  2612. Send\Send and Save`
  2613. tmpSendOptions
  2614. act_SEND.GIF|act_SEND?
  2615. Send\Save as Draft`
  2616. tmpSendOptions
  2617. act_SEND.GIF|act_SEND?
  2618. Reply\ReplyF*
  2619. wReply
  2620.     0S0E
  2621. act_REPLY.GIF|act_REPLY?
  2622. Reply\Reply with HistoryV
  2623.     1S10S14S16S23S
  2624. Format
  2625. CalendarProfile
  2626. FormatReplies
  2627.     0R6S
  2628. Format
  2629. path"
  2630. /Reply+With+History?OpenForm&
  2631. &Format
  2632. Reply With History
  2633.     0R9S10S11S12S13S14S21S23S24S
  2634. act_REPLY.GIF|act_REPLY?
  2635. Reply\Reply to All
  2636.     0R1S10S14S16S23S
  2637. path"
  2638. /wReply?OpenForm&
  2639. &All"
  2640.     0R3S4S5S6S7S8S15S17S18S
  2641. Reply\Reply to All with History
  2642.     1S10S14S16S23S
  2643. Format
  2644. CalendarProfile
  2645. FormatReplies
  2646.     0R6S
  2647. Format
  2648. path"
  2649. /Reply+With+History?OpenForm&
  2650. &Format&All
  2651. path"
  2652. /Reply+With+History?OpenForm&
  2653. &All"
  2654.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  2655. Address...
  2656. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  2657. var pathname = (window.location.pathname);
  2658. if (navigator.appName =='Netscape') {
  2659. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  2660.     } else {
  2661. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  2662. Delivery Options...
  2663. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  2664. var pathname = (window.location.pathname);
  2665. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  2666. Edit 
  2667.     0S0E
  2668. act_EDIT.GIF|act_EDIT?
  2669. Delete
  2670.     1S10S14S16S23S
  2671.     0R5S
  2672. path"
  2673. /wDelete?OpenAgent&
  2674. UNID"
  2675. act_DELETE.GIF|act_DELETE?
  2676. Inbox
  2677.     1S2S
  2678. path"
  2679. /MailFS?OpenFrameset"
  2680.     0R3S4S5S6S
  2681. act_NEWMAIL.GIF|act_NEWMAIL?
  2682. Copy Into\New Task
  2683. act_COPYINTO.GIF|act_COPYINTO?
  2684. var pathname = window.location.pathname
  2685. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  2686. window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
  2687. Copy Into\New Calendar Entry
  2688. act_COPYINTO.GIF|act_COPYINTO?
  2689. alert('Feature in Progress')
  2690. Next 
  2691.     0S0E
  2692. Previous 
  2693.     0S0E
  2694. O=Lotus Notes
  2695. O=Lotus Notes
  2696. PURSAFO
  2697. |.:#U
  2698. O=Lotus Notes
  2699. CN=Lotus Notes Template Development/O=Lotus Notes
  2700. PURSAFO
  2701. $Background
  2702. $HeaderArea
  2703. $RegionFrameset
  2704. $INFO
  2705. $SubForms
  2706. $WINDOWTITLE
  2707. $WEBQuerySave
  2708. $WEBQueryOpen
  2709. $AppHelpFormula
  2710. $WebFlags
  2711. $Script
  2712. $$Script_O
  2713. $$ScriptName
  2714. $$FormScript
  2715. $$$FormScript_O
  2716. $BODY
  2717. $SCRIPTOBJ_18
  2718. $SCRIPTOBJ_22
  2719. $SCRIPTOBJ_26
  2720. $SCRIPTOBJ_27
  2721. $SCRIPTOBJ_28
  2722. $SCRIPTOBJ_33
  2723. $SCRIPTOBJ_34
  2724. $ACTIONS
  2725. $V5ACTIONS
  2726. $HideMailHeader
  2727. BGTableColor
  2728. HeaderRegion
  2729. BodyRegion
  2730. New Memo
  2731. Subject
  2732. Subject
  2733. Subject
  2734.     4S6S12S13S14S15S17S21S23S25S26S28S
  2735. wMemo
  2736. returnreceipt
  2737. wMemoOpen
  2738. Query_string
  2739. forward
  2740. wMemoOpen
  2741. Query_string
  2742. wMemoOpen
  2743. Query_string
  2744. FormatG
  2745. wMemoOpen
  2746.     13R24S52SD
  2747. (Help)
  2748. MAIL_F_MEMO
  2749.     0S0E
  2750. &Arial
  2751. FComic Sans MS
  2752. '++LotusScript Development Environment:2:5:(Options):0:74
  2753. Option Public
  2754. Option Explicit
  2755. Use "CoreEmailClasses"
  2756. '++LotusScript Development Environment:2:5:(Forward):0:1
  2757. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2758. Dim cMemoObject As Variant 
  2759. Lotus ProductQ
  2760. V0.0L
  2761. J,|}8r
  2762. J,|}8r
  2763. ^,|J,|
  2764. JT~KD~-
  2765. JT~KD~-
  2766. KD~-<
  2767. ~}8rKD~-`
  2768.  Reply'++LotusScript Development Environment:2:5:(Options):0:66
  2769. '++LotusScript Development Environment:2:5:(Forward):0:1
  2770. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2771. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2772. Declare Sub Postmodechange(Source As Notesuidocument)
  2773. Declare Sub Postopen(Source As Notesuidocument)
  2774. Declare Sub Postsave(Source As Notesuidocument)
  2775. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2776. Declare Sub Postrecalc(Source As Notesuidocument)
  2777. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  2778. Declare Sub Click(Source As Button)
  2779. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2780. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2781. Private Sub BindEvents(Byval Objectname_ As String)
  2782.     Static Source As NOTESUIDOCUMENT
  2783.     Set Source = Bind(Objectname_)
  2784.     On Event Queryopen From Source Call Queryopen
  2785.     On Event Querysave From Source Call Querysave
  2786.     On Event Postmodechange From Source Call Postmodechange
  2787.     On Event Postopen From Source Call Postopen
  2788.     On Event Postsave From Source Call Postsave
  2789.     On Event Queryclose From Source Call Queryclose
  2790.     On Event Postrecalc From Source Call Postrecalc
  2791.     On Event Querymodechange From Source Call Querymodechange
  2792. End Sub
  2793. '++LotusScript Development Environment:2:2:Queryopen:1:12
  2794. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  2795.     Set cMemoObject = New UIMemoDocument         
  2796.     Call cMemoObject.Init(Source,Isnewdoc)  
  2797. End Sub
  2798. '++LotusScript Development Environment:2:2:Querysave:1:12
  2799. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  2800.     Call cMemoObject.QuerySave(Continue)
  2801. End Sub
  2802. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  2803. Sub Postmodechange(Source As Notesuidocument)
  2804.     Call cMemoObject.PostModeChange()    
  2805. End Sub
  2806. '++LotusScript Development Environment:2:2:Postopen:1:12
  2807. Sub Postopen(Source As Notesuidocument)
  2808.     Call cMemoObject.PostOpen(Source)    
  2809. End Sub
  2810. '++LotusScript Development Environment:2:2:Postsave:1:12
  2811. Sub Postsave(Source As Notesuidocument)
  2812.     Call cMemoObject.PostSave()
  2813. End Sub
  2814. '++LotusScript Development Environment:2:2:Queryclose:1:12
  2815. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  2816.     Call cMemoObject.QueryClose(Continue)
  2817. End Sub
  2818. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  2819. Sub Postrecalc(Source As Notesuidocument)
  2820. End Sub
  2821. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  2822. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  2823.     Continue = cMemoObject.QueryModeChange(Source)
  2824. End Sub
  2825. '++LotusScript Development Environment:2:2:Click:1:8
  2826. Sub Click(Source As Button)
  2827.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  2828.     Call cMemoObject.noteUIMemo.save()
  2829.     Call cMemoObject.noteUIMemo.close()
  2830. End Sub
  2831. Lotus Product1
  2832. KV0.0}
  2833. Kl*,|$}0
  2834. Kl*U|*
  2835. Kl*,|$}`
  2836. Kl*,|$}
  2837.  -$&#,
  2838.  -$&#,|$}p
  2839.  -$&#,
  2840.  -$&#,
  2841.  -$&#,|$}p
  2842.  -$&#,
  2843.  -$&#,|$}
  2844.     Always hidden:  
  2845.     0S0E
  2846. NamePreferencez
  2847. NamePreference
  2848.     0S0E
  2849. LanguagePreference
  2850. Notes
  2851. PostedDateh
  2852. SendTo
  2853. CopyTo
  2854. InheritedSendTo
  2855. SendTo
  2856. CopyTo
  2857.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
  2858. InheritedSendTo
  2859. InheritedSendTo
  2860. Notes
  2861. PostedDateh
  2862. NamePreference
  2863. AltSendTo
  2864. AltSendTo
  2865. AltCopyTo
  2866. SendTo
  2867. CopyTo
  2868. InheritedAltSendTo
  2869. SendTo
  2870. CopyTo
  2871.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53R
  2872. $AltNameLanguageTags
  2873. $AltNameLanguageTags
  2874.     0RR1S
  2875. $StorageTo
  2876. $StorageFrom
  2877.     0RR1S
  2878. $StorageTo
  2879. $StorageTo
  2880.     0RR1S
  2881. $StorageCc
  2882. $StorageCc
  2883.     0R1S
  2884. $StorageBcc
  2885. $StorageBcc
  2886.     0R1S
  2887. InetSendTo
  2888. InetSendTo
  2889.     0RR1S
  2890. InetCopyTo
  2891. InetCopyTo
  2892.     0R1S
  2893. InetBlindCopyTo
  2894. InetBlindCopyTo
  2895.     0R1S
  2896. InheritedAltSendToz
  2897. InheritedAltSendTo
  2898. Notes
  2899. PostedDateh
  2900. ReplyTo
  2901. ReplyTo
  2902.     1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
  2903. InheritedReplyToz
  2904. InheritedReplyTo
  2905. Principal
  2906. Principal
  2907. Principal
  2908. Fromh
  2909.     1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
  2910. FromDomainh
  2911. FromDomain"
  2912.     0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
  2913. InheritedFrom
  2914. AltPrincipalh
  2915. AltPrincipal
  2916. AltPrincipal
  2917. AltFrom
  2918. AltFrom
  2919.     1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
  2920. FromDomainh
  2921. FromDomain"
  2922.     0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
  2923. InheritedAltFrom
  2924. Notes
  2925. PostedDateh
  2926. FromDomain
  2927. InheritedFromDomain
  2928. FromDomain
  2929.     9S10S12S13SInheritedFromDomain
  2930. InheritedFromDomain
  2931. Principal
  2932. CalendarProfile
  2933. Owner
  2934.     1S2S3S7S
  2935. FromPerson memo is from.z
  2936. AltFrom
  2937.     10SAltFrom
  2938. CalendarProfile
  2939. DefaultLogo
  2940. stdNotesLtr0
  2941. CalendarProfile
  2942. DefaultLogo
  2943. StdNotesLtrGateway
  2944.     4S13S24R25S29S32S34S
  2945. Logoz
  2946. StdNotesLtr41
  2947. StdNotesLtr41
  2948. Black
  2949.     11S12S
  2950. BGTableColor
  2951. Principal
  2952. Principal
  2953. Principal
  2954. NamePreference
  2955. AltFrom
  2956. PostedDateh
  2957. $LangFrom
  2958. LanguagePreferencet
  2959. AltFrom
  2960.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
  2961.     0R1S2S8S
  2962.     0R1S2S5S6S8S14S18S
  2963.     0R1S2S5S6S8S14S18S
  2964. SentBy
  2965. X400FreeForm^
  2966.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  2967. SentBy
  2968. FromDomain
  2969. FromDomain
  2970. FromDomain
  2971. FromDomain
  2972.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  2973. FromName
  2974. Principal
  2975. Principal
  2976. Principal
  2977.     0RR1S2S10S11S16S18S
  2978. FromStops
  2979.     0RR1S2S6S
  2980. FromName
  2981. FromStops
  2982. FromStops
  2983. FromStops
  2984.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  2985. tmpDisplayFrom_Preview
  2986.     0S0E
  2987. Signz
  2988.     0S0E
  2989. Encrypt
  2990. Encrypt
  2991. $KeepPrivate
  2992. $KeepPrivate
  2993. $KeepPrivate
  2994.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  2995.     0S0E
  2996. DefaultMailSaveOptionsz
  2997. DefaultMailSaveOptions
  2998. .,$,  , :
  2999. Path_Info_DEcoded
  3000. Path_Info
  3001. .,$,  , :
  3002. Query_String_Decoded
  3003. Query_String
  3004. (WebSpecificFields)
  3005.     0S0E
  3006.     From:
  3007. tmpDisplayFrom_Preview
  3008. tmpDisplayFrom_NoLogo
  3009. tmpDisplayFrom_NoLogo
  3010. NamesList
  3011. NamePreference
  3012. AltSendTo
  3013. $NameLanguageTags
  3014. LanguagePreferencet
  3015. AltSendTo
  3016. SendTo
  3017.     11S12S15S16S20S
  3018. ImplodedNamesList
  3019. NamesList
  3020. ImplodedNamesList
  3021. ImplodedNamesList
  3022. ImplodedNamesList
  3023. tmpDisplaySendTo
  3024.     Subject:
  3025. Subject
  3026. Subject
  3027. Subject
  3028.     0S0E
  3029. TmpDisplaySubject_1
  3030. CC_Content
  3031. NamePreference
  3032. AltCopyTo
  3033. $NameLanguageTags
  3034. LanguagePreferencet
  3035. AltCopyTo
  3036. CopyTo
  3037.     7S8S9S11S12S16S
  3038. BCC_Content
  3039. DeliveredDate
  3040. BlindCopyTo
  3041.  (bcc: 
  3042. BlindCopyTo
  3043.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  3044. NamesList
  3045. CC_Content
  3046. BCC_Content
  3047.     0R9S10S
  3048. ImplodedNamesList
  3049. NamesList
  3050. ImplodedNamesList
  3051. ImplodedNamesList
  3052. ImplodedNamesList
  3053. tmpDisplayCC
  3054. MailAddress
  3055. InheritedReplyTo
  3056. InheritedReplyTo
  3057. InheritedFrom
  3058. NamePreference
  3059. AltSendTo
  3060. AltSendTo
  3061. SendTo
  3062.     1S2S22S2E23S24S25S
  3063. MailAddress
  3064. SendToz
  3065. SIZE=80
  3066. CopyTo
  3067.     0S0E
  3068. CopyToz
  3069. SIZE=80
  3070.     bcc:
  3071. BlindCopyTo
  3072.     0S0E
  3073. BlindCopyTo
  3074. SIZE=80
  3075.     Subject:
  3076. Subject
  3077. Topic
  3078. Subject
  3079.     1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
  3080. Subj"
  3081.     0R1RT10S12S16S17S19RTT21RT22S23S24RT
  3082. WebSubjectz
  3083. SIZE=80
  3084. tmpDisplayFrom_Preview
  3085. DisplayFrom_Preview_1
  3086. DisplayFrom_Preview_1
  3087. $HideMailHeader
  3088. Principal
  3089. Principal
  3090. Principal
  3091. Principal
  3092. Principal
  3093.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  3094.     Sent by: 
  3095. FromDomain
  3096. FromDomain
  3097. FromDomain
  3098. FromDomain
  3099.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  3100. FromName
  3101.     0RR1S2S6S
  3102. FromStops
  3103.     0R1S2S6S
  3104. FromName
  3105. FromStops
  3106. FromStops
  3107. FromStops
  3108.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy_1z
  3109. tmpDisplaySentBy_1
  3110. PostedDateh
  3111. PostedDate
  3112.     4S5S10S12S
  3113. tmpDisplayDate_Preview_1Time/date memo was created or mailed.
  3114. tmpDisplayDate_Preview_1
  3115. ReplyDate
  3116. ReplyTo
  3117. $HideMailHeader
  3118.     2S3S4S5S6S7S9S10S14S15R
  3119. Please respond
  3120. ReplyTo
  3121. ReplyTo
  3122. ReplyDate
  3123. ReplyDate
  3124.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo_1
  3125. tmpDisplayReplyInfo_1
  3126.     Attachment(s):
  3127.     <font size=-1>
  3128.     </font>
  3129. $HideMailHeader
  3130.     0S0E
  3131. tmpDisplayFrom_Preview
  3132. DisplayFrom
  3133. DisplayFrom_Pre
  3134.     Sent by: 
  3135. FromDomain
  3136. FromDomain
  3137. FromDomain
  3138. FromDomain
  3139.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  3140. FromName
  3141.     0RR1S2S6S
  3142. FromStops
  3143.     0R1S2S6S
  3144. FromName
  3145. FromStops
  3146. FromStops
  3147. FromStops
  3148.     0RR1S2S3S4S10S13S17S20SDisplaySent
  3149. tmpDisplaySent
  3150. PostedDateh
  3151. PostedDate
  3152.     4S5S10S12S
  3153. DisplayDateTime/date memo was created or mailed.z
  3154. tmpDisplayDate_Pre
  3155. Please respond
  3156. ReplyTo
  3157. ReplyTo
  3158. ReplyDate
  3159. ReplyDate
  3160.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  3161. tmpDisplayReply
  3162. $HideMailHeader
  3163. StdNotesLtr16
  3164.     7S9S10S11S13S15S
  3165.         To:    
  3166. MailAddress
  3167. InheritedReplyTo
  3168. InheritedReplyTo
  3169. NamePreference
  3170. InheritedAltFrom
  3171. InheritedAltFrom
  3172. InheritedFrom
  3173. NamePreference
  3174. AltSendTo
  3175. $NameLanguageTags
  3176. LanguagePreferencet
  3177. AltSendTo
  3178. SendTo
  3179.     1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
  3180. MailAddress
  3181. EnterSendTo
  3182.     0S0E
  3183. EnterSendTo
  3184.     cc:    
  3185. NamePreference
  3186. AltCopyTo
  3187. $NameLanguageTags
  3188. LanguagePreferencet
  3189. AltCopyTo
  3190. CopyTo
  3191.     1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
  3192. EnterCopyTo
  3193.     0S0E
  3194. EnterCopyTo
  3195.         cc:    
  3196. CC_Content
  3197. NamePreference
  3198. AltCopyTo
  3199. $NameLanguageTags
  3200. LanguagePreferencet
  3201. AltCopyTo
  3202. CopyTo
  3203.     2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
  3204. BCC_Content
  3205. DeliveredDate
  3206. BlindCopyTo
  3207.  (bcc: 
  3208. BlindCopyTo
  3209.     0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
  3210. CC_Content
  3211. BCC_Content
  3212.     0RR3S4StmpEnterCopyTo
  3213.     bcc:    
  3214. NamePreference
  3215. AltBlindCopyTo
  3216. $NameLanguageTags
  3217. LanguagePreferencet
  3218. AltBlindCopyTo
  3219. BlindCopyTo
  3220.     1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
  3221. EnterBlindCopyTo}
  3222.     0S0E
  3223. EnterBlindCopyTo
  3224. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  3225.     Subject:    
  3226. SIZE=50
  3227. Subject
  3228. Topic
  3229. Subject
  3230.     1S2S5S6S8S10S
  3231. Subj"
  3232.     0R10S12S16S17S19S21S22S23S
  3233. Subject
  3234.         Subject:    
  3235. Subject
  3236. tmpDisplaySubject
  3237. $HideMailHeader
  3238. tmpDisplayLink
  3239. ISMAILSTATIONERYh
  3240.     0S0E
  3241. MailedThisPass
  3242. MailedThisPass
  3243. MailedThisPass
  3244.     0R1RT4RTTT11RT
  3245. ReplyDate
  3246. ReplyDate
  3247. ReplyDate
  3248. Importanceh
  3249. Importance
  3250. Importance
  3251. Importance(
  3252. DeliveryReporth
  3253. DeliveryReport
  3254. DeliveryReport
  3255. DeliveryReport(
  3256. DeliveryPriorityh
  3257. DeliveryPriority
  3258. DeliveryPriority
  3259. DeliveryPriority(
  3260. UpdateProfileNote
  3261. UpdateProfileNote
  3262. UpdateProfileNote
  3263. ReturnReceipt
  3264. ReturnReceipt
  3265. ReturnReceipt
  3266. $KeepPrivateh
  3267. $KeepPrivate
  3268. $KeepPrivate(
  3269. ExpireDateh
  3270. ExpireDate
  3271. ExpireDate(
  3272. ReplyTo
  3273. ReplyTo
  3274. ReplyTo
  3275. MimeFormath
  3276. MimeFormat
  3277. MimeFormat
  3278. MimeFormat(
  3279. SMTPEncodingh
  3280. SMTPEncoding
  3281. SMTPEncoding
  3282. SMTPEncoding(
  3283. MIMEMailCharset
  3284. MIMEMailCharset
  3285. MIMEMailCharset
  3286. MIMEMailCharset
  3287. $AutoSpellh
  3288. $AutoSpell
  3289. $AutoSpell(
  3290. WebSubjecth
  3291. WebSubject
  3292. WebSubject(
  3293. tmpSenderTagh
  3294. tmpSenderTag
  3295. tmpSenderTag
  3296. tmpSenderTag(
  3297.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  3298. MailedThisPass
  3299. MailedThisPass(
  3300. EnterSendTo
  3301. EnterSendTo
  3302. EnterCopyTo
  3303. EnterCopyTo
  3304. EnterBlindCopyToh
  3305. EnterBlindCopyTo(
  3306.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  3307. RemoveNoteItems
  3308. $HideMailHeader
  3309. Moods
  3310. PostedDate
  3311. SenderTag
  3312. Moods
  3313.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  3314. Bodyz
  3315. Lotus Product
  3316. OBJECT
  3317. Lotus ProductQ
  3318. V0.0L
  3319. J,|}8r
  3320. J,|}8r
  3321. ^,|J,|
  3322. JT~KD~-
  3323. JT~KD~-
  3324. KD~-<
  3325. ~}8rKD~-`
  3326. Lotus Product
  3327. OBJECT
  3328. Lotus Product
  3329. OBJECT
  3330. Lotus Product
  3331. OBJECT
  3332. Lotus Product
  3333. OBJECT
  3334. Lotus Product1
  3335. KV0.0}
  3336. Kl*,|$}0
  3337. Kl*U|*
  3338. Kl*,|$}`
  3339. Kl*,|$}
  3340.  -$&#,
  3341.  -$&#,|$}p
  3342.  -$&#,
  3343.  -$&#,
  3344.  -$&#,|$}p
  3345.  -$&#,
  3346.  -$&#,|$}
  3347. Discard Changes
  3348. MEMO_CANCEL
  3349. 4194304
  3350.     0S0E
  3351. ActionInProgress
  3352. MEMO_CANCEL
  3353.     0R1S
  3354. IsMailStationery
  3355.     1S2S3S
  3356. Save And Close
  3357. MEMO_DRAFT
  3358.     0S0E
  3359. ActionInProgress
  3360. MEMO_DRAFT
  3361.     0R1S
  3362. PostedDateh
  3363. IsMailStationery
  3364.     7S8S9S10S13S14S15S16S
  3365. Save And Fileu
  3366. MEMO_DRAFT_FILE
  3367.     0S0E
  3368. ActionInProgress
  3369. MEMO_DRAFT_FILE
  3370.     0R1S
  3371. PostedDateh
  3372. IsMailStationery
  3373.     7S8S9S10S13S14S15S16S
  3374. Close
  3375. MEMO_CANCEL
  3376. 4194304
  3377.     0S0E
  3378. ActionInProgress
  3379. MEMO_CANCEL
  3380.     0R1S
  3381. IsMailStationery
  3382.     0S1S2S
  3383. New Memo(
  3384.     0S0E
  3385. Reply\Reply
  3386. Reply
  3387.     0S0E
  3388. Reply\Reply with History
  3389. Reply with History
  3390. This document is truncated.
  3391.     4S8S10S13S
  3392. Reply with history
  3393. Reply\Reply to AllX
  3394. MailStEd
  3395.     0S0E
  3396. Reply
  3397. Reply\Reply to All with History
  3398. MailStEd
  3399.     0S0E
  3400. Reply with History
  3401. This document is truncated.
  3402.     0R4S8S10S13S
  3403. Reply with history
  3404. Categori_ze
  3405. _Edit Document
  3406. Send Docu_ment
  3407. Forward
  3408.     0S0E
  3409. ISMAILSTATIONERY
  3410.     1S2S
  3411. _Forward
  3412. Delete 
  3413.     0S0E
  3414. _Move To Folder...
  3415. _Remove From Folder
  3416. MEMO_SEND
  3417.     0S0E
  3418. ActionInProgress
  3419. MEMO_SEND
  3420.     0R1S
  3421. PostedDateh
  3422. IsMailStationery
  3423.     5S6S7S8S10S11S12S13S
  3424. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  3425. '++LotusScript Development Environment:2:5:(Forward):0:1
  3426. Declare Sub Click(Source As Button)
  3427. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3428. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3429. Private Sub BindEvents(Byval Objectname_ As String)
  3430.     Static Source As BUTTON
  3431.     Set Source = Bind(Objectname_)
  3432.     On Event Click From Source Call Click
  3433. End Sub
  3434. '++LotusScript Development Environment:2:2:Click:1:12
  3435. Sub Click(Source As Button)
  3436.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  3437.     Call cMemoObject.noteUIMemo.save()
  3438.     Call cMemoObject.noteUIMemo.close()    
  3439. End Sub
  3440. PostedDateh
  3441. IsMailStationery
  3442.     5S6S7S8S12S13S
  3443. Send and Filen
  3444. MEMO_SEND_FILE
  3445.     0S0E
  3446. ActionInProgress
  3447. MEMO_SEND_FILE
  3448.     0R1S
  3449. PostedDateh
  3450. IsMailStationery
  3451.     5S6S7S8S12S13S
  3452. MEMO_STATIONERYSAVE
  3453.     0S0E
  3454. ActionInProgress
  3455. MEMO_STATIONERYSAVE
  3456.     0R1S
  3457. IsMailStationery
  3458.     2S3S
  3459. Save As DraftI
  3460. MEMO_DRAFT
  3461.     0S0E
  3462. ActionInProgress
  3463. MEMO_DRAFT
  3464.     0R1S
  3465. PostedDateh
  3466. IsMailStationery
  3467.     5S6S7S8S10S11S12S13S
  3468. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  3469. '++LotusScript Development Environment:2:5:(Forward):0:1
  3470. Declare Sub Click(Source As Button)
  3471. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3472. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3473. Private Sub BindEvents(Byval Objectname_ As String)
  3474.     Static Source As BUTTON
  3475.     Set Source = Bind(Objectname_)
  3476.     On Event Click From Source Call Click
  3477. End Sub
  3478. '++LotusScript Development Environment:2:2:Click:1:12
  3479. Sub Click(Source As Button)
  3480.     Call cMemoObject.ReplyToAll()
  3481. End Sub
  3482. PostedDateh
  3483. IsMailStationery
  3484.     5S6S7S8S10S11S12S13S
  3485. Rename Stationery
  3486. xxTitle
  3487. Rename Stationery
  3488.     0S0E
  3489. xxPrompt
  3490. Please enter new stationery name.
  3491. MailStationeryName
  3492. xxTitle
  3493. xxPrompt
  3494. MailStationeryName
  3495.     0R1S
  3496.     0RS>
  3497. IsMailStationery
  3498.     2S3S4S5S
  3499. Address...T
  3500. EnterSendTo
  3501. EnterCopyTo
  3502. EnterBlindCopyTo
  3503.     0S0E
  3504. PostedDateh
  3505. IsMailStationery
  3506.     5S6S7S8S10S11S12S13S
  3507. Delivery Options...    ~
  3508. DeliveryOptions
  3509. Delivery Options
  3510.     0R4S10S
  3511. PostedDateh
  3512.     5S6S7S8S
  3513. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  3514. Use "CommonUI"
  3515. '++LotusScript Development Environment:2:5:(Forward):0:1
  3516. Declare Sub Click(Source As Button)
  3517. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3518. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3519. Private Sub BindEvents(Byval Objectname_ As String)
  3520. Static Source As BUTTON
  3521. Set Source = Bind(Objectname_)
  3522. On Event Click From Source Call Click
  3523. End Sub
  3524. '++LotusScript Development Environment:2:2:Click:1:12
  3525. Sub Click(Source As Button)
  3526.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  3527. End Sub
  3528. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  3529. Use "CommonUI"
  3530. '++LotusScript Development Environment:2:5:(Forward):0:1
  3531. Declare Sub Click(Source As Button)
  3532. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3533. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3534. Private Sub BindEvents(Byval Objectname_ As String)
  3535. Static Source As BUTTON
  3536. Set Source = Bind(Objectname_)
  3537. On Event Click From Source Call Click
  3538. End Sub
  3539. '++LotusScript Development Environment:2:2:Click:1:12
  3540. Sub Click(Source As Button)
  3541.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  3542. End Sub
  3543. Copy into\New To Do '++LotusScript Development Environment:2:5:(Options):0:74
  3544. Use "CommonUI"
  3545. '++LotusScript Development Environment:2:5:(Forward):0:1
  3546. Declare Sub Click(Source As Button)
  3547. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3548. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3549. Private Sub BindEvents(Byval Objectname_ As String)
  3550.     Static Source As BUTTON
  3551.     Set Source = Bind(Objectname_)
  3552.     On Event Click From Source Call Click
  3553. End Sub
  3554. '++LotusScript Development Environment:2:2:Click:1:12
  3555. Sub Click(Source As Button)
  3556.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  3557. End Sub
  3558. Tools\Preferences...2
  3559. (Preferences)
  3560.     0S0E
  3561. Tools\Delivery Information...e
  3562. xxTitle
  3563. Delivery Information
  3564.     0S0E
  3565. DeliveryInfo
  3566. xxTitle
  3567.     0RR4S5S6S7S8S9S10S11S12S14S
  3568. Tools\Out of Office...8
  3569. (EditOfficeProfile)
  3570.     0S0E
  3571. Tools\Add Sender to Address Book<
  3572. (AddSenderToAddressBook)
  3573.     0S0E
  3574. Tools\New Memo - Using Stationery
  3575. '++LotusScript Development Environment:2:5:(Options):0:66
  3576. '++LotusScript Development Environment:2:5:(Forward):0:1
  3577. Declare Sub Click(Source As Button)
  3578. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3579. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3580. Private Sub BindEvents(Byval Objectname_ As String)
  3581.     Static Source As BUTTON
  3582.     Set Source = Bind(Objectname_)
  3583.     On Event Click From Source Call Click
  3584. End Sub
  3585. '++LotusScript Development Environment:2:2:Click:1:12
  3586. Sub Click(Source As Button)
  3587.     Dim session As New notessession
  3588.     Dim uiws As New notesuiworkspace
  3589.     Dim collection As notesdocumentcollection
  3590.     Dim noteUIEditDocument As notesuidocument
  3591.     Dim database As NotesDatabase
  3592.     Set noteCursorDoc = session.currentdatabase.createdocument
  3593.     Set database = session.currentdatabase
  3594.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  3595.     Set noteCursorDoc = collection.getfirstdocument
  3596.     If Not noteCursorDoc Is Nothing Then
  3597.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  3598.     End If
  3599. End Sub
  3600. Tools\Insert Signature...
  3601. '++LotusScript Development Environment:2:5:(Options):0:66
  3602. '++LotusScript Development Environment:2:5:(Forward):0:1
  3603. Declare Sub Click(Source As Button)
  3604. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3605. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3606. Private Sub BindEvents(Byval Objectname_ As String)
  3607.     Static Source As BUTTON
  3608.     Set Source = Bind(Objectname_)
  3609.     On Event Click From Source Call Click
  3610. End Sub
  3611. '++LotusScript Development Environment:2:2:Click:1:12
  3612. Sub Click(Source As Button)
  3613.     Call cMemoObject.InsertSignature(False)
  3614. End Sub
  3615. PostedDateh
  3616.     5S6S7S8S
  3617. Tools\Save as Stationery...
  3618. MEMO_ISSTATIONERY
  3619.     0S0E
  3620. MEMO_STATIONERYSAVE
  3621. ActionInProgress
  3622. MEMO_STATIONERYSAVE
  3623.     0R1S
  3624. MergeFlag
  3625. MEMO_ISSTATIONERY
  3626.     0R1S
  3627. PostedDateh
  3628. IsMailStationery
  3629.     5S6S7S8S10S11S12S13S
  3630. New Memo(
  3631.     0S0E
  3632. Forwardu
  3633.     1S10S14S16S23S
  3634. path"
  3635. /Memo?OpenForm&UNID="
  3636. &forward"
  3637. Send\Send `
  3638. tmpSendOptions
  3639. Send\Send and Save`
  3640. tmpSendOptions
  3641. Send\Save as Draft`
  3642. tmpSendOptions
  3643. Reply\Reply?*
  3644. wReply
  3645.     0S0E
  3646. Reply\Reply with HistoryV
  3647.     1S10S14S16S23S
  3648. Format
  3649. CalendarProfile
  3650. FormatReplies
  3651.     0R6S
  3652. Format
  3653. path"
  3654. /Reply+With+History?OpenForm&
  3655. &Format
  3656. Reply With History
  3657.     0R9S10S11S12S13S14S21S23S24S
  3658. Reply\Reply to All
  3659.     0R1S10S14S16S23S
  3660. path"
  3661. /wReply?OpenForm&
  3662. &All"
  3663.     0R3S4S5S6S7S8S15S17S18S
  3664. Reply\Reply to All with Historyl
  3665.     1S10S14S16S23S
  3666. Format
  3667. CalendarProfile
  3668. FormatReplies
  3669.     0R6S
  3670. Format
  3671. path"
  3672. /Reply+With+History?OpenForm&
  3673. &Format&All
  3674. path"
  3675. /Reply+With+History?OpenForm&
  3676. &All"
  3677.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  3678. Edit 
  3679.     0S0E
  3680. Delete
  3681.     1S10S14S16S23S
  3682.     0R5S
  3683. path"
  3684. /wDelete?OpenAgent&
  3685. UNID"
  3686. Inbox.
  3687.     1S2S
  3688. path"
  3689. /MailFS?OpenFrameset"
  3690.     0R3S4S5S6S
  3691. Next 
  3692.     0S0E
  3693. Previous 
  3694.     0S0E
  3695. Discard Changes
  3696. MEMO_CANCEL
  3697. 4194304
  3698.     0S0E
  3699. ActionInProgress
  3700. MEMO_CANCEL
  3701.     0R1S
  3702. IsMailStationery
  3703.     1S2S3S
  3704. Save And Close
  3705. MEMO_DRAFT
  3706.     0S0E
  3707. ActionInProgress
  3708. MEMO_DRAFT
  3709.     0R1S
  3710. PostedDateh
  3711. IsMailStationery
  3712.     7S8S9S10S13S14S15S16S
  3713. act_save.GIF|act_CSSAVE?
  3714. Save And File
  3715. MEMO_DRAFT_FILE
  3716.     0S0E
  3717. ActionInProgress
  3718. MEMO_DRAFT_FILE
  3719.     0R1S
  3720. PostedDateh
  3721. IsMailStationery
  3722.     7S8S9S10S13S14S15S16S
  3723. act_FOLDER.GIF|act_FOLDER?
  3724. Closer
  3725. MEMO_CANCEL
  3726. 4194304
  3727.     0S0E
  3728. ActionInProgress
  3729. MEMO_CANCEL
  3730.     0R1S
  3731. IsMailStationery
  3732.     0S1S2S
  3733. New Memo(
  3734.     0S0E
  3735. act_NEWMEMO.GIF|act_NEWMEMO?
  3736. Reply\Replym0
  3737. Reply
  3738.     0S0E
  3739. act_REPLY.GIF|act_REPLY?
  3740. Reply\Reply with History
  3741. Reply with History
  3742. This document is truncated.
  3743.     4S8S10S13S
  3744. Reply with history
  3745. act_REPLY.GIF|act_REPLY?
  3746. Reply\Reply to AllX
  3747. MailStEd
  3748.     0S0E
  3749. Reply
  3750. act_REPLY.GIF|act_REPLY?
  3751. Reply\Reply to All with History
  3752. MailStEd
  3753.     0S0E
  3754. Reply with History
  3755. This document is truncated.
  3756.     0R4S8S10S13S
  3757. Reply with history
  3758. act_REPLY.GIF|act_REPLY?
  3759. Categori_ze
  3760. _Edit Document
  3761. Send Docu_ment
  3762. Forwardc 
  3763.     0S0E
  3764. ISMAILSTATIONERY
  3765.     1S2S
  3766. act_FORWARD.GIF|act_FORWARD?
  3767. _Forward
  3768. Delete 
  3769.     0S0E
  3770. act_DELETE.GIF|act_DELETE?
  3771. _Move To Folder...
  3772. _Remove From FolderK
  3773. MEMO_SEND
  3774.     0S0E
  3775. ActionInProgress
  3776. MEMO_SEND
  3777.     0R1S
  3778. PostedDateh
  3779. IsMailStationery
  3780.     5S6S7S8S10S11S12S13S
  3781. act_SEND.GIF|act_SEND?
  3782. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  3783. '++LotusScript Development Environment:2:5:(Forward):0:1
  3784. Declare Sub Click(Source As Button)
  3785. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3786. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3787. Private Sub BindEvents(Byval Objectname_ As String)
  3788.     Static Source As BUTTON
  3789.     Set Source = Bind(Objectname_)
  3790.     On Event Click From Source Call Click
  3791. End Sub
  3792. '++LotusScript Development Environment:2:2:Click:1:12
  3793. Sub Click(Source As Button)
  3794.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  3795.     Call cMemoObject.noteUIMemo.save()
  3796.     Call cMemoObject.noteUIMemo.close()    
  3797. End Sub
  3798. PostedDateh
  3799. IsMailStationery
  3800.     5S6S7S8S12S13S
  3801. Send and Fileh
  3802. MEMO_SEND_FILE
  3803.     0S0E
  3804. ActionInProgress
  3805. MEMO_SEND_FILE
  3806.     0R1S
  3807. PostedDateh
  3808. IsMailStationery
  3809.     5S6S7S8S12S13S
  3810. act_SEND.GIF|act_SEND?
  3811. MEMO_STATIONERYSAVE
  3812.     0S0E
  3813. ActionInProgress
  3814. MEMO_STATIONERYSAVE
  3815.     0R1S
  3816. IsMailStationery
  3817.     2S3S
  3818. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  3819. Save As Draft
  3820. MEMO_DRAFT
  3821.     0S0E
  3822. ActionInProgress
  3823. MEMO_DRAFT
  3824.     0R1S
  3825. PostedDateh
  3826. IsMailStationery
  3827.     5S6S7S8S10S11S12S13S
  3828. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  3829. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  3830. '++LotusScript Development Environment:2:5:(Forward):0:1
  3831. Declare Sub Click(Source As Button)
  3832. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3833. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3834. Private Sub BindEvents(Byval Objectname_ As String)
  3835.     Static Source As BUTTON
  3836.     Set Source = Bind(Objectname_)
  3837.     On Event Click From Source Call Click
  3838. End Sub
  3839. '++LotusScript Development Environment:2:2:Click:1:12
  3840. Sub Click(Source As Button)
  3841.     Call cMemoObject.ReplyToAll()
  3842. End Sub
  3843. PostedDateh
  3844. IsMailStationery
  3845.     5S6S7S8S10S11S12S13S
  3846. act_REPLY.GIF|act_REPLY?
  3847. Rename Stationery
  3848. xxTitle
  3849. Rename Stationery
  3850.     0S0E
  3851. xxPrompt
  3852. Please enter new stationery name.
  3853. MailStationeryName
  3854. xxTitle
  3855. xxPrompt
  3856. MailStationeryName
  3857.     0R1S
  3858.     0RS>
  3859. IsMailStationery
  3860.     2S3S4S5S
  3861. act_RENAME.GIF|act_RENAME?
  3862. Address...T
  3863. EnterSendTo
  3864. EnterCopyTo
  3865. EnterBlindCopyTo
  3866.     0S0E
  3867. PostedDateh
  3868. IsMailStationery
  3869.     5S6S7S8S10S11S12S13S
  3870. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  3871. Delivery Options...
  3872. DeliveryOptions
  3873. Delivery Options
  3874.     0R4S10S
  3875. PostedDateh
  3876.     5S6S7S8S
  3877. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  3878. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  3879. Use "CommonUI"
  3880. '++LotusScript Development Environment:2:5:(Forward):0:1
  3881. Declare Sub Click(Source As Button)
  3882. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3883. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3884. Private Sub BindEvents(Byval Objectname_ As String)
  3885. Static Source As BUTTON
  3886. Set Source = Bind(Objectname_)
  3887. On Event Click From Source Call Click
  3888. End Sub
  3889. '++LotusScript Development Environment:2:2:Click:1:12
  3890. Sub Click(Source As Button)
  3891.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  3892. End Sub
  3893. act_COPYINTO.GIF|act_COPYINTO?
  3894. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  3895. Use "CommonUI"
  3896. '++LotusScript Development Environment:2:5:(Forward):0:1
  3897. Declare Sub Click(Source As Button)
  3898. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3899. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3900. Private Sub BindEvents(Byval Objectname_ As String)
  3901. Static Source As BUTTON
  3902. Set Source = Bind(Objectname_)
  3903. On Event Click From Source Call Click
  3904. End Sub
  3905. '++LotusScript Development Environment:2:2:Click:1:12
  3906. Sub Click(Source As Button)
  3907.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  3908. End Sub
  3909. act_COPYINTO.GIF|act_COPYINTO?
  3910. Copy into\New To Do7'++LotusScript Development Environment:2:5:(Options):0:74
  3911. Use "CommonUI"
  3912. '++LotusScript Development Environment:2:5:(Forward):0:1
  3913. Declare Sub Click(Source As Button)
  3914. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3915. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3916. Private Sub BindEvents(Byval Objectname_ As String)
  3917.     Static Source As BUTTON
  3918.     Set Source = Bind(Objectname_)
  3919.     On Event Click From Source Call Click
  3920. End Sub
  3921. '++LotusScript Development Environment:2:2:Click:1:12
  3922. Sub Click(Source As Button)
  3923.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  3924. End Sub
  3925. act_COPYINTO.GIF|act_COPYINTO?
  3926. Tools\Preferences...2
  3927. (Preferences)
  3928.     0S0E
  3929. act_TOOLS.GIF|act_TOOLS?
  3930. Tools\Delivery Information...
  3931. xxTitle
  3932. Delivery Information
  3933.     0S0E
  3934. DeliveryInfo
  3935. xxTitle
  3936.     0RR4S5S6S7S8S9S10S11S12S14S
  3937. act_TOOLS.GIF|act_TOOLS?
  3938. Tools\Out of Office...8
  3939. (EditOfficeProfile)
  3940.     0S0E
  3941. act_TOOLS.GIF|act_TOOLS?
  3942. Tools\Add Sender to Address Book<
  3943. (AddSenderToAddressBook)
  3944.     0S0E
  3945. act_TOOLS.GIF|act_TOOLS?
  3946. Tools\New Memo - Using Stationery
  3947. '++LotusScript Development Environment:2:5:(Options):0:66
  3948. '++LotusScript Development Environment:2:5:(Forward):0:1
  3949. Declare Sub Click(Source As Button)
  3950. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3951. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3952. Private Sub BindEvents(Byval Objectname_ As String)
  3953.     Static Source As BUTTON
  3954.     Set Source = Bind(Objectname_)
  3955.     On Event Click From Source Call Click
  3956. End Sub
  3957. '++LotusScript Development Environment:2:2:Click:1:12
  3958. Sub Click(Source As Button)
  3959.     Dim session As New notessession
  3960.     Dim uiws As New notesuiworkspace
  3961.     Dim collection As notesdocumentcollection
  3962.     Dim noteUIEditDocument As notesuidocument
  3963.     Dim database As NotesDatabase
  3964.     Set noteCursorDoc = session.currentdatabase.createdocument
  3965.     Set database = session.currentdatabase
  3966.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  3967.     Set noteCursorDoc = collection.getfirstdocument
  3968.     If Not noteCursorDoc Is Nothing Then
  3969.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  3970.     End If
  3971. End Sub
  3972. act_TOOLS.GIF|act_TOOLS?
  3973. Tools\Insert Signature...B'++LotusScript Development Environment:2:5:(Options):0:66
  3974. '++LotusScript Development Environment:2:5:(Forward):0:1
  3975. Declare Sub Click(Source As Button)
  3976. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3977. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3978. Private Sub BindEvents(Byval Objectname_ As String)
  3979.     Static Source As BUTTON
  3980.     Set Source = Bind(Objectname_)
  3981.     On Event Click From Source Call Click
  3982. End Sub
  3983. '++LotusScript Development Environment:2:2:Click:1:12
  3984. Sub Click(Source As Button)
  3985.     Call cMemoObject.InsertSignature(False)
  3986. End Sub
  3987. PostedDateh
  3988.     5S6S7S8S
  3989. act_TOOLS.GIF|act_TOOLS?
  3990. Tools\Save as Stationery...
  3991. MEMO_ISSTATIONERY
  3992.     0S0E
  3993. MEMO_STATIONERYSAVE
  3994. ActionInProgress
  3995. MEMO_STATIONERYSAVE
  3996.     0R1S
  3997. MergeFlag
  3998. MEMO_ISSTATIONERY
  3999.     0R1S
  4000. PostedDateh
  4001. IsMailStationery
  4002.     5S6S7S8S10S11S12S13S
  4003. act_TOOLS.GIF|act_TOOLS?
  4004. New Memo(
  4005.     0S0E
  4006. act_NEW.GIF|act_NEW?
  4007. Forward
  4008.     1S10S14S16S23S
  4009. path"
  4010. /Memo?OpenForm&UNID="
  4011. &forward"
  4012. act_FORWARD.GIF|act_FORWARD?
  4013. Send\Send.`
  4014. tmpSendOptions
  4015. act_SEND.GIF|act_SEND?
  4016. Send\Send and Save`
  4017. tmpSendOptions
  4018. act_SEND.GIF|act_SEND?
  4019. Send\Save as Draft`
  4020. tmpSendOptions
  4021. act_SEND.GIF|act_SEND?
  4022. Reply\Reply
  4023. wReply
  4024.     0S0E
  4025. act_REPLY.GIF|act_REPLY?
  4026. Reply\Reply with HistoryV
  4027.     1S10S14S16S23S
  4028. Format
  4029. CalendarProfile
  4030. FormatReplies
  4031.     0R6S
  4032. Format
  4033. path"
  4034. /Reply+With+History?OpenForm&
  4035. &Format
  4036. Reply With History
  4037.     0R9S10S11S12S13S14S21S23S24S
  4038. act_REPLY.GIF|act_REPLY?
  4039. Reply\Reply to All
  4040.     0R1S10S14S16S23S
  4041. path"
  4042. /wReply?OpenForm&
  4043. &All"
  4044.     0R3S4S5S6S7S8S15S17S18S
  4045. Reply\Reply to All with History#
  4046.     1S10S14S16S23S
  4047. Format
  4048. CalendarProfile
  4049. FormatReplies
  4050.     0R6S
  4051. Format
  4052. path"
  4053. /Reply+With+History?OpenForm&
  4054. &Format&All
  4055. path"
  4056. /Reply+With+History?OpenForm&
  4057. &All"
  4058.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  4059. Address...
  4060. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  4061. var pathname = (window.location.pathname);
  4062. if (navigator.appName =='Netscape') {
  4063. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  4064.     } else {
  4065. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  4066. Delivery Options...
  4067. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  4068. var pathname = (window.location.pathname);
  4069. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  4070. Edit 
  4071.     0S0E
  4072. act_EDIT.GIF|act_EDIT?
  4073. Delete
  4074.     1S10S14S16S23S
  4075.     0R5S
  4076. path"
  4077. /wDelete?OpenAgent&
  4078. UNID"
  4079. act_DELETE.GIF|act_DELETE?
  4080. InboxA
  4081.     1S2S
  4082. path"
  4083. /MailFS?OpenFrameset"
  4084.     0R3S4S5S6S
  4085. act_NEWMAIL.GIF|act_NEWMAIL?
  4086. Copy Into\New Task
  4087. act_COPYINTO.GIF|act_COPYINTO?
  4088. var pathname = window.location.pathname
  4089. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  4090. window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
  4091. Copy Into\New Calendar Entry
  4092. act_COPYINTO.GIF|act_COPYINTO?
  4093. alert('Feature in Progress')
  4094. Next 
  4095.     0S0E
  4096. Previous 
  4097.     0S0E
  4098. O=Lotus Notes
  4099. O=Lotus Notes
  4100. PURSAFO
  4101. |.:#U
  4102. O=Lotus Notes
  4103. CN=Lotus Notes Template Development/O=Lotus Notes
  4104. PURSAFO
  4105. $Background
  4106. $HeaderArea
  4107. $RegionFrameset
  4108. $INFO
  4109. $SubForms
  4110. $WINDOWTITLE
  4111. $WEBQuerySave
  4112. $WEBQueryOpen
  4113. $AppHelpFormula
  4114. $WebFlags
  4115. $Script
  4116. $$Script_O
  4117. $$ScriptName
  4118. $$FormScript
  4119. $$$FormScript_O
  4120. $BODY
  4121. $SCRIPTOBJ_18
  4122. $SCRIPTOBJ_22
  4123. $SCRIPTOBJ_26
  4124. $SCRIPTOBJ_27
  4125. $SCRIPTOBJ_28
  4126. $SCRIPTOBJ_33
  4127. $SCRIPTOBJ_34
  4128. $ACTIONS
  4129. $V5ACTIONS
  4130. xxNewToDo
  4131. New To Do Item
  4132.     1S2S
  4133. xxOldToTo
  4134. To Do Item- 
  4135. Subject
  4136.     0R1S2S3S4S
  4137. xxNewToDo
  4138. xxOldToDo
  4139. TaskType
  4140. principal
  4141. chair
  4142. NoticeType
  4143. Broadcast
  4144. (Help)
  4145. MAIL_F_TASK_REC
  4146. (Help)
  4147. MAIL_F_TASK_REC_BRD
  4148. (Help)
  4149. MAIL_F_TASK_REC_MOD
  4150. (Help)
  4151. MAIL_F_TASK
  4152. (Help)
  4153. MAIL_F_TASK
  4154.     3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
  4155. Option Public
  4156. Option Explicit    
  4157. Use "CSUIDocClass"
  4158. '++LotusScript Development Environment:2:5:(Forward):0:1
  4159. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4160. Dim uitaskdoc As UIEventDocument
  4161. Lotus Product
  4162. [D!Kp -
  4163. "Kp -$
  4164. K("St
  4165.  Task'++LotusScript Development Environment:2:5:(Options):0:66
  4166. '++LotusScript Development Environment:2:5:(Forward):0:1
  4167. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  4168. Declare Sub Postopen(Source As Notesuidocument)
  4169. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  4170. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  4171. Declare Sub Postsave(Source As Notesuidocument)
  4172. Declare Sub Postrecalc(Source As Notesuidocument)
  4173. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  4174. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4175. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4176. Private Sub BindEvents(Byval Objectname_ As String)
  4177.     Static Source As NOTESUIDOCUMENT
  4178.     Set Source = Bind(Objectname_)
  4179.     On Event Queryopen From Source Call Queryopen
  4180.     On Event Postopen From Source Call Postopen
  4181.     On Event Querysave From Source Call Querysave
  4182.     On Event Queryclose From Source Call Queryclose
  4183.     On Event Postsave From Source Call Postsave
  4184.     On Event Postrecalc From Source Call Postrecalc
  4185.     On Event Querymodechange From Source Call Querymodechange
  4186. End Sub
  4187. '++LotusScript Development Environment:2:2:Queryopen:1:12
  4188. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  4189.     If (source.inpreviewpane) Then Exit Sub
  4190.     Set uitaskdoc = CSUIDocOpen(2, source, mode, isnewdoc, continue)
  4191. End Sub
  4192. '++LotusScript Development Environment:2:2:Postopen:1:12
  4193. Sub Postopen(Source As Notesuidocument)
  4194.     If (source.InPreviewPane) Then Exit Sub
  4195.     Call uitaskdoc.PostOpen()
  4196. End Sub
  4197. '++LotusScript Development Environment:2:2:Querysave:1:12
  4198. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  4199.     If (source.InPreviewPane) Then Exit Sub
  4200.     Call uitaskdoc.QuerySave( Continue)
  4201. End Sub
  4202. '++LotusScript Development Environment:2:2:Queryclose:1:12
  4203. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  4204.     If (source.InPreviewPane) Then Exit Sub
  4205.     If (uitaskdoc.WasSaved) Then Call uitaskdoc.QueryClose(continue)    
  4206. End Sub
  4207. '++LotusScript Development Environment:2:2:Postsave:1:12
  4208. Sub Postsave(Source As Notesuidocument)
  4209.     If (source.InPreviewPane) Then Exit Sub
  4210.     Call uitaskdoc.PostSave() 
  4211. End Sub
  4212. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  4213. Sub Postrecalc(Source As Notesuidocument)
  4214.     Dim note As notesdocument
  4215.     If (source.InPreviewPane) Then Exit Sub
  4216.     Set note = source.document
  4217.     Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
  4218.     Call uitaskdoc.PostRecalc()
  4219. End Sub
  4220. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  4221. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  4222.     If (source.InPreviewPane) Then conitnue = False
  4223. End Sub
  4224. Lotus Product
  4225. OBJECT
  4226. X    X    l
  4227. Notes
  4228. (wCSItems)
  4229.     3S4S
  4230.     Always Hidden: 
  4231. Principal
  4232. CalendarProfile
  4233. Owner
  4234.     1S2S3S7S
  4235. FromPerson memo is from.
  4236.     0S0E
  4237.     0S0E
  4238. Encrypt
  4239.     0S0E
  4240. DefaultMailSaveOptions
  4241. $KeepPrivate
  4242. $KeepPrivate
  4243. $KeepPrivate
  4244.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  4245. $ExpandGroups
  4246. TaskType
  4247. tmpOwner
  4248. Chair
  4249.     8S11S12S21S22S
  4250. tmpOwner
  4251. Chair
  4252.     8S11S12S21S22S
  4253. tmpOwnerHW
  4254. tmpDoNotProcess
  4255. tmpOwner
  4256. BlindCopyTo
  4257.     3S4S6S8S17S18S28S
  4258. tmpDoNotProcess
  4259. tmpOwner
  4260. BlindCopyTo
  4261.     3S4S6S8S17S18S28StmpNoActionBar
  4262. DialogButton Address.GIF|Address
  4263. SendTo
  4264.     0S0E
  4265.     Assign To:
  4266. TaskType
  4267. tmpOwnerHW
  4268.     1S2S3S4S5S6S
  4269. TaskType
  4270. tmpOwnerHW
  4271.     1S2S3S4S5S6S
  4272. TaskType
  4273. tmpOwnerHW
  4274.     1S2S3S4S5S6S
  4275. SendToz
  4276. size=80
  4277.     Subject:
  4278. Subject
  4279. size=40
  4280.     Starts:
  4281. Startdate
  4282. StartDateTime
  4283. StartDate
  4284.     3S4S6S8S
  4285. StartDate
  4286.     Priority:
  4287. Importance
  4288. High|1Medium|2Low|3None|99
  4289.     Due:
  4290. DueDate
  4291. DueDateTime
  4292. DueDate
  4293.     3S4S5S6S8S
  4294. xxFailed
  4295. Due date cannot occur prior to Start date.
  4296.     1S2S
  4297. StartDate
  4298. DueDate
  4299. DueDate
  4300. StartDate
  4301. xxFailed{
  4302.     0R3S4S5S6S7S8S10S12S13S14S16S21S
  4303. DueDate
  4304.     Status:
  4305. Status
  4306. Not Started|0In Progress|1On hold|2Completed|3
  4307.     Owner:
  4308. Chair
  4309. tmpChair
  4310. Repeats
  4311. OrgRepeat
  4312. Repeats
  4313.     7S14S16S19SRepeats
  4314. Recurring entry|1
  4315. Repeats
  4316.     1S2S
  4317. '++LotusScript Development Environment:2:5:(Options):0:66
  4318. '++LotusScript Development Environment:2:5:(Forward):0:1
  4319. Declare Sub Click(Source As Button)
  4320. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4321. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4322. Private Sub BindEvents(Byval Objectname_ As String)
  4323.     Static Source As BUTTON
  4324.     Set Source = Bind(Objectname_)
  4325.     On Event Click From Source Call Click
  4326. End Sub
  4327. '++LotusScript Development Environment:2:2:Click:1:12
  4328. Sub Click(Source As Button)
  4329.     Call uitaskdoc.UIObject.RepeatDialog()
  4330. End Sub
  4331. Lotus Product
  4332. New Button
  4333. Need a newer version of Notes to execute this button.
  4334.     0S0E
  4335.     Settings...
  4336. New Button
  4337. Need a newer version of Notes to execute this button.
  4338.     0S0E
  4339. displayDialog("(RepeatForm)", "","", "Repeat Options",500,500)
  4340.     Repeats
  4341. tmpWasMailedY
  4342. principal
  4343.     4S5S15S16S
  4344.     Sent by:
  4345. tmpWasMailedY
  4346. principal
  4347.     4S5S15S16S
  4348. tmpSentBy
  4349. tmpWasMailedY
  4350. principal
  4351.     4S5S15S16S
  4352. tmpWasMailedY
  4353. principal
  4354.     4S5S15S16S
  4355. Basics
  4356. tmpWasMailedY
  4357.     0S0E
  4358. TaskType
  4359.     1S2S
  4360.     Existing Participants
  4361. AssignedTo^
  4362.     0S0E
  4363. tmpRequired
  4364. OptionalAssignedTo^
  4365.     0S0E
  4366. tmpOptional
  4367. tmpWasMailedY
  4368.     0S0E
  4369.     bcc:
  4370. FYIAssignedTo
  4371.     0S0E
  4372. tmpFYI
  4373. tmpWasMailedY
  4374. tmpownerhw
  4375.     4S5S6S7S
  4376. '++LotusScript Development Environment:2:5:(Options):0:66
  4377. '++LotusScript Development Environment:2:5:(Forward):0:1
  4378. Declare Sub Click(Source As Button)
  4379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4381. Private Sub BindEvents(Byval Objectname_ As String)
  4382. Static Source As BUTTON
  4383. Set Source = Bind(Objectname_)
  4384. On Event Click From Source Call Click
  4385. End Sub
  4386. '++LotusScript Development Environment:2:2:Click:1:12
  4387. Sub Click(Source As Button)
  4388.     Call uitaskdoc.UIObject.RemoveParticipants()
  4389. End Sub
  4390. Lotus Product
  4391. [D!Kp -
  4392. "Kp -$
  4393. K("St
  4394. New Button
  4395. Need a newer version of Notes to execute this button.
  4396.     0S0E
  4397.     Remove...
  4398.     Participants
  4399. DialogButton Address.GIF|Address
  4400. CopyTo
  4401.     0S0E
  4402. CopyTo
  4403. DialogButton Address.GIF|Address
  4404.     0S0E
  4405.     bcc:
  4406. BlindCopyTo
  4407.     Options
  4408.     Access:
  4409. OrgConfidential
  4410. Mark Private|1
  4411.     (others cannot see any details about this event)
  4412.     Alarms:
  4413. AlarmsY
  4414. $Alarmh
  4415. Alarms
  4416.     7S14S16S19SAlarms
  4417. Notify me|1
  4418. Alarms
  4419.     1S2S
  4420. '++LotusScript Development Environment:2:5:(Options):0:66
  4421. '++LotusScript Development Environment:2:5:(Forward):0:1
  4422. Declare Sub Click(Source As Button)
  4423. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4424. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4425. Private Sub BindEvents(Byval Objectname_ As String)
  4426.     Static Source As BUTTON
  4427.     Set Source = Bind(Objectname_)
  4428.     On Event Click From Source Call Click
  4429. End Sub
  4430. '++LotusScript Development Environment:2:2:Click:1:12
  4431. Sub Click(Source As Button)
  4432.     Call uitaskdoc.UIObject.AlarmDialog()
  4433. End Sub
  4434. Lotus Product
  4435. [D!Kp -
  4436. "Kp -$
  4437. K("St
  4438. New Button
  4439. Need a newer version of Notes to execute this button.
  4440.     0S0E
  4441.     Settings...
  4442.     Category:
  4443. Categories
  4444. xxNotesCats
  4445. Holiday|H
  4446. Vacation|V
  4447. Projects|P
  4448. Clients|C
  4449. Phone Calls|PC
  4450. Travel|T
  4451.     1S2S
  4452. xxNotesCats
  4453. CalendarProfile
  4454. UserCategories
  4455. Details
  4456. Categori_zeK
  4457. _Edit Document
  4458. Send Docu_ment
  4459. _Forward
  4460. _Move To Folder...
  4461. _Remove From FolderK
  4462.     4S11S16S19S*
  4463. tmpOwnerHW
  4464.     1S2S
  4465. act_ok.GIF|act_CSOK?
  4466. Discard ChangesKF
  4467. SaveOptions
  4468.     1S2S3S
  4469. tmpOwnerHW
  4470.     1S2S
  4471. act_discardchanges.GIF|act_CSDISCARD
  4472. Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:66
  4473. '++LotusScript Development Environment:2:5:(Forward):0:1
  4474. Declare Sub Click(Source As Button)
  4475. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4476. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4477. Private Sub BindEvents(Byval Objectname_ As String)
  4478.     Static Source As BUTTON
  4479.     Set Source = Bind(Objectname_)
  4480.     On Event Click From Source Call Click
  4481. End Sub
  4482. '++LotusScript Development Environment:2:2:Click:1:12
  4483. Sub Click(Source As Button)
  4484.     Call uitaskdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)
  4485. End Sub
  4486. tmpWasMailedY
  4487. tmpowner
  4488. chair
  4489.     4S5S6S7S
  4490. Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:66
  4491. '++LotusScript Development Environment:2:5:(Forward):0:1
  4492. Declare Sub Click(Source As Button)
  4493. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4494. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4495. Private Sub BindEvents(Byval Objectname_ As String)
  4496.     Static Source As BUTTON
  4497.     Set Source = Bind(Objectname_)
  4498.     On Event Click From Source Call Click
  4499. End Sub
  4500. '++LotusScript Development Environment:2:2:Click:1:12
  4501. Sub Click(Source As Button)
  4502.     Call uitaskdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1) 
  4503. End Sub
  4504. tmpWasMailedY
  4505. tmpowner
  4506. chair
  4507.     4S5S6S7S
  4508. Actions\ConfirmK'++LotusScript Development Environment:2:5:(Options):0:66
  4509. '++LotusScript Development Environment:2:5:(Forward):0:1
  4510. Declare Sub Click(Source As Button)
  4511. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4512. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4513. Private Sub BindEvents(Byval Objectname_ As String)
  4514.     Static Source As BUTTON
  4515.     Set Source = Bind(Objectname_)
  4516.     On Event Click From Source Call Click
  4517. End Sub
  4518. '++LotusScript Development Environment:2:2:Click:1:12
  4519. Sub Click(Source As Button)
  4520.     Dim uievent As UIEventObject
  4521.     Set uievent = uicsdoc.uiobject
  4522.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 0) Then
  4523.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  4524.     End If
  4525. End Sub
  4526. tmpWasMailedY
  4527. tmpowner
  4528. chair
  4529.     4S5S6S7S
  4530. Actions\View Participant StatusK'++LotusScript Development Environment:2:5:(Options):0:66
  4531. '++LotusScript Development Environment:2:5:(Forward):0:1
  4532. Declare Sub Click(Source As Button)
  4533. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4534. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4535. Private Sub BindEvents(Byval Objectname_ As String)
  4536. Static Source As BUTTON
  4537. Set Source = Bind(Objectname_)
  4538. On Event Click From Source Call Click
  4539. End Sub
  4540. '++LotusScript Development Environment:2:2:Click:1:12
  4541. Sub Click(Source As Button)
  4542.     Call uitaskdoc.uiobject.ViewParticipantStatus()
  4543. End Sub
  4544. tmpWasMailedY
  4545. tmpowner
  4546. chair
  4547.     4S5S6S7S
  4548. Actions\Send Memo to Participants
  4549. '++LotusScript Development Environment:2:5:(Options):0:66
  4550. '++LotusScript Development Environment:2:5:(Forward):0:1
  4551. Declare Sub Click(Source As Button)
  4552. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4553. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4554. Private Sub BindEvents(Byval Objectname_ As String)
  4555. Static Source As BUTTON
  4556. Set Source = Bind(Objectname_)
  4557. On Event Click From Source Call Click
  4558. End Sub
  4559. '++LotusScript Development Environment:2:2:Click:1:12
  4560. Sub Click(Source As Button)
  4561.     Call uitaskdoc.uiobject.creatememo(True)
  4562. End Sub
  4563. tmpWasMailedY
  4564. tmpowner
  4565. chair
  4566.     4S5S6S7S
  4567. Completed
  4568. tmpAction
  4569. 4194306
  4570.     1S2S3S
  4571.     0R7S
  4572. NoticeType
  4573. TaskType
  4574.     1S2S3S4S5S6S
  4575. act_completed.GIF|act_CSCOMPLETED?
  4576. Delivery Options...KP
  4577. (C&S DeliveryOptions)
  4578. tmpOwner
  4579. Chair
  4580. TaskType
  4581.     1S2S3S4S5S6S
  4582. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  4583. '++LotusScript Development Environment:2:5:(Forward):0:1
  4584. Declare Sub Click(Source As Button)
  4585. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4586. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4587. Private Sub BindEvents(Byval Objectname_ As String)
  4588. Static Source As BUTTON
  4589. Set Source = Bind(Objectname_)
  4590. On Event Click From Source Call Click
  4591. End Sub
  4592. '++LotusScript Development Environment:2:2:Click:1:12
  4593. Sub Click(Source As Button)
  4594.     Dim uidoc As NotesUIDocument
  4595.     Dim uiobject As Variant
  4596.     Dim nResult As Integer
  4597.     Set uiobject = uitaskdoc.UIObject
  4598.     Set uidoc = uitaskdoc.UIDocument     
  4599.     If (uiobject.OkToAccept(False)) Then
  4600.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  4601.         Call uidoc.save
  4602.         Call uidoc.close
  4603.     End If    
  4604. End Sub
  4605. tmpNoActionBar
  4606. tmpOwnerHW
  4607. NoticeType
  4608. Broadcast
  4609.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4610. Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
  4611. '++LotusScript Development Environment:2:5:(Forward):0:1
  4612. Declare Sub Click(Source As Button)
  4613. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4614. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4615. Private Sub BindEvents(Byval Objectname_ As String)
  4616.     Static Source As BUTTON
  4617.     Set Source = Bind(Objectname_)
  4618.     On Event Click From Source Call Click
  4619. End Sub
  4620. '++LotusScript Development Environment:2:2:Click:1:12
  4621. Sub Click(Source As Button)
  4622.     uitaskdoc.uiobject.SendComments = False    
  4623.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  4624. End Sub
  4625. tmpNoActionBar
  4626. tmpOwnerHW
  4627. NoticeType
  4628. Broadcast
  4629.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4630. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  4631. '++LotusScript Development Environment:2:5:(Forward):0:1
  4632. Declare Sub Click(Source As Button)
  4633. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4634. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4635. Private Sub BindEvents(Byval Objectname_ As String)
  4636.     Static Source As BUTTON
  4637.     Set Source = Bind(Objectname_)
  4638.     On Event Click From Source Call Click
  4639. End Sub
  4640. '++LotusScript Development Environment:2:2:Click:1:12
  4641. Sub Click(Source As Button)
  4642.     uitaskdoc.uiobject.SendComments = False    
  4643.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  4644. End Sub
  4645. tmpNoActionBar
  4646. tmpOwnerHW
  4647. Broadcast
  4648. PreventDelegate
  4649.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  4650. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  4651. '++LotusScript Development Environment:2:5:(Forward):0:1
  4652. Declare Sub Click(Source As Button)
  4653. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4654. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4655. Private Sub BindEvents(Byval Objectname_ As String)
  4656.     Static Source As BUTTON
  4657.     Set Source = Bind(Objectname_)
  4658.     On Event Click From Source Call Click
  4659. End Sub
  4660. '++LotusScript Development Environment:2:2:Click:1:12
  4661. Sub Click(Source As Button)
  4662.     uitaskdoc.uiobject.SendComments = False    
  4663.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  4664. End Sub
  4665. tmpNoActionBar
  4666. tmpOwnerHW
  4667. Broadcast
  4668. PreventCounter
  4669.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4670. Respond\Completed
  4671. '++LotusScript Development Environment:2:5:(Options):0:66
  4672. '++LotusScript Development Environment:2:5:(Forward):0:1
  4673. Declare Sub Click(Source As Button)
  4674. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4675. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4676. Private Sub BindEvents(Byval Objectname_ As String)
  4677.     Static Source As BUTTON
  4678.     Set Source = Bind(Objectname_)
  4679.     On Event Click From Source Call Click
  4680. End Sub
  4681. '++LotusScript Development Environment:2:2:Click:1:12
  4682. Sub Click(Source As Button)
  4683.     uitaskdoc.uiobject.SendComments = False    
  4684.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  4685. End Sub
  4686. tmpNoActionBar
  4687. tmpOwnerHW
  4688. NoticeType
  4689. Broadcast
  4690.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4691. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  4692. '++LotusScript Development Environment:2:5:(Forward):0:1
  4693. Declare Sub Click(Source As Button)
  4694. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4695. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4696. Private Sub BindEvents(Byval Objectname_ As String)
  4697. Static Source As BUTTON
  4698. Set Source = Bind(Objectname_)
  4699. On Event Click From Source Call Click
  4700. End Sub
  4701. '++LotusScript Development Environment:2:2:Click:1:12
  4702. Sub Click(Source As Button)
  4703.     Dim uidoc As NotesUIDocument
  4704.     Dim uiobject As Variant
  4705.     Dim nResult As Integer
  4706.     Set uiobject = uitaskdoc.UIObject
  4707.     Set uidoc = uitaskdoc.UIDocument     
  4708.     If (uiobject.OkToAccept(True)) Then
  4709.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  4710.         Call uidoc.save
  4711.         Call uidoc.close
  4712.     End If    
  4713. End Sub
  4714. tmpNoActionBar
  4715. tmpOwnerHW
  4716. NoticeType
  4717. Broadcast
  4718.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  4719. Respond with Comments\Decline
  4720. '++LotusScript Development Environment:2:5:(Options):0:66
  4721. '++LotusScript Development Environment:2:5:(Forward):0:1
  4722. Declare Sub Click(Source As Button)
  4723. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4724. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4725. Private Sub BindEvents(Byval Objectname_ As String)
  4726.     Static Source As BUTTON
  4727.     Set Source = Bind(Objectname_)
  4728.     On Event Click From Source Call Click
  4729. End Sub
  4730. '++LotusScript Development Environment:2:2:Click:1:12
  4731. Sub Click(Source As Button)
  4732.     uitaskdoc.uiobject.SendComments = True
  4733.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  4734. End Sub
  4735. tmpNoActionBar
  4736. tmpOwnerHW
  4737. NoticeType
  4738. Broadcast
  4739.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  4740. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  4741. '++LotusScript Development Environment:2:5:(Forward):0:1
  4742. Declare Sub Click(Source As Button)
  4743. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4744. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4745. Private Sub BindEvents(Byval Objectname_ As String)
  4746.     Static Source As BUTTON
  4747.     Set Source = Bind(Objectname_)
  4748.     On Event Click From Source Call Click
  4749. End Sub
  4750. '++LotusScript Development Environment:2:2:Click:1:12
  4751. Sub Click(Source As Button)
  4752.     uitaskdoc.uiobject.SendComments = True
  4753.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  4754. End Sub
  4755. tmpNoActionBar
  4756. tmpOwnerHW
  4757. Broadcast
  4758. PreventDelegate
  4759.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4760. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  4761. '++LotusScript Development Environment:2:5:(Forward):0:1
  4762. Declare Sub Click(Source As Button)
  4763. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4764. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4765. Private Sub BindEvents(Byval Objectname_ As String)
  4766.     Static Source As BUTTON
  4767.     Set Source = Bind(Objectname_)
  4768.     On Event Click From Source Call Click
  4769. End Sub
  4770. '++LotusScript Development Environment:2:2:Click:1:12
  4771. Sub Click(Source As Button)
  4772.     uitaskdoc.uiobject.SendComments = True
  4773.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  4774. End Sub
  4775. tmpNoActionBar
  4776. tmpOwnerHW
  4777. Broadcast
  4778. PreventCounter
  4779.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4780. Respond with Comments\CompletedK'++LotusScript Development Environment:2:5:(Options):0:66
  4781. '++LotusScript Development Environment:2:5:(Forward):0:1
  4782. Declare Sub Click(Source As Button)
  4783. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4784. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4785. Private Sub BindEvents(Byval Objectname_ As String)
  4786.     Static Source As BUTTON
  4787.     Set Source = Bind(Objectname_)
  4788.     On Event Click From Source Call Click
  4789. End Sub
  4790. '++LotusScript Development Environment:2:2:Click:1:12
  4791. Sub Click(Source As Button)
  4792.     uitaskdoc.uiobject.SendComments = True
  4793.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  4794. End Sub
  4795. tmpNoActionBar
  4796. tmpOwnerHW
  4797. NoticeType
  4798. Broadcast
  4799.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  4800. Add to To Do List
  4801. tmpAction
  4802.  2097154
  4803.     1S2S
  4804. Broadcast
  4805. tmpNoActionBar
  4806. tmpOwnerHW
  4807.     1S2S3S4S5S6S7S8S9S10S
  4808. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  4809. '++LotusScript Development Environment:2:5:(Forward):0:1
  4810. Declare Sub Click(Source As Button)
  4811. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4812. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4813. Private Sub BindEvents(Byval Objectname_ As String)
  4814.     Static Source As BUTTON
  4815.     Set Source = Bind(Objectname_)
  4816.     On Event Click From Source Call Click
  4817. End Sub
  4818. '++LotusScript Development Environment:2:2:Click:1:12
  4819. Sub Click(Source As Button)
  4820.     Dim uievent As UIEventObject
  4821.     Set uievent = uitaskdoc.UIObject
  4822.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
  4823.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  4824.     End If
  4825. End Sub
  4826. tmpOwnerHW
  4827. tasktype
  4828.     1S2S3S4S5S6S
  4829. Address...H
  4830. TaskType
  4831. tmpOwnerHW
  4832.     1S2S3S4S5S6S
  4833. var pathname = (window.location.pathname);
  4834. if (navigator.appName =='Netscape') {
  4835. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  4836.     } else {
  4837. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  4838. Edit 
  4839.     0S0E
  4840. act_EDIT.GIF|act_EDIT?
  4841. Inbox
  4842.     1S2S
  4843. path"
  4844. /MailFS?OpenFrameset"
  4845.     0R3S4S5S6S
  4846. act_NEWMAIL.GIF|act_NEWMAIL?
  4847. Delete
  4848.     1S10S14S16S23S
  4849.     0R5S
  4850. path"
  4851. /wDelete?OpenAgent&
  4852. UNID"
  4853. act_DELETE.GIF|act_DELETE?
  4854. Next 
  4855.     0S0E
  4856. Previous 
  4857.     0S0E
  4858. Categori_zeK
  4859. _Edit Document
  4860. Send Docu_ment
  4861. _Forward
  4862. _Move To Folder...
  4863. _Remove From FolderK
  4864.     4S11S16S19S*
  4865. tmpOwnerHW
  4866.     1S2S
  4867. Discard ChangesKF
  4868. SaveOptions
  4869.     1S2S3S
  4870. tmpOwnerHW
  4871.     1S2S
  4872. Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:66
  4873. '++LotusScript Development Environment:2:5:(Forward):0:1
  4874. Declare Sub Click(Source As Button)
  4875. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4876. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4877. Private Sub BindEvents(Byval Objectname_ As String)
  4878.     Static Source As BUTTON
  4879.     Set Source = Bind(Objectname_)
  4880.     On Event Click From Source Call Click
  4881. End Sub
  4882. '++LotusScript Development Environment:2:2:Click:1:12
  4883. Sub Click(Source As Button)
  4884.     Call uitaskdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)
  4885. End Sub
  4886. tmpWasMailedY
  4887. tmpowner
  4888. chair
  4889.     4S5S6S7S
  4890. Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:66
  4891. '++LotusScript Development Environment:2:5:(Forward):0:1
  4892. Declare Sub Click(Source As Button)
  4893. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4894. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4895. Private Sub BindEvents(Byval Objectname_ As String)
  4896.     Static Source As BUTTON
  4897.     Set Source = Bind(Objectname_)
  4898.     On Event Click From Source Call Click
  4899. End Sub
  4900. '++LotusScript Development Environment:2:2:Click:1:12
  4901. Sub Click(Source As Button)
  4902.     Call uitaskdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1) 
  4903. End Sub
  4904. tmpWasMailedY
  4905. tmpowner
  4906. chair
  4907.     4S5S6S7S
  4908. Actions\ConfirmK'++LotusScript Development Environment:2:5:(Options):0:66
  4909. '++LotusScript Development Environment:2:5:(Forward):0:1
  4910. Declare Sub Click(Source As Button)
  4911. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4912. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4913. Private Sub BindEvents(Byval Objectname_ As String)
  4914.     Static Source As BUTTON
  4915.     Set Source = Bind(Objectname_)
  4916.     On Event Click From Source Call Click
  4917. End Sub
  4918. '++LotusScript Development Environment:2:2:Click:1:12
  4919. Sub Click(Source As Button)
  4920.     Dim uievent As UIEventObject
  4921.     Set uievent = uicsdoc.uiobject
  4922.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 0) Then
  4923.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  4924.     End If
  4925. End Sub
  4926. tmpWasMailedY
  4927. tmpowner
  4928. chair
  4929.     4S5S6S7S
  4930. Actions\View Participant StatusK'++LotusScript Development Environment:2:5:(Options):0:66
  4931. '++LotusScript Development Environment:2:5:(Forward):0:1
  4932. Declare Sub Click(Source As Button)
  4933. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4934. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4935. Private Sub BindEvents(Byval Objectname_ As String)
  4936. Static Source As BUTTON
  4937. Set Source = Bind(Objectname_)
  4938. On Event Click From Source Call Click
  4939. End Sub
  4940. '++LotusScript Development Environment:2:2:Click:1:12
  4941. Sub Click(Source As Button)
  4942.     Call uitaskdoc.uiobject.ViewParticipantStatus()
  4943. End Sub
  4944. tmpWasMailedY
  4945. tmpowner
  4946. chair
  4947.     4S5S6S7S
  4948. Actions\Send Memo to Participants
  4949. '++LotusScript Development Environment:2:5:(Options):0:66
  4950. '++LotusScript Development Environment:2:5:(Forward):0:1
  4951. Declare Sub Click(Source As Button)
  4952. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4953. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4954. Private Sub BindEvents(Byval Objectname_ As String)
  4955. Static Source As BUTTON
  4956. Set Source = Bind(Objectname_)
  4957. On Event Click From Source Call Click
  4958. End Sub
  4959. '++LotusScript Development Environment:2:2:Click:1:12
  4960. Sub Click(Source As Button)
  4961.     Call uitaskdoc.uiobject.creatememo(True)
  4962. End Sub
  4963. tmpWasMailedY
  4964. tmpowner
  4965. chair
  4966.     4S5S6S7S
  4967. Completed
  4968. tmpAction
  4969. 4194306
  4970.     1S2S3S
  4971.     0R7S
  4972. NoticeType
  4973. TaskType
  4974.     1S2S3S4S5S6S
  4975. Delivery Options...KP
  4976. (C&S DeliveryOptions)
  4977. tmpOwner
  4978. Chair
  4979. TaskType
  4980.     1S2S3S4S5S6S
  4981. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  4982. '++LotusScript Development Environment:2:5:(Forward):0:1
  4983. Declare Sub Click(Source As Button)
  4984. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4985. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4986. Private Sub BindEvents(Byval Objectname_ As String)
  4987. Static Source As BUTTON
  4988. Set Source = Bind(Objectname_)
  4989. On Event Click From Source Call Click
  4990. End Sub
  4991. '++LotusScript Development Environment:2:2:Click:1:12
  4992. Sub Click(Source As Button)
  4993.     Dim uidoc As NotesUIDocument
  4994.     Dim uiobject As Variant
  4995.     Dim nResult As Integer
  4996.     Set uiobject = uitaskdoc.UIObject
  4997.     Set uidoc = uitaskdoc.UIDocument     
  4998.     If (uiobject.OkToAccept(False)) Then
  4999.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  5000.         Call uidoc.save
  5001.         Call uidoc.close
  5002.     End If    
  5003. End Sub
  5004. tmpNoActionBar
  5005. tmpOwnerHW
  5006. NoticeType
  5007. Broadcast
  5008.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5009. Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
  5010. '++LotusScript Development Environment:2:5:(Forward):0:1
  5011. Declare Sub Click(Source As Button)
  5012. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5013. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5014. Private Sub BindEvents(Byval Objectname_ As String)
  5015.     Static Source As BUTTON
  5016.     Set Source = Bind(Objectname_)
  5017.     On Event Click From Source Call Click
  5018. End Sub
  5019. '++LotusScript Development Environment:2:2:Click:1:12
  5020. Sub Click(Source As Button)
  5021.     uitaskdoc.uiobject.SendComments = False    
  5022.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  5023. End Sub
  5024. tmpNoActionBar
  5025. tmpOwnerHW
  5026. NoticeType
  5027. Broadcast
  5028.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5029. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  5030. '++LotusScript Development Environment:2:5:(Forward):0:1
  5031. Declare Sub Click(Source As Button)
  5032. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5033. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5034. Private Sub BindEvents(Byval Objectname_ As String)
  5035.     Static Source As BUTTON
  5036.     Set Source = Bind(Objectname_)
  5037.     On Event Click From Source Call Click
  5038. End Sub
  5039. '++LotusScript Development Environment:2:2:Click:1:12
  5040. Sub Click(Source As Button)
  5041.     uitaskdoc.uiobject.SendComments = False    
  5042.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  5043. End Sub
  5044. tmpNoActionBar
  5045. tmpOwnerHW
  5046. Broadcast
  5047. PreventDelegate
  5048.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  5049. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  5050. '++LotusScript Development Environment:2:5:(Forward):0:1
  5051. Declare Sub Click(Source As Button)
  5052. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5053. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5054. Private Sub BindEvents(Byval Objectname_ As String)
  5055.     Static Source As BUTTON
  5056.     Set Source = Bind(Objectname_)
  5057.     On Event Click From Source Call Click
  5058. End Sub
  5059. '++LotusScript Development Environment:2:2:Click:1:12
  5060. Sub Click(Source As Button)
  5061.     uitaskdoc.uiobject.SendComments = False    
  5062.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  5063. End Sub
  5064. tmpNoActionBar
  5065. tmpOwnerHW
  5066. Broadcast
  5067. PreventCounter
  5068.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5069. Respond\Completed
  5070. '++LotusScript Development Environment:2:5:(Options):0:66
  5071. '++LotusScript Development Environment:2:5:(Forward):0:1
  5072. Declare Sub Click(Source As Button)
  5073. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5074. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5075. Private Sub BindEvents(Byval Objectname_ As String)
  5076.     Static Source As BUTTON
  5077.     Set Source = Bind(Objectname_)
  5078.     On Event Click From Source Call Click
  5079. End Sub
  5080. '++LotusScript Development Environment:2:2:Click:1:12
  5081. Sub Click(Source As Button)
  5082.     uitaskdoc.uiobject.SendComments = False    
  5083.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  5084. End Sub
  5085. tmpNoActionBar
  5086. tmpOwnerHW
  5087. NoticeType
  5088. Broadcast
  5089.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5090. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  5091. '++LotusScript Development Environment:2:5:(Forward):0:1
  5092. Declare Sub Click(Source As Button)
  5093. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5094. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5095. Private Sub BindEvents(Byval Objectname_ As String)
  5096. Static Source As BUTTON
  5097. Set Source = Bind(Objectname_)
  5098. On Event Click From Source Call Click
  5099. End Sub
  5100. '++LotusScript Development Environment:2:2:Click:1:12
  5101. Sub Click(Source As Button)
  5102.     Dim uidoc As NotesUIDocument
  5103.     Dim uiobject As Variant
  5104.     Dim nResult As Integer
  5105.     Set uiobject = uitaskdoc.UIObject
  5106.     Set uidoc = uitaskdoc.UIDocument     
  5107.     If (uiobject.OkToAccept(True)) Then
  5108.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  5109.         Call uidoc.save
  5110.         Call uidoc.close
  5111.     End If    
  5112. End Sub
  5113. tmpNoActionBar
  5114. tmpOwnerHW
  5115. NoticeType
  5116. Broadcast
  5117.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  5118. Respond with Comments\Decline
  5119. '++LotusScript Development Environment:2:5:(Options):0:66
  5120. '++LotusScript Development Environment:2:5:(Forward):0:1
  5121. Declare Sub Click(Source As Button)
  5122. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5123. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5124. Private Sub BindEvents(Byval Objectname_ As String)
  5125.     Static Source As BUTTON
  5126.     Set Source = Bind(Objectname_)
  5127.     On Event Click From Source Call Click
  5128. End Sub
  5129. '++LotusScript Development Environment:2:2:Click:1:12
  5130. Sub Click(Source As Button)
  5131.     uitaskdoc.uiobject.SendComments = True
  5132.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  5133. End Sub
  5134. tmpNoActionBar
  5135. tmpOwnerHW
  5136. NoticeType
  5137. Broadcast
  5138.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  5139. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  5140. '++LotusScript Development Environment:2:5:(Forward):0:1
  5141. Declare Sub Click(Source As Button)
  5142. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5143. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5144. Private Sub BindEvents(Byval Objectname_ As String)
  5145.     Static Source As BUTTON
  5146.     Set Source = Bind(Objectname_)
  5147.     On Event Click From Source Call Click
  5148. End Sub
  5149. '++LotusScript Development Environment:2:2:Click:1:12
  5150. Sub Click(Source As Button)
  5151.     uitaskdoc.uiobject.SendComments = True
  5152.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  5153. End Sub
  5154. tmpNoActionBar
  5155. tmpOwnerHW
  5156. Broadcast
  5157. PreventDelegate
  5158.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5159. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  5160. '++LotusScript Development Environment:2:5:(Forward):0:1
  5161. Declare Sub Click(Source As Button)
  5162. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5163. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5164. Private Sub BindEvents(Byval Objectname_ As String)
  5165.     Static Source As BUTTON
  5166.     Set Source = Bind(Objectname_)
  5167.     On Event Click From Source Call Click
  5168. End Sub
  5169. '++LotusScript Development Environment:2:2:Click:1:12
  5170. Sub Click(Source As Button)
  5171.     uitaskdoc.uiobject.SendComments = True
  5172.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  5173. End Sub
  5174. tmpNoActionBar
  5175. tmpOwnerHW
  5176. Broadcast
  5177. PreventCounter
  5178.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5179. Respond with Comments\CompletedK'++LotusScript Development Environment:2:5:(Options):0:66
  5180. '++LotusScript Development Environment:2:5:(Forward):0:1
  5181. Declare Sub Click(Source As Button)
  5182. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5183. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5184. Private Sub BindEvents(Byval Objectname_ As String)
  5185.     Static Source As BUTTON
  5186.     Set Source = Bind(Objectname_)
  5187.     On Event Click From Source Call Click
  5188. End Sub
  5189. '++LotusScript Development Environment:2:2:Click:1:12
  5190. Sub Click(Source As Button)
  5191.     uitaskdoc.uiobject.SendComments = True
  5192.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  5193. End Sub
  5194. tmpNoActionBar
  5195. tmpOwnerHW
  5196. NoticeType
  5197. Broadcast
  5198.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  5199. Add to To Do List
  5200. tmpAction
  5201.  2097154
  5202.     1S2S
  5203. Broadcast
  5204. tmpNoActionBar
  5205. tmpOwnerHW
  5206.     1S2S3S4S5S6S7S8S9S10S
  5207. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  5208. '++LotusScript Development Environment:2:5:(Forward):0:1
  5209. Declare Sub Click(Source As Button)
  5210. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5211. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5212. Private Sub BindEvents(Byval Objectname_ As String)
  5213.     Static Source As BUTTON
  5214.     Set Source = Bind(Objectname_)
  5215.     On Event Click From Source Call Click
  5216. End Sub
  5217. '++LotusScript Development Environment:2:2:Click:1:12
  5218. Sub Click(Source As Button)
  5219.     Dim uievent As UIEventObject
  5220.     Set uievent = uitaskdoc.UIObject
  5221.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
  5222.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  5223.     End If
  5224. End Sub
  5225. tmpOwnerHW
  5226. tasktype
  5227.     1S2S3S4S5S6S
  5228. Edit 
  5229.     0S0E
  5230. Inbox
  5231.     1S2S
  5232. path"
  5233. /MailFS?OpenFrameset"
  5234.     0R3S4S5S6S
  5235. Delete
  5236.     1S10S14S16S23S
  5237.     0R5S
  5238. path"
  5239. /wDelete?OpenAgent&
  5240. UNID"
  5241. Next 
  5242.     0S0E
  5243. Previous 
  5244.     0S0E
  5245. Lotus Product
  5246. Lotus Product
  5247. #V0.0
  5248. Lotus Product
  5249. [D!Kp -
  5250. "Kp -$
  5251. K("St
  5252. Lotus Product
  5253. Lotus Product
  5254. #V0.0
  5255. Lotus Product
  5256. [D!Kp -
  5257. "Kp -$
  5258. K("St
  5259. Lotus Product
  5260. Lotus Product
  5261. #V0.0
  5262. Lotus Product
  5263. [D!Kp -
  5264. "Kp -$
  5265. K("St
  5266. Lotus Product
  5267. Lotus Product
  5268. #V0.0
  5269. Lotus Product
  5270. [D!Kp -
  5271. "Kp -$
  5272. K("St
  5273. Lotus Product
  5274. Lotus Product
  5275. #V0.0
  5276. Lotus Product
  5277. [D!Kp -
  5278. "Kp -$
  5279. K("St
  5280. Lotus Product
  5281. O=Lotus Notes
  5282. O=Lotus Notes
  5283. PURSAFO
  5284. |.:#U
  5285. O=Lotus Notes
  5286. CN=Lotus Notes Template Development/O=Lotus Notes
  5287. PURSAFO
  5288. ASSIGNSTATE
  5289. StartDateTime
  5290. DueDateTime
  5291. $HTMLDocumentStyles
  5292. $INFO
  5293. $WINDOWTITLE
  5294. $AppHelpFormula
  5295. $Script
  5296. $$Script_O
  5297. $$ScriptName
  5298. $$FormScript
  5299. $$$FormScript_O
  5300. StartDate
  5301. DueDate
  5302. $BODY
  5303. $V5ACTIONS
  5304. $ACTIONS
  5305. $SCRIPTOBJ_8
  5306. $SCRIPTOBJ_9
  5307. $SCRIPTOBJ_10
  5308. $SCRIPTOBJ_11
  5309. $SCRIPTOBJ_12
  5310. $SCRIPTOBJ_15
  5311. $SCRIPTOBJ_16
  5312. $SCRIPTOBJ_17
  5313. $SCRIPTOBJ_18
  5314. $SCRIPTOBJ_19
  5315. $SCRIPTOBJ_20
  5316. $SCRIPTOBJ_21
  5317. $SCRIPTOBJ_22
  5318. $SCRIPTOBJ_23
  5319. $SCRIPTOBJ_24
  5320. $SCRIPTOBJ_26
  5321. $PublicAccess
  5322. New Subscription
  5323. $HLTitle
  5324.     2S4S6S
  5325. "Small Fonts
  5326. '++LotusScript Development Environment:2:5:(Options):0:74
  5327. Option Public
  5328. '++LotusScript Development Environment:2:5:(Forward):0:1
  5329. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5330. $Subscription
  5331. $HLMLastServer
  5332. .,$ //:
  5333. $HLMLastChecked
  5334. .,$,  , :
  5335. $NoPurge
  5336. .,$,  , :
  5337. $HLType
  5338. Mail Subscription
  5339. xxDisabled
  5340. Disabled
  5341.     1S2S
  5342. $HlDisabled
  5343. xxDisabled"
  5344.     0R2S3S4S6S7S8S10SDispDisabled
  5345. MainTable
  5346. MainTable
  5347.     Name
  5348.     Subscription name:  
  5349. Enter a subscription name
  5350. $HLTitle
  5351.     Retrieval
  5352. $HLType
  5353.     1S2S
  5354.     Get:    
  5355. $QueryType
  5356. All incoming mail | allIncoming mail that matches any checked item: | sel
  5357. QueryType
  5358. QueryType
  5359. CritSentOnlyToMe
  5360. Sent only to me|1
  5361. CritSentDirectlyToMe
  5362. Sent directly to me (I am explicitly listed in the "To:" field)|1
  5363. CritHighPriority
  5364. High priority or importance |1
  5365. CritReturnReceipt
  5366. A return reciept is requested|1
  5367. CritToDo
  5368. To Dos assigned to me|1
  5369. CritToDoComplete
  5370. Completed To Dos|1
  5371. CritMeetInvite
  5372. Meeting invitations|1
  5373. CritMeetResponse
  5374. Meeting responses|1
  5375. CritFrom
  5376. From:|1
  5377. CritFrom
  5378.     1S2S
  5379. CritFromNames
  5380.       Enter the fully qualified name. (ex. "John Doe/Acme/Sales/US").  Separate multiple names with a comma.
  5381.     Enablement
  5382. $HLEnabled is the old enabled flag with a value of either 1 or 0.  For UI simplicity, it was changed to $HLDisabled with a possible value of either 1 or null
  5383. $HLEnabled
  5384.     0RR2S3S4S6S8S$HLDisabled
  5385. Temporarily disable this subscription | 1
  5386. Basics
  5387. basics
  5388. basics
  5389.     Last checked
  5390.     Time:    
  5391. .,$ //:
  5392. $HLMLastChecked
  5393. $HLMLastChecked
  5394.     2S3S4S6S8S
  5395. Disp$HLMLastChecked
  5396.     Server:    
  5397. $HLMLastChecked
  5398. $HLMLastServer
  5399. Local
  5400. $HLMLastServer
  5401.     2S3S4S6S8S9S10S12S14S18S
  5402. Disp$HLMLastServer
  5403. $HLMError
  5404.     1S2S
  5405.     Status:    
  5406. $HLMError
  5407. Disp$HLMError
  5408.     Additional information
  5409.     Replica Id:    
  5410. $HLMonitorDBh
  5411. $HLMonitorDB
  5412. Unavailable
  5413. $HLMonitorDB_Display
  5414.     Formula used:
  5415. $QueryType
  5416. Select @IsAvailable( DeliveredDate)
  5417. Continue
  5418.     2S3S4S6S8S9S11S
  5419. tCrit1
  5420. CritHighPriority
  5421. ( DeliveryPriority = "H" | Importance = "1")
  5422.     0RR1S2S4S5S6S8S10S
  5423. tCrit2
  5424. CritReturnReceipt
  5425. ( ReturnReciept = "1")
  5426.     0R1S2S4S5S6S8S10S
  5427. tCrit3
  5428. CritToDo
  5429. (Form = "Task" & AssignedState = "2")
  5430.     0R1S2S4S5S6S8S10S
  5431. tCrit4
  5432. CritToDo
  5433. (Form = "Task" & AssignedState = "9")
  5434.     0R1S2S4S5S6S8S10S
  5435. tCrit5
  5436. CritMeetInvite
  5437. (Form = "Notice" &  NoticeType = "I")
  5438.     0R1S2S4S5S6S8S10S
  5439. tCrit6
  5440. CritMeetInvite
  5441. (Form = "Notice" & NoticeType = "N")
  5442.     0R1S2S4S5S6S8S10S
  5443. tCrit7
  5444. CritFrom
  5445. (@LowerCase( From : AltFrom) = "
  5446. CritFromNames
  5447. " : "
  5448.     0R1S2S4S5S6S8S9S10R14S16S19S20S22S
  5449. tCrit8
  5450. CritSentOnlyToMe
  5451. (@LowerCase( SendTo) = "
  5452. " & @Elements(SendTo) = 1 & CopyTo = "")"
  5453.     0R1S2S4S5S6S8S9S10S12S14S15S17S
  5454. tCrit9
  5455. CritSentDirectlyToMe
  5456. (@LowerCase( SendTo) = "
  5457.     0R1S2S4S5S6S8S9S10S12S14S15S17S
  5458. tAllCrit
  5459. tCrit1
  5460. tCrit2
  5461. tCrit3
  5462. tCrit4
  5463. tCrit5
  5464. tCrit6
  5465. tCrit7
  5466. tCrit8
  5467. tCrit9
  5468.     0RR1S2S4S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S25S
  5469. Select @IsAvailable( DeliveredDate)
  5470. tAllCrit
  5471. tAllCrit"
  5472.     0RR1S2S4S5S6S8S10S11S12S13S14S
  5473. $HLFormula
  5474.     Marker:    
  5475. Subscriptions
  5476. $HLSubscription
  5477.     Monitor Type:    
  5478. $HLMonitorType
  5479. Advanced
  5480. Categori_zeK
  5481. _Edit Document
  5482. Send Docu_ment
  5483. _Forward
  5484. _Move To Folder...
  5485. _Remove From FolderK
  5486.     2S7S12S
  5487. CancelF
  5488. SaveOptions
  5489.     1S2S3S
  5490. Categori_zeK
  5491. _Edit Document
  5492. Send Docu_ment
  5493. _Forward
  5494. _Move To Folder...
  5495. _Remove From FolderK
  5496.     2S7S12S
  5497. CancelF
  5498. SaveOptions
  5499.     1S2S3S
  5500. O=Lotus Notes
  5501. O=Lotus Notes
  5502. PURSAFO
  5503. |.:#U
  5504. O=Lotus Notes
  5505. CN=Lotus Notes Template Development/O=Lotus Notes
  5506. PURSAFO
  5507. Untitled2
  5508. SizeValue
  5509. $INFO
  5510. $WINDOWTITLE
  5511. $Script
  5512. $$ScriptName
  5513. $HLMLastChecked
  5514. $BODY
  5515. $V5ACTIONS
  5516. $ACTIONS
  5517. *** Message Successfully Received ***
  5518. (Help)
  5519. MAIL_F_RETURN-RECEIPT
  5520.     0S0E
  5521.  Return Receipt
  5522. Return Receipt
  5523.         Your document:
  5524. Subject
  5525. Subject
  5526.         was received by:
  5527. IntendedRecipient
  5528. IntendedRecipient
  5529.         at:
  5530. DeliveryDate
  5531. Categori_zeK
  5532. Close
  5533.     0S0E
  5534. _Edit Document
  5535. Send Docu_ment
  5536. _Forward
  5537. _Move to Folder...
  5538. _Remove from Folder...
  5539. Inbox
  5540.     1S2S
  5541. path"
  5542. /MailFS?OpenFrameset"
  5543.     0R3S4S5S6S
  5544. act_NEWMAIL.GIF|act_NEWMAIL?
  5545. Delete
  5546.     1S10S14S16S23S
  5547.     0R5S
  5548. path"
  5549. /wDelete?OpenAgent&
  5550. UNID"
  5551. act_DELETE.GIF|act_DELETE?
  5552. Next 
  5553.     0S0E
  5554. Previous
  5555. Categori_zeK
  5556. Close
  5557.     0S0E
  5558. _Edit Document
  5559. Send Docu_ment
  5560. _Forward
  5561. _Move to Folder...
  5562. _Remove from Folder...
  5563. Inbox
  5564.     1S2S
  5565. path"
  5566. /MailFS?OpenFrameset"
  5567.     0R3S4S5S6S
  5568. Delete
  5569.     1S10S14S16S23S
  5570.     0R5S
  5571. path"
  5572. /wDelete?OpenAgent&
  5573. UNID"
  5574. Next 
  5575.     0S0E
  5576. Previous
  5577. O=Lotus Notes
  5578. O=Lotus Notes
  5579. PURSAFO
  5580. |.:#U
  5581. O=Lotus Notes
  5582. CN=Lotus Notes Template Development/O=Lotus Notes
  5583. PURSAFO
  5584. $INFO
  5585. $WINDOWTITLE
  5586. $AppHelpFormula
  5587. $$ScriptName
  5588. DeliveryDate
  5589. $BODY
  5590. $V5ACTIONS
  5591. $ACTIONS
  5592. wPreferencesSave
  5593. wPreferencesOpen
  5594. (Help)
  5595. MAIL_F_CALENDARPROFILE
  5596.     0S0E
  5597. &Arial
  5598. Times New Roman
  5599. 5Courier New
  5600. '++LotusScript Development Environment:2:5:(Options):0:74
  5601. '++LotusScript Development Environment:2:5:(Forward):0:1
  5602. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5603. Lotus Product
  5604.  CalendarProfile'++LotusScript Development Environment:2:5:(Options):0:66
  5605. '++LotusScript Development Environment:2:5:(Forward):0:1
  5606. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  5607. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5608. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5609. Private Sub BindEvents(Byval Objectname_ As String)
  5610.     Static Source As NOTESUIDOCUMENT
  5611.     Set Source = Bind(Objectname_)
  5612.     On Event Queryopen From Source Call Queryopen
  5613. End Sub
  5614. '++LotusScript Development Environment:2:2:Queryopen:1:12
  5615. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  5616.     Dim note As NotesDocument
  5617.     Dim ws As New notesuiworkspace
  5618.     Set note = source.document
  5619.     Call note.replaceitemvalue("tmpAlarmSounds", ws.getlistoftunes())
  5620. End Sub
  5621. Lotus Product
  5622. KV0.0
  5623. '++LotusScript Development Environment:2:5:(Options):0:66
  5624. '++LotusScript Development Environment:2:5:(Forward):0:1
  5625. Declare Sub Exiting(Source As Field)
  5626. Declare Sub Entering(Source As Field)
  5627. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5628. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5629. Private Sub BindEvents(Byval Objectname_ As String)
  5630.     Static Source As FIELD
  5631.     Set Source = Bind(Objectname_)
  5632.     On Event Exiting From Source Call Exiting
  5633.     On Event Entering From Source Call Entering
  5634. End Sub
  5635. '++LotusScript Development Environment:2:2:Exiting:1:12
  5636. Sub Exiting(Source As Field)
  5637.     'Should I clear the Signature location field here if I sense that the Option has been changed?
  5638.     Dim uiws As New notesuiworkspace
  5639.     Dim noteUIDoc As notesuidocument
  5640.     Set noteUIDoc = uiws.currentdocument
  5641.     If strSignatureOption <> noteUIDoc.FieldGetText("SignatureOption") Then
  5642.         Call noteUIDoc.FieldSetText("Signature","")
  5643.     End If
  5644. End Sub
  5645. '++LotusScript Development Environment:2:2:Entering:1:12
  5646. Sub Entering(Source As Field)
  5647.     Dim uiws As New notesuiworkspace
  5648.     Dim noteUIDoc As notesuidocument
  5649.     Set noteUIDoc = uiws.currentdocument
  5650.     strSignatureOption = noteUIDoc.FieldGetText("SignatureOption")
  5651. End Sub
  5652. Lotus Product
  5653. OBJECT
  5654. '++LotusScript Development Environment:2:5:(Options):0:66
  5655. '++LotusScript Development Environment:2:5:(Forward):0:1
  5656. Declare Sub Entering(Source As Field)
  5657. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5658. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5659. Private Sub BindEvents(Byval Objectname_ As String)
  5660.     Static Source As FIELD
  5661.     Set Source = Bind(Objectname_)
  5662.     On Event Entering From Source Call Entering
  5663. End Sub
  5664. '++LotusScript Development Environment:2:2:Entering:1:12
  5665. Sub Entering(Source As Field)
  5666. End Sub
  5667. Lotus Product
  5668. '++LotusScript Development Environment:2:5:(Options):0:66
  5669. '++LotusScript Development Environment:2:5:(Forward):0:1
  5670. Declare Sub Entering(Source As Field)
  5671. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5672. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5673. Private Sub BindEvents(Byval Objectname_ As String)
  5674.     Static Source As FIELD
  5675.     Set Source = Bind(Objectname_)
  5676.     On Event Entering From Source Call Entering
  5677. End Sub
  5678. '++LotusScript Development Environment:2:2:Entering:1:12
  5679. Sub Entering(Source As Field)
  5680. End Sub
  5681. Lotus Product
  5682. '++LotusScript Development Environment:2:5:(Options):0:66
  5683. '++LotusScript Development Environment:2:5:(Forward):0:1
  5684. Declare Sub Entering(Source As Field)
  5685. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5686. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5687. Private Sub BindEvents(Byval Objectname_ As String)
  5688.     Static Source As FIELD
  5689.     Set Source = Bind(Objectname_)
  5690.     On Event Entering From Source Call Entering
  5691. End Sub
  5692. '++LotusScript Development Environment:2:2:Entering:1:12
  5693. Sub Entering(Source As Field)
  5694. End Sub
  5695. Lotus Product
  5696. FromPerson memo is from.z
  5697. FromDomain
  5698. FromDomain
  5699. FromDomain
  5700. FromDomain
  5701.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  5702. FromName
  5703.     0RR1S2S6S
  5704. FromStops
  5705.     0R1S2S6S
  5706. FromName
  5707. FromStops
  5708.     0RR1S2S3S4S8StmpDisplayFrom_Previewz
  5709. tmpDisplayFrom_Preview
  5710. .,$ //:
  5711. PostedDateh
  5712. PostedDate
  5713.     7S9S
  5714. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  5715. tmpDisplayDate_Preview
  5716. tmpAlarmSounds
  5717. Path_Info
  5718. Path_Info
  5719. Query_String
  5720. Query_String
  5721. StdNotesLtr41
  5722. StdNotesLtr41
  5723. Black
  5724.     11S12S
  5725. BGTableColor
  5726. SignatureOption
  5727. DialogMode
  5728. DialogMode
  5729. Preference
  5730.     User configuration
  5731.     Owner of this mail file:
  5732. xxNO_OWNER
  5733. No owner has been specified for this mail file
  5734.     0S0E
  5735. Owner
  5736. xxNO_OWNER{
  5737.     0R3S4S5S
  5738. Owner
  5739. Owner
  5740. SpellCheck
  5741. Automatic Spell Checking|1z
  5742. SpellCheck
  5743. FormatReplies
  5744. Formatted Replies with an offset character|1
  5745. FormatReplies
  5746. OffSetChar
  5747. >|1<|2<<|3>>|4z
  5748. OffSetChar
  5749. Basics
  5750. DefaultLogo'
  5751. Bouncy Earth|StdNotesLtr1Buck Rogers Mail|StdNotesLtr2Centered and Bold|StdNotesLtr3Decco|StdNotesLtr4Falling Spheres|StdNotesLtr5First Initial|StdNotesLtr6Frank Lloyd|StdNotesLtr7From The Desk|StdNotesLtr8Gateway|StdNotesLtrGatewayGeometry |StdNotesLtr9Gray Gradient with Lines|StdNotesLtr13Green and Yellow Diamond|StdNotesLtr14Leaves|StdNotesLtr37Lightning Storm | StdNotesLtr36Marquee|StdNotesLtr34Metal Floor|StdNotesLtr41Metal Plate|StdNotesLtr15PC Board|StdNotesLtr40Pencil and Grid|StdNotesLtr16Plain Text|StdNotesLtr0Pony Express|StdNotesLtr17Primitive | StdNotesLtr38Purple Geometry|StdNotesLtr18Reversed Teal|StdNotesLtr20Slashed Lines with Globe|StdNotesLtr21Squiggle with Backdrop|StdNotesLtr22Squiggly Line|StdNotesLtr23Tacks|StdNotesLtr24Tape|StdNotesLtr25Teal and Yellow Lines|StdNotesLtr26Test Size Layout|StdNotesLtr100Three Dimensional Relief|StdNotesLtr27Torn Paper|StdNotesLtr28Triangle with Dots 1|StdNotesLtr29Triangle with Dots 2|StdNotesLtr30Triangles | StdNotesLtr35Waves | StdNotesLtr39Wild Confetti|StdNotesLtr32Yellow Gradient|StdNotesLtr33z
  5752. LetterHeadChoices
  5753. $HideMailHeader
  5754.     0S0E
  5755. tmpDisplayFrom_Preview
  5756. DisplayFrom
  5757. DisplayFrom
  5758. PostedDateh
  5759. PostedDate
  5760.     4S5S10S12S
  5761. DisplayDateTime/date memo was created or mailed.z
  5762. DisplayDate
  5763. $HideMailHeader
  5764. StdNotesLtr16
  5765.     7S9S10S11S13S15S
  5766. BGTableColor
  5767. Letterhead
  5768. EnableSignature
  5769. Automatically append signature to my outgoing e-mail messages|1z
  5770. EnableSignature
  5771. SignatureOption
  5772. Text|1File|2
  5773. SignatureOption
  5774.     2S3S
  5775.     File: 
  5776. Signature_2
  5777. SignatureOption
  5778.     2S3S
  5779. '++LotusScript Development Environment:2:5:(Options):0:66
  5780. '++LotusScript Development Environment:2:5:(Forward):0:1
  5781. Declare Sub Click(Source As Button)
  5782. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5783. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5784. Private Sub BindEvents(Byval Objectname_ As String)
  5785.     Static Source As BUTTON
  5786.     Set Source = Bind(Objectname_)
  5787.     On Event Click From Source Call Click
  5788. End Sub
  5789. '++LotusScript Development Environment:2:2:Click:1:12
  5790. Sub Click(Source As Button)
  5791.     Dim uiws As New notesuiworkspace
  5792.     Dim noteUIDoc As notesuidocument
  5793.     Dim nSignatureOption As Integer
  5794.     Dim vSignatureLocation As Variant
  5795.     Dim vSignatureBody As Variant
  5796.     Dim nSuccess As Integer
  5797.     Set noteUIDoc = uiws.currentdocument
  5798.     vSignatureLocation = uiws.openfiledialog(False,"Title","Text Files|*.txt|HTML Files|*.htm|Bitmap|*.BMP||","","")
  5799.     If Isempty(vSignatureLocation) Then
  5800.         Redim vSignatureLocation(0)
  5801.     End If
  5802.     Call noteUIDoc.FieldSetText("Signature_2",Cstr(vSignatureLocation(0)))
  5803. End Sub
  5804. New Button
  5805. Need a newer version of Notes to execute this button.
  5806.     0S0E
  5807.     Browse...
  5808. SignatureOption
  5809.     2S3S
  5810. SignatureOption
  5811.     2S3S
  5812.     Signature:
  5813. SignatureOption
  5814.     2S3S
  5815. Signature_1
  5816. SignatureOption
  5817. Signature_1
  5818. Signature_2
  5819.     3S4S
  5820. Signature
  5821. Signature
  5822. Preference_1
  5823.     Defaults
  5824.     Calendar Entry type:
  5825. CalEntryType
  5826. CalEntryType
  5827.     3S4S
  5828. CalEntryType
  5829. Appointment|0Meeting Invitation|3Event|2Reminder|4Anniversary|1
  5830.     Appointment/Meeting time duration:
  5831. DefaultDuration
  5832. DefaultDuration
  5833. DefaultDuration
  5834.     3S4S5S6S7S8S9S10S12S
  5835. DefaultDuration
  5836.      (minutes)
  5837.     Anniversary yearly repeat:
  5838. .,$///:
  5839. AutoAnniversaryRepeat
  5840. AutoAnniversaryRepeat
  5841. AutoAnniversaryRepeat
  5842.     3S4S5S6S7S8S10S12S
  5843. AutoAnniversaryRepeat
  5844.      years
  5845. ExcludeFromAll
  5846. Prevent Calendar Entries from displaying in All Documents view|1
  5847. ExcludeFromSent
  5848. Prevent meeting invitations from displaying in Sent view|1
  5849.     Conflict Checking
  5850. ConflictMeeting
  5851. Enable for Appointments/Meetings|1
  5852. ConflictEvent
  5853. Enable for Events|1
  5854. ConflictAnniversary
  5855. Enable for Anniversaries|1
  5856.     Personal Categories
  5857. UserCategories
  5858. Basics
  5859.     Availability
  5860. Sunday
  5861. Sunday|1
  5862. Sunday
  5863.     1S2S
  5864. Size=40
  5865.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
  5866. Monday
  5867. Monday|2
  5868. Monday
  5869.     1S2S
  5870. Size=40
  5871.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
  5872. Tuesday
  5873. Tuesday|3
  5874. Tuesday
  5875.     1S2S
  5876. Size=40
  5877.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
  5878. Wednesday
  5879. Wednesday|4
  5880. Wednesday
  5881.     1S2S
  5882. Size=40
  5883.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
  5884. Thursday
  5885. Thursday|5
  5886. Thursday
  5887.     1S2S
  5888. Size=40
  5889.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
  5890. Friday
  5891. Friday|6
  5892. Friday
  5893.     1S2S
  5894. Size=40
  5895.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
  5896. Saturday
  5897. Saturday|7
  5898. Saturday
  5899.     1S2S
  5900. Size=40
  5901.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
  5902.     Only the following users can request my free time information:
  5903. AllowBusyAccess
  5904. Freetime
  5905. EnableAlarms
  5906. Enable alarm notifications|1
  5907. EnableAlarms
  5908.     1S2S
  5909.     Default Alarms
  5910. SetAlarmAppointment
  5911. Appointments/Meetings|1
  5912. EnableAlarms
  5913. SetAlarmAppointment
  5914.     1S2S3S4S5S6S
  5915. AppointmentLead
  5916. AppointmentLead
  5917.     3S4S
  5918. AppointmentLead
  5919.      minute(s) in advance
  5920. SetAlarmReminder
  5921. Reminders|1
  5922. EnableAlarms
  5923. SetAlarmReminder
  5924.     1S2S3S2E4S5S6S
  5925. ReminderLead
  5926. ReminderLead
  5927.     3S4S
  5928. ReminderLead
  5929.      minute(s) in advance
  5930. SetAlarmEvent
  5931. Events|1
  5932. EnableAlarms
  5933. SetAlarmEvent
  5934.     1S2S3S2E4S5S6S
  5935. EventLead
  5936. EventLead
  5937.     3S4S
  5938. EventLead
  5939.      day(s) in advance
  5940. SetAlarmAnniversary
  5941. Anniversaries|1
  5942. EnableAlarms
  5943. SetAlarmAnniversary
  5944.     1S2S3S2E4S5S6S
  5945. AnniversaryLead
  5946. AnniversaryLead
  5947.     3S4S
  5948. AnniversaryLead
  5949.      day(s) in advance
  5950. SetAlarmTask
  5951. Tasks|1
  5952. EnableAlarms
  5953. SetAlarmTask
  5954.     1S2S3S2E4S5S6S
  5955. .,$///:
  5956. TaskLead
  5957. TaskLead
  5958.     3S4S
  5959. TaskLead
  5960.      day(s) in advance of due date
  5961.     Default sound:
  5962. AlarmSound
  5963. tmpAlarmSounds
  5964. Alarms
  5965.     Calendar View Display
  5966.     Time Slot Start:
  5967. .,$ //:
  5968. CalendarTimeSlotStart
  5969.     Time Slot End:
  5970. .,$ //:
  5971. CalendarTimeSlotEnd
  5972.     Time Slot Interval:
  5973. CalendarTimeSlotDuration
  5974. 15 minutes|1530 minutes|3060 minutes|60
  5975. Views
  5976. AutoProcessMeetings
  5977.     1S2S
  5978. AutoProcessType
  5979. AutoProcessType
  5980.     3S4S6S8S
  5981. AutoProcessType
  5982. Do not automatically process meeting requests|DAutoprocess meeting requests from all users|0Autoprocess meeting requests from the following users|2Forward meeting requests to the following person|1
  5983. AutoProcessType
  5984.     1S2S
  5985. AutoprocessUserList
  5986. AutoProcessType
  5987.     1S2S
  5988. Size=40
  5989. AutoProcessForwardTo
  5990. AutoRemoveFromInbox
  5991. Remove event requests from my Inbox after I respond to them|1
  5992. PreventRepliesFromInbox
  5993. Prevent event replies from appearing in my Inbox|1
  5994. Autoprocess
  5995. TaskFollow
  5996. Always show current To do's on today's calendar|1
  5997. To Do
  5998. Calendar
  5999. Calendar
  6000.     The following people/groups can:
  6001.     Read my mail and read my calendar:
  6002. ReadMailz
  6003. ReadMail
  6004.     Read and send mail on my behalf and read my calendar:
  6005. WriteMail
  6006. WriteMail
  6007.     Read, send, and edit any document in my mail file:
  6008. EditMailz
  6009. EditMail
  6010.     Delete mail and calendar entries (allowed for those who can send or edit mail)
  6011. DeleteMailz
  6012. DeleteMail
  6013. *Other (Designer or Manager)
  6014. .,$,  , :
  6015. OtherUsers
  6016.     0S0E
  6017. OtherUsers
  6018.     *These entries cannot be modified from this dialog
  6019. Mail Delegation
  6020.     Calendar Read Accesss
  6021. PublicRead
  6022.     3S4S
  6023. PublicRead
  6024. Everyone can read my calendar|1Only the following people/groups can read my calendar|0
  6025. PublicRead
  6026.     1S2S
  6027. ReadCalendar
  6028.     Calendar Create/Edit Access
  6029. PublicWrite
  6030.     3S4S
  6031. PublicWrite
  6032. Everyone can manage my calendar|1Only the following people/groups can manage my calendar|0
  6033. PublicWrite
  6034.     1S2S
  6035. WriteCalendar
  6036. Calendar Delegation
  6037. Delegation
  6038. Owner
  6039. $BusyName
  6040. $NoPurge
  6041. $NoPurge
  6042. Sunday
  6043. Monday
  6044. Tuesday
  6045. Wednesday
  6046. Thursday
  6047. Friday
  6048. Saturday
  6049.     0S0E
  6050. $AvailableDays
  6051. $PublicAccess
  6052. $CSVersion
  6053. Categori_zeK
  6054. _Edit Document
  6055. Send Docu_ment
  6056. _Forward
  6057. _Move To Folder...
  6058. _Remove From FolderK
  6059. Categori_zeK
  6060. _Edit Document
  6061. Send Docu_ment
  6062. _Forward
  6063. _Move To Folder...
  6064. _Remove From FolderK
  6065. O=Lotus Notes
  6066. O=Lotus Notes
  6067. PURSAFO
  6068. |.:#U
  6069. O=Lotus Notes
  6070. CN=Lotus Notes Template Development/O=Lotus Notes
  6071. PURSAFO
  6072. $HTMLDocumentStyles
  6073. $DialogMode
  6074. $INFO
  6075. $WEBQuerySave
  6076. $WEBQueryOpen
  6077. $AppHelpFormula
  6078. $WebFlags
  6079. $Script
  6080. $$Script_O
  6081. $$ScriptName
  6082. $$FormScript
  6083. $$$FormScript_O
  6084. $$SignatureOption
  6085. $SignatureOption_O
  6086. $$Signature_2
  6087. $Signature_2_O
  6088. $$Signature_1
  6089. $Signature_1_O
  6090. $$Signature
  6091. $Signature_O
  6092. DefaultDuration
  6093. AutoAnniversaryRepeat
  6094. $Times1
  6095. $Times2
  6096. $Times3
  6097. $Times4
  6098. $Times5
  6099. $Times6
  6100. $Times7
  6101. AppointmentLead
  6102. ReminderLead
  6103. EventLead
  6104. AnniversaryLead
  6105. TaskLead
  6106. CalendarTimeSlotStart
  6107. CalendarTimeSlotEnd
  6108. $BODY
  6109. $V5ACTIONS
  6110. $ACTIONS
  6111. $PublicAccess
  6112. *** Message Successfully Delivered ***
  6113. (Help)
  6114. MAIL_F_DELIVERY-REPORT
  6115.     0S0E
  6116.  Delivery Report
  6117. Delivery Confirmation Report
  6118.     Your document:
  6119. Subject
  6120. Subject
  6121.     was delivered to:
  6122. IntendedRecipient
  6123. IntendedRecipient
  6124. DeliveryDate
  6125. BodyBody of memo.
  6126. Categori_zeK
  6127. Close
  6128.     0S0E
  6129. _Edit Document
  6130. Send Docu_ment
  6131. _Forward
  6132. _Move to Folder...
  6133. _Remove from Folder...
  6134. Inbox
  6135.     1S2S
  6136. path"
  6137. /MailFS?OpenFrameset"
  6138.     0R3S4S5S6S
  6139. act_NEWMAIL.GIF|act_NEWMAIL?
  6140. Delete
  6141.     1S10S14S16S23S
  6142.     0R5S
  6143. path"
  6144. /wDelete?OpenAgent&
  6145. UNID"
  6146. act_DELETE.GIF|act_DELETE?
  6147. Next 
  6148.     0S0E
  6149. Previous
  6150. Categori_zeK
  6151. Close
  6152.     0S0E
  6153. _Edit Document
  6154. Send Docu_ment
  6155. _Forward
  6156. _Move to Folder...
  6157. _Remove from Folder...
  6158. Inbox
  6159.     1S2S
  6160. path"
  6161. /MailFS?OpenFrameset"
  6162.     0R3S4S5S6S
  6163. Delete
  6164.     1S10S14S16S23S
  6165.     0R5S
  6166. path"
  6167. /wDelete?OpenAgent&
  6168. UNID"
  6169. Next 
  6170.     0S0E
  6171. Previous
  6172. O=Lotus Notes
  6173. O=Lotus Notes
  6174. PURSAFO
  6175. |.:#U
  6176. O=Lotus Notes
  6177. CN=Lotus Notes Template Development/O=Lotus Notes
  6178. PURSAFO
  6179. $INFO
  6180. $WINDOWTITLE
  6181. $AppHelpFormula
  6182. $$ScriptName
  6183. DeliveryDate
  6184. $BODY
  6185. $V5ACTIONS
  6186. $ACTIONS
  6187. xxNoSubject
  6188. Group Calendar
  6189.     1S2E2S
  6190. Subject
  6191. Subject
  6192. xxNoSubject
  6193.     0RR7S9S
  6194. Lotus Product
  6195. OBJECT
  6196.  (GroupCalendar)'++LotusScript Development Environment:2:5:(Options):0:66
  6197. '++LotusScript Development Environment:2:5:(Forward):0:1
  6198. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6199. Declare Sub Postopen(Source As Notesuidocument)
  6200. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6201. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6202. Private Sub BindEvents(Byval Objectname_ As String)
  6203.     Static Source As NOTESUIDOCUMENT
  6204.     Set Source = Bind(Objectname_)
  6205.     On Event Queryclose From Source Call Queryclose
  6206.     On Event Postopen From Source Call Postopen
  6207. End Sub
  6208. '++LotusScript Development Environment:2:2:Queryclose:1:12
  6209. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6210.     Call source.save
  6211. End Sub
  6212. '++LotusScript Development Environment:2:2:Postopen:1:12
  6213. Sub Postopen(Source As Notesuidocument)
  6214.     source.fieldhelp = False
  6215.     source.horzscrollbar = False
  6216. End Sub
  6217. Lotus Product
  6218. Lotus Product
  6219. OBJECT
  6220. SaveOptions
  6221. ExcludeFromView
  6222. Subject
  6223. Subject
  6224.     7S9S
  6225. tmpTitle
  6226. CalendarView
  6227. StartDateTime
  6228. Duration
  6229. Members
  6230. Categori_zeK
  6231. _Edit Document
  6232. Send Docu_ment
  6233. _Forward
  6234. _Move To Folder...
  6235. _Remove From FolderK
  6236. Add MembersK
  6237. MembersToAdd
  6238.     1S2S
  6239. Members
  6240. Members
  6241. MembersToAdd
  6242.     0R1S2S3S6S7S
  6243. SaveOptions
  6244.     0R1S2S3S
  6245. $GroupScheduleRefreshMode
  6246.     0R1S2S3S
  6247. act_participantactions.GIF|act_CSPARTACTIONS
  6248. Remove Members
  6249. AbbrevList
  6250. Members
  6251.     1S2S
  6252. MembersToRemove
  6253. Remove Members
  6254. Select the member(s) you wish to remove from the group calendar
  6255. AbbrevList
  6256.     0R1S2S6S8S
  6257. Members
  6258. AbbrevList
  6259. MembersToRemove
  6260.     0R1S2S3S7S
  6261. SaveOptions
  6262.     0R1S2S3S
  6263. $GroupScheduleRefreshMode
  6264.     0R1S2S3S
  6265. act_csowneractions.GIF|act_CSOWNERACTIONS?
  6266. Options...f
  6267. (GroupCalendarOptions)
  6268. Options
  6269.     0S0E
  6270. StartDateTime
  6271. Startdate
  6272. StartTime
  6273.     0RR1S2S3S12S13S14S15S
  6274. Duration
  6275. DurationSel
  6276.     0R1S2S3S
  6277. $GroupScheduleRefreshMode
  6278.     0R1S2S3S
  6279. act_TOOLS.GIF|act_TOOLS?
  6280. Show LegendK
  6281. $GroupScheduleShowLegend
  6282.     1S2S3S
  6283. $GroupScheduleRefreshMode
  6284.     0R1S2S3S
  6285. $GroupScheduleShowLegend
  6286.     1S2S
  6287. Hide LegendK
  6288. $GroupScheduleShowLegend
  6289.     1S2S3S
  6290. $GroupScheduleRefreshMode
  6291.     0R1S2S3S
  6292. $GroupScheduleShowLegend
  6293.     1S2S
  6294. Categori_zeK
  6295. _Edit Document
  6296. Send Docu_ment
  6297. _Forward
  6298. _Move To Folder...
  6299. _Remove From FolderK
  6300. Add MembersK
  6301. MembersToAdd
  6302.     1S2S
  6303. Members
  6304. Members
  6305. MembersToAdd
  6306.     0R1S2S3S6S7S
  6307. SaveOptions
  6308.     0R1S2S3S
  6309. $GroupScheduleRefreshMode
  6310.     0R1S2S3S
  6311. Remove Members
  6312. AbbrevList
  6313. Members
  6314.     1S2S
  6315. MembersToRemove
  6316. Remove Members
  6317. Select the member(s) you wish to remove from the group calendar
  6318. AbbrevList
  6319.     0R1S2S6S8S
  6320. Members
  6321. AbbrevList
  6322. MembersToRemove
  6323.     0R1S2S3S7S
  6324. SaveOptions
  6325.     0R1S2S3S
  6326. $GroupScheduleRefreshMode
  6327.     0R1S2S3S
  6328. Options...f
  6329. (GroupCalendarOptions)
  6330. Options
  6331.     0S0E
  6332. StartDateTime
  6333. Startdate
  6334. StartTime
  6335.     0RR1S2S3S12S13S14S15S
  6336. Duration
  6337. DurationSel
  6338.     0R1S2S3S
  6339. $GroupScheduleRefreshMode
  6340.     0R1S2S3S
  6341. Show LegendK
  6342. $GroupScheduleShowLegend
  6343.     1S2S3S
  6344. $GroupScheduleRefreshMode
  6345.     0R1S2S3S
  6346. $GroupScheduleShowLegend
  6347.     1S2S
  6348. Hide LegendK
  6349. $GroupScheduleShowLegend
  6350.     1S2S3S
  6351. $GroupScheduleRefreshMode
  6352.     0R1S2S3S
  6353. $GroupScheduleShowLegend
  6354.     1S2S
  6355. O=Lotus Notes
  6356. O=Lotus Notes
  6357. PURSAFO
  6358. |.:#U
  6359. O=Lotus Notes
  6360. CN=Lotus Notes Template Development/O=Lotus Notes
  6361. PURSAFO
  6362. , -UZQk>
  6363. $HTMLDocumentStyles
  6364. StartDate
  6365. StartTime
  6366. $INFO
  6367. $WINDOWTITLE
  6368. $FrameInfo
  6369. $$Script_O
  6370. $$ScriptName
  6371. $$FormScript
  6372. $$$FormScript_O
  6373. $BODY
  6374. $V5ACTIONS
  6375. $ACTIONS
  6376. $PublicAccess
  6377. &Arial
  6378. '++LotusScript Development Environment:2:5:(Options):0:74
  6379. '++LotusScript Development Environment:2:5:(Forward):0:1
  6380. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6381. Lotus Product
  6382. V0.0a
  6383. (GroupHelper)
  6384.     Group name:
  6385. -Untitled-
  6386. GroupName
  6387.     Group type:
  6388. GroupTypeChoose the appropriate type for this group.  
  6389. Multi-purpose|0Access Control List only|2Mail only|1
  6390.     Description:
  6391. DescriptionDescription or purpose of the group.
  6392.     Members:
  6393. AllAddresses
  6394.     0S0E
  6395. SelectedGroupMembers
  6396. AllAddresses
  6397. AllAddresses"
  6398.     6S8S9S
  6399. O=Lotus Notes
  6400. O=Lotus Notes
  6401. PURSAFO
  6402. |.:#U
  6403. O=Lotus Notes
  6404. CN=Lotus Notes Template Development/O=Lotus Notes
  6405. PURSAFO
  6406. $INFO
  6407. $Script
  6408. $$Script_O
  6409. $$ScriptName
  6410. $BODY
  6411. &Arial
  6412. '++LotusScript Development Environment:2:5:(Options):0:74
  6413. Option Public
  6414. Option Declare
  6415. '++LotusScript Development Environment:2:5:(Forward):0:1
  6416. Declare Class UIAddressHelper
  6417. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6418. Const CONFLICT_MESSAGE$ = "This entry is already in your addressbook"
  6419. Dim AddressControl As UIAddressHelper
  6420. Class UIAddressHelper
  6421.     Private m_uiws As notesuiworkspace    
  6422.     Private m_uidocDialog As notesuidocument
  6423.     Private m_noteDialog As notesdocument
  6424.     Private m_vAllAddresses As Variant
  6425.     Private m_vAllNoteIDs  As Variant
  6426.     Private m_vAllTitle As Variant
  6427.     Private m_vAllFirst As Variant
  6428.     Private m_vAllMiddle As Variant
  6429.     Private m_vAllLast As Variant
  6430.     Private m_vAllFullName As Variant
  6431.     Private m_vAllSuffix As Variant
  6432.     Private m_vAllEmail As Variant
  6433.     Private m_vAllDomain As Variant
  6434.     Private m_vAllPublicAddressUNID As Variant
  6435.     Private m_vAllEmailType As Variant
  6436.     Private m_vAllConflictInNAB As Variant
  6437.     Private m_vAllConflictAction As Variant
  6438.     Private m_nMAX As Integer
  6439.     Private m_nBottom As Integer
  6440.     Private m_nCurrentSelection As Integer
  6441. Declare Public Sub Init(Source As notesuidocument)
  6442. Declare Public Function WriteRecords() As Integer
  6443. Declare Public Sub Next()
  6444. Declare Public Sub Previous()
  6445. Declare Private Sub LoadDisplay()
  6446. Declare Private Sub WriteUIToStack()
  6447.     Sub New()
  6448.         Set Me.m_uiws = New notesuiworkspace
  6449.     End Sub
  6450.     Sub Init(Source As notesuidocument)
  6451.         Set Me.m_uidocDialog = Source
  6452.         Set Me.m_noteDialog = Source.document
  6453.         Me.m_vAllAddresses = Me.m_noteDialog.getitemvalue("AllAddresses")
  6454.         Me.m_vAllNoteIDs  = Me.m_noteDialog.getitemvalue("AllNoteIDs ")        
  6455.         Me.m_vAllTitle = Me.m_noteDialog.getitemvalue("AllTitle")
  6456.         Me.m_vAllFirst = Me.m_noteDialog.getitemvalue("AllFirst")
  6457.         Me.m_vAllMiddle = Me.m_noteDialog.getitemvalue("AllMiddle")
  6458.         Me.m_vAllLast = Me.m_noteDialog.getitemvalue("AllLast")
  6459.         Me.m_vAllFullName = Me.m_noteDialog.getitemvalue("AllFullName")
  6460.         Me.m_vAllSuffix = Me.m_noteDialog.getitemvalue("AllSuffix")
  6461.         Me.m_vAllEmail = Me.m_noteDialog.getitemvalue("AllEmail")
  6462.         Me.m_vAllDomain = Me.m_noteDialog.getitemvalue("AllDomain")
  6463.         Me.m_vAllPublicAddressUNID = Me.m_noteDialog.getitemvalue("AllPublicAddressUNID")
  6464.         Me.m_vAllEmailType = Me.m_noteDialog.getitemvalue("AllEmailType")
  6465.         Me.m_vAllConflictInNAB = Me.m_noteDialog.getitemvalue("AllConflictInNAB")
  6466.         Me.m_vAllConflictAction = Me.m_noteDialog.getitemvalue("AllConflictAction")
  6467.         Me.m_nBottom = 0
  6468.         Me.m_nMAX = Ubound(Me.m_vAllAddresses)
  6469.         Me.m_uidocDialog.autoreload = False
  6470.         Call Me.m_noteDialog.ReplaceItemValue("TotalRecords",Me.m_nMAX+1)
  6471.         Call LoadDisplay()
  6472.     End Sub
  6473.     Sub Next()
  6474.         If Me.m_nCurrentSelection < Me.m_nMAX Then
  6475.             Call WriteUIToStack()
  6476.             Me.m_nCurrentSelection = Me.m_nCurrentSelection + 1            
  6477.             Call LoadDisplay()                
  6478.         Else 
  6479.             Beep
  6480.         End If
  6481.     End Sub    
  6482.     Sub Previous()
  6483.         If Me.m_nCurrentSelection > 0 Then
  6484.             Call WriteUIToStack()            
  6485.             Me.m_nCurrentSelection = Me.m_nCurrentSelection - 1            
  6486.             Call LoadDisplay()                
  6487.         Else 
  6488.             Beep
  6489.         End If
  6490.     End Sub
  6491.     Sub LoadDisplay()
  6492.         Call Me.m_noteDialog.ReplaceItemValue("tmpTitle",Me.m_vAllTitle(Me.m_nCurrentSelection))
  6493.         Call Me.m_noteDialog.ReplaceItemValue("tmpFirstName",Me.m_vAllFirst(Me.m_nCurrentSelection))
  6494.         Call Me.m_noteDialog.ReplaceItemValue("tmpMiddleName",Me.m_vAllMiddle(Me.m_nCurrentSelection))
  6495.         Call Me.m_noteDialog.ReplaceItemValue("tmpLastName",Me.m_vAllLast(Me.m_nCurrentSelection))
  6496.         Call Me.m_noteDialog.ReplaceItemValue("tmpSuffix",Me.m_vAllSuffix(Me.m_nCurrentSelection))
  6497.         Call Me.m_noteDialog.ReplaceItemValue("tmpEmailAddress",Me.m_vAllEmail(Me.m_nCurrentSelection))
  6498.         Call Me.m_noteDialog.ReplaceItemValue("tmpDomain",Me.m_vAllDomain(Me.m_nCurrentSelection))
  6499.         Call Me.m_noteDialog.ReplaceItemValue("tmpEmailType",Me.m_vAllEmailType(Me.m_nCurrentSelection))        
  6500.         Call Me.m_noteDialog.ReplaceItemValue("CurrentRecord",(Me.m_nCurrentSelection + 1))
  6501.         Call Me.m_noteDialog.ReplaceItemValue("tmpConflictInNAB",Me.m_vAllConflictInNAB(Me.m_nCurrentSelection))
  6502.         If Me.m_vAllConflictInNAB(Me.m_nCurrentSelection) = "1" Then
  6503.             Call Me.m_noteDialog.ReplaceItemValue("$AlertGraphic","a")
  6504.             Call Me.m_noteDialog.ReplaceItemValue("ConflictMessage",CONFLICT_MESSAGE)
  6505.         Else
  6506.             Call Me.m_noteDialog.ReplaceItemValue("$AlertGraphic","b")
  6507.             Call Me.m_noteDialog.ReplaceItemValue("ConflictMessage","")
  6508.         End If
  6509.         Call Me.m_noteDialog.ReplaceItemValue("tmpConflictAction",Me.m_vAllConflictAction(Me.m_nCurrentSelection))
  6510.         Call Me.m_uidocDialog.Reload()
  6511.         Call Me.m_uidocDialog.Refreshhideformulas()
  6512.     End Sub
  6513.     Sub WriteUIToStack()
  6514.         Me.m_vAllTitle(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpTitle")(0)
  6515.         Me.m_vAllFirst(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpFirstName")(0)
  6516.         Me.m_vAllMiddle(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpMiddleName")(0)
  6517.         Me.m_vAllLast(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpLastName")(0)
  6518.         Me.m_vAllSuffix(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpSuffix")(0)
  6519.         Me.m_vAllEmail(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpEmailAddress")(0)
  6520.         Me.m_vAllDomain(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpDomain")(0)
  6521.         Me.m_vAllEmailType(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpEmailType")(0)        
  6522.         If Isnumeric(Me.m_noteDialog.getitemvalue("tmpConflictAction")(0)) Then
  6523.             Me.m_vAllConflictAction(Me.m_nCurrentSelection) = Cstr(Me.m_noteDialog.GetItemValue("tmpConflictAction")(0))
  6524.         Else
  6525.             Me.m_vAllConflictAction(Me.m_nCurrentSelection) = "0"
  6526.         End If            
  6527.     End Sub
  6528.     Public Function WriteRecords() As Integer
  6529.         Call WriteUIToStack()
  6530.         With Me.m_noteDialog
  6531.             Call .ReplaceItemValue("AllAddresses",    Me.m_vAllAddresses)
  6532.             Call .ReplaceItemValue("AllDomain", Me.m_vAllDomain )
  6533.             Call .ReplaceItemValue("AllNoteIDs ", Me.m_vAllNoteIDs  )        
  6534.             Call .ReplaceItemValue("AllTitle", Me.m_vAllTitle )
  6535.             Call .ReplaceItemValue("AllFirst", Me.m_vAllFirst )
  6536.             Call .ReplaceItemValue("AllMiddle", Me.m_vAllMiddle )
  6537.             Call .ReplaceItemValue("AllLast", Me.m_vAllLast )
  6538.             Call .ReplaceItemValue("AllFullName", Me.m_vAllFullName )
  6539.             Call .ReplaceItemValue("AllSuffix", Me.m_vAllSuffix )
  6540.             Call .ReplaceItemValue("AllEmail", Me.m_vAllEmail )
  6541.             Call .ReplaceItemValue("AllDomain", Me.m_vAllDomain )
  6542.             Call .ReplaceItemValue("AllPublicAddressUNID", Me.m_vAllPublicAddressUNID )
  6543.             Call .ReplaceItemValue("AllEmailType", Me.m_vAllEmailType )
  6544.             Call .ReplaceItemValue("AllConflictInNAB", Me.m_vAllConflictInNAB )
  6545.             Call .ReplaceItemValue("AllConflictAction", Me.m_vAllConflictAction )
  6546.         End With
  6547.         WriteRecords = True
  6548.     End Function
  6549. End Class
  6550. Lotus Product
  6551. OBJECT
  6552. (NameHelper)'++LotusScript Development Environment:2:5:(Options):0:66
  6553. '++LotusScript Development Environment:2:5:(Forward):0:1
  6554. Declare Sub Postopen(Source As Notesuidocument)
  6555. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6556. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6557. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6558. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6559. Private Sub BindEvents(Byval Objectname_ As String)
  6560.     Static Source As NOTESUIDOCUMENT
  6561.     Set Source = Bind(Objectname_)
  6562.     On Event Postopen From Source Call Postopen
  6563.     On Event Queryopen From Source Call Queryopen
  6564.     On Event Queryclose From Source Call Queryclose
  6565. End Sub
  6566. '++LotusScript Development Environment:2:2:Postopen:1:12
  6567. Sub Postopen(Source As Notesuidocument)
  6568.     Call AddressControl.Init(Source) 
  6569. End Sub
  6570. '++LotusScript Development Environment:2:2:Queryopen:1:12
  6571. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6572.     Set AddressControl = New UIAddressHelper
  6573. End Sub
  6574. '++LotusScript Development Environment:2:2:Queryclose:1:12
  6575. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6576.     If Not Source.DialogBoxCanceled Then
  6577.         Continue = AddressControl.WriteRecords() 
  6578.     End If
  6579. End Sub
  6580. Lotus Product
  6581. V0.0l
  6582. $AlertGraphic
  6583. AllAddressesj
  6584.     4S5S
  6585. AllAddressesj
  6586.     4S5S
  6587. AlertGraphic
  6588. AlertGraphic
  6589. A    @8Q"
  6590. ConflictMessage
  6591.     0S0E
  6592. GIF89a 
  6593. ]X_X{|<
  6594. ConflictMessage
  6595. ConflictMessage
  6596. tmpConflictAction
  6597. tmpConflictAction
  6598. Skip|1Update|2
  6599. address1.gif|AddToAddressBook
  6600. Skipped
  6601. Skipped
  6602. address.gif|tb_ADDTOADDRESSBOOK
  6603. ConflictMessage
  6604. tb_EXCLAMATION
  6605.     3S4S
  6606. AllAddressesj
  6607.     4S5S
  6608.     Add 
  6609. .,$///:
  6610. TotalRecords
  6611. TotalRecords
  6612.      contacts to your address book
  6613. AllAddressesj
  6614.     4S5S
  6615. GIF89a
  6616. <a>7`^///""
  6617. hs_PREVIOUS
  6618. '++LotusScript Development Environment:2:5:(Options):0:66
  6619. '++LotusScript Development Environment:2:5:(Forward):0:1
  6620. Declare Sub Click(Source As Button)
  6621. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6622. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6623. Private Sub BindEvents(Byval Objectname_ As String)
  6624.     Static Source As BUTTON
  6625.     Set Source = Bind(Objectname_)
  6626.     On Event Click From Source Call Click
  6627. End Sub
  6628. '++LotusScript Development Environment:2:2:Click:1:12
  6629. Sub Click(Source As Button)
  6630.     Call AddressControl.Previous()
  6631. End Sub
  6632. Lotus Product
  6633. OBJECT
  6634.     Contact #
  6635. .,$///:
  6636. CurrentRecord
  6637. CurrentRecord
  6638. GIF89a
  6639. <a>7`^///""
  6640. hs_NEXT
  6641. '++LotusScript Development Environment:2:5:(Options):0:66
  6642. '++LotusScript Development Environment:2:5:(Forward):0:1
  6643. Declare Sub Click(Source As Button)
  6644. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6645. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6646. Private Sub BindEvents(Byval Objectname_ As String)
  6647.     Static Source As BUTTON
  6648.     Set Source = Bind(Objectname_)
  6649.     On Event Click From Source Call Click
  6650. End Sub
  6651. '++LotusScript Development Environment:2:2:Click:1:12
  6652. Sub Click(Source As Button)
  6653.     Call AddressControl.Next()
  6654. End Sub
  6655. Lotus Product
  6656. OBJECT
  6657.     Title:
  6658. tmpTitle
  6659. -None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
  6660.     First name:
  6661. tmpFirstName
  6662.     Middle name:
  6663. tmpMiddleName
  6664.     Last name:
  6665. tmpLastName
  6666.     Suffix:
  6667. tmpSuffix
  6668. -None-|Jr.|Jr.Sr.|Sr.IIIIII
  6669. Basics
  6670.     Mail system:
  6671. tmpEmailType
  6672. Notes|1cc:Mail|2Internet|5X.400|4
  6673.     Email address:
  6674. tmpEmailAddress
  6675. tmpEmailAddress
  6676.     Routing domain(s):
  6677. tmpDomain
  6678. IncludeX509
  6679. Include X.509 certificates when encountered|1
  6680. Advanced
  6681. O=Lotus Notes
  6682. O=Lotus Notes
  6683. PURSAFO
  6684. |.:#U
  6685. O=Lotus Notes
  6686. CN=Lotus Notes Template Development/O=Lotus Notes
  6687. PURSAFO
  6688. $INFO
  6689. $Script
  6690. $$Script_O
  6691. $$ScriptName
  6692. $$FormScript
  6693. $$$FormScript_O
  6694. $BODY
  6695. *** Message Not Delivered ***
  6696. &Arial
  6697. Lotus Product
  6698.  NonDelivery Report
  6699. Delivery Failure Report
  6700.     Your document:
  6701. Subject
  6702. OriginalSubject
  6703.     was not delivered to
  6704. IntendedRecipient
  6705. IntendedRecipient
  6706.     0S0E
  6707. IntendedRecipient
  6708.     because:
  6709. FailureReason
  6710. FailureReason
  6711. $HideMailHeader
  6712.     0S0E
  6713.     What should you do?
  6714.     You can resend the undeliverable document to the recipients listed above by choosing the Resend button or the Resend command on the Actions menu.  
  6715.     Once you have resent the document you may delete this Delivery Failure Report.
  6716.     If resending the document is not successful you will receive a new failure report
  6717.     Unless you receive other Delivery Failure Reports, the document was successfully delivered to all other recipients.
  6718. Routing path
  6719. RouteServers
  6720. RouteServersServers along route.
  6721.     ________________________
  6722. NamePreference
  6723. AltSendTo
  6724. AltSendTo
  6725. SendTo
  6726.     5S6S
  6727. SendToList of primary people to send memo.z
  6728. EnterSendTo
  6729. NamePreference
  6730. AltCopyTo
  6731. AltCopyTo
  6732. CopyTo
  6733.     5S6S7S
  6734. CopyToList of people to send a copy of the memo.
  6735. EnterCopyTo
  6736.     0S0E
  6737.     Date:
  6738. .,$ //:
  6739. PostedDateY
  6740. PostedDateJ
  6741. DateTime/date memo was created or mailed.
  6742.     Subject:
  6743. Subject
  6744. SubjectSubject of memo.
  6745. Subject_1
  6746. BodyBody of document.
  6747. Categori_zeK
  6748. Close
  6749.     0S0E
  6750.     0S0E
  6751. act_discardchanges.GIF|act_CSDISCARD
  6752. Edit Document
  6753. Resend
  6754. act_SEND.GIF|act_SEND?
  6755. Resend
  6756. $AutoSpell(
  6757.     1S3S
  6758.     0R7S9S
  6759. SaveOptions
  6760.     0R1S2S3S
  6761. act_SEND.GIF|act_SEND?
  6762. _Forward
  6763. _Move to Folder...
  6764. _Remove from Folder...
  6765. Inbox
  6766.     1S2S
  6767. path"
  6768. /MailFS?OpenFrameset"
  6769.     0R3S4S5S6S
  6770. act_NEWMAIL.GIF|act_NEWMAIL?
  6771. Delete
  6772.     1S10S14S16S23S
  6773.     0R5S
  6774. path"
  6775. /wDelete?OpenAgent&
  6776. UNID"
  6777. act_DELETE.GIF|act_DELETE?
  6778. Next 
  6779.     0S0E
  6780. Previous
  6781. Categori_zeK
  6782. Close
  6783.     0S0E
  6784.     0S0E
  6785. Edit Document
  6786. Resend
  6787. Resend
  6788. $AutoSpell(
  6789.     1S3S
  6790.     0R7S9S
  6791. SaveOptions
  6792.     0R1S2S3S
  6793. _Forward
  6794. _Move to Folder...
  6795. _Remove from Folder...
  6796. Inbox
  6797.     1S2S
  6798. path"
  6799. /MailFS?OpenFrameset"
  6800.     0R3S4S5S6S
  6801. Delete
  6802.     1S10S14S16S23S
  6803.     0R5S
  6804. path"
  6805. /wDelete?OpenAgent&
  6806. UNID"
  6807. Next 
  6808.     0S0E
  6809. Previous
  6810. O=Lotus Notes
  6811. O=Lotus Notes
  6812. PURSAFO
  6813. |.:#U
  6814. O=Lotus Notes
  6815. CN=Lotus Notes Template Development/O=Lotus Notes
  6816. PURSAFO
  6817. $INFO
  6818. $WINDOWTITLE
  6819. $$Script_O
  6820. $$ScriptName
  6821. $BODY
  6822. $V5ACTIONS
  6823. $ACTIONS
  6824. Lotus Product
  6825. OBJECT
  6826. Lotus Product
  6827. OBJECT
  6828. Lotus Product
  6829. OBJECT
  6830. Lotus Product
  6831. Ir    8*r    
  6832. Meeting Notice
  6833. NoticeType
  6834. Broadcast
  6835. (Help)
  6836. MAIL_F_APPOINTMENT_INV_REC_BRD
  6837. (Help)
  6838. MAIL_F_APPOINTMENT_INV_REC
  6839.     3S4S6RTRTTT9S10S12RTTTTT23RTTTTT35RRT'++LotusScript Development Environment:2:5:(Options):0:74
  6840. Option Public  
  6841. Option Explicit
  6842. Use "CSUIDocClass"
  6843. '++LotusScript Development Environment:2:5:(Forward):0:1
  6844. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6845. Dim uicsdoc As UIEventDocument 
  6846. Lotus Product
  6847. OBJECT
  6848.  Notice'++LotusScript Development Environment:2:5:(Options):0:66
  6849. '++LotusScript Development Environment:2:5:(Forward):0:1
  6850. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6851. Declare Sub Postopen(Source As Notesuidocument)
  6852. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  6853. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6854. Declare Sub Postsave(Source As Notesuidocument)
  6855. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  6856. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6857. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6858. Private Sub BindEvents(Byval Objectname_ As String)
  6859.     Static Source As NOTESUIDOCUMENT
  6860.     Set Source = Bind(Objectname_)
  6861.     On Event Queryopen From Source Call Queryopen
  6862.     On Event Postopen From Source Call Postopen
  6863.     On Event Querysave From Source Call Querysave
  6864.     On Event Queryclose From Source Call Queryclose
  6865.     On Event Postsave From Source Call Postsave
  6866.     On Event Querymodechange From Source Call Querymodechange
  6867. End Sub
  6868. '++LotusScript Development Environment:2:2:Queryopen:1:12
  6869. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6870.     If (source.inpreviewpane) Then Exit Sub    
  6871.     Set uicsdoc = CSUIDocOpen(1, source, mode, isnewdoc, continue)
  6872. End Sub
  6873. '++LotusScript Development Environment:2:2:Postopen:1:12
  6874. Sub Postopen(Source As Notesuidocument)
  6875.     If (source.InPreviewPane) Then Exit Sub
  6876.     Call uicsdoc.Postopen()
  6877. End Sub
  6878. '++LotusScript Development Environment:2:2:Querysave:1:12
  6879. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  6880.     If (source.InPreviewPane) Then Exit Sub
  6881.     Call uicsdoc.QuerySave(continue)
  6882. End Sub
  6883. '++LotusScript Development Environment:2:2:Queryclose:1:12
  6884. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6885.     If (source.InPreviewPane) Then Exit Sub
  6886.     If (uicsdoc.WasSaved) Then Call uicsdoc.QueryClose(continue)
  6887. End Sub
  6888. '++LotusScript Development Environment:2:2:Postsave:1:12
  6889. Sub Postsave(Source As Notesuidocument)
  6890.     If (source.InPreviewPane) Then Exit Sub
  6891.     Call uicsdoc.PostSave()
  6892. End Sub
  6893. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  6894. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  6895.     If (source.InPreviewPane) Then continue = False
  6896. End Sub
  6897. Lotus Product
  6898. Notes
  6899. (wCSItems)
  6900.     3S4S6S8S
  6901. Notice
  6902. tmpDoNotProcess
  6903. tmpOwner
  6904. BlindCopyTo
  6905. NoticeType
  6906.     3S4S6S8S17S18S28S31S32S
  6907. tmpDoNotProcess
  6908. tmpOwner
  6909. BlindCopyTo
  6910.     3S4S6S8S17S18S28StmpNoActionBar
  6911. tmpOwner
  6912. Chair
  6913.     8S11S12S22StmpOwnerHW
  6914. ChairName
  6915. Chair
  6916.     1S2S
  6917. PrincipalName
  6918. Principal
  6919.     0R1S2S
  6920. xxInvitation
  6921. New meeting request from 
  6922. ChairName
  6923.     0RR1S2S3S4S
  6924. xxReschedule
  6925. ChairName
  6926.  has rescheduled this meeting
  6927.     0R1S2S3S4S
  6928. xxCancellation
  6929. ChairName
  6930.  has cancelled this meeting
  6931.     0R1S2S3S4S
  6932. xxConfirmation
  6933. ChairName
  6934.  has confirmed this meeting
  6935.     0R1S2S3S4S
  6936. xxAccept
  6937. tmpowner
  6938. chair
  6939. PrincipalName
  6940.  has accepted your meeting request"
  6941. You have accepted this request
  6942.     0R1S2S5S6S8S9S10S12S
  6943. xxDecline
  6944. tmpOwner
  6945. chair
  6946. PrincipalName
  6947.  has declined your meeting request"
  6948. You have declined this request
  6949.     0R1S2S5S6S8S9S10S12S
  6950. xxCounter
  6951. tmpOwner
  6952. chair
  6953. PrincipalName
  6954.  has proposed changes to your meeting request
  6955. You have countered this request
  6956.     0R1S2S5S6S8S9S10S12S
  6957. xxDelegate
  6958. tmpOwner
  6959. chair
  6960. PrincipalName
  6961.  has delegated your meeting request
  6962. You have delegated this request
  6963.     0R1S2S5S6S8S9S10S12S
  6964. xxDeleInvite
  6965. PrincipalName
  6966.  has delegated this meeting request to you"
  6967.     0R1S2S3S4S
  6968. xxDeclineCounter
  6969. ChairName
  6970.  has declined your proposed changes
  6971.     0R1S2S3S4S
  6972. xxReserved
  6973. PrincipalName
  6974.  has been reserved"
  6975.     0R1S2S3S4S
  6976. xxUnavail
  6977. PrincipalName
  6978.  is unavailable
  6979.     0R1S2S3S4S
  6980. xxRefreshInfo
  6981. $CSFlags
  6982. PrincipalName
  6983.  is requesting updated information"
  6984. Updated information from 
  6985. PrincipalName
  6986.     0R1S2S8S11S12S13S15RTTT16S17S
  6987. xxPencilIn
  6988. PrincipalName
  6989.  has tentatively accepted your meeting request"
  6990.     0R1S2S3S4S
  6991. OrgStateh
  6992. NoticeType
  6993. xxReserved
  6994. xxUnavail
  6995. NoticeType
  6996. xxInvitation
  6997. xxReschedule
  6998. xxCancellation
  6999. xxConfirmation
  7000. xxAccept
  7001. xxDecline
  7002. xxCounter
  7003. xxDelegate
  7004. xxDeleInvite
  7005. xxRefreshInfo
  7006. xxDeclineCounter
  7007. xxPencilIn
  7008.     0R7RT11S15S16S17S20RTRT24S48S49S50STT51S52S53S54S55S56S57S58S59S60S61S62STT64S65S66S
  7009. tmpNoticeType
  7010. NoticeType
  7011. Proposed Start:
  7012. Begins:
  7013.     3S4S
  7014. .,$ //:
  7015. NoticeType
  7016. NewStartDate
  7017. StartDateTime
  7018.     3S4S6S8S
  7019. tmpStartDateTime
  7020.     Local Time
  7021. NoticeType
  7022. Proposed End:
  7023. Ends:
  7024.     3S4S
  7025. .,$ //:
  7026. NoticeType
  7027. NewEndDate
  7028. EndDateTime
  7029.     3S4S6S8S
  7030. tmpEndDateTime
  7031.     Local Time
  7032. NoticeType
  7033.     1S2S
  7034.     Original Start:     
  7035. .,$ //:
  7036. StartDateTime
  7037. tmpOrigStartDateTime
  7038.     Local Time
  7039.     Original End:
  7040. .,$ //:
  7041. EndDateTime
  7042. tmpOrigEndDateTime
  7043.     Local Time
  7044.     Title:
  7045. Topic
  7046. tmpTopic
  7047.     Location:
  7048. Location
  7049. Location
  7050. -No room information available-
  7051.     7S14S16S2E
  7052. tmpRoom
  7053.     Chair:
  7054. Chair
  7055. Chair
  7056. Principal
  7057. tmpChair
  7058. tmpWasMailedY
  7059. principal
  7060.     4S5S15S16S
  7061.     Sent by:
  7062. tmpSentBy
  7063. NoticeType
  7064.     1S2S
  7065.     Delegated To:
  7066. Delegee
  7067. tmpDelegee
  7068. Basics
  7069.     Required:    
  7070. RequiredAttendees
  7071.     0S0E
  7072. tmpRequired
  7073.     Optional:    
  7074. OptionalAttendees
  7075.     0S0E
  7076. tmpOptional
  7077. BlindCopyTo
  7078.     4S5S
  7079.     FYI:    
  7080. BlindCopyTo
  7081. tmpFYI
  7082. Invitees
  7083. OrgRepeat
  7084.     0S0E
  7085.     Starting:     
  7086. .,$ //:
  7087. RepeatStartDate
  7088. RepeatStartDate
  7089. OriginalStartDate
  7090.     7S9S
  7091. tmpRepeatStart
  7092. OrgRepeat
  7093. RepeatDates
  7094.     4S5S
  7095.     Repeat:     
  7096. RepeatInterval
  7097. tmpRepeatInterval
  7098. every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
  7099. RepeatUnit
  7100. tmpRepeatUnit
  7101. day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
  7102. RepeatAdjust
  7103. tmpRepeatAdjust
  7104. RepeatUnit
  7105. on Sunday|0
  7106. on Monday|1
  7107. on Tuesday|2
  7108. on Wednesday|3
  7109. on Thursday|4
  7110. on Friday|5
  7111. on Saturday|6
  7112. RepeatUnit
  7113. on the 1st Sunday|1.0
  7114. on the 1st Monday|1.1
  7115. on the 1st Tuesday|1.2
  7116. on the 1st Wednesday|1.3
  7117. on the 1st Thursday|1.4
  7118. on the 1st Friday|1.5
  7119. on the 1st Saturday|1.6
  7120. on the 2nd Sunday|2.0
  7121. on the 2nd Monday|2.1
  7122. on the 2nd Tuesday|2.2
  7123. on the 2nd Wednesday|2.3
  7124. on the 2nd Thursday|2.4
  7125. on the 2nd Friday|2.5
  7126. on the 2nd Saturday|2.6
  7127. on the 3rd Sunday|3.0
  7128. on the 3rd Monday|3.1
  7129. on the 3rd Tuesday|3.2
  7130. on the 3rd Wednesday|3.3
  7131. on the 3rd Thursday|3.4
  7132. on the 3rd Friday|3.5
  7133. on the 3rd Saturday|3.6
  7134. on the 4th Sunday|4.0
  7135. on the 4th Monday|4.1
  7136. on the 4th Tuesday|4.2
  7137. on the 4th Wednesday|4.3
  7138. on the 4th Thursday|4.4
  7139. on the 4th Friday|4.5
  7140. on the 4th Saturday|4.6
  7141. on the Last Sunday|5.0
  7142. on the Last Monday|5.1
  7143. on the Last Tuesday|5.2
  7144. on the Last Wednesday|5.3
  7145. on the Last Thursday|5.4
  7146. on the Last Friday|5.5
  7147. on the Last Saturday|5.6
  7148. RepeatUnit
  7149. on the 1st day|1
  7150. on the 2nd day|2
  7151. on the 3rd day|3
  7152. on the 4th day|4
  7153. on the 5th day|5
  7154. on the 6th day|6
  7155. on the 7th day|7
  7156. on the 8th day|8
  7157. on the 9th day|9
  7158. on the 10th day|10
  7159. on the 11th day|11
  7160. on the 12th day|12
  7161. on the 13th day|13
  7162. on the 14th day|14
  7163. on the 15th day|15
  7164. on the 16th day|16
  7165. on the 17th day|17
  7166. on the 18th day|18
  7167. on the 19th day|19
  7168. on the 20th day|20
  7169. on the 21st day|21
  7170. on the 22nd day|22
  7171. on the 23rd day|23
  7172. on the 24th day|24
  7173. on the 25th day|25
  7174. on the 26th day|26
  7175. on the 27th day|27
  7176. on the 28th day|28
  7177. on the 29th day|29
  7178. on the 30th day|30
  7179. on the 31st day|31
  7180.     3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
  7181. RepeatHow
  7182. tmpRepeatHow
  7183. until|Ufor|F
  7184. RepeatFor
  7185. tmpRepeatUnit
  7186.     7S9S
  7187. RepeatHow
  7188. RepeatUntil
  7189. RepeatFor
  7190. RepeatForUnit
  7191. RepeatFor
  7192. RepeatForUnit
  7193. RepeatFor
  7194. RepeatForUnit
  7195. RepeatFor
  7196. month
  7197. RepeatForUnit
  7198. RepeatFor
  7199. RepeatFor
  7200. RepeatForUnit
  7201. RepeatFor
  7202. RepeatForUnit
  7203. weeks
  7204. RepeatFor
  7205. RepeatForUnit
  7206. months
  7207. RepeatFor
  7208. RepeatForUnit
  7209. years
  7210.     0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
  7211. tmpRepeatUntil
  7212. RepeatUnit
  7213. (if the date falls on a weekend the meeting 
  7214. RepeatWeekends
  7215. occurs anyway
  7216. RepeatWeekends
  7217. is moved to Friday
  7218. RepeatWeekends
  7219. is moved to Monday
  7220. RepeatWeekends
  7221. is moved to Nearest Weekday
  7222. RepeatWeekends
  7223. is deleted
  7224.     3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
  7225. tmpRepeatWeekends
  7226. OrgRepeat
  7227. RepeatDates
  7228.     4S5S
  7229.     Applies to:    
  7230. RescheduleWhich
  7231. tmpAppliesTo
  7232. This instance only|0All instances|1This instance and all previous instances|2This instance and all future instances|3
  7233. Repeat Info
  7234. entrybg
  7235. tmpowner
  7236. chair
  7237. Comments
  7238. Description
  7239.     3S4S
  7240. StatusUpdate
  7241. Comments
  7242.     4S5S
  7243.     Comments
  7244. Comments
  7245. Comments
  7246. Categori_ze
  7247. _Edit Document
  7248. Send Docu_ment
  7249. _Forward
  7250. _Move To Folder...
  7251. _Remove From Folder
  7252. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7253. '++LotusScript Development Environment:2:5:(Forward):0:1
  7254. Declare Sub Click(Source As Button)
  7255. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7256. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7257. Private Sub BindEvents(Byval Objectname_ As String)
  7258.     Static Source As BUTTON
  7259.     Set Source = Bind(Objectname_)
  7260.     On Event Click From Source Call Click
  7261. End Sub
  7262. '++LotusScript Development Environment:2:2:Click:1:12
  7263. Sub Click(Source As Button)
  7264.     Dim uidoc As NotesUIDocument
  7265.     Dim uiobject As Variant
  7266.     Dim nResult As Integer
  7267.     Set uiobject = uicsdoc.UIObject
  7268.     Set uidoc = uicsdoc.UIDocument     
  7269.     If (uiobject.OkToAccept(False)) Then
  7270.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  7271.         Call uidoc.save
  7272.         Call uidoc.close
  7273.     End If    
  7274. End Sub
  7275. tmpNoActionBar
  7276. tmpOwnerHW
  7277. NoticeType
  7278. Broadcast
  7279.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7280. Respond\Decline
  7281. '++LotusScript Development Environment:2:5:(Options):0:66
  7282. '++LotusScript Development Environment:2:5:(Forward):0:1
  7283. Declare Sub Click(Source As Button)
  7284. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7285. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7286. Private Sub BindEvents(Byval Objectname_ As String)
  7287.     Static Source As BUTTON
  7288.     Set Source = Bind(Objectname_)
  7289.     On Event Click From Source Call Click
  7290. End Sub
  7291. '++LotusScript Development Environment:2:2:Click:1:12
  7292. Sub Click(Source As Button)
  7293.     uicsdoc.uiobject.SendComments = False    
  7294.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  7295. End Sub
  7296. tmpNoActionBar
  7297. tmpOwnerHW
  7298. NoticeType
  7299. Broadcast
  7300.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7301. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  7302. '++LotusScript Development Environment:2:5:(Forward):0:1
  7303. Declare Sub Click(Source As Button)
  7304. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7305. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7306. Private Sub BindEvents(Byval Objectname_ As String)
  7307.     Static Source As BUTTON
  7308.     Set Source = Bind(Objectname_)
  7309.     On Event Click From Source Call Click
  7310. End Sub
  7311. '++LotusScript Development Environment:2:2:Click:1:12
  7312. Sub Click(Source As Button)
  7313.     uicsdoc.uiobject.SendComments = False
  7314.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  7315. End Sub
  7316. tmpNoActionBar
  7317. tmpOwnerHW
  7318. Broadcast
  7319. PreventDelegate
  7320.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7321. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  7322. '++LotusScript Development Environment:2:5:(Forward):0:1
  7323. Declare Sub Click(Source As Button)
  7324. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7325. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7326. Private Sub BindEvents(Byval Objectname_ As String)
  7327.     Static Source As BUTTON
  7328.     Set Source = Bind(Objectname_)
  7329.     On Event Click From Source Call Click
  7330. End Sub
  7331. '++LotusScript Development Environment:2:2:Click:1:12
  7332. Sub Click(Source As Button)
  7333.     uicsdoc.uiobject.SendComments = False    
  7334.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  7335. End Sub
  7336. tmpNoActionBar
  7337. tmpOwnerHW
  7338. Broadcast
  7339. PreventCounter
  7340.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7341. Respond\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7342. '++LotusScript Development Environment:2:5:(Forward):0:1
  7343. Declare Sub Click(Source As Button)
  7344. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7345. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7346. Private Sub BindEvents(Byval Objectname_ As String)
  7347.     Static Source As BUTTON
  7348.     Set Source = Bind(Objectname_)
  7349.     On Event Click From Source Call Click
  7350. End Sub
  7351. '++LotusScript Development Environment:2:2:Click:1:12
  7352. Sub Click(Source As Button)
  7353.     Dim uidoc As NotesUIDocument
  7354.     Dim note As notesdocument
  7355.     Dim uiobject As Variant
  7356.     Set uiobject = uicsdoc.UIObject
  7357.     Set uidoc = uicsdoc.UIDocument     
  7358.     uiobject.SendComments = False
  7359.     uiobject.ActionInProgress = ACTION_ACCEPT
  7360.     Set note = uidoc.document
  7361.     Call note.replaceitemvalue("tmpPencilIn","1")
  7362.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  7363.     Call uidoc.save
  7364.     Call uidoc.close
  7365. End Sub
  7366. tmpNoActionBar
  7367. tmpOwnerHW
  7368. Broadcast
  7369.     1S2S3S4S5S6S7S8S9S10S
  7370. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7371. '++LotusScript Development Environment:2:5:(Forward):0:1
  7372. Declare Sub Click(Source As Button)
  7373. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7374. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7375. Private Sub BindEvents(Byval Objectname_ As String)
  7376.     Static Source As BUTTON
  7377.     Set Source = Bind(Objectname_)
  7378.     On Event Click From Source Call Click
  7379. End Sub
  7380. '++LotusScript Development Environment:2:2:Click:1:12
  7381. Sub Click(Source As Button)
  7382.     Dim uidoc As NotesUIDocument
  7383.     Dim uiobject As Variant
  7384.     Dim nResult As Integer
  7385.     Set uiobject = uicsdoc.UIObject
  7386.     Set uidoc = uicsdoc.UIDocument     
  7387.     If (uiobject.OkToAccept(True)) Then
  7388.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  7389.         Call uidoc.save
  7390.         Call uidoc.close
  7391.     End If    
  7392. End Sub
  7393. tmpNoActionBar
  7394. tmpOwnerHW
  7395. NoticeType
  7396. Broadcast
  7397.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7398. Respond with Comments\Decline
  7399. '++LotusScript Development Environment:2:5:(Options):0:66
  7400. '++LotusScript Development Environment:2:5:(Forward):0:1
  7401. Declare Sub Click(Source As Button)
  7402. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7403. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7404. Private Sub BindEvents(Byval Objectname_ As String)
  7405.     Static Source As BUTTON
  7406.     Set Source = Bind(Objectname_)
  7407.     On Event Click From Source Call Click
  7408. End Sub
  7409. '++LotusScript Development Environment:2:2:Click:1:12
  7410. Sub Click(Source As Button)
  7411.     uicsdoc.uiobject.SendComments = True
  7412.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  7413. End Sub
  7414. tmpNoActionBar
  7415. tmpOwnerHW
  7416. NoticeType
  7417. Broadcast
  7418.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7419. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  7420. '++LotusScript Development Environment:2:5:(Forward):0:1
  7421. Declare Sub Click(Source As Button)
  7422. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7423. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7424. Private Sub BindEvents(Byval Objectname_ As String)
  7425.     Static Source As BUTTON
  7426.     Set Source = Bind(Objectname_)
  7427.     On Event Click From Source Call Click
  7428. End Sub
  7429. '++LotusScript Development Environment:2:2:Click:1:12
  7430. Sub Click(Source As Button)
  7431.     uicsdoc.uiobject.SendComments = False    
  7432.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  7433. End Sub
  7434. tmpNoActionBar
  7435. tmpOwnerHW
  7436. Broadcast
  7437. PreventDelegate
  7438.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7439. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  7440. '++LotusScript Development Environment:2:5:(Forward):0:1
  7441. Declare Sub Click(Source As Button)
  7442. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7443. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7444. Private Sub BindEvents(Byval Objectname_ As String)
  7445.     Static Source As BUTTON
  7446.     Set Source = Bind(Objectname_)
  7447.     On Event Click From Source Call Click
  7448. End Sub
  7449. '++LotusScript Development Environment:2:2:Click:1:12
  7450. Sub Click(Source As Button)
  7451.     uicsdoc.uiobject.SendComments = True
  7452.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  7453. End Sub
  7454. tmpNoActionBar
  7455. tmpOwnerHW
  7456. Broadcast
  7457. PreventCounter
  7458.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7459. Respond with Comments\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7460. '++LotusScript Development Environment:2:5:(Forward):0:1
  7461. Declare Sub Click(Source As Button)
  7462. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7463. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7464. Private Sub BindEvents(Byval Objectname_ As String)
  7465.     Static Source As BUTTON
  7466.     Set Source = Bind(Objectname_)
  7467.     On Event Click From Source Call Click
  7468. End Sub
  7469. '++LotusScript Development Environment:2:2:Click:1:12
  7470. Sub Click(Source As Button)
  7471.     Dim uidoc As NotesUIDocument
  7472.     Dim note As notesdocument
  7473.     Dim uiobject As Variant
  7474.     Set uiobject = uicsdoc.UIObject
  7475.     Set uidoc = uicsdoc.UIDocument     
  7476.     uiobject.SendComments = True
  7477.     uiobject.ActionInProgress = ACTION_ACCEPT
  7478.     Set note = uidoc.document
  7479.     Call note.replaceitemvalue("tmpPencilIn","1")
  7480.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  7481.     Call uidoc.save
  7482.     Call uidoc.close
  7483. End Sub
  7484. tmpNoActionBar
  7485. tmpOwnerHW
  7486. Broadcast
  7487.     1S2S3S4S5S6S7S8S9S10S
  7488. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  7489. '++LotusScript Development Environment:2:5:(Forward):0:1
  7490. Declare Sub Click(Source As Button)
  7491. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7492. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7493. Private Sub BindEvents(Byval Objectname_ As String)
  7494.     Static Source As BUTTON
  7495.     Set Source = Bind(Objectname_)
  7496.     On Event Click From Source Call Click
  7497. End Sub
  7498. '++LotusScript Development Environment:2:2:Click:1:12
  7499. Sub Click(Source As Button)
  7500.     Dim uievent As UIEventObject
  7501.     Set uievent = uicsdoc.UIObject
  7502.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)",1) Then
  7503.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  7504.     End If
  7505. End Sub
  7506. tmpNoActionBar
  7507. tmpOwnerHW
  7508.     1S2S3S4S5S6S
  7509. Check Calendar2
  7510. Check Calendar
  7511.     0S0E
  7512. tmpOwnerHW
  7513. tmpNoActionBar
  7514.     0S1S2S3S4S5S6S
  7515. Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
  7516. '++LotusScript Development Environment:2:5:(Forward):0:1
  7517. Declare Sub Click(Source As Button)
  7518. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7519. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7520. Private Sub BindEvents(Byval Objectname_ As String)
  7521.     Static Source As BUTTON
  7522.     Set Source = Bind(Objectname_)
  7523.     On Event Click From Source Call Click
  7524. End Sub
  7525. '++LotusScript Development Environment:2:2:Click:1:12
  7526. Sub Click(Source As Button)
  7527.     Call uicsdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1) 
  7528. End Sub
  7529. tmpOwnerHW
  7530. NoticeType
  7531.     1S2S3S4S2E5S6S
  7532. Decline Counter$'++LotusScript Development Environment:2:5:(Options):0:66
  7533. '++LotusScript Development Environment:2:5:(Forward):0:1
  7534. Declare Sub Click(Source As Button)
  7535. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7536. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7537. Private Sub BindEvents(Byval Objectname_ As String)
  7538.     Static Source As BUTTON
  7539.     Set Source = Bind(Objectname_)
  7540.     On Event Click From Source Call Click
  7541. End Sub
  7542. '++LotusScript Development Environment:2:2:Click:1:12
  7543. Sub Click(Source As Button)
  7544.     Call uicsdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1) 
  7545. End Sub
  7546. tmpOwnerHW
  7547. NoticeType
  7548.     1S2S3S4S2E5S6S
  7549. Add to Calendare
  7550. tmpAction
  7551.  2097154
  7552.     1S2S
  7553. Broadcast
  7554. tmpNoActionBar
  7555. tmpOwnerHW
  7556.     1S2S3S4S5S6S7S8S9S10S
  7557. Send Updated Information...a'++LotusScript Development Environment:2:5:(Options):0:66
  7558. '++LotusScript Development Environment:2:5:(Forward):0:1
  7559. Declare Sub Click(Source As Button)
  7560. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7561. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7562. Private Sub BindEvents(Byval Objectname_ As String)
  7563.     Static Source As BUTTON
  7564.     Set Source = Bind(Objectname_)
  7565.     On Event Click From Source Call Click
  7566. End Sub
  7567. '++LotusScript Development Environment:2:2:Click:1:12
  7568. Sub Click(Source As Button)
  7569.     Dim uievent As UIEventObject
  7570.     Set uievent = uicsdoc.UIObject
  7571.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  7572.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  7573.     End If
  7574. End Sub
  7575. NoticeType
  7576. $CSFlags
  7577.     1S2S3S4S9S
  7578. Update Information...
  7579. '++LotusScript Development Environment:2:5:(Options):0:66
  7580. '++LotusScript Development Environment:2:5:(Forward):0:1
  7581. Declare Sub Click(Source As Button)
  7582. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7583. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7584. Private Sub BindEvents(Byval Objectname_ As String)
  7585.     Static Source As BUTTON
  7586.     Set Source = Bind(Objectname_)
  7587.     On Event Click From Source Call Click
  7588. End Sub
  7589. '++LotusScript Development Environment:2:2:Click:1:12
  7590. Sub Click(Source As Button)
  7591.     Dim uievent As UIEventObject
  7592.     Set uievent = uicsdoc.UIObject
  7593.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  7594.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  7595.     End If
  7596. End Sub
  7597. NoticeType
  7598. $CSFlags
  7599.     1S2S3S4S9S
  7600. Categori_ze
  7601. _Edit Document
  7602. Send Docu_ment
  7603. _Forward
  7604. _Move To Folder...
  7605. _Remove From Folder
  7606. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7607. '++LotusScript Development Environment:2:5:(Forward):0:1
  7608. Declare Sub Click(Source As Button)
  7609. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7610. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7611. Private Sub BindEvents(Byval Objectname_ As String)
  7612.     Static Source As BUTTON
  7613.     Set Source = Bind(Objectname_)
  7614.     On Event Click From Source Call Click
  7615. End Sub
  7616. '++LotusScript Development Environment:2:2:Click:1:12
  7617. Sub Click(Source As Button)
  7618.     Dim uidoc As NotesUIDocument
  7619.     Dim uiobject As Variant
  7620.     Dim nResult As Integer
  7621.     Set uiobject = uicsdoc.UIObject
  7622.     Set uidoc = uicsdoc.UIDocument     
  7623.     If (uiobject.OkToAccept(False)) Then
  7624.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  7625.         Call uidoc.save
  7626.         Call uidoc.close
  7627.     End If    
  7628. End Sub
  7629. tmpNoActionBar
  7630. tmpOwnerHW
  7631. NoticeType
  7632. Broadcast
  7633.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7634. Respond\Decline
  7635. '++LotusScript Development Environment:2:5:(Options):0:66
  7636. '++LotusScript Development Environment:2:5:(Forward):0:1
  7637. Declare Sub Click(Source As Button)
  7638. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7639. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7640. Private Sub BindEvents(Byval Objectname_ As String)
  7641.     Static Source As BUTTON
  7642.     Set Source = Bind(Objectname_)
  7643.     On Event Click From Source Call Click
  7644. End Sub
  7645. '++LotusScript Development Environment:2:2:Click:1:12
  7646. Sub Click(Source As Button)
  7647.     uicsdoc.uiobject.SendComments = False    
  7648.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  7649. End Sub
  7650. tmpNoActionBar
  7651. tmpOwnerHW
  7652. NoticeType
  7653. Broadcast
  7654.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7655. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  7656. '++LotusScript Development Environment:2:5:(Forward):0:1
  7657. Declare Sub Click(Source As Button)
  7658. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7659. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7660. Private Sub BindEvents(Byval Objectname_ As String)
  7661.     Static Source As BUTTON
  7662.     Set Source = Bind(Objectname_)
  7663.     On Event Click From Source Call Click
  7664. End Sub
  7665. '++LotusScript Development Environment:2:2:Click:1:12
  7666. Sub Click(Source As Button)
  7667.     uicsdoc.uiobject.SendComments = False
  7668.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  7669. End Sub
  7670. tmpNoActionBar
  7671. tmpOwnerHW
  7672. Broadcast
  7673. PreventDelegate
  7674.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7675. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  7676. '++LotusScript Development Environment:2:5:(Forward):0:1
  7677. Declare Sub Click(Source As Button)
  7678. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7679. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7680. Private Sub BindEvents(Byval Objectname_ As String)
  7681.     Static Source As BUTTON
  7682.     Set Source = Bind(Objectname_)
  7683.     On Event Click From Source Call Click
  7684. End Sub
  7685. '++LotusScript Development Environment:2:2:Click:1:12
  7686. Sub Click(Source As Button)
  7687.     uicsdoc.uiobject.SendComments = False    
  7688.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  7689. End Sub
  7690. tmpNoActionBar
  7691. tmpOwnerHW
  7692. Broadcast
  7693. PreventCounter
  7694.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7695. Respond\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7696. '++LotusScript Development Environment:2:5:(Forward):0:1
  7697. Declare Sub Click(Source As Button)
  7698. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7699. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7700. Private Sub BindEvents(Byval Objectname_ As String)
  7701.     Static Source As BUTTON
  7702.     Set Source = Bind(Objectname_)
  7703.     On Event Click From Source Call Click
  7704. End Sub
  7705. '++LotusScript Development Environment:2:2:Click:1:12
  7706. Sub Click(Source As Button)
  7707.     Dim uidoc As NotesUIDocument
  7708.     Dim note As notesdocument
  7709.     Dim uiobject As Variant
  7710.     Set uiobject = uicsdoc.UIObject
  7711.     Set uidoc = uicsdoc.UIDocument     
  7712.     uiobject.SendComments = False
  7713.     uiobject.ActionInProgress = ACTION_ACCEPT
  7714.     Set note = uidoc.document
  7715.     Call note.replaceitemvalue("tmpPencilIn","1")
  7716.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  7717.     Call uidoc.save
  7718.     Call uidoc.close
  7719. End Sub
  7720. tmpNoActionBar
  7721. tmpOwnerHW
  7722. Broadcast
  7723.     1S2S3S4S5S6S7S8S9S10S
  7724. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7725. '++LotusScript Development Environment:2:5:(Forward):0:1
  7726. Declare Sub Click(Source As Button)
  7727. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7728. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7729. Private Sub BindEvents(Byval Objectname_ As String)
  7730.     Static Source As BUTTON
  7731.     Set Source = Bind(Objectname_)
  7732.     On Event Click From Source Call Click
  7733. End Sub
  7734. '++LotusScript Development Environment:2:2:Click:1:12
  7735. Sub Click(Source As Button)
  7736.     Dim uidoc As NotesUIDocument
  7737.     Dim uiobject As Variant
  7738.     Dim nResult As Integer
  7739.     Set uiobject = uicsdoc.UIObject
  7740.     Set uidoc = uicsdoc.UIDocument     
  7741.     If (uiobject.OkToAccept(True)) Then
  7742.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  7743.         Call uidoc.save
  7744.         Call uidoc.close
  7745.     End If    
  7746. End Sub
  7747. tmpNoActionBar
  7748. tmpOwnerHW
  7749. NoticeType
  7750. Broadcast
  7751.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7752. Respond with Comments\Declineo'++LotusScript Development Environment:2:5:(Options):0:66
  7753. '++LotusScript Development Environment:2:5:(Forward):0:1
  7754. Declare Sub Click(Source As Button)
  7755. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7756. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7757. Private Sub BindEvents(Byval Objectname_ As String)
  7758.     Static Source As BUTTON
  7759.     Set Source = Bind(Objectname_)
  7760.     On Event Click From Source Call Click
  7761. End Sub
  7762. '++LotusScript Development Environment:2:2:Click:1:12
  7763. Sub Click(Source As Button)
  7764.     uicsdoc.uiobject.SendComments = True
  7765.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  7766. End Sub
  7767. tmpNoActionBar
  7768. tmpOwnerHW
  7769. NoticeType
  7770. Broadcast
  7771.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7772. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  7773. '++LotusScript Development Environment:2:5:(Forward):0:1
  7774. Declare Sub Click(Source As Button)
  7775. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7776. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7777. Private Sub BindEvents(Byval Objectname_ As String)
  7778.     Static Source As BUTTON
  7779.     Set Source = Bind(Objectname_)
  7780.     On Event Click From Source Call Click
  7781. End Sub
  7782. '++LotusScript Development Environment:2:2:Click:1:12
  7783. Sub Click(Source As Button)
  7784.     uicsdoc.uiobject.SendComments = False    
  7785.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  7786. End Sub
  7787. tmpNoActionBar
  7788. tmpOwnerHW
  7789. Broadcast
  7790. PreventDelegate
  7791.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7792. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  7793. '++LotusScript Development Environment:2:5:(Forward):0:1
  7794. Declare Sub Click(Source As Button)
  7795. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7796. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7797. Private Sub BindEvents(Byval Objectname_ As String)
  7798.     Static Source As BUTTON
  7799.     Set Source = Bind(Objectname_)
  7800.     On Event Click From Source Call Click
  7801. End Sub
  7802. '++LotusScript Development Environment:2:2:Click:1:12
  7803. Sub Click(Source As Button)
  7804.     uicsdoc.uiobject.SendComments = True
  7805.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  7806. End Sub
  7807. tmpNoActionBar
  7808. tmpOwnerHW
  7809. Broadcast
  7810. PreventCounter
  7811.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  7812. Respond with Comments\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  7813. '++LotusScript Development Environment:2:5:(Forward):0:1
  7814. Declare Sub Click(Source As Button)
  7815. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7816. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7817. Private Sub BindEvents(Byval Objectname_ As String)
  7818.     Static Source As BUTTON
  7819.     Set Source = Bind(Objectname_)
  7820.     On Event Click From Source Call Click
  7821. End Sub
  7822. '++LotusScript Development Environment:2:2:Click:1:12
  7823. Sub Click(Source As Button)
  7824.     Dim uidoc As NotesUIDocument
  7825.     Dim note As notesdocument
  7826.     Dim uiobject As Variant
  7827.     Set uiobject = uicsdoc.UIObject
  7828.     Set uidoc = uicsdoc.UIDocument     
  7829.     uiobject.SendComments = True
  7830.     uiobject.ActionInProgress = ACTION_ACCEPT
  7831.     Set note = uidoc.document
  7832.     Call note.replaceitemvalue("tmpPencilIn","1")
  7833.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  7834.     Call uidoc.save
  7835.     Call uidoc.close
  7836. End Sub
  7837. tmpNoActionBar
  7838. tmpOwnerHW
  7839. Broadcast
  7840.     1S2S3S4S5S6S7S8S9S10S
  7841. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  7842. '++LotusScript Development Environment:2:5:(Forward):0:1
  7843. Declare Sub Click(Source As Button)
  7844. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7845. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7846. Private Sub BindEvents(Byval Objectname_ As String)
  7847.     Static Source As BUTTON
  7848.     Set Source = Bind(Objectname_)
  7849.     On Event Click From Source Call Click
  7850. End Sub
  7851. '++LotusScript Development Environment:2:2:Click:1:12
  7852. Sub Click(Source As Button)
  7853.     Dim uievent As UIEventObject
  7854.     Set uievent = uicsdoc.UIObject
  7855.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)",1) Then
  7856.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  7857.     End If
  7858. End Sub
  7859. tmpNoActionBar
  7860. tmpOwnerHW
  7861.     1S2S3S4S5S6S
  7862. Check Calendar2
  7863. Check Calendar
  7864.     0S0E
  7865. tmpOwnerHW
  7866. tmpNoActionBar
  7867.     0S1S2S3S4S5S6S
  7868. Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
  7869. '++LotusScript Development Environment:2:5:(Forward):0:1
  7870. Declare Sub Click(Source As Button)
  7871. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7872. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7873. Private Sub BindEvents(Byval Objectname_ As String)
  7874.     Static Source As BUTTON
  7875.     Set Source = Bind(Objectname_)
  7876.     On Event Click From Source Call Click
  7877. End Sub
  7878. '++LotusScript Development Environment:2:2:Click:1:12
  7879. Sub Click(Source As Button)
  7880.     Call uicsdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1) 
  7881. End Sub
  7882. tmpOwnerHW
  7883. NoticeType
  7884.     1S2S3S4S2E5S6S
  7885. Decline Countero'++LotusScript Development Environment:2:5:(Options):0:66
  7886. '++LotusScript Development Environment:2:5:(Forward):0:1
  7887. Declare Sub Click(Source As Button)
  7888. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7889. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7890. Private Sub BindEvents(Byval Objectname_ As String)
  7891.     Static Source As BUTTON
  7892.     Set Source = Bind(Objectname_)
  7893.     On Event Click From Source Call Click
  7894. End Sub
  7895. '++LotusScript Development Environment:2:2:Click:1:12
  7896. Sub Click(Source As Button)
  7897.     Call uicsdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1) 
  7898. End Sub
  7899. tmpOwnerHW
  7900. NoticeType
  7901.     1S2S3S4S2E5S6S
  7902. Add to Calendarc
  7903. tmpAction
  7904.  2097154
  7905.     1S2S
  7906. Broadcast
  7907. tmpNoActionBar
  7908. tmpOwnerHW
  7909.     1S2S3S4S5S6S7S8S9S10S
  7910. Send Updated Information... '++LotusScript Development Environment:2:5:(Options):0:66
  7911. '++LotusScript Development Environment:2:5:(Forward):0:1
  7912. Declare Sub Click(Source As Button)
  7913. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7914. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7915. Private Sub BindEvents(Byval Objectname_ As String)
  7916.     Static Source As BUTTON
  7917.     Set Source = Bind(Objectname_)
  7918.     On Event Click From Source Call Click
  7919. End Sub
  7920. '++LotusScript Development Environment:2:2:Click:1:12
  7921. Sub Click(Source As Button)
  7922.     Dim uievent As UIEventObject
  7923.     Set uievent = uicsdoc.UIObject
  7924.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  7925.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  7926.     End If
  7927. End Sub
  7928. NoticeType
  7929. $CSFlags
  7930.     1S2S3S4S9S
  7931. Update Information..."'++LotusScript Development Environment:2:5:(Options):0:66
  7932. '++LotusScript Development Environment:2:5:(Forward):0:1
  7933. Declare Sub Click(Source As Button)
  7934. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7935. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7936. Private Sub BindEvents(Byval Objectname_ As String)
  7937.     Static Source As BUTTON
  7938.     Set Source = Bind(Objectname_)
  7939.     On Event Click From Source Call Click
  7940. End Sub
  7941. '++LotusScript Development Environment:2:2:Click:1:12
  7942. Sub Click(Source As Button)
  7943.     Dim uievent As UIEventObject
  7944.     Set uievent = uicsdoc.UIObject
  7945.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  7946.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  7947.     End If
  7948. End Sub
  7949. NoticeType
  7950. $CSFlags
  7951.     1S2S3S4S9S
  7952. Lotus Product
  7953. OBJECT
  7954. Lotus Product
  7955. OBJECT
  7956. Lotus Product
  7957. OBJECT
  7958. Lotus Product
  7959. OBJECT
  7960. Lotus Product
  7961. OBJECT
  7962. Lotus Product
  7963. OBJECT
  7964. Lotus Product
  7965. OBJECT
  7966. Lotus Product
  7967. OBJECT
  7968. Lotus Product
  7969. Lotus Product
  7970. OBJECT
  7971. Lotus Product
  7972. OBJECT
  7973. Lotus Product
  7974. OBJECT
  7975. Lotus Product
  7976. KtV0.0
  7977. {Kt{,
  7978. K$!-0
  7979. ]\|K$!-0
  7980. K$!-0
  7981. K$!-0
  7982. K$!-0
  7983. K$!-0
  7984. K$!-0
  7985. ^l|K$!-0
  7986. ^l|Jl|
  7987. ]\|Jl|
  7988. ]\|K$!-0
  7989. Lotus Product
  7990. OBJECT
  7991. Lotus Product
  7992. Ir    8*r    
  7993. O=Lotus Notes
  7994. O=Lotus Notes
  7995. PURSAFO
  7996. |.:#U
  7997. O=Lotus Notes
  7998. CN=Lotus Notes Template Development/O=Lotus Notes
  7999. PURSAFO
  8000. NewStartDate
  8001. NewStartTime
  8002. NewEndDate
  8003. NewEndTime
  8004. $HTMLDocumentStyles
  8005. $SCRIPTOBJ_24
  8006. $SCRIPTOBJ_25
  8007. $SCRIPTOBJ_27
  8008. $SCRIPTOBJ_28
  8009. $INFO
  8010. $WINDOWTITLE
  8011. $AppHelpFormula
  8012. $Script
  8013. $$Script_O
  8014. $$ScriptName
  8015. $$FormScript
  8016. $$$FormScript_O
  8017. $BODY
  8018. $V5ACTIONS
  8019. $ACTIONS
  8020. $SCRIPTOBJ_6
  8021. $SCRIPTOBJ_7
  8022. $SCRIPTOBJ_8
  8023. $SCRIPTOBJ_9
  8024. $SCRIPTOBJ_10
  8025. $SCRIPTOBJ_11
  8026. $SCRIPTOBJ_12
  8027. $SCRIPTOBJ_13
  8028. $SCRIPTOBJ_14
  8029. $SCRIPTOBJ_15
  8030. $SCRIPTOBJ_16
  8031. $SCRIPTOBJ_18
  8032. $SCRIPTOBJ_19
  8033. $SCRIPTOBJ_21
  8034. $SCRIPTOBJ_22
  8035. $PublicAccess
  8036. //to define values
  8037. var tmpImportance;
  8038. var tmpDeliveryReport;
  8039. var tmpDeliveryPriority;
  8040. var tmpReturnReceipt;
  8041. //...to get selected value of keyword field
  8042. function GetSelected(fieldname) {
  8043. //alert (fieldname);
  8044.     var selectedvalue="";    
  8045.     var sind=0;
  8046.         sind =fieldname.selectedIndex;
  8047.     //alert(sind);
  8048.         selectedvalue=fieldname.options[sind].value;
  8049. //alert(selectedvalue);
  8050. return(selectedvalue);
  8051. //...BUTTON handler for the OK click...
  8052. function OKClick() {
  8053.     // put the values back in the underlying form in the right format        
  8054.     window.opener.document.forms[0].Importance.value=GetSelected(tmpImportance);
  8055.     window.opener.document.forms[0].DeliveryReport.value=GetSelected(tmpDeliveryReport);
  8056.     window.opener.document.forms[0].DeliveryPriority.value=GetSelected(tmpDeliveryPriority);
  8057. if (tmpReturnReceipt.checked) 
  8058.     window.opener.document.forms[0].ReturnReceipt.value="1";
  8059.     window.opener.document.forms[0].ReturnReceipt.value="";
  8060. self.close();
  8061. //..button handler for cancell click
  8062. function CancelClick() {
  8063. self.close();
  8064. tmpImportance = document.forms[0].tmpImportance;
  8065. tmpDeliveryReport = document.forms[0].tmpDeliveryReport;
  8066. tmpDeliveryPriority = document.forms[0].tmpDeliveryPriority;
  8067. tmpSMTPEncoding = document.forms[0].tmpSMTPEncoding;
  8068. tmpMIMEFormat = document.forms[0].tmpMIMEFormat;
  8069. tmpReturnReceipt = document.forms[0].tmpReturnReceipt;
  8070.  DeliveryOptions
  8071. <FONT SIZE="2"><B>Delivery options</B>
  8072.     <br>
  8073. <FONT SIZE="2">Importance:
  8074. .,$,  , :
  8075. tmpImportance
  8076. Normal|2High|1Low|3z
  8077. tmpImportance_1FONT Size=2
  8078. tmpReturnReceipt
  8079. Return receipt|1z
  8080. tmpReturnReceipt_1
  8081. <FONT SIZE="2">Delivery report:
  8082. tmpDeliveryReport
  8083. Only on failure|BConfirm delivery|CTrace entire path|TNone|N
  8084. tmpDeliveryReport_1FONT Size=2
  8085. <FONT SIZE="2">Delivery priority:
  8086. tmpDeliveryPriority
  8087. High|HNormal|NLow|Lz
  8088. tmpDeliveryPriority_1FONT Size=2
  8089. New Button
  8090. Need a newer version of Notes to execute this button.
  8091.     0S0E
  8092. OKClick()
  8093.        OK    
  8094. FONT Size=2
  8095. New Button
  8096. Need a newer version of Notes to execute this button.
  8097.     0S0E
  8098. CancelClick()
  8099.     Cancel 
  8100. FONT Size=2
  8101. O=Lotus Notes
  8102. O=Lotus Notes
  8103. PURSAFO
  8104. |.:#U
  8105. O=Lotus Notes
  8106. CN=Lotus Notes Template Development/O=Lotus Notes
  8107. PURSAFO
  8108. $HTMLCode
  8109. $INFO
  8110. $$ScriptName
  8111. $BODY
  8112. Times New Roman
  8113. '++LotusScript Development Environment:2:5:(Options):0:66
  8114. '++LotusScript Development Environment:2:5:(Forward):0:1
  8115. Declare Sub Exiting(Source As Field)
  8116. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8117. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8118. Private Sub BindEvents(Byval Objectname_ As String)
  8119.      Static Source As FIELD
  8120.      Set Source = Bind(Objectname_)
  8121.      On Event Exiting From Source Call Exiting
  8122. End Sub
  8123. '++LotusScript Development Environment:2:2:Exiting:1:12
  8124. Sub Exiting(Source As Field)
  8125.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  8126. '     Call ExpandGroupNames ( "IgnoreFrom" )
  8127.      
  8128. End Sub
  8129. Lotus Product{Q
  8130. V0.0S
  8131. Kd{,D
  8132. ^,|J,|
  8133. ^d~}(
  8134. ^t~}P
  8135. ^T~}(
  8136. ^t~}P
  8137. ^T~}P
  8138. ^d~}(
  8139. JT~KD~-
  8140. JT~KD~-
  8141. KD~-<
  8142. tKD~-`
  8143. (Help)
  8144. MAIL_F_OUTOFOFFICEPROFILE
  8145.     0S0E
  8146. '++LotusScript Development Environment:2:5:(Options):0:74
  8147. Option Public
  8148. Option Declare
  8149. Use "Common"
  8150. '++LotusScript Development Environment:2:5:(Forward):0:1
  8151. Declare Class OutOfOfficeControl As BaseApplication
  8152. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8153. Dim OfficeControl As OutOfOfficeControl
  8154. Class OutOfOfficeControl As BaseApplication
  8155.     Public  m_agentOutOfOffice As notesagent    
  8156.     Private m_uiws As notesuiworkspace    
  8157.     Private m_dbCurrentDatabase As notesdatabase
  8158.     Private m_noteUIDoc As notesuidocument
  8159.     Private m_noteCalendarEntry As NotesDocument
  8160.     Private m_dtFirstDayOut As notesdatetime
  8161.     Private m_dtFirstDayBack As notesdatetime
  8162.     Private m_dtNow As notesdatetime
  8163.     Private m_namHomeServer As notesname
  8164.     Private m_MailStringTable As MailToolsStringTable
  8165.     Private m_vHomeServer As Variant
  8166.     Private m_nSuccess As Integer
  8167.     Private m_nResult As Integer    
  8168.     Private m_nUserHasRestrictedAccess As Integer
  8169.     Sub New()
  8170.         Set Me.m_uiws = New notesuiworkspace
  8171.         Set Me.m_noteUIDoc = Me.m_uiws.currentdocument
  8172.         Set Me.m_dbCurrentDatabase= session.currentdatabase
  8173.         Set Me.m_agentOutOfOffice = Me.m_dbCurrentDatabase.GetAgent("OutOfOffice")
  8174.         Set Me.m_MailStringTable = New MailToolsStringTable
  8175.     End Sub
  8176.     Function PostOpen()
  8177.         Me.m_noteUIDoc.autoreload = False
  8178.         If Me.m_agentOutOfOffice.IsEnabled Then
  8179.             Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
  8180.             Call Me.m_noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","1")
  8181.             Set Me.m_dtFirstDayBack = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayBack"))
  8182.             Set Me.m_dtNow = New notesdatetime(Now())
  8183.         Else
  8184.             Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
  8185.             Call Me.m_noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","0")
  8186.         End If
  8187.         Call Me.m_noteUIDoc.reload()
  8188.         Call Me.m_noteUIDoc.Refreshhideformulas()
  8189.     End Function
  8190.     Private Function ToggleEnableDisableEx() As Integer
  8191.         ToggleEnableDisableEx = True
  8192.         On Error Goto TRAP
  8193.         If Me.m_agentOutOfOffice.IsEnabled Then
  8194.             Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 47,Null) & Chr(13) & _
  8195.             Me.m_MailStringTable.GetString(TOOL_STRING + 48,Null),MB_YESNO,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  8196.             If Me.m_nResult = IDYES Then
  8197.                 Me.m_agentOutOfOffice.IsEnabled = False
  8198.                 Call Me.m_agentOutOfOffice.save()
  8199.                 If Me.m_agentOutOfOffice.IsEnabled Then
  8200.                     Call Me.m_noteUIDoc.document.save(True,True,True)
  8201.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 44,Null) _
  8202.                     & Chr(13) & Me.m_MailStringTable.GetString(TOOL_STRING + 45,Null), _
  8203.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  8204.                 Else
  8205.                     Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
  8206.                     Call Me.m_noteUIDoc.document.replaceitemvalue("Notified","")
  8207.                     Call Me.m_noteUIDoc.document.replaceitemvalue("SaveOptions","1")
  8208.                     Call Me.m_noteUIDoc.document.save(True,True,True)
  8209.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 49,Null), _
  8210.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  8211.                     
  8212.                     If Me.m_noteUIDoc.document.GetItemValue("OwnerOfCalendarEntry")(0) = "1" Then
  8213.                         'call look for calendar entry and ask if I should disable busy time only if date is less than return date?
  8214.                         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtNow)  > 0 Then
  8215.                             Me.m_nSuccess = Messagebox( Me.m_MailStringTable.GetString(TOOL_STRING + 66,Null), MB_YESNO, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8216.                             If Me.m_nSuccess = IDYES Then                            
  8217.                                 Set Me.m_noteCalendarEntry = Me.m_dbCurrentDatabase.GetDocumentByUNID(Me.m_noteUIDoc.document.GetItemValue("CalendarEntryUNID")(0))
  8218.                                 If Not Me.m_noteCalendarEntry Is Nothing Then
  8219.                                     With Me.m_noteCalendarEntry
  8220.                                         Call .ReplaceItemValue("$BusyPriority","2")
  8221.                                         Call .ReplaceItemValue("BookFreeTime", "1")                
  8222.                                         Call .Save(True,True,True)
  8223.                                     End With
  8224.                                     Call Me.m_noteUIDoc.document.replaceitemvalue("OwnerOfCalendarEntry","0")
  8225.                                     Call Me.m_noteUIDoc.document.replaceitemvalue("CalendarEntryUNID", "")
  8226.                                 Else
  8227.                                     Call DisplayWarn(Me.m_MailStringTable.GetString(TOOL_STRING + 67,Null), MB_OK,_
  8228.                                     Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8229.                                 End If
  8230.                             End If
  8231.                         End If
  8232.                     End If                    
  8233.                     
  8234.                 End If
  8235.             End If
  8236.             Exit Function
  8237.         Else
  8238.             If ValidateSettings() Then
  8239.                 If Me.m_dbCurrentDatabase.Currentaccesslevel < 5 Then    
  8240.                     Me.m_nUserHasRestrictedAccess = True
  8241.                     Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 50,Null), _
  8242.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8243.                     Exit Function
  8244.                 End If
  8245.                 Me.m_vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)
  8246.                 Set Me.m_namHomeServer = New notesname(Me.m_vHomeServer(0))
  8247.                 If Me.m_vHomeServer(0) = "" Then
  8248.                     Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 51,Null) & Chr(13) & _
  8249.                     Me.m_MailStringTable.GetString(TOOL_STRING + 52,Null), _
  8250.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8251.                     Exit Function
  8252.                 End If
  8253.                 Me.m_agentOutOfOffice.Servername = Cstr(Me.m_vHomeServer(0))        
  8254.                 Me.m_agentOutOfOffice.IsEnabled = True            
  8255.                 Call Me.m_agentOutOfOffice.save
  8256.                 If Me.m_agentOutOfOffice.IsEnabled Then
  8257.                     Call BookBusyTime()
  8258.                     Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
  8259.                     Call Me.m_noteUIDoc.document.replaceitemvalue("SaveOptions","1")
  8260.                     Call Me.m_noteUIDoc.document.save(True,True,True)
  8261.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 53,Null)  & _
  8262.                     Me.m_namHomeServer.Abbreviated & Chr(13) & Me.m_MailStringTable.GetString(TOOL_STRING + 54,Null) & _
  8263.                     Me.m_noteUIDoc.FieldGetText("FirstDayOut") & Me.m_MailStringTable.GetString(TOOL_STRING + 55,Me.m_noteUIDoc.FieldGetText("FirstDayBack")),MB_OK, _
  8264.                     Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8265.                 Else
  8266.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 56,Null) & Chr(13) & _
  8267.                     Me.m_MailStringTable.GetString(TOOL_STRING + 50,Null) ,MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8268.                 End If
  8269.             Else
  8270.                 ToggleEnableDisableEx = False        
  8271.             End If
  8272.         End If            
  8273.         Exit Function
  8274. Trap:
  8275.         If Err = 4091 Then
  8276.             Resume Next
  8277.         Else
  8278.             Print("Notes error: " & Cstr(Err) & " " &  Error$)
  8279.             Resume Next
  8280.         End If 
  8281.     End Function
  8282.     Public Function ToggleEnableDisable()
  8283.         If ToggleEnableDisableEx() Then
  8284.             Call Me.m_noteUIDoc.reload()
  8285.             Call Me.m_noteUIDoc.Refreshhideformulas()
  8286.             Call Me.m_noteUIDoc.Save
  8287.         End If
  8288.     End Function
  8289.     Public Function ValidateSettings() As Integer
  8290.         ValidateSettings = False
  8291.         If (Me.m_noteUIDoc.FieldGetText("FirstDayOut") = "") Or _
  8292.         (Me.m_noteUIDoc.FieldGetText("FirstDayBack") = "") Then
  8293.             Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 57,Null), _
  8294.             MB_OK, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8295.             Exit Function
  8296.         End If
  8297.         Set Me.m_dtFirstDayOut = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayOut"))
  8298.         Set Me.m_dtFirstDayBack = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayBack"))
  8299.         Set Me.m_dtNow = New notesdatetime(Now())
  8300.         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtNow)  < 0 Then
  8301.             Me.m_nSuccess = Messagebox( Me.m_MailStringTable.GetString(TOOL_STRING + 58,Null), _
  8302.             MB_OK, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8303.             Exit Function    
  8304.         End If
  8305.         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtFirstDayOut)  < 0 Then
  8306.             Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 59,Null), _
  8307.             MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8308.             Exit Function    
  8309.         End If
  8310.         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtFirstDayOut)  = 0 Then
  8311.             Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 60,Null), _
  8312.             MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  8313.             Exit Function    
  8314.         End If
  8315.         ValidateSettings = True
  8316.     End Function
  8317.     Public Function BookBusyTime()
  8318.         If Me.m_noteUIDoc.document.BookBusyTime(0) = "1" Then
  8319.             Set Me.m_noteCalendarEntry = Me.m_dbCurrentDatabase.CreateDocument()
  8320.             With Me.m_noteCalendarEntry        
  8321.                 Call .ReplaceItemValue("Form","Appointment")
  8322.                 Call .ReplaceItemValue("StartDate", Me.m_noteUIDoc.document.FirstDayOut)
  8323.                 Call .ReplaceItemValue("StartDateTime", Me.m_noteUIDoc.document.FirstDayOut)
  8324.                 Call .ReplaceItemValue("EndDate", Me.m_noteUIDoc.document.FirstDayBack)
  8325.                 Call .ReplaceItemValue("EndDateTime", Me.m_noteUIDoc.document.FirstDayBack)
  8326.                 Call .ReplaceItemValue("$BusyName", session.username)
  8327.                 Call .ReplaceItemValue("$BusyPriority", "1")
  8328.                 Call .ReplaceItemValue("BookFreeTime", "")                
  8329.                 Call .ReplaceItemValue("$PublicAccess","1")
  8330.                 Call .ReplaceItemValue("AppointmentType","2")
  8331.                 Call .ReplaceItemValue("ApptUNID",.Universalid)                
  8332.                 Call .ReplaceItemValue("ExcludeFromView","D")
  8333.                 Call .ReplaceItemValue("Subject","Out Of Office")
  8334.                 Call .ReplaceItemValue("_ViewIcon",9)
  8335.                 Call .ReplaceItemValue("CreatedByAgent","1")
  8336.                 Call .Save(True,True,True)
  8337.             End With
  8338.             Call Me.m_noteUIDoc.document.replaceitemvalue("OwnerOfCalendarEntry","1")
  8339.             Call Me.m_noteUIDoc.document.replaceitemvalue("CalendarEntryUNID", Me.m_noteCalendarEntry.Universalid)
  8340.         End If
  8341.     End Function
  8342.     Public Function QueryClose(Source As notesuidocument, Continue As Variant)
  8343.         Dim nResult As Integer
  8344.         If Cint(Source.document.GetItemValue("SaveOptions")(0)) Then
  8345.             If OfficeControl.ValidateSettings() Then
  8346.                 If (Cint(Source.document.GetItemValue("CurrentStatus")(0))) And Not (Cint(Source.document.GetItemValue("AgentEnableOnOpen")(0))) Then
  8347.                     If Not Me.m_nUserHasRestrictedAccess Then
  8348.                         nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 65,Null),MB_YESNO,_
  8349.                         Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  8350.                         If nResult = IDYES Then
  8351.                             Continue = True        
  8352.                         Else
  8353.                             Continue = False            
  8354.                         End If
  8355.                     End If
  8356.                 End If 
  8357.             Else
  8358.                 Continue = False        
  8359.             End If
  8360.         Else
  8361.         End If    
  8362.     End Function
  8363. End Class    
  8364. Lotus Product
  8365. OBJECT
  8366. (    (    X
  8367. }T    #}
  8368. }T    #$
  8369.     0S0E
  8370.  OutOfOfficeProfile'++LotusScript Development Environment:2:5:(Options):0:66
  8371. '++LotusScript Development Environment:2:5:(Forward):0:1
  8372. Declare Sub Postopen(Source As Notesuidocument)
  8373. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8374. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8375. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8376. Private Sub BindEvents(Byval Objectname_ As String)
  8377.     Static Source As NOTESUIDOCUMENT
  8378.     Set Source = Bind(Objectname_)
  8379.     On Event Postopen From Source Call Postopen
  8380.     On Event Queryclose From Source Call Queryclose
  8381. End Sub
  8382. '++LotusScript Development Environment:2:2:Postopen:1:12
  8383. Sub Postopen(Source As Notesuidocument)
  8384.     Set OfficeControl = New OutOfOfficeControl
  8385.     Call OfficeControl.PostOpen()
  8386. End Sub
  8387. '++LotusScript Development Environment:2:2:Queryclose:1:12
  8388. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8389.     If Not Cint(Source.Document.GetItemValue("SaveOptions")(0)) Then
  8390.         Call OfficeControl.QueryClose(Source,Continue)
  8391.     End If
  8392. End Sub
  8393. Lotus Product
  8394. OBJECT
  8395. Lotus Product
  8396. OBJECT
  8397. '++LotusScript Development Environment:2:5:(Options):0:66
  8398. '++LotusScript Development Environment:2:5:(Forward):0:1
  8399. Declare Sub Exiting(Source As Field)
  8400. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8401. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8402. Private Sub BindEvents(Byval Objectname_ As String)
  8403.      Static Source As FIELD
  8404.      Set Source = Bind(Objectname_)
  8405.      On Event Exiting From Source Call Exiting
  8406. End Sub
  8407. '++LotusScript Development Environment:2:2:Exiting:1:12
  8408. Sub Exiting(Source As Field)
  8409.  ' can't rely on this since exit event won't fire if we directly exit or save profile
  8410.  '    Call ExpandGroupNames ( "SpecialPeople" )
  8411.      
  8412. End Sub
  8413. Lotus Product
  8414. OBJECT
  8415. '++LotusScript Development Environment:2:5:(Options):0:66
  8416. '++LotusScript Development Environment:2:5:(Forward):0:1
  8417. Declare Sub Exiting(Source As Field)
  8418. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8419. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8420. Private Sub BindEvents(Byval Objectname_ As String)
  8421.      Static Source As FIELD
  8422.      Set Source = Bind(Objectname_)
  8423.      On Event Exiting From Source Call Exiting
  8424. End Sub
  8425. '++LotusScript Development Environment:2:2:Exiting:1:12
  8426. Sub Exiting(Source As Field)
  8427.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  8428. '     Call ExpandGroupNames ( "IgnoreFrom" )
  8429.      
  8430. End Sub
  8431. Lotus Product
  8432. [V0.0 -L
  8433. '++LotusScript Development Environment:2:5:(Options):0:66
  8434. '++LotusScript Development Environment:2:5:(Forward):0:1
  8435. Declare Sub Exiting(Source As Field)
  8436. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8437. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8438. Private Sub BindEvents(Byval Objectname_ As String)
  8439.      Static Source As FIELD
  8440.      Set Source = Bind(Objectname_)
  8441.      On Event Exiting From Source Call Exiting
  8442. End Sub
  8443. '++LotusScript Development Environment:2:2:Exiting:1:12
  8444. Sub Exiting(Source As Field)
  8445.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  8446. '     Call ExpandGroupNames ( "IgnoreFrom" )
  8447.      
  8448. End Sub
  8449. Lotus Product
  8450. OBJECT
  8451. Action
  8452. Profile
  8453.     1S2S
  8454.     Always Hidden: 
  8455. .,$///:
  8456. AgentEnableOnOpen
  8457. AgentEnableOnOpen
  8458. Notified
  8459. Notifiedz
  8460. Notified
  8461. Princ
  8462. CalendarProfile
  8463. Owner
  8464.     1S2S6S
  8465. Princ
  8466. Princ
  8467.     0R3S4S6S8S
  8468. Senderz
  8469. Sender
  8470. System
  8471. Fromz
  8472. Please do not delete - Out of Office Profile
  8473. Subject
  8474. Subject
  8475. ExcludeFromView
  8476. ExcludeFromView
  8477. _ViewIcon
  8478. _ViewIcon
  8479.     0S0E
  8480. DialogStatus
  8481. .,$,  , :
  8482. Path_Info
  8483. Path_Info
  8484. .,$,  , :
  8485. Query_String
  8486. Query_String
  8487. Out of Office
  8488.     Status: 
  8489. CurrentStatus
  8490. CurrentStatus
  8491.     3S4S6S8S
  8492. CurrentStatus
  8493. Enabled | 0Disabled | 1z
  8494. CurrentStatus
  8495.     0S0E
  8496.     I will be out of the office:
  8497.     Leaving:
  8498.     0S0E
  8499. .,$ //:
  8500. pcDate
  8501. FirstDayOut
  8502.     1S2S
  8503. TodayInt,
  8504.     0R1S2S
  8505. ConNext
  8506. pcDate
  8507. nextG
  8508.     0R1S2S8S11S13S
  8509. AdjustAmount
  8510. pcDate
  8511. pcDate
  8512. pcDate
  8513. pcDate
  8514. pcDate
  8515. pcDate
  8516. pcDate
  8517.     0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
  8518. AdjustAmount
  8519. pcDateW
  8520. AdjustAmount
  8521. ConNext
  8522. TodayInt#
  8523.     0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayOut
  8524. FirstDayOut
  8525.     Returning:
  8526. .,$ //:
  8527. FirstDayBack
  8528. pcDate
  8529. FirstDayBacka
  8530.     1S2S
  8531. TodayInt,
  8532.     0R1S2S
  8533. ConNext
  8534. pcDate
  8535. nextG
  8536.     0R1S2S8S11S13S
  8537. AdjustAmount
  8538. pcDate
  8539. pcDate
  8540. pcDate
  8541. pcDate
  8542. pcDate
  8543. pcDate
  8544. pcDate
  8545.     0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
  8546. AdjustAmount
  8547. pcDateW
  8548. AdjustAmount
  8549. ConNext
  8550. TodayInt#
  8551.     0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBackz
  8552. FirstDayBack
  8553. BookBusyTime
  8554. Book Busytime for these dates|1
  8555. BookBusyTime
  8556.     0S0E
  8557. Dates
  8558.     Standard Out of Office message for most people/groups:
  8559.     Whomever
  8560.     Subject:
  8561.  is out of the office."
  8562.     1S2S
  8563. GeneralSubjectz
  8564. GeneralSubject
  8565. FirstDayOut
  8566. FirstDayBack
  8567. I will be out of the office starting  
  8568. FirstDayOut
  8569.  and will not return until 
  8570. FirstDayBackK
  8571.     3S4S5S6S7S8S10S12S13S14S21S22S23S24S31S32S
  8572. DaysOut
  8573. DaysOut
  8574. I will respond to your message when I return.
  8575. GeneralMessagez
  8576. GeneralMessage
  8577. Basic Message
  8578.     Special Out of Office message for special people:
  8579. SpecialPeople
  8580. SpecialPeople
  8581. SpecialPeople
  8582.     Subject:
  8583.  is out of the office."
  8584.     1S2S
  8585. SpecialSubjectz
  8586. SpecialSubject
  8587. FirstDayOut
  8588. FirstDayBack
  8589. I will be out of the office starting 
  8590. FirstDayOut
  8591.  and will be returning on "
  8592. FirstDayBackV
  8593.     3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
  8594. DaysOut_1
  8595. DaysOut_1
  8596. SpecialMessage
  8597. SpecialMessagez
  8598. SpecialMessage
  8599. Special Message
  8600. .,$///:
  8601. ExcludeInternetEmail
  8602. Don't send notices to Internet Addresses|1
  8603.     Do not send an Out of Office notification to the following people/groups
  8604. IgnoreFromList
  8605. IgnoreFromListz
  8606. IgnoreFrom
  8607.     Do not send an Out of Office notification in response to documents addressed to the following group(s).
  8608. IgnoreSend
  8609. IgnoreSendz
  8610. IgnoreSend
  8611.     Do not send an Out of Office notification If the subject contains this exact phrase(s). (note: case sensitive)
  8612. IgnoreFrom
  8613. IgnoreSubjectPhrase
  8614. IgnoreFrom_1
  8615. Exclusions
  8616. SaveOptions
  8617. SaveOptions
  8618. SaveOptions
  8619.     0R2RT7RTT12RT16RT
  8620.      OK    
  8621. SaveOptions
  8622. SaveOptions
  8623. SaveOptions
  8624. Cancel 
  8625. CurrentStatus
  8626.     1S2S
  8627. '++LotusScript Development Environment:2:5:(Options):0:66
  8628. '++LotusScript Development Environment:2:5:(Forward):0:1
  8629. Declare Sub Click(Source As Button)
  8630. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8631. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8632. Private Sub BindEvents(Byval Objectname_ As String)
  8633.     Static Source As BUTTON
  8634.     Set Source = Bind(Objectname_)
  8635.     On Event Click From Source Call Click
  8636. End Sub
  8637. '++LotusScript Development Environment:2:2:Click:1:12
  8638. Sub Click(Source As Button)
  8639.     Call OfficeControl.ToggleEnableDisable()
  8640. End Sub
  8641. Lotus Product
  8642. New Button
  8643. Need a newer version of Notes to execute this button.
  8644.     0S0E
  8645. Enable 
  8646. CurrentStatus
  8647.     1S2S
  8648. '++LotusScript Development Environment:2:5:(Options):0:66
  8649. '++LotusScript Development Environment:2:5:(Forward):0:1
  8650. Declare Sub Click(Source As Button)
  8651. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8652. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8653. Private Sub BindEvents(Byval Objectname_ As String)
  8654.     Static Source As BUTTON
  8655.     Set Source = Bind(Objectname_)
  8656.     On Event Click From Source Call Click
  8657. End Sub
  8658. '++LotusScript Development Environment:2:2:Click:1:12
  8659. Sub Click(Source As Button)
  8660.     Call OfficeControl.ToggleEnableDisable()
  8661. End Sub
  8662. Lotus Product
  8663. New Button
  8664. Need a newer version of Notes to execute this button.
  8665.     0S0E
  8666. Disable
  8667. FirstDayOut can be entered as a date or a day of the week.
  8668. It is then converted to a text string containing a date, which 
  8669.     0R1S
  8670. @TextToTime does not always recognize as Text so it is 
  8671.     0R1S
  8672. converted to Text then to Time
  8673.     0R1S
  8674. DateValue
  8675. FirstDayOut
  8676.     0R1S2S
  8677. DateValue
  8678. DateValue
  8679. DateValue
  8680.     0R7S12S17S19S21S
  8681. dateFirstDayOut
  8682. dateFirstDayOut
  8683. FirstDayBack can be entered as a date or a day of the week.
  8684. It is then converted to a text string containing a date, which 
  8685.     0R1S
  8686. @TextToTime does not always recognize as Text so it is 
  8687.     0R1S
  8688. converted to Text then to Time
  8689.     0R1S
  8690.  MUST SET THE TIME COMPONENT TO 12:00:00AM in order for
  8691.     0R1S
  8692. an calendar entry to be properly added..
  8693.     0R1S
  8694. DateValue
  8695. FirstDayBackV
  8696.     0R1S2S
  8697. DateValue
  8698. DateValue
  8699. DateValue
  8700.     0R7S12S17S19S21S
  8701. dateFirstDayBackz
  8702. dateFirstDayBack
  8703. Categori_ze
  8704. _Edit Document
  8705. Send Docu_ment
  8706. _Forward
  8707. _Move To Folder...
  8708. _Remove From Folder
  8709.     7S12S
  8710. CancelB
  8711. SaveOptions
  8712. Enable agent
  8713. CurrentStatus
  8714. CurrentStatus
  8715.     1S3S
  8716. Notified
  8717.     0RR1S
  8718. FirstDayOut
  8719. FirstDayOut
  8720.     0R1S
  8721. FirstDayBack
  8722. FirstDayBack
  8723.     0R1S
  8724. title
  8725. Lotus Notes Out of Office
  8726.     0R2S
  8727. You must indicate when you are leaving and when you will be back.
  8728.     0R2S
  8729. Your return date must be after today's date.
  8730.     0R2S
  8731. Your return date cannot be earlier than the leave date.
  8732.     0R2S
  8733. Please ask a Manager or Designer of this database to enable the agent for you.
  8734.     0R2S
  8735. The Out of Office agent was not enabled.
  8736.     0R2S
  8737. The Out of Office agent is now enabled.  When people send you mail between 
  8738. FirstDayOut
  8739.  and 
  8740. FirstDayBackV
  8741.  it will inform them of your absence.
  8742.     0R2S3S4S8S9S10S11S15S16S
  8743. Please ask a Manager or Designer of this database to disable the agent for you.
  8744.     0R2S
  8745. Your Out of Office agent is still enabled.
  8746.     0R2S
  8747. msg10
  8748. NOTE: If you created an Out of Office calendar entry, you should adjust your Out of Office entry dates to reflect your actual return date.
  8749.     0R2S
  8750. msg11
  8751. Your Out of Office has been disabled.
  8752.     0R2S
  8753. CurrentStatus
  8754. FirstDayOut
  8755. FirstDayBack
  8756. Validation Error
  8757. You must indicate when you are leaving and when you will be back.
  8758. DateFirstDayBack-
  8759. Validation Error
  8760. Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
  8761. DateFirstDayBack-
  8762. msg10
  8763. OutOfOffice
  8764. title
  8765. msgX"
  8766. title
  8767. OutOfOffice
  8768. title
  8769. msgX"
  8770. title
  8771. msg11
  8772.     0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
  8773. Categori_ze
  8774. _Edit Document
  8775. Send Docu_ment
  8776. _Forward
  8777. _Move To Folder...
  8778. _Remove From Folder
  8779.     7S12S
  8780. CancelB
  8781. SaveOptions
  8782. Enable agent
  8783. CurrentStatus
  8784. CurrentStatus
  8785.     1S3S
  8786. Notified
  8787.     0RR1S
  8788. FirstDayOut
  8789. FirstDayOut
  8790.     0R1S
  8791. FirstDayBack
  8792. FirstDayBack
  8793.     0R1S
  8794. title
  8795. Lotus Notes Out of Office
  8796.     0R2S
  8797. You must indicate when you are leaving and when you will be back.
  8798.     0R2S
  8799. Your return date must be after today's date.
  8800.     0R2S
  8801. Your return date cannot be earlier than the leave date.
  8802.     0R2S
  8803. Please ask a Manager or Designer of this database to enable the agent for you.
  8804.     0R2S
  8805. The Out of Office agent was not enabled.
  8806.     0R2S
  8807. The Out of Office agent is now enabled.  When people send you mail between 
  8808. FirstDayOut
  8809.  and 
  8810. FirstDayBackV
  8811.  it will inform them of your absence.
  8812.     0R2S3S4S8S9S10S11S15S16S
  8813. Please ask a Manager or Designer of this database to disable the agent for you.
  8814.     0R2S
  8815. Your Out of Office agent is still enabled.
  8816.     0R2S
  8817. msg10
  8818. NOTE: If you created an Out of Office calendar entry, you should adjust your Out of Office entry dates to reflect your actual return date.
  8819.     0R2S
  8820. msg11
  8821. Your Out of Office has been disabled.
  8822.     0R2S
  8823. CurrentStatus
  8824. FirstDayOut
  8825. FirstDayBack
  8826. Validation Error
  8827. You must indicate when you are leaving and when you will be back.
  8828. DateFirstDayBack-
  8829. Validation Error
  8830. Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
  8831. DateFirstDayBack-
  8832. msg10
  8833. OutOfOffice
  8834. title
  8835. msgX"
  8836. title
  8837. OutOfOffice
  8838. title
  8839. msgX"
  8840. title
  8841. msg11
  8842.     0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
  8843. O=Lotus Notes
  8844. O=Lotus Notes
  8845. PURSAFO
  8846. |.:#U
  8847. O=Lotus Notes
  8848. CN=Lotus Notes Template Development/O=Lotus Notes
  8849. PURSAFO
  8850. $$IgnoreFrom
  8851. $IgnoreFrom_O
  8852. $INFO
  8853. $AppHelpFormula
  8854. $Script
  8855. $$Script_O
  8856. $$ScriptName
  8857. $$FormScript
  8858. $$$FormScript_O
  8859. $$GeneralMessage
  8860. $GeneralMessage_O
  8861. $$SpecialPeople
  8862. $SpecialPeople_O
  8863. $$IgnoreFromList
  8864. $IgnoreFromList_O
  8865. $$IgnoreSubjectPhrase
  8866. $IgnoreSubjectPhrase_O
  8867. _ViewIcon
  8868. FirstDayOut
  8869. FirstDayBack
  8870. dateFirstDayOut
  8871. dateFirstDayBack
  8872. $BODY
  8873. $V5ACTIONS
  8874. $ACTIONS
  8875. (Help)
  8876. MAIL_F_PARTICIPANTTABLE_MEET
  8877.     0S0E
  8878. '++LotusScript Development Environment:2:5:(Options):0:74
  8879. Option Public 
  8880. Option Explicit
  8881. Use "CSEventClass"
  8882. '++LotusScript Development Environment:2:5:(Forward):0:1
  8883. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8884. Dim table As NotesCSParticipantTable
  8885. Lotus ProductLP
  8886. S+(SI
  8887. ^$U+(SJ
  8888. ^4U+(SJ
  8889. l#K4U-
  8890. m#K4U-
  8891.  ParticipantTable'++LotusScript Development Environment:2:5:(Options):0:66
  8892. '++LotusScript Development Environment:2:5:(Forward):0:1
  8893. Declare Sub Postopen(Source As Notesuidocument)
  8894. Declare Sub Postrecalc(Source As Notesuidocument)
  8895. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8896. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8897. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8898. Private Sub BindEvents(Byval Objectname_ As String)
  8899. Static Source As NOTESUIDOCUMENT
  8900. Set Source = Bind(Objectname_)
  8901. On Event Postopen From Source Call Postopen
  8902. On Event Postrecalc From Source Call Postrecalc
  8903. On Event Queryclose From Source Call Queryclose
  8904. End Sub
  8905. '++LotusScript Development Environment:2:2:Postopen:1:12
  8906. Sub Postopen(Source As Notesuidocument)
  8907.     Dim namePerson As NotesName    
  8908.     Dim nrole As Integer
  8909.     Dim nstatus As Integer
  8910.     Dim vPeople As Variant
  8911.     Dim vRole As Variant
  8912.     Dim vStatus As Variant
  8913.     Set note = source.document
  8914.     Set uidoc = source
  8915.     source.autoreload = False
  8916.     vPeople = note.GetItemValue("tmporiginalpeople")
  8917.     vRole = note.GetItemValue("tmporiginalrole")
  8918.     vStatus = note.GetItemValue("tmporiginalstatus")
  8919.     Set table = New NotesCSParticipantTable(2)
  8920.     ' build the sorted table
  8921.     For i = 0 To Ubound(vPeople)
  8922.         Set namePerson = New notesname(vPeople(i))
  8923.         nrole = Cint(vRole(i))
  8924.         nstatus = Cint(vStatus(i))
  8925.         Call table.AddInstance(namePerson.Common, nrole, nstatus)
  8926.     Next
  8927. End Sub
  8928. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  8929. Sub Postrecalc(Source As Notesuidocument)
  8930.     Dim stype As String
  8931.     Dim i As Integer
  8932.     Dim Instance As NotesCSParticipantInstance
  8933.     Dim itemPeople As Notesitem
  8934.     Dim itemRole As notesitem
  8935.     Dim itemStatus As NotesItem
  8936.     Dim sformtype As String
  8937.     Dim note As NotesDocument
  8938.     Set note = source.document
  8939.     If Not(note.HasItem("tmpReDisplay")) Then Exit Sub
  8940.     stype = note.GetItemValue("tmpSortType")(0)
  8941.     Call table.Resort(Cint(stype))
  8942.     Call CSTableAppendStatus(table, note, False)
  8943.     Call note.removeitem("tmpReDisplay")
  8944.     Call source.reload
  8945. End Sub
  8946. '++LotusScript Development Environment:2:2:Queryclose:1:12
  8947. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8948.     If Not(table Is Nothing) Then Delete table
  8949. End Sub
  8950. Lotus ProductLP
  8951. S+(SI
  8952. ^$U+(SJ
  8953. ^4U+(SJ
  8954. l#K4U-
  8955. m#K4U-
  8956. tmpOriginalPeople
  8957. tmpOriginalRole
  8958. tmpOriginalStatus
  8959. tmpSortType
  8960. tmpSortType
  8961.     0S1S2S
  8962. tmpSortType
  8963.     1S2S3S
  8964. tmpReDisplay
  8965.     0R1S2S3S
  8966.  @  @@ @` @
  8967. @@ @@@@@`@@
  8968. `@ `@@`@``@
  8969. tmpSortType
  8970.     0S2E1S2S
  8971.  @  @@ @` @
  8972. @@ @@@@@`@@
  8973. `@ `@@`@``@
  8974. tmpSortType
  8975.     0S1S2S
  8976. tmpSortType
  8977.     1S2S3S
  8978. tmpReDisplay
  8979.     0R1S2S3S
  8980.  @  @@ @` @
  8981. @@ @@@@@`@@
  8982. `@ `@@`@``@
  8983. tmpSortType
  8984.     0S1S2S
  8985.  @  @@ @` @
  8986. @@ @@@@@`@@
  8987. `@ `@@`@``@
  8988. tmpSortType
  8989.     0S2E1S2S
  8990. tmpSortType
  8991.     1S2S3S
  8992. tmpReDisplay
  8993.     0R1S2S3S
  8994.  @  @@ @` @
  8995. @@ @@@@@`@@
  8996. `@ `@@`@``@
  8997. tmpSortType
  8998.     0S2E1S2S
  8999.  @  @@ @` @
  9000. @@ @@@@@`@@
  9001. `@ `@@`@``@
  9002. tmpShow
  9003.     1S2S
  9004. tmpParticipantList
  9005. tmpParticipantList
  9006. tmpRoleList
  9007. tmpRoleList
  9008. tmpStatusList
  9009. tmpStatusList
  9010. tmpDelegationHistory^
  9011.     4S5S
  9012. GIF89a
  9013.         Delegation History:
  9014. tmpDelegationHistory
  9015. tmpDelegationHistory
  9016.     0S0E
  9017.     Done
  9018. O=Lotus Notes
  9019. O=Lotus Notes
  9020. PURSAFO
  9021. |.:#U
  9022. O=Lotus Notes
  9023. CN=Lotus Notes Template Development/O=Lotus Notes
  9024. PURSAFO
  9025. $=G-E
  9026. $HTMLDocumentStyles
  9027. $INFO
  9028. $AppHelpFormula
  9029. $Script
  9030. $$Script_O
  9031. $$ScriptName
  9032. $$FormScript
  9033. $$$FormScript_O
  9034. $BODY
  9035. $PublicAccess
  9036. iLeCp
  9037. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
  9038. (Personal Stationery)Personal Stationery
  9039. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoods
  9040. FooterBodyHEADERSubjectEnterBlindCopyToEnterCopyToEnterSendTo$KeepPrivateBGTableColorLogoEncryptSignDefaultMailSaveOptionsAltFromFrom
  9041. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NoteswP#############################
  9042. (Return Receipt)Return Receipt
  9043. DeliveryDateSubject
  9044. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP##########################
  9045. (ReturnNonReceipt)ReturnNonReceipt
  9046. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#######
  9047. (RulesDlg)Mailrule
  9048. OrderNumActionListDisplayimportancecondfolderactionConditionListDisplaydomainlistimportancestringLogicconditionOperatorTypeEnableFormExcludeFromViewtokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormula
  9049. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDwP#################
  9050. (TaskNotice)TaskNotice
  9051. StatusUpdateBodytmpNoActionBartmpOwnerHWForm1
  9052. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCP#########################
  9053. (Trace Report)Trace Report
  9054. DeliveryDateSubject
  9055. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP####
  9056. (Tracking Request)Tracking RequestTracking Response
  9057. DispStat
  9058. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP#######################################################
  9059. (wAddress)wAddressF
  9060. AddressBookstmpNextIndextmpCurIndextmpBlindCopyToEntryListtmpCopyTotmpSendToFindTextNABstmpBlindCopyToReftmpCopyToReftmpSendToRef
  9061. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP#########
  9062. (wDelivery Options)DeliveryOptions
  9063. tmpDeliveryPrioritytmpDeliveryReporttmpReturnReceipttmpImportance
  9064. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP##########################################
  9065. (wDlgBox)(wDlgBox)
  9066. tmpTitletmpSubformQuery_String
  9067. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP########################################
  9068. (web ret Authenticate)$$ReturnAuthenticationFailure1
  9069. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP###################################################
  9070. (web ret Authorize)$$ReturnAuthorizationFailure1
  9071. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP#######################################################
  9072. (web ret Error)$$ReturnGeneralError
  9073. MessageString1
  9074. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP####################################
  9075. (wFolderCreate)FolderCreateF
  9076. FolderNameCurrentFoldersfolderlistSaveOptions
  9077. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP############################################
  9078. (wFreeTime)wFreeTimeF
  9079. tmpSendTotmpCopyToCopyToSendTotmpChairDurationFormatHelper2TimeFormatHelper2DateFormatHelper2tmpDurationReftmpEndTimeReftmpEndDateReftmpStartTimeReftmpStartDateReftmpGridFormattmpEndTimetmpEndDatetmpStartTimetmpStartDate
  9080. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP################################
  9081. }eD>C
  9082. (wPreferences)wPreferencesF1
  9083. $CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailTaskFollowConflictAnniversaryConflictEventConflictMeetingPreventSentPreventAllAutoAnniversaryRepeatDefaultDurationCalEntryTypePreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayOffSetCharFormatRepliesOwner$PreferencesPagePROTECTFROMARCHIVESaveOptions
  9084. CN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP#######################
  9085. (wResources)wResourcesF
  9086. AddressBooksResourcesEntryListNABs
  9087. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP####################################################
  9088. (wRooms)wRoomsF
  9089. AddressBooksRoomsEntryListNABs
  9090. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDP
  9091. (wRulesDlg)MailruleF
  9092. OrderNumActionListDisplayNewImportanceFolderActionExceptionListDisplayConditionListDisplayDomainListImportanceStringLogicConditionOperatorEnable_1FormtokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormulaActionValuesImportanceValuesLogic2ValuesLogic1ValuesConditionValuesOperatorValues
  9093. CN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDnP#######################################################
  9094. _Calendar EntryAppointmentF
  9095. $ExpandGroupstmpNoActionBartmpOwnerHWBodyAlarmsOrgConfidentialCategoriesBookFreeTimeLocationBlindCopyToResourcesCopyToRoomToReserveEndTimeEndDateRepeatsStartTimeStartDateSubjectSendTotmpSpecialEventTypetmpSpecialEventAppointmentTypeForm1
  9096. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP########################################
  9097. 29FB8414250BFCF038F51072FC347194AF5CB9E208931A2E889B51112269D913
  9098. _Document Memo$DocMemoWord.Document$Word MemoWordPro.Document$Word Pro MemoAlternateMemo
  9099. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  9100. BodyOLEBodySubjectEnterBlindCopyToEnterCopyToEnterSendTo$OLEObjRichTextField$OLEObjFieldMIMEFormatSMTPEncoding$KeepPrivateReturnReceiptDeliveryPriorityDeliveryReportImportanceEncryptSignDefaultMailSaveOptionsLogoAltFromFromInheritedSubjectInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendTo
  9101. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NoteswP##########
  9102. _Special\Link MessageBookmark
  9103. BodyDueDateTimeFlowStatusInheritedSubjectInheritedDBTitleSubjectBlindCopyToCopyToSendToPath_Info$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
  9104. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP##########################
  9105. $FORWARDSEP
  9106. ForwardedDateForwardedFrom
  9107. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3P########
  9108. ##########################################################
  9109. ##########################################################
  9110. ##########################################################
  9111. ##########################################################
  9112. VersionOpt|
  9113.     6S7S9S14S
  9114. $VersionOpt
  9115.     0R1S2S3S
  9116. SavedOnce
  9117.     0R1S2S3S
  9118. PostedDate(
  9119.     0R1S2S3S
  9120. DeliveredDate
  9121.     0R1S2S3S
  9122. $AutoEditMode
  9123.     0R1S2S3S
  9124. MailSaveOptions
  9125.     0R1S2S3S
  9126. VersionOpt
  9127.     0R4S
  9128. $HideMailHeader
  9129. BGTableColor
  9130. HeaderRegion
  9131. BodyRegion
  9132. Personal Stationery
  9133. Subject
  9134. Subject
  9135. Subject
  9136.     4S6S12S13S14S15S17S21S23S25S26S28S
  9137. (Help)
  9138. MAIL_F_PERSONAL-STATIONERY
  9139.     0S0E
  9140. &Arial
  9141. '++LotusScript Development Environment:2:5:(Options):0:74
  9142. Option Public
  9143. Option Explicit
  9144. Use "CoreEmailClasses"
  9145. '++LotusScript Development Environment:2:5:(Forward):0:1
  9146. '++LotusScript Development Environment:2:5:(Declarations):0:10
  9147. Dim cMemoObject As Variant
  9148. Lotus ProductQ
  9149. V0.0L
  9150. J,|}8r
  9151. J,|}8r
  9152. ^,|J,|
  9153. JT~KD~-
  9154. JT~KD~-
  9155. KD~-<
  9156. ~}8rKD~-`
  9157.  Personal Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  9158. '++LotusScript Development Environment:2:5:(Forward):0:1
  9159. Declare Sub Postopen(Source As Notesuidocument)
  9160. Declare Sub Postmodechange(Source As Notesuidocument)
  9161. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9162. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9163. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  9164. Declare Sub Postsave(Source As Notesuidocument)
  9165. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  9166. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9167. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9168. Private Sub BindEvents(Byval Objectname_ As String)
  9169.     Static Source As NOTESUIDOCUMENT
  9170.     Set Source = Bind(Objectname_)
  9171.     On Event Postopen From Source Call Postopen
  9172.     On Event Postmodechange From Source Call Postmodechange
  9173.     On Event Querysave From Source Call Querysave
  9174.     On Event Queryclose From Source Call Queryclose
  9175.     On Event Queryopen From Source Call Queryopen
  9176.     On Event Postsave From Source Call Postsave
  9177.     On Event Querymodechange From Source Call Querymodechange
  9178. End Sub
  9179. '++LotusScript Development Environment:2:2:Postopen:1:12
  9180. Sub Postopen(Source As Notesuidocument)
  9181.     Call cMemoObject.PostOpen(Source)    
  9182. End Sub
  9183. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  9184. Sub Postmodechange(Source As Notesuidocument)
  9185. End Sub
  9186. '++LotusScript Development Environment:2:2:Querysave:1:12
  9187. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9188.     Call cMemoObject.QuerySave(Continue)
  9189. End Sub
  9190. '++LotusScript Development Environment:2:2:Queryclose:1:12
  9191. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9192.  '        Call uimemodoc.QueryClose(source, continue)
  9193. End Sub
  9194. '++LotusScript Development Environment:2:2:Queryopen:1:12
  9195. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  9196.     Set cMemoObject = New UIMemoDocument        
  9197.     Call cMemoObject.Init(Source,Isnewdoc) 
  9198. End Sub
  9199. '++LotusScript Development Environment:2:2:Postsave:1:12
  9200. Sub Postsave(Source As Notesuidocument)
  9201.     Call cMemoObject.PostSave()
  9202. End Sub
  9203. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  9204. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  9205.     Continue = cMemoObject.QueryModeChange(Source)
  9206. End Sub
  9207. Lotus Product
  9208. OBJECT
  9209. ISMAILSTATIONERYh
  9210.     0S0E
  9211.     Always Hidden:
  9212.     0S0E
  9213. NamePreferencez
  9214. NamePreference
  9215.     0S0E
  9216. LanguagePreference
  9217. Principal
  9218. CalendarProfile
  9219. Owner
  9220.     1S2S3S7S
  9221. FromPerson memo is from.z
  9222. AltFrom
  9223.     10SAltFrom
  9224. MailSaveOptions
  9225.     1S2S3S
  9226. MailSaveOptions
  9227. DefaultMailSaveOptionsz
  9228. DefaultMailSaveOptions
  9229.     0S0E
  9230. Signz
  9231.     0S0E
  9232. Encrypt
  9233. Encrypt
  9234. Principal
  9235. Principal
  9236. Principal
  9237. NamePreference
  9238. AltFrom
  9239. PostedDateh
  9240. $LangFrom
  9241. LanguagePreferencet
  9242. AltFrom
  9243.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
  9244.     0R1S2S8S
  9245.     0R1S2S5S6S8S14S18S
  9246.     0R1S2S5S6S8S14S18S
  9247. SentBy
  9248. X400FreeForm^
  9249.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  9250. SentBy
  9251. FromDomain
  9252. FromDomain
  9253. FromDomain
  9254. FromDomain
  9255.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  9256. FromName
  9257. Principal
  9258. Principal
  9259. Principal
  9260.     0RR1S2S10S11S16S18S
  9261. FromStops
  9262.     0RR1S2S6S
  9263. FromName
  9264. FromStops
  9265. FromStops
  9266. FromStops
  9267.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  9268. tmpDisplayFrom_Preview
  9269. .,$,  , :
  9270. Path_Info
  9271. Path_Info
  9272. .,$,  , :
  9273. Query_String
  9274. Query_String
  9275. CalendarProfile
  9276. DefaultLogo
  9277. stdNotesLtr0
  9278. CalendarProfile
  9279. DefaultLogo
  9280. StdNotesLtrGateway
  9281.     4S13S24R25S29S32S34S
  9282. Logoz
  9283. StdNotesLtr41
  9284. StdNotesLtr41
  9285. Black
  9286.     11S12S
  9287. BGTableColor
  9288. $KeepPrivate
  9289. $KeepPrivate
  9290. $KeepPrivate
  9291.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  9292.     From:
  9293. tmpDisplayFrom_Preview
  9294. tmpDisplayFrom_NoLogo
  9295. tmpDisplayFrom_NoLogo
  9296. NamesList
  9297. NamePreference
  9298. AltSendTo
  9299. $NameLanguageTags
  9300. LanguagePreferencet
  9301. AltSendTo
  9302. SendTo
  9303.     11S12S15S16S20S
  9304. ImplodedNamesList
  9305. NamesList
  9306. ImplodedNamesList
  9307. ImplodedNamesList
  9308. ImplodedNamesList
  9309. tmpDisplaySendTo
  9310.     Subject:
  9311. Subject
  9312. Subject
  9313. Subject
  9314.     0S0E
  9315. TmpDisplaySubject
  9316. CC_Content
  9317. NamePreference
  9318. AltCopyTo
  9319. $NameLanguageTags
  9320. LanguagePreferencet
  9321. AltCopyTo
  9322. CopyTo
  9323.     7S8S9S11S12S16S
  9324. BCC_Content
  9325. DeliveredDate
  9326. BlindCopyTo
  9327.  (bcc: 
  9328. BlindCopyTo
  9329.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  9330. NamesList
  9331. CC_Content
  9332. BCC_Content
  9333.     0R9S10S
  9334. ImplodedNamesList
  9335. NamesList
  9336. ImplodedNamesList
  9337. ImplodedNamesList
  9338. ImplodedNamesList
  9339. tmpDisplayCC
  9340. $HideMailHeader
  9341.     0S0E
  9342. tmpDisplayFrom_Preview
  9343. DisplayFrom
  9344. DisplayFrom_Pre
  9345. $HideMailHeader
  9346. Principal
  9347. Principal
  9348. Principal
  9349. Principal
  9350. Principal
  9351.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  9352.     Sent by: 
  9353. FromDomain
  9354. FromDomain
  9355. FromDomain
  9356. FromDomain
  9357.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  9358. FromName
  9359.     0RR1S2S6S
  9360. FromStops
  9361.     0R1S2S6S
  9362. FromName
  9363. FromStops
  9364. FromStops
  9365. FromStops
  9366.     0RR1S2S3S4S10S13S17S20SDisplaySent
  9367. tmpDisplaySent
  9368. PostedDateh
  9369. PostedDate
  9370.     4S5S10S12S
  9371. DisplayDateTime/date memo was created or mailed.z
  9372. tmpDisplayDate_Pre
  9373. ReplyDate
  9374. ReplyTo
  9375. $HideMailHeader
  9376.     2S3S4S5S6S7S9S10S14S15R
  9377. Please respond
  9378. ReplyTo
  9379. ReplyTo
  9380. ReplyDate
  9381. ReplyDate
  9382.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  9383. tmpDisplayReply
  9384. $HideMailHeader
  9385. IsMailStationery
  9386.     4S5S
  9387.     Stationery name:
  9388. MAILSTATIONERYNAME
  9389. -Untitled-
  9390. MAILSTATIONERYNAME
  9391.     0S0E
  9392. StatNamez
  9393. Statio
  9394. $HideMailHeader
  9395. StdNotesLtr16
  9396.     7S9S10S11S13S15S
  9397.         To:    
  9398. NamePreference
  9399. AltSendTo
  9400. $NameLanguageTags
  9401. LanguagePreferencet
  9402. AltSendTo
  9403. SendTo
  9404.     5S6S9S10S14S
  9405. EnterSendTo
  9406.     0S0E
  9407. EnterSendTo
  9408.         cc:    
  9409. NamePreference
  9410. AltCopyTo
  9411. $NameLanguageTags
  9412. LanguagePreferencet
  9413. AltCopyTo
  9414. CopyTo
  9415.     5S6S7S9S10S14S
  9416. EnterCopyTo
  9417.     0S0E
  9418. EnterCopyTo
  9419.         cc:    
  9420. CC_Content
  9421. NamePreference
  9422. AltCopyTo
  9423. $NameLanguageTags
  9424. LanguagePreferencet
  9425. AltCopyTo
  9426. CopyTo
  9427.     11S12S13S15S16S20S
  9428. BCC_Content
  9429. DeliveredDate
  9430. BlindCopyTo
  9431.  (bcc: 
  9432. BlindCopyTo
  9433.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  9434. CC_Content
  9435. BCC_Content
  9436.     0R3S4S
  9437. tmpEnterCopyTo
  9438.         bcc:    
  9439. NamePreference
  9440. AltBlindCopyTo
  9441. $NameLanguageTags
  9442. LanguagePreferencet
  9443. AltBlindCopyTo
  9444. BlindCopyTo
  9445.     5S6S7S9S10S14S
  9446. EnterBlindCopyTo}
  9447.     0S0E
  9448. EnterBlindCopyTo
  9449. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  9450.         Subject:    
  9451. SIZE=50
  9452. Subject
  9453. MailedThisPass
  9454. MailedThisPass
  9455. MailedThisPass
  9456.     0R1RT4RTTT11RT
  9457. ReplyDate
  9458. ReplyDate
  9459. ReplyDate
  9460. Importanceh
  9461. Importance
  9462. Importance
  9463. Importance(
  9464. DeliveryReporth
  9465. DeliveryReport
  9466. DeliveryReport
  9467. DeliveryReport(
  9468. DeliveryPriorityh
  9469. DeliveryPriority
  9470. DeliveryPriority
  9471. DeliveryPriority(
  9472. UpdateProfileNote
  9473. UpdateProfileNote
  9474. UpdateProfileNote
  9475. ReturnReceipt
  9476. ReturnReceipt
  9477. ReturnReceipt
  9478. $KeepPrivateh
  9479. $KeepPrivate
  9480. $KeepPrivate(
  9481. ExpireDateh
  9482. ExpireDate
  9483. ExpireDate(
  9484. ReplyTo
  9485. ReplyTo
  9486. ReplyTo
  9487. MimeFormath
  9488. MimeFormat
  9489. MimeFormat
  9490. MimeFormat(
  9491. SMTPEncodingh
  9492. SMTPEncoding
  9493. SMTPEncoding
  9494. SMTPEncoding(
  9495. MIMEMailCharset
  9496. MIMEMailCharset
  9497. MIMEMailCharset
  9498. MIMEMailCharset
  9499. $AutoSpellh
  9500. $AutoSpell
  9501. $AutoSpell(
  9502. WebSubjecth
  9503. WebSubject
  9504. WebSubject(
  9505. tmpSenderTagh
  9506. tmpSenderTag
  9507. tmpSenderTag
  9508. tmpSenderTag(
  9509.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  9510. MailedThisPass
  9511. MailedThisPass(
  9512. EnterSendTo
  9513. EnterSendTo
  9514. EnterCopyTo
  9515. EnterCopyTo
  9516. EnterBlindCopyToh
  9517. EnterBlindCopyTo(
  9518.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  9519. RemoveNoteItems
  9520. $HideMailHeader
  9521. Moods
  9522. PostedDate
  9523. SenderTag
  9524. Moods
  9525.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  9526.     Header:
  9527. IsMailStationery
  9528.     0S0E
  9529. HEADER
  9530. Bodyz
  9531. Footerz
  9532. Footer
  9533. Discard ChangesK
  9534. MEMO_CANCEL
  9535. 4194304
  9536.     0S0E
  9537. ActionInProgress
  9538. MEMO_CANCEL
  9539.     0R1S
  9540. IsMailStationery
  9541.     1S2S3S
  9542. Save And Close
  9543. MEMO_DRAFT
  9544.     0S0E
  9545. ActionInProgress
  9546. MEMO_DRAFT
  9547.     0R1S
  9548. PostedDateh
  9549. IsMailStationery
  9550.     7S8S9S10S13S14S15S16S
  9551. act_save.GIF|act_CSSAVE?
  9552. Save And File
  9553. MEMO_DRAFT_FILE
  9554.     0S0E
  9555. ActionInProgress
  9556. MEMO_DRAFT_FILE
  9557.     0R1S
  9558. PostedDateh
  9559. IsMailStationery
  9560.     7S8S9S10S13S14S15S16S
  9561. act_FOLDER.GIF|act_FOLDER?
  9562. Close
  9563. MEMO_CANCEL
  9564. 4194304
  9565.     0S0E
  9566. ActionInProgress
  9567. MEMO_CANCEL
  9568.     0R1S
  9569. IsMailStationery
  9570.     0S1S2S
  9571. New Memo(
  9572.     0S0E
  9573. act_NEWMEMO.GIF|act_NEWMEMO?
  9574. Reply\ReplyK0
  9575. Reply
  9576.     0S0E
  9577. act_REPLY.GIF|act_REPLY?
  9578. Reply\Reply with History
  9579. Reply with History
  9580. This document is truncated.
  9581.     4S8S10S13S
  9582. Reply with history
  9583. act_REPLY.GIF|act_REPLY?
  9584. Reply\Reply to AllX
  9585. MailStEd
  9586.     0S0E
  9587. Reply
  9588. act_REPLY.GIF|act_REPLY?
  9589. Reply\Reply to All with HistoryK
  9590. MailStEd
  9591.     0S0E
  9592. Reply with History
  9593. This document is truncated.
  9594.     0R4S8S10S13S
  9595. Reply with history
  9596. act_REPLY.GIF|act_REPLY?
  9597. _Forward
  9598. act_FORWARD.GIF|act_FORWARD?
  9599. ForwardK 
  9600.     0S0E
  9601. ISMAILSTATIONERY
  9602.     1S2S
  9603. act_FORWARD.GIF|act_FORWARD?
  9604.     0S1S2S
  9605. act_EDIT.GIF|act_EDIT?
  9606. Delete 
  9607.     0S0E
  9608. act_DELETE.GIF|act_DELETE?
  9609. _Move To Folder...
  9610. act_FOLDER.GIF|act_FOLDER?
  9611. Remove From Folder
  9612. Categori_zeK
  9613. SSend
  9614. MEMO_SEND
  9615.     0S0E
  9616. ActionInProgress
  9617. MEMO_SEND
  9618.     0R1S
  9619. PostedDateh
  9620. IsMailStationery
  9621.     5S6S7S8S10S11S12S13S
  9622. act_SEND.GIF|act_SEND?
  9623. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  9624. '++LotusScript Development Environment:2:5:(Forward):0:1
  9625. Declare Sub Click(Source As Button)
  9626. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9627. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9628. Private Sub BindEvents(Byval Objectname_ As String)
  9629.     Static Source As BUTTON
  9630.     Set Source = Bind(Objectname_)
  9631.     On Event Click From Source Call Click
  9632. End Sub
  9633. '++LotusScript Development Environment:2:2:Click:1:12
  9634. Sub Click(Source As Button)
  9635.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  9636.     Call cMemoObject.noteUIMemo.save()
  9637.     Call cMemoObject.noteUIMemo.close()    
  9638. End Sub
  9639. PostedDateh
  9640. IsMailStationery
  9641.     5S6S7S8S12S13S
  9642. Send and File
  9643. MEMO_SEND_FILE
  9644.     0S0E
  9645. ActionInProgress
  9646. MEMO_SEND_FILE
  9647.     0R1S
  9648. PostedDateh
  9649. IsMailStationery
  9650.     5S6S7S8S12S13S
  9651. act_SEND.GIF|act_SEND?
  9652. Save As Draft
  9653. MEMO_DRAFT
  9654.     0S0E
  9655. ActionInProgress
  9656. MEMO_DRAFT
  9657.     0R1S
  9658. PostedDateh
  9659. IsMailStationery
  9660.     5S6S7S8S10S11S12S13S
  9661. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  9662. MEMO_STATIONERYSAVE
  9663.     0S0E
  9664. ActionInProgress
  9665. MEMO_STATIONERYSAVE
  9666.     0R1S
  9667. IsMailStationery
  9668.     2S3S
  9669. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  9670. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  9671. '++LotusScript Development Environment:2:5:(Forward):0:1
  9672. Declare Sub Click(Source As Button)
  9673. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9674. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9675. Private Sub BindEvents(Byval Objectname_ As String)
  9676.     Static Source As BUTTON
  9677.     Set Source = Bind(Objectname_)
  9678.     On Event Click From Source Call Click
  9679. End Sub
  9680. '++LotusScript Development Environment:2:2:Click:1:12
  9681. Sub Click(Source As Button)
  9682.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  9683.     Call cMemoObject.noteUIMemo.save()
  9684.     Call cMemoObject.noteUIMemo.close()
  9685. End Sub
  9686. IsMailStationery
  9687.     1S2S
  9688. Rename Stationery
  9689. xxTitle
  9690. Rename Stationery
  9691.     0S0E
  9692. xxPrompt
  9693. Please enter new stationery name.
  9694. MailStationeryName
  9695. xxTitle
  9696. xxPrompt
  9697. MailStationeryName
  9698.     0R1S
  9699.     0RS>
  9700. IsMailStationery
  9701.     2S3S4S5S
  9702. act_RENAME.GIF|act_RENAME?
  9703. Address...T
  9704. EnterSendTo
  9705. EnterCopyTo
  9706. EnterBlindCopyTo
  9707.     0S0E
  9708. PostedDateh
  9709. IsMailStationery
  9710.     5S6S7S8S10S11S12S13S
  9711. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  9712. Delivery Options...K~
  9713. DeliveryOptions
  9714. Delivery Options
  9715.     0R4S10S
  9716. PostedDateh
  9717.     5S6S7S8S
  9718. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  9719. Tools\Insert Signature...
  9720. '++LotusScript Development Environment:2:5:(Options):0:66
  9721. '++LotusScript Development Environment:2:5:(Forward):0:1
  9722. Declare Sub Click(Source As Button)
  9723. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9724. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9725. Private Sub BindEvents(Byval Objectname_ As String)
  9726.     Static Source As BUTTON
  9727.     Set Source = Bind(Objectname_)
  9728.     On Event Click From Source Call Click
  9729. End Sub
  9730. '++LotusScript Development Environment:2:2:Click:1:12
  9731. Sub Click(Source As Button)
  9732.     Call cMemoObject.InsertSignature(False)
  9733. End Sub
  9734. PostedDateh
  9735.     5S6S7S8S
  9736. act_TOOLS.GIF|act_TOOLS?
  9737. Tools\Save as Stationery...K
  9738. MEMO_ISSTATIONERY
  9739.     0S0E
  9740. MEMO_STATIONERYSAVE
  9741. ActionInProgress
  9742. MEMO_STATIONERYSAVE
  9743.     0R1S
  9744. MergeFlag
  9745. MEMO_ISSTATIONERY
  9746.     0R1S
  9747. PostedDateh
  9748. IsMailStationery
  9749.     5S6S7S8S10S11S12S13S
  9750. act_TOOLS.GIF|act_TOOLS?
  9751. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  9752. Use "CommonUI"
  9753. '++LotusScript Development Environment:2:5:(Forward):0:1
  9754. Declare Sub Click(Source As Button)
  9755. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9756. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9757. Private Sub BindEvents(Byval Objectname_ As String)
  9758. Static Source As BUTTON
  9759. Set Source = Bind(Objectname_)
  9760. On Event Click From Source Call Click
  9761. End Sub
  9762. '++LotusScript Development Environment:2:2:Click:1:12
  9763. Sub Click(Source As Button)
  9764.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  9765. End Sub
  9766. act_COPYINTO.GIF|act_COPYINTO?
  9767. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  9768. Use "CommonUI"
  9769. '++LotusScript Development Environment:2:5:(Forward):0:1
  9770. Declare Sub Click(Source As Button)
  9771. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9772. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9773. Private Sub BindEvents(Byval Objectname_ As String)
  9774. Static Source As BUTTON
  9775. Set Source = Bind(Objectname_)
  9776. On Event Click From Source Call Click
  9777. End Sub
  9778. '++LotusScript Development Environment:2:2:Click:1:12
  9779. Sub Click(Source As Button)
  9780.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  9781. End Sub
  9782. act_COPYINTO.GIF|act_COPYINTO?
  9783. Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
  9784. Use "CommonUI"
  9785. '++LotusScript Development Environment:2:5:(Forward):0:1
  9786. Declare Sub Click(Source As Button)
  9787. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9788. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9789. Private Sub BindEvents(Byval Objectname_ As String)
  9790.     Static Source As BUTTON
  9791.     Set Source = Bind(Objectname_)
  9792.     On Event Click From Source Call Click
  9793. End Sub
  9794. '++LotusScript Development Environment:2:2:Click:1:12
  9795. Sub Click(Source As Button)
  9796.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  9797. End Sub
  9798. act_COPYINTO.GIF|act_COPYINTO?
  9799. Tools\Delivery Information...
  9800. xxTitle
  9801. Delivery Information
  9802.     0S0E
  9803. DeliveryInfo
  9804. xxTitle
  9805.     0RR4S5S6S7S8S9S10S11S12S14S
  9806. act_TOOLS.GIF|act_TOOLS?
  9807. Tools\Preferences...2
  9808. (Preferences)
  9809.     0S0E
  9810. act_TOOLS.GIF|act_TOOLS?
  9811. Tools\New Memo - Using Stationery
  9812. '++LotusScript Development Environment:2:5:(Options):0:66
  9813. '++LotusScript Development Environment:2:5:(Forward):0:1
  9814. Declare Sub Click(Source As Button)
  9815. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9816. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9817. Private Sub BindEvents(Byval Objectname_ As String)
  9818.     Static Source As BUTTON
  9819.     Set Source = Bind(Objectname_)
  9820.     On Event Click From Source Call Click
  9821. End Sub
  9822. '++LotusScript Development Environment:2:2:Click:1:12
  9823. Sub Click(Source As Button)
  9824.     Dim session As New notessession
  9825.     Dim uiws As New notesuiworkspace
  9826.     Dim collection As notesdocumentcollection
  9827.     Dim noteUIEditDocument As notesuidocument
  9828.     Dim database As NotesDatabase
  9829.     Set noteCursorDoc = session.currentdatabase.createdocument
  9830.     Set database = session.currentdatabase
  9831.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  9832.     Set noteCursorDoc = collection.getfirstdocument
  9833.     If Not noteCursorDoc Is Nothing Then
  9834.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  9835.     End If
  9836. End Sub
  9837. act_TOOLS.GIF|act_TOOLS?
  9838. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  9839. '++LotusScript Development Environment:2:5:(Forward):0:1
  9840. Declare Sub Click(Source As Button)
  9841. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9842. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9843. Private Sub BindEvents(Byval Objectname_ As String)
  9844.     Static Source As BUTTON
  9845.     Set Source = Bind(Objectname_)
  9846.     On Event Click From Source Call Click
  9847. End Sub
  9848. '++LotusScript Development Environment:2:2:Click:1:12
  9849. Sub Click(Source As Button)
  9850.     Call cMemoObject.InsertSignature(False)
  9851. End Sub
  9852. act_INSERTSIG.GIF|act_INSERTSIG?
  9853. Save As Stationeryr
  9854. ActionInProgress
  9855. &h00000100&
  9856. IsMailStationery
  9857.     1S2S
  9858. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  9859. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  9860. '++LotusScript Development Environment:2:5:(Forward):0:1
  9861. Declare Sub Click(Source As Button)
  9862. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9863. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9864. Private Sub BindEvents(Byval Objectname_ As String)
  9865.     Static Source As BUTTON
  9866.     Set Source = Bind(Objectname_)
  9867.     On Event Click From Source Call Click
  9868. End Sub
  9869. '++LotusScript Development Environment:2:2:Click:1:12
  9870. Sub Click(Source As Button)
  9871.     Dim session As New notessession
  9872.     Dim uiws As New notesuiworkspace
  9873.     Dim collection As notesdocumentcollection
  9874.     Dim noteUIEditDocument As notesuidocument
  9875.     Dim database As NotesDatabase
  9876.     Set noteCursorDoc = session.currentdatabase.createdocument
  9877.     Set database = session.currentdatabase
  9878.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  9879.     Set noteCursorDoc = collection.getfirstdocument
  9880.     If Not noteCursorDoc Is Nothing Then
  9881.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  9882.     End If
  9883. End Sub
  9884. IsMailStationery
  9885.     1S2S
  9886. Discard ChangesK
  9887. MEMO_CANCEL
  9888. 4194304
  9889.     0S0E
  9890. ActionInProgress
  9891. MEMO_CANCEL
  9892.     0R1S
  9893. IsMailStationery
  9894.     1S2S3S
  9895. Save And Close
  9896. MEMO_DRAFT
  9897.     0S0E
  9898. ActionInProgress
  9899. MEMO_DRAFT
  9900.     0R1S
  9901. PostedDateh
  9902. IsMailStationery
  9903.     7S8S9S10S13S14S15S16S
  9904. Save And File
  9905. MEMO_DRAFT_FILE
  9906.     0S0E
  9907. ActionInProgress
  9908. MEMO_DRAFT_FILE
  9909.     0R1S
  9910. PostedDateh
  9911. IsMailStationery
  9912.     7S8S9S10S13S14S15S16S
  9913. Close
  9914. MEMO_CANCEL
  9915. 4194304
  9916.     0S0E
  9917. ActionInProgress
  9918. MEMO_CANCEL
  9919.     0R1S
  9920. IsMailStationery
  9921.     0S1S2S
  9922. New Memo(
  9923.     0S0E
  9924. Reply\ReplyK0
  9925. Reply
  9926.     0S0E
  9927. Reply\Reply with History
  9928. Reply with History
  9929. This document is truncated.
  9930.     4S8S10S13S
  9931. Reply with history
  9932. Reply\Reply to AllX
  9933. MailStEd
  9934.     0S0E
  9935. Reply
  9936. Reply\Reply to All with HistoryK
  9937. MailStEd
  9938.     0S0E
  9939. Reply with History
  9940. This document is truncated.
  9941.     0R4S8S10S13S
  9942. Reply with history
  9943. _Forward
  9944. ForwardK 
  9945.     0S0E
  9946. ISMAILSTATIONERY
  9947.     1S2S
  9948.     0S1S2S
  9949. Delete 
  9950.     0S0E
  9951. _Move To Folder...
  9952. Remove From Folder
  9953. Categori_zeK
  9954. SSend
  9955. MEMO_SEND
  9956.     0S0E
  9957. ActionInProgress
  9958. MEMO_SEND
  9959.     0R1S
  9960. PostedDateh
  9961. IsMailStationery
  9962.     5S6S7S8S10S11S12S13S
  9963. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  9964. '++LotusScript Development Environment:2:5:(Forward):0:1
  9965. Declare Sub Click(Source As Button)
  9966. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9967. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9968. Private Sub BindEvents(Byval Objectname_ As String)
  9969.     Static Source As BUTTON
  9970.     Set Source = Bind(Objectname_)
  9971.     On Event Click From Source Call Click
  9972. End Sub
  9973. '++LotusScript Development Environment:2:2:Click:1:12
  9974. Sub Click(Source As Button)
  9975.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  9976.     Call cMemoObject.noteUIMemo.save()
  9977.     Call cMemoObject.noteUIMemo.close()    
  9978. End Sub
  9979. PostedDateh
  9980. IsMailStationery
  9981.     5S6S7S8S12S13S
  9982. Send and File
  9983. MEMO_SEND_FILE
  9984.     0S0E
  9985. ActionInProgress
  9986. MEMO_SEND_FILE
  9987.     0R1S
  9988. PostedDateh
  9989. IsMailStationery
  9990.     5S6S7S8S12S13S
  9991. Save As Draft
  9992. MEMO_DRAFT
  9993.     0S0E
  9994. ActionInProgress
  9995. MEMO_DRAFT
  9996.     0R1S
  9997. PostedDateh
  9998. IsMailStationery
  9999.     5S6S7S8S10S11S12S13S
  10000. MEMO_STATIONERYSAVE
  10001.     0S0E
  10002. ActionInProgress
  10003. MEMO_STATIONERYSAVE
  10004.     0R1S
  10005. IsMailStationery
  10006.     2S3S
  10007. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  10008. '++LotusScript Development Environment:2:5:(Forward):0:1
  10009. Declare Sub Click(Source As Button)
  10010. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10011. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10012. Private Sub BindEvents(Byval Objectname_ As String)
  10013.     Static Source As BUTTON
  10014.     Set Source = Bind(Objectname_)
  10015.     On Event Click From Source Call Click
  10016. End Sub
  10017. '++LotusScript Development Environment:2:2:Click:1:12
  10018. Sub Click(Source As Button)
  10019.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  10020.     Call cMemoObject.noteUIMemo.save()
  10021.     Call cMemoObject.noteUIMemo.close()
  10022. End Sub
  10023. IsMailStationery
  10024.     1S2S
  10025. Rename Stationery
  10026. xxTitle
  10027. Rename Stationery
  10028.     0S0E
  10029. xxPrompt
  10030. Please enter new stationery name.
  10031. MailStationeryName
  10032. xxTitle
  10033. xxPrompt
  10034. MailStationeryName
  10035.     0R1S
  10036.     0RS>
  10037. IsMailStationery
  10038.     2S3S4S5S
  10039. Address...T
  10040. EnterSendTo
  10041. EnterCopyTo
  10042. EnterBlindCopyTo
  10043.     0S0E
  10044. PostedDateh
  10045. IsMailStationery
  10046.     5S6S7S8S10S11S12S13S
  10047. Delivery Options...K~
  10048. DeliveryOptions
  10049. Delivery Options
  10050.     0R4S10S
  10051. PostedDateh
  10052.     5S6S7S8S
  10053. Tools\Insert Signature...
  10054. '++LotusScript Development Environment:2:5:(Options):0:66
  10055. '++LotusScript Development Environment:2:5:(Forward):0:1
  10056. Declare Sub Click(Source As Button)
  10057. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10058. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10059. Private Sub BindEvents(Byval Objectname_ As String)
  10060.     Static Source As BUTTON
  10061.     Set Source = Bind(Objectname_)
  10062.     On Event Click From Source Call Click
  10063. End Sub
  10064. '++LotusScript Development Environment:2:2:Click:1:12
  10065. Sub Click(Source As Button)
  10066.     Call cMemoObject.InsertSignature(False)
  10067. End Sub
  10068. PostedDateh
  10069.     5S6S7S8S
  10070. Tools\Save as Stationery...K
  10071. MEMO_ISSTATIONERY
  10072.     0S0E
  10073. MEMO_STATIONERYSAVE
  10074. ActionInProgress
  10075. MEMO_STATIONERYSAVE
  10076.     0R1S
  10077. MergeFlag
  10078. MEMO_ISSTATIONERY
  10079.     0R1S
  10080. PostedDateh
  10081. IsMailStationery
  10082.     5S6S7S8S10S11S12S13S
  10083. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  10084. Use "CommonUI"
  10085. '++LotusScript Development Environment:2:5:(Forward):0:1
  10086. Declare Sub Click(Source As Button)
  10087. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10088. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10089. Private Sub BindEvents(Byval Objectname_ As String)
  10090. Static Source As BUTTON
  10091. Set Source = Bind(Objectname_)
  10092. On Event Click From Source Call Click
  10093. End Sub
  10094. '++LotusScript Development Environment:2:2:Click:1:12
  10095. Sub Click(Source As Button)
  10096.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  10097. End Sub
  10098. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  10099. Use "CommonUI"
  10100. '++LotusScript Development Environment:2:5:(Forward):0:1
  10101. Declare Sub Click(Source As Button)
  10102. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10103. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10104. Private Sub BindEvents(Byval Objectname_ As String)
  10105. Static Source As BUTTON
  10106. Set Source = Bind(Objectname_)
  10107. On Event Click From Source Call Click
  10108. End Sub
  10109. '++LotusScript Development Environment:2:2:Click:1:12
  10110. Sub Click(Source As Button)
  10111.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  10112. End Sub
  10113. Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
  10114. Use "CommonUI"
  10115. '++LotusScript Development Environment:2:5:(Forward):0:1
  10116. Declare Sub Click(Source As Button)
  10117. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10118. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10119. Private Sub BindEvents(Byval Objectname_ As String)
  10120.     Static Source As BUTTON
  10121.     Set Source = Bind(Objectname_)
  10122.     On Event Click From Source Call Click
  10123. End Sub
  10124. '++LotusScript Development Environment:2:2:Click:1:12
  10125. Sub Click(Source As Button)
  10126.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  10127. End Sub
  10128. Tools\Delivery Information...
  10129. xxTitle
  10130. Delivery Information
  10131.     0S0E
  10132. DeliveryInfo
  10133. xxTitle
  10134.     0RR4S5S6S7S8S9S10S11S12S14S
  10135. Tools\Preferences...2
  10136. (Preferences)
  10137.     0S0E
  10138. Tools\New Memo - Using Stationery
  10139. '++LotusScript Development Environment:2:5:(Options):0:66
  10140. '++LotusScript Development Environment:2:5:(Forward):0:1
  10141. Declare Sub Click(Source As Button)
  10142. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10143. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10144. Private Sub BindEvents(Byval Objectname_ As String)
  10145.     Static Source As BUTTON
  10146.     Set Source = Bind(Objectname_)
  10147.     On Event Click From Source Call Click
  10148. End Sub
  10149. '++LotusScript Development Environment:2:2:Click:1:12
  10150. Sub Click(Source As Button)
  10151.     Dim session As New notessession
  10152.     Dim uiws As New notesuiworkspace
  10153.     Dim collection As notesdocumentcollection
  10154.     Dim noteUIEditDocument As notesuidocument
  10155.     Dim database As NotesDatabase
  10156.     Set noteCursorDoc = session.currentdatabase.createdocument
  10157.     Set database = session.currentdatabase
  10158.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  10159.     Set noteCursorDoc = collection.getfirstdocument
  10160.     If Not noteCursorDoc Is Nothing Then
  10161.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  10162.     End If
  10163. End Sub
  10164. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  10165. '++LotusScript Development Environment:2:5:(Forward):0:1
  10166. Declare Sub Click(Source As Button)
  10167. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10168. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10169. Private Sub BindEvents(Byval Objectname_ As String)
  10170.     Static Source As BUTTON
  10171.     Set Source = Bind(Objectname_)
  10172.     On Event Click From Source Call Click
  10173. End Sub
  10174. '++LotusScript Development Environment:2:2:Click:1:12
  10175. Sub Click(Source As Button)
  10176.     Call cMemoObject.InsertSignature(False)
  10177. End Sub
  10178. Save As Stationeryr
  10179. ActionInProgress
  10180. &h00000100&
  10181. IsMailStationery
  10182.     1S2S
  10183. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  10184. '++LotusScript Development Environment:2:5:(Forward):0:1
  10185. Declare Sub Click(Source As Button)
  10186. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10187. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10188. Private Sub BindEvents(Byval Objectname_ As String)
  10189.     Static Source As BUTTON
  10190.     Set Source = Bind(Objectname_)
  10191.     On Event Click From Source Call Click
  10192. End Sub
  10193. '++LotusScript Development Environment:2:2:Click:1:12
  10194. Sub Click(Source As Button)
  10195.     Dim session As New notessession
  10196.     Dim uiws As New notesuiworkspace
  10197.     Dim collection As notesdocumentcollection
  10198.     Dim noteUIEditDocument As notesuidocument
  10199.     Dim database As NotesDatabase
  10200.     Set noteCursorDoc = session.currentdatabase.createdocument
  10201.     Set database = session.currentdatabase
  10202.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  10203.     Set noteCursorDoc = collection.getfirstdocument
  10204.     If Not noteCursorDoc Is Nothing Then
  10205.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  10206.     End If
  10207. End Sub
  10208. IsMailStationery
  10209.     1S2S
  10210. Lotus Product1
  10211. KV0.0}
  10212. Kl*,|$}0
  10213. Kl*U|*
  10214. Kl*,|$}`
  10215. Kl*,|$}
  10216.  -$&#,
  10217.  -$&#,|$}p
  10218.  -$&#,
  10219.  -$&#,
  10220.  -$&#,|$}p
  10221.  -$&#,
  10222.  -$&#,|$}
  10223. Lotus Product1
  10224. KV0.0}
  10225. Kl*,|$}0
  10226. Kl*U|*
  10227. Kl*,|$}`
  10228. Kl*,|$}
  10229.  -$&#,
  10230.  -$&#,|$}p
  10231.  -$&#,
  10232.  -$&#,
  10233.  -$&#,|$}p
  10234.  -$&#,
  10235.  -$&#,|$}
  10236. Lotus Product
  10237. OBJECT
  10238. Lotus Product
  10239. Lotus Product
  10240. OBJECT
  10241. Lotus Product
  10242. OBJECT
  10243. Lotus Product
  10244. OBJECT
  10245. Lotus Product1
  10246. KV0.0}
  10247. Kl*,|$}0
  10248. Kl*U|*
  10249. Kl*,|$}`
  10250. Kl*,|$}
  10251.  -$&#,
  10252.  -$&#,|$}p
  10253.  -$&#,
  10254.  -$&#,
  10255.  -$&#,|$}p
  10256.  -$&#,
  10257.  -$&#,|$}
  10258. Lotus Product
  10259. O=Lotus Notes
  10260. O=Lotus Notes
  10261. PURSAFO
  10262. |.:#U
  10263. O=Lotus Notes
  10264. CN=Lotus Notes Template Development/O=Lotus Notes
  10265. PURSAFO
  10266. 32[1hY"
  10267. $$FormPostOpenAction
  10268. $TypeIcon
  10269. ExpireDate
  10270. ReplyDate
  10271. ComposedDate
  10272. $Background
  10273. $HeaderArea
  10274. $RegionFrameset
  10275. $INFO
  10276. $SubForms
  10277. $WINDOWTITLE
  10278. $AppHelpFormula
  10279. $Script
  10280. $$Script_O
  10281. $$ScriptName
  10282. $$FormScript
  10283. $$$FormScript_O
  10284. $BODY
  10285. $V5ACTIONS
  10286. $ACTIONS
  10287. $SCRIPTOBJ_18
  10288. $SCRIPTOBJ_22
  10289. $SCRIPTOBJ_26
  10290. $SCRIPTOBJ_28
  10291. $SCRIPTOBJ_29
  10292. $SCRIPTOBJ_30
  10293. $SCRIPTOBJ_33
  10294. $SCRIPTOBJ_34
  10295. $SCRIPTOBJ_36
  10296. tmpDocHeader
  10297. Lotus Product
  10298. OBJECT
  10299.  (ReplyNotice)
  10300. (ReplyNotice)
  10301. MailOptions
  10302. SaveOptions
  10303. tmpDocHeader
  10304. tmpDocHeader
  10305. tmpSendTo
  10306.     0S0E
  10307.     To:     
  10308. SendTo^
  10309.     0S0E
  10310. tmpSendTo
  10311. tmpCopyTo
  10312.     0S0E
  10313.     cc:    
  10314. CopyTo^
  10315.     0S0E
  10316. tmpCopyTo
  10317. tmpBlindCopyTo
  10318.     0S0E
  10319.     bcc:    
  10320. BlindCopyTo
  10321.     0S0E
  10322. tmpBlindCopyTo
  10323.     Subject: 
  10324. Subject
  10325. tmpSubject
  10326.     Comments
  10327. StatusUpdate
  10328. Categori_zeK
  10329. _Edit Document
  10330. Send Docu_ment
  10331. _Forward
  10332. _Move To Folder...
  10333. _Remove From FolderK
  10334. Send'++LotusScript Development Environment:2:5:(Options):0:66
  10335. '++LotusScript Development Environment:2:5:(Forward):0:1
  10336. Declare Sub Click(Source As Button)
  10337. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10338. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10339. Private Sub BindEvents(Byval Objectname_ As String)
  10340.     Static Source As BUTTON
  10341.     Set Source = Bind(Objectname_)
  10342.     On Event Click From Source Call Click
  10343. End Sub
  10344. '++LotusScript Development Environment:2:2:Click:1:12
  10345. Sub Click(Source As Button)
  10346.     Dim ws As NotesUIWorkspace
  10347.     Dim uidoc As NotesUIDocument
  10348.     Dim note As NotesDocument
  10349.     Dim sFormname As String
  10350.     Set ws = New NotesUIworkspace
  10351.     Set uidoc = ws.CurrentDocument
  10352.     Set note = uidoc.Document
  10353.     sformname = note.getitemvalue("FormToUse")(0)
  10354.     Call note.ReplaceItemValue("Form", sFormname)
  10355.     Call note.RemoveItem("$MessageType")    
  10356.     uidoc.Reload
  10357.     uidoc.send
  10358.     uidoc.close
  10359. End Sub
  10360. Categori_zeK
  10361. _Edit Document
  10362. Send Docu_ment
  10363. _Forward
  10364. _Move To Folder...
  10365. _Remove From FolderK
  10366. Send'++LotusScript Development Environment:2:5:(Options):0:66
  10367. '++LotusScript Development Environment:2:5:(Forward):0:1
  10368. Declare Sub Click(Source As Button)
  10369. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10370. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10371. Private Sub BindEvents(Byval Objectname_ As String)
  10372.     Static Source As BUTTON
  10373.     Set Source = Bind(Objectname_)
  10374.     On Event Click From Source Call Click
  10375. End Sub
  10376. '++LotusScript Development Environment:2:2:Click:1:12
  10377. Sub Click(Source As Button)
  10378.     Dim ws As NotesUIWorkspace
  10379.     Dim uidoc As NotesUIDocument
  10380.     Dim note As NotesDocument
  10381.     Dim sFormname As String
  10382.     Set ws = New NotesUIworkspace
  10383.     Set uidoc = ws.CurrentDocument
  10384.     Set note = uidoc.Document
  10385.     sformname = note.getitemvalue("FormToUse")(0)
  10386.     Call note.ReplaceItemValue("Form", sFormname)
  10387.     Call note.RemoveItem("$MessageType")    
  10388.     uidoc.Reload
  10389.     uidoc.send
  10390.     uidoc.close
  10391. End Sub
  10392. Lotus Product
  10393. OBJECT
  10394. O=Lotus Notes
  10395. O=Lotus Notes
  10396. PURSAFO
  10397. |.:#U
  10398. O=Lotus Notes
  10399. CN=Lotus Notes Template Development/O=Lotus Notes
  10400. PURSAFO
  10401. $HTMLDocumentStyles
  10402. $INFO
  10403. $WINDOWTITLE
  10404. $$Script_O
  10405. $$ScriptName
  10406. $BODY
  10407. $V5ACTIONS
  10408. $ACTIONS
  10409. $SCRIPTOBJ_6
  10410. $PublicAccess
  10411. *** Message Not Delivered ***
  10412. (Help)
  10413. MAIL_F_RETURNNONRECEIPT
  10414.     0S0E
  10415.  ReturnNonReceipt
  10416. Return Receipt Failure
  10417.     Your document:
  10418. Subject
  10419. OriginalSubject
  10420.     was not received by:
  10421. IntendedRecipient
  10422. IntendedRecipient
  10423.     because:
  10424. FailureReason
  10425. FailureReason
  10426. Categori_zeK
  10427. Close
  10428.     0S0E
  10429. Edit Document
  10430. Resend
  10431. Resend>
  10432.     7S12S
  10433. _Forward
  10434. _Move to Folder...
  10435. _Remove from Folder...
  10436. Inbox
  10437.     1S2S
  10438. path"
  10439. /MailFS?OpenFrameset"
  10440.     0R3S4S5S6S
  10441. act_NEWMAIL.GIF|act_NEWMAIL?
  10442. Delete
  10443.     1S10S14S16S23S
  10444.     0R5S
  10445. path"
  10446. /wDelete?OpenAgent&
  10447. UNID"
  10448. act_DELETE.GIF|act_DELETE?
  10449. Next 
  10450.     0S0E
  10451. Previous
  10452. Categori_zeK
  10453. Close
  10454.     0S0E
  10455. Edit Document
  10456. Resend
  10457. Resend>
  10458.     7S12S
  10459. _Forward
  10460. _Move to Folder...
  10461. _Remove from Folder...
  10462. Inbox
  10463.     1S2S
  10464. path"
  10465. /MailFS?OpenFrameset"
  10466.     0R3S4S5S6S
  10467. Delete
  10468.     1S10S14S16S23S
  10469.     0R5S
  10470. path"
  10471. /wDelete?OpenAgent&
  10472. UNID"
  10473. Next 
  10474.     0S0E
  10475. Previous
  10476. O=Lotus Notes
  10477. O=Lotus Notes
  10478. PURSAFO
  10479. |.:#U
  10480. O=Lotus Notes
  10481. CN=Lotus Notes Template Development/O=Lotus Notes
  10482. PURSAFO
  10483. ]0*y T
  10484. $INFO
  10485. $WINDOWTITLE
  10486. $AppHelpFormula
  10487. $$ScriptName
  10488. $BODY
  10489. $V5ACTIONS
  10490. $ACTIONS
  10491. $FORWARDSEP
  10492.     ----------------------
  10493.      Forwarded by 
  10494. ForwardedFrom
  10495.      on 
  10496. ForwardedDate
  10497.      ---------------------------
  10498. O=Lotus Notes
  10499. O=Lotus Notes
  10500. PURSAFO
  10501. |.:#U
  10502. O=Lotus Notes
  10503. CN=Lotus Notes Template Development/O=Lotus Notes
  10504. PURSAFO
  10505. $INFO
  10506. $$ScriptName
  10507. ForwardedDate
  10508. $BODY
  10509. &Arial
  10510.  $LotusFaxMemoSubform
  10511. Lotus Fax Placeholder
  10512. O=Lotus Notes
  10513. O=Lotus Notes
  10514. PURSAFO
  10515. |.:#U
  10516. O=Lotus Notes
  10517. CN=Lotus Notes Template Development/O=Lotus Notes
  10518. PURSAFO
  10519. $INFO
  10520. $$ScriptName
  10521. $BODY
  10522. (GroupCalendarOptions)
  10523.     Starting Day:
  10524.     Starting Time:
  10525.     Duration:
  10526. StartDateTime
  10527. StartDateTime
  10528. StartDate
  10529. StartDateTime
  10530. StartDateTime
  10531. StartTime
  10532. DurationSel
  10533. 1|12|23|34|45|56|67|78|89|910|1011|1112|12
  10534. O=Lotus Notes
  10535. O=Lotus Notes
  10536. PURSAFO
  10537. |.:#U
  10538. O=Lotus Notes
  10539. CN=Lotus Notes Template Development/O=Lotus Notes
  10540. PURSAFO
  10541. 9[Ze2
  10542. $INFO
  10543. $$ScriptName
  10544. StartDate
  10545. StartTime
  10546. $BODY
  10547. Mail Rule
  10548. '++LotusScript Development Environment:2:5:(Options):0:66
  10549. Option Public
  10550. '++LotusScript Development Environment:2:5:(Forward):0:1
  10551. Declare Function FieldString(itmfield As Variant) As String
  10552. Declare Function LogicString(vlogic As Variant, vcondition As Variant) As String
  10553. Declare Function ActionString(vaction As Variant, note As notesdocument) As String
  10554. Declare Sub ProcessConditions
  10555. Declare Sub ProcessActions
  10556. Declare Sub ProcessExceptions
  10557. Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  10558. Declare Sub ActionParser(strAction As String, strFolder As String, strstring As String)
  10559. Declare Sub AddCondition
  10560. Declare Sub AddException
  10561. Declare Sub GetValues
  10562. Declare Function OperatorString(voperator As Variant)
  10563. Declare Function GetString ( StringType As Variant) As String
  10564. '++LotusScript Development Environment:2:5:(Declarations):0:10
  10565. Dim session As notessession
  10566. Dim db As notesdatabase
  10567. Dim uidoc As notesuidocument
  10568. Dim note As notesdocument
  10569. Dim bnewdoc As Variant
  10570. Dim strformula As String
  10571. Dim strlogic As String
  10572. Dim strstring As String
  10573. Dim stroperator As String
  10574. Dim straction As String
  10575. Dim strfolder As String
  10576. Dim vstring As Variant
  10577. Dim vlogic As Variant
  10578. Dim vcondlogic As Variant
  10579. Dim voperator As Variant
  10580. Dim strcondition As String
  10581. Dim vexception As Variant
  10582. Dim vexceptionlist As notesitem
  10583. Dim vtokexceptionlist As notesitem
  10584. Dim vimportance As Variant
  10585. Dim vdomains As Variant    
  10586. Dim vcondition As Variant
  10587. Dim vconditionlist As notesitem
  10588. Dim vtokconditionlist As notesitem
  10589. '++LotusScript Development Environment:2:1:FieldString:1:8
  10590. Function FieldString(itmfield As Variant) As String
  10591. 'This function tells you which field action to perform
  10592.     Select Case itmfield
  10593.     Case "1"
  10594.         'Sender
  10595.         FieldString = GetString(itmfield)
  10596.     Case "2"
  10597.         'Subject
  10598.         FieldString =  GetString(itmfield)
  10599.     Case "3"
  10600.         'Body
  10601.         FieldString = GetString(itmfield)
  10602.     Case "4"
  10603.         'Importance
  10604.         FieldString = GetString(itmfield)
  10605.     Case "5"
  10606.         'Delivery Priority
  10607.         FieldString = GetString(itmfield)
  10608.     Case "6"
  10609.         'To
  10610.         FieldString =GetString(itmfield)
  10611.     Case "7"
  10612.         'CC
  10613.         FieldString=GetString(itmfield)
  10614.     Case "8"
  10615.         'To or CC
  10616.         FieldString = GetString(itmfield)
  10617.     Case "9"
  10618.         'body or subject
  10619.         FieldString = GetString(itmfield)
  10620.     Case "A"
  10621.         'BCC
  10622.         FieldString=GetString(itmfield)
  10623.     Case "B"
  10624.         'Internet Domain
  10625.         FieldString = GetString(itmfield)
  10626.     Case "C"
  10627.         'size
  10628.         FieldString = GetString(itmfield)
  10629.     End Select
  10630. End Function
  10631. '++LotusScript Development Environment:2:1:LogicString:1:8
  10632. Function LogicString(vlogic As Variant, vcondition As Variant) As String
  10633.     Select Case vlogic
  10634.     Case "1"
  10635.         If vcondition<>"C" Then
  10636.         'contains
  10637.             logicstring = GetString("D")
  10638.         Else
  10639.             logicstring = GetString ("E")
  10640.         End If
  10641.     Case "2"
  10642.         'does not contain
  10643.         If vcondition<>"C" Then
  10644.             logicstring = GetString ("F")
  10645.         Else
  10646.             logicstring = GetString ("G")
  10647.         End If
  10648.     Case "3"
  10649.         'is
  10650.         logicstring = GetString("H")
  10651.     Case "4"
  10652.         'is not
  10653.         logicstring = GetString ("I")
  10654.     End Select
  10655. End Function
  10656. '++LotusScript Development Environment:2:1:ActionString:1:8
  10657. Function ActionString(vaction As Variant, note As notesdocument) As String
  10658.     Dim strImportance As String    
  10659.     Select Case vaction
  10660.     Case "1"
  10661.         ActionString = GetSTring ("J")+ note.getitemvalue("folder")(0)
  10662.     Case "2"    
  10663.         Select Case note.getitemvalue("Importancecond")(0)
  10664.         Case "1"
  10665.             strImportance = GetString("K")
  10666.         Case "2"
  10667.             strImportance = GetString("L")
  10668.         Case "3"
  10669.             strImportance =GetString("M")
  10670.         End Select
  10671.         ActionString = GetString("N")+strImportance
  10672.     Case "3"
  10673.         ActionString = GetString("O")
  10674.     Case "4"
  10675.         ActionString =GetString("P")+note.getitemvalue("folder")(0)
  10676.     End Select
  10677. End Function
  10678. '++LotusScript Development Environment:2:2:ProcessConditions:1:8
  10679. Sub ProcessConditions
  10680.     Dim vtokconditionlist As Variant
  10681.     vtokconditionlist = note.getitemvalue("tokconditionlist")
  10682.     If vtokconditionlist(0)="" Then Exit Sub
  10683.     strformula="@If(("
  10684.     For  x = 0 To Ubound(vtokconditionlist)
  10685.         'Seperate the four elements in their individual items
  10686.         strcondition = Left(vtokconditionlist(x),1)
  10687.         strlogic = Mid(vtokconditionlist(x), 3,1)
  10688.         'if this is the size, strip bytes off of strstring
  10689.         If strcondition="C" Then
  10690.             strstring = Mid(vtokconditionlist(x), 5,(Instr(5,vtokconditionlist(x),":")-10))
  10691.         Else
  10692.             strstring = Mid(vtokconditionlist(x), 5,(Instr(5,vtokconditionlist(x),":")-5))
  10693.         End If
  10694.         If x=0 Then Goto continue
  10695.         stroperator = Right(vtokconditionlist(x),(Len(vtokconditionlist(x))-Instr(5,vtokconditionlist(x),":")))
  10696. continue:    
  10697.         If x<>0 Then            
  10698.             If stroperator="0" Then            
  10699.                 strformula=strformula+" & "
  10700.             Elseif stroperator="1" Then
  10701.                 strformula=strformula+"|"
  10702.             End If            
  10703.         End If
  10704.         Call ConditionParser(strcondition, strlogic, strstring)
  10705.     Next
  10706.     strformula=strformula+")"
  10707. End Sub
  10708. '++LotusScript Development Environment:2:2:ProcessActions:1:8
  10709. Sub ProcessActions
  10710.     Dim vtokactionlist As Variant
  10711.     vtokactionlist = note.getitemvalue("tokactionlist")
  10712.     If vtokactionlist(0)="" Then Exit Sub
  10713.     strformula=strformula+"; (@do("
  10714.     For  x = 0 To Ubound(vtokactionlist)    
  10715.         'Seperate the three elements in their individual items
  10716.         straction = Left(vtokactionlist(x),1)
  10717.         strstring = Mid(vtokactionlist(x), 3,1)
  10718.         strfolder=Right(vtokactionlist(x),Len(vtokactionlist(x))-4)
  10719.         If Instr(strfolder, "\") Then
  10720.             strfolder = Left(strfolder,Len(strfolder)-Instr(strfolder,"\"))+"\"+Right(strfolder,Len(strfolder)-Instr(strfolder,"\"))
  10721.         End If
  10722.         Call ActionParser(straction, Cstr(strfolder), strstring)
  10723.         If x<> Ubound(vtokactionlist) Then strformula=strformula+" ; "
  10724.     Next
  10725.     strformula=strformula+|));"")|
  10726. End Sub
  10727. '++LotusScript Development Environment:2:2:ProcessExceptions:1:8
  10728. Sub ProcessExceptions
  10729.     Dim vtokexceptionlist As Variant
  10730.     vtokexceptionlist = note.getitemvalue("tokexceptionlist")
  10731.     If vtokexceptionlist(0)="" Then    Exit Sub
  10732.     getoperator = note.getitemvalue("operator")
  10733.     If getoperator(0) ="0" Then            
  10734.         strformula=strformula+" & "
  10735.     Elseif getoperator(0)="1" Then
  10736.         strformula=strformula+"|"
  10737.     End If    
  10738.     strformula=strformula+ " !("    
  10739.     For  x = 0 To Ubound(vtokexceptionlist)        
  10740.         'Seperate the three elements in their individual items
  10741.         strcondition = Left(vtokexceptionlist(x),1)
  10742.         strlogic = Mid(vtokexceptionlist(x), 3,1)
  10743.         strstring = Right(vtokexceptionlist(x),Len(vtokexceptionlist(x))-4)
  10744.         Call ConditionParser(strcondition, strlogic, strstring)
  10745.         If x<> Ubound(vtokexceptionlist) Then strformula=strformula+" | "
  10746.     Next
  10747.     strformula=strformula+")"
  10748. End Sub
  10749. '++LotusScript Development Environment:2:2:ConditionParser:1:8
  10750. Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  10751.     Dim fieldstring As String
  10752.     Dim fieldstring1 As String
  10753.     Dim fieldstring2 As String
  10754.     Dim logicstring As String
  10755.     Select Case strcondition
  10756.     Case "1"
  10757.         'Sender
  10758.         Fieldstring="From"
  10759.     Case "2"
  10760.         'Subject
  10761.         FieldString = "Subject"
  10762.     Case "3"
  10763.         'Body
  10764.         FieldString = "@Abstract([TextOnly];64,994;"""";""Body"")"
  10765.     Case "4"
  10766.         'Importance
  10767.         FieldString = "Importance"
  10768.         If strstring = getString("K") Then
  10769.             strstring = "1"
  10770.         Elseif strstring = getString("L") Then
  10771.             strstring = "2"
  10772.         Elseif strstring = getString("M") Then
  10773.             strstring = "3"
  10774.         End If
  10775.     Case "5"
  10776.         'Delivery Priority
  10777.         FieldString = "DeliveryPriority"
  10778.         If strstring = getString("K") Then
  10779.             strstring = "H"
  10780.         Elseif strstring = getString("L") Then
  10781.             strstring = "N"
  10782.         Elseif strstring = getString("M") Then
  10783.             strstring = "L"
  10784.         End If        
  10785.     Case "6"
  10786.         'To
  10787.         FieldString = "SendTo"
  10788.     Case "7"
  10789.         'CC
  10790.         FieldString="CopyTo"
  10791.     Case "8"
  10792.         'To or CC
  10793.         FieldString1 = "SendTo"
  10794.         FieldSTring2="CopyTo"
  10795.     Case "9"
  10796.         'body or subject
  10797.         FieldString1 = "@Abstract([TextOnly];64,994;"""";""Body"")"
  10798.         FieldSTring2="subject"
  10799.     Case "A"
  10800.         'BCC
  10801.         FieldString=" BlindCopyTo"
  10802.     Case "B"
  10803.         'Internet Domain
  10804.         FieldString = "SMTPOriginator"
  10805.     Case "C"
  10806.         'size
  10807.         FieldSTring="@DocLength"
  10808.     End Select
  10809.     Select Case strlogic
  10810.     Case "1"
  10811.         If strcondition<>"C" Then
  10812.         'contains
  10813.             logicstring = "@Contains(@lowercase("
  10814.         Else
  10815.             logicstring = "@DocLength<"
  10816.         End If
  10817.     Case "2"
  10818.         'does not contain
  10819.         If strcondition<>"C" Then
  10820.             logicstring = "!@Contains(@lowercase("
  10821.         Else
  10822.             logicstring = "@DocLength>"
  10823.         End If
  10824.     Case "3"
  10825.         'is
  10826.         logicstring = "="
  10827.     Case "4"
  10828.         'is not
  10829.         logicstring = "!="
  10830.     End Select
  10831.     'We need to special case three conditions, multiple fields, searching body and document size
  10832.     Select Case strcondition
  10833.     Case "C"
  10834.         Select Case strlogic
  10835.         Case "1", "2"
  10836.             strformula = strformula + logicstring + strstring
  10837.         Case "3", "4"
  10838.             strformula = strformula + fieldstring + logicstring + strstring
  10839.         End Select
  10840.     Case "3"
  10841.         'body field needs to be converted to ascii
  10842.         Select Case strlogic
  10843.         Case "1" , "2"
  10844.             strformula=strformula+logicstring+fieldstring+");@Ascii("""+ Lcase(strstring) +"""))"
  10845.         Case "3" , "4"
  10846.             strformula=strformula+fieldstring+logicstring+"@Ascii("""+strstring+""")" 
  10847.         End Select
  10848.     Case "8"  
  10849.         Select Case strlogic
  10850.         Case "1" , "2"
  10851.             strformula=strformula+logicstring+fieldstring1+");"""+ Lcase(strstring) +""") | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
  10852.         Case "3" , "4"
  10853.             strformula=strformula+fieldstring1+logicstring+strstring +" | "+fieldstring2+logicstring+strstring
  10854.         End Select
  10855.     Case "9"
  10856.         Select Case strlogic
  10857.         Case "1" , "2"
  10858.             strformula=strformula+logicstring+fieldstring1+"); @Ascii("""+ Lcase(strstring) +""")) | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
  10859.         Case "3" , "4"
  10860.             strformula=strformula+fieldstring1+logicstring+"@Ascii("""+strstring +") | "+fieldstring2+logicstring+strstring
  10861.         End Select
  10862.     Case Else
  10863.         Select Case strlogic
  10864.         Case "1" , "2"
  10865.             strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"
  10866.         Case "3" , "4"
  10867.             strformula=strformula+fieldstring+logicstring+""""+strstring+""""
  10868.         End Select
  10869.     End Select
  10870. End Sub
  10871. '++LotusScript Development Environment:2:2:ActionParser:1:8
  10872. Sub ActionParser(strAction As String, strFolder As String, strstring As String)
  10873.     Dim strImportance As String    
  10874.     Select Case straction
  10875.     Case "1"
  10876.         strformula = strformula+"(@MailFilterAddtofolder("""+strfolder+"""; @True))"
  10877.     Case "2"    
  10878.         Select Case strstring
  10879.         Case "1"
  10880.             strImportance = "1"
  10881.         Case "2"
  10882.             strImportance = "2"
  10883.         Case "3"
  10884.             strImportance ="3"
  10885.         End Select
  10886.         strformula = "FIELD Importance:=Importance;"+strformula+"(@setfield(""Importance"";"""+strImportance+"""))"
  10887.     Case "3"
  10888.         strformula = strformula+"(@deletedocument)"
  10889.     Case "4"
  10890.         strformula = strformula+"(@MailFilterAddtofolder("""+strfolder+"""))"
  10891.     End Select
  10892. End Sub
  10893. '++LotusScript Development Environment:2:2:AddCondition:1:8
  10894. Sub AddCondition
  10895.     GetValues
  10896.     Set vconditionlist = note.getfirstitem("ConditionList")
  10897.     Set vtokconditionlist = note.getfirstitem("tokConditionList")
  10898.     If vconditionlist.values(0) = "" Then 
  10899.         strcondition ="  "+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  10900.     Else    
  10901.         strcondition = "    "+OperatorString(voperator)+FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  10902.     End If
  10903.     Call vconditionlist.appendtotextlist(strcondition)
  10904.     Call vtokconditionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring+":"+voperator)
  10905.     uidoc.refresh
  10906. End Sub
  10907. '++LotusScript Development Environment:2:2:AddException:1:8
  10908. Sub AddException
  10909.     GetValues
  10910.     Set vexceptionlist = note.getfirstitem("ExceptionList")
  10911.     Set vtokexceptionlist = note.getfirstitem("tokExceptionList")
  10912.     If vexceptionlist.values(0) = "" Then     
  10913.         strcondition ="  "+  FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  10914.     Else    
  10915.         strcondition = "    "+OperatorString(voperator)+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  10916.     End If
  10917.     Call vexceptionlist.appendtotextlist(strcondition)
  10918.     Call vtokexceptionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring)
  10919.     uidoc.refresh
  10920. End Sub
  10921. '++LotusScript Development Environment:2:2:GetValues:1:8
  10922. Sub GetValues
  10923.     vcondition = note.getitemvalue("condition")(0)
  10924.     vlogic = note.getitemvalue("logic")(0)
  10925.     voperator = note.getitemvalue("Operator")(0)
  10926.     If vcondition = "4" Or vcondition="5"Then
  10927.         vimportance = note.getitemvalue("importance")(0)
  10928.         Select Case vimportance
  10929.         Case "1"
  10930.             vstring="High"
  10931.         Case "2"
  10932.             vstring="Normal"
  10933.         Case "3"
  10934.             vstring="Low"
  10935.         End Select
  10936.     Elseif vcondition="B" Then
  10937.         vdomains = note.getitemvalue("domainlist")
  10938.         Forall x In vdomains
  10939.             vstring=vstring+x+":"
  10940.         End Forall
  10941.         vstring=Left(vstring, Len(vstring)-1)
  10942.     Elseif vcondition="C" Then
  10943.         vstring=note.getitemvalue("string")(0)+" bytes"
  10944.     Else
  10945.         vstring = note.getitemvalue("string")(0)
  10946.     End If
  10947. End Sub
  10948. '++LotusScript Development Environment:2:1:OperatorString:1:8
  10949. Function OperatorString(voperator As Variant)
  10950.     'This function converts the operator to it's translated value
  10951.     Select Case voperator
  10952.     Case "0"
  10953.         OperatorString=GetString("Q")
  10954.     Case "1"
  10955.         OperatorString=GetString("R")
  10956.     End Select
  10957. End Function
  10958. '++LotusScript Development Environment:2:1:GetString:1:8
  10959. Function GetString ( StringType As Variant) As String
  10960.     GetString = ""
  10961.     Select Case StringType
  10962.     Case "1"  
  10963.         GetString = " Sender "
  10964.     Case "2"
  10965.         GetString = " Subject "
  10966.     Case "3"
  10967.         GetString = " Body "
  10968.     Case "4"
  10969.         GetString =  " Importance "
  10970.     Case "5"
  10971.         GetString = " Delivery Priority "
  10972.     Case "6"
  10973.         GetString = " To "
  10974.     Case "7"
  10975.         GetString = " CC "
  10976.     Case "8"
  10977.         GetString = " To or CC "
  10978.     Case "9"
  10979.         GetString = " body or subject "
  10980.     Case "A"
  10981.         GetString = " BCC "
  10982.     Case "B"
  10983.         GetString = " Internet Domain "
  10984.     Case "C"
  10985.         GetString = " Size "
  10986.     Case "D"
  10987.         GetString = " contains "
  10988.     Case "E"
  10989.         GetString = " is less than "
  10990.     Case "F"
  10991.         GetString = " does not contain "
  10992.     Case "G"
  10993.         GetString = " is more than "
  10994.     Case "H"
  10995.         GetString = " is "
  10996.     Case "I"
  10997.         GetString = " is not "
  10998.     Case "J"
  10999.         GetString = " move to folder " 
  11000.     Case "K"
  11001.         GetString = "High"
  11002.     Case "L"
  11003.         GetString = "Normal"
  11004.     Case "M"
  11005.         GetString = "Low"
  11006.     Case "N"
  11007.         GetString = " change importance to "
  11008.     Case "O"
  11009.         GetString = " delete the incoming message "
  11010.     Case "P"
  11011.         GetString =  " copy to folder "
  11012.     Case "Q"
  11013.         GetString = "AND"
  11014.     Case "R"
  11015.         GetString = "OR"
  11016.     Case "S"
  11017.         GetString = "You cannot include Delete Document in multiple actions.  Would you like to remove the Delete action from the actions list?"
  11018.     Case "T"
  11019.         getString = "You must enter a valid condition."
  11020.     Case "U"
  11021.         getString = "You must enter a valid action."
  11022.     End Select
  11023. End Function
  11024. Lotus Product
  11025. V0.0:
  11026.  Mailrule'++LotusScript Development Environment:2:5:(Options):0:66
  11027. '++LotusScript Development Environment:2:5:(Forward):0:1
  11028. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11029. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11030. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11031. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11032. Private Sub BindEvents(Byval Objectname_ As String)
  11033.     Static Source As NOTESUIDOCUMENT
  11034.     Set Source = Bind(Objectname_)
  11035.     On Event Queryopen From Source Call Queryopen
  11036.     On Event Queryclose From Source Call Queryclose
  11037. End Sub
  11038. '++LotusScript Development Environment:2:2:Queryopen:1:12
  11039. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11040.     Set uidoc = source
  11041.     Set note = uidoc.document
  11042. End Sub
  11043. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11044. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11045. End Sub
  11046. Lotus Product
  11047. V0.0:
  11048. $FilterFormula
  11049. $FilterFormula
  11050. ConditionList
  11051. tokConditionList
  11052. ExceptionList
  11053. tokExceptionList
  11054. ActionList
  11055. tokActionList
  11056.     0S0E
  11057. ExcludeFromView
  11058. Mailrule
  11059.     Rule is:  
  11060. Enable
  11061. On|1Off|0
  11062.     Specify Conditions:
  11063. ConditionList
  11064.     0S0E
  11065.     Create condition:
  11066. ConditionList
  11067.     0S0E
  11068.     Create: 
  11069. Condition|0Exception|1
  11070. Operator
  11071. AND|0OR|1
  11072. condition
  11073. sender|1subject|2body|3importance|4delivery priority|5To|6CC|7BCC|ATo or CC|8body or subject|9Internet Domain|BSize (in bytes) |C
  11074. Logic
  11075. Condition
  11076. is less than|1
  11077. is greater than|2
  11078. is not|4
  11079. contains|1
  11080. does not contain|2
  11081. is not|4
  11082.     0S0E
  11083. condition
  11084.     0S0E
  11085. string
  11086. condition
  11087.     0S0E
  11088. importance
  11089. High|1Normal|2Low|3
  11090. condition
  11091.     0S0E
  11092. domainlist
  11093.     When mail messages arrive that meet these conditions:
  11094. '++LotusScript Development Environment:2:5:(Options):0:66
  11095. '++LotusScript Development Environment:2:5:(Forward):0:1
  11096. Declare Sub Click(Source As Button)
  11097. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11098. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11099. Private Sub BindEvents(Byval Objectname_ As String)
  11100.     Static Source As BUTTON
  11101.     Set Source = Bind(Objectname_)
  11102.     On Event Click From Source Call Click
  11103. End Sub
  11104. '++LotusScript Development Environment:2:2:Click:1:12
  11105. Sub Click(Source As Button)
  11106.     If (note.getitemvalue("ConditionList")(0)="") Then
  11107.         'This is the first time so add a condition
  11108.         AddCondition
  11109.     Else
  11110.         'There already is a condition so check the type
  11111.         If (note.getitemvalue("Type")(0) = "0") Then
  11112.             AddCondition
  11113.         Else
  11114.             AddException
  11115.         End If
  11116.     End If
  11117. End Sub
  11118. Lotus Product
  11119. OBJECT
  11120. New Button
  11121. Need a newer version of Notes to execute this button.
  11122.     0S0E
  11123.             Add        
  11124. '++LotusScript Development Environment:2:5:(Options):0:66
  11125. '++LotusScript Development Environment:2:5:(Forward):0:1
  11126. Declare Sub Click(Source As Button)
  11127. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11128. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11129. Private Sub BindEvents(Byval Objectname_ As String)
  11130.     Static Source As BUTTON
  11131.     Set Source = Bind(Objectname_)
  11132.     On Event Click From Source Call Click
  11133. End Sub
  11134. '++LotusScript Development Environment:2:2:Click:1:12
  11135. Sub Click(Source As Button)
  11136.     Dim vcondtoremove As Variant
  11137.     Dim vconditionlist As Variant
  11138.     Dim vtokconditionlist As Variant
  11139.     Dim vexceptionlist As Variant
  11140.     Dim vtokexceptionlist As Variant
  11141.     vcondtoremove = note.getitemvalue("conditionlistdisplay")(0)
  11142.     vconditionlist = note.getitemvalue("ConditionList")
  11143.     vexceptionlist = note.getitemvalue("ExceptionList")
  11144.     For  x = 0 To Ubound(vconditionlist)
  11145.         If vconditionlist(x) = vcondtoremove Then
  11146.             vconditionlist(x) = ""
  11147.             Call note.replaceitemvalue("conditionlist",vconditionlist)
  11148.             vtokconditionlist = note.getitemvalue("tokConditionList")
  11149.             vtokconditionlist(x) = ""
  11150.             Call note.replaceitemvalue("tokConditionList", vtokconditionlist)
  11151.             Goto done
  11152.         End If
  11153.     Next
  11154.     For  x = 0 To Ubound(vexceptionlist)
  11155.         If vexceptionlist(x) = vcondtoremove Then
  11156.             vexceptionlist(x) = ""
  11157.             Call note.replaceitemvalue("exceptionlist",vexceptionlist)
  11158.             vtokexceptionlist=note.getitemvalue("tokExceptionList")
  11159.             vtokexceptionlist(x)=""
  11160.             Call note.replaceitemvalue("tokexceptionlist",vtokexceptionlist)
  11161.             Goto done
  11162.         End If
  11163.     Next
  11164. done:
  11165.     uidoc.refresh
  11166. End Sub
  11167. Lotus Product
  11168. New Button
  11169. Need a newer version of Notes to execute this button.
  11170.     0S0E
  11171.         Remove      
  11172. ConditionListDisplay
  11173. ConditionList
  11174. When:
  11175. conditionlist
  11176. conditionlist
  11177. ExceptionList
  11178. Except when:
  11179. exceptionlist
  11180. exceptionlist
  11181.     0S0E
  11182. '++LotusScript Development Environment:2:5:(Options):0:66
  11183. '++LotusScript Development Environment:2:5:(Forward):0:1
  11184. Declare Sub Click(Source As Button)
  11185. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11186. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11187. Private Sub BindEvents(Byval Objectname_ As String)
  11188.     Static Source As BUTTON
  11189.     Set Source = Bind(Objectname_)
  11190.     On Event Click From Source Call Click
  11191. End Sub
  11192. '++LotusScript Development Environment:2:2:Click:1:12
  11193. Sub Click(Source As Button)
  11194.     Dim vconditionlist As Variant
  11195.     Dim vexceptionlist As Variant
  11196.     Dim vtokconditionlist As Variant
  11197.     Dim vtokexceptionlist As Variant
  11198.     vconditionlist = note.getitemvalue("ConditionList")
  11199.     vexceptionlist = note.getitemvalue("ExceptionList")
  11200.     vtokconditionlist = note.getitemvalue("tokConditionList")
  11201.     vtokexceptionlist = note.getitemvalue("tokExceptionList")
  11202.     For  x = 0 To Ubound(vconditionlist)
  11203.         vconditionlist(x) = ""
  11204.         vtokconditionlist(x) = ""
  11205.     Next
  11206.     For  x = 0 To Ubound(vexceptionlist)
  11207.         vexceptionlist(x) = ""
  11208.         vtokexceptionlist(x)=""
  11209.     Next
  11210.     'Set all values back to initial values
  11211.     Call note.replaceitemvalue("Condition", "1")
  11212.     Call note.replaceitemvalue("Logic","1")
  11213.     Call note.replaceitemvalue("String", "")
  11214.     Call note.replaceitemvalue("conditionlist",vconditionlist)
  11215.     Call note.replaceitemvalue("tokconditionlist", vtokconditionlist)
  11216.     Call note.replaceitemvalue("exceptionlist", vexceptionlist)
  11217.     Call note.replaceitemvalue("tokexceptionlist", vtokexceptionlist)
  11218.     'Call note.save(True,True)
  11219.     uidoc.refresh
  11220. End Sub
  11221. Lotus Product
  11222. OBJECT
  11223. New Button
  11224. Need a newer version of Notes to execute this button.
  11225.     0S0E
  11226.       Remove All   
  11227.     Specify Actions:
  11228. action
  11229. move to folder|1copy to folder|4change importance to|2delete|3
  11230. action
  11231.     0S0E
  11232. folder
  11233. action
  11234.     0S0E
  11235. importancecond
  11236. High|1Normal|2Low|3
  11237. action
  11238.     0S0E
  11239. action
  11240.     0S0E
  11241. folder
  11242.     4S7S8S10S
  11243.     Choose Folder
  11244.     Perform the following actions:
  11245. '++LotusScript Development Environment:2:5:(Options):0:66
  11246. '++LotusScript Development Environment:2:5:(Forward):0:1
  11247. Declare Sub Click(Source As Button)
  11248. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11249. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11250. Private Sub BindEvents(Byval Objectname_ As String)
  11251.     Static Source As BUTTON
  11252.     Set Source = Bind(Objectname_)
  11253.     On Event Click From Source Call Click
  11254. End Sub
  11255. '++LotusScript Development Environment:2:2:Click:1:12
  11256. Sub Click(Source As Button)
  11257.     Dim vaction As Variant
  11258.     Dim itmactionlist As NotesItem
  11259.     Dim itmtokactionlist As notesitem
  11260.     Dim vimportance As Variant
  11261.     Dim vfolder As Variant
  11262.     Dim vactiondisplay As Variant
  11263.     Dim straction As String
  11264.     Set itmactionlist = note.getfirstitem("ActionList")
  11265.     Set itmtokactionlist =note.getfirstitem("TokActionList")
  11266.     vaction = note.getitemvalue("action")(0)
  11267.     If itmactionlist.values(0) = "" Then 
  11268.         straction = actionstring(vaction, note)
  11269.     Elseif itmtokactionlist.contains("3:1:") Then
  11270.         If Messagebox (GetString("S"), 36, "Rules Error")  <> 6 Then Exit Sub
  11271.         itmtokactionlist.remove
  11272.         itmactionlist.remove
  11273.         Set itmtokactionlist=New notesitem(note, "tokactionlist","")
  11274.         Set itmactionlist = New notesitem(note,"actionlist","")
  11275.         straction = actionstring(vaction,note)
  11276.     Else
  11277.         straction = " "+GetString("Q")+actionstring(vaction, note)
  11278.     End If
  11279.     Call itmactionlist.appendtotextlist(straction)
  11280.     Call itmtokactionlist.appendtotextlist(vaction+":"+note.importancecond(0)+":"+note.folder(0))    
  11281.     uidoc.refresh
  11282. End Sub
  11283. Lotus Product
  11284. OBJECT
  11285. New Button
  11286. Need a newer version of Notes to execute this button.
  11287.     0S0E
  11288.        Add Action   
  11289. '++LotusScript Development Environment:2:5:(Options):0:66
  11290. '++LotusScript Development Environment:2:5:(Forward):0:1
  11291. Declare Sub Click(Source As Button)
  11292. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11293. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11294. Private Sub BindEvents(Byval Objectname_ As String)
  11295.     Static Source As BUTTON
  11296.     Set Source = Bind(Objectname_)
  11297.     On Event Click From Source Call Click
  11298. End Sub
  11299. '++LotusScript Development Environment:2:2:Click:1:12
  11300. Sub Click(Source As Button)
  11301.     Dim vactiontoremove As Variant
  11302.     Dim vactionlist As Variant
  11303.     Dim vtokactionlist As Variant
  11304.     vactiontoremove = note.getitemvalue("actionlistdisplay")(0)
  11305.     vactionlist = note.getitemvalue("actionList")
  11306.     vtokactionlist = note.getitemvalue("tokactionList")
  11307.     For  x = 0 To Ubound(vactionlist)
  11308.         If vactionlist(x) = vactiontoremove Then
  11309.             vactionlist(x) = ""
  11310.             Call note.replaceitemvalue("actionlist",vactionlist)
  11311.             vtokactionlist(x)=""
  11312.             Call note.replaceitemvalue("tokactionlist",vtokactionlist)
  11313.             Goto done
  11314.         End If
  11315.     Next
  11316. done:
  11317.     uidoc.refresh
  11318. End Sub
  11319. Lotus Product
  11320. OBJECT
  11321. New Button
  11322. Need a newer version of Notes to execute this button.
  11323.     0S0E
  11324.           Remove    
  11325. ActionListDisplay
  11326. ActionList
  11327. '++LotusScript Development Environment:2:5:(Options):0:66
  11328. '++LotusScript Development Environment:2:5:(Forward):0:1
  11329. Declare Sub Click(Source As Button)    
  11330. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11331. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11332. Private Sub BindEvents(Byval Objectname_ As String)
  11333.     Static Source As BUTTON
  11334.     Set Source = Bind(Objectname_)
  11335.     On Event Click From Source Call Click
  11336. End Sub
  11337. '++LotusScript Development Environment:2:2:Click:1:12
  11338. Sub Click(Source As Button)    
  11339.     Dim vactionlist As Variant
  11340.     Dim vtokactionlist As Variant
  11341.     vactionlist = note.getitemvalue("actionlist")
  11342.     vtokactionlist = note.getitemvalue("tokactionlist")
  11343.     For  x = 0 To Ubound(vactionlist)
  11344.         vactionlist(x) = ""
  11345.         vtokactionlist(x)=""
  11346.     Next
  11347.     Call note.replaceitemvalue("action", "1")
  11348.     Call note.replaceitemvalue("folder","")
  11349.     Call note.replaceitemvalue("actionlist",vactionlist)
  11350.     Call note.replaceitemvalue("tokactionlist", vtokactionlist)
  11351.     uidoc.refresh
  11352. End Sub
  11353. Lotus Product
  11354. OBJECT
  11355. New Button
  11356. Need a newer version of Notes to execute this button.
  11357.     0S0E
  11358.        Remove All  
  11359. '++LotusScript Development Environment:2:5:(Options):0:66
  11360. '++LotusScript Development Environment:2:5:(Forward):0:1
  11361. Declare Sub Click(Source As Button)
  11362. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11363. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11364. Private Sub BindEvents(Byval Objectname_ As String)
  11365.     Static Source As BUTTON
  11366.     Set Source = Bind(Objectname_)
  11367.     On Event Click From Source Call Click
  11368. End Sub
  11369. '++LotusScript Development Environment:2:2:Click:1:12
  11370. Sub Click(Source As Button)
  11371.     'This code creates the filter action formula to be used by the mail router and puts it in a field called $FilterFormul
  11372.     Dim uiws As New notesuiworkspace
  11373.     Dim dbmail As notesdatabase
  11374.     Dim session As New notessession
  11375.     Dim viewcollection As notesviewentrycollection
  11376.     Dim view As notesview
  11377.     Dim profile As notesdocument
  11378.     Dim item As notesitem
  11379.     Dim bprofilesave As Integer    
  11380.     Dim bmovetofolder As Integer
  11381.     Dim nrulenum As Integer
  11382.     Dim strfilteritem As String
  11383.     Dim Debug As Integer
  11384.     Set dbmail = session.currentdatabase
  11385.     Set profile= dbmail.GetProfileDocument("CalendarProfile")
  11386.     Set view = dbmail.getview("Rules")
  11387.     Debug = session.getEnvironmentvalue("DEBUG_RULE", True)
  11388.     'Check to see if the profile already existed
  11389.     If Not(profile.HasItem("Owner")) Then
  11390.         profile.Form = "CalendarProfile"
  11391.         Call profile.ComputeWithForm(False,False)
  11392.     End If 
  11393.     If note.conditionlist(0) = "" Then
  11394.         Msgbox getString("T"), 16
  11395.         Exit Sub
  11396.     Elseif note.actionlist(0) = "" Then
  11397.         Msgbox getString("U"), 16
  11398.         Exit Sub
  11399.     End If
  11400.         'First give the rule a sequence number if it's a new rule    
  11401.     If note.isnewnote Then
  11402.         Set viewcollection = view.allentries
  11403.         nrulenum = viewcollection.count
  11404.         Call note.replaceitemvalue("OrderNum", nrulenum)
  11405.         Call profile.replaceitemvalue("$FilterFormulaCount",Cstr(nrulenum+1))
  11406.         bmovetofolder=True    
  11407.     Else
  11408.         nrulenum = note.getitemvalue("ordernum")(0)
  11409.     End If        
  11410.     strfilteritem = "$FilterFormula_"+Cstr(nrulenum)
  11411.     If note.getitemvalue("Enable")(0)="1" Then            
  11412.         Call dbmail.enabledboptions(1,True)        
  11413.         ProcessConditions
  11414.         ProcessExceptions
  11415.         ProcessActions
  11416.         Set item=note.getfirstitem("$FilterFormula")
  11417.         item.values=strformula        
  11418.         bprofilesave=True    
  11419.         If Debug=1 Then
  11420.             Print "Formula:  "+strformula
  11421.         End If
  11422.     Else        
  11423.         bprofilesave = profile.hasitem(strfilteritem)
  11424.     End If
  11425.     If profile.hasitem(strfilteritem) Then
  11426.         Call profile.removeitem(strfilteritem)
  11427.     End If
  11428.     Call note.computewithform(False,False)
  11429.     If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
  11430.     Call note.save(True,False,True)
  11431.     If bmovetofolder Then Call note.putinfolder("Rules")
  11432.     If bprofilesave Then Call profile.save(True, True, False)
  11433.     uidoc.close    
  11434.     uiws.viewrefresh
  11435. End Sub
  11436. Lotus Product
  11437. )<    }<
  11438. New Button
  11439. Need a newer version of Notes to execute this button.
  11440.     0S0E
  11441.        OK   
  11442.     0S0E
  11443.     Cancel
  11444.     This field is used for Ordering the Filter documents in the folder
  11445. OrderNum
  11446. OrderNum
  11447. Categori_ze
  11448. _Edit Document
  11449. Send Docu_ment
  11450. _Forward
  11451. _Move To Folder...
  11452. _Remove From Folderd
  11453. Categori_ze
  11454. _Edit Document
  11455. Send Docu_ment
  11456. _Forward
  11457. _Move To Folder...
  11458. _Remove From Folder|
  11459. O=Lotus Notes
  11460. O=Lotus Notes
  11461. PURSAFO
  11462. |.:#U
  11463. O=Lotus Notes
  11464. CN=Lotus Notes Template Development/O=Lotus Notes
  11465. PURSAFO
  11466. >D|ji
  11467. $INFO
  11468. $WINDOWTITLE
  11469. $Script
  11470. $$Script_O
  11471. $$ScriptName
  11472. $$FormScript
  11473. $$$FormScript_O
  11474. $BODY
  11475. $ACTIONS
  11476. $V5ACTIONS
  11477. Lotus Product.
  11478. ^V0.06-
  11479. H}0%#
  11480. 9}0%}
  11481. 9}P%}
  11482. 9}x%}
  11483. 9,4I#
  11484. ;-dI#
  11485. ;-$J#
  11486. ;-HJ#
  11487. ;-HJ#
  11488. ;-lJ#
  11489. Lotus Product
  11490. OBJECT
  11491. Lotus Product
  11492. OBJECT
  11493. Lotus Product.
  11494. ^V0.06-
  11495. H}0%#
  11496. 9}0%}
  11497. 9}P%}
  11498. 9}x%}
  11499. 9,4I#
  11500. ;-dI#
  11501. ;-$J#
  11502. ;-HJ#
  11503. ;-HJ#
  11504. ;-lJ#
  11505. Lotus Product
  11506. Lotus Product
  11507. TaskType
  11508. principal
  11509. chair
  11510. NoticeType
  11511. Broadcast
  11512. (Help)
  11513. MAIL_F_TASK_REC
  11514. (Help)
  11515. MAIL_F_TASK_REC_BRD
  11516. (Help)
  11517. MAIL_F_TASK_REC_MOD
  11518. (Help)
  11519. MAIL_F_TASK
  11520. (Help)
  11521. MAIL_F_TASK
  11522.     3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
  11523. Option Public
  11524. Option Explicit    
  11525. Use "CSUIDocClass"
  11526. '++LotusScript Development Environment:2:5:(Forward):0:1
  11527. '++LotusScript Development Environment:2:5:(Declarations):0:10
  11528. Dim uitaskdoc As UIEventDocument
  11529. Lotus Product
  11530. KtV0.0
  11531. {Kt{,
  11532. K$!-0
  11533. ]\|K$!-0
  11534. K$!-0
  11535. K$!-0
  11536. K$!-0
  11537. K$!-0
  11538. K$!-0
  11539. ^l|K$!-0
  11540. ^l|Jl|
  11541. ]\|Jl|
  11542. ]\|K$!-0
  11543.  TaskNotice'++LotusScript Development Environment:2:5:(Options):0:66
  11544. '++LotusScript Development Environment:2:5:(Forward):0:1
  11545. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11546. Declare Sub Postopen(Source As Notesuidocument)
  11547. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11548. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11549. Declare Sub Postsave(Source As Notesuidocument)
  11550. Declare Sub Postrecalc(Source As Notesuidocument)
  11551. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  11552. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11553. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11554. Private Sub BindEvents(Byval Objectname_ As String)
  11555.     Static Source As NOTESUIDOCUMENT
  11556.     Set Source = Bind(Objectname_)
  11557.     On Event Queryopen From Source Call Queryopen
  11558.     On Event Postopen From Source Call Postopen
  11559.     On Event Querysave From Source Call Querysave
  11560.     On Event Queryclose From Source Call Queryclose
  11561.     On Event Postsave From Source Call Postsave
  11562.     On Event Postrecalc From Source Call Postrecalc
  11563.     On Event Querymodechange From Source Call Querymodechange
  11564. End Sub
  11565. '++LotusScript Development Environment:2:2:Queryopen:1:12
  11566. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11567.     If (source.inpreviewpane) Then Exit Sub
  11568.     Set uitaskdoc = CSUIDocOpen(2, source, mode, isnewdoc, continue)
  11569. End Sub
  11570. '++LotusScript Development Environment:2:2:Postopen:1:12
  11571. Sub Postopen(Source As Notesuidocument)
  11572.     If (source.InPreviewPane) Then Exit Sub
  11573.     Call uitaskdoc.PostOpen()
  11574. End Sub
  11575. '++LotusScript Development Environment:2:2:Querysave:1:12
  11576. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11577.     If (source.InPreviewPane) Then Exit Sub
  11578.     Call uitaskdoc.QuerySave( Continue)
  11579. End Sub
  11580. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11581. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11582.     If (source.InPreviewPane) Then Exit Sub
  11583.     If (uitaskdoc.WasSaved) Then Call uitaskdoc.QueryClose(continue)    
  11584. End Sub
  11585. '++LotusScript Development Environment:2:2:Postsave:1:12
  11586. Sub Postsave(Source As Notesuidocument)
  11587.     If (source.InPreviewPane) Then Exit Sub
  11588.     Call uitaskdoc.PostSave() 
  11589. End Sub
  11590. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  11591. Sub Postrecalc(Source As Notesuidocument)
  11592.     Dim note As notesdocument
  11593.     If (source.InPreviewPane) Then Exit Sub
  11594.     Set note = source.document
  11595.     Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
  11596.     Call uitaskdoc.PostRecalc()
  11597. End Sub
  11598. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  11599. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  11600.     If (source.InPreviewPane) Then continue = False
  11601. End Sub
  11602. Lotus Product
  11603. Notes
  11604. (wCSItems)
  11605.     3S4S
  11606.     Always Hidden: 
  11607. TaskNotice
  11608. tmpOwner
  11609. Chair
  11610.     8S11S12S21S22S
  11611. tmpOwner
  11612. Chair
  11613.     8S11S12S21S22S
  11614. tmpOwnerHW
  11615. tmpDoNotProcess
  11616. tmpOwner
  11617. BlindCopyTo
  11618.     3S4S6S8S17S18S28S
  11619. tmpDoNotProcess
  11620. tmpOwner
  11621. BlindCopyTo
  11622.     3S4S6S8S17S18S28StmpNoActionBar
  11623. ChairName
  11624. Chair
  11625.     1S2S
  11626. PrincipalName
  11627. Principal
  11628.     0R1S2S
  11629. xxInvitation
  11630. New to do assignment from 
  11631. ChairName
  11632.     0RR1S2S3S4S
  11633. xxReschedule
  11634. ChairName
  11635.  has rescheduled this to do
  11636.     0R1S2S3S4S
  11637. xxCancellation
  11638. ChairName
  11639.  has cancelled this to do
  11640.     0R1S2S3S4S
  11641. xxConfirmation
  11642. ChairName
  11643.  has confirmed this to do
  11644.     0R1S2S3S4S
  11645. xxAccept
  11646. tmpowner
  11647. chair
  11648. PrincipalName
  11649.  has accepted your to do assignment
  11650. You have accepted this to do
  11651.     0R1S2S5S6S8S9S10S12S
  11652. xxDecline
  11653. tmpOwner
  11654. chair
  11655. PrincipalName
  11656.  has declined your to do assignment
  11657. You have declined this to do
  11658.     0R1S2S5S6S8S9S10S12S
  11659. xxCounter
  11660. tmpOwner
  11661. chair
  11662. PrincipalName
  11663.  has proposed changes to your to do assignment"
  11664. You have countered this to do assignment
  11665.     0R1S2S5S6S8S9S10S12S
  11666. xxDelegate
  11667. tmpOwner
  11668. chair
  11669. PrincipalName
  11670.  has delegated your to do assignment"
  11671. You have delegated this to do
  11672.     0R1S2S5S6S8S9S10S12S
  11673. xxDeleInvite
  11674. PrincipalName
  11675.  has delegated this to do assignment to you
  11676.     0R1S2S3S4S
  11677. xxDeclineCounter
  11678. ChairName
  11679.  has declined your proposed changes
  11680.     0R1S2S3S4S
  11681. xxRefreshInfo
  11682. $CSFlags
  11683. PrincipalName
  11684.  is requesting updated information"
  11685. Updated information from 
  11686. PrincipalName
  11687.     0R1S2S8S11S12S13S15RTTT16S17S
  11688. xxCompleted
  11689. PrincipalName
  11690.  has completed your to do assignment"
  11691.     0R1S2S3S4S
  11692. NoticeType
  11693. xxInvitation
  11694. xxReschedule
  11695. xxCancellation
  11696. xxConfirmation
  11697. xxAccept
  11698. xxDecline
  11699. xxCounter
  11700. xxDelegate
  11701. xxDeleInvite
  11702. xxRefreshInfo
  11703. xxDeclineCounter
  11704. xxPencilIn
  11705. xxCompleted
  11706.     0RR4S30S31S32STT33S34S35S36S37S38S39S40S41S42S43S44STT46S47S48StmpNoticeType
  11707. NoticeType
  11708. Proposed Start:
  11709. Starts:
  11710.     3S4S
  11711. .,$ //:
  11712. NoticeType
  11713. NewStartDate
  11714. StartDateTime
  11715.     3S4S6S8S
  11716. tmpStartDateTime
  11717. NoticeType
  11718. Proposed Due:
  11719.     3S4S
  11720. .,$ //:
  11721. NoticeType
  11722. NewEndDate
  11723. DueDateTime
  11724.     3S4S6S8S
  11725. tmpEndDateTime
  11726. NoticeType
  11727.     1S2S
  11728.     Original Start:     
  11729. .,$ //:
  11730. StartDateTime
  11731. -None-
  11732. StartDateTime
  11733.     3S4S6S8S
  11734. tmpOrigStartDateTime
  11735.     Original Due:
  11736. .,$ //:
  11737. DueDateTime
  11738. -None-
  11739. DueDateTime
  11740.     3S4S6S8S
  11741. tmpOrigEndDateTime
  11742.     Title:
  11743. Topic
  11744. Topic
  11745. Subject
  11746.     7S9S
  11747. tmpTopic
  11748.     Owner:
  11749. Chair
  11750. Chair
  11751. Principal
  11752. tmpChair
  11753. tmpWasMailedY
  11754. principal
  11755.     4S5S15S16S
  11756.     Sent by:
  11757. tmpSentBy
  11758. NoticeType
  11759.     1S2S
  11760.     Delegated To:
  11761. Delegee
  11762. tmpDelegee
  11763. Basics
  11764. TaskType
  11765.     1S2S
  11766.     Required:    
  11767. AssignedTo^
  11768.     0S0E
  11769. tmpRequired
  11770.     Optional:    
  11771. OptionalAssignedTo^
  11772.     0S0E
  11773. tmpOptional
  11774. BlindCopyTo
  11775.     4S5S
  11776.     FYI:    
  11777. BlindCopyTo
  11778. tmpFYI
  11779. Participants
  11780. OrgRepeat
  11781.     0S0E
  11782.     Starting:     
  11783. .,$ //:
  11784. RepeatStartDate
  11785. RepeatStartDate
  11786. OriginalStartDate
  11787.     7S9S
  11788. tmpRepeatStart
  11789. OrgRepeat
  11790. RepeatDates
  11791.     4S5S
  11792.     Repeat:     
  11793. RepeatInterval
  11794. tmpRepeatInterval
  11795. every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
  11796. RepeatUnit
  11797. tmpRepeatUnit
  11798. day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
  11799. RepeatAdjust
  11800. tmpRepeatAdjust
  11801. RepeatUnit
  11802. on Sunday|0
  11803. on Monday|1
  11804. on Tuesday|2
  11805. on Wednesday|3
  11806. on Thursday|4
  11807. on Friday|5
  11808. on Saturday|6
  11809. RepeatUnit
  11810. on the 1st Sunday|1.0
  11811. on the 1st Monday|1.1
  11812. on the 1st Tuesday|1.2
  11813. on the 1st Wednesday|1.3
  11814. on the 1st Thursday|1.4
  11815. on the 1st Friday|1.5
  11816. on the 1st Saturday|1.6
  11817. on the 2nd Sunday|2.0
  11818. on the 2nd Monday|2.1
  11819. on the 2nd Tuesday|2.2
  11820. on the 2nd Wednesday|2.3
  11821. on the 2nd Thursday|2.4
  11822. on the 2nd Friday|2.5
  11823. on the 2nd Saturday|2.6
  11824. on the 3rd Sunday|3.0
  11825. on the 3rd Monday|3.1
  11826. on the 3rd Tuesday|3.2
  11827. on the 3rd Wednesday|3.3
  11828. on the 3rd Thursday|3.4
  11829. on the 3rd Friday|3.5
  11830. on the 3rd Saturday|3.6
  11831. on the 4th Sunday|4.0
  11832. on the 4th Monday|4.1
  11833. on the 4th Tuesday|4.2
  11834. on the 4th Wednesday|4.3
  11835. on the 4th Thursday|4.4
  11836. on the 4th Friday|4.5
  11837. on the 4th Saturday|4.6
  11838. on the Last Sunday|5.0
  11839. on the Last Monday|5.1
  11840. on the Last Tuesday|5.2
  11841. on the Last Wednesday|5.3
  11842. on the Last Thursday|5.4
  11843. on the Last Friday|5.5
  11844. on the Last Saturday|5.6
  11845. RepeatUnit
  11846. on the 1st day|1
  11847. on the 2nd day|2
  11848. on the 3rd day|3
  11849. on the 4th day|4
  11850. on the 5th day|5
  11851. on the 6th day|6
  11852. on the 7th day|7
  11853. on the 8th day|8
  11854. on the 9th day|9
  11855. on the 10th day|10
  11856. on the 11th day|11
  11857. on the 12th day|12
  11858. on the 13th day|13
  11859. on the 14th day|14
  11860. on the 15th day|15
  11861. on the 16th day|16
  11862. on the 17th day|17
  11863. on the 18th day|18
  11864. on the 19th day|19
  11865. on the 20th day|20
  11866. on the 21st day|21
  11867. on the 22nd day|22
  11868. on the 23rd day|23
  11869. on the 24th day|24
  11870. on the 25th day|25
  11871. on the 26th day|26
  11872. on the 27th day|27
  11873. on the 28th day|28
  11874. on the 29th day|29
  11875. on the 30th day|30
  11876. on the 31st day|31
  11877.     3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
  11878. RepeatHow
  11879. tmpRepeatHow
  11880. until|Ufor|F
  11881. RepeatFor
  11882. tmpRepeatUnit
  11883.     7S9S
  11884. RepeatHow
  11885. RepeatUntil
  11886. RepeatFor
  11887. RepeatForUnit
  11888. RepeatFor
  11889. RepeatForUnit
  11890. RepeatFor
  11891. RepeatForUnit
  11892. RepeatFor
  11893. month
  11894. RepeatForUnit
  11895. RepeatFor
  11896. RepeatFor
  11897. RepeatForUnit
  11898. RepeatFor
  11899. RepeatForUnit
  11900. weeks
  11901. RepeatFor
  11902. RepeatForUnit
  11903. months
  11904. RepeatFor
  11905. RepeatForUnit
  11906. years
  11907.     0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
  11908. tmpRepeatUntil
  11909. RepeatUnit
  11910. (if the date falls on a weekend the meeting 
  11911. RepeatWeekends
  11912. occurs anyway
  11913. RepeatWeekends
  11914. is moved to Friday
  11915. RepeatWeekends
  11916. is moved to Monday
  11917. RepeatWeekends
  11918. is moved to Nearest Weekday
  11919. RepeatWeekends
  11920. is deleted
  11921.     3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
  11922. tmpRepeatWeekends
  11923. OrgRepeat
  11924. RepeatDates
  11925.     4S5S
  11926.     Applies to:    
  11927. RescheduleWhich
  11928. tmpAppliesTo
  11929. This instance only|0All instances|1This instance and all previous instances|2This instance and all future instances|3
  11930. Repeat Info
  11931. StatusUpdate
  11932. Categori_ze
  11933. _Edit Document
  11934. Send Docu_ment
  11935. _Forward
  11936. _Move To Folder...
  11937. _Remove From Folder
  11938. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  11939. '++LotusScript Development Environment:2:5:(Forward):0:1
  11940. Declare Sub Click(Source As Button)
  11941. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11942. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11943. Private Sub BindEvents(Byval Objectname_ As String)
  11944. Static Source As BUTTON
  11945. Set Source = Bind(Objectname_)
  11946. On Event Click From Source Call Click
  11947. End Sub
  11948. '++LotusScript Development Environment:2:2:Click:1:12
  11949. Sub Click(Source As Button)
  11950.     Dim uidoc As NotesUIDocument
  11951.     Dim uiobject As Variant
  11952.     Dim nResult As Integer
  11953.     Set uiobject = uitaskdoc.UIObject
  11954.     Set uidoc = uitaskdoc.UIDocument     
  11955.     If (uiobject.OkToAccept(False)) Then
  11956.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  11957.         Call uidoc.save
  11958.         Call uidoc.close
  11959.     End If    
  11960. End Sub
  11961. tmpNoActionBar
  11962. tmpOwnerHW
  11963. NoticeType
  11964. Broadcast
  11965.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  11966. Respond\Decline5'++LotusScript Development Environment:2:5:(Options):0:66
  11967. '++LotusScript Development Environment:2:5:(Forward):0:1
  11968. Declare Sub Click(Source As Button)
  11969. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11970. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11971. Private Sub BindEvents(Byval Objectname_ As String)
  11972.     Static Source As BUTTON
  11973.     Set Source = Bind(Objectname_)
  11974.     On Event Click From Source Call Click
  11975. End Sub
  11976. '++LotusScript Development Environment:2:2:Click:1:12
  11977. Sub Click(Source As Button)
  11978.     uitaskdoc.uiobject.SendComments = False    
  11979.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  11980. End Sub
  11981. tmpNoActionBar
  11982. tmpOwnerHW
  11983. NoticeType
  11984. Broadcast
  11985.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  11986. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  11987. '++LotusScript Development Environment:2:5:(Forward):0:1
  11988. Declare Sub Click(Source As Button)
  11989. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11990. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11991. Private Sub BindEvents(Byval Objectname_ As String)
  11992.     Static Source As BUTTON
  11993.     Set Source = Bind(Objectname_)
  11994.     On Event Click From Source Call Click
  11995. End Sub
  11996. '++LotusScript Development Environment:2:2:Click:1:12
  11997. Sub Click(Source As Button)
  11998.     uitaskdoc.uiobject.SendComments = False    
  11999.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12000. End Sub
  12001. tmpNoActionBar
  12002. tmpOwnerHW
  12003. Broadcast
  12004. PreventDelegate
  12005.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  12006. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  12007. '++LotusScript Development Environment:2:5:(Forward):0:1
  12008. Declare Sub Click(Source As Button)
  12009. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12010. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12011. Private Sub BindEvents(Byval Objectname_ As String)
  12012.     Static Source As BUTTON
  12013.     Set Source = Bind(Objectname_)
  12014.     On Event Click From Source Call Click
  12015. End Sub
  12016. '++LotusScript Development Environment:2:2:Click:1:12
  12017. Sub Click(Source As Button)
  12018.     uitaskdoc.uiobject.SendComments = False    
  12019.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12020. End Sub
  12021. tmpNoActionBar
  12022. tmpOwnerHW
  12023. Broadcast
  12024. PreventCounter
  12025.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12026. Respond\Completed
  12027. '++LotusScript Development Environment:2:5:(Options):0:66
  12028. '++LotusScript Development Environment:2:5:(Forward):0:1
  12029. Declare Sub Click(Source As Button)
  12030. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12031. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12032. Private Sub BindEvents(Byval Objectname_ As String)
  12033.     Static Source As BUTTON
  12034.     Set Source = Bind(Objectname_)
  12035.     On Event Click From Source Call Click
  12036. End Sub
  12037. '++LotusScript Development Environment:2:2:Click:1:12
  12038. Sub Click(Source As Button)
  12039.     uitaskdoc.uiobject.SendComments = False    
  12040.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12041. End Sub
  12042. tmpNoActionBar
  12043. tmpOwnerHW
  12044. NoticeType
  12045. Broadcast
  12046.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12047. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  12048. '++LotusScript Development Environment:2:5:(Forward):0:1
  12049. Declare Sub Click(Source As Button)
  12050. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12051. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12052. Private Sub BindEvents(Byval Objectname_ As String)
  12053. Static Source As BUTTON
  12054. Set Source = Bind(Objectname_)
  12055. On Event Click From Source Call Click
  12056. End Sub
  12057. '++LotusScript Development Environment:2:2:Click:1:12
  12058. Sub Click(Source As Button)
  12059.     Dim uidoc As NotesUIDocument
  12060.     Dim uiobject As Variant
  12061.     Dim nResult As Integer
  12062.     Set uiobject = uitaskdoc.UIObject
  12063.     Set uidoc = uitaskdoc.UIDocument     
  12064.     If (uiobject.OkToAccept(True)) Then
  12065.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  12066.         Call uidoc.save
  12067.         Call uidoc.close
  12068.     End If    
  12069. End Sub
  12070. tmpNoActionBar
  12071. tmpOwnerHW
  12072. NoticeType
  12073. Broadcast
  12074.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12075. Respond with Comments\Declinee'++LotusScript Development Environment:2:5:(Options):0:66
  12076. '++LotusScript Development Environment:2:5:(Forward):0:1
  12077. Declare Sub Click(Source As Button)
  12078. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12079. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12080. Private Sub BindEvents(Byval Objectname_ As String)
  12081.     Static Source As BUTTON
  12082.     Set Source = Bind(Objectname_)
  12083.     On Event Click From Source Call Click
  12084. End Sub
  12085. '++LotusScript Development Environment:2:2:Click:1:12
  12086. Sub Click(Source As Button)
  12087.     uitaskdoc.uiobject.SendComments = True
  12088.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  12089. End Sub
  12090. tmpNoActionBar
  12091. tmpOwnerHW
  12092. NoticeType
  12093. Broadcast
  12094.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12095. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  12096. '++LotusScript Development Environment:2:5:(Forward):0:1
  12097. Declare Sub Click(Source As Button)
  12098. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12099. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12100. Private Sub BindEvents(Byval Objectname_ As String)
  12101.     Static Source As BUTTON
  12102.     Set Source = Bind(Objectname_)
  12103.     On Event Click From Source Call Click
  12104. End Sub
  12105. '++LotusScript Development Environment:2:2:Click:1:12
  12106. Sub Click(Source As Button)
  12107.     uitaskdoc.uiobject.SendComments = True
  12108.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12109. End Sub
  12110. tmpNoActionBar
  12111. tmpOwnerHW
  12112. Broadcast
  12113. PreventDelegate
  12114.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12115. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  12116. '++LotusScript Development Environment:2:5:(Forward):0:1
  12117. Declare Sub Click(Source As Button)
  12118. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12119. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12120. Private Sub BindEvents(Byval Objectname_ As String)
  12121.     Static Source As BUTTON
  12122.     Set Source = Bind(Objectname_)
  12123.     On Event Click From Source Call Click
  12124. End Sub
  12125. '++LotusScript Development Environment:2:2:Click:1:12
  12126. Sub Click(Source As Button)
  12127.     uitaskdoc.uiobject.SendComments = True
  12128.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12129. End Sub
  12130. tmpNoActionBar
  12131. tmpOwnerHW
  12132. Broadcast
  12133. PreventCounter
  12134.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12135. Respond with Comments\Completed '++LotusScript Development Environment:2:5:(Options):0:66
  12136. '++LotusScript Development Environment:2:5:(Forward):0:1
  12137. Declare Sub Click(Source As Button)
  12138. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12139. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12140. Private Sub BindEvents(Byval Objectname_ As String)
  12141.     Static Source As BUTTON
  12142.     Set Source = Bind(Objectname_)
  12143.     On Event Click From Source Call Click
  12144. End Sub
  12145. '++LotusScript Development Environment:2:2:Click:1:12
  12146. Sub Click(Source As Button)
  12147.     uitaskdoc.uiobject.SendComments = True
  12148.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12149. End Sub
  12150. tmpNoActionBar
  12151. tmpOwnerHW
  12152. NoticeType
  12153. Broadcast
  12154.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12155. Add to To Do Listnh
  12156. tmpAction
  12157.  2097154
  12158.     1S2S
  12159. Broadcast
  12160. tmpNoActionBar
  12161. tmpOwnerHW
  12162.     1S2S3S4S5S6S7S8S9S10S
  12163. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  12164. '++LotusScript Development Environment:2:5:(Forward):0:1
  12165. Declare Sub Click(Source As Button)
  12166. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12167. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12168. Private Sub BindEvents(Byval Objectname_ As String)
  12169.     Static Source As BUTTON
  12170.     Set Source = Bind(Objectname_)
  12171.     On Event Click From Source Call Click
  12172. End Sub
  12173. '++LotusScript Development Environment:2:2:Click:1:12
  12174. Sub Click(Source As Button)
  12175.     Dim uievent As UIEventObject
  12176.     Set uievent = uitaskdoc.UIObject
  12177.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
  12178.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  12179.     End If
  12180. End Sub
  12181. tmpOwnerHW
  12182. tasktype
  12183.     1S2S3S4S5S6S
  12184. Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
  12185. '++LotusScript Development Environment:2:5:(Forward):0:1
  12186. Declare Sub Click(Source As Button)
  12187. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12188. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12189. Private Sub BindEvents(Byval Objectname_ As String)
  12190.     Static Source As BUTTON
  12191.     Set Source = Bind(Objectname_)
  12192.     On Event Click From Source Call Click
  12193. End Sub
  12194. '++LotusScript Development Environment:2:2:Click:1:12
  12195. Sub Click(Source As Button)
  12196.     Call uitaskdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",0) 
  12197. End Sub
  12198. tmpOwnerHW
  12199. NoticeType
  12200.     1S2S3S4S2E5S6S
  12201. Decline Counter
  12202. '++LotusScript Development Environment:2:5:(Options):0:66
  12203. '++LotusScript Development Environment:2:5:(Forward):0:1
  12204. Declare Sub Click(Source As Button)
  12205. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12206. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12207. Private Sub BindEvents(Byval Objectname_ As String)
  12208.     Static Source As BUTTON
  12209.     Set Source = Bind(Objectname_)
  12210.     On Event Click From Source Call Click
  12211. End Sub
  12212. '++LotusScript Development Environment:2:2:Click:1:12
  12213. Sub Click(Source As Button)
  12214.     Call uitaskdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",0) 
  12215. End Sub
  12216. tmpOwnerHW
  12217. NoticeType
  12218.     1S2S3S4S2E5S6S
  12219. Send Updated Information...n'++LotusScript Development Environment:2:5:(Options):0:66
  12220. '++LotusScript Development Environment:2:5:(Forward):0:1
  12221. Declare Sub Click(Source As Button)
  12222. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12223. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12224. Private Sub BindEvents(Byval Objectname_ As String)
  12225.     Static Source As BUTTON
  12226.     Set Source = Bind(Objectname_)
  12227.     On Event Click From Source Call Click
  12228. End Sub
  12229. '++LotusScript Development Environment:2:2:Click:1:12
  12230. Sub Click(Source As Button)
  12231.     Dim uievent As UIEventObject
  12232.     Set uievent = uitaskdoc.UIObject
  12233.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  12234.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  12235.     End If
  12236. End Sub
  12237. NoticeType
  12238. $CSFlags
  12239.     1S2S3S4S9S
  12240. Update Information...r'++LotusScript Development Environment:2:5:(Options):0:66
  12241. '++LotusScript Development Environment:2:5:(Forward):0:1
  12242. Declare Sub Click(Source As Button)
  12243. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12244. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12245. Private Sub BindEvents(Byval Objectname_ As String)
  12246.     Static Source As BUTTON
  12247.     Set Source = Bind(Objectname_)
  12248.     On Event Click From Source Call Click
  12249. End Sub
  12250. '++LotusScript Development Environment:2:2:Click:1:12
  12251. Sub Click(Source As Button)
  12252.     Dim uievent As UIEventObject
  12253.     Set uievent = uitaskdoc.UIObject
  12254.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  12255.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  12256.     End If
  12257. End Sub
  12258. NoticeType
  12259. $CSFlags
  12260.     1S2S3S4S9S
  12261. Categori_ze)
  12262. _Edit Document
  12263. Send Docu_ment
  12264. _Forward
  12265. _Move To Folder...
  12266. _Remove From Folder
  12267. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  12268. '++LotusScript Development Environment:2:5:(Forward):0:1
  12269. Declare Sub Click(Source As Button)
  12270. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12271. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12272. Private Sub BindEvents(Byval Objectname_ As String)
  12273. Static Source As BUTTON
  12274. Set Source = Bind(Objectname_)
  12275. On Event Click From Source Call Click
  12276. End Sub
  12277. '++LotusScript Development Environment:2:2:Click:1:12
  12278. Sub Click(Source As Button)
  12279.     Dim uidoc As NotesUIDocument
  12280.     Dim uiobject As Variant
  12281.     Dim nResult As Integer
  12282.     Set uiobject = uitaskdoc.UIObject
  12283.     Set uidoc = uitaskdoc.UIDocument     
  12284.     If (uiobject.OkToAccept(False)) Then
  12285.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  12286.         Call uidoc.save
  12287.         Call uidoc.close
  12288.     End If    
  12289. End Sub
  12290. tmpNoActionBar
  12291. tmpOwnerHW
  12292. NoticeType
  12293. Broadcast
  12294.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12295. Respond\Decline
  12296. '++LotusScript Development Environment:2:5:(Options):0:66
  12297. '++LotusScript Development Environment:2:5:(Forward):0:1
  12298. Declare Sub Click(Source As Button)
  12299. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12300. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12301. Private Sub BindEvents(Byval Objectname_ As String)
  12302.     Static Source As BUTTON
  12303.     Set Source = Bind(Objectname_)
  12304.     On Event Click From Source Call Click
  12305. End Sub
  12306. '++LotusScript Development Environment:2:2:Click:1:12
  12307. Sub Click(Source As Button)
  12308.     uitaskdoc.uiobject.SendComments = False    
  12309.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  12310. End Sub
  12311. tmpNoActionBar
  12312. tmpOwnerHW
  12313. NoticeType
  12314. Broadcast
  12315.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12316. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  12317. '++LotusScript Development Environment:2:5:(Forward):0:1
  12318. Declare Sub Click(Source As Button)
  12319. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12320. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12321. Private Sub BindEvents(Byval Objectname_ As String)
  12322.     Static Source As BUTTON
  12323.     Set Source = Bind(Objectname_)
  12324.     On Event Click From Source Call Click
  12325. End Sub
  12326. '++LotusScript Development Environment:2:2:Click:1:12
  12327. Sub Click(Source As Button)
  12328.     uitaskdoc.uiobject.SendComments = False    
  12329.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12330. End Sub
  12331. tmpNoActionBar
  12332. tmpOwnerHW
  12333. Broadcast
  12334. PreventDelegate
  12335.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  12336. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  12337. '++LotusScript Development Environment:2:5:(Forward):0:1
  12338. Declare Sub Click(Source As Button)
  12339. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12340. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12341. Private Sub BindEvents(Byval Objectname_ As String)
  12342.     Static Source As BUTTON
  12343.     Set Source = Bind(Objectname_)
  12344.     On Event Click From Source Call Click
  12345. End Sub
  12346. '++LotusScript Development Environment:2:2:Click:1:12
  12347. Sub Click(Source As Button)
  12348.     uitaskdoc.uiobject.SendComments = False    
  12349.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12350. End Sub
  12351. tmpNoActionBar
  12352. tmpOwnerHW
  12353. Broadcast
  12354. PreventCounter
  12355.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12356. Respond\Completed2'++LotusScript Development Environment:2:5:(Options):0:66
  12357. '++LotusScript Development Environment:2:5:(Forward):0:1
  12358. Declare Sub Click(Source As Button)
  12359. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12360. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12361. Private Sub BindEvents(Byval Objectname_ As String)
  12362.     Static Source As BUTTON
  12363.     Set Source = Bind(Objectname_)
  12364.     On Event Click From Source Call Click
  12365. End Sub
  12366. '++LotusScript Development Environment:2:2:Click:1:12
  12367. Sub Click(Source As Button)
  12368.     uitaskdoc.uiobject.SendComments = False    
  12369.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12370. End Sub
  12371. tmpNoActionBar
  12372. tmpOwnerHW
  12373. NoticeType
  12374. Broadcast
  12375.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12376. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  12377. '++LotusScript Development Environment:2:5:(Forward):0:1
  12378. Declare Sub Click(Source As Button)
  12379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12381. Private Sub BindEvents(Byval Objectname_ As String)
  12382. Static Source As BUTTON
  12383. Set Source = Bind(Objectname_)
  12384. On Event Click From Source Call Click
  12385. End Sub
  12386. '++LotusScript Development Environment:2:2:Click:1:12
  12387. Sub Click(Source As Button)
  12388.     Dim uidoc As NotesUIDocument
  12389.     Dim uiobject As Variant
  12390.     Dim nResult As Integer
  12391.     Set uiobject = uitaskdoc.UIObject
  12392.     Set uidoc = uitaskdoc.UIDocument     
  12393.     If (uiobject.OkToAccept(True)) Then
  12394.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  12395.         Call uidoc.save
  12396.         Call uidoc.close
  12397.     End If    
  12398. End Sub
  12399. tmpNoActionBar
  12400. tmpOwnerHW
  12401. NoticeType
  12402. Broadcast
  12403.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12404. Respond with Comments\Declinea'++LotusScript Development Environment:2:5:(Options):0:66
  12405. '++LotusScript Development Environment:2:5:(Forward):0:1
  12406. Declare Sub Click(Source As Button)
  12407. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12408. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12409. Private Sub BindEvents(Byval Objectname_ As String)
  12410.     Static Source As BUTTON
  12411.     Set Source = Bind(Objectname_)
  12412.     On Event Click From Source Call Click
  12413. End Sub
  12414. '++LotusScript Development Environment:2:2:Click:1:12
  12415. Sub Click(Source As Button)
  12416.     uitaskdoc.uiobject.SendComments = True
  12417.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  12418. End Sub
  12419. tmpNoActionBar
  12420. tmpOwnerHW
  12421. NoticeType
  12422. Broadcast
  12423.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12424. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  12425. '++LotusScript Development Environment:2:5:(Forward):0:1
  12426. Declare Sub Click(Source As Button)
  12427. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12428. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12429. Private Sub BindEvents(Byval Objectname_ As String)
  12430.     Static Source As BUTTON
  12431.     Set Source = Bind(Objectname_)
  12432.     On Event Click From Source Call Click
  12433. End Sub
  12434. '++LotusScript Development Environment:2:2:Click:1:12
  12435. Sub Click(Source As Button)
  12436.     uitaskdoc.uiobject.SendComments = True
  12437.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12438. End Sub
  12439. tmpNoActionBar
  12440. tmpOwnerHW
  12441. Broadcast
  12442. PreventDelegate
  12443.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12444. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  12445. '++LotusScript Development Environment:2:5:(Forward):0:1
  12446. Declare Sub Click(Source As Button)
  12447. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12448. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12449. Private Sub BindEvents(Byval Objectname_ As String)
  12450.     Static Source As BUTTON
  12451.     Set Source = Bind(Objectname_)
  12452.     On Event Click From Source Call Click
  12453. End Sub
  12454. '++LotusScript Development Environment:2:2:Click:1:12
  12455. Sub Click(Source As Button)
  12456.     uitaskdoc.uiobject.SendComments = True
  12457.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12458. End Sub
  12459. tmpNoActionBar
  12460. tmpOwnerHW
  12461. Broadcast
  12462. PreventCounter
  12463.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12464. Respond with Comments\Completedt'++LotusScript Development Environment:2:5:(Options):0:66
  12465. '++LotusScript Development Environment:2:5:(Forward):0:1
  12466. Declare Sub Click(Source As Button)
  12467. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12468. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12469. Private Sub BindEvents(Byval Objectname_ As String)
  12470.     Static Source As BUTTON
  12471.     Set Source = Bind(Objectname_)
  12472.     On Event Click From Source Call Click
  12473. End Sub
  12474. '++LotusScript Development Environment:2:2:Click:1:12
  12475. Sub Click(Source As Button)
  12476.     uitaskdoc.uiobject.SendComments = True
  12477.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12478. End Sub
  12479. tmpNoActionBar
  12480. tmpOwnerHW
  12481. NoticeType
  12482. Broadcast
  12483.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12484. Add to To Do List
  12485. tmpAction
  12486.  2097154
  12487.     1S2S
  12488. Broadcast
  12489. tmpNoActionBar
  12490. tmpOwnerHW
  12491.     1S2S3S4S5S6S7S8S9S10S
  12492. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  12493. '++LotusScript Development Environment:2:5:(Forward):0:1
  12494. Declare Sub Click(Source As Button)
  12495. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12496. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12497. Private Sub BindEvents(Byval Objectname_ As String)
  12498.     Static Source As BUTTON
  12499.     Set Source = Bind(Objectname_)
  12500.     On Event Click From Source Call Click
  12501. End Sub
  12502. '++LotusScript Development Environment:2:2:Click:1:12
  12503. Sub Click(Source As Button)
  12504.     Dim uievent As UIEventObject
  12505.     Set uievent = uitaskdoc.UIObject
  12506.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
  12507.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  12508.     End If
  12509. End Sub
  12510. tmpOwnerHW
  12511. tasktype
  12512.     1S2S3S4S5S6S
  12513. Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
  12514. '++LotusScript Development Environment:2:5:(Forward):0:1
  12515. Declare Sub Click(Source As Button)
  12516. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12517. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12518. Private Sub BindEvents(Byval Objectname_ As String)
  12519.     Static Source As BUTTON
  12520.     Set Source = Bind(Objectname_)
  12521.     On Event Click From Source Call Click
  12522. End Sub
  12523. '++LotusScript Development Environment:2:2:Click:1:12
  12524. Sub Click(Source As Button)
  12525.     Call uitaskdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",0) 
  12526. End Sub
  12527. tmpOwnerHW
  12528. NoticeType
  12529.     1S2S3S4S2E5S6S
  12530. Decline Counteru'++LotusScript Development Environment:2:5:(Options):0:66
  12531. '++LotusScript Development Environment:2:5:(Forward):0:1
  12532. Declare Sub Click(Source As Button)
  12533. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12534. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12535. Private Sub BindEvents(Byval Objectname_ As String)
  12536.     Static Source As BUTTON
  12537.     Set Source = Bind(Objectname_)
  12538.     On Event Click From Source Call Click
  12539. End Sub
  12540. '++LotusScript Development Environment:2:2:Click:1:12
  12541. Sub Click(Source As Button)
  12542.     Call uitaskdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",0) 
  12543. End Sub
  12544. tmpOwnerHW
  12545. NoticeType
  12546.     1S2S3S4S2E5S6S
  12547. Send Updated Information...F'++LotusScript Development Environment:2:5:(Options):0:66
  12548. '++LotusScript Development Environment:2:5:(Forward):0:1
  12549. Declare Sub Click(Source As Button)
  12550. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12551. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12552. Private Sub BindEvents(Byval Objectname_ As String)
  12553.     Static Source As BUTTON
  12554.     Set Source = Bind(Objectname_)
  12555.     On Event Click From Source Call Click
  12556. End Sub
  12557. '++LotusScript Development Environment:2:2:Click:1:12
  12558. Sub Click(Source As Button)
  12559.     Dim uievent As UIEventObject
  12560.     Set uievent = uitaskdoc.UIObject
  12561.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  12562.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  12563.     End If
  12564. End Sub
  12565. NoticeType
  12566. $CSFlags
  12567.     1S2S3S4S9S
  12568. Update Information...k'++LotusScript Development Environment:2:5:(Options):0:66
  12569. '++LotusScript Development Environment:2:5:(Forward):0:1
  12570. Declare Sub Click(Source As Button)
  12571. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12572. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12573. Private Sub BindEvents(Byval Objectname_ As String)
  12574.     Static Source As BUTTON
  12575.     Set Source = Bind(Objectname_)
  12576.     On Event Click From Source Call Click
  12577. End Sub
  12578. '++LotusScript Development Environment:2:2:Click:1:12
  12579. Sub Click(Source As Button)
  12580.     Dim uievent As UIEventObject
  12581.     Set uievent = uitaskdoc.UIObject
  12582.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  12583.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  12584.     End If
  12585. End Sub
  12586. NoticeType
  12587. $CSFlags
  12588.     1S2S3S4S9S
  12589. Lotus Product.
  12590. ^V0.06-
  12591. H}0%#
  12592. 9}0%}
  12593. 9}P%}
  12594. 9}x%}
  12595. 9,4I#
  12596. ;-dI#
  12597. ;-$J#
  12598. ;-HJ#
  12599. ;-HJ#
  12600. ;-lJ#
  12601. Lotus Product
  12602. Lotus Product.i
  12603. K$!-0
  12604. ]\|K$!-0
  12605. K$!-0
  12606. K$!-0
  12607. K$!-0
  12608. K$!-0
  12609. K$!-0
  12610. ^l|K$!-0
  12611. ^l|Jl|
  12612. ]\|Jl|
  12613. ]\|K$!-0
  12614. Lotus Product
  12615. Lotus Product
  12616. OBJECT
  12617. Lotus Product
  12618. OBJECT
  12619. Lotus Product.
  12620. ^V0.06-
  12621. H}0%#
  12622. 9}0%}
  12623. 9}P%}
  12624. 9}x%}
  12625. 9,4I#
  12626. ;-dI#
  12627. ;-$J#
  12628. ;-HJ#
  12629. ;-HJ#
  12630. ;-lJ#
  12631. Lotus Product
  12632. Lotus Product
  12633. OBJECT
  12634. Lotus Product
  12635. KtV0.0
  12636. {Kt{,
  12637. K$!-0
  12638. ]\|K$!-0
  12639. K$!-0
  12640. K$!-0
  12641. K$!-0
  12642. K$!-0
  12643. K$!-0
  12644. ^l|K$!-0
  12645. ^l|Jl|
  12646. ]\|Jl|
  12647. ]\|K$!-0
  12648. Lotus Product
  12649. KtV0.0
  12650. {Kt{,
  12651. K$!-0
  12652. ]\|K$!-0
  12653. K$!-0
  12654. K$!-0
  12655. K$!-0
  12656. K$!-0
  12657. K$!-0
  12658. ^l|K$!-0
  12659. ^l|Jl|
  12660. ]\|Jl|
  12661. ]\|K$!-0
  12662. Lotus Product
  12663. KtV0.0
  12664. {Kt{,
  12665. K$!-0
  12666. ]\|K$!-0
  12667. K$!-0
  12668. K$!-0
  12669. K$!-0
  12670. K$!-0
  12671. K$!-0
  12672. ^l|K$!-0
  12673. ^l|Jl|
  12674. ]\|Jl|
  12675. ]\|K$!-0
  12676. Lotus Product.
  12677. ^V0.06-
  12678. H}0%#
  12679. 9}0%}
  12680. 9}P%}
  12681. 9}x%}
  12682. 9,4I#
  12683. ;-dI#
  12684. ;-$J#
  12685. ;-HJ#
  12686. ;-HJ#
  12687. ;-lJ#
  12688. Lotus Product
  12689. Lotus Product
  12690. O=Lotus Notes
  12691. O=Lotus Notes
  12692. PURSAFO
  12693. |.:#U
  12694. O=Lotus Notes
  12695. CN=Lotus Notes Template Development/O=Lotus Notes
  12696. PURSAFO
  12697. ASSIGNSTATE
  12698. StartDateTime
  12699. DueDateTime
  12700. $HTMLDocumentStyles
  12701. StartDate
  12702. DueDate
  12703. $SCRIPTOBJ_22
  12704. $SCRIPTOBJ_23
  12705. $SCRIPTOBJ_24
  12706. $SCRIPTOBJ_25
  12707. $SCRIPTOBJ_26
  12708. $SCRIPTOBJ_28
  12709. $INFO
  12710. $AppHelpFormula
  12711. $Script
  12712. $$Script_O
  12713. $$ScriptName
  12714. $$FormScript
  12715. $$$FormScript_O
  12716. $BODY
  12717. $V5ACTIONS
  12718. $ACTIONS
  12719. $SCRIPTOBJ_6
  12720. $SCRIPTOBJ_7
  12721. $SCRIPTOBJ_8
  12722. $SCRIPTOBJ_9
  12723. $SCRIPTOBJ_10
  12724. $SCRIPTOBJ_11
  12725. $SCRIPTOBJ_12
  12726. $SCRIPTOBJ_13
  12727. $SCRIPTOBJ_14
  12728. $SCRIPTOBJ_15
  12729. $SCRIPTOBJ_17
  12730. $SCRIPTOBJ_18
  12731. $SCRIPTOBJ_19
  12732. $SCRIPTOBJ_20
  12733. $SCRIPTOBJ_21
  12734. $PublicAccess
  12735. *** Message Successfully Delivered ***
  12736. (Help)
  12737. MAIL_F_TRACE_REPORT
  12738.     0S0E
  12739. Lotus Product
  12740. OBJECT
  12741.  Trace Report'++LotusScript Development Environment:2:5:(Options):0:66
  12742. '++LotusScript Development Environment:2:5:(Forward):0:1
  12743. Declare Sub Postopen(Source As Notesuidocument)
  12744. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12745. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12746. Private Sub BindEvents(Byval Objectname_ As String)
  12747.     Static Source As NOTESUIDOCUMENT
  12748.     Set Source = Bind(Objectname_)
  12749.     On Event Postopen From Source Call Postopen
  12750. End Sub
  12751. '++LotusScript Development Environment:2:2:Postopen:1:12
  12752. Sub Postopen(Source As Notesuidocument)
  12753.     On Error Goto Trap
  12754.     If Not Source.EditMode Then
  12755.         Dim noteParent As notesdocument
  12756.         Set noteParent = Source.document.Parentdatabase.Getdocumentbyunid(Cstr(Source.document.Parentdocumentunid))
  12757.         If Not noteParent Is Nothing Then
  12758.             If noteParent.GetItemValue("Form")(0) = "Tracking Request" Then
  12759.                 Dim uiws As New notesuiworkspace
  12760.                 Dim uinote As notesuidocument
  12761.                 Set uinote =  uiws.Editdocument(False, noteParent, False)
  12762.                 Call Source.Close()
  12763.             End If
  12764.         End If
  12765.     End If
  12766.     Goto    Complete
  12767. Trap:
  12768.     If Err = 4091 Then
  12769.         Resume Next
  12770.     Else
  12771.         Print("Notes error: " & Cstr(Err) & " " &  Error$)
  12772.         Resume Next
  12773.     End If 
  12774. Complete:
  12775. End Sub
  12776. Lotus Product
  12777. OBJECT
  12778. Trace Report
  12779.     Your trace:
  12780. Subject
  12781. Subject
  12782.     has reached:
  12783. IntendedRecipient
  12784. MailServer
  12785. DeliveryDate
  12786. Trace Information
  12787. RouteServers
  12788. RouteServers
  12789. RouteTimes
  12790. RouteTimes
  12791. Categori_zeK
  12792. _Edit Document
  12793. Send Docu_ment
  12794. _Forward
  12795. _Move to Folder...
  12796. _Remove from Folder...
  12797. Inbox
  12798.     1S2S
  12799. path"
  12800. /MailFS?OpenFrameset"
  12801.     0R3S4S5S6S
  12802. act_NEWMAIL.GIF|act_NEWMAIL?
  12803. Delete
  12804.     1S10S14S16S23S
  12805.     0R5S
  12806. path"
  12807. /wDelete?OpenAgent&
  12808. UNID"
  12809. act_DELETE.GIF|act_DELETE?
  12810. Next 
  12811.     0S0E
  12812. Previous
  12813. Categori_zeK
  12814. _Edit Document
  12815. Send Docu_ment
  12816. _Forward
  12817. _Move to Folder...
  12818. _Remove from Folder...
  12819. Inbox
  12820.     1S2S
  12821. path"
  12822. /MailFS?OpenFrameset"
  12823.     0R3S4S5S6S
  12824. Delete
  12825.     1S10S14S16S23S
  12826.     0R5S
  12827. path"
  12828. /wDelete?OpenAgent&
  12829. UNID"
  12830. Next 
  12831.     0S0E
  12832. Previous
  12833. O=Lotus Notes
  12834. O=Lotus Notes
  12835. PURSAFO
  12836. |.:#U
  12837. O=Lotus Notes
  12838. CN=Lotus Notes Template Development/O=Lotus Notes
  12839. PURSAFO
  12840. $INFO
  12841. $WINDOWTITLE
  12842. $AppHelpFormula
  12843. $$Script_O
  12844. $$ScriptName
  12845. $$FormScript
  12846. $$$FormScript_O
  12847. DeliveryDate
  12848. $BODY
  12849. $V5ACTIONS
  12850. $ACTIONS
  12851. ***Tracking Request***
  12852. '++LotusScript Development Environment:2:5:(Options):0:74
  12853. Option Public
  12854. Option Declare
  12855. Use "Common"
  12856. '++LotusScript Development Environment:2:5:(Forward):0:1
  12857. Declare Class ResponseStringTable
  12858. Declare Class TrackingObject As BaseApplication
  12859. Declare Sub Postopen(Source As Notesuidocument)
  12860. '++LotusScript Development Environment:2:5:(Declarations):0:10
  12861. Const MAIL_TRACKING_REQUEST_FORM$        = "Tracking Request"
  12862. Const MAIL_TRACKING_RESPONSE_FORM$    = "Tracking Response"
  12863. Const MAIL_TRACEREPORT_FORM$                = "Trace Report"
  12864. Const MAIL_DELIVERYREPORT_FORM$            = "Delivery Report"
  12865. Const MAIL_RETURNRECEIPT_FORM$            = "Return Receipt"
  12866. Dim cTrackingObject As TrackingObject
  12867. Class ResponseStringTable
  12868.     Function GetString(nIndex As Integer, vData As Variant) As String
  12869.         Select Case nIndex
  12870.         Case 1
  12871.             GetString = "UNKNOWN "
  12872.         Case 2
  12873.             GetString = "In Que "
  12874.         Case 4
  12875.             GetString = "DELIVERED "
  12876.         Case 8
  12877.             GetString = "DELIVERY FAILED "
  12878.         Case 16
  12879.             GetString = "TRANSFERED "
  12880.         Case 32 
  12881.             GetString = "TRANSER FAILED "
  12882.         Case  64
  12883.             GetString = "GROUP EXPANDED "
  12884.         Case 65
  12885.             GetString = "Message to : "
  12886.         Case 66
  12887.             GetString = " Mail Viewing Status: "            
  12888.         Case 67
  12889.             GetString = " at: "            
  12890.         Case 68
  12891.             GetString = " Status unknown"            
  12892.         Case 69
  12893.             GetString = " on "                        
  12894.         Case 70
  12895.             GetString = "No tracking responses have been received. "                        
  12896.         Case 71
  12897.             GetString = "No tracking information is available. "                        
  12898.         End Select
  12899.     End Function        
  12900. End Class
  12901. Class TrackingObject As BaseApplication
  12902.     Private m_noteParent As notesdocument    
  12903.     Private m_noteTrace As notesdocument    
  12904.     Private m_uiws As notesuiworkspace
  12905.     Private m_collectionTraces As notesdocumentcollection    
  12906.     Private m_uinote As notesuidocument
  12907.     Private m_uiEditorNote As notesuidocument    
  12908.     Private m_name As notesname
  12909.     Private m_strNOTES_FORM As String    
  12910.     Sub new(Source As notesuidocument)
  12911.         Set Me.m_StringTable = New ResponseStringTable        
  12912.         Set Me.m_session = New notessession        
  12913.         Set Me.m_uiws = New notesuiworkspace        
  12914.         Set Me.m_uinote = Source
  12915.         m_strNOTES_FORM = Me.m_uinote.document.GetItemValue("Form")(0)
  12916.     End Sub
  12917.     Sub Init()
  12918.         'if open IN edit mode or prepped by this class then bypass all this stuff!        
  12919.         If Not Me.m_uinote.EditMode Then
  12920.             If Not Me.m_uinote.document.HasItem("SummaryGenerated") Then
  12921.                 If HasTrackingParent Then
  12922.             'This note is a response to a tracking request and we want to open the parent document to the ui
  12923.                     Call OpenInEditor(Me.m_noteParent)                
  12924.                 Else
  12925.                     Call ConstructUIDocument()
  12926.                     Call OpenInEditor(Me.m_uinote.document)
  12927.                 End If
  12928.             End If
  12929.         End If
  12930.     End Sub
  12931.     Function HasTrackingParent As Integer
  12932.         On Error Goto Trap        
  12933.         HasTrackingParent = False        
  12934.         Set Me.m_noteParent = Me.m_uinote.document.Parentdatabase.Getdocumentbyunid(_
  12935.         Cstr(Me.m_uinote.document.Parentdocumentunid))        
  12936.         If Not Me.m_noteParent Is Nothing Then
  12937.             If Me.m_noteParent.GetItemValue("Form")(0) = MAIL_TRACKING_REQUEST_FORM Then
  12938.                 HasTrackingParent = True                
  12939.             End If
  12940.         End If
  12941.         Exit Function         
  12942. Trap:
  12943.         If Err = 4091 Then
  12944.             Resume Next
  12945.         Else
  12946.             Print("Notes error: " & Cstr(Err) & " " &  Error$)
  12947.             Resume Next
  12948.         End If         
  12949.     End Function
  12950.     Function ConstructUIDocument
  12951.         If IsTrackingParent Then
  12952.             If ParentHasChildren Then
  12953.             'this is the original tracking request create a rtItem for display
  12954.                 Call ParseCollectionToSummary
  12955.             Else
  12956.                 'no responses have returned yet, post in ui
  12957.                 Call NoItemsToSummary
  12958.             End If
  12959.         Else
  12960.             'none of the above, must be an r4.x or r3.x delivery confirmation
  12961.         End If
  12962.     End Function
  12963.     Function NoItemsToSummary
  12964.         Dim rtItem As notesrichtextitem        
  12965.         Dim rtStyle As notesrichtextstyle        
  12966.         If Me.m_uinote.document.HasItem("DispStat") Then
  12967.             'we want to work with a new item so nuke it if it's there!            
  12968.             Call Me.m_uinote.document.RemoveItem("DispStat")
  12969.         End If
  12970.         Call Me.m_uinote.document.ReplaceItemValue("SummaryGenerated","1")
  12971.         Set rtitem = New notesrichtextitem(Me.m_uinote.document, "DispStat")            
  12972.         Set rtstyle = Me.m_session.CreateRichTextStyle
  12973.         Call InitRTStyle(rtstyle,True)
  12974.         Call rtitem.AppendStyle(rtstyle)
  12975.         Call rtItem.AppendText(Me.m_StringTable.GetString(70,Null))
  12976.     End Function
  12977.     Function IsTrackingParent As Integer
  12978.         IsTrackingParent = False        
  12979.         If m_strNOTES_FORM = MAIL_TRACKING_REQUEST_FORM Then
  12980.             IsTrackingParent = True
  12981.         End If
  12982.     End Function
  12983.     Function ParentHasChildren As Integer
  12984.         ParentHasChildren = False
  12985.         Set Me.m_collectionTraces  = Me.m_uinote.document.responses
  12986.         If (Me.m_collectionTraces.count) Then
  12987.             ParentHasChildren = True
  12988.         End If
  12989.     End Function
  12990.     Function OpenInEditor(note As notesdocument)
  12991.         Set Me.m_uiEditorNote =  Me.m_uiws.Editdocument(False, note, False)                        
  12992.         Call Me.m_uinote.Close()
  12993.     End Function
  12994.     Function CanonicalToAbbreviated(theString As String) As String
  12995.         If Len(theString)  Then        
  12996.             Set Me.m_name = New notesname(theString)
  12997.             If Me.m_name.Ishierarchical Then
  12998.                 CanonicalToAbbreviated = Me.m_name.Abbreviated
  12999.             Else
  13000.                 CanonicalToAbbreviated = theString
  13001.             End If             
  13002.         End If
  13003.     End Function
  13004.     Sub InitRTStyle(rtstyle As NotesRichTextStyle, STRONG As Integer)
  13005.         rtstyle.Bold = STRONG
  13006.         rtstyle.FontSize = 9
  13007.         rtstyle.NotesColor = COLOR_BLACK
  13008.         rtstyle.NotesFont = Font_Courier
  13009.         rtstyle.Italic = False
  13010.     End Sub    
  13011.     Function ParseCollectionToSummary                
  13012.         Dim rtItem As notesrichtextitem        
  13013.         Dim rtStyle As notesrichtextstyle        
  13014.         Dim strMTErrStat, strMTNextMTA As String        
  13015.         Dim y As Integer
  13016.         If Me.m_uinote.document.HasItem("DispStat") Then
  13017.             'we want to work with a new item so nuke it if it's there!            
  13018.             Call Me.m_uinote.document.RemoveItem("DispStat")
  13019.         End If
  13020.         Set rtitem = New notesrichtextitem(Me.m_uinote.document, "DispStat")            
  13021.         Set rtstyle = Me.m_session.CreateRichTextStyle
  13022.         Call Me.m_uinote.document.ReplaceItemValue("SummaryGenerated","1")        
  13023.         Set Me.m_noteTrace = Me.m_collectionTraces.GetFirstDocument()        
  13024.         Do While Not Me.m_noteTrace Is Nothing
  13025.             Select Case Me.m_noteTrace.GetItemValue("Form")(0)
  13026.             Case MAIL_TRACKING_RESPONSE_FORM 'this is the expected document from an r5 server running message tracking
  13027.                 If Me.m_noteTrace.HasItem("$MTErrStat") Then                    
  13028.                     If Len(Me.m_noteTrace.GetItemValue("$MTErrStat")(0)) Then
  13029.                         strMTErrStat = Me.m_noteTrace.getitemvalue("$MTErrStat")(0)
  13030.                     End If
  13031.                 End If
  13032.             'add server data to this paragraph            
  13033.                 Call InitRTStyle(rtstyle,True)
  13034.                 Call rtitem.AppendStyle(rtstyle)
  13035.                 Call rtItem.AppendText(MAIL_TRACKING_RESPONSE_FORM & " - " &  CanonicalToAbbreviated(Me.m_noteTrace.getitemvalue("MailServer")(0)) &_
  13036.                 " - " & Cstr(Me.m_noteTrace.getitemvalue("DeliveredDate")(0))  & strMTErrStat)
  13037.                 Call InitRTStyle(rtstyle,False)
  13038.                 Call rtitem.AppendStyle(rtstyle)
  13039.                 Call rtItem.Addnewline(1,True)                    
  13040.                 Call rtItem.Addtab(1)
  13041.             'build detail for each user being tracked in this response                        
  13042.                 For y = 0 To Ubound(Me.m_noteTrace.GetItemValue("$MTDISPSTAT"))
  13043.                     strMTNextMTA = Me.m_noteTrace.GetItemValue("$MTNEXTMTA")(y)                
  13044.                     If Cint(Me.m_noteTrace.GetItemValue("$MTMAILBOXSTAT")(y)) Then
  13045.                         Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
  13046.                         & Me.m_StringTable.GetString(66,Null) & Cstr(Me.m_noteTrace.GetItemValue("$MTMAILBOXSTAT")(y))_
  13047.                         & Me.m_StringTable.GetString(67,Null) & Me.m_noteTrace.GetItemValue("$MTDispTM")(y))
  13048.                     Elseif Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)) = 16 Then                    
  13049.                         Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemVAlue("$MTOUTRCP")(y))_
  13050.                         & Me.m_StringTable.GetString(Cint(Me.m_noteTrace.GetItemVAlue("$MTDISPSTAT")(y)),Null) & strMTNextMTA _
  13051.                         & Me.m_StringTable.GetString(67,Null) & Me.m_noteTrace.GetItemValue("$MTDispTM")(y))
  13052.                     Elseif Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)) = 1 Then
  13053.                         Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null)  & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y)) _
  13054.                         & Me.m_StringTable.GetString(68,Null))
  13055.                     Else
  13056.                         Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
  13057.                         & Me.m_StringTable.GetString(66,Null) & Me.m_StringTable.GetString(Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)),Null)_
  13058.                         & Me.m_StringTable.GetString(69,Null) & Me.m_noteTrace.MailServer(0) & Me.m_StringTable.GetString(68,Null) & _
  13059.                         Me.m_noteTrace.GetItemValue("$MTDispTM")(y))
  13060.                     End If                
  13061.                     Call rtItem.Addnewline(1,True)                                        
  13062.                 Next y
  13063.             Case MAIL_TRACEREPORT_FORM
  13064.                 Call InitRTStyle(rtstyle,False)
  13065.                 Call rtitem.AppendStyle(rtstyle)
  13066.                 Call rtItem.AppendText(MAIL_TRACEREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("MailServer")(0))_
  13067.                 & " - " & Me.m_noteTrace.GetItemValue("RouteTimes")(0)) 
  13068.                 Call InitRTStyle(rtstyle,False)
  13069.                 Call rtitem.AppendStyle(rtstyle)
  13070.                 Call rtItem.Addnewline(1,True)                    
  13071.             Case MAIL_DELIVERYREPORT_FORM
  13072.                 Call InitRTStyle(rtstyle,False)
  13073.                 Call rtitem.AppendStyle(rtstyle)
  13074.                 Call rtItem.AppendText(MAIL_DELIVERYREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("IntendedRecipient")(0))_
  13075.                 & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0)))
  13076.                 Call InitRTStyle(rtstyle,False)
  13077.                 Call rtitem.AppendStyle(rtstyle)
  13078.                 Call rtItem.Addnewline(1,True)                    
  13079.             Case MAIL_RETURNRECEIPT_FORM
  13080.                 Call InitRTStyle(rtstyle,False)
  13081.                 Call rtitem.AppendStyle(rtstyle)
  13082.                 Call rtItem.AppendText(MAIL_RETURNRECEIPT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("From")(0))_
  13083.                 & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0)))
  13084.                 Call InitRTStyle(rtstyle,False)
  13085.                 Call rtitem.AppendStyle(rtstyle)
  13086.                 Call rtItem.Addnewline(1,True)                    
  13087.             Case Else
  13088.                 Call InitRTStyle(rtstyle,False)
  13089.                 Call rtitem.AppendStyle(rtstyle)
  13090.                 Call rtItem.AppendText(Me.m_noteTrace.GetItemValue("Form")(0) & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0))_
  13091.                 & Me.m_StringTable.GetString(71,Null)) 
  13092.                 Call InitRTStyle(rtstyle,False)
  13093.                 Call rtitem.AppendStyle(rtstyle)
  13094.                 Call rtItem.Addnewline(1,True)                    
  13095.             End Select
  13096.             Set Me.m_noteTrace = Me.m_collectionTraces.GetNextDocument(Me.m_noteTrace)                            
  13097.         Loop            
  13098.     End Function
  13099. End Class
  13100. '++LotusScript Development Environment:2:2:Postopen:1:8
  13101. Sub Postopen(Source As Notesuidocument)
  13102.     Set cTrackingObject = New TrackingObject(Source)
  13103.     Call cTrackingObject.Init()
  13104. End Sub
  13105. Lotus Product
  13106. OBJECT
  13107. 0    0    \
  13108. P    P    P
  13109. \@    KL
  13110. \0    +l
  13111. K0    -<
  13112. K0    -`
  13113.  Tracking Response'++LotusScript Development Environment:2:5:(Options):0:66
  13114. '++LotusScript Development Environment:2:5:(Forward):0:1
  13115. Declare Sub Postopen(Source As Notesuidocument)
  13116. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13117. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13118. Private Sub BindEvents(Byval Objectname_ As String)
  13119.     Static Source As NOTESUIDOCUMENT
  13120.     Set Source = Bind(Objectname_)
  13121.     On Event Postopen From Source Call Postopen
  13122. End Sub
  13123. '++LotusScript Development Environment:2:2:Postopen:1:12
  13124. Sub Postopen(Source As Notesuidocument)
  13125.     Set cTrackingObject = New TrackingObject(Source)
  13126.     Call cTrackingObject.Init()
  13127. End Sub
  13128. Lotus Product
  13129. OBJECT
  13130. Tracking Request
  13131.         Target recipient(s):
  13132. $MTINRCP
  13133.     0S0E
  13134. MTINRCP
  13135. MTINRCP
  13136.         Request date:
  13137. Created
  13138. Created
  13139.         Responses:
  13140.     0S0E
  13141. Responses
  13142. Responses
  13143. Tracking Information:
  13144. DispStat
  13145. DispStat
  13146. Categori_zeK
  13147. Close
  13148.     0S0E
  13149. _Edit Document
  13150. Send Docu_ment
  13151. _Forward
  13152. _Move to Folder...
  13153. _Remove from Folder...
  13154. Inbox
  13155.     1S2S
  13156. path"
  13157. /MailFS?OpenFrameset"
  13158.     0R3S4S5S6S
  13159. act_NEWMAIL.GIF|act_NEWMAIL?
  13160. Delete
  13161.     1S10S14S16S23S
  13162.     0R5S
  13163. path"
  13164. /wDelete?OpenAgent&
  13165. UNID"
  13166. act_DELETE.GIF|act_DELETE?
  13167. Next 
  13168.     0S0E
  13169. Previous 
  13170.     0S0E
  13171. Categori_zeK
  13172. Close
  13173.     0S0E
  13174. _Edit Document
  13175. Send Docu_ment
  13176. _Forward
  13177. _Move to Folder...
  13178. _Remove from Folder...
  13179. Inbox
  13180.     1S2S
  13181. path"
  13182. /MailFS?OpenFrameset"
  13183.     0R3S4S5S6S
  13184. Delete
  13185.     1S10S14S16S23S
  13186.     0R5S
  13187. path"
  13188. /wDelete?OpenAgent&
  13189. UNID"
  13190. Next 
  13191.     0S0E
  13192. Previous 
  13193.     0S0E
  13194. O=Lotus Notes
  13195. O=Lotus Notes
  13196. PURSAFO
  13197. |.:#U
  13198. O=Lotus Notes
  13199. CN=Lotus Notes Template Development/O=Lotus Notes
  13200. PURSAFO
  13201. DeliveryDate
  13202. $INFO
  13203. $WINDOWTITLE
  13204. $Script
  13205. $$Script_O
  13206. $$ScriptName
  13207. $$FormScript
  13208. $$$FormScript_O
  13209. $BODY
  13210. $V5ACTIONS
  13211. $ACTIONS
  13212. // For convenience
  13213. var fieldSendTo ;
  13214. var fieldCopyTo;
  13215. var fieldBlindCopyTo;
  13216. var fieldSendToRef;
  13217. var fieldCopyToRef;
  13218. var fieldBlindCopyToRef;
  13219. var fieldEntryList;
  13220. function OKClick()
  13221.     // put the values back in the underlying form in the right format
  13222.     if(window.opener)
  13223.         window.opener.document.forms[0].SendTo.value = selectToString(fieldSendTo);
  13224.         window.opener.document.forms[0].CopyTo.value = selectToString(fieldCopyTo);
  13225.         window.opener.document.forms[0].BlindCopyTo.value = selectToString(fieldBlindCopyTo);
  13226.     self.close();
  13227. function CancelClick() 
  13228.     self.close();
  13229. function AddClick(field)
  13230.     if(fieldEntryList.selectedIndex != -1)
  13231.         for (var i=0; i < fieldEntryList.options.length; ++i)
  13232.         if (fieldEntryList.options[i].selected)
  13233.             {        
  13234.                 var selection = FixName(fieldEntryList.options[i].value);
  13235.                 field.options[field.options.length] = new Option(selection);
  13236. function substring2(string, start, length) {
  13237.     return string.substring(start,start+length);
  13238. function FixName(name)
  13239.     if (name.indexOf("CN=")!= -1)
  13240.             tmpstring=name.substring(3)
  13241.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  13242.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  13243.             strpos = tmpstring.indexOf("=")+1;
  13244.             tmpstring=substring2(tmpstring,strpos,tmpstring.length);
  13245.             while (strpos != -1)
  13246.                 if (tmpstring.indexOf("/")!= -1)
  13247.                 {
  13248.                 restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  13249.                 if (restofname.length!=0)
  13250.                     {                      
  13251.                     fullname=fullname+"/"+restofname;
  13252.                     }
  13253.                 strpos=tmpstring.indexOf("=");
  13254.                 } else {
  13255.                     fullname=fullname+"/"+tmpstring;
  13256.                     strpos=-1;
  13257.                     }        
  13258.             return fullname;
  13259.         } else return name;
  13260. function RemoveClick(field)
  13261.     if (field.length != 0){ 
  13262.     if (field.selectedIndex != -1)
  13263.         for(var i=0;i<field.options.length ; ++i)
  13264.                 if (field.options[i].selected)
  13265.                     {
  13266.                         field.options[i] = null;
  13267.                     }
  13268. function RemoveAllClick()
  13269.     fieldSendTo.options.length=0;
  13270.     fieldCopyTo.options.length=0;
  13271.     fieldBlindCopyTo.options.length=0;
  13272. function trim(str)
  13273.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  13274.     return str.substring(i,str.length); 
  13275. function stringToSelect(str,field)
  13276.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  13277.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  13278.         var entry = trim(str.substring(beg,end));
  13279.         if(entry!="") field.options[field.options.length++].text = entry;
  13280. function selectToString(field)
  13281.     if (field.length!=0)
  13282.     var str = "";
  13283.     for(i=0 ; i < field.options.length-1 ; i++)
  13284.         str += field.options[i].text + ",";
  13285.     return str += field.options[i].text;
  13286.     } else return "";
  13287. // For convenience
  13288. fieldSendTo = document.forms[0].tmpSendTo;
  13289. fieldCopyTo = document.forms[0].tmpCopyTo;
  13290. fieldBlindCopyTo = document.forms[0].tmpBlindCopyTo;
  13291. fieldSendToRef = document.forms[0].tmpSendToRef;
  13292. fieldCopyToRef = document.forms[0].tmpCopyToRef;
  13293. fieldBlindCopyToRef = document.forms[0].tmpBlindCopyToRef;
  13294. fieldEntryList = document.forms[0].EntryList;
  13295. // Grab original values from underlying document
  13296. var OrigSendTo;
  13297. var OrigCopyTo;
  13298. var OrigBlindCopyTo;
  13299. if ((window.location.href.indexOf("Seq"))==-1)  {
  13300. if(window.opener)
  13301.     OrigSendTo = window.opener.document.forms[0].SendTo.value;
  13302.     OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
  13303.     OrigBlindCopyTo = window.opener.document.forms[0].BlindCopyTo.value;
  13304. else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
  13305. // Initialize fields
  13306. RemoveAllClick();
  13307. stringToSelect(OrigSendTo,fieldSendTo);
  13308. stringToSelect(OrigCopyTo,fieldCopyTo);
  13309. stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
  13310. } else {
  13311. if(window.opener)
  13312.      OrigSendTo = document.forms[0].tmpSendToRef.value;
  13313.     OrigCopyTo = document.forms[0].tmpCopyToRef.value;
  13314.     OrigBlindCopyTo = document.forms[0].tmpBlindCopyToRef.value;
  13315. else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
  13316. //If this is a reload -- move the reference values into the current visible fields
  13317. RemoveAllClick();
  13318. stringToSelect(OrigSendTo,fieldSendTo);
  13319. stringToSelect(OrigCopyTo,fieldCopyTo);
  13320. stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
  13321. wAddressOpen
  13322.  wAddress'++LotusScript Development Environment:2:5:(Options):0:66
  13323. '++LotusScript Development Environment:2:5:(Forward):0:1
  13324. Declare Sub Initialize
  13325. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13326. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13327. Private Sub BindEvents(Byval Objectname_ As String)
  13328.     Static Source As FIELD
  13329.     Set Source = Bind(Objectname_)
  13330. End Sub
  13331. '++LotusScript Development Environment:2:2:Initialize:1:10
  13332. Sub Initialize
  13333. End Sub
  13334. Lotus Product
  13335. <NOSCRIPT><H2>
  13336. This page requires JavaScript 1.1 or higher
  13337. </H2><HR></NOSCRIPT>
  13338. <SCRIPT LANGUAGE="JavaScript"><!--
  13339.     _version_=10 //--></SCRIPT>
  13340. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  13341.     _version_=11 //--></SCRIPT>
  13342. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  13343.     _version_=12 //--></SCRIPT>
  13344. <SCRIPT LANGUAGE="JavaScript"><!--
  13345.     if(_version_<11)
  13346.         document.write('<H2>
  13347. This page requires JavaScript 1.1 or higher
  13348. </H2><HR>');
  13349.         document.close();
  13350. //--></SCRIPT>
  13351. tmpSendToRef
  13352. tmpSendToRef
  13353. tmpCopyToRef
  13354. tmpCopyToRef
  13355. tmpBlindCopyToRef
  13356. tmpBlindCopyToRef
  13357.      
  13358.     Look in:
  13359.     <font size=-1>
  13360. names.nsf
  13361. Addressbooks
  13362.     0S0E
  13363. NABs_1
  13364.     </font>
  13365.     Starts with: 
  13366. FindTextz
  13367. FindText_1SIZE=15
  13368. tmpCurIndex
  13369. Domino
  13370. LoadAddressListByName
  13371. EntryList
  13372. FindText
  13373.     1S2S3S7S9S11S13S15S
  13374. tmpNextIndex
  13375. tmpCurIndex
  13376.     0R1S2S3S5S9S10S11S
  13377.       Find  z
  13378. FONT Size=2
  13379.      
  13380. New Button
  13381. Need a newer version of Notes to execute this button.
  13382.     0S0E
  13383. AddClick(fieldSendTo)
  13384.      To > z
  13385. FONT Size=2
  13386. tmpSendTo
  13387. 12345678901234567890123456789012
  13388. tmpSendTo_1SIZE=6
  13389. New Button
  13390. Need a newer version of Notes to execute this button.
  13391.     0S0E
  13392. AddClick(tmpCopyTo)
  13393.      cc > z
  13394. FONT Size=2
  13395. tmpCopyTo
  13396. 12345678901234567890123456789012
  13397. tmpCopyTo_1SIZE=6
  13398.     <font size=-1>
  13399. EntryList
  13400. EntryList
  13401. EntryList_1FONT Size=2
  13402.     </font>
  13403. New Button
  13404. Need a newer version of Notes to execute this button.
  13405.     0S0E
  13406. AddClick(tmpBlindCopyTo)
  13407.     bcc >
  13408. FONT Size=2
  13409. tmpBlindCopyTo
  13410. 12345678901234567890123456789012z
  13411. tmpBlindCopyTo_1SIZE=6
  13412. tmpIndexStr
  13413. tmpCurIndex
  13414.     1S2S8S9S
  13415. tmpCurIndex
  13416. Domino
  13417. LoadAddressListByIndex
  13418. EntryList
  13419. tmpIndexStr
  13420.     0R1S2S3S7S9S11S13S15S
  13421. tmpNextIndex
  13422. tmpCurIndex
  13423.     0R1S2S3S5S9S10S11S
  13424.     < Previousz
  13425. font size=1
  13426. tmpCurIndex
  13427. Domino
  13428. LoadAddressListByIndex
  13429. EntryList
  13430. tmpNextIndex
  13431.     1S2S3S7S9S11S13S15S
  13432. tmpNextIndex
  13433. tmpCurIndex
  13434.     0R1S2S3S5S9S10S11S
  13435.     Next >    z
  13436. font size=1
  13437. New Button
  13438. Need a newer version of Notes to execute this button.
  13439.     0S0E
  13440. RemoveClick(tmpSendTo);
  13441. RemoveClick(tmpBlindCopyTo);
  13442. RemoveClick(tmpCopyTo);
  13443.       Remove  z
  13444. FONT Size=2
  13445. New Button
  13446. Need a newer version of Notes to execute this button.
  13447.     0S0E
  13448. RemoveAllClick()
  13449.     Remove Allz
  13450. FONT Size=2
  13451. New Button
  13452. Need a newer version of Notes to execute this button.
  13453.     0S0E
  13454. OKClick();
  13455.        OK   z
  13456. font size=2
  13457. New Button
  13458. Need a newer version of Notes to execute this button.
  13459.     0S0E
  13460. CancelClick()
  13461.      Cancel
  13462. font size=2
  13463. Domino
  13464. LoadAddressListByIndex
  13465. EntryList
  13466.     4S6S8S10S12S
  13467. tmpCurIndex
  13468. tmpCurIndex
  13469. tmpCurIndex
  13470.     2S6S7S8S
  13471. tmpNextIndexz
  13472. tmpNextIndex
  13473. AddressBooksz
  13474. AddressBooks
  13475. O=Lotus Notes
  13476. O=Lotus Notes
  13477. PURSAFO
  13478. |.:#U
  13479. O=Lotus Notes
  13480. CN=Lotus Notes Template Development/O=Lotus Notes
  13481. PURSAFO
  13482. $HTMLCode
  13483. $INFO
  13484. $WEBQueryOpen
  13485. $WebFlags
  13486. $$ScriptName
  13487. $$AddressBooks
  13488. $AddressBooks_O
  13489. $BODY
  13490. thisform = document.forms[0]
  13491. document.title = thisform.tmpTitle.value
  13492.  (wDlgBox)
  13493. Query_String
  13494. Query_String
  13495. PartialName
  13496. Query_String
  13497. &Subform=
  13498.     1S2S
  13499. PartialName
  13500. PartialName
  13501. PartialName
  13502.     0R16StmpSubform
  13503. type=hidden
  13504. xxDefault
  13505. Lotus Notes
  13506.     1S2S
  13507. PartialName
  13508. Query_String
  13509. &Title=
  13510.     0R1S2S
  13511. Title
  13512. PartialName
  13513. PartialName
  13514. PartialName
  13515.     0R1S2S18S
  13516. Title
  13517. Title
  13518. xxDefault
  13519. tmpTitle
  13520. tmpSubform
  13521. O=Lotus Notes
  13522. O=Lotus Notes
  13523. PURSAFO
  13524. |.:#U
  13525. O=Lotus Notes
  13526. CN=Lotus Notes Template Development/O=Lotus Notes
  13527. PURSAFO
  13528. $HTMLCode
  13529. $INFO
  13530. $$ScriptName
  13531. $BODY
  13532. &Arial
  13533.  $$ReturnAuthenticationFailure
  13534.     0S0E
  13535.     Authentication Failure
  13536.     0S0E
  13537. [<BR><BR>]
  13538.     The name and password cannot be authenticated.
  13539. Categori_zeK
  13540. _Edit Document
  13541. Send Docu_ment
  13542. _Forward
  13543. _Move To Folder...
  13544. _Remove From FolderK
  13545. Inbox
  13546.     1S2S
  13547. path"
  13548. /MailFS?OpenFrameset"
  13549.     0R3S4S5S6S
  13550. act_NEWMAIL.GIF|act_NEWMAIL?
  13551. Categori_zeK
  13552. _Edit Document
  13553. Send Docu_ment
  13554. _Forward
  13555. _Move To Folder...
  13556. _Remove From FolderK
  13557. Inbox
  13558.     1S2S
  13559. path"
  13560. /MailFS?OpenFrameset"
  13561.     0R3S4S5S6S
  13562. O=Lotus Notes
  13563. O=Lotus Notes
  13564. PURSAFO
  13565. |.:#U
  13566. O=Lotus Notes
  13567. CN=Lotus Notes Template Development/O=Lotus Notes
  13568. PURSAFO
  13569. :W$wBW
  13570. $INFO
  13571. $$ScriptName
  13572. $BODY
  13573. $V5ACTIONS
  13574. $ACTIONS
  13575. $PublicAccess
  13576. &Arial
  13577.  $$ReturnAuthorizationFailure
  13578.     Authorization Failure
  13579. [<BR><BR>]
  13580.     You are not authorized to perform that operation.
  13581. Categori_zeK
  13582. _Edit Document
  13583. Send Docu_ment
  13584. _Forward
  13585. _Move To Folder...
  13586. _Remove From FolderK
  13587. Inbox
  13588.     1S2S
  13589. path"
  13590. /MailFS?OpenFrameset"
  13591.     0R3S4S5S6S
  13592. act_NEWMAIL.GIF|act_NEWMAIL?
  13593. Categori_zeK
  13594. _Edit Document
  13595. Send Docu_ment
  13596. _Forward
  13597. _Move To Folder...
  13598. _Remove From FolderK
  13599. Inbox
  13600.     1S2S
  13601. path"
  13602. /MailFS?OpenFrameset"
  13603.     0R3S4S5S6S
  13604. O=Lotus Notes
  13605. O=Lotus Notes
  13606. PURSAFO
  13607. |.:#U
  13608. O=Lotus Notes
  13609. CN=Lotus Notes Template Development/O=Lotus Notes
  13610. PURSAFO
  13611. He"v&%Un
  13612. $INFO
  13613. $$ScriptName
  13614. $BODY
  13615. $V5ACTIONS
  13616. $ACTIONS
  13617. $PublicAccess
  13618. &Arial
  13619.  $$ReturnGeneralError
  13620.     0S0E
  13621.     0S0E
  13622.     Response Message
  13623. [<BR><BR>]
  13624. MessageString
  13625. MessageString
  13626. Categori_zeK
  13627. _Edit Document
  13628. Send Docu_ment
  13629. _Forward
  13630. _Move To Folder...
  13631. _Remove From FolderK
  13632. Inbox
  13633.     1S2S
  13634. path"
  13635. /MailFS?OpenFrameset"
  13636.     0R3S4S5S6S
  13637. act_NEWMAIL.GIF|act_NEWMAIL?
  13638. Categori_zeK
  13639. _Edit Document
  13640. Send Docu_ment
  13641. _Forward
  13642. _Move To Folder...
  13643. _Remove From FolderK
  13644. Inbox
  13645.     1S2S
  13646. path"
  13647. /MailFS?OpenFrameset"
  13648.     0R3S4S5S6S
  13649. O=Lotus Notes
  13650. O=Lotus Notes
  13651. PURSAFO
  13652. |.:#U
  13653. O=Lotus Notes
  13654. CN=Lotus Notes Template Development/O=Lotus Notes
  13655. PURSAFO
  13656. kzlt4
  13657. $INFO
  13658. $$ScriptName
  13659. $BODY
  13660. $V5ACTIONS
  13661. $ACTIONS
  13662. $PublicAccess
  13663. window.opener.parent.frames[1].location.reload();
  13664. window.close();
  13665. (wFolderCreateSave)
  13666. (wFolderCreateOpen)
  13667.  FolderCreate
  13668. SaveOptions
  13669. folderlist
  13670.     Current Folders:
  13671.     Folder Name:  
  13672. CurrentFolders
  13673. CurrentFolders
  13674. folderlist
  13675.     0S0E
  13676. if(form.CurrentFolders.selectedIndex != -1)
  13677.         for (var i=0; i < form.CurrentFolders.options.length; ++i)
  13678.         if (form.CurrentFolders.options[i].selected)
  13679.             {        
  13680.                 var selection = form.CurrentFolders.options[i].value;
  13681.                 alert(selection);
  13682. New Button
  13683. Need a newer version of Notes to execute this button.
  13684.     0S0E
  13685. form.FolderName.value=form.CurrentFolders.options[form.CurrentFolders.selectedIndex].text
  13686.     Add >
  13687. FONT Size=2
  13688. FolderNamez
  13689. size="40"
  13690.     0S0E
  13691.     0S0E
  13692.       OK  
  13693. New Button
  13694. Need a newer version of Notes to execute this button.
  13695.     0S0E
  13696. window.close()
  13697.     Cancel
  13698. O=Lotus Notes
  13699. O=Lotus Notes
  13700. PURSAFO
  13701. |.:#U
  13702. O=Lotus Notes
  13703. CN=Lotus Notes Template Development/O=Lotus Notes
  13704. PURSAFO
  13705. $HTMLCode
  13706. $INFO
  13707. $WEBQuerySave
  13708. $WEBQueryOpen
  13709. $WebFlags
  13710. $$ScriptName
  13711. $BODY
  13712. Lotus Product
  13713. OBJECT
  13714. (ChangeRepeat)
  13715.     You are modifying a recurring entry.
  13716.     How would you like these changes to be applied to the related entries?
  13717. tmpChangeWhich
  13718. Just this instance|0All instances|1This instance and all previous instances|2This instance and all future instances|3
  13719. New Button
  13720. Need a newer version of Notes to execute this button.
  13721.     0S0E
  13722. thisform = document.forms[0]
  13723. parentform = window.opener.document.forms[0]
  13724. radioitem = thisform.tmpChangeWhich
  13725. for (i=0; i < radioitem.length; i++)
  13726.     if (radioitem[i].checked)
  13727.         parentform.tmpChangeWhich.value = radioitem[i].value;
  13728.         break
  13729. self.close()
  13730. parentform.submit()
  13731. New Button
  13732. Need a newer version of Notes to execute this button.
  13733.     0S0E
  13734. self.close()
  13735.     Cancel
  13736. O=Lotus Notes
  13737. O=Lotus Notes
  13738. PURSAFO
  13739. |.:#U
  13740. O=Lotus Notes
  13741. CN=Lotus Notes Template Development/O=Lotus Notes
  13742. PURSAFO
  13743.  Go.7
  13744. h#-u6)
  13745. $INFO
  13746. $$Script_O
  13747. $$ScriptName
  13748. $BODY
  13749. $PublicAccess
  13750. Lotus Product
  13751. OBJECT
  13752. (C&S DeliveryOptions)
  13753. Broadcast
  13754. I do not want to receive replies from participants|1
  13755. Sign|1
  13756. PreventCounter
  13757. Prevent counter-proposing|1
  13758. Encrypt
  13759. Encrypt|1
  13760. PreventDelegate
  13761. Prevent delegating|1
  13762. O=Lotus Notes
  13763. O=Lotus Notes
  13764. PURSAFO
  13765. |.:#U
  13766. O=Lotus Notes
  13767. CN=Lotus Notes Template Development/O=Lotus Notes
  13768. PURSAFO
  13769. $TITLE
  13770. $INFO
  13771. $$Script_O
  13772. $$ScriptName
  13773. $BODY
  13774. $PublicAccess
  13775. var fieldStartDate;
  13776. var fieldStartTime;
  13777. var fieldEndTime;
  13778. var fieldEndDate;
  13779. var fieldSendTo;
  13780. var fieldCopyTo;
  13781. var CurrStartTime;
  13782. var CurrStartDate;
  13783. var CurrEndDate;
  13784. var CurrEndTime;
  13785. var OrigSendTo;
  13786. var OrigCopyTo;
  13787. var ThisForm;
  13788. function OKClick()
  13789.     // put the values back in the underlying form in the right format
  13790.     if(window.opener)
  13791.         window.opener.document.forms[0].StartTime.value = document.forms[0].tmpStartTime.value;
  13792.         window.opener.document.forms[0].StartDate.value = document.forms[0].tmpStartDate.value;
  13793.         window.opener.document.forms[0].EndTime.value = document.forms[0].tmpEndTime.value;
  13794.         window.opener.document.forms[0].EndDate.value = document.forms[0].tmpEndDate.value;
  13795.     self.close();
  13796. function CancelClick() 
  13797.     self.close();
  13798. //Initialize fields in the dialog
  13799. if ((document.forms[0].tmpStartDateRef.value=="") || (document.forms[0].tmpEndDateRef.value=="") || (document.forms[0].tmpEndTimeRef.value=="")||(document.forms[0].tmpStartTimeRef.value=="")){
  13800. //Pull the current field object off the dialog
  13801. fieldStartTime=document.forms[0].tmpStartTime;
  13802. fieldStartDate=document.forms[0].tmpStartDate;
  13803. fieldEndTime=document.forms[0].tmpEndTime;
  13804. fieldEndDate=document.forms[0].tmpEndDate;
  13805. fieldSendTo = document.forms[0].SendTo;
  13806. fieldCopyTo=document.forms[0].CopyTo;
  13807. //Pull the current values off the underlying form
  13808. CurrStartDate = window.opener.document.forms[0].StartDate.value;
  13809. CurrStartTime = window.opener.document.forms[0].StartTime.value;
  13810. CurrEndDate=window.opener.document.forms[0].EndDate.value;
  13811. CurrEndTime=window.opener.document.forms[0].EndTime.value;
  13812. OrigSendTo = window.opener.document.forms[0].SendTo.value;
  13813. OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
  13814. //Set the dialog with the underlying document values
  13815. //Only want to do this the first time through
  13816. fieldStartTime.value=CurrStartTime;
  13817. fieldStartDate.value=CurrStartDate;
  13818. fieldEndTime.value=CurrEndTime;
  13819. fieldEndDate.value=CurrEndDate;
  13820. fieldSendTo.value=OrigSendTo;
  13821. fieldCopyTo.value=OrigCopyTo;
  13822. //Set the current values as reference values
  13823. document.forms[0].tmpChair.value=window.opener.document.forms[0].tmpChair.value;
  13824. document.forms[0].tmpStartDateRef.value=CurrStartDate;
  13825. document.forms[0].tmpStartTimeRef.value=CurrStartTime;
  13826. document.forms[0].tmpEndDateRef.value=CurrEndDate;
  13827. document.forms[0].tmpEndTimeRef.value=CurrEndTime;
  13828. if ((window.location.href.indexOf("Seq"))==-1)  {
  13829. document.forms[0].sample.click();
  13830. } else {
  13831. //If this is a reload -- move the reference values into the current visible fields
  13832. document.forms[0].tmpStartDate.value=document.forms[0].tmpStartDateRef.value;
  13833. document.forms[0].tmpEndDate.value=document.forms[0].tmpEndDateRef.value;
  13834. document.forms[0].tmpStartTime.value=document.forms[0].tmpStartTimeRef.value;
  13835. document.forms[0].tmpEndTime.value=document.forms[0].tmpEndTimeRef.value;
  13836. Lotus Product
  13837.  wFreeTime
  13838. <NOSCRIPT><H2>
  13839. This page requires JavaScript 1.1 or higher
  13840. </H2><HR></NOSCRIPT>
  13841. <SCRIPT LANGUAGE="JavaScript"><!--
  13842.     _version_=10 //--></SCRIPT>
  13843. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  13844.     _version_=11 //--></SCRIPT>
  13845. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  13846.     _version_=12 //--></SCRIPT>
  13847. <SCRIPT LANGUAGE="JavaScript"><!--
  13848.     if(_version_<11)
  13849.         document.write('<H2>
  13850. This page requires JavaScript 1.1 or higher
  13851. </H2><HR>');
  13852.         document.close();
  13853. //--></SCRIPT>
  13854.     Meeting Time
  13855.     Start Date:  
  13856.     StartTime: 
  13857. tmpStartDate
  13858. document.forms[0].tmpStartDateRef.value=document.forms[0].tmpStartDate.value;
  13859. FONT Size=2
  13860.      
  13861. tmpStartTime
  13862. document.forms[0].tmpStartTimeRef.value=document.forms[0].tmpStartTime.value;
  13863. FONT Size=2
  13864.     End Date:   
  13865.     EndTime:  
  13866. tmpEndDate
  13867. document.forms[0].tmpEndDateRef.value=document.forms[0].tmpEndDate.value;
  13868. FONT Size=2
  13869.      
  13870. tmpEndTime
  13871. document.forms[0].tmpEndTimeRef.value=document.forms[0].tmpEndTime.value;
  13872. FONT Size=2
  13873.     <font size=-1> 
  13874. tmpMessages
  13875. tmpMessages
  13876. FONT Size=2
  13877.     </font>
  13878.     If the meeting time is not OK for everyone, you can enter a new time above, or select a new time from the Recommended Times list.  Then click Refresh.
  13879.     <br><br>
  13880.     <font size=-1><br>
  13881. tmpTimes
  13882. tmpTimesz
  13883. FONT Size=2
  13884.     <font>
  13885.     Free Time Chart
  13886. tmpGridFormat
  13887. by day|0by person|1z
  13888. FONT Size=2
  13889. tmpGridField
  13890. tmpGridFieldz
  13891. FONT Size=2
  13892.     <br><br>
  13893. ftbusy.gif
  13894.      Busy
  13895. ftfree.gif
  13896.      Free
  13897. ftok.gif
  13898. ftconf.gif
  13899.      Conflict
  13900. ftno.gif
  13901.      No Info
  13902. tmpStartDate
  13903.     0S0E
  13904. tmpStartDateTime
  13905. tmpStartDate
  13906. tmpStartTime
  13907.     1S2S10S11S12S
  13908. tmpEndDateTime
  13909. tmpEndDate
  13910. tmpEndTime
  13911.     0R1S2S10S11S12S13S
  13912. Duration
  13913. tmpEndDateTime
  13914. tmpStartDateTime#
  13915. Chair
  13916. tmpChair
  13917.     0RR1S2S6S
  13918. prep attendee list
  13919.     0RR1S
  13920. tmpST2
  13921. tmpSendTo
  13922.     0R1S2S8S
  13923. tmpCT2
  13924. tmpCopyTo
  13925.     0R1S2S8S
  13926. tmpSendToArg
  13927. SendTo^
  13928. tmpST2
  13929. tmpST2
  13930. SendTo
  13931.     0R1S2S5S6S11S13S14S15S21S24S
  13932. tmpCopyToArg
  13933. CopyTo^
  13934. tmpCT2
  13935. tmpCT2
  13936. CopyTo
  13937.     0R1S2S5S6S11S13S14S15S21S24S
  13938. parse the suggestion selection (which may not be made)
  13939.     0RR1S
  13940. tmpList
  13941. tmpTimes
  13942.     0R1S2S6S
  13943. tmpIsEmptySelection
  13944. tmpList
  13945.     0R1S2S8S
  13946. tmpDateSugg
  13947. tmpList
  13948.     0R1S2S8S
  13949. tmpTimeSugg
  13950. tmpList
  13951.     0R1S2S2E10S13S
  13952. tmpDurationSugg
  13953. tmpList
  13954.     0R1S2S8S
  13955. update the manual input fields
  13956.     0RR1S
  13957. tmpStartDateRef
  13958. tmpIsEmptySelection
  13959. tmpTimes
  13960. tmpStartDateRef
  13961. tmpDateSugg
  13962.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  13963. tmpStartTimeRef
  13964. tmpIsEmptySelection
  13965. tmpTimes
  13966. tmpStartTimeRef
  13967. tmpTimeSugg
  13968.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  13969. tmpNewDateTime
  13970. tmpDateSugg
  13971. tmpTimeSugg
  13972. tmpDurationSugg
  13973.     0R1S2S12S13S14S
  13974. tmpEndDateRef
  13975. tmpIsEmptySelection
  13976. tmpTimes
  13977. tmpEndDateRef
  13978. tmpNewDateTime
  13979.     0R1S6S7S10S11S15S
  13980. tmpEndTimeRef
  13981. tmpIsEmptySelection
  13982. tmpTimes
  13983. tmpEndTimeRef
  13984. tmpNewDateTime
  13985.     0R1S6S7S10S11S15S
  13986. perform the freetime search
  13987.     0RRR1S
  13988. tmpIsEmptySelection
  13989. tmpTimes
  13990. Domino
  13991. RefreshFreeTimeGrid
  13992. tmpGridField
  13993. tmpTimes
  13994. tmpMessages
  13995. tmpStartDateV
  13996. tmpStartTimeV
  13997. Duration
  13998. tmpGridFormat
  13999. Chair
  14000. tmpSendToArg
  14001. tmpCopyToArg
  14002. Domino
  14003. RefreshFreeTimeGrid
  14004. tmpGridField
  14005. tmpTimes
  14006. tmpMessages
  14007. tmpDateSugg
  14008. tmpTimeSugg
  14009. tmpDurationSugg
  14010. tmpGridFormat
  14011. Chair
  14012. tmpSendToArg
  14013. tmpCopyToArg
  14014.     0R1S3S4S5S6S7S8S10R14S16S18S20S22S27S32S34S36S38S40S42S45R49S51S53S55S57S59S61S63S65S67S69S71S73S
  14015.     Refresh
  14016. FONT Size=2
  14017. New Button
  14018. Need a newer version of Notes to execute this button.
  14019.     0S0E
  14020. OKClick()
  14021.       OK  z
  14022. FONT Size=2
  14023. New Button
  14024. Need a newer version of Notes to execute this button.
  14025.     0S0E
  14026. CancelClick()
  14027.     Cancelz
  14028. FONT Size=2
  14029. tmpStartDateRef
  14030. tmpStartDateRef
  14031. tmpStartTimeRef
  14032. tmpStartTimeRef
  14033. tmpEndDateRef
  14034. tmpEndDateRef
  14035. tmpEndTimeRef
  14036. tmpEndTimeRef
  14037. tmpDurationRef[<TYPE=hidden >]
  14038. DateFormatHelper2
  14039. DateFormatHelper2[<TYPE=hidden >]
  14040. TimeFormatHelper2
  14041. TimeFormatHelper2[<TYPE=hidden >]
  14042. DurationFormatHelper2
  14043. DurationFormatHelper2[<TYPE=hidden >]
  14044. tmpStartDateTime
  14045. tmpStartDate
  14046. tmpStartTime
  14047.     1S2S10S11S12S
  14048. tmpEndDateTime
  14049. tmpEndDate
  14050. tmpEndTime
  14051.     0R1S2S10S11S12S13S
  14052. Duration
  14053. tmpEndDateTime
  14054. tmpStartDateTime#
  14055. Chair
  14056. tmpChair
  14057.     0R1S2S6S
  14058. prep attendee list
  14059.     0RR1S
  14060. tmpST2
  14061. tmpSendTo
  14062.     0R1S2S8S
  14063. tmpCT2
  14064. tmpCopyTo
  14065.     0R1S2S8S
  14066. tmpSendToArg
  14067. SendTo^
  14068. tmpST2
  14069. tmpST2
  14070. SendTo
  14071.     0R1S2S5S6S11S13S14S15S21S24S
  14072. tmpCopyToArg
  14073. CopyTo^
  14074. tmpCT2
  14075. tmpCT2
  14076. CopyTo
  14077.     0R1S2S5S6S11S13S14S15S21S24S
  14078. tmpStartDateRef
  14079. Domino
  14080. RefreshFreeTimeGrid
  14081. tmpGridField
  14082. tmpTimes
  14083. tmpMessages
  14084. tmpStartDateRef
  14085. tmpStartTimeRef
  14086. Duration
  14087. Chair
  14088. tmpSendToArg
  14089. tmpCopyToArg
  14090.     0R12S14S16S18S20S24S26S28S32S34S
  14091. samplename="sample"
  14092. tmpChair
  14093. SendTo
  14094. CopyTo
  14095. tmpCopyTo
  14096. tmpSendTo
  14097. O=Lotus Notes
  14098. O=Lotus Notes
  14099. PURSAFO
  14100. |.:#U
  14101. O=Lotus Notes
  14102. CN=Lotus Notes Template Development/O=Lotus Notes
  14103. PURSAFO
  14104. *dvn    
  14105. StartDate
  14106. StartTime
  14107. EndDate
  14108. EndTime
  14109. $HTMLCode
  14110. $INFO
  14111. $WebFlags
  14112. $$Script_O
  14113. $$ScriptName
  14114. tmpStartDate
  14115. tmpStartTime
  14116. tmpEndDate
  14117. tmpEndTime
  14118. $BODY
  14119. Preferences
  14120. wPreferencesSave
  14121. wPreferencesOpen
  14122. &Arial
  14123. 5Courier New
  14124. Times New Roman
  14125. Lotus Product
  14126. OBJECT
  14127.  wPreferences
  14128. Hidden Fields:
  14129. FromPerson memo is from.z
  14130. FromDomain
  14131. FromDomain
  14132. FromDomain
  14133. FromDomain
  14134.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  14135. FromName
  14136.     0RR1S2S6S
  14137. FromStops
  14138.     0R1S2S6S
  14139. FromName
  14140. FromStops
  14141.     0RR1S2S3S4S8StmpDisplayFrom_Previewz
  14142. tmpDisplayFrom_Preview
  14143. .,$ //:
  14144. PostedDateh
  14145. PostedDate
  14146.     7S9S
  14147. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  14148. tmpDisplayDate_Preview
  14149. Path_Info
  14150. Path_Info
  14151. Query_String
  14152. Query_String
  14153. SaveOptions
  14154. .,$,  , :
  14155. PROTECTFROMARCHIVE
  14156.     don't allow these documents to be marked as "expired"
  14157. Preferences
  14158. $PreferencesPage
  14159.     4S6S
  14160. $PreferencesPage
  14161.     field driven table name
  14162. Preferences
  14163. SignatureOption
  14164. $PreferencesPage
  14165. Preferences
  14166.     0R3S4S6S11S
  14167. $PreferencesPage
  14168. Preferences
  14169.     0R1S2S3S
  14170.     Mail
  14171. $PreferencesPage
  14172. Freetime
  14173.     0R3S4S6S11S
  14174. $PreferencesPage
  14175. Freetime
  14176.     0R1S2S3S
  14177.     Calendar
  14178. $PreferencesPage
  14179. Freetime
  14180.     0R3S4S6S11S
  14181. $PreferencesPage
  14182. Freetime
  14183.     0R1S2S3S
  14184.     Freetime
  14185. $PreferencesPage
  14186. Entries
  14187.     0R3S4S6S11S
  14188. $PreferencesPage
  14189. Entries
  14190.     0R1S2S3S
  14191.     Entries
  14192. $PreferencesPage
  14193. Autoprocess
  14194.     0R3S4S6S11S
  14195. $PreferencesPage
  14196. Autoprocess
  14197.     0R1S2S3S
  14198.     Autoprocess
  14199. $PreferencesPage
  14200.     0R3S4S6S11S
  14201. $PreferencesPage
  14202.     0R1S2S3S
  14203.     Misc
  14204. $PreferencesPage
  14205.     0R3S4S6S11S
  14206. $PreferencesPage
  14207.     0R1S2S3S
  14208.     Delegation
  14209. $PreferencesPage
  14210.     0R3S4S6S11S
  14211. $PreferencesPage
  14212.     0R1S2S3S
  14213.     Mail
  14214. $PreferencesPage
  14215. Calendar
  14216.     0R3S4S6S11S
  14217. $PreferencesPage
  14218. Calendar
  14219.     0R1S2S3S
  14220.     Calendar
  14221. PreferencesPage
  14222. PreferencesPage
  14223.     User configuration
  14224.     Owner of this mail file:
  14225. Owner
  14226. Owner
  14227.     Internet message format
  14228. FormatReplies
  14229. Formatted Replies with an offset character|1
  14230. FormatReplies
  14231. OffSetChar
  14232. >|1<|2<<|3>>|4z
  14233. OffSetChar
  14234. Preferences
  14235. Preferences
  14236. Preferences
  14237.     Availability
  14238. Sunday
  14239.     1S2S
  14240. Sunday
  14241. Sunday|1
  14242. Monday
  14243.     1S2S
  14244. Size=40
  14245.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
  14246. Monday
  14247. Monday|2
  14248. Tuesday
  14249.     1S2S
  14250. Size=40
  14251.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
  14252. Tuesday
  14253. Tuesday|3
  14254. Wednesday
  14255.     1S2S
  14256. Size=40
  14257.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
  14258. Wednesday
  14259. Wednesday|4
  14260. Thursday
  14261.     1S2S
  14262. Size=40
  14263.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
  14264. Thursday
  14265. Thursday|5
  14266. Friday
  14267.     1S2S
  14268. Size=40
  14269.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
  14270. Friday
  14271. Friday|6
  14272. Saturday
  14273.     1S2S
  14274. Size=40
  14275.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
  14276. Saturday
  14277. Saturday|7
  14278. Size=40
  14279.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
  14280.     Only the following users can request my free time information:
  14281. AllowBusyAccess
  14282. Freetime
  14283. Freetime
  14284. Freetime
  14285. AutoProcessMeetings
  14286.     1S2S
  14287. AutoProcessType
  14288. AutoProcessType
  14289.     3S4S6S8S
  14290. AutoProcessType
  14291. Do not automatically process meeting requests|DAutoprocess meeting requests from all users|0Autoprocess meeting requests from the following users|2Forward meeting requests to the following person|1
  14292. AutoProcessType
  14293.     1S2S
  14294. Size=40
  14295. AutoprocessUserList
  14296. AutoProcessType
  14297.     1S2S
  14298. Size=40
  14299. AutoProcessForwardTo
  14300. AutoRemoveFromInbox
  14301. Remove event requests from my Inbox after I respond to them|1
  14302. PreventRepliesFromInbox
  14303. Prevent event replies from appearing in my Inbox|1
  14304. Autoprocess
  14305. Autoprocess
  14306. Autoprocess
  14307.     Defaults
  14308.     Calendar Entry type:
  14309. CalEntryType
  14310. CalEntryType
  14311.     3S4S
  14312. CalEntryType
  14313. Appointment|0Meeting Invitation|3Event|2Reminder|4Anniversary|1
  14314.     Appointment/Meeting time duration:
  14315. DefaultDuration
  14316. DefaultDuration
  14317. DefaultDuration
  14318.     3S4S5S6S7S8S9S10S12S
  14319. DefaultDuration
  14320.      (minutes)
  14321.     Anniversary yearly repeat:
  14322. .,$///:
  14323. AutoAnniversaryRepeat
  14324. AutoAnniversaryRepeat
  14325. AutoAnniversaryRepeat
  14326.     3S4S5S6S7S8S10S12S
  14327. AutoAnniversaryRepeat
  14328.      years
  14329. PreventAll
  14330. Display calendar entries in All Documents view|1
  14331. PreventSent
  14332. Display meeting invitations in Sent view|1
  14333.     Conflict Checking
  14334. ConflictMeeting
  14335. Enable for Appointments/Meetings|1
  14336. ConflictEvent
  14337. Enable for Events|1
  14338. ConflictAnniversary
  14339. Enable for Anniversaries|1
  14340. Entries
  14341. Entries
  14342. Entries
  14343. TaskFollow
  14344. Always show current To do's on today's calendar|1
  14345. PublicRead
  14346.     1S2S
  14347.     The following people/groups can:
  14348.     Read my mail and read my calendar:
  14349. ReadMailz
  14350. ReadMailsize=40
  14351.     Read and send mail on my behalf and read my calendar:
  14352. WriteMail
  14353. WriteMailsize=40
  14354.     Read, send, and edit any document in my mail file:
  14355. EditMailz
  14356. EditMailsize=40
  14357.     Delete mail and calendar entries 
  14358.     (allowed for those who can send or edit mail)
  14359. DeleteMailz
  14360. DeleteMailsize=40
  14361. *Other (Designer or Manager)
  14362. .,$,  , :
  14363. OtherUsers
  14364.     0S0E
  14365. OtherUsers
  14366.         *These entries cannot be modified from this dialog
  14367.     Calendar Read Accesss
  14368. PublicRead
  14369.     3S4S
  14370. PublicRead
  14371. Everyone can read my calendar|1Only the following people/groups can read my calendar|0
  14372. ReadCalendar
  14373.     Calendar Create/Edit Access
  14374. PublicWrite
  14375.     3S4S
  14376. PublicWrite
  14377. Everyone can manage my calendar|1Only the following people/groups can manage my calendar|0
  14378. PublicWrite
  14379.     1S2S
  14380. WriteCalendar
  14381. Calendar
  14382. Calendar
  14383. Calendar
  14384. Owner
  14385. $BusyName
  14386. $NoPurge
  14387. $NoPurge
  14388. Sunday
  14389. Monday
  14390. Tuesday
  14391. Wednesday
  14392. Thursday
  14393. Friday
  14394. Saturday
  14395.     0S0E
  14396. $AvailableDays
  14397. $PublicAccess
  14398. $CSVersion
  14399. Categori_zeK
  14400. _Edit Document
  14401. Send Docu_ment
  14402. _Forward
  14403. _Move To Folder...
  14404. _Remove From FolderK
  14405. Save and Close<
  14406.     0S0E
  14407. Hide if 'New doc' button was clicked
  14408. QUERY_STRING_DECODED
  14409.     0R1S2S6S
  14410.     0R1S2S
  14411. act_save.GIF|act_CSSAVE?
  14412. Cancel 
  14413.     0S0E
  14414. Hide if person clicked 'New doc' button
  14415. QUERY_STRING_DECODED
  14416.     0R1S2S6S
  14417.     0R1S2S3S4S
  14418. act_DELETE.GIF|act_DELETE?
  14419. Categori_zeK
  14420. _Edit Document
  14421. Send Docu_ment
  14422. _Forward
  14423. _Move To Folder...
  14424. _Remove From FolderK
  14425. Save and Close<
  14426.     0S0E
  14427. Hide if 'New doc' button was clicked
  14428. QUERY_STRING_DECODED
  14429.     0R1S2S6S
  14430.     0R1S2S
  14431. Cancel 
  14432.     0S0E
  14433. Hide if person clicked 'New doc' button
  14434. QUERY_STRING_DECODED
  14435.     0R1S2S6S
  14436.     0R1S2S3S4S
  14437. O=Lotus Notes
  14438. O=Lotus Notes
  14439. PURSAFO
  14440. |.:#U
  14441. O=Lotus Notes
  14442. CN=Lotus Notes Template Development/O=Lotus Notes
  14443. PURSAFO
  14444. $INFO
  14445. $WINDOWTITLE
  14446. $WEBQuerySave
  14447. $WEBQueryOpen
  14448. $WebFlags
  14449. $$Script_O
  14450. $$ScriptName
  14451. $Times1
  14452. $Times2
  14453. $Times3
  14454. $Times4
  14455. $Times5
  14456. $Times6
  14457. $Times7
  14458. DefaultDuration
  14459. AutoAnniversaryRepeat
  14460. $NoPurge
  14461. $BODY
  14462. $V5ACTIONS
  14463. $ACTIONS
  14464. wAddressOpen
  14465. Lotus Product
  14466. OBJECT
  14467.  wResources'++LotusScript Development Environment:2:5:(Options):0:66
  14468. '++LotusScript Development Environment:2:5:(Forward):0:1
  14469. Declare Sub Initialize
  14470. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14471. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14472. Private Sub BindEvents(Byval Objectname_ As String)
  14473.     Static Source As FIELD
  14474.     Set Source = Bind(Objectname_)
  14475. End Sub
  14476. '++LotusScript Development Environment:2:2:Initialize:1:10
  14477. Sub Initialize
  14478. End Sub
  14479. Lotus Product
  14480. V0.0E
  14481. <NOSCRIPT><H2>
  14482. This page requires JavaScript 1.1 or higher
  14483. </H2><HR></NOSCRIPT>
  14484. <SCRIPT LANGUAGE="JavaScript"><!--
  14485.     _version_=10 //--></SCRIPT>
  14486. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  14487.     _version_=11 //--></SCRIPT>
  14488. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  14489.     _version_=12 //--></SCRIPT>
  14490. <SCRIPT LANGUAGE="JavaScript"><!--
  14491.     if(_version_<11)
  14492.         document.write('<H2>
  14493. This page requires JavaScript 1.1 or higher
  14494. </H2><HR>');
  14495.         document.close();
  14496. //--></SCRIPT>
  14497.      
  14498.     Look in:
  14499.     <font size=-1>
  14500. names.nsf
  14501. Addressbooks
  14502.     0S0E
  14503. NABs_1
  14504.     </font>
  14505.     Site and Resource:
  14506. Size=10
  14507. EntryList
  14508. names.nsf
  14509. ($Resources)
  14510.     0S0E
  14511. EntryListFONT Size=2
  14512. New Button
  14513. Need a newer version of Notes to execute this button.
  14514.     0S0E
  14515. AddClick(fieldResources)
  14516.      Add >> z
  14517. FONT Size=2
  14518. Resources
  14519. 12345678901234567890123456789012
  14520. Resources_1FONT Size=2SIZE=4 
  14521. New Button
  14522. Need a newer version of Notes to execute this button.
  14523.     0S0E
  14524. RemoveClick(Resources);
  14525.       Remove  z
  14526. FONT Size=2
  14527. New Button
  14528. Need a newer version of Notes to execute this button.
  14529.     0S0E
  14530. RemoveAllClick()
  14531.     Remove Allz
  14532. FONT Size=2
  14533. New Button
  14534. Need a newer version of Notes to execute this button.
  14535.     0S0E
  14536. OKClick();
  14537.        OK   z
  14538. font size=2
  14539. New Button
  14540. Need a newer version of Notes to execute this button.
  14541.     0S0E
  14542. CancelClick()
  14543.      Cancel
  14544. font size=2
  14545. AddressBooksz
  14546. AddressBooks
  14547. <SCRIPT LANGUAGE="JavaScript1.1">
  14548. // For convenience
  14549. var fieldResources = document.forms[0].Resources;
  14550. var fieldEntryList = document.forms[0].EntryList;
  14551. function OKClick()
  14552.     // put the values back in the underlying form in the right format
  14553.     if(window.opener)
  14554.         window.opener.document.forms[0].Resources.value = selectToString(fieldResources);
  14555.     self.close();
  14556. function CancelClick() 
  14557.     self.close();
  14558. function AddClick(field)
  14559.     if(fieldEntryList.selectedIndex != -1)
  14560.         for (var i=0; i < fieldEntryList.options.length; ++i)
  14561.         if (fieldEntryList.options[i].selected)
  14562.             {        
  14563.                 field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
  14564. function substring2(string, start, length){
  14565.     return string.substring(start,start+length);
  14566. function FixName(name)
  14567.     if (name.indexOf("CN=")!= -1)
  14568.             tmpstring=name.substring(3)
  14569.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  14570.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  14571.             strpos = tmpstring.indexOf("=")+1;
  14572.             tmpstring=substring2(tmpstring,strpos,tmpstring.length);
  14573.             while (strpos != -1)
  14574.                 if (tmpstring.indexOf("/")!= -1)
  14575.                 {
  14576.                 restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  14577.                 if (restofname.length!=0)
  14578.                     {                      
  14579.                     fullname=fullname+"/"+restofname;
  14580.                     }
  14581.                 strpos=tmpstring.indexOf("=");
  14582.                 } else {
  14583.                     fullname=fullname+"/"+tmpstring;
  14584.                     strpos=-1;
  14585.                     }        
  14586.             return fullname;
  14587.         } else return name;
  14588. function RemoveClick(field)
  14589.     if (field.length != 0){ 
  14590.     if (field.selectedIndex != -1)
  14591.         for(var i=0;i<field.options.length ; ++i)
  14592.                 if (field.options[i].selected)
  14593.                     {
  14594.                         field.options[i] = null;
  14595.                     }
  14596. function RemoveAllClick()
  14597.     fieldResources.options.length=0;
  14598. function trim(str)
  14599.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  14600.     return str.substring(i,str.length); 
  14601. function stringToSelect(str,field)
  14602.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  14603.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  14604.         var entry = trim(str.substring(beg,end));
  14605.         if(entry!="") field.options[field.options.length++].text = entry;
  14606. function selectToString(field)
  14607.     if (field.length!=0)
  14608.     var str = "";
  14609.     for(i=0 ; i < field.options.length-1 ; i++)
  14610.         str += field.options[i].text + ",";
  14611.     return str += field.options[i].text;
  14612.     } else return "";
  14613. // Grab original values from underlying document
  14614. var OrigResources;
  14615. if(window.opener)
  14616.     OrigResources = window.opener.document.forms[0].Resources.value;
  14617. else    OrigResources = "";
  14618. // Initialize fields
  14619. RemoveAllClick();
  14620. stringToSelect(OrigResources,fieldResources);
  14621. //-->
  14622. </SCRIPT>
  14623. O=Lotus Notes
  14624. O=Lotus Notes
  14625. PURSAFO
  14626. |.:#U
  14627. O=Lotus Notes
  14628. CN=Lotus Notes Template Development/O=Lotus Notes
  14629. PURSAFO
  14630. $INFO
  14631. $WEBQueryOpen
  14632. $WebFlags
  14633. $$Script_O
  14634. $$ScriptName
  14635. $$AddressBooks
  14636. $AddressBooks_O
  14637. $BODY
  14638. wAddressOpen
  14639. Lotus Product
  14640. V0.0\
  14641.  wRooms'++LotusScript Development Environment:2:5:(Options):0:66
  14642. '++LotusScript Development Environment:2:5:(Forward):0:1
  14643. Declare Sub Initialize
  14644. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14645. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14646. Private Sub BindEvents(Byval Objectname_ As String)
  14647.     Static Source As FIELD
  14648.     Set Source = Bind(Objectname_)
  14649. End Sub
  14650. '++LotusScript Development Environment:2:2:Initialize:1:10
  14651. Sub Initialize
  14652. End Sub
  14653. Lotus Product
  14654. <NOSCRIPT><H2>
  14655. This page requires JavaScript 1.1 or higher
  14656. </H2><HR></NOSCRIPT>
  14657. <SCRIPT LANGUAGE="JavaScript"><!--
  14658.     _version_=10 //--></SCRIPT>
  14659. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  14660.     _version_=11 //--></SCRIPT>
  14661. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  14662.     _version_=12 //--></SCRIPT>
  14663. <SCRIPT LANGUAGE="JavaScript"><!--
  14664.     if(_version_<11)
  14665.         document.write('<H2>
  14666. This page requires JavaScript 1.1 or higher
  14667. </H2><HR>');
  14668.         document.close();
  14669. //--></SCRIPT>
  14670.      
  14671.     Look in:
  14672.     <font size=-1>
  14673. names.nsf
  14674. Addressbooks
  14675.     0S0E
  14676. NABs_1
  14677.     </font>
  14678.     Site and Rooms:
  14679. size=10
  14680. EntryList
  14681. names.nsf
  14682. ($Rooms)
  14683.     0S0E
  14684. EntryListFONT Size=2
  14685. New Button
  14686. Need a newer version of Notes to execute this button.
  14687.     0S0E
  14688. AddClick(fieldRooms)
  14689.      Add >> z
  14690. FONT Size=2
  14691. Rooms
  14692. 12345678901234567890123456789012
  14693. RoomsFONT Size=2SIZE=4 
  14694. New Button
  14695. Need a newer version of Notes to execute this button.
  14696.     0S0E
  14697. RemoveClick(Rooms);
  14698.       Remove  z
  14699. FONT Size=2
  14700. New Button
  14701. Need a newer version of Notes to execute this button.
  14702.     0S0E
  14703. RemoveAllClick()
  14704.     Remove Allz
  14705. FONT Size=2
  14706. New Button
  14707. Need a newer version of Notes to execute this button.
  14708.     0S0E
  14709. OKClick();
  14710.        OK   z
  14711. font size=2
  14712. New Button
  14713. Need a newer version of Notes to execute this button.
  14714.     0S0E
  14715. CancelClick()
  14716.      Cancel
  14717. font size=2
  14718. AddressBooksz
  14719. AddressBooks
  14720. <SCRIPT LANGUAGE="JavaScript1.1">
  14721. // For convenience
  14722. var fieldRooms = document.forms[0].Rooms;
  14723. var fieldEntryList = document.forms[0].EntryList;
  14724. function OKClick()
  14725.     // put the values back in the underlying form in the right format
  14726.     if(window.opener)
  14727.         window.opener.document.forms[0].RoomToReserve.value = selectToString(fieldRooms);
  14728.     self.close();
  14729. function CancelClick() 
  14730.     self.close();
  14731. function AddClick(field)
  14732.     if(fieldEntryList.selectedIndex != -1)
  14733.         for (var i=0; i < fieldEntryList.options.length; ++i)
  14734.         if (fieldEntryList.options[i].selected)
  14735.             {        
  14736.                 field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
  14737. function substring2(string, start, length){
  14738.     return string.substring(start,start+length);
  14739. function FixName(name)
  14740.     if (name.indexOf("CN=")!= -1)
  14741.             tmpstring=name.substring(3)
  14742.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  14743.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  14744.             strpos = tmpstring.indexOf("=")+1;
  14745.             tmpstring=substring2(tmpstring,strpos,tmpstring.length);
  14746.             while (strpos != -1)
  14747.                 if (tmpstring.indexOf("/")!= -1)
  14748.                 {
  14749.                 restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  14750.                 if (restofname.length!=0)
  14751.                     {                      
  14752.                     fullname=fullname+"/"+restofname;
  14753.                     }
  14754.                 strpos=tmpstring.indexOf("=");
  14755.                 } else {
  14756.                     fullname=fullname+"/"+tmpstring;
  14757.                     strpos=-1;
  14758.                     }        
  14759.             return fullname;
  14760.         } else return name;
  14761. function RemoveClick(field)
  14762.     if (field.length != 0){ 
  14763.     if (field.selectedIndex != -1)
  14764.         for(var i=0;i<field.options.length ; ++i)
  14765.                 if (field.options[i].selected)
  14766.                     {
  14767.                         field.options[i] = null;
  14768.                     }
  14769. function RemoveAllClick()
  14770.     fieldRooms.options.length=0;
  14771. function trim(str)
  14772.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  14773.     return str.substring(i,str.length); 
  14774. function stringToSelect(str,field)
  14775.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  14776.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  14777.         var entry = trim(str.substring(beg,end));
  14778.         if(entry!="") field.options[field.options.length++].text = entry;
  14779. function selectToString(field)
  14780.     if (field.length!=0)
  14781.     var str = "";
  14782.     for(i=0 ; i < field.options.length-1 ; i++)
  14783.         str += field.options[i].text + ",";
  14784.     return str += field.options[i].text;
  14785.     } else return "";
  14786. // Grab original values from underlying document
  14787. var OrigRooms;
  14788. if(window.opener)
  14789.     OrigRooms = window.opener.document.forms[0].RoomToReserve.value;
  14790. else    OrigRooms = "";
  14791. // Initialize fields
  14792. RemoveAllClick();
  14793. stringToSelect(OrigRooms,fieldRooms);
  14794. //-->
  14795. </SCRIPT>
  14796. O=Lotus Notes
  14797. O=Lotus Notes
  14798. PURSAFO
  14799. |.:#U
  14800. O=Lotus Notes
  14801. CN=Lotus Notes Template Development/O=Lotus Notes
  14802. PURSAFO
  14803. $INFO
  14804. $WEBQueryOpen
  14805. $WebFlags
  14806. $$Script_O
  14807. $$ScriptName
  14808. $$AddressBooks
  14809. $AddressBooks_O
  14810. $BODY
  14811. refreshAllDisplays();
  14812. Mail Rule
  14813. wMailRuleSubmit
  14814. 5Courier New
  14815.  Mailrule
  14816. Translate
  14817. OperatorValues
  14818. Translate
  14819. sender
  14820. subject
  14821. importance
  14822. delivery priority
  14823. To or CC
  14824. body or subject
  14825. Internet Domain
  14826. Size (in Kbytes)
  14827. ConditionValues
  14828. Translate
  14829. is less than
  14830. is more than
  14831. is not
  14832. Logic1Values
  14833. Translate
  14834. contains
  14835. does not contain
  14836. is not
  14837. Logic2Values
  14838. Translate
  14839. medium
  14840. ImportanceValues
  14841. move to folder
  14842. copy to folder
  14843. change importance to
  14844. delete
  14845.     0S0E
  14846. ActionValues
  14847. $FilterFormula
  14848. $FilterFormula
  14849. ConditionList
  14850. tokConditionList
  14851. ExceptionList
  14852. tokExceptionList
  14853. ActionList
  14854. tokActionList
  14855. Mailrule
  14856. <NOSCRIPT><H2>
  14857. Translate
  14858. This page requires JavaScript 1.1 or higher
  14859. </H2><HR></NOSCRIPT>
  14860. <SCRIPT LANGUAGE="JavaScript"><!--
  14861.     _version_=10 //--></SCRIPT>
  14862. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  14863.     _version_=11 //--></SCRIPT>
  14864. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  14865.     _version_=12 //--></SCRIPT>
  14866. <SCRIPT LANGUAGE="JavaScript"><!--
  14867.     if(_version_<11)
  14868.         document.write('<H2>
  14869. Translate
  14870. This page requires JavaScript 1.1 or higher
  14871. </H2><HR>');
  14872.         document.close();
  14873. //--></SCRIPT>
  14874. <A NAME="_RefreshKW_Condition"></A>
  14875. ConditionList
  14876.     0S0E
  14877.     Rule is:  
  14878. Enable_1
  14879. On|1Off|0
  14880. {Font Size="2"}
  14881.       
  14882.     Specify Conditions and Exceptions
  14883.       
  14884.     New condition or exception:
  14885. Operator
  14886. OperatorValues
  14887.     0S0E
  14888. Condition
  14889. ConditionValues
  14890.     0S0E
  14891. Logic
  14892. Condition
  14893. Logic1Values
  14894. Logic2Values
  14895.     0S0E
  14896. condition
  14897.     0S0E
  14898. String
  14899. condition
  14900.     0S0E
  14901. Importance
  14902. ImportanceValues
  14903.     1S2S
  14904. condition
  14905.     0S0E
  14906. DomainList
  14907.      
  14908.     When mail messages arrive that meet these conditions:
  14909. ConditionListDisplay
  14910. 123456789012345678901234567890123456789012z
  14911. size=5
  14912. add condition.gif|add_condition
  14913. HotspotRectangle12
  14914. javascript::addConditionLine('ConditionList'); refreshOperatorField();
  14915. HotspotRectangle13
  14916. javascript::removeLine('ConditionList'); refreshOperatorField();
  14917. HotspotRectangle14
  14918. javascript::removeAllLines('ConditionList'); refreshOperatorField();
  14919.      
  14920.     Except when:
  14921. ExceptionListDisplay
  14922. 123456789012345678901234567890123456789012z
  14923. size=5
  14924. add exception.gif|add_exception
  14925. HotspotRectangle15_1
  14926. javascript:addConditionLine('ExceptionList')
  14927. HotspotRectangle16_1
  14928. javascript:removeLine('ExceptionList')
  14929. HotspotRectangle17_1
  14930. javascript:removeAllLines('ExceptionList')
  14931.       
  14932.     Specify Actions
  14933.       
  14934.     New action:
  14935. Action
  14936. ActionValues
  14937.     0S0E
  14938. Action
  14939.     1S2S
  14940. Folder
  14941. Action
  14942.     0S0E
  14943. NewImportance
  14944. ImportanceValues
  14945.     1S2S
  14946. action
  14947.     0S0E
  14948.       
  14949.     Perform the following actions:
  14950. ActionListDisplay
  14951. 123456789012345678901234567890123456789012
  14952. size=5
  14953. add action.gif|add_action
  14954. HotspotRectangle18_1
  14955. javascript:addAction()
  14956. HotspotRectangle19_1
  14957. javascript:removeLine('ActionList')
  14958. HotspotRectangle20_1
  14959. javascript:removeAllLines('ActionList')
  14960. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  14961. var TYPE_CONDITION = "0";
  14962. var COND_IMPORTANCE = 3;
  14963. var COND_DELIVERY = 4;
  14964. var COND_DOMAIN = 10;
  14965. var COND_SIZE = 11;
  14966. var LIST_SEP = "; ";
  14967. var form = document.forms[0];
  14968. form.ConditionListDisplay.options[0] = form.ExceptionListDisplay.options[0]
  14969.     = form.ActionListDisplay.options[0] = null;
  14970. function list_append(field,str)
  14971.     if(field.value.length) field.value += 
  14972. LIST_SEP;
  14973.     field.value += str;
  14974. function list_removeelem(field,index)
  14975.     var value = field.value;
  14976.     for(i=pos=0 ; i<index ; i++)
  14977.         pos = value.indexOf(LIST_SEP,++pos);
  14978.     field.value = value.substring(0,pos);
  14979.     pos = value.indexOf(LIST_SEP,++pos);
  14980.     if(pos != -1) field.value += value.substring(pos+(i?0:LIST_SEP.length),value.length);
  14981. function list_replaceinvalidsep(str)
  14982.     var newstr = "";
  14983.     for(last=0, pos=str.indexOf(LIST_SEP) ; pos != -1 ; last=pos, pos=str.indexOf(LIST_SEP,pos))
  14984.         newstr += str.substring(last,pos) + ", ";
  14985.         pos += LIST_SEP.length;
  14986.     return newstr += str.substring(last,str.length);
  14987. function refreshDisplay(field)
  14988.     var list = eval("form."+field).value;
  14989.     var toklist = eval("form.tok"+field).value;
  14990.     var display = eval("form."+field+"Display").options;
  14991.     var pos = list.indexOf(LIST_SEP);
  14992.     for(i=last=0 ; pos!=-1 ; last=++pos, pos=list.indexOf(
  14993. LIST_SEP,++pos), i++)
  14994. display[i] = new Option(list.substring(last,pos));
  14995.     display[i] = new Option(list.substring(
  14996. last,list.length));
  14997.     for(j=++i ; j<display.length ; j++) display[j] = null;
  14998.     display.length = i;
  14999. function refreshAllDisplays()
  15000.     refreshDisplay("ConditionList");
  15001.     refreshDisplay("ExceptionList");
  15002.     refreshDisplay("ActionList");
  15003.     refreshOperatorField();
  15004. function getANDOperator()
  15005.     var v = form.OperatorValues.value;
  15006.     return v.substring(0,v.indexOf(LIST_SEP));
  15007. function getOROperator()
  15008.     var v = form.OperatorValues.value;
  15009.     return v.substring(
  15010. v.indexOf(LIST_SEP)+LIST_SEP.length,v.length);
  15011. function refreshOperatorField()
  15012.     var op = form.Operator.options;
  15013.     if(form.ConditionList.value.length)
  15014.         if(op.length == 2) return;
  15015.         op[0] = new Option(getANDOperator(),0,true,true);        
  15016.         op[1] = new Option(getOROperator());
  15017.         op.length = 2;
  15018.     else
  15019.         if(op.length == 1) return;
  15020.         op[0] = new Option("
  15021. Translate
  15022. ",0,true,true);
  15023.         op[1] = null;
  15024.         op.length = 1;
  15025. function getKeyword(field)
  15026.     return eval("form."+field+".options[form."+field+".selectedIndex].text");
  15027. function getConditionString()
  15028.     var cond = form.Condition.selectedIndex;
  15029. cond == COND_IMPORTANCE || cond == COND_DELIVERY) return getKeyword("Importance");
  15030.     if(cond == COND_DOMAIN) return form.DomainList.value;
  15031.     return form.String.value;
  15032. function addConditionLine(field)
  15033.     var list = eval("form."+field);
  15034.     var toklist = eval("form.tok"+field);
  15035.     var condstr = 
  15036. list_replaceinvalidsep(getConditionString());
  15037.     var strcondition = (list.value.length ? getKeyword("Operator") + " " : "")
  15038.                 + getKeyword("Condition") + " "
  15039.                 + 
  15040. getKeyword("Logic") + " "
  15041. + condstr;
  15042.     var tokcondition =  Number(form.Operator.selectedIndex).toString() + ":"
  15043.                 + 
  15044. Number(form.Condition.selectedIndex).toString() + ":" 
  15045. Number(form.Logic.selectedIndex).toString() + ":" 
  15046. (form.Condition.selectedIndex == COND_IMPORTANCE || form.Condition.selectedIndex == COND_DELIVERY ? 
  15047.                     
  15048. Number(form.Importance.selectedIndex+1).toString() : condstr);
  15049.     list_append(
  15050. list,strcondition);
  15051.     list_append(
  15052. toklist,tokcondition);
  15053.     refreshDisplay(field);
  15054. function addAction()
  15055.     var list = form.ActionList;
  15056.     var toklist = form.tokActionList;
  15057.     if(toklist.value.indexOf("3:") != -1)
  15058.         alert("
  15059. Delete Document cannot be included in multiple actions.
  15060.         return;
  15061.     var straction = list.value.length ? 
  15062. getANDOperator() + " " : "";
  15063.     straction += getKeyword("Action");
  15064.     var tokaction = Number(form.Action.selectedIndex).toString() + ":";
  15065.     switch(form.Action.selectedIndex)
  15066.         case 0:
  15067.         case 1:
  15068.             var folder = list_replaceinvalidsep(form.Folder.value);
  15069.             straction += " " + folder;
  15070.             tokaction += folder;
  15071.             break;
  15072.         case 2:
  15073.             straction += " " + getKeyword("NewImportance");
  15074.             tokaction += Number(form.NewImportance.selectedIndex
  15075. +1).toString();
  15076.             break;
  15077.         case 3:
  15078.             break;
  15079.     list_append(list,straction);
  15080.     list_append(toklist
  15081. ,tokaction);
  15082.     refreshDisplay("ActionList");
  15083. function removeLine(field)
  15084.     var list = eval("form."+field);
  15085.     var toklist = eval("form.tok"+field);
  15086.     var display = eval("form."+field+"Display");
  15087.     list_removeelem(list,display.selectedIndex);
  15088.     list_removeelem(toklist,display.selectedIndex);
  15089.     if(!display.selectedIndex){ var v = list.value; list.value = v.substring(v.indexOf(" ")+1,v.length); }
  15090.     refreshDisplay(field);
  15091. function removeAllLines(field)
  15092.     var list = eval("form."+field);
  15093.     var toklist = eval("form.tok"+field);
  15094.     var display = eval("form."+field+"Display").options;
  15095.     list.value = "";
  15096.     toklist.value = "";
  15097.     for(i=0 ; i<display.length ; i++) display[i]=null;
  15098.     display.length = 0;
  15099. //--></SCRIPT>
  15100. This field is used for Ordering the Filter documents in the folder
  15101. (2@8U
  15102. OrderNum
  15103. OrderNum
  15104. Categori_ze
  15105. _Edit Document
  15106. Send Docu_ment
  15107. _Forward
  15108. _Move To Folder...
  15109. _Remove From Folder
  15110. Save and Close>
  15111.     0S0E
  15112.     0S0E
  15113. Discard Changesa 
  15114.     0S0E
  15115. Edit 
  15116.     0S0E
  15117. Close
  15118.     0S0E
  15119. Categori_ze
  15120. _Edit Document
  15121. Send Docu_ment
  15122. _Forward
  15123. _Move To Folder...
  15124. _Remove From Folder
  15125. Save and Close>
  15126.     0S0E
  15127.     0S0E
  15128. act_ok.GIF|act_CSOK?
  15129. Discard ChangesF 
  15130.     0S0E
  15131. act_discardchanges.GIF|act_CSDISCARD
  15132. Edit 
  15133.     0S0E
  15134. act_EDIT.GIF|act_EDIT?
  15135. Close
  15136.     0S0E
  15137. act_ok.GIF|act_CSOK?
  15138. O=Lotus Notes
  15139. O=Lotus Notes
  15140. PURSAFO
  15141. |.:#U
  15142. O=Lotus Notes
  15143. CN=Lotus Notes Template Development/O=Lotus Notes
  15144. PURSAFO
  15145. $HTMLCode
  15146. $INFO
  15147. $WINDOWTITLE
  15148. $WEBQuerySave
  15149. $WebFlags
  15150. $$ScriptName
  15151. $BODY
  15152. $ACTIONS
  15153. $V5ACTIONS
  15154. xxNew
  15155. New Calendar Entry for 
  15156. CalendarProfile
  15157. Owner
  15158.     1S2S3S4S
  15159. xxNew
  15160. Subject
  15161.     0R4S6S
  15162. tmpOwnera
  15163. Chair
  15164. AppointmentType
  15165. (Help)
  15166. MAIL_F_APPOINTMENT_APP
  15167. AppointmentType
  15168. (Help)
  15169. MAIL_F_APPOINTMENT_ANN
  15170. AppointmentType
  15171. (Help)
  15172. MAIL_F_APPOINTMENT_EVE
  15173. AppointmentType
  15174. (Help)
  15175. MAIL_F_APPOINTMENT_INV
  15176. AppointmentType
  15177. (Help)
  15178. MAIL_F_APPOINTMENT_REM
  15179. (Help)
  15180. MAIL_F_APPOINTMENT_INV_REC_MOD
  15181.     6S7S12RTTT14T15S16S18RTTTTTT22S24S29RTTTTT30S31S33RTTTTTT44RTTTTT45S46S48RTTTTTT59RTTTTT60S61S63RTTTTTT74RTTTTT75S76S78RTTTTTT89RTTTTT95RTTT
  15182. Times New Roman
  15183. '++LotusScript Development Environment:2:5:(Options):0:74
  15184. Option Public  
  15185. Option Explicit
  15186. Use "CSUIDocClass"
  15187. '++LotusScript Development Environment:2:5:(Forward):0:1
  15188. Declare Sub ProcessDateFieldExit()
  15189. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15190. Dim uicsdoc As UIEventDocument    
  15191. '++LotusScript Development Environment:2:2:ProcessDateFieldExit:1:8
  15192. Sub ProcessDateFieldExit()
  15193.     Dim dtStart As NotesDateTime
  15194.     Dim dtEnd As NotesDateTime
  15195.     Dim note As NotesDocument
  15196.     Set note = uicsdoc.UIObject.BEObject.Document
  15197. End Sub
  15198. Lotus Productf^
  15199. V0.0?
  15200. |}4s#8
  15201. y}4s#
  15202. y}Ds#
  15203. h}Ds#1
  15204. q)`d##1
  15205. y}Lt#
  15206. y}ht#
  15207. i, ~Z
  15208. ~}du#
  15209.  Appointment'++LotusScript Development Environment:2:5:(Options):0:66
  15210. '++LotusScript Development Environment:2:5:(Forward):0:1
  15211. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  15212. Declare Sub Postopen(Source As Notesuidocument)
  15213. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  15214. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  15215. Declare Sub Postrecalc(Source As Notesuidocument)
  15216. Declare Sub Postsave(Source As Notesuidocument)
  15217. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  15218. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15219. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15220. Private Sub BindEvents(Byval Objectname_ As String)
  15221.     Static Source As NOTESUIDOCUMENT
  15222.     Set Source = Bind(Objectname_)
  15223.     On Event Queryopen From Source Call Queryopen
  15224.     On Event Postopen From Source Call Postopen
  15225.     On Event Queryclose From Source Call Queryclose
  15226.     On Event Querysave From Source Call Querysave
  15227.     On Event Postrecalc From Source Call Postrecalc
  15228.     On Event Postsave From Source Call Postsave
  15229.     On Event Querymodechange From Source Call Querymodechange
  15230. End Sub
  15231. '++LotusScript Development Environment:2:2:Queryopen:1:12
  15232. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  15233.     If (source.InPreviewPane) Then Exit Sub
  15234.     Set uicsdoc = CSUIDocOpen(1, source, mode, isnewdoc, continue)    
  15235. End Sub
  15236. '++LotusScript Development Environment:2:2:Postopen:1:12
  15237. Sub Postopen(Source As Notesuidocument)
  15238.     If (source.InPreviewPane) Then Exit Sub
  15239.     Call uicsdoc.PostOpen()
  15240. End Sub
  15241. '++LotusScript Development Environment:2:2:Queryclose:1:12
  15242. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  15243.     If (source.InPreviewPane) Then Exit Sub    
  15244.     If(uicsdoc.WasSaved) Then Call uicsdoc.QueryClose( Continue)
  15245. End Sub
  15246. '++LotusScript Development Environment:2:2:Querysave:1:12
  15247. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  15248.     If (source.InPreviewPane) Then Exit Sub
  15249.     Call uicsdoc.QuerySave( Continue)
  15250. End Sub
  15251. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  15252. Sub Postrecalc(Source As Notesuidocument)
  15253.     Dim note As NotesDocument
  15254.     Dim strType As String
  15255.     If (source.InPreviewPane) Then Exit Sub
  15256.     Set note = source.document
  15257.     ' Update the default alarm settings
  15258.     If note.HasItem("$Alarm") And Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then 
  15259.         Call note.RemoveItem("$Alarm")
  15260.     End If
  15261.     Call uicsdoc.UIObject.BEObject.SetDefaultAlarm()
  15262.     strType = note.GetItemValue("AppointmentType")(0)
  15263.     Select Case strType
  15264.     Case "1"
  15265.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_ANNIVERSARY)
  15266.     Case "2"
  15267.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_PLANNER)
  15268.     Case Else
  15269.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_CALENDAR)
  15270.     End Select
  15271.     Call uicsdoc.PostRecalc()
  15272. End Sub
  15273. '++LotusScript Development Environment:2:2:Postsave:1:12
  15274. Sub Postsave(Source As Notesuidocument)
  15275.     If (source.InPreviewPane) Then Exit Sub
  15276.     Call uicsdoc.PostSave()    
  15277. End Sub
  15278. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  15279. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  15280.     If (source.InPreviewPane) Then continue = False
  15281. End Sub
  15282. Lotus Product
  15283. '++LotusScript Development Environment:2:5:(Options):0:74
  15284. Option Declare
  15285. '++LotusScript Development Environment:2:5:(Forward):0:1
  15286. Declare Sub Entering(Source As Field)    
  15287. Declare Sub Exiting(Source As Field)
  15288. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15289. Dim timeOffset As Double
  15290. Dim dtStartTime As NotesDateTime
  15291. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15292. Private Sub BindEvents(Byval Objectname_ As String)
  15293.     Static Source As FIELD
  15294.     Set Source = Bind(Objectname_)
  15295.     On Event Entering From Source Call Entering
  15296.     On Event Exiting From Source Call Exiting
  15297. End Sub
  15298. '++LotusScript Development Environment:2:2:Entering:1:12
  15299. Sub Entering(Source As Field)    
  15300.     Dim note As NotesDocument
  15301.     Dim dtStartDate As NotesDateTime
  15302.     Dim dtEndDate As NotesDateTime
  15303.     Dim dtEndTime As NotesDateTime
  15304.     Set note = uicsdoc.UIDocument.Document
  15305.     Call TIMEGetFromItem("EndDate", note, dtEndDate)
  15306.     Call TIMEGetFromItem("StartDate", note, dtStartDate)
  15307.     Call TIMEGetFromItem("EndTime", note, dtEndTime)
  15308.     Call TIMEGetFromItem("StartTime", note, dtStartTime)
  15309.     timeOffset = (Datevalue( dtEndDate.lslocalTime) + Timevalue( dtEndTime.lsLocalTime)) - ( Datevalue( dtStartDate.lslocalTime)  +  Timevalue( dtStartTime.lsLocalTime))
  15310. End Sub
  15311. '++LotusScript Development Environment:2:2:Exiting:1:12
  15312. Sub Exiting(Source As Field)
  15313.     Dim note As NotesDocument
  15314.     Dim dtStartDate As NotesDateTime
  15315.     Dim newDateTime As Variant
  15316.     Set note = uicsdoc.UIDocument.Document
  15317.     Call TIMEGetFromItem("StartDate", note, dtStartDate)
  15318.     newDateTime =  Cdat(Datevalue( dtStartDate.lsLocalTime) + Timevalue(dtStartTime.lsLocalTime) + timeOffset )
  15319.     Call note.ReplaceItemValue("EndDate", Datevalue(newDateTime))
  15320.     Call note.ReplaceItemValue("EndTime", Timevalue(newDateTime))
  15321.     Call uicsdoc.UIDocument.Reload
  15322. End Sub
  15323. Lotus Product
  15324. OBJECT
  15325. ,p    }(
  15326. '++LotusScript Development Environment:2:5:(Options):0:74
  15327. Option Declare
  15328. '++LotusScript Development Environment:2:5:(Forward):0:1
  15329. Declare Sub Exiting(Source As Field)
  15330. Declare Sub Entering(Source As Field)    
  15331. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15332. Dim timeOffset As Double
  15333. Dim dtStartDate As NotesDateTime
  15334. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15335. Private Sub BindEvents(Byval Objectname_ As String)
  15336.     Static Source As FIELD
  15337.     Set Source = Bind(Objectname_)
  15338.     On Event Exiting From Source Call Exiting
  15339.     On Event Entering From Source Call Entering
  15340. End Sub
  15341. '++LotusScript Development Environment:2:2:Exiting:1:12
  15342. Sub Exiting(Source As Field)
  15343.     Dim note As NotesDocument
  15344.     Dim dtStartTime As NotesDateTime
  15345.     Dim newDateTime As Variant
  15346.     Set note = uicsdoc.UIDocument.Document
  15347.     Call TIMEGetFromItem("StartDate", note, dtStartDate)
  15348.     Call TIMEGetFromItem("StartTime", note, dtStartTime)
  15349.     newDateTime =  Cdat(Datevalue( dtStartDate.lsLocalTime) + Timevalue(dtStartTime.lslocalTime) + timeOffset )
  15350.     Call note.ReplaceItemValue("EndDate", Datevalue(newDateTime))
  15351.     Call note.ReplaceItemValue("EndTime", Timevalue(newDateTime))
  15352.     Call uicsdoc.UIDocument.Reload
  15353. End Sub
  15354. '++LotusScript Development Environment:2:2:Entering:1:12
  15355. Sub Entering(Source As Field)    
  15356.     Dim note As NotesDocument
  15357.     Dim dtStartTime As NotesDateTime
  15358.     Dim dtEndDate As NotesDateTime
  15359.     Dim dtEndTime As NotesDateTime
  15360.     Set note = uicsdoc.UIDocument.Document
  15361.     Call TIMEGetFromItem("EndDate", note, dtEndDate)
  15362.     Call TIMEGetFromItem("StartDate", note, dtStartDate)
  15363.     Call TIMEGetFromItem("EndTime", note, dtEndTime)
  15364.     Call TIMEGetFromItem("StartTime", note, dtStartTime)
  15365.     timeOffset = (Datevalue( dtEndDate.lslocalTime) + Timevalue( dtEndTime.lsLocalTime)) - ( Datevalue( dtStartDate.lslocalTime)  +  Timevalue( dtStartTime.lsLocalTime))
  15366. End Sub
  15367. Lotus Product
  15368. OBJECT
  15369. ,p    }\
  15370. ,p    }p
  15371. '++LotusScript Development Environment:2:5:(Options):0:74
  15372. Option Declare
  15373. '++LotusScript Development Environment:2:5:(Forward):0:1
  15374. Declare Sub Entering(Source As Field)    
  15375. Declare Sub Exiting(Source As Field)
  15376. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15377. Dim timeOffset As Double
  15378. Dim dtStartDate As NotesDateTime
  15379. Dim dtStartTime As NotesDateTime
  15380. Dim dtEndTime As NotesDateTime
  15381. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15382. Private Sub BindEvents(Byval Objectname_ As String)
  15383.     Static Source As FIELD
  15384.     Set Source = Bind(Objectname_)
  15385.     On Event Entering From Source Call Entering
  15386.     On Event Exiting From Source Call Exiting
  15387. End Sub
  15388. '++LotusScript Development Environment:2:2:Entering:1:12
  15389. Sub Entering(Source As Field)    
  15390.     Dim note As NotesDocument
  15391.     Dim dtEndDate As NotesDateTime
  15392.     Set note = uicsdoc.UIDocument.Document
  15393.     Call TIMEGetFromItem("EndDate", note, dtEndDate)
  15394.     Call TIMEGetFromItem("StartDate", note, dtStartDate)
  15395.     Call TIMEGetFromItem("EndTime", note, dtEndTime)
  15396.     Call TIMEGetFromItem("StartTime", note, dtStartTime)
  15397.     timeOffset = (Datevalue( dtEndDate.lslocalTime) + Timevalue( dtEndTime.lsLocalTime)) - ( Datevalue( dtStartDate.lslocalTime)  +  Timevalue( dtStartTime.lsLocalTime))
  15398. End Sub
  15399. '++LotusScript Development Environment:2:2:Exiting:1:12
  15400. Sub Exiting(Source As Field)
  15401.     Dim note As NotesDocument
  15402.     Dim newDateTime As Variant
  15403.     Dim dtEndDate As NotesDateTime
  15404.     Set note = uicsdoc.UIDocument.Document
  15405.     Call TIMEGetFromItem("EndDate", note, dtEndDate)
  15406.     If( Datevalue( dtEndDate.lsLocalTime) + Timevalue( dtEndTime.lsLocalTime) < Datevalue( dtStartDate.lsLocalTime) + Timevalue( dtStartTime.lsLocalTime)) Then
  15407.         newDateTime =  Cdat(Datevalue( dtEndDate.lsLocalTime) + Timevalue(dtEndTime.lsLocalTime) - timeOffset )
  15408.         Call note.ReplaceItemValue("StartDate", Datevalue(newDateTime))
  15409.         Call note.ReplaceItemValue("StartTime", Timevalue(newDateTime))
  15410.         Call uicsdoc.UIDocument.Reload
  15411.     End If
  15412. End Sub
  15413. Lotus Product
  15414. -(!#,L!K
  15415. #O|!U
  15416. -("#K
  15417. #}l    #8P
  15418. ,p    }<
  15419. '++LotusScript Development Environment:2:5:(Options):0:74
  15420. Option Declare
  15421. '++LotusScript Development Environment:2:5:(Forward):0:1
  15422. Declare Sub Entering(Source As Field)    
  15423. Declare Sub Exiting(Source As Field)
  15424. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15425. Dim timeOffset As Double
  15426. Dim dtStartDate As NotesDateTime
  15427. Dim dtStartTime As NotesDateTime
  15428. Dim dtEndDate As NotesDateTime
  15429. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15430. Private Sub BindEvents(Byval Objectname_ As String)
  15431.     Static Source As FIELD
  15432.     Set Source = Bind(Objectname_)
  15433.     On Event Entering From Source Call Entering
  15434.     On Event Exiting From Source Call Exiting
  15435. End Sub
  15436. '++LotusScript Development Environment:2:2:Entering:1:12
  15437. Sub Entering(Source As Field)    
  15438.     Dim note As NotesDocument
  15439.     Dim dtEndTime As NotesDateTime
  15440.     Set note = uicsdoc.UIDocument.Document
  15441.     Call TIMEGetFromItem("EndDate", note, dtEndDate)
  15442.     Call TIMEGetFromItem("StartDate", note, dtStartDate)
  15443.     Call TIMEGetFromItem("EndTime", note, dtEndTime)
  15444.     Call TIMEGetFromItem("StartTime", note, dtStartTime)
  15445.     timeOffset = (Datevalue( dtEndDate.lslocalTime) + Timevalue( dtEndTime.lsLocalTime)) - ( Datevalue( dtStartDate.lslocalTime)  +  Timevalue( dtStartTime.lsLocalTime))
  15446. End Sub
  15447. '++LotusScript Development Environment:2:2:Exiting:1:12
  15448. Sub Exiting(Source As Field)
  15449.     Dim note As NotesDocument
  15450.     Dim newDateTime As Variant
  15451.     Dim dtEndTime As NotesDateTime
  15452.     Set note = uicsdoc.UIDocument.Document
  15453.     Call TIMEGetFromItem("EndTime", note, dtEndTime)
  15454.     If( Datevalue( dtEndDate.lsLocalTime) + Timevalue( dtEndTime.lsLocalTime) < Datevalue( dtStartDate.lsLocalTime) + Timevalue( dtStartTime.lsLocalTime)) Then
  15455.         newDateTime =  Cdat(Datevalue( dtEndDate.lsLocalTime) + Timevalue(dtEndTime.lsLocalTime) - timeOffset )
  15456.         Call note.ReplaceItemValue("StartDate", Datevalue(newDateTime))
  15457.         Call note.ReplaceItemValue("StartTime", Timevalue(newDateTime))
  15458.         Call uicsdoc.UIDocument.Reload
  15459.     End If
  15460. End Sub
  15461. Lotus Product
  15462. OBJECT
  15463. ,p    }<
  15464. Notes
  15465. (wCSItems)
  15466.     3S4S
  15467. Appointment
  15468. UserType
  15469. Notes
  15470. CSDocType
  15471.     1S2S5S6S8S
  15472. DefType
  15473. UserType
  15474. UserType
  15475. CalendarProfile
  15476. CalEntryType
  15477.     0R1S2S9S11S
  15478. Notes
  15479. CSDocType
  15480.     0R3S4S6S13S
  15481. DefType
  15482. DefType
  15483. tmpSpecialEvent
  15484. tmpSpecialEventType
  15485.     3S4S6S8S
  15486. AppointmentType
  15487. tmpOwner
  15488. Chair
  15489.     8S11S12S21S22S
  15490. tmpOwner
  15491. Chair
  15492.     8S11S12S21S22S
  15493. tmpOwnerHW
  15494. tmpDoNotProcess
  15495. tmpOwner
  15496. BlindCopyTo
  15497.     3S4S6S8S17S18S28S
  15498. tmpDoNotProcess
  15499. tmpOwner
  15500. BlindCopyTo
  15501.     3S4S6S8S17S18S28StmpNoActionBar
  15502. $ExpandGroups
  15503. AppointmentType
  15504.     1S2S
  15505. AppointmentType
  15506.     3S4S
  15507. tmpSpecialEvent
  15508. Special Entry|1
  15509. tmpSpecialEvent
  15510.     1S2S
  15511. AppointmentType
  15512. AppointmentType
  15513.     3S4S10S12S
  15514. tmpSpecialEventType
  15515. Anniversary|1Reminder|4Multi-Day Event|2
  15516. tmpSpecialEvent
  15517.     1S2S
  15518. AppointmentType
  15519. AppointmentType
  15520.     3S4S10S12S
  15521. tmpSpecialEventTypeRd
  15522. Anniversary|1Reminder|4Multi-Day Event|2
  15523. AppointmentType
  15524.     1S2S
  15525. DialogButton Address.GIF|Address
  15526. SendTo
  15527.     0S0E
  15528.     Invite:
  15529. AppointmentType
  15530.     1S2S
  15531. SendToz
  15532. size=70
  15533.     Subject:
  15534. Subject
  15535. size=40
  15536.     Begins:
  15537.     Start Date:
  15538. .,$ //:
  15539. Notes
  15540. StartDate
  15541. StartDateTime
  15542. StartDateTime
  15543. StartDate
  15544.     11S12S14S23S26S
  15545. xxFailed
  15546. You must enter a value for the Start Date.
  15547. StartDate
  15548. xxFailed{
  15549.     0R3S4S6S11SStartDate
  15550.     Start Time:
  15551. AppointmentType
  15552.     1S2S
  15553. .,$ //:
  15554. Notes
  15555. StartTime
  15556. StartDateTime
  15557. StartDateTime
  15558. StartTime
  15559.     11S12S14S23S26S
  15560. xxFailed
  15561. You must enter a value for the Start Time.
  15562. StartTime
  15563. AppointmentType
  15564. AppointmentType
  15565. xxFailed{
  15566.     0R3S4S5S6S7S8S9S10S11S12S14S19SStartTime
  15567. Repeats
  15568. OrgRepeat
  15569. Repeats
  15570.     7S14S16S19SRepeats
  15571. Recurring entry|1
  15572. Repeats
  15573.     1S2S
  15574. '++LotusScript Development Environment:2:5:(Options):0:66
  15575. '++LotusScript Development Environment:2:5:(Forward):0:1
  15576. Declare Sub Click(Source As Button)
  15577. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15578. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15579. Private Sub BindEvents(Byval Objectname_ As String)
  15580. Static Source As BUTTON
  15581. Set Source = Bind(Objectname_)
  15582. On Event Click From Source Call Click
  15583. End Sub
  15584. '++LotusScript Development Environment:2:2:Click:1:12
  15585. Sub Click(Source As Button)
  15586.     Call uicsdoc.UIObject.RepeatDialog()
  15587. End Sub
  15588. Lotus Product$
  15589. V0.03\
  15590.  #~,H
  15591. 0,<H}
  15592. 1,lH#
  15593. 0,<H}H$#
  15594. 1,lH#
  15595. 0,<H}d$#
  15596. 1,lH#
  15597. 0}H$}
  15598. 0}d$}
  15599. 2-@I##
  15600. 2-dI##
  15601. New Button
  15602. Need a newer version of Notes to execute this button.
  15603.     0S0E
  15604.     Settings...
  15605. New Button
  15606. Need a newer version of Notes to execute this button.
  15607.     0S0E
  15608. displayDialog("(RepeatForm)", "","", "Repeat Options",500,500)
  15609.     Repeats
  15610.     Ends:
  15611.     End Date:
  15612. .,$ //:
  15613. Notes
  15614. EndDate
  15615. EndDateTime
  15616. EndDateTime
  15617. EndDate
  15618.     11S12S14S23S26S
  15619. Notes
  15620. EndDate
  15621. StartDate
  15622. StartDate
  15623. EndDate
  15624. enddate
  15625.     8S12S13S18S
  15626. xxFailed
  15627. You must enter a value for the End Date.
  15628. EndDate
  15629. AppointmentType
  15630. AppointmentType
  15631. xxFailed{
  15632.     0R3S4S5S6S7S8S9S10S11S12S14S19SEndDate
  15633. AppointmentType
  15634.     1S2S
  15635.     End Time:
  15636. .,$ //:
  15637. Notes
  15638. EndTime
  15639. EndDateTime
  15640. EndDateTime
  15641. EndTime
  15642.     11S12S14S23S
  15643. Notes
  15644. EndDate
  15645. StartDate
  15646. EndTime
  15647. StartTime
  15648. StartTime
  15649. EndTime
  15650. endtime
  15651.     8S12S13S17S18S22S23S28S30S32S34S35S36S38S40S41S42S45S
  15652. xxFailed
  15653. You must enter a value for the End Time.
  15654. EndTime
  15655. AppointmentType
  15656. AppointmentType
  15657. AppointmentType
  15658. xxFailed{
  15659.     0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTime
  15660.     Chair:
  15661. Notes
  15662. Chair
  15663. Chair
  15664. Principal
  15665. Principal
  15666. CalendarProfile
  15667. Owner
  15668.     13S15S22S29S
  15669. tmpChair
  15670. tmpWasMailedY
  15671. principal
  15672.     4S5S15S16S
  15673.     Sent by:
  15674. tmpWasMailedY
  15675. principal
  15676.     4S5S15S16S
  15677. tmpSentBy
  15678. tmpWasMailedY
  15679. principal
  15680.     4S5S15S16S
  15681. tmpWasMailedY
  15682. principal
  15683.     4S5S15S16S
  15684. tmpWasMailedY
  15685. principal
  15686.     4S5S15S16S
  15687. Basics
  15688. tmpWasMailedY
  15689.     0S0E
  15690.     Existing Requests
  15691. tmpWasMailedY
  15692.     0S0E
  15693. tmpWasMailedY
  15694.     0S0E
  15695. tmpWasMailedY
  15696.     0S0E
  15697.     Existing Invitees
  15698. tmpWasMailedY
  15699.     0S0E
  15700.     Rooms:
  15701. Room^
  15702.     0S0E
  15703. tmpRooms
  15704. tmpWasMailedY
  15705. tmpownerhw
  15706.     4S5S6S7S
  15707. '++LotusScript Development Environment:2:5:(Options):0:66
  15708. '++LotusScript Development Environment:2:5:(Forward):0:1
  15709. Declare Sub Click(Source As Button)
  15710. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15711. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15712. Private Sub BindEvents(Byval Objectname_ As String)
  15713. Static Source As BUTTON
  15714. Set Source = Bind(Objectname_)
  15715. On Event Click From Source Call Click
  15716. End Sub
  15717. '++LotusScript Development Environment:2:2:Click:1:12
  15718. Sub Click(Source As Button)
  15719.     Call uicsdoc.UIObject.RemoveRoomsResources(False)
  15720. End Sub
  15721. Lotus Product
  15722. #V0.0
  15723. New Button
  15724. Need a newer version of Notes to execute this button.
  15725.     0S0E
  15726.     Remove...
  15727. RequiredAttendees
  15728.     0S0E
  15729. tmpRequired
  15730.     Resources:
  15731. RequiredResources
  15732.     0S0E
  15733. tmpResources
  15734. '++LotusScript Development Environment:2:5:(Options):0:66
  15735. '++LotusScript Development Environment:2:5:(Forward):0:1
  15736. Declare Sub Click(Source As Button)
  15737. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15738. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15739. Private Sub BindEvents(Byval Objectname_ As String)
  15740. Static Source As BUTTON
  15741. Set Source = Bind(Objectname_)
  15742. On Event Click From Source Call Click
  15743. End Sub
  15744. '++LotusScript Development Environment:2:2:Click:1:12
  15745. Sub Click(Source As Button)
  15746.     Call uicsdoc.UIObject.RemoveRoomsResources(True)
  15747. End Sub
  15748. Lotus Product
  15749. OBJECT
  15750. New Button
  15751. Need a newer version of Notes to execute this button.
  15752.     0S0E
  15753.     Remove...
  15754. OptionalAttendees
  15755.     0S0E
  15756. tmpOptional
  15757.     bcc:
  15758. FYIAttendees^
  15759.     0S0E
  15760. tmpFYI
  15761. '++LotusScript Development Environment:2:5:(Options):0:66
  15762. '++LotusScript Development Environment:2:5:(Forward):0:1
  15763. Declare Sub Click(Source As Button)
  15764. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15765. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15766. Private Sub BindEvents(Byval Objectname_ As String)
  15767. Static Source As BUTTON
  15768. Set Source = Bind(Objectname_)
  15769. On Event Click From Source Call Click
  15770. End Sub
  15771. '++LotusScript Development Environment:2:2:Click:1:12
  15772. Sub Click(Source As Button)
  15773.     Call uicsdoc.UIObject.RemoveParticipants()
  15774. End Sub
  15775. Lotus Product
  15776. OBJECT
  15777. New Button
  15778. Need a newer version of Notes to execute this button.
  15779.     0S0E
  15780.     Remove...
  15781. AppointmentType
  15782. tmpOwnerHW
  15783.     1S2S3S4S5S6S
  15784.     Reservations
  15785. AppointmentType
  15786. tmpOwnerHW
  15787.     1S2S3S4S5S6S
  15788. AppointmentType
  15789. tmpOwnerHW
  15790.     1S2S3S4S5S6S
  15791.     Invitees
  15792. AppointmentType
  15793. tmpOwnerHW
  15794.     1S2S3S4S5S6S
  15795. rooms.GIF
  15796. RoomPicker
  15797. RoomsToReserve
  15798.     1S2S
  15799. RoomToReserve
  15800. RoomToReserve
  15801. RoomsToReserve
  15802.     0R1S2S3S
  15803.     Rooms:
  15804. RoomToReserve
  15805. size=70
  15806. DialogButton Address.GIF|Address
  15807. CopyTo
  15808.     0S0E
  15809. CopyToz
  15810. size=70
  15811. rooms.GIF
  15812. RoomPicker_1
  15813. ResourcesToReserve
  15814.     1S2S
  15815. Resources
  15816. Resources
  15817. ResourcesToReserve
  15818.     0R1S2S3S
  15819.     Resources:
  15820. Resources
  15821. size=70
  15822. DialogButton Address.GIF|Address
  15823.     0S0E
  15824.     bcc:
  15825. BlindCopyTo
  15826. size=70
  15827.     Misc
  15828.     Options
  15829.     Location:
  15830. Location
  15831. BookFreeTime
  15832. Pencil In|1
  15833.     (time will appear free to others)
  15834.     Categorize:
  15835. Categories
  15836. xxNotesCats
  15837. Holiday|H
  15838. Vacation|V
  15839. Projects|P
  15840. Clients|C
  15841. Phone Calls|PC
  15842. Travel|T
  15843.     1S2S
  15844. xxNotesCats
  15845. CalendarProfile
  15846. UserCategories
  15847. OrgConfidential
  15848. Mark Private|1
  15849.     (others cannot see any details about this event)
  15850. AlarmsY
  15851. $Alarmh
  15852. Alarms
  15853.     7S14S16S19SAlarms
  15854. Notify me|1
  15855. Alarms
  15856.     1S2S
  15857. '++LotusScript Development Environment:2:5:(Options):0:66
  15858. '++LotusScript Development Environment:2:5:(Forward):0:1
  15859. Declare Sub Click(Source As Button)
  15860. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15861. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15862. Private Sub BindEvents(Byval Objectname_ As String)
  15863. Static Source As BUTTON
  15864. Set Source = Bind(Objectname_)
  15865. On Event Click From Source Call Click
  15866. End Sub
  15867. '++LotusScript Development Environment:2:2:Click:1:12
  15868. Sub Click(Source As Button)
  15869.     Call uicsdoc.UIObject.AlarmDialog()
  15870. End Sub
  15871. Lotus Product
  15872. #V0.0
  15873. New Button
  15874. Need a newer version of Notes to execute this button.
  15875.     0S0E
  15876.     Settings...
  15877. Details
  15878. entrybg
  15879. Categori_zeK
  15880. _Edit Document
  15881. Send Docu_ment
  15882. _Forward
  15883. _Move To Folder...
  15884. _Remove From FolderK
  15885.     4S11S16S19S
  15886. act_ok.GIF|act_CSOK?
  15887. Discard ChangesKF
  15888. SaveOptions
  15889.     1S2S3S
  15890. act_DELETE.GIF|act_DELETE?
  15891. Delivery Options...KP
  15892. (C&S DeliveryOptions)
  15893. tmpOwnerHW
  15894. AppointmentType
  15895.     1S2S3S4S5S6S
  15896. Scheduler\Check all schedules...
  15897. RequiredList
  15898. RequiredAttendees
  15899. SendTo
  15900. Chair
  15901.     1S2S
  15902. OptionalList
  15903. OptionalAttendees
  15904. CopyTo
  15905.     0R1S2S
  15906. RoomList
  15907. RoomToReserve
  15908.     0R1S2S
  15909. ResourceList
  15910. RequiredResources
  15911. Resources
  15912.     0R1S2S
  15913. tmpFTSStartDateTime
  15914. StartDate
  15915. StartTime
  15916.     0RRR1S2S3S11S12S13S14S
  15917. tmpFTSEndDateTime
  15918. EndDate
  15919. EndTime
  15920.     0R1S2S3S11S12S13S14S
  15921. RequiredList
  15922. OptionalList
  15923. RoomList
  15924. ResourceList
  15925. Uninvited
  15926. tmpFTSStartDateTime
  15927. tmpFTSEndDateTime
  15928.     0RR20RTTT25S27S
  15929. StartDate
  15930. tmpFTSStartDateTime
  15931.     0R1S2S3S
  15932. StartTime
  15933. tmpFTSStartDateTime
  15934.     0R1S2S3S
  15935. EndDate
  15936. tmpFTSEndDateTime
  15937.     0R1S2S3S
  15938. EndTime
  15939. tmpFTSEndDateTime
  15940.     0R1S2S3S
  15941. tmpOwnerHW
  15942. AppointmentType
  15943.     1S2S3S4S5S6S
  15944. Scheduler\Find Room(s)...
  15945. tmpResourceType
  15946. tmpResourceName
  15947.     0R1S
  15948. tmpResourceNameSingle
  15949.     0R1S
  15950. tmpResourceNameMulti
  15951.     0R1S
  15952. tmpResourceNameBlank
  15953.     0R1S
  15954. tmpAddressBooks
  15955.     0R1S
  15956. (Room Resource Scheduler)
  15957. Scheduler
  15958. tmpOwnerHW
  15959. AppointmentType
  15960.     1S2S3S4S5S6S
  15961. Scheduler\Find Resource(s)...
  15962. tmpResourceType
  15963. tmpResourceName
  15964.     0R1S
  15965. tmpResourceNameSingle
  15966.     0R1S
  15967. tmpResourceNameMulti
  15968.     0R1S
  15969. tmpResourceNameBlank
  15970.     0R1S
  15971. tmpAddressBooks
  15972.     0R1S
  15973. (Room Resource Scheduler)
  15974. Scheduler
  15975. tmpOwnerHW
  15976. AppointmentType
  15977.     1S2S3S4S5S6S
  15978. Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:66
  15979. '++LotusScript Development Environment:2:5:(Forward):0:1
  15980. Declare Sub Click(Source As Button)
  15981. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15982. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15983. Private Sub BindEvents(Byval Objectname_ As String)
  15984.     Static Source As BUTTON
  15985.     Set Source = Bind(Objectname_)
  15986.     On Event Click From Source Call Click
  15987. End Sub
  15988. '++LotusScript Development Environment:2:2:Click:1:12
  15989. Sub Click(Source As Button)
  15990.     Call uicsdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)", 0)
  15991. End Sub
  15992. tmpWasMailed
  15993. tmpOwnerHW
  15994. AppointmentType
  15995.     4S5S6S7S8S9S10S11S12S13S
  15996. act_csowneractions.GIF|act_CSOWNERACTIONS?
  15997. Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:66
  15998. '++LotusScript Development Environment:2:5:(Forward):0:1
  15999. Declare Sub Click(Source As Button)
  16000. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16001. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16002. Private Sub BindEvents(Byval Objectname_ As String)
  16003.     Static Source As BUTTON
  16004.     Set Source = Bind(Objectname_)
  16005.     On Event Click From Source Call Click
  16006. End Sub
  16007. '++LotusScript Development Environment:2:2:Click:1:12
  16008. Sub Click(Source As Button)
  16009.     Call uicsdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 0)
  16010. End Sub
  16011. tmpWasMailed
  16012. tmpOwnerHW
  16013. AppointmentType
  16014.     4S5S6S7S8S9S11S12S13S
  16015. Actions\ConfirmK'++LotusScript Development Environment:2:5:(Options):0:66
  16016. '++LotusScript Development Environment:2:5:(Forward):0:1
  16017. Declare Sub Click(Source As Button)
  16018. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16019. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16020. Private Sub BindEvents(Byval Objectname_ As String)
  16021. Static Source As BUTTON
  16022. Set Source = Bind(Objectname_)
  16023. On Event Click From Source Call Click
  16024. End Sub
  16025. '++LotusScript Development Environment:2:2:Click:1:12
  16026. Sub Click(Source As Button)
  16027.     Dim uievent As UIEventObject
  16028.     Set uievent = uicsdoc.uiobject
  16029.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 1) Then
  16030.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  16031.     End If
  16032. End Sub
  16033. tmpWasMailed
  16034. tmpOwnerHW
  16035. AppointmentType
  16036.     4S5S6S7S8S9S11S12S13S
  16037. Actions\View Participant StatusK'++LotusScript Development Environment:2:5:(Options):0:66
  16038. '++LotusScript Development Environment:2:5:(Forward):0:1
  16039. Declare Sub Click(Source As Button)
  16040. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16041. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16042. Private Sub BindEvents(Byval Objectname_ As String)
  16043. Static Source As BUTTON
  16044. Set Source = Bind(Objectname_)
  16045. On Event Click From Source Call Click
  16046. End Sub
  16047. '++LotusScript Development Environment:2:2:Click:1:12
  16048. Sub Click(Source As Button)
  16049.     Call uicsdoc.uiobject.ViewParticipantStatus()
  16050. End Sub
  16051. tmpWasMailed
  16052. tmpOwnerHW
  16053. AppointmentType
  16054.     4S5S6S7S8S9S11S12S13S
  16055. Actions\Send Memo to Participants
  16056. '++LotusScript Development Environment:2:5:(Options):0:66
  16057. '++LotusScript Development Environment:2:5:(Forward):0:1
  16058. Declare Sub Click(Source As Button)
  16059. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16060. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16061. Private Sub BindEvents(Byval Objectname_ As String)
  16062. Static Source As BUTTON
  16063. Set Source = Bind(Objectname_)
  16064. On Event Click From Source Call Click
  16065. End Sub
  16066. '++LotusScript Development Environment:2:2:Click:1:12
  16067. Sub Click(Source As Button)
  16068.     Call uicsdoc.uiobject.creatememo(True)
  16069. End Sub
  16070. tmpWasMailed
  16071. tmpOwnerHW
  16072. AppointmentType
  16073.     4S5S6S7S8S9S11S12S13S
  16074. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16075. '++LotusScript Development Environment:2:5:(Forward):0:1
  16076. Declare Sub Click(Source As Button)
  16077. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16078. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16079. Private Sub BindEvents(Byval Objectname_ As String)
  16080.     Static Source As BUTTON
  16081.     Set Source = Bind(Objectname_)
  16082.     On Event Click From Source Call Click
  16083. End Sub
  16084. '++LotusScript Development Environment:2:2:Click:1:12
  16085. Sub Click(Source As Button)
  16086.     uicsdoc.UIObject.SendComments = False
  16087.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16088. End Sub
  16089. tmpOwnerHW
  16090. tmpNoActionBar
  16091. NoticeType
  16092. Broadcast
  16093.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16094. Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
  16095. '++LotusScript Development Environment:2:5:(Forward):0:1
  16096. Declare Sub Click(Source As Button)
  16097. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16098. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16099. Private Sub BindEvents(Byval Objectname_ As String)
  16100.     Static Source As BUTTON
  16101.     Set Source = Bind(Objectname_)
  16102.     On Event Click From Source Call Click
  16103. End Sub
  16104. '++LotusScript Development Environment:2:2:Click:1:12
  16105. Sub Click(Source As Button)
  16106.     uicsdoc.UIObject.SendComments = False
  16107.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 1)
  16108. End Sub
  16109. tmpOwnerHW
  16110. tmpNoActionBar
  16111. NoticeType
  16112. Broadcast
  16113.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16114. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  16115. '++LotusScript Development Environment:2:5:(Forward):0:1
  16116. Declare Sub Click(Source As Button)
  16117. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16118. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16119. Private Sub BindEvents(Byval Objectname_ As String)
  16120.     Static Source As BUTTON
  16121.     Set Source = Bind(Objectname_)
  16122.     On Event Click From Source Call Click
  16123. End Sub
  16124. '++LotusScript Development Environment:2:2:Click:1:12
  16125. Sub Click(Source As Button)
  16126.     uicsdoc.UIObject.SendComments = False
  16127.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 1)
  16128. End Sub
  16129. tmpOwnerHW
  16130. tmpNoActionBar
  16131. Broadcast
  16132. PreventDelegate
  16133.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  16134. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  16135. '++LotusScript Development Environment:2:5:(Forward):0:1
  16136. Declare Sub Click(Source As Button)
  16137. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16138. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16139. Private Sub BindEvents(Byval Objectname_ As String)
  16140.     Static Source As BUTTON
  16141.     Set Source = Bind(Objectname_)
  16142.     On Event Click From Source Call Click
  16143. End Sub
  16144. '++LotusScript Development Environment:2:2:Click:1:12
  16145. Sub Click(Source As Button)
  16146.     uicsdoc.UIObject.SendComments = False
  16147.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 1)
  16148. End Sub
  16149. tmpOwnerHW
  16150. tmpNoActionBar
  16151. Broadcast
  16152. PreventCounter
  16153.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  16154. Respond\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16155. '++LotusScript Development Environment:2:5:(Forward):0:1
  16156. Declare Sub Click(Source As Button)
  16157. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16158. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16159. Private Sub BindEvents(Byval Objectname_ As String)
  16160.     Static Source As BUTTON
  16161.     Set Source = Bind(Objectname_)
  16162.     On Event Click From Source Call Click
  16163. End Sub
  16164. '++LotusScript Development Environment:2:2:Click:1:12
  16165. Sub Click(Source As Button)
  16166.     Call uicsdoc.UIDocument.Document.replaceitemvalue("tmpPencilIn","1")
  16167.     uicsdoc.UIObject.SendComments = False
  16168.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16169. End Sub
  16170. tmpOwnerHW
  16171. tmpNoActionBar
  16172. Broadcast
  16173.     1S2S3S4S5S6S7S8S9S10S
  16174. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16175. '++LotusScript Development Environment:2:5:(Forward):0:1
  16176. Declare Sub Click(Source As Button)
  16177. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16178. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16179. Private Sub BindEvents(Byval Objectname_ As String)
  16180.     Static Source As BUTTON
  16181.     Set Source = Bind(Objectname_)
  16182.     On Event Click From Source Call Click
  16183. End Sub
  16184. '++LotusScript Development Environment:2:2:Click:1:12
  16185. Sub Click(Source As Button)
  16186.     uicsdoc.UIObject.SendComments = True
  16187.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16188. End Sub
  16189. tmpOwnerHW
  16190. tmpNoActionBar
  16191. NoticeType
  16192. Broadcast
  16193.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16194. Respond with Comments\Decline
  16195. '++LotusScript Development Environment:2:5:(Options):0:66
  16196. '++LotusScript Development Environment:2:5:(Forward):0:1
  16197. Declare Sub Click(Source As Button)
  16198. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16199. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16200. Private Sub BindEvents(Byval Objectname_ As String)
  16201.     Static Source As BUTTON
  16202.     Set Source = Bind(Objectname_)
  16203.     On Event Click From Source Call Click
  16204. End Sub
  16205. '++LotusScript Development Environment:2:2:Click:1:12
  16206. Sub Click(Source As Button)
  16207.     uicsdoc.UIObject.SendComments = True
  16208.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 1)
  16209. End Sub
  16210. tmpOwnerHW
  16211. tmpNoActionBar
  16212. NoticeType
  16213. Broadcast
  16214.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16215. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  16216. '++LotusScript Development Environment:2:5:(Forward):0:1
  16217. Declare Sub Click(Source As Button)
  16218. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16219. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16220. Private Sub BindEvents(Byval Objectname_ As String)
  16221.     Static Source As BUTTON
  16222.     Set Source = Bind(Objectname_)
  16223.     On Event Click From Source Call Click
  16224. End Sub
  16225. '++LotusScript Development Environment:2:2:Click:1:12
  16226. Sub Click(Source As Button)
  16227.     uicsdoc.UIObject.SendComments = True
  16228.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 1)
  16229. End Sub
  16230. tmpOwnerHW
  16231. tmpNoActionBar
  16232. Broadcast
  16233. PreventDelegate
  16234.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  16235. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  16236. '++LotusScript Development Environment:2:5:(Forward):0:1
  16237. Declare Sub Click(Source As Button)
  16238. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16239. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16240. Private Sub BindEvents(Byval Objectname_ As String)
  16241.     Static Source As BUTTON
  16242.     Set Source = Bind(Objectname_)
  16243.     On Event Click From Source Call Click
  16244. End Sub
  16245. '++LotusScript Development Environment:2:2:Click:1:12
  16246. Sub Click(Source As Button)
  16247.     uicsdoc.UIObject.SendComments = True
  16248.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 1)
  16249. End Sub
  16250. tmpOwnerHW
  16251. tmpNoActionBar
  16252. Broadcast
  16253. PreventCounter
  16254.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  16255. Respond with Comments\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16256. '++LotusScript Development Environment:2:5:(Forward):0:1
  16257. Declare Sub Click(Source As Button)
  16258. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16259. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16260. Private Sub BindEvents(Byval Objectname_ As String)
  16261.     Static Source As BUTTON
  16262.     Set Source = Bind(Objectname_)
  16263.     On Event Click From Source Call Click
  16264. End Sub
  16265. '++LotusScript Development Environment:2:2:Click:1:12
  16266. Sub Click(Source As Button)
  16267.     Call uicsdoc.UIDocument.Document.replaceitemvalue("tmpPencilIn","1")
  16268.     uicsdoc.UIObject.SendComments = True
  16269.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16270. End Sub
  16271. tmpOwnerHW
  16272. tmpNoActionBar
  16273. Broadcast
  16274.     1S2S3S4S5S6S7S8S9S10S
  16275. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  16276. '++LotusScript Development Environment:2:5:(Forward):0:1
  16277. Declare Sub Click(Source As Button)
  16278. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16279. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16280. Private Sub BindEvents(Byval Objectname_ As String)
  16281.     Static Source As BUTTON
  16282.     Set Source = Bind(Objectname_)
  16283.     On Event Click From Source Call Click
  16284. End Sub
  16285. '++LotusScript Development Environment:2:2:Click:1:12
  16286. Sub Click(Source As Button)
  16287.     Dim uievent As UIEventObject
  16288.     Set uievent = uicsdoc.UIObject
  16289.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
  16290.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  16291.     End If
  16292. End Sub
  16293. tmpOwnerHW
  16294.     1S2S
  16295. Scheduler\Check all Schedules...
  16296. var pathname = (window.location.pathname);
  16297. if (navigator.appName =='Netscape') {
  16298. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=no,screenX=100,screenY=100,width=840,height=540');
  16299.     } else {
  16300. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=no,top=120,left=100,width=700,height=520');
  16301. Scheduler\Find Room(s)...
  16302. var pathname = (window.location.pathname);
  16303. if (navigator.appName =='Netscape') {
  16304. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=240');
  16305.     } else {
  16306. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,top=120,left=100,width=600,height=220');
  16307. Scheduler\Find Resource(s)...
  16308. var pathname = (window.location.pathname);
  16309. if (navigator.appName =='Netscape') {
  16310. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=240');
  16311.     } else {
  16312. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,top=120,left=100,width=600,height=220');
  16313. Address...
  16314. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  16315. var pathname = (window.location.pathname);
  16316. if (navigator.appName =='Netscape') {
  16317. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  16318.     } else {
  16319. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  16320. Delete
  16321.     1S10S14S16S23S
  16322.     0R5S
  16323. path"
  16324. /wDelete?OpenAgent&
  16325. UNID"
  16326. act_DELETE.GIF|act_DELETE?
  16327. Inbox
  16328.     1S2S
  16329. path"
  16330. /MailFS?OpenFrameset"
  16331.     0R3S4S5S6S
  16332. act_NEWMAIL.GIF|act_NEWMAIL?
  16333. Next 
  16334.     0S0E
  16335. Previous 
  16336.     0S0E
  16337. Categori_zeK
  16338. _Edit Document
  16339. Send Docu_ment
  16340. _Forward
  16341. _Move To Folder...
  16342. _Remove From FolderK
  16343.     4S11S16S19S
  16344. Discard ChangesKF
  16345. SaveOptions
  16346.     1S2S3S
  16347. Delivery Options...KP
  16348. (C&S DeliveryOptions)
  16349. tmpOwnerHW
  16350. AppointmentType
  16351.     1S2S3S4S5S6S
  16352. Scheduler\Check all schedules...
  16353. RequiredList
  16354. RequiredAttendees
  16355. SendTo
  16356. Chair
  16357.     1S2S
  16358. OptionalList
  16359. OptionalAttendees
  16360. CopyTo
  16361.     0R1S2S
  16362. RoomList
  16363. RoomToReserve
  16364.     0R1S2S
  16365. ResourceList
  16366. RequiredResources
  16367. Resources
  16368.     0R1S2S
  16369. tmpFTSStartDateTime
  16370. StartDate
  16371. StartTime
  16372.     0RRR1S2S3S11S12S13S14S
  16373. tmpFTSEndDateTime
  16374. EndDate
  16375. EndTime
  16376.     0R1S2S3S11S12S13S14S
  16377. RequiredList
  16378. OptionalList
  16379. RoomList
  16380. ResourceList
  16381. Uninvited
  16382. tmpFTSStartDateTime
  16383. tmpFTSEndDateTime
  16384.     0RR20RTTT25S27S
  16385. StartDate
  16386. tmpFTSStartDateTime
  16387.     0R1S2S3S
  16388. StartTime
  16389. tmpFTSStartDateTime
  16390.     0R1S2S3S
  16391. EndDate
  16392. tmpFTSEndDateTime
  16393.     0R1S2S3S
  16394. EndTime
  16395. tmpFTSEndDateTime
  16396.     0R1S2S3S
  16397. tmpOwnerHW
  16398. AppointmentType
  16399.     1S2S3S4S5S6S
  16400. Scheduler\Find Room(s)...
  16401. tmpResourceType
  16402. tmpResourceName
  16403.     0R1S
  16404. tmpResourceNameSingle
  16405.     0R1S
  16406. tmpResourceNameMulti
  16407.     0R1S
  16408. tmpResourceNameBlank
  16409.     0R1S
  16410. tmpAddressBooks
  16411.     0R1S
  16412. (Room Resource Scheduler)
  16413. Scheduler
  16414. tmpOwnerHW
  16415. AppointmentType
  16416.     1S2S3S4S5S6S
  16417. Scheduler\Find Resource(s)...
  16418. tmpResourceType
  16419. tmpResourceName
  16420.     0R1S
  16421. tmpResourceNameSingle
  16422.     0R1S
  16423. tmpResourceNameMulti
  16424.     0R1S
  16425. tmpResourceNameBlank
  16426.     0R1S
  16427. tmpAddressBooks
  16428.     0R1S
  16429. (Room Resource Scheduler)
  16430. Scheduler
  16431. tmpOwnerHW
  16432. AppointmentType
  16433.     1S2S3S4S5S6S
  16434. Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:66
  16435. '++LotusScript Development Environment:2:5:(Forward):0:1
  16436. Declare Sub Click(Source As Button)
  16437. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16438. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16439. Private Sub BindEvents(Byval Objectname_ As String)
  16440.     Static Source As BUTTON
  16441.     Set Source = Bind(Objectname_)
  16442.     On Event Click From Source Call Click
  16443. End Sub
  16444. '++LotusScript Development Environment:2:2:Click:1:12
  16445. Sub Click(Source As Button)
  16446.     Call uicsdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)", 0)
  16447. End Sub
  16448. tmpWasMailed
  16449. tmpOwnerHW
  16450. AppointmentType
  16451.     4S5S6S7S8S9S10S11S12S13S
  16452. Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:66
  16453. '++LotusScript Development Environment:2:5:(Forward):0:1
  16454. Declare Sub Click(Source As Button)
  16455. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16456. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16457. Private Sub BindEvents(Byval Objectname_ As String)
  16458.     Static Source As BUTTON
  16459.     Set Source = Bind(Objectname_)
  16460.     On Event Click From Source Call Click
  16461. End Sub
  16462. '++LotusScript Development Environment:2:2:Click:1:12
  16463. Sub Click(Source As Button)
  16464.     Call uicsdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 0)
  16465. End Sub
  16466. tmpWasMailed
  16467. tmpOwnerHW
  16468. AppointmentType
  16469.     4S5S6S7S8S9S11S12S13S
  16470. Actions\ConfirmK'++LotusScript Development Environment:2:5:(Options):0:66
  16471. '++LotusScript Development Environment:2:5:(Forward):0:1
  16472. Declare Sub Click(Source As Button)
  16473. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16474. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16475. Private Sub BindEvents(Byval Objectname_ As String)
  16476. Static Source As BUTTON
  16477. Set Source = Bind(Objectname_)
  16478. On Event Click From Source Call Click
  16479. End Sub
  16480. '++LotusScript Development Environment:2:2:Click:1:12
  16481. Sub Click(Source As Button)
  16482.     Dim uievent As UIEventObject
  16483.     Set uievent = uicsdoc.uiobject
  16484.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 1) Then
  16485.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  16486.     End If
  16487. End Sub
  16488. tmpWasMailed
  16489. tmpOwnerHW
  16490. AppointmentType
  16491.     4S5S6S7S8S9S11S12S13S
  16492. Actions\View Participant StatusK'++LotusScript Development Environment:2:5:(Options):0:66
  16493. '++LotusScript Development Environment:2:5:(Forward):0:1
  16494. Declare Sub Click(Source As Button)
  16495. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16496. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16497. Private Sub BindEvents(Byval Objectname_ As String)
  16498. Static Source As BUTTON
  16499. Set Source = Bind(Objectname_)
  16500. On Event Click From Source Call Click
  16501. End Sub
  16502. '++LotusScript Development Environment:2:2:Click:1:12
  16503. Sub Click(Source As Button)
  16504.     Call uicsdoc.uiobject.ViewParticipantStatus()
  16505. End Sub
  16506. tmpWasMailed
  16507. tmpOwnerHW
  16508. AppointmentType
  16509.     4S5S6S7S8S9S11S12S13S
  16510. Actions\Send Memo to Participants
  16511. '++LotusScript Development Environment:2:5:(Options):0:66
  16512. '++LotusScript Development Environment:2:5:(Forward):0:1
  16513. Declare Sub Click(Source As Button)
  16514. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16515. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16516. Private Sub BindEvents(Byval Objectname_ As String)
  16517. Static Source As BUTTON
  16518. Set Source = Bind(Objectname_)
  16519. On Event Click From Source Call Click
  16520. End Sub
  16521. '++LotusScript Development Environment:2:2:Click:1:12
  16522. Sub Click(Source As Button)
  16523.     Call uicsdoc.uiobject.creatememo(True)
  16524. End Sub
  16525. tmpWasMailed
  16526. tmpOwnerHW
  16527. AppointmentType
  16528.     4S5S6S7S8S9S11S12S13S
  16529. Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16530. '++LotusScript Development Environment:2:5:(Forward):0:1
  16531. Declare Sub Click(Source As Button)
  16532. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16533. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16534. Private Sub BindEvents(Byval Objectname_ As String)
  16535.     Static Source As BUTTON
  16536.     Set Source = Bind(Objectname_)
  16537.     On Event Click From Source Call Click
  16538. End Sub
  16539. '++LotusScript Development Environment:2:2:Click:1:12
  16540. Sub Click(Source As Button)
  16541.     uicsdoc.UIObject.SendComments = False
  16542.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16543. End Sub
  16544. tmpOwnerHW
  16545. tmpNoActionBar
  16546. NoticeType
  16547. Broadcast
  16548.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16549. Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
  16550. '++LotusScript Development Environment:2:5:(Forward):0:1
  16551. Declare Sub Click(Source As Button)
  16552. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16553. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16554. Private Sub BindEvents(Byval Objectname_ As String)
  16555.     Static Source As BUTTON
  16556.     Set Source = Bind(Objectname_)
  16557.     On Event Click From Source Call Click
  16558. End Sub
  16559. '++LotusScript Development Environment:2:2:Click:1:12
  16560. Sub Click(Source As Button)
  16561.     uicsdoc.UIObject.SendComments = False
  16562.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 1)
  16563. End Sub
  16564. tmpOwnerHW
  16565. tmpNoActionBar
  16566. NoticeType
  16567. Broadcast
  16568.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16569. Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  16570. '++LotusScript Development Environment:2:5:(Forward):0:1
  16571. Declare Sub Click(Source As Button)
  16572. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16573. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16574. Private Sub BindEvents(Byval Objectname_ As String)
  16575.     Static Source As BUTTON
  16576.     Set Source = Bind(Objectname_)
  16577.     On Event Click From Source Call Click
  16578. End Sub
  16579. '++LotusScript Development Environment:2:2:Click:1:12
  16580. Sub Click(Source As Button)
  16581.     uicsdoc.UIObject.SendComments = False
  16582.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 1)
  16583. End Sub
  16584. tmpOwnerHW
  16585. tmpNoActionBar
  16586. Broadcast
  16587. PreventDelegate
  16588.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  16589. Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  16590. '++LotusScript Development Environment:2:5:(Forward):0:1
  16591. Declare Sub Click(Source As Button)
  16592. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16593. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16594. Private Sub BindEvents(Byval Objectname_ As String)
  16595.     Static Source As BUTTON
  16596.     Set Source = Bind(Objectname_)
  16597.     On Event Click From Source Call Click
  16598. End Sub
  16599. '++LotusScript Development Environment:2:2:Click:1:12
  16600. Sub Click(Source As Button)
  16601.     uicsdoc.UIObject.SendComments = False
  16602.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 1)
  16603. End Sub
  16604. tmpOwnerHW
  16605. tmpNoActionBar
  16606. Broadcast
  16607. PreventCounter
  16608.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  16609. Respond\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16610. '++LotusScript Development Environment:2:5:(Forward):0:1
  16611. Declare Sub Click(Source As Button)
  16612. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16613. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16614. Private Sub BindEvents(Byval Objectname_ As String)
  16615.     Static Source As BUTTON
  16616.     Set Source = Bind(Objectname_)
  16617.     On Event Click From Source Call Click
  16618. End Sub
  16619. '++LotusScript Development Environment:2:2:Click:1:12
  16620. Sub Click(Source As Button)
  16621.     Call uicsdoc.UIDocument.Document.replaceitemvalue("tmpPencilIn","1")
  16622.     uicsdoc.UIObject.SendComments = False
  16623.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16624. End Sub
  16625. tmpOwnerHW
  16626. tmpNoActionBar
  16627. Broadcast
  16628.     1S2S3S4S5S6S7S8S9S10S
  16629. Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16630. '++LotusScript Development Environment:2:5:(Forward):0:1
  16631. Declare Sub Click(Source As Button)
  16632. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16633. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16634. Private Sub BindEvents(Byval Objectname_ As String)
  16635.     Static Source As BUTTON
  16636.     Set Source = Bind(Objectname_)
  16637.     On Event Click From Source Call Click
  16638. End Sub
  16639. '++LotusScript Development Environment:2:2:Click:1:12
  16640. Sub Click(Source As Button)
  16641.     uicsdoc.UIObject.SendComments = True
  16642.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16643. End Sub
  16644. tmpOwnerHW
  16645. tmpNoActionBar
  16646. NoticeType
  16647. Broadcast
  16648.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16649. Respond with Comments\Decline
  16650. '++LotusScript Development Environment:2:5:(Options):0:66
  16651. '++LotusScript Development Environment:2:5:(Forward):0:1
  16652. Declare Sub Click(Source As Button)
  16653. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16654. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16655. Private Sub BindEvents(Byval Objectname_ As String)
  16656.     Static Source As BUTTON
  16657.     Set Source = Bind(Objectname_)
  16658.     On Event Click From Source Call Click
  16659. End Sub
  16660. '++LotusScript Development Environment:2:2:Click:1:12
  16661. Sub Click(Source As Button)
  16662.     uicsdoc.UIObject.SendComments = True
  16663.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 1)
  16664. End Sub
  16665. tmpOwnerHW
  16666. tmpNoActionBar
  16667. NoticeType
  16668. Broadcast
  16669.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  16670. Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
  16671. '++LotusScript Development Environment:2:5:(Forward):0:1
  16672. Declare Sub Click(Source As Button)
  16673. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16674. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16675. Private Sub BindEvents(Byval Objectname_ As String)
  16676.     Static Source As BUTTON
  16677.     Set Source = Bind(Objectname_)
  16678.     On Event Click From Source Call Click
  16679. End Sub
  16680. '++LotusScript Development Environment:2:2:Click:1:12
  16681. Sub Click(Source As Button)
  16682.     uicsdoc.UIObject.SendComments = True
  16683.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 1)
  16684. End Sub
  16685. tmpOwnerHW
  16686. tmpNoActionBar
  16687. Broadcast
  16688. PreventDelegate
  16689.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  16690. Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
  16691. '++LotusScript Development Environment:2:5:(Forward):0:1
  16692. Declare Sub Click(Source As Button)
  16693. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16694. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16695. Private Sub BindEvents(Byval Objectname_ As String)
  16696.     Static Source As BUTTON
  16697.     Set Source = Bind(Objectname_)
  16698.     On Event Click From Source Call Click
  16699. End Sub
  16700. '++LotusScript Development Environment:2:2:Click:1:12
  16701. Sub Click(Source As Button)
  16702.     uicsdoc.UIObject.SendComments = True
  16703.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 1)
  16704. End Sub
  16705. tmpOwnerHW
  16706. tmpNoActionBar
  16707. Broadcast
  16708. PreventCounter
  16709.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  16710. Respond with Comments\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
  16711. '++LotusScript Development Environment:2:5:(Forward):0:1
  16712. Declare Sub Click(Source As Button)
  16713. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16714. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16715. Private Sub BindEvents(Byval Objectname_ As String)
  16716.     Static Source As BUTTON
  16717.     Set Source = Bind(Objectname_)
  16718.     On Event Click From Source Call Click
  16719. End Sub
  16720. '++LotusScript Development Environment:2:2:Click:1:12
  16721. Sub Click(Source As Button)
  16722.     Call uicsdoc.UIDocument.Document.replaceitemvalue("tmpPencilIn","1")
  16723.     uicsdoc.UIObject.SendComments = True
  16724.     Call uicsdoc.PerformActionAndClose(Null, ACPT_TITLE, ACTION_ACCEPT, "(InviteeReplyDlg)", 1)
  16725. End Sub
  16726. tmpOwnerHW
  16727. tmpNoActionBar
  16728. Broadcast
  16729.     1S2S3S4S5S6S7S8S9S10S
  16730. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  16731. '++LotusScript Development Environment:2:5:(Forward):0:1
  16732. Declare Sub Click(Source As Button)
  16733. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16734. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16735. Private Sub BindEvents(Byval Objectname_ As String)
  16736.     Static Source As BUTTON
  16737.     Set Source = Bind(Objectname_)
  16738.     On Event Click From Source Call Click
  16739. End Sub
  16740. '++LotusScript Development Environment:2:2:Click:1:12
  16741. Sub Click(Source As Button)
  16742.     Dim uievent As UIEventObject
  16743.     Set uievent = uicsdoc.UIObject
  16744.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
  16745.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  16746.     End If
  16747. End Sub
  16748. tmpOwnerHW
  16749.     1S2S
  16750. Delete
  16751.     1S10S14S16S23S
  16752.     0R5S
  16753. path"
  16754. /wDelete?OpenAgent&
  16755. UNID"
  16756. Inbox
  16757.     1S2S
  16758. path"
  16759. /MailFS?OpenFrameset"
  16760.     0R3S4S5S6S
  16761. Next 
  16762.     0S0E
  16763. Previous 
  16764.     0S0E
  16765. Lotus ProductJ
  16766. :V0.0
  16767. :,hH#
  16768. ^ :+(9I
  16769. ^0:+(9I
  16770. 9}($}
  16771. ^@:+(9I
  16772. 9}L$}
  16773. ^P:+(9I
  16774. 9}t$}
  16775. ;+0;K
  16776. :-<I##
  16777. :-`I##
  16778. <+0;K
  16779. I#}t%
  16780. <,8DJ
  16781. <,DC}
  16782. D#} &
  16783. <-,J#
  16784. Lotus ProductJ
  16785. :V0.0
  16786. :,hH#
  16787. ^ :+(9I
  16788. ^0:+(9I
  16789. 9}($}
  16790. ^@:+(9I
  16791. 9}L$}
  16792. ^P:+(9I
  16793. 9}t$}
  16794. ;+0;K
  16795. :-<I##
  16796. :-`I##
  16797. <+0;K
  16798. I#}t%
  16799. <,8DJ
  16800. <,DC}
  16801. D#} &
  16802. <-,J#
  16803. Lotus Product
  16804. OBJECT
  16805. Lotus Product
  16806. V0.0]
  16807. Lotus Product
  16808. OBJECT
  16809. Lotus ProductJ
  16810. :V0.0
  16811. :,hH#
  16812. ^ :+(9I
  16813. ^0:+(9I
  16814. 9}($}
  16815. ^@:+(9I
  16816. 9}L$}
  16817. ^P:+(9I
  16818. 9}t$}
  16819. ;+0;K
  16820. :-<I##
  16821. :-`I##
  16822. <+0;K
  16823. I#}t%
  16824. <,8DJ
  16825. <,DC}
  16826. D#} &
  16827. <-,J#
  16828. Lotus Productf^
  16829. V0.0?
  16830. |}4s#8
  16831. y}4s#
  16832. y}Ds#
  16833. h}Ds#1
  16834. q)`d##1
  16835. y}Lt#
  16836. y}ht#
  16837. i, ~Z
  16838. ~}du#
  16839. Lotus ProductJ
  16840. :V0.0
  16841. :,hH#
  16842. ^ :+(9I
  16843. ^0:+(9I
  16844. 9}($}
  16845. ^@:+(9I
  16846. 9}L$}
  16847. ^P:+(9I
  16848. 9}t$}
  16849. ;+0;K
  16850. :-<I##
  16851. :-`I##
  16852. <+0;K
  16853. I#}t%
  16854. <,8DJ
  16855. <,DC}
  16856. D#} &
  16857. <-,J#
  16858. Lotus ProductJ
  16859. :V0.0
  16860. :,hH#
  16861. ^ :+(9I
  16862. ^0:+(9I
  16863. 9}($}
  16864. ^@:+(9I
  16865. 9}L$}
  16866. ^P:+(9I
  16867. 9}t$}
  16868. ;+0;K
  16869. :-<I##
  16870. :-`I##
  16871. <+0;K
  16872. I#}t%
  16873. <,8DJ
  16874. <,DC}
  16875. D#} &
  16876. <-,J#
  16877. Lotus Product
  16878. Lotus ProductJ
  16879. :V0.0
  16880. :,hH#
  16881. ^ :+(9I
  16882. ^0:+(9I
  16883. 9}($}
  16884. ^@:+(9I
  16885. 9}L$}
  16886. ^P:+(9I
  16887. 9}t$}
  16888. ;+0;K
  16889. :-<I##
  16890. :-`I##
  16891. <+0;K
  16892. I#}t%
  16893. <,8DJ
  16894. <,DC}
  16895. D#} &
  16896. <-,J#
  16897. Lotus ProductJ
  16898. :V0.0
  16899. :,hH#
  16900. ^ :+(9I
  16901. ^0:+(9I
  16902. 9}($}
  16903. ^@:+(9I
  16904. 9}L$}
  16905. ^P:+(9I
  16906. 9}t$}
  16907. ;+0;K
  16908. :-<I##
  16909. :-`I##
  16910. <+0;K
  16911. I#}t%
  16912. <,8DJ
  16913. <,DC}
  16914. D#} &
  16915. <-,J#
  16916. Lotus ProductJ
  16917. :V0.0
  16918. :,hH#
  16919. ^ :+(9I
  16920. ^0:+(9I
  16921. 9}($}
  16922. ^@:+(9I
  16923. 9}L$}
  16924. ^P:+(9I
  16925. 9}t$}
  16926. ;+0;K
  16927. :-<I##
  16928. :-`I##
  16929. <+0;K
  16930. I#}t%
  16931. <,8DJ
  16932. <,DC}
  16933. D#} &
  16934. <-,J#
  16935. Lotus ProductJ
  16936. :V0.0
  16937. :,hH#
  16938. ^ :+(9I
  16939. ^0:+(9I
  16940. 9}($}
  16941. ^@:+(9I
  16942. 9}L$}
  16943. ^P:+(9I
  16944. 9}t$}
  16945. ;+0;K
  16946. :-<I##
  16947. :-`I##
  16948. <+0;K
  16949. I#}t%
  16950. <,8DJ
  16951. <,DC}
  16952. D#} &
  16953. <-,J#
  16954. Lotus Product
  16955. Lotus Product
  16956. O=Lotus Notes
  16957. O=Lotus Notes
  16958. PURSAFO
  16959. |.:#U
  16960. O=Lotus Notes
  16961. CN=Lotus Notes Template Development/O=Lotus Notes
  16962. PURSAFO
  16963. &Y:~G{Y(
  16964. ldo;!
  16965. tmpAlarmValue
  16966. tmpAlarmOnDate
  16967. tmpAlarmOnTime
  16968. tmpSort
  16969. tmpShow
  16970. $HTMLDocumentStyles
  16971. $INFO
  16972. $WINDOWTITLE
  16973. $AppHelpFormula
  16974. $WebFlags
  16975. $Script
  16976. $$Script_O
  16977. $$ScriptName
  16978. $$FormScript
  16979. $$$FormScript_O
  16980. $$StartDate
  16981. $StartDate_O
  16982. $$StartTime
  16983. $StartTime_O
  16984. $$EndDate
  16985. $EndDate_O
  16986. $$EndTime
  16987. $EndTime_O
  16988. StartDate
  16989. StartTime
  16990. EndDate
  16991. EndTime
  16992. $BODY
  16993. $V5ACTIONS
  16994. $ACTIONS
  16995. $SCRIPTOBJ_12
  16996. $SCRIPTOBJ_13
  16997. $SCRIPTOBJ_14
  16998. $SCRIPTOBJ_15
  16999. $SCRIPTOBJ_16
  17000. $SCRIPTOBJ_17
  17001. $SCRIPTOBJ_18
  17002. $SCRIPTOBJ_19
  17003. $SCRIPTOBJ_20
  17004. $SCRIPTOBJ_21
  17005. $SCRIPTOBJ_22
  17006. $SCRIPTOBJ_23
  17007. $SCRIPTOBJ_24
  17008. $SCRIPTOBJ_25
  17009. $SCRIPTOBJ_26
  17010. $SCRIPTOBJ_27
  17011. $PublicAccess
  17012. VersionOpt|
  17013.     6S7S9S14S
  17014. $VersionOpt
  17015.     0R1S2S3S
  17016. SavedOnce
  17017.     0R1S2S3S
  17018. PostedDate(
  17019.     0R1S2S3S
  17020. DeliveredDate
  17021.     0R1S2S3S
  17022. $AutoEditMode
  17023.     0R1S2S3S
  17024. MailSaveOptions
  17025.     0R1S2S3S
  17026. VersionOpt
  17027.     0R4S
  17028. Lotus Product
  17029. OBJECT
  17030. $HideMailHeader
  17031. BGTableColor
  17032. HeaderRegion
  17033. BodyRegion
  17034. New Memo
  17035. Subject
  17036. Subject
  17037. Subject
  17038.     4S6S12S13S14S15S17S21S23S25S26S28S
  17039. &Arial
  17040. '++LotusScript Development Environment:2:5:(Options):0:74
  17041. Option Public
  17042. Use "CoreEmailClasses"
  17043. '++LotusScript Development Environment:2:5:(Forward):0:1
  17044. Declare Class OLEUIMemoDocument As UIMemoDocument
  17045. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17046. Dim cMemoObject As Variant
  17047. Class OLEUIMemoDocument As UIMemoDocument
  17048.     Private m_strProgid As String
  17049.     Private m_vOLEObject As Variant
  17050.     Private m_nUserRepliedToSender As Integer
  17051. Declare Public Function ReplyToSender()
  17052.     Function PostOpen(note As notesuidocument)    
  17053.         If Not note.inpreviewpane Then            
  17054.             Me.m_strProgid = note.document.GetItemValue("$OLEObjProgId")(0)
  17055.             If (note.isnewdoc) Then     
  17056.                 Call note.document.ReplaceItemValue("OriginalEditor", m_strProgid)
  17057.                 Call note.GotoField(note.document.GetItemValue("$OLEObjField")(0))
  17058.                 Call note.CreateObject("OLEObject", m_strProgid ,"")
  17059.             Else
  17060.                 If Lcase(note.document.GetItemValue("OriginalEditor")(0)) = Lcase(m_strProgid) Then
  17061.                     note.editmode = True
  17062.                     Set m_vOLEObject = note.GetObject("OLEObject")
  17063.                     If Not(Isobject(m_vOLEObject)) Then
  17064.                         note.EditMode = True
  17065.                         Call note.document.ReplaceItemValue("OriginalEditor", m_strProgid)
  17066.                         Call note.GotoField(note.document.GetItemValue("$OLEObjField")(0))
  17067.                         Call note.CreateObject("OLEObject",m_strProgid,"")      
  17068.                         Exit Function
  17069.                     End If
  17070.                 Else
  17071.                     Call note.document.ReplaceItemValue("tmpUseOLE", "")
  17072.                     Call note.RefreshHideFormulas               
  17073.                 End If
  17074.             End If     
  17075.             Call UIMemoDocument..PostOpen(note)
  17076.         End If
  17077.     End Function        
  17078.     Public Function ReplyToSender()
  17079.         With Me.m_noteMemo
  17080.             If Len(.GetItemValue("Subject")(0)) = 0 Then
  17081.                 Call .ReplaceItemValue("Subject", .GetItemValue("InheritedSubject")(0))
  17082.             End If
  17083.             If Not IsDocAltNameCandidate(Me.m_noteMemo) Then
  17084.                 If Len( .GetItemValue("InheritedReplyTo")(0)) > 0  Then
  17085.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedReplyTo")(0))                
  17086.                 Else
  17087.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedFrom")(0))                
  17088.                 End If
  17089.             Else
  17090.                 If Len( .GetItemValue("InheritedAltReplyTo")(0)) > 0  Then
  17091.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedAltReplyTo")(0))                
  17092.                 Else
  17093.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedAltFrom")(0))                
  17094.                 End If
  17095.             End If
  17096.             Me.m_nUserRepliedToSender = True
  17097.             Call reload()        
  17098.         End With
  17099.     End Function
  17100.     Sub ReplyToAll
  17101.         'this over-rides the superclass so we can test for basic reply data
  17102.         Call MEMOReplyToAll(Me.m_noteMemo)        
  17103.         If Not Me.m_nUserRepliedToSender Then
  17104.             Call ReplyToSender()        
  17105.         Else
  17106.             Call Reload()            
  17107.         End If
  17108.     End Sub
  17109. End Class
  17110. Lotus Product
  17111. OBJECT
  17112.     H    H    
  17113. ,H    }H
  17114. ,H    }H
  17115.  AlternateMemo'++LotusScript Development Environment:2:5:(Options):0:66
  17116. '++LotusScript Development Environment:2:5:(Forward):0:1
  17117. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  17118. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  17119. Declare Sub Postmodechange(Source As Notesuidocument)
  17120. Declare Sub Postopen(Source As Notesuidocument)
  17121. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  17122. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  17123. Declare Sub Postsave(Source As Notesuidocument)
  17124. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17125. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17126. Private Sub BindEvents(Byval Objectname_ As String)
  17127.     Static Source As NOTESUIDOCUMENT
  17128.     Set Source = Bind(Objectname_)
  17129.     On Event Querysave From Source Call Querysave
  17130.     On Event Queryclose From Source Call Queryclose
  17131.     On Event Postmodechange From Source Call Postmodechange
  17132.     On Event Postopen From Source Call Postopen
  17133.     On Event Querymodechange From Source Call Querymodechange
  17134.     On Event Queryopen From Source Call Queryopen
  17135.     On Event Postsave From Source Call Postsave
  17136. End Sub
  17137. '++LotusScript Development Environment:2:2:Querysave:1:12
  17138. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  17139.     Call cMemoObject.QuerySave(Continue)
  17140. End Sub
  17141. '++LotusScript Development Environment:2:2:Queryclose:1:12
  17142. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  17143.     Call cMemoObject.QueryClose(Continue)
  17144. End Sub
  17145. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  17146. Sub Postmodechange(Source As Notesuidocument)
  17147.     Call cMemoObject.PostModeChange()        
  17148. End Sub
  17149. '++LotusScript Development Environment:2:2:Postopen:1:12
  17150. Sub Postopen(Source As Notesuidocument)
  17151.     Call cMemoObject.PostOpen(Source)    
  17152. End Sub
  17153. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  17154. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  17155.     Continue = cMemoObject.QueryModeChange(Source)
  17156. End Sub
  17157. '++LotusScript Development Environment:2:2:Queryopen:1:12
  17158. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  17159.     Set cMemoObject = New OLEUIMemoDocument         
  17160.     Call cMemoObject.Init(Source,Isnewdoc)  
  17161. End Sub
  17162. '++LotusScript Development Environment:2:2:Postsave:1:12
  17163. Sub Postsave(Source As Notesuidocument)
  17164.     Call cMemoObject.PostSave()
  17165. End Sub
  17166. Lotus Product9
  17167. ),x!}
  17168. ),H!}p
  17169. ),x!}P
  17170. ),H!}
  17171. ),x!}
  17172. ),H!}
  17173. ),x!}
  17174. ,,#}p
  17175. N<    TH    ]
  17176. N<    TT    ]
  17177. N<    T`    '
  17178. N<    Tl    ]
  17179. N<    Sx    ]
  17180.     Always Hidden:
  17181.     0S0E
  17182. NamePreferencez
  17183. NamePreference
  17184.     0S0E
  17185. LanguagePreference
  17186. Notes
  17187. PostedDateh
  17188. SendTo
  17189. CopyTo
  17190. InheritedSendTo
  17191. SendTo
  17192. CopyTo
  17193.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
  17194. InheritedSendTo
  17195. InheritedSendTo
  17196. Notes
  17197. PostedDateh
  17198. NamePreference
  17199. AltSendTo
  17200. AltSendTo
  17201. AltCopyTo
  17202. SendTo
  17203. CopyTo
  17204. InheritedAltSendTo
  17205. SendTo
  17206. CopyTo
  17207.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53R
  17208. $AltNameLanguageTags
  17209. $AltNameLanguageTags
  17210.     0RR1S
  17211. $StorageTo
  17212. $StorageFrom
  17213.     0RR1S
  17214. $StorageTo
  17215. $StorageTo
  17216.     0RR1S
  17217. $StorageCc
  17218. $StorageCc
  17219.     0R1S
  17220. $StorageBcc
  17221. $StorageBcc
  17222.     0R1S
  17223. InetSendTo
  17224. InetSendTo
  17225.     0RR1S
  17226. InetCopyTo
  17227. InetCopyTo
  17228.     0R1S
  17229. InetBlindCopyTo
  17230. InetBlindCopyTo
  17231.     0R1S
  17232. InheritedAltSendToz
  17233. InheritedAltSendTo
  17234. Notes
  17235. PostedDateh
  17236. ReplyTo
  17237. ReplyTo
  17238.     1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
  17239. InheritedReplyToz
  17240. InheritedReplyTo
  17241. Principal
  17242. Principal
  17243. Principal
  17244. Fromh
  17245.     1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
  17246. FromDomainh
  17247. FromDomain"
  17248.     0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
  17249. InheritedFrom
  17250. AltPrincipalh
  17251. AltPrincipal
  17252. AltPrincipal
  17253. AltFrom
  17254. AltFrom
  17255.     1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
  17256. FromDomainh
  17257. FromDomain"
  17258.     0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
  17259. InheritedAltFrom
  17260. Notes
  17261. PostedDateh
  17262. FromDomain
  17263. InheritedFromDomain
  17264. FromDomain
  17265.     9S10S12S13SInheritedFromDomain
  17266. InheritedFromDomain
  17267. SIZE=50
  17268. Subject
  17269. Topic
  17270. Subject
  17271.     1S2S5S6S8S10S
  17272. Subj"
  17273.     0R10S12S16S17S19S21S22S23S
  17274. InheritedSubject
  17275. Principal
  17276. CalendarProfile
  17277. Owner
  17278.     1S2S3S7S
  17279. FromPerson memo is from.z
  17280. AltFrom
  17281.     10SAltFrom
  17282. CalendarProfile
  17283. DefaultLogo
  17284. stdNotesLtr0
  17285. CalendarProfile
  17286. DefaultLogo
  17287. StdNotesLtrGateway
  17288.     4S13S24R25S29S32S34S
  17289. Logoz
  17290. StdNotesLtr41
  17291. StdNotesLtr41
  17292. Black
  17293.     11S12S
  17294. BGTableColor
  17295.     0S0E
  17296. DefaultMailSaveOptionsz
  17297. DefaultMailSaveOptions
  17298. Principal
  17299. Principal
  17300. Principal
  17301. NamePreference
  17302. AltFrom
  17303. PostedDateh
  17304. $LangFrom
  17305. LanguagePreferencet
  17306. AltFrom
  17307.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
  17308.     0R1S2S8S
  17309.     0R1S2S5S6S8S14S18S
  17310.     0R1S2S5S6S8S14S18S
  17311. SentBy
  17312. X400FreeForm^
  17313.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  17314. SentBy
  17315. FromDomain
  17316. FromDomain
  17317. FromDomain
  17318. FromDomain
  17319.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  17320. FromName
  17321. Principal
  17322. Principal
  17323. Principal
  17324.     0RR1S2S10S11S16S18S
  17325. FromStops
  17326.     0RR1S2S6S
  17327. FromName
  17328. FromStops
  17329. FromStops
  17330. FromStops
  17331.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  17332. tmpDisplayFrom_Preview
  17333.     0S0E
  17334. Signz
  17335.     0S0E
  17336. Encrypt
  17337. Importance
  17338. .,$,  , :
  17339. DeliveryReport
  17340. .,$,  , :
  17341. DeliveryPriority
  17342. ReturnReceipt
  17343. $KeepPrivate
  17344. $KeepPrivate
  17345. $KeepPrivate
  17346.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  17347. SMTPEncoding
  17348. MIMEFormat
  17349. MailEditor
  17350. AltEditorProgID
  17351.     1S2S
  17352. OriginalEditorh
  17353. MailEditor
  17354. OriginalEditor
  17355. MailEditor
  17356.     0R7S10S11S13S14S15S18S19S20S
  17357. tmpUseOLE
  17358. tmpUseOLE
  17359. OLEBody
  17360. $OLEObjFieldz
  17361. $OLEObjField
  17362. $OLEObjRichTextFieldz
  17363. $OLEObjRichTextField
  17364. AltEditorProgID
  17365.     0S0E
  17366. $OLEObjProgID
  17367. $OLEObjProgID
  17368. .,$,  , :
  17369. Path_Info
  17370. Path_Info
  17371. .,$,  , :
  17372. Query_String
  17373. Query_String
  17374.     From:
  17375. tmpDisplayFrom_Preview
  17376. tmpDisplayFrom_NoLogo
  17377. tmpDisplayFrom_NoLogo
  17378. NamesList
  17379. NamePreference
  17380. AltSendTo
  17381. $NameLanguageTags
  17382. LanguagePreferencet
  17383. AltSendTo
  17384. SendTo
  17385.     11S12S15S16S20S
  17386. ImplodedNamesList
  17387. NamesList
  17388. ImplodedNamesList
  17389. ImplodedNamesList
  17390. ImplodedNamesList
  17391. tmpDisplaySendTo
  17392.     Subject:
  17393. Subject
  17394. Subject
  17395. Subject
  17396.     0S0E
  17397. TmpDisplaySubject
  17398. CC_Content
  17399. NamePreference
  17400. AltCopyTo
  17401. $NameLanguageTags
  17402. LanguagePreferencet
  17403. AltCopyTo
  17404. CopyTo
  17405.     7S8S9S11S12S16S
  17406. BCC_Content
  17407. DeliveredDate
  17408. BlindCopyTo
  17409.  (bcc: 
  17410. BlindCopyTo
  17411.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  17412. NamesList
  17413. CC_Content
  17414. BCC_Content
  17415.     0R9S10S
  17416. ImplodedNamesList
  17417. NamesList
  17418. ImplodedNamesList
  17419. ImplodedNamesList
  17420. ImplodedNamesList
  17421. tmpDisplayCC
  17422. $HideMailHeader
  17423.     0S0E
  17424. tmpDisplayFrom_Preview
  17425. DisplayFrom
  17426. DisplayFrom_Pre
  17427. $HideMailHeader
  17428. Principal
  17429. Principal
  17430. Principal
  17431. Principal
  17432. Principal
  17433.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  17434.     Sent by: 
  17435. FromDomain
  17436. FromDomain
  17437. FromDomain
  17438. FromDomain
  17439.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  17440. FromName
  17441.     0RR1S2S6S
  17442. FromStops
  17443.     0R1S2S6S
  17444. FromName
  17445. FromStops
  17446. FromStops
  17447. FromStops
  17448.     0RR1S2S3S4S10S13S17S20SDisplaySent
  17449. tmpDisplaySent
  17450. PostedDateh
  17451. PostedDate
  17452.     4S5S10S12S
  17453. DisplayDateTime/date memo was created or mailed.z
  17454. tmpDisplayDate_Pre
  17455. ReplyDate
  17456. ReplyTo
  17457. $HideMailHeader
  17458.     2S3S4S5S6S7S9S10S14S15R
  17459. Please respond
  17460. ReplyTo
  17461. ReplyTo
  17462. ReplyDate
  17463. ReplyDate
  17464.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  17465. tmpDisplayReply
  17466. $HideMailHeader
  17467. StdNotesLtr16
  17468.     7S9S10S11S13S15S
  17469.         To:    
  17470. MailAddress
  17471. NamePreference
  17472. AltSendTo
  17473. $NameLanguageTags
  17474. LanguagePreferencet
  17475. AltSendTo
  17476. SendTo
  17477.     1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
  17478. MailAddress
  17479. EnterSendTo
  17480.     0S0E
  17481. EnterSendTo
  17482.         cc:    
  17483. MailAddress
  17484. NamePreference
  17485. AltCopyTo
  17486. $NameLanguageTags
  17487. LanguagePreferencet
  17488. AltCopyTo
  17489. CopyTo
  17490.     1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
  17491. MailAddress
  17492. EnterCopyTo
  17493.     0S0E
  17494. EnterCopyTo
  17495.         cc:    
  17496. CC_Content
  17497. NamePreference
  17498. AltCopyTo
  17499. $NameLanguageTags
  17500. LanguagePreferencet
  17501. AltCopyTo
  17502. CopyTo
  17503.     2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
  17504. BCC_Content
  17505. DeliveredDate
  17506. BlindCopyTo
  17507.  (bcc: 
  17508. BlindCopyTo
  17509.     0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
  17510. CC_Content
  17511. BCC_Content
  17512.     0RR3S4StmpEnterCopyTo
  17513.         bcc:    
  17514. MailAddress
  17515. NamePreference
  17516. AltBlindCopyTo
  17517. $NameLanguageTags
  17518. LanguagePreferencet
  17519. AltBlindCopyTo
  17520. BlindCopyTo
  17521.     1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
  17522. MailAddress
  17523. EnterBlindCopyTo}
  17524.     0S0E
  17525. EnterBlindCopyTo
  17526. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  17527.         Subject:    
  17528. SIZE=50
  17529. Subject
  17530. ISMAILSTATIONERYh
  17531.     0S0E
  17532. MailedThisPass
  17533. MailedThisPass
  17534. MailedThisPass
  17535.     0R1RT4RTTT11RT
  17536. ReplyDate
  17537. ReplyDate
  17538. ReplyDate
  17539. Importanceh
  17540. Importance
  17541. Importance
  17542. Importance(
  17543. DeliveryReporth
  17544. DeliveryReport
  17545. DeliveryReport
  17546. DeliveryReport(
  17547. DeliveryPriorityh
  17548. DeliveryPriority
  17549. DeliveryPriority
  17550. DeliveryPriority(
  17551. UpdateProfileNote
  17552. UpdateProfileNote
  17553. UpdateProfileNote
  17554. ReturnReceipt
  17555. ReturnReceipt
  17556. ReturnReceipt
  17557. $KeepPrivateh
  17558. $KeepPrivate
  17559. $KeepPrivate(
  17560. ExpireDateh
  17561. ExpireDate
  17562. ExpireDate(
  17563. ReplyTo
  17564. ReplyTo
  17565. ReplyTo
  17566. MimeFormath
  17567. MimeFormat
  17568. MimeFormat
  17569. MimeFormat(
  17570. SMTPEncodingh
  17571. SMTPEncoding
  17572. SMTPEncoding
  17573. SMTPEncoding(
  17574. MIMEMailCharset
  17575. MIMEMailCharset
  17576. MIMEMailCharset
  17577. MIMEMailCharset
  17578. $AutoSpellh
  17579. $AutoSpell
  17580. $AutoSpell(
  17581. WebSubjecth
  17582. WebSubject
  17583. WebSubject(
  17584. tmpSenderTagh
  17585. tmpSenderTag
  17586. tmpSenderTag
  17587. tmpSenderTag(
  17588.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  17589. MailedThisPass
  17590. MailedThisPass(
  17591. EnterSendTo
  17592. EnterSendTo
  17593. EnterCopyTo
  17594. EnterCopyTo
  17595. EnterBlindCopyToh
  17596. EnterBlindCopyTo(
  17597.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  17598. RemoveNoteItems
  17599. tmpUseOLE
  17600.     1S2S
  17601. OLEBody
  17602. OLEBody
  17603. tmpUseOLE
  17604.     1S2S
  17605. Bodyz
  17606. Close
  17607. ????????????????????????????????????????
  17608.     0S0E
  17609. _Move To Folder...
  17610. Save And File
  17611. MEMO_DRAFT_FILE
  17612.     0S0E
  17613. ActionInProgress
  17614. MEMO_DRAFT_FILE
  17615.     0R1S
  17616. PostedDateh
  17617. IsMailStationery
  17618.     7S8S9S10S13S14S15S16S
  17619. _Forward
  17620. _Remove From Folder...
  17621. Categori_zeK
  17622. SSend
  17623. Discard ChangesK
  17624. MEMO_CANCEL
  17625. 4194304
  17626.     0S0E
  17627. ActionInProgress
  17628. MEMO_CANCEL
  17629.     0R1S
  17630. IsMailStationery
  17631.     1S2S3S
  17632. Save And Close
  17633. MEMO_DRAFT
  17634.     0S0E
  17635. ActionInProgress
  17636. MEMO_DRAFT
  17637.     0R1S
  17638. PostedDateh
  17639. IsMailStationery
  17640.     7S8S9S10S13S14S15S16S
  17641. Close
  17642. MEMO_CANCEL
  17643. 4194304
  17644.     0S0E
  17645. ActionInProgress
  17646. MEMO_CANCEL
  17647.     0R1S
  17648. IsMailStationery
  17649.     0S1S2S
  17650. ForwardK 
  17651.     0S0E
  17652. ISMAILSTATIONERY
  17653.     1S2S
  17654. New Memo(
  17655.     0S0E
  17656. Reply\ReplyK0
  17657. Reply
  17658.     0S0E
  17659. Reply\Reply with History
  17660. Reply with History
  17661. This document is truncated.
  17662.     4S8S10S13S
  17663. Reply with history
  17664. Reply\Reply to AllX
  17665. MailStEd
  17666.     0S0E
  17667. Reply
  17668. Reply\Reply to All with HistoryK
  17669. MailStEd
  17670.     0S0E
  17671. Reply with History
  17672. This document is truncated.
  17673.     0R4S8S10S13S
  17674. Reply with history
  17675. Edit Document
  17676.     0S1S2S
  17677. MEMO_SEND
  17678.     0S0E
  17679. ActionInProgress
  17680. MEMO_SEND
  17681.     0R1S
  17682. PostedDateh
  17683. IsMailStationery
  17684.     5S6S7S8S10S11S12S13S
  17685. Send and File
  17686. MEMO_SEND_FILE
  17687.     0S0E
  17688. ActionInProgress
  17689. MEMO_SEND_FILE
  17690.     0R1S
  17691. PostedDateh
  17692. IsMailStationery
  17693.     5S6S7S8S12S13S
  17694. MEMO_STATIONERYSAVE
  17695.     0S0E
  17696. ActionInProgress
  17697. MEMO_STATIONERYSAVE
  17698.     0R1S
  17699. IsMailStationery
  17700.     2S3S
  17701. Save As Draft
  17702. MEMO_DRAFT
  17703.     0S0E
  17704. ActionInProgress
  17705. MEMO_DRAFT
  17706.     0R1S
  17707. PostedDateh
  17708. IsMailStationery
  17709.     5S6S7S8S10S11S12S13S
  17710. Reply\Reply to Sender
  17711. '++LotusScript Development Environment:2:5:(Options):0:66
  17712. '++LotusScript Development Environment:2:5:(Forward):0:1
  17713. Declare Sub Click(Source As Button)
  17714. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17715. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17716. Private Sub BindEvents(Byval Objectname_ As String)
  17717.     Static Source As BUTTON
  17718.     Set Source = Bind(Objectname_)
  17719.     On Event Click From Source Call Click
  17720. End Sub
  17721. '++LotusScript Development Environment:2:2:Click:1:12
  17722. Sub Click(Source As Button)
  17723.     Call cMemoObject.ReplyToSender()
  17724. End Sub
  17725. Reply\Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  17726. '++LotusScript Development Environment:2:5:(Forward):0:1
  17727. Declare Sub Click(Source As Button)
  17728. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17729. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17730. Private Sub BindEvents(Byval Objectname_ As String)
  17731.     Static Source As BUTTON
  17732.     Set Source = Bind(Objectname_)
  17733.     On Event Click From Source Call Click
  17734. End Sub
  17735. '++LotusScript Development Environment:2:2:Click:1:12
  17736. Sub Click(Source As Button)
  17737.     Call cMemoObject.ReplyToAll()
  17738. End Sub
  17739. Address...T
  17740. EnterSendTo
  17741. EnterCopyTo
  17742. EnterBlindCopyTo
  17743.     0S0E
  17744. PostedDateh
  17745. IsMailStationery
  17746.     5S6S7S8S10S11S12S13S
  17747. Delivery Options...K~
  17748. DeliveryOptions
  17749. Delivery Options
  17750.     0R4S10S
  17751. PostedDateh
  17752.     5S6S7S8S
  17753. Tools\Preferences...2
  17754. (Preferences)
  17755.     0S0E
  17756. Tools\Delivery Information...
  17757. xxTitle
  17758. Delivery Information
  17759.     0S0E
  17760. DeliveryInfo
  17761. xxTitle
  17762.     0RR4S5S6S7S8S9S10S11S12S14S
  17763. Tools\Out of Office...8
  17764. (EditOfficeProfile)
  17765.     0S0E
  17766. Tools\Add Sender to Address Book<
  17767. (AddSenderToAddressBook)
  17768.     0S0E
  17769. Tools\New Memo - Using Stationery
  17770. '++LotusScript Development Environment:2:5:(Options):0:66
  17771. '++LotusScript Development Environment:2:5:(Forward):0:1
  17772. Declare Sub Click(Source As Button)
  17773. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17774. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17775. Private Sub BindEvents(Byval Objectname_ As String)
  17776.     Static Source As BUTTON
  17777.     Set Source = Bind(Objectname_)
  17778.     On Event Click From Source Call Click
  17779. End Sub
  17780. '++LotusScript Development Environment:2:2:Click:1:12
  17781. Sub Click(Source As Button)
  17782.     Dim session As New notessession
  17783.     Dim uiws As New notesuiworkspace
  17784.     Dim collection As notesdocumentcollection
  17785.     Dim noteUIEditDocument As notesuidocument
  17786.     Dim database As NotesDatabase
  17787.     Set noteCursorDoc = session.currentdatabase.createdocument
  17788.     Set database = session.currentdatabase
  17789.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  17790.     Set noteCursorDoc = collection.getfirstdocument
  17791.     If Not noteCursorDoc Is Nothing Then
  17792.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  17793.     End If
  17794. End Sub
  17795. Close
  17796. ????????????????????????????????????????
  17797.     0S0E
  17798. act_discardchanges.GIF|act_CSDISCARD
  17799. _Move To Folder...
  17800. Save And File
  17801. MEMO_DRAFT_FILE
  17802.     0S0E
  17803. ActionInProgress
  17804. MEMO_DRAFT_FILE
  17805.     0R1S
  17806. PostedDateh
  17807. IsMailStationery
  17808.     7S8S9S10S13S14S15S16S
  17809. act_FOLDER.GIF|act_FOLDER?
  17810. _Forward
  17811. _Remove From Folder...
  17812. Categori_zeK
  17813. SSend
  17814. Discard ChangesK
  17815. MEMO_CANCEL
  17816. 4194304
  17817.     0S0E
  17818. ActionInProgress
  17819. MEMO_CANCEL
  17820.     0R1S
  17821. IsMailStationery
  17822.     1S2S3S
  17823. Save And Close
  17824. MEMO_DRAFT
  17825.     0S0E
  17826. ActionInProgress
  17827. MEMO_DRAFT
  17828.     0R1S
  17829. PostedDateh
  17830. IsMailStationery
  17831.     7S8S9S10S13S14S15S16S
  17832. act_save.GIF|act_CSSAVE?
  17833. Close
  17834. MEMO_CANCEL
  17835. 4194304
  17836.     0S0E
  17837. ActionInProgress
  17838. MEMO_CANCEL
  17839.     0R1S
  17840. IsMailStationery
  17841.     0S1S2S
  17842. ForwardK 
  17843.     0S0E
  17844. ISMAILSTATIONERY
  17845.     1S2S
  17846. act_FORWARD.GIF|act_FORWARD?
  17847. New Memo(
  17848.     0S0E
  17849. act_NEWMEMO.GIF|act_NEWMEMO?
  17850. Reply\ReplyK0
  17851. Reply
  17852.     0S0E
  17853. act_REPLY.GIF|act_REPLY?
  17854. Reply\Reply with History
  17855. Reply with History
  17856. This document is truncated.
  17857.     4S8S10S13S
  17858. Reply with history
  17859. act_REPLY.GIF|act_REPLY?
  17860. Reply\Reply to AllX
  17861. MailStEd
  17862.     0S0E
  17863. Reply
  17864. act_REPLY.GIF|act_REPLY?
  17865. Reply\Reply to All with HistoryK
  17866. MailStEd
  17867.     0S0E
  17868. Reply with History
  17869. This document is truncated.
  17870.     0R4S8S10S13S
  17871. Reply with history
  17872. act_REPLY.GIF|act_REPLY?
  17873. Edit Document
  17874.     0S1S2S
  17875. MEMO_SEND
  17876.     0S0E
  17877. ActionInProgress
  17878. MEMO_SEND
  17879.     0R1S
  17880. PostedDateh
  17881. IsMailStationery
  17882.     5S6S7S8S10S11S12S13S
  17883. act_SEND.GIF|act_SEND?
  17884. Send and File
  17885. MEMO_SEND_FILE
  17886.     0S0E
  17887. ActionInProgress
  17888. MEMO_SEND_FILE
  17889.     0R1S
  17890. PostedDateh
  17891. IsMailStationery
  17892.     5S6S7S8S12S13S
  17893. act_SEND.GIF|act_SEND?
  17894. MEMO_STATIONERYSAVE
  17895.     0S0E
  17896. ActionInProgress
  17897. MEMO_STATIONERYSAVE
  17898.     0R1S
  17899. IsMailStationery
  17900.     2S3S
  17901. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  17902. Save As Draft
  17903. MEMO_DRAFT
  17904.     0S0E
  17905. ActionInProgress
  17906. MEMO_DRAFT
  17907.     0R1S
  17908. PostedDateh
  17909. IsMailStationery
  17910.     5S6S7S8S10S11S12S13S
  17911. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  17912. Reply\Reply to Sender
  17913. '++LotusScript Development Environment:2:5:(Options):0:66
  17914. '++LotusScript Development Environment:2:5:(Forward):0:1
  17915. Declare Sub Click(Source As Button)
  17916. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17917. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17918. Private Sub BindEvents(Byval Objectname_ As String)
  17919.     Static Source As BUTTON
  17920.     Set Source = Bind(Objectname_)
  17921.     On Event Click From Source Call Click
  17922. End Sub
  17923. '++LotusScript Development Environment:2:2:Click:1:12
  17924. Sub Click(Source As Button)
  17925.     Call cMemoObject.ReplyToSender()
  17926. End Sub
  17927. act_REPLY.GIF|act_REPLY?
  17928. Reply\Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  17929. '++LotusScript Development Environment:2:5:(Forward):0:1
  17930. Declare Sub Click(Source As Button)
  17931. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17932. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17933. Private Sub BindEvents(Byval Objectname_ As String)
  17934.     Static Source As BUTTON
  17935.     Set Source = Bind(Objectname_)
  17936.     On Event Click From Source Call Click
  17937. End Sub
  17938. '++LotusScript Development Environment:2:2:Click:1:12
  17939. Sub Click(Source As Button)
  17940.     Call cMemoObject.ReplyToAll()
  17941. End Sub
  17942. act_REPLY.GIF|act_REPLY?
  17943. Address...T
  17944. EnterSendTo
  17945. EnterCopyTo
  17946. EnterBlindCopyTo
  17947.     0S0E
  17948. PostedDateh
  17949. IsMailStationery
  17950.     5S6S7S8S10S11S12S13S
  17951. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  17952. Delivery Options...K~
  17953. DeliveryOptions
  17954. Delivery Options
  17955.     0R4S10S
  17956. PostedDateh
  17957.     5S6S7S8S
  17958. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  17959. Tools\Preferences...2
  17960. (Preferences)
  17961.     0S0E
  17962. act_TOOLS.GIF|act_TOOLS?
  17963. Tools\Delivery Information...
  17964. xxTitle
  17965. Delivery Information
  17966.     0S0E
  17967. DeliveryInfo
  17968. xxTitle
  17969.     0RR4S5S6S7S8S9S10S11S12S14S
  17970. act_TOOLS.GIF|act_TOOLS?
  17971. Tools\Out of Office...8
  17972. (EditOfficeProfile)
  17973.     0S0E
  17974. act_TOOLS.GIF|act_TOOLS?
  17975. Tools\Add Sender to Address Book<
  17976. (AddSenderToAddressBook)
  17977.     0S0E
  17978. act_TOOLS.GIF|act_TOOLS?
  17979. Tools\New Memo - Using Stationery
  17980. '++LotusScript Development Environment:2:5:(Options):0:66
  17981. '++LotusScript Development Environment:2:5:(Forward):0:1
  17982. Declare Sub Click(Source As Button)
  17983. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17984. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17985. Private Sub BindEvents(Byval Objectname_ As String)
  17986.     Static Source As BUTTON
  17987.     Set Source = Bind(Objectname_)
  17988.     On Event Click From Source Call Click
  17989. End Sub
  17990. '++LotusScript Development Environment:2:2:Click:1:12
  17991. Sub Click(Source As Button)
  17992.     Dim session As New notessession
  17993.     Dim uiws As New notesuiworkspace
  17994.     Dim collection As notesdocumentcollection
  17995.     Dim noteUIEditDocument As notesuidocument
  17996.     Dim database As NotesDatabase
  17997.     Set noteCursorDoc = session.currentdatabase.createdocument
  17998.     Set database = session.currentdatabase
  17999.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  18000.     Set noteCursorDoc = collection.getfirstdocument
  18001.     If Not noteCursorDoc Is Nothing Then
  18002.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  18003.     End If
  18004. End Sub
  18005. act_TOOLS.GIF|act_TOOLS?
  18006. Lotus Product
  18007. ?V0.0}\
  18008. Lotus Product
  18009. ?V0.0}\
  18010. Lotus Product
  18011. #,V0.0
  18012. O=Lotus Notes
  18013. O=Lotus Notes
  18014. PURSAFO
  18015. |.:#U
  18016. O=Lotus Notes
  18017. CN=Lotus Notes Template Development/O=Lotus Notes
  18018. PURSAFO
  18019. :Ih|6
  18020. $$FormPostOpenAction
  18021. $TypeIcon
  18022. ExpireDate
  18023. ReplyDate
  18024. ComposedDate
  18025. $SCRIPTOBJ_30
  18026. $Background
  18027. $HeaderArea
  18028. $RegionFrameset
  18029. $INFO
  18030. $SubForms
  18031. $WINDOWTITLE
  18032. $Script
  18033. $$Script_O
  18034. $$ScriptName
  18035. $$FormScript
  18036. $$$FormScript_O
  18037. $BODY
  18038. $ACTIONS
  18039. $V5ACTIONS
  18040. $SCRIPTOBJ_21
  18041. $SCRIPTOBJ_22
  18042. $SCRIPTOBJ_29
  18043. &Arial
  18044. Lotus Product
  18045.  (ListResource)
  18046. ServerName
  18047. ServerName
  18048. PublicNABFileName
  18049. PublicNABFileName
  18050. ViewName
  18051. ViewName
  18052. tmpCategories
  18053. NoCache
  18054. ServerName
  18055. PublicNABFileName
  18056. ViewName
  18057.     1S2S5S6S8S9S10S12S14S
  18058. tmpCategories
  18059. tmpCategories
  18060. tmpCategories
  18061.     0R6S7S8S9S11S13S
  18062. CategoryChoices
  18063. act_IMPORTHOLIDAY|act_IMPORTHOLIDAY
  18064. ListLabel
  18065. ListLabel
  18066. CategoryChoices
  18067. SelectedItems
  18068. tmpCategories
  18069. CategoryChoices
  18070. tmpCategories
  18071. tmpCategories
  18072. tmpCategories
  18073. O=Lotus Notes
  18074. O=Lotus Notes
  18075. PURSAFO
  18076. |.:#U
  18077. O=Lotus Notes
  18078. CN=Lotus Notes Template Development/O=Lotus Notes
  18079. PURSAFO
  18080. $INFO
  18081. $$Script_O
  18082. $$ScriptName
  18083. $BODY
  18084. Lotus Product
  18085. OBJECT
  18086. (subOption)
  18087. UserOptions
  18088. UserOptions
  18089. OptionLabel
  18090. OptionLabel
  18091. SelectedOptions
  18092. UserOptions
  18093. UserOptions
  18094.     0S0E
  18095. TraceType
  18096. Delivery status only|0Trace entire path|1
  18097. O=Lotus Notes
  18098. O=Lotus Notes
  18099. PURSAFO
  18100. |.:#U
  18101. O=Lotus Notes
  18102. CN=Lotus Notes Template Development/O=Lotus Notes
  18103. PURSAFO
  18104. ,xG':
  18105. $INFO
  18106. $$Script_O
  18107. $$ScriptName
  18108. $BODY
  18109. O=Lotus Notes
  18110. O=Lotus Notes
  18111. PURSAFO
  18112. |.:#U
  18113. O=Lotus Notes
  18114. CN=Lotus Notes Template Development/O=Lotus Notes
  18115. PURSAFO
  18116. "tW| 
  18117. 3,\-Q
  18118. $INFO
  18119. $BODY
  18120. VersionOpt|
  18121.     6S7S9S14S
  18122. $VersionOpt
  18123.     0R1S2S3S
  18124. SavedOnce
  18125.     0R1S2S3S
  18126. PostedDate(
  18127.     0R1S2S3S
  18128. DeliveredDate
  18129.     0R1S2S3S
  18130. $AutoEditMode
  18131.     0R1S2S3S
  18132. MailSaveOptions
  18133.     0R1S2S3S
  18134. VersionOpt
  18135.     0R4S
  18136. New Link Message
  18137. Subject
  18138. Subject
  18139. Subject
  18140.     4S6S12S13S14S15S17S21S23S25S26S28S
  18141. (Help)
  18142. MAIL_F_LINKMESSAGE
  18143.     0S0E
  18144. Times New Roman
  18145. '++LotusScript Development Environment:2:5:(Options):0:74
  18146. Option Public
  18147. Option Explicit
  18148. Use "CoreEmailClasses" 
  18149. '++LotusScript Development Environment:2:5:(Forward):0:1
  18150. '++LotusScript Development Environment:2:5:(Declarations):0:10
  18151. Dim cMemoObject As Variant
  18152. Lotus Product
  18153. OBJECT
  18154.  Bookmark'++LotusScript Development Environment:2:5:(Options):0:66
  18155. '++LotusScript Development Environment:2:5:(Forward):0:1
  18156. Declare Sub Postopen(Source As Notesuidocument)
  18157. Declare Sub Postmodechange(Source As Notesuidocument)
  18158. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  18159. Declare Sub Postsave(Source As Notesuidocument)
  18160. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18161. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  18162. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18163. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18164. Private Sub BindEvents(Byval Objectname_ As String)
  18165.     Static Source As NOTESUIDOCUMENT
  18166.     Set Source = Bind(Objectname_)
  18167.     On Event Postopen From Source Call Postopen
  18168.     On Event Postmodechange From Source Call Postmodechange
  18169.     On Event Querysave From Source Call Querysave
  18170.     On Event Postsave From Source Call Postsave
  18171.     On Event Queryclose From Source Call Queryclose
  18172.     On Event Queryopen From Source Call Queryopen
  18173. End Sub
  18174. '++LotusScript Development Environment:2:2:Postopen:1:12
  18175. Sub Postopen(Source As Notesuidocument)
  18176.     Call cMemoObject.PostOpen(Source)    
  18177. End Sub
  18178. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  18179. Sub Postmodechange(Source As Notesuidocument)
  18180. End Sub
  18181. '++LotusScript Development Environment:2:2:Querysave:1:12
  18182. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  18183.     Call cMemoObject.QuerySave(Continue)
  18184. End Sub
  18185. '++LotusScript Development Environment:2:2:Postsave:1:12
  18186. Sub Postsave(Source As Notesuidocument)
  18187.     Call cMemoObject.PostSave()
  18188. End Sub
  18189. '++LotusScript Development Environment:2:2:Queryclose:1:12
  18190. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18191.     Call cMemoObject.QueryClose(Continue)
  18192. End Sub
  18193. '++LotusScript Development Environment:2:2:Queryopen:1:12
  18194. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  18195.     Set cMemoObject = New UIMemoDocument          
  18196.     Call cMemoObject.Init(Source,Isnewdoc) 
  18197. End Sub
  18198. Lotus Product
  18199. V0.0Z
  18200. ^|-H4
  18201. K|-,p*}l
  18202. K|-,p*} 
  18203. #1^|-
  18204. -,l'}
  18205. -,l'}x
  18206. -,l'}
  18207. "- )#
  18208. "-D)#,
  18209. "-D)#,
  18210. "-D)#,
  18211. "-D)#,
  18212.     Always hidden: 
  18213. Bookmark
  18214. Principal
  18215. CalendarProfile
  18216. Owner
  18217.     1S2S3S7S
  18218. Principal
  18219. Principal
  18220.     0R3S4S6S8S
  18221. FromPerson memo is from.
  18222.     0S0E
  18223.     0S0E
  18224. Encrypt
  18225.     0S0E
  18226. DefaultMailSaveOptions
  18227. $KeepPrivate
  18228. $KeepPrivate
  18229. $KeepPrivate
  18230.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  18231. Path_Info
  18232. Path_Info
  18233. .,$,  , :
  18234. Query_String
  18235. Query_String
  18236. $HideMailHeader
  18237.     0S0E
  18238. Link Message
  18239. ?_?__
  18240. `!b`1
  18241. 7`^///?
  18242. ?b___
  18243. `bOOO
  18244. `<b!R
  18245. Link Message
  18246. Link Message
  18247.     From:    
  18248. Principal
  18249. Principal
  18250. FromDomain
  18251. FromDomain
  18252. FromDomain
  18253. FromDomain
  18254.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  18255. FromName
  18256. Principal
  18257. Principal
  18258. Principal
  18259.     0RR1S2S10S11S16S18S
  18260. FromStops
  18261.     0RR1S2S6S
  18262. FromName
  18263. FromStops
  18264. FromStops
  18265. FromStops
  18266.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  18267.      on 
  18268. PostedDateh
  18269. PostedDate
  18270.     4S5S10S12S
  18271. tmpDisplayDateTime/date memo was created or mailed.
  18272. ReplyDate
  18273. ReplyTo
  18274. $HideMailHeader
  18275.     2S3S4S5S6S7S9S10S
  18276. Please respond
  18277. ReplyTo
  18278. ReplyTo
  18279. ReplyDate
  18280. ReplyDate
  18281.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  18282. $HideMailHeader
  18283. Principal
  18284. Principal
  18285. Principal
  18286. Principal
  18287. Principal
  18288.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  18289.     Sent by:    
  18290. FromDomain
  18291. FromDomain
  18292. FromDomain
  18293. FromDomain
  18294.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  18295. FromName
  18296.     0RR1S2S6S
  18297. FromStops
  18298.     0R1S2S6S
  18299. FromName
  18300. FromStops
  18301. FromStops
  18302. FromStops
  18303.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  18304. SendTo
  18305. CopyTo
  18306.   cc:  
  18307. CopyTo
  18308.     1S8S13S14S2E17S18S21S28S31S
  18309. MailAddress
  18310. InheritedReplyToh
  18311. InheritedReplyTo
  18312. InheritedReplyTo
  18313. InheritedFrom
  18314.     1S2S8S9S10S11S13S15S
  18315. MailAddress
  18316.     0RR 
  18317. SendTo}
  18318.     0S0E
  18319. SendToList of primary people to send memo.
  18320. CopyTo}
  18321.     0S0E
  18322. CopyToList of people to send a copy of the memo.
  18323. DeliveredDate
  18324. BlindCopyTo
  18325. (bcc: 
  18326. BlindCopyTo
  18327.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpBlindCopyTo
  18328.     bcc:
  18329. BlindCopyTo
  18330.     0S0E
  18331. BlindCopyToList of undisclosed people to send copies of memo.
  18332.     Subject:
  18333. InheritedSubject
  18334. Subject
  18335. Subject
  18336. Topic
  18337. Topic
  18338. Title
  18339. Title
  18340. BriefDescriptionh
  18341. BriefDescription
  18342.     1S2S3S5R10S12R17S19R24S26R31S33R
  18343. Link Message
  18344. InheritedSubjecth
  18345. InheritedSubject"
  18346.     0RR2S"
  18347. Subject
  18348.     0S0E
  18349. SubjectSubject of memo.
  18350. InheritedDBTitle
  18351. InheritedSubject
  18352. FlowStatus
  18353. DueDateTime
  18354.     1S2S3S2E4S5S6S7S8S9S10S11S12S13S14S
  18355.     Document Link Information:
  18356. InheritedDBTitle
  18357.     1S2S
  18358.     Database:    
  18359. InheritedDBTitle
  18360. InheritedDBTitle
  18361. InheritedSubject
  18362.     1S2S
  18363.     Document:    
  18364. InheritedSubject
  18365. InheritedSubject
  18366. FlowStatus
  18367.     1S2S
  18368.     Workflow status:    
  18369. FlowStatus
  18370. FlowStatus
  18371. DueDateTime
  18372.     1S2S
  18373.     Due date:    
  18374. DueDateTime
  18375. DueDateTime
  18376.  @  @@ @` @
  18377. @@ @@@@@`@@
  18378. `@ `@@`@``@
  18379.       You may open the document by clicking on this link.
  18380.     Always Hidden: 
  18381. MailedThisPass
  18382. MailedThisPass
  18383. MailedThisPass
  18384.     0R1RT4RTTT11RT
  18385. ReplyDate
  18386. ReplyDate
  18387. ReplyDate
  18388. Importanceh
  18389. Importance
  18390. Importance
  18391. Importance(
  18392. DeliveryReporth
  18393. DeliveryReport
  18394. DeliveryReport
  18395. DeliveryReport(
  18396. DeliveryPriorityh
  18397. DeliveryPriority
  18398. DeliveryPriority
  18399. DeliveryPriority(
  18400. UpdateProfileNote
  18401. UpdateProfileNote
  18402. UpdateProfileNote
  18403. ReturnReceipt
  18404. ReturnReceipt
  18405. ReturnReceipt
  18406. $KeepPrivateh
  18407. $KeepPrivate
  18408. $KeepPrivate(
  18409. ExpireDateh
  18410. ExpireDate
  18411. ExpireDate(
  18412. ReplyTo
  18413. ReplyTo
  18414. ReplyTo
  18415. MimeFormath
  18416. MimeFormat
  18417. MimeFormat
  18418. MimeFormat(
  18419. SMTPEncodingh
  18420. SMTPEncoding
  18421. SMTPEncoding
  18422. SMTPEncoding(
  18423. MIMEMailCharset
  18424. MIMEMailCharset
  18425. MIMEMailCharset
  18426. MIMEMailCharset
  18427. $AutoSpellh
  18428. $AutoSpell
  18429. $AutoSpell(
  18430. WebSubjecth
  18431. WebSubject
  18432. WebSubject(
  18433. tmpSenderTagh
  18434. tmpSenderTag
  18435. tmpSenderTag
  18436. tmpSenderTag(
  18437.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  18438. MailedThisPass
  18439. MailedThisPass(
  18440. EnterSendTo
  18441. EnterSendTo
  18442. EnterCopyTo
  18443. EnterCopyTo
  18444. EnterBlindCopyToh
  18445. EnterBlindCopyTo(
  18446.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  18447. RemoveNoteItems
  18448. Lotus Product
  18449. OBJECT
  18450. Discard ChangesK
  18451. MEMO_CANCEL
  18452. 4194304
  18453.     0S0E
  18454. ActionInProgress
  18455. MEMO_CANCEL
  18456.     0R1S
  18457. IsMailStationery
  18458.     1S2S3S
  18459. Save And Close
  18460. MEMO_DRAFT
  18461.     0S0E
  18462. ActionInProgress
  18463. MEMO_DRAFT
  18464.     0R1S
  18465. PostedDateh
  18466. IsMailStationery
  18467.     7S8S9S10S13S14S15S16S
  18468. Save And File
  18469. '++LotusScript Development Environment:2:5:(Options):0:66
  18470. '++LotusScript Development Environment:2:5:(Forward):0:1
  18471. Declare Sub Click(Source As Button)
  18472. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18473. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18474. Private Sub BindEvents(Byval Objectname_ As String)
  18475.     Static Source As BUTTON
  18476.     Set Source = Bind(Objectname_)
  18477.     On Event Click From Source Call Click
  18478. End Sub
  18479. '++LotusScript Development Environment:2:2:Click:1:12
  18480. Sub Click(Source As Button)
  18481.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  18482.     Call cMemoObject.noteUIMemo.save()
  18483.     Call cMemoObject.noteUIMemo.close()
  18484. End Sub
  18485. PostedDateh
  18486. IsMailStationery
  18487.     7S8S9S10S13S14S15S16S
  18488. Close
  18489. MEMO_CANCEL
  18490. 4194304
  18491.     0S0E
  18492. ActionInProgress
  18493. MEMO_CANCEL
  18494.     0R1S
  18495. IsMailStationery
  18496.     0S1S2S
  18497. New Memo(
  18498.     0S0E
  18499. Reply\ReplyK0
  18500. Reply
  18501.     0S0E
  18502. Reply\Reply with History
  18503. Reply with History
  18504. This document is truncated.
  18505.     4S8S10S13S
  18506. Reply with history
  18507. Reply\Reply to AllX
  18508. MailStEd
  18509.     0S0E
  18510. Reply
  18511. Reply\Reply to All with HistoryK
  18512. MailStEd
  18513.     0S0E
  18514. Reply with History
  18515. This document is truncated.
  18516.     0R4S8S10S13S
  18517. Reply with history
  18518. Edit Document
  18519. ForwardK 
  18520.     0S0E
  18521. Delete 
  18522.     0S0E
  18523. _Move To Folder...
  18524. MEMO_SEND
  18525.     0S0E
  18526. ActionInProgress
  18527. MEMO_SEND
  18528.     0R1S
  18529. PostedDateh
  18530. IsMailStationery
  18531.     5S6S7S8S10S11S12S13S
  18532. Send and File
  18533. MEMO_SEND_FILE
  18534.     0S0E
  18535. ActionInProgress
  18536. MEMO_SEND_FILE
  18537.     0R1S
  18538. PostedDateh
  18539. IsMailStationery
  18540.     5S6S7S8S12S13S
  18541. MEMO_STATIONERYSAVE
  18542.     0S0E
  18543. ActionInProgress
  18544. MEMO_STATIONERYSAVE
  18545.     0R1S
  18546. IsMailStationery
  18547.     2S3S
  18548. Save As Draft
  18549. MEMO_DRAFT
  18550.     0S0E
  18551. ActionInProgress
  18552. MEMO_DRAFT
  18553.     0R1S
  18554. PostedDateh
  18555. IsMailStationery
  18556.     5S6S7S8S10S11S12S13S
  18557. Delivery Options...K~
  18558. DeliveryOptions
  18559. Delivery Options
  18560.     0R4S10S
  18561. PostedDateh
  18562.     5S6S7S8S
  18563. Delivery Information...Kz
  18564. DeliveryInfo
  18565. Delivery Information
  18566.     4S5S6S7S8S9S10S12S
  18567. _Forward
  18568. Reply
  18569. Reply
  18570.     0S0E
  18571. Reply With History
  18572. Reply with History
  18573. This document is truncated.
  18574.     4S8S10S13S
  18575. Reply with history
  18576. Address... 
  18577.     0S0E
  18578. PostedDateh
  18579.     5S6S7S8S
  18580. _Remove From Folder...
  18581. Categori_zeK
  18582. SSend
  18583. New Memo(
  18584.     0S0E
  18585. ForwardK
  18586.     1S10S14S16S23S
  18587. path"
  18588. /Memo?OpenForm&UNID="
  18589. &forward"
  18590. Reply\ReplyK*
  18591. Reply
  18592.     0S0E
  18593. Reply\Reply to All
  18594.     0R1S10S14S16S23S
  18595. path"
  18596. /Reply?OpenForm&"
  18597. &All"
  18598.     0R3S4S5S6S7S8S15S17S18S
  18599. Reply\Reply with HistoryV
  18600.     1S10S14S16S23S
  18601. Format
  18602. CalendarProfile
  18603. FormatReplies
  18604.     0R6S
  18605. Format
  18606. path"
  18607. /Reply+With+History?OpenForm&
  18608. &Format
  18609. Reply With History
  18610.     0R9S10S11S12S13S14S21S23S24S
  18611. Reply\Reply to All with HistoryK
  18612.     1S10S14S16S23S
  18613. Format
  18614. CalendarProfile
  18615. FormatReplies
  18616.     0R6S
  18617. Format
  18618. path"
  18619. /Reply+With+History?OpenForm&
  18620. &Format&All
  18621. path"
  18622. /Reply+With+History?OpenForm&
  18623. &All"
  18624.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  18625. Send\Send
  18626. tmpSendOptions
  18627. Send\Send and Save`
  18628. tmpSendOptions
  18629. Send\Save as Draft`
  18630. tmpSendOptions
  18631. Edit 
  18632.     0S0E
  18633. Delete
  18634.     1S10S14S16S23S
  18635.     0R5S
  18636. path"
  18637. /wDelete?OpenAgent&
  18638. UNID"
  18639. Inbox
  18640.     1S2S
  18641. path"
  18642. /MailFS?OpenFrameset"
  18643.     0R3S4S5S6S
  18644. Next 
  18645.     0S0E
  18646. Previous 
  18647.     0S0E
  18648. Discard ChangesK
  18649. MEMO_CANCEL
  18650. 4194304
  18651.     0S0E
  18652. ActionInProgress
  18653. MEMO_CANCEL
  18654.     0R1S
  18655. IsMailStationery
  18656.     1S2S3S
  18657. Save And Close
  18658. MEMO_DRAFT
  18659.     0S0E
  18660. ActionInProgress
  18661. MEMO_DRAFT
  18662.     0R1S
  18663. PostedDateh
  18664. IsMailStationery
  18665.     7S8S9S10S13S14S15S16S
  18666. act_save.GIF|act_CSSAVE?
  18667. Save And File
  18668. '++LotusScript Development Environment:2:5:(Options):0:66
  18669. '++LotusScript Development Environment:2:5:(Forward):0:1
  18670. Declare Sub Click(Source As Button)
  18671. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18672. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18673. Private Sub BindEvents(Byval Objectname_ As String)
  18674.     Static Source As BUTTON
  18675.     Set Source = Bind(Objectname_)
  18676.     On Event Click From Source Call Click
  18677. End Sub
  18678. '++LotusScript Development Environment:2:2:Click:1:12
  18679. Sub Click(Source As Button)
  18680.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  18681.     Call cMemoObject.noteUIMemo.save()
  18682.     Call cMemoObject.noteUIMemo.close()
  18683. End Sub
  18684. PostedDateh
  18685. IsMailStationery
  18686.     7S8S9S10S13S14S15S16S
  18687. Close
  18688. MEMO_CANCEL
  18689. 4194304
  18690.     0S0E
  18691. ActionInProgress
  18692. MEMO_CANCEL
  18693.     0R1S
  18694. IsMailStationery
  18695.     0S1S2S
  18696. New Memo(
  18697.     0S0E
  18698. act_NEWMEMO.GIF|act_NEWMEMO?
  18699. Reply\ReplyK0
  18700. Reply
  18701.     0S0E
  18702. act_REPLY.GIF|act_REPLY?
  18703. Reply\Reply with History
  18704. Reply with History
  18705. This document is truncated.
  18706.     4S8S10S13S
  18707. Reply with history
  18708. act_REPLY.GIF|act_REPLY?
  18709. Reply\Reply to AllX
  18710. MailStEd
  18711.     0S0E
  18712. Reply
  18713. act_REPLY.GIF|act_REPLY?
  18714. Reply\Reply to All with HistoryK
  18715. MailStEd
  18716.     0S0E
  18717. Reply with History
  18718. This document is truncated.
  18719.     0R4S8S10S13S
  18720. Reply with history
  18721. act_REPLY.GIF|act_REPLY?
  18722. Edit Document
  18723. ForwardK 
  18724.     0S0E
  18725. Delete 
  18726.     0S0E
  18727. _Move To Folder...
  18728. MEMO_SEND
  18729.     0S0E
  18730. ActionInProgress
  18731. MEMO_SEND
  18732.     0R1S
  18733. PostedDateh
  18734. IsMailStationery
  18735.     5S6S7S8S10S11S12S13S
  18736. act_SEND.GIF|act_SEND?
  18737. Send and File
  18738. MEMO_SEND_FILE
  18739.     0S0E
  18740. ActionInProgress
  18741. MEMO_SEND_FILE
  18742.     0R1S
  18743. PostedDateh
  18744. IsMailStationery
  18745.     5S6S7S8S12S13S
  18746. act_SEND.GIF|act_SEND?
  18747. MEMO_STATIONERYSAVE
  18748.     0S0E
  18749. ActionInProgress
  18750. MEMO_STATIONERYSAVE
  18751.     0R1S
  18752. IsMailStationery
  18753.     2S3S
  18754. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  18755. Save As Draft
  18756. MEMO_DRAFT
  18757.     0S0E
  18758. ActionInProgress
  18759. MEMO_DRAFT
  18760.     0R1S
  18761. PostedDateh
  18762. IsMailStationery
  18763.     5S6S7S8S10S11S12S13S
  18764. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  18765. Delivery Options...K~
  18766. DeliveryOptions
  18767. Delivery Options
  18768.     0R4S10S
  18769. PostedDateh
  18770.     5S6S7S8S
  18771. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  18772. Delivery Information...Kz
  18773. DeliveryInfo
  18774. Delivery Information
  18775.     4S5S6S7S8S9S10S12S
  18776. _Forward
  18777. Reply
  18778. Reply
  18779.     0S0E
  18780. Reply With History
  18781. Reply with History
  18782. This document is truncated.
  18783.     4S8S10S13S
  18784. Reply with history
  18785. Address... 
  18786.     0S0E
  18787. PostedDateh
  18788.     5S6S7S8S
  18789. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  18790. _Remove From Folder...
  18791. Categori_zeK
  18792. SSend
  18793. New Memo(
  18794.     0S0E
  18795. act_NEW.GIF|act_NEW?
  18796. ForwardK
  18797.     1S10S14S16S23S
  18798. path"
  18799. /Memo?OpenForm&UNID="
  18800. &forward"
  18801. act_FORWARD.GIF|act_FORWARD?
  18802. Reply\ReplyK*
  18803. Reply
  18804.     0S0E
  18805. act_REPLY.GIF|act_REPLY?
  18806. Reply\Reply to All
  18807.     0R1S10S14S16S23S
  18808. path"
  18809. /Reply?OpenForm&"
  18810. &All"
  18811.     0R3S4S5S6S7S8S15S17S18S
  18812. Reply\Reply with HistoryV
  18813.     1S10S14S16S23S
  18814. Format
  18815. CalendarProfile
  18816. FormatReplies
  18817.     0R6S
  18818. Format
  18819. path"
  18820. /Reply+With+History?OpenForm&
  18821. &Format
  18822. Reply With History
  18823.     0R9S10S11S12S13S14S21S23S24S
  18824. act_REPLY.GIF|act_REPLY?
  18825. Reply\Reply to All with HistoryK
  18826.     1S10S14S16S23S
  18827. Format
  18828. CalendarProfile
  18829. FormatReplies
  18830.     0R6S
  18831. Format
  18832. path"
  18833. /Reply+With+History?OpenForm&
  18834. &Format&All
  18835. path"
  18836. /Reply+With+History?OpenForm&
  18837. &All"
  18838.     0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
  18839. Send\Send
  18840. tmpSendOptions
  18841. act_SEND.GIF|act_SEND?
  18842. Send\Send and Save`
  18843. tmpSendOptions
  18844. act_SEND.GIF|act_SEND?
  18845. Send\Save as Draft`
  18846. tmpSendOptions
  18847. act_SEND.GIF|act_SEND?
  18848. Address...
  18849. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  18850. var pathname = (window.location.pathname);
  18851. if (navigator.appName =='Netscape') {
  18852. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  18853.     } else {
  18854. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  18855. Delivery Options...K
  18856. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  18857. var pathname = (window.location.pathname);
  18858. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  18859. Edit 
  18860.     0S0E
  18861. act_EDIT.GIF|act_EDIT?
  18862. Delete
  18863.     1S10S14S16S23S
  18864.     0R5S
  18865. path"
  18866. /wDelete?OpenAgent&
  18867. UNID"
  18868. act_DELETE.GIF|act_DELETE?
  18869. Inbox
  18870.     1S2S
  18871. path"
  18872. /MailFS?OpenFrameset"
  18873.     0R3S4S5S6S
  18874. act_NEWMAIL.GIF|act_NEWMAIL?
  18875. Copy Into\New Task
  18876. act_COPYINTO.GIF|act_COPYINTO?
  18877. var pathname = window.location.pathname
  18878. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  18879. window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
  18880. Copy Into\New Calendar Entry
  18881. act_COPYINTO.GIF|act_COPYINTO?
  18882. alert('Feature in Progress')
  18883. Next 
  18884.     0S0E
  18885. Previous 
  18886.     0S0E
  18887. O=Lotus Notes
  18888. O=Lotus Notes
  18889. PURSAFO
  18890. |.:#U
  18891. O=Lotus Notes
  18892. CN=Lotus Notes Template Development/O=Lotus Notes
  18893. PURSAFO
  18894. $$FormPostOpenAction
  18895. ExpireDate
  18896. ReplyDate
  18897. $TypeIcon
  18898. ReplyNumber
  18899. ComposedDate
  18900. DueDate
  18901. $AUTOLAUNCH
  18902. $INFO
  18903. $WINDOWTITLE
  18904. $AppHelpFormula
  18905. $Script
  18906. $$Script_O
  18907. $$ScriptName
  18908. $$FormScript
  18909. $$$FormScript_O
  18910. DueDateTime
  18911. $BODY
  18912. $SCRIPTOBJ_2
  18913. $ACTIONS
  18914. $V5ACTIONS
  18915. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
  18916. _Special\Phone MessagePhone Message
  18917. SubjectBodyPhoneReasonFAXNumberPhoneNumberCompanyNamePhoneCallerBlindCopyToCopyToSendTo$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
  18918. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NoteswP#############################
  18919. $SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($All)/P=7201
  18920. $68$106
  18921. $102$68
  18922. $106B
  18923. CN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesYdP
  18924. ##########################################################
  18925. $LotusFaxMemoSubform1.0$LotusFaxMemoSubform
  18926. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP############
  18927. $MoodsMoods
  18928. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3P####################################################
  18929. (AlarmOptions)AlarmOptions
  18930. tmpAlarmFilestmpDisable$AlarmSendTotmpSendMailtmpAlarmPathtmpPlaySoundtmpAlarmPopuptmpOffsetDir$AlarmUnittmpOffset1
  18931. CN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP##########
  18932. (ChangeRepeat)
  18933. tmpChangeWhich1
  18934. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3P################
  18935. (C&S DeliveryOptions)
  18936. PreventDelegateEncryptPreventCounterSignBroadcast1
  18937. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3P
  18938. ##########################################################
  18939. (DeleteSentDlg)
  18940. tmpDontAskAction
  18941. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3xP.
  18942. ##########################################################
  18943. tmpFromInfo_1tmpPostedDateInfo_1
  18944. (Delivery Info)DeliveryInfo1
  18945. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDU3P########
  18946. (Delivery Options)DeliveryOptions
  18947. SenderTagSMTPEncodingMIMEMailCharsetReplyToExpireDateReplyDatetmpSenderTagUpdateProfileNoteEncryptSign$AutoSpellDeliveryPriority$KeepPrivateDeliveryReportReturnReceiptImportance$Moods1
  18948. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCDU3wxP
  18949. ##########################################################
  18950. (GroupCalendarDlg)
  18951. $PublicAccessMembersSubject1
  18952. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP#######################################
  18953. (GroupCalendarOptions)
  18954. DurationSelStartTimeStartDate
  18955. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3P###################################################
  18956. (InviteeReplyDlg)
  18957. tmpIncludeCommentstmpKeepPostedNewEndTimeNewEndDateNewStartTimeNewStartDateDelegeetmpPencilIntmpFTSEndDateTimetmpFTSStartDateTimetmpActionType1
  18958. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP#####
  18959. (ListResource)(ListResource)
  18960. SelectedItems
  18961. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3xP#######################################################
  18962. (OwnerDlg)
  18963. tmpIncludeCommentstmpDeleteEntryEndTimeEndDateStartTimeStartDatetmpActionType1
  18964. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP#############################
  18965. (RepeatForm)
  18966. RepeatForUnitRepeatForRepeatUntilRepeatStartDateRepeatHowRepeatWeekendsRepeatCustomRepeatFromEndRepeatAdjustRepeatIntervalRepeatUnittmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP1
  18967. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP#######################################################
  18968. (RepeatOpenList)
  18969. tmpDateSelectedtmpDateListtmpListOfDates1
  18970. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP####################
  18971. (Room Resource Scheduler)
  18972. tmpResourceNameMultitmpResourceNameSingletmpResourceNameBlanktmpResourceCategorytmpCapacitytmpSitetmpNABsEndTimeStartTimeStartDateEndDatetmpSubsetCategorytmpCategoriesAlltmpSitesAlltmpAddressBookstmpResourceNametmpResourceType1
  18973. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3P######
  18974. (SignatureOption)
  18975. SignatureSignatureOption
  18976. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3P####################################
  18977. (subOption)
  18978. TraceTypeSelectedOptions
  18979. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP
  18980. (subTrackMessage)
  18981. tmpDontShow
  18982. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3P####################
  18983. (wCSItems)"
  18984. tmpDeleteItemstmpChangeWhichDelegeeNewEndTimeNewStartTimeNewEndDateNewStartDatetmpKeepPostedtmpAction$CSVersiontmpWasMailedChairtmpOwnertmpResponse$CSFlagstmpDBtmpOriginalEndtmpOriginalStarttmpCalInstanceDateOrgRepeatRepeatWeekendsRepeatFromEndRepeatUntilRepeatForUnitRepeatForRepeatHowRepeatCustomRepeatAdjustRepeatIntervalRepeatUnitRepeatStartDateEndDateTimeStartDateTimeApptUNID
  18985. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCUA3xP########
  18986. (WebSpecificFields)
  18987. SaveOptionsMailOptionsReturnReceipttmpSendOptionsDeliveryPriorityDeliveryReportImportance
  18988. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCU3P#######
  18989. $BetaVersion
  18990. $BetaVersion
  18991. $BetaVersion
  18992. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesP########################################
  18993. ACLManagement1
  18994. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notess34QP
  18995. ##########################################################
  18996. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Damien Katz/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Damien Katz/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Damien Katz/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Damien Katz/O=IrisCN=William Zircher/O=IrisCN=Damien Katz/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCommon1s34QP#######
  18997. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCommonUI1s34QP
  18998. ##########################################################
  18999. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCoreEmailClasses1s34QP###################################
  19000. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSEventClass1s34QP#
  19001. ##########################################################
  19002. ##########################################################
  19003. VersionOpt|
  19004.     6S7S9S14S
  19005. $VersionOpt
  19006.     0R1S2S3S
  19007. SavedOnce
  19008.     0R1S2S3S
  19009. PostedDate(
  19010.     0R1S2S3S
  19011. DeliveredDate
  19012.     0R1S2S3S
  19013. $AutoEditMode
  19014.     0R1S2S3S
  19015. MailSaveOptions
  19016.     0R1S2S3S
  19017. VersionOpt
  19018.     0R4S
  19019. Phone Message
  19020. Subject
  19021. Subject
  19022. Subject
  19023.     4S6S12S13S14S15S17S21S23S25S26S28S
  19024. (Help)
  19025. MAIL_F_PHONE-MESSAGE
  19026.     0S0E
  19027. Times New Roman
  19028. '++LotusScript Development Environment:2:5:(Options):0:74
  19029. Option Public
  19030. Option Explicit
  19031. Use "CoreEmailClasses"
  19032. '++LotusScript Development Environment:2:5:(Forward):0:1
  19033. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19034. Dim cMemoObject As Variant
  19035. Lotus Product
  19036.  Phone Message'++LotusScript Development Environment:2:5:(Options):0:66
  19037. '++LotusScript Development Environment:2:5:(Forward):0:1
  19038. Declare Sub Postopen(Source As Notesuidocument)
  19039. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  19040. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  19041. Declare Sub Postmodechange(Source As Notesuidocument)
  19042. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  19043. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  19044. Declare Sub Postsave(Source As Notesuidocument)
  19045. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19046. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19047. Private Sub BindEvents(Byval Objectname_ As String)
  19048.     Static Source As NOTESUIDOCUMENT
  19049.     Set Source = Bind(Objectname_)
  19050.     On Event Postopen From Source Call Postopen
  19051.     On Event Querysave From Source Call Querysave
  19052.     On Event Queryclose From Source Call Queryclose
  19053.     On Event Postmodechange From Source Call Postmodechange
  19054.     On Event Queryopen From Source Call Queryopen
  19055.     On Event Querymodechange From Source Call Querymodechange
  19056.     On Event Postsave From Source Call Postsave
  19057. End Sub
  19058. '++LotusScript Development Environment:2:2:Postopen:1:12
  19059. Sub Postopen(Source As Notesuidocument)
  19060.     Call cMemoObject.PostOpen(Source)    
  19061. End Sub
  19062. '++LotusScript Development Environment:2:2:Querysave:1:12
  19063. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  19064.     Call cMemoObject.QuerySave(Continue)
  19065. End Sub
  19066. '++LotusScript Development Environment:2:2:Queryclose:1:12
  19067. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  19068.     Call cMemoObject.QueryClose(Continue)
  19069. End Sub
  19070. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  19071. Sub Postmodechange(Source As Notesuidocument)
  19072.     Call cMemoObject.PostModeChange()    
  19073. End Sub
  19074. '++LotusScript Development Environment:2:2:Queryopen:1:12
  19075. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  19076.     Set cMemoObject = New UIMemoDocument         
  19077.     Call cMemoObject.Init(Source,Isnewdoc)  
  19078. End Sub
  19079. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  19080. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  19081.     Continue = cMemoObject.QueryModeChange(Source)
  19082. End Sub
  19083. '++LotusScript Development Environment:2:2:Postsave:1:12
  19084. Sub Postsave(Source As Notesuidocument)
  19085.     Call cMemoObject.PostSave()
  19086. End Sub
  19087. Lotus Product
  19088. OBJECT
  19089.     Always Hidden: 
  19090. Phone Message
  19091. Principal
  19092. CalendarProfile
  19093. Owner
  19094.     1S2S3S7S
  19095. Principal
  19096. Principal
  19097.     0R3S4S6S8S
  19098. FromPerson memo is from.
  19099.     0S0E
  19100.     0S0E
  19101. Encrypt
  19102.     0S0E
  19103. DefaultMailSaveOptions
  19104. $KeepPrivate
  19105. $KeepPrivate
  19106. $KeepPrivate
  19107.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  19108. (WebSpecificFields)
  19109.     0S0E
  19110.     From:    
  19111. Principal
  19112. Principal
  19113. FromDomain
  19114. FromDomain
  19115. FromDomain
  19116. FromDomain
  19117.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  19118. FromName
  19119. Principal
  19120. Principal
  19121. Principal
  19122.     0RR1S2S10S11S16S18S
  19123. FromStops
  19124.     0RR1S2S6S
  19125. FromName
  19126. FromStops
  19127. FromStops
  19128. FromStops
  19129.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  19130.      on 
  19131. PostedDateh
  19132. PostedDate
  19133.     7S9S
  19134. tmpDisplayDateTime/date memo was created or mailed.
  19135. ReplyDate
  19136. ReplyTo
  19137.     1S2S3S4S5S6S
  19138. Please respond
  19139. ReplyTo
  19140. ReplyTo
  19141. ReplyDate
  19142. ReplyDate
  19143.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  19144. $HideMailHeader
  19145. Principal
  19146. Principal
  19147. Principal
  19148. Principal
  19149. Principal
  19150.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  19151.     Sent by:    
  19152. FromDomain
  19153. FromDomain
  19154. FromDomain
  19155. FromDomain
  19156.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  19157. FromName
  19158.     0RR1S2S6S
  19159. FromStops
  19160.     0R1S2S6S
  19161. FromName
  19162. FromStops
  19163. FromStops
  19164. FromStops
  19165.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  19166. SendTo
  19167. CopyTo
  19168.   cc:  
  19169. CopyTo
  19170.     1S8S13S14S2E17S18S21S28S31S
  19171. SendTo}
  19172.     0S0E
  19173. SendToList of primary people to send memo.
  19174. CopyTo}
  19175.     0S0E
  19176. CopyToList of people to send a copy of the memo.
  19177. DeliveredDate
  19178. BlindCopyTo
  19179. (bcc: 
  19180. BlindCopyTo
  19181.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
  19182.     bcc:
  19183. BlindCopyTo
  19184.     0S0E
  19185. BlindCopyToList of undisclosed people to send copies of memo.
  19186. While You Were Out
  19187. Contact:
  19188. Phone:
  19189. PhoneCaller
  19190. tmpPhoneCaller
  19191. CompanyName
  19192. tmpCompanyName
  19193. PhoneNumber
  19194. tmpPhoneNumber
  19195. FaxNumber
  19196. tmpFaxNumber
  19197. PhoneCaller
  19198. CompanyName
  19199. PhoneNumber
  19200. FAXNumber
  19201. PhoneReason
  19202. PhoneReason    
  19203. Telephoned|TPlease Call|PWill Call Again|WReturned Call|RWas In|IWill Return|LLeft Package|KPlease See Me|MUrgent|N
  19204.     Message:
  19205. Phone Message from 
  19206. PhoneCaller
  19207.     1S2S
  19208. Subject
  19209.     Always Hidden: 
  19210. MailedThisPass
  19211. MailedThisPass
  19212. MailedThisPass
  19213.     0R1RT4RTTT11RT
  19214. ReplyDate
  19215. ReplyDate
  19216. ReplyDate
  19217. Importanceh
  19218. Importance
  19219. Importance
  19220. Importance(
  19221. DeliveryReporth
  19222. DeliveryReport
  19223. DeliveryReport
  19224. DeliveryReport(
  19225. DeliveryPriorityh
  19226. DeliveryPriority
  19227. DeliveryPriority
  19228. DeliveryPriority(
  19229. UpdateProfileNote
  19230. UpdateProfileNote
  19231. UpdateProfileNote
  19232. ReturnReceipt
  19233. ReturnReceipt
  19234. ReturnReceipt
  19235. $KeepPrivateh
  19236. $KeepPrivate
  19237. $KeepPrivate(
  19238. ExpireDateh
  19239. ExpireDate
  19240. ExpireDate(
  19241. ReplyTo
  19242. ReplyTo
  19243. ReplyTo
  19244. MimeFormath
  19245. MimeFormat
  19246. MimeFormat
  19247. MimeFormat(
  19248. SMTPEncodingh
  19249. SMTPEncoding
  19250. SMTPEncoding
  19251. SMTPEncoding(
  19252. MIMEMailCharset
  19253. MIMEMailCharset
  19254. MIMEMailCharset
  19255. MIMEMailCharset
  19256. $AutoSpellh
  19257. $AutoSpell
  19258. $AutoSpell(
  19259. WebSubjecth
  19260. WebSubject
  19261. WebSubject(
  19262. tmpSenderTagh
  19263. tmpSenderTag
  19264. tmpSenderTag
  19265. tmpSenderTag(
  19266.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  19267. MailedThisPass
  19268. MailedThisPass(
  19269. EnterSendTo
  19270. EnterSendTo
  19271. EnterCopyTo
  19272. EnterCopyTo
  19273. EnterBlindCopyToh
  19274. EnterBlindCopyTo(
  19275.     0R1RT3S4S5S6S8RTT10RTTT17RTTT19RTTTT24RTTTTT31RTTTT32RTTTT34RTTT36RTTTT41RTTTTT48RTTTT49RTTTT51RTTT53RTTTT58RTTTTT65RTTTT66RTTTT67RTT69RTT73RT
  19276. RemoveNoteItems
  19277. Lotus Product
  19278. OBJECT
  19279. Lotus Product
  19280. OBJECT
  19281. Lotus Product
  19282. OBJECT
  19283. Edit Document
  19284. ForwardK 
  19285.     0S0E
  19286. New Memo(
  19287.     0S0E
  19288. Reply\ReplyK0
  19289. Reply
  19290.     0S0E
  19291. Reply\Reply with History
  19292. Reply with History
  19293. This document is truncated.
  19294.     4S8S10S13S
  19295. Reply with history
  19296. Reply\Reply to AllX
  19297. MailStEd
  19298.     0S0E
  19299. Reply
  19300. Reply\Reply to All with HistoryK
  19301. MailStEd
  19302.     0S0E
  19303. Reply with History
  19304. This document is truncated.
  19305.     0R4S8S10S13S
  19306. Reply with history
  19307. Delete 
  19308.     0S0E
  19309. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  19310. Use "CommonUI"
  19311. '++LotusScript Development Environment:2:5:(Forward):0:1
  19312. Declare Sub Click(Source As Button)
  19313. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19314. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19315. Private Sub BindEvents(Byval Objectname_ As String)
  19316. Static Source As BUTTON
  19317. Set Source = Bind(Objectname_)
  19318. On Event Click From Source Call Click
  19319. End Sub
  19320. '++LotusScript Development Environment:2:2:Click:1:12
  19321. Sub Click(Source As Button)
  19322.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  19323. End Sub
  19324. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  19325. Use "CommonUI"
  19326. '++LotusScript Development Environment:2:5:(Forward):0:1
  19327. Declare Sub Click(Source As Button)
  19328. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19329. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19330. Private Sub BindEvents(Byval Objectname_ As String)
  19331. Static Source As BUTTON
  19332. Set Source = Bind(Objectname_)
  19333. On Event Click From Source Call Click
  19334. End Sub
  19335. '++LotusScript Development Environment:2:2:Click:1:12
  19336. Sub Click(Source As Button)
  19337.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  19338. End Sub
  19339. Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
  19340. Use "CommonUI"
  19341. '++LotusScript Development Environment:2:5:(Forward):0:1
  19342. Declare Sub Click(Source As Button)
  19343. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19344. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19345. Private Sub BindEvents(Byval Objectname_ As String)
  19346.     Static Source As BUTTON
  19347.     Set Source = Bind(Objectname_)
  19348.     On Event Click From Source Call Click
  19349. End Sub
  19350. '++LotusScript Development Environment:2:2:Click:1:12
  19351. Sub Click(Source As Button)
  19352.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  19353. End Sub
  19354. _Move To Folder...
  19355. Delivery Information...Kz
  19356. DeliveryInfo
  19357. Delivery Information
  19358.     4S5S6S7S8S9S10S12S
  19359. _Forward
  19360. Close
  19361.     0S0E
  19362. IsMailStationeryh
  19363. PostedDateh
  19364.     6S7S
  19365. MEMO_SEND
  19366.     0S0E
  19367. ActionInProgress
  19368. MEMO_SEND
  19369.     0R1S
  19370. PostedDateh
  19371. IsMailStationery
  19372.     5S6S7S8S10S11S12S13S
  19373. Send and File
  19374. MEMO_SEND_FILE
  19375.     0S0E
  19376. ActionInProgress
  19377. MEMO_SEND_FILE
  19378.     0R1S
  19379. PostedDateh
  19380. IsMailStationery
  19381.     5S6S7S8S12S13S
  19382. Save As Draft
  19383. MEMO_DRAFT
  19384.     0S0E
  19385. ActionInProgress
  19386. MEMO_DRAFT
  19387.     0R1S
  19388. PostedDateh
  19389. IsMailStationery
  19390.     5S6S7S8S10S11S12S13S
  19391. Address... 
  19392.     0S0E
  19393. PostedDateh
  19394.     5S6S7S8S
  19395. Delivery Options...K~
  19396. DeliveryOptions
  19397. Delivery Options
  19398.     0R4S10S
  19399. PostedDateh
  19400.     5S6S7S8S
  19401. _Remove From Folder...
  19402. Categori_zeK
  19403. SSend
  19404. Edit Document
  19405. ForwardK 
  19406.     0S0E
  19407. New Memo(
  19408.     0S0E
  19409. act_NEWMEMO.GIF|act_NEWMEMO?
  19410. Reply\ReplyK0
  19411. Reply
  19412.     0S0E
  19413. act_REPLY.GIF|act_REPLY?
  19414. Reply\Reply with History
  19415. Reply with History
  19416. This document is truncated.
  19417.     4S8S10S13S
  19418. Reply with history
  19419. act_REPLY.GIF|act_REPLY?
  19420. Reply\Reply to AllX
  19421. MailStEd
  19422.     0S0E
  19423. Reply
  19424. act_REPLY.GIF|act_REPLY?
  19425. Reply\Reply to All with HistoryK
  19426. MailStEd
  19427.     0S0E
  19428. Reply with History
  19429. This document is truncated.
  19430.     0R4S8S10S13S
  19431. Reply with history
  19432. act_REPLY.GIF|act_REPLY?
  19433. Delete 
  19434.     0S0E
  19435. act_DELETE.GIF|act_DELETE?
  19436. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  19437. Use "CommonUI"
  19438. '++LotusScript Development Environment:2:5:(Forward):0:1
  19439. Declare Sub Click(Source As Button)
  19440. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19441. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19442. Private Sub BindEvents(Byval Objectname_ As String)
  19443. Static Source As BUTTON
  19444. Set Source = Bind(Objectname_)
  19445. On Event Click From Source Call Click
  19446. End Sub
  19447. '++LotusScript Development Environment:2:2:Click:1:12
  19448. Sub Click(Source As Button)
  19449.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  19450. End Sub
  19451. act_COPYINTO.GIF|act_COPYINTO?
  19452. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  19453. Use "CommonUI"
  19454. '++LotusScript Development Environment:2:5:(Forward):0:1
  19455. Declare Sub Click(Source As Button)
  19456. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19457. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19458. Private Sub BindEvents(Byval Objectname_ As String)
  19459. Static Source As BUTTON
  19460. Set Source = Bind(Objectname_)
  19461. On Event Click From Source Call Click
  19462. End Sub
  19463. '++LotusScript Development Environment:2:2:Click:1:12
  19464. Sub Click(Source As Button)
  19465.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  19466. End Sub
  19467. act_COPYINTO.GIF|act_COPYINTO?
  19468. Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
  19469. Use "CommonUI"
  19470. '++LotusScript Development Environment:2:5:(Forward):0:1
  19471. Declare Sub Click(Source As Button)
  19472. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19473. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19474. Private Sub BindEvents(Byval Objectname_ As String)
  19475.     Static Source As BUTTON
  19476.     Set Source = Bind(Objectname_)
  19477.     On Event Click From Source Call Click
  19478. End Sub
  19479. '++LotusScript Development Environment:2:2:Click:1:12
  19480. Sub Click(Source As Button)
  19481.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  19482. End Sub
  19483. act_COPYINTO.GIF|act_COPYINTO?
  19484. _Move To Folder...
  19485. Delivery Information...Kz
  19486. DeliveryInfo
  19487. Delivery Information
  19488.     4S5S6S7S8S9S10S12S
  19489. _Forward
  19490. Close
  19491.     0S0E
  19492. IsMailStationeryh
  19493. PostedDateh
  19494.     6S7S
  19495. MEMO_SEND
  19496.     0S0E
  19497. ActionInProgress
  19498. MEMO_SEND
  19499.     0R1S
  19500. PostedDateh
  19501. IsMailStationery
  19502.     5S6S7S8S10S11S12S13S
  19503. act_SEND.GIF|act_SEND?
  19504. Send and File
  19505. MEMO_SEND_FILE
  19506.     0S0E
  19507. ActionInProgress
  19508. MEMO_SEND_FILE
  19509.     0R1S
  19510. PostedDateh
  19511. IsMailStationery
  19512.     5S6S7S8S12S13S
  19513. act_SEND.GIF|act_SEND?
  19514. Save As Draft
  19515. MEMO_DRAFT
  19516.     0S0E
  19517. ActionInProgress
  19518. MEMO_DRAFT
  19519.     0R1S
  19520. PostedDateh
  19521. IsMailStationery
  19522.     5S6S7S8S10S11S12S13S
  19523. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  19524. Address... 
  19525.     0S0E
  19526. PostedDateh
  19527.     5S6S7S8S
  19528. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  19529. Delivery Options...K~
  19530. DeliveryOptions
  19531. Delivery Options
  19532.     0R4S10S
  19533. PostedDateh
  19534.     5S6S7S8S
  19535. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  19536. _Remove From Folder...
  19537. Categori_zeK
  19538. SSend
  19539. O=Lotus Notes
  19540. O=Lotus Notes
  19541. PURSAFO
  19542. |.:#U
  19543. O=Lotus Notes
  19544. CN=Lotus Notes Template Development/O=Lotus Notes
  19545. PURSAFO
  19546. $$FormPostOpenAction
  19547. $TypeIcon
  19548. ExpireDate
  19549. ReplyDate
  19550. ComposedDate
  19551. $INFO
  19552. $WINDOWTITLE
  19553. $AppHelpFormula
  19554. $Script
  19555. $$Script_O
  19556. $$ScriptName
  19557. $$FormScript
  19558. $$$FormScript_O
  19559. $BODY
  19560. $SCRIPTOBJ_8
  19561. $SCRIPTOBJ_9
  19562. $SCRIPTOBJ_10
  19563. $ACTIONS
  19564. $V5ACTIONS
  19565. DeliveredDate
  19566. PostedDate
  19567. PostedDateY
  19568. IsMailStationeryh
  19569. _ViewIcon
  19570. _ViewIcon
  19571. Importance
  19572. Importance
  19573. _ViewIcon
  19574. _ViewIcon
  19575. $TypeIcon
  19576.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  19577. SentBy
  19578. Principal
  19579. Principal
  19580.     1S2S5S6S8S10S
  19581. Attendees
  19582. RequiredAttendees
  19583. OptionalAttendees
  19584.     0R1S2S5S6S
  19585. DeliveredDate
  19586. SentBy
  19587. Attendees
  19588. Attendees
  19589. SendTo
  19590. SentBy
  19591. SendTo
  19592.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  19593.     0R1S2S8S
  19594.     0R1S2S15S16S
  19595.     0R1S2S5S6S8S14S18S
  19596.     0R1S2S5S6S8S14S18S
  19597. Person
  19598. X400FreeForm^
  19599.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  19600. Person2
  19601. Person
  19602. Person
  19603. Person
  19604. Person
  19605.     0R1S2S12S13S22S34S
  19606. Delivery Report
  19607. NonDelivery Report
  19608. Trace Report
  19609. Mail Router
  19610. Person2
  19611.     0R3S4S5S6S7S8S10S12S
  19612. DeliveredDate
  19613. DeliveredDate
  19614. PostedDate
  19615. PostedDate
  19616.     3S4S6S8S9S10S12S14S
  19617. _ViewIcon2h
  19618. _ViewIcon2
  19619. $ContentIconh
  19620. $ContentIcon
  19621. Froma
  19622.  pager 
  19623. SendToa
  19624.  pager 
  19625. message.wav
  19626. vmsg_hdr.wav
  19627. .wavG
  19628. .tifG
  19629. $ContentIconh
  19630. $ContentIcon
  19631.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  19632. NonDelivery Report
  19633. DELIVERY FAILURE: 
  19634. FailureReason
  19635. Delivery Report
  19636. DELIVERED: 
  19637. Subject
  19638. Return Receipt
  19639. RECEIVED: 
  19640. Subject
  19641. ReturnNonReceipt
  19642. NOT RECEIVED: 
  19643. Subject
  19644. Subject
  19645.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  19646. $93$102$68$106$105$74$Conflict
  19647. ExcludeFromView
  19648.     L1S2E
  19649. DeliveredDate
  19650. PostedDate
  19651. PostedDateY
  19652. IsMailStationeryh
  19653. _ViewIcon
  19654. _ViewIcon
  19655. Importance
  19656. Importance
  19657. _ViewIcon
  19658. _ViewIcon
  19659. $TypeIcon
  19660.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  19661. $102Who
  19662. SentBy
  19663. Principal
  19664. Principal
  19665.     1S2S5S6S8S10S
  19666. Attendees
  19667. RequiredAttendees
  19668. OptionalAttendees
  19669.     0R1S2S5S6S
  19670. DeliveredDate
  19671. SentBy
  19672. Attendees
  19673. Attendees
  19674. SendTo
  19675. SentBy
  19676. SendTo
  19677.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  19678.     0R1S2S8S
  19679.     0R1S2S15S16S
  19680.     0R1S2S5S6S8S14S18S
  19681.     0R1S2S5S6S8S14S18S
  19682. Person
  19683. X400FreeForm^
  19684.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  19685. Person2
  19686. Person
  19687. Person
  19688. Person
  19689. Person
  19690.     0R1S2S12S13S22S34S
  19691. Delivery Report
  19692. NonDelivery Report
  19693. Trace Report
  19694. Mail Router
  19695. Person2
  19696.     0R3S4S5S6S7S8S10S12S
  19697. $68Date
  19698. DeliveredDate
  19699. DeliveredDate
  19700. PostedDate
  19701. PostedDate
  19702.     3S4S6S8S9S10S12S14S$106Size
  19703. $105z
  19704. _ViewIcon2h
  19705. _ViewIcon2
  19706. $ContentIconh
  19707. $ContentIcon
  19708. Froma
  19709.  pager 
  19710. SendToa
  19711.  pager 
  19712. message.wav
  19713. vmsg_hdr.wav
  19714. .wavG
  19715. .tifG
  19716. $ContentIconh
  19717. $ContentIcon
  19718.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Subject
  19719. NonDelivery Report
  19720. DELIVERY FAILURE: 
  19721. FailureReason
  19722. Delivery Report
  19723. DELIVERED: 
  19724. Subject
  19725. Return Receipt
  19726. RECEIVED: 
  19727. Subject
  19728. ReturnNonReceipt
  19729. NOT RECEIVED: 
  19730. Subject
  19731. Subject
  19732.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  19733. Lotus Product
  19734. OBJECT
  19735. Lotus Product
  19736. OBJECT
  19737. Lotus Product
  19738. OBJECT
  19739. Lotus Product
  19740. OBJECT
  19741. '++LotusScript Development Environment:2:5:(Options):0:74
  19742. Option Public
  19743. Option Explicit
  19744. '++LotusScript Development Environment:2:5:(Forward):0:1
  19745. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19746. Lotus Product
  19747. OBJECT
  19748. Categori_ze
  19749. _Move To Folder...
  19750. _Remove From Folder...
  19751. New Memo(
  19752.     0S0E
  19753. Reply\Reply
  19754. Reply
  19755.     0S0E
  19756. Reply\Reply with History
  19757. Reply with History
  19758. This document is truncated.
  19759.     4S8S10S13S
  19760. Reply with history
  19761. Reply\Reply to AllX
  19762. MailStEd
  19763.     0S0E
  19764. Reply
  19765. Reply\Reply to All with History
  19766. MailStEd
  19767.     0S0E
  19768. Reply with History
  19769. This document is truncated.
  19770.     0R4S8S10S13S
  19771. Reply with history
  19772. Forward
  19773.     0S0E
  19774. ISMAILSTATIONERY
  19775.     1S2S
  19776. _Forward
  19777. _Edit
  19778. Delete 
  19779.     0S0E
  19780. Folder\Create Folder 
  19781.     0S0E
  19782. Folder\Move To Folder... 
  19783.     0S0E
  19784. Folder\Remove From Folder
  19785.     0S0E
  19786. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  19787. Use "CommonUI"
  19788. '++LotusScript Development Environment:2:5:(Forward):0:1
  19789. Declare Sub Click(Source As Button)
  19790. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19791. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19792. Private Sub BindEvents(Byval Objectname_ As String)
  19793. Static Source As BUTTON
  19794. Set Source = Bind(Objectname_)
  19795. On Event Click From Source Call Click
  19796. End Sub
  19797. '++LotusScript Development Environment:2:2:Click:1:12
  19798. Sub Click(Source As Button)
  19799.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  19800. End Sub
  19801. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  19802. Use "CommonUI"
  19803. '++LotusScript Development Environment:2:5:(Forward):0:1
  19804. Declare Sub Click(Source As Button)
  19805. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19806. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19807. Private Sub BindEvents(Byval Objectname_ As String)
  19808. Static Source As BUTTON
  19809. Set Source = Bind(Objectname_)
  19810. On Event Click From Source Call Click
  19811. End Sub
  19812. '++LotusScript Development Environment:2:2:Click:1:12
  19813. Sub Click(Source As Button)
  19814.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  19815. End Sub
  19816. Copy into\New To DoR'++LotusScript Development Environment:2:5:(Options):0:74
  19817. Use "CommonUI"
  19818. '++LotusScript Development Environment:2:5:(Forward):0:1
  19819. Declare Sub Click(Source As Button)
  19820. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19821. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19822. Private Sub BindEvents(Byval Objectname_ As String)
  19823.     Static Source As BUTTON
  19824.     Set Source = Bind(Objectname_)
  19825.     On Event Click From Source Call Click
  19826. End Sub
  19827. '++LotusScript Development Environment:2:2:Click:1:12
  19828. Sub Click(Source As Button)
  19829.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  19830. End Sub
  19831. Tools\Preferences...2
  19832. (Preferences)
  19833.     0S0E
  19834. Tools\Out of Office...8
  19835. (EditOfficeProfile)
  19836.     0S0E
  19837. Tools\Add Sender to Address Book<
  19838. (AddSenderToAddressBook)
  19839.     0S0E
  19840. Tools\Send Tracking Request
  19841. (SendTrackingRequest)
  19842.     0S0E
  19843. Tools\New Memo - Using Stationeryn'++LotusScript Development Environment:2:5:(Options):0:66
  19844. '++LotusScript Development Environment:2:5:(Forward):0:1
  19845. Declare Sub Click(Source As Button)
  19846. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19847. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19848. Private Sub BindEvents(Byval Objectname_ As String)
  19849.     Static Source As BUTTON
  19850.     Set Source = Bind(Objectname_)
  19851.     On Event Click From Source Call Click
  19852. End Sub
  19853. '++LotusScript Development Environment:2:2:Click:1:12
  19854. Sub Click(Source As Button)
  19855.     Dim session As New notessession
  19856.     Dim uiws As New notesuiworkspace
  19857.     Dim collection As notesdocumentcollection
  19858.     Dim noteUIEditDocument As notesuidocument
  19859.     Dim database As NotesDatabase
  19860.     Set noteCursorDoc = session.currentdatabase.createdocument
  19861.     Set database = session.currentdatabase
  19862.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  19863.     Set noteCursorDoc = collection.getfirstdocument
  19864.     If Not noteCursorDoc Is Nothing Then
  19865.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  19866.     End If
  19867. End Sub
  19868. New Memo
  19869.     1S10S14S16S23S
  19870. path"
  19871. /Memo?OpenForm&From="
  19872. view"
  19873. Folder\Move to Folder...*
  19874.     0S0E
  19875. Delete\DeleteB 
  19876.     0S0E
  19877. Delete\Empty Trash 
  19878.     0S0E
  19879. Tools\Preferences 0
  19880. wPreferences
  19881.     0S0E
  19882. Tools\Search 
  19883.     0S0E
  19884. Categori_ze
  19885. _Move To Folder...
  19886. _Remove From Folder...
  19887. New Memo(
  19888.     0S0E
  19889. act_NEWMEMO.GIF|act_NEWMEMO?
  19890. Reply\Reply 0
  19891. Reply
  19892.     0S0E
  19893. act_REPLY.GIF|act_REPLY?
  19894. Reply\Reply with History
  19895. Reply with History
  19896. This document is truncated.
  19897.     4S8S10S13S
  19898. Reply with history
  19899. act_REPLY.GIF|act_REPLY?
  19900. Reply\Reply to AllX
  19901. MailStEd
  19902.     0S0E
  19903. Reply
  19904. act_REPLY.GIF|act_REPLY?
  19905. Reply\Reply to All with History
  19906. MailStEd
  19907.     0S0E
  19908. Reply with History
  19909. This document is truncated.
  19910.     0R4S8S10S13S
  19911. Reply with history
  19912. act_REPLY.GIF|act_REPLY?
  19913. Forward
  19914.     0S0E
  19915. ISMAILSTATIONERY
  19916.     1S2S
  19917. act_FORWARD.GIF|act_FORWARD?
  19918. _Forward
  19919. _Edit2
  19920. Delete 
  19921.     0S0E
  19922. act_DELETE.GIF|act_DELETE?
  19923. Folder\Create Folder 
  19924.     0S0E
  19925. act_FOLDER.GIF|act_FOLDER?
  19926. Folder\Move To Folder... 
  19927.     0S0E
  19928. act_FOLDER.GIF|act_FOLDER?
  19929. Folder\Remove From Folderv 
  19930.     0S0E
  19931. act_FOLDER.GIF|act_FOLDER?
  19932. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  19933. Use "CommonUI"
  19934. '++LotusScript Development Environment:2:5:(Forward):0:1
  19935. Declare Sub Click(Source As Button)
  19936. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19937. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19938. Private Sub BindEvents(Byval Objectname_ As String)
  19939. Static Source As BUTTON
  19940. Set Source = Bind(Objectname_)
  19941. On Event Click From Source Call Click
  19942. End Sub
  19943. '++LotusScript Development Environment:2:2:Click:1:12
  19944. Sub Click(Source As Button)
  19945.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  19946. End Sub
  19947. act_COPYINTO.GIF|act_COPYINTO?
  19948. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  19949. Use "CommonUI"
  19950. '++LotusScript Development Environment:2:5:(Forward):0:1
  19951. Declare Sub Click(Source As Button)
  19952. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19953. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19954. Private Sub BindEvents(Byval Objectname_ As String)
  19955. Static Source As BUTTON
  19956. Set Source = Bind(Objectname_)
  19957. On Event Click From Source Call Click
  19958. End Sub
  19959. '++LotusScript Development Environment:2:2:Click:1:12
  19960. Sub Click(Source As Button)
  19961.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  19962. End Sub
  19963. act_COPYINTO.GIF|act_COPYINTO?
  19964. Copy into\New To Do
  19965. '++LotusScript Development Environment:2:5:(Options):0:74
  19966. Use "CommonUI"
  19967. '++LotusScript Development Environment:2:5:(Forward):0:1
  19968. Declare Sub Click(Source As Button)
  19969. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19970. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19971. Private Sub BindEvents(Byval Objectname_ As String)
  19972.     Static Source As BUTTON
  19973.     Set Source = Bind(Objectname_)
  19974.     On Event Click From Source Call Click
  19975. End Sub
  19976. '++LotusScript Development Environment:2:2:Click:1:12
  19977. Sub Click(Source As Button)
  19978.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  19979. End Sub
  19980. act_COPYINTO.GIF|act_COPYINTO?
  19981. Tools\Preferences...2
  19982. (Preferences)
  19983.     0S0E
  19984. act_TOOLS.GIF|act_TOOLS?
  19985. Tools\Out of Office...8
  19986. (EditOfficeProfile)
  19987.     0S0E
  19988. act_TOOLS.GIF|act_TOOLS?
  19989. Tools\Add Sender to Address Book<
  19990. (AddSenderToAddressBook)
  19991.     0S0E
  19992. act_TOOLS.GIF|act_TOOLS?
  19993. Tools\Send Tracking Request
  19994. (SendTrackingRequest)
  19995.     0S0E
  19996. act_TOOLS.GIF|act_TOOLS?
  19997. Tools\New Memo - Using Stationeryr'++LotusScript Development Environment:2:5:(Options):0:66
  19998. '++LotusScript Development Environment:2:5:(Forward):0:1
  19999. Declare Sub Click(Source As Button)
  20000. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20001. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20002. Private Sub BindEvents(Byval Objectname_ As String)
  20003.     Static Source As BUTTON
  20004.     Set Source = Bind(Objectname_)
  20005.     On Event Click From Source Call Click
  20006. End Sub
  20007. '++LotusScript Development Environment:2:2:Click:1:12
  20008. Sub Click(Source As Button)
  20009.     Dim session As New notessession
  20010.     Dim uiws As New notesuiworkspace
  20011.     Dim collection As notesdocumentcollection
  20012.     Dim noteUIEditDocument As notesuidocument
  20013.     Dim database As NotesDatabase
  20014.     Set noteCursorDoc = session.currentdatabase.createdocument
  20015.     Set database = session.currentdatabase
  20016.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  20017.     Set noteCursorDoc = collection.getfirstdocument
  20018.     If Not noteCursorDoc Is Nothing Then
  20019.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  20020.     End If
  20021. End Sub
  20022. act_TOOLS.GIF|act_TOOLS?
  20023. New Memo
  20024.     1S10S14S16S23S
  20025. path"
  20026. /Memo?OpenForm&From="
  20027. view"
  20028. act_NEW.GIF|act_NEW?
  20029. Folder\Create Folder
  20030. act_FOLDER.GIF|act_FOLDER?
  20031. var pathname = (window.location.pathname);
  20032. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=110');
  20033. Folder\Move to Folder...*
  20034.     0S0E
  20035. act_FOLDER.GIF|act_FOLDER?
  20036. Delete\Deletec 
  20037.     0S0E
  20038. act_DELETE.GIF|act_DELETE?
  20039. Delete\Empty Trash 
  20040.     0S0E
  20041. act_DELETE.GIF|act_DELETE?
  20042. Tools\Preferences00
  20043. wPreferences
  20044.     0S0E
  20045. act_TOOLS.GIF|act_TOOLS?
  20046. Tools\Search 
  20047.     0S0E
  20048. act_TOOLS.GIF|act_TOOLS?
  20049. Tools\Help
  20050. act_TOOLS.GIF|act_TOOLS?
  20051. alert('Waiting for text from PM')
  20052. O=Lotus Notes
  20053. O=Lotus Notes
  20054. PURSAFO
  20055. |.:#U
  20056. O=Lotus Notes
  20057. CN=Lotus Notes Template Development/O=Lotus Notes
  20058. PURSAFO
  20059. $TABLEFORMAT
  20060. $TITLE
  20061. $Index
  20062. $Formula
  20063. $FormulaClass
  20064. $VIEWFORMAT
  20065. $Comment
  20066. $WebFlags
  20067. $SCRIPTOBJ_16
  20068. $SCRIPTOBJ_17
  20069. $SCRIPTOBJ_18
  20070. $SCRIPTOBJ_23
  20071. $ViewGlobalScript
  20072. $ViewGlobalScript_O
  20073. $ACTIONS
  20074. $V5ACTIONS
  20075.  Moods
  20076. SenderTag
  20077. SenderTag
  20078.     1S2S3S4S5S6S
  20079. SenderTag
  20080.     0S0E
  20081. @___@
  20082. <a>7`^
  20083. `!bb!R
  20084. SenderTag
  20085.     0S0E
  20086. @___@
  20087. <a>7`^
  20088. `!bb!R
  20089. SenderTag
  20090.     0S0E
  20091. @___@
  20092. <a>7`^
  20093. `!bb!R
  20094. SenderTag
  20095.     0S0E
  20096. @___@
  20097. <a>7`^
  20098. `!bb!R
  20099. SenderTag
  20100.     0S0E
  20101. @___@
  20102. <a>7`^
  20103. `!bb!R
  20104. SenderTag
  20105.     0S0E
  20106. %12-/H
  20107. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  20108. WC9iB.xC-iF8wH8jT>zR<rd?
  20109. 2L3;FK=Dj=C:FQ8Qp<b
  20110. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  20111. SenderTag
  20112.     0S0E
  20113. SenderTag
  20114.     0S0E
  20115. @___@
  20116. <a>7`^
  20117. `!bb!R
  20118. SenderTag
  20119.     0S0E
  20120. SenderTag
  20121.     0S0E
  20122. SenderTag
  20123. SenderTag
  20124. SenderTag
  20125.     4S5S8S9S10S11S
  20126. @___@
  20127. <a>7`^
  20128. `!bb!R
  20129. O=Lotus Notes
  20130. O=Lotus Notes
  20131. PURSAFO
  20132. |.:#U
  20133. O=Lotus Notes
  20134. CN=Lotus Notes Template Development/O=Lotus Notes
  20135. PURSAFO
  20136. $TITLE
  20137. $INFO
  20138. $$Script_O
  20139. $$ScriptName
  20140. $BODY
  20141. '++LotusScript Development Environment:2:5:(Options):0:66
  20142. Option Public
  20143. '++LotusScript Development Environment:2:5:(Forward):0:1
  20144. '++LotusScript Development Environment:2:5:(Declarations):0:10
  20145. Dim note As NotesDocument
  20146. Dim uidoc As notesuidocument
  20147.  AlarmOptions'++LotusScript Development Environment:2:5:(Options):0:66
  20148. '++LotusScript Development Environment:2:5:(Forward):0:1
  20149. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20150. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20151. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20152. Private Sub BindEvents(Byval Objectname_ As String)
  20153.     Static Source As NOTESUIDOCUMENT
  20154.     Set Source = Bind(Objectname_)
  20155.     On Event Queryopen From Source Call Queryopen
  20156. End Sub
  20157. '++LotusScript Development Environment:2:2:Queryopen:1:12
  20158. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20159.     Dim ws As New NotesUIWorkspace
  20160.     Set uidoc = source
  20161.     Set note = source.document
  20162.     source.autoreload = False
  20163.     Call note.ReplaceItemValue("tmpAlarmFiles",ws.GetListOfTunes)
  20164. End Sub
  20165. Lotus Product
  20166. OBJECT
  20167. tmpAlarmFiles
  20168.     Alarm will go off
  20169. ItemName
  20170. TaskLead
  20171. AppointmentType
  20172. AnniversaryLead
  20173. AppointmentType
  20174. EventLead
  20175. AppointmentType
  20176. ReminderLead
  20177. AppointmentLead
  20178.     1S2S5S6S8S10S11S12S14S16R17S18S20S22S23S24S26S
  20179. ProfileTime
  20180. ItemName
  20181. TaskLead
  20182. AnniversaryLead
  20183. EventLead
  20184. CalendarProfile
  20185. ItemName
  20186. CalendarProfile
  20187. ItemName
  20188.     0R1S2S5S7S8S9S12S13S14S21S25S
  20189. $AlarmOffset
  20190. $AlarmOffseth
  20191. $AlarmOffset
  20192. $AlarmTimeh
  20193. $AlarmTime
  20194. StartDateTime
  20195. ProfileTime
  20196.     0R1S2S3S10S12S17S18S19S21S
  20197. tmpOffsetMinutes
  20198. $AlarmOffsetA
  20199.     0RS1S2S
  20200. tmpAlarmUnit
  20201. tmpAlarmUnit
  20202.     0RR1S2S
  20203. tmpResult
  20204. tmpResult
  20205.     0R1S2S
  20206. $AlarmUnit
  20207. $AlarmUnit
  20208.     0R1S2S3S
  20209. tmpOffsetMinutes
  20210. tmpAlarmUnit
  20211. tmpResult
  20212. tmpOffsetMinutes
  20213. tmpOffsetMinutes
  20214. tmpAlarmUnit
  20215. tmpResult
  20216. tmpOffsetMinutes
  20217. tmpAlarmUnit
  20218. tmpResult
  20219. tmpOffsetMinutes
  20220.     0RR2S4S6S8S9S11RS5E13S15S17S20S22S24S26S30R32S34S36S37S39RS4E41S43S45S48S50S52S58RS4E60S62S64S2E67R69S71S73S
  20221. tmpResult
  20222. $AlarmUnit
  20223. tmpAlarmUnit
  20224. tmpResult
  20225. tmpResult
  20226.     0R2S3S4S6S7S8S10S12S17S21S
  20227. tmpOffset
  20228.     2S3S4S6S8S11S
  20229. tmpOffsetMinutes
  20230. $AlarmUnit
  20231. tmpOffset
  20232. $AlarmUnit
  20233. tmpOffset
  20234. tmpOffset
  20235.     0RRR1S2S6S7S8S10S11S12S14S15S16S18S2E19S20S22S
  20236. $AlarmUnit
  20237.     0R1S2S3S
  20238. tmpOffsetMinutes
  20239. xxFailed
  20240. You must enter an offset for the alarm.
  20241.     1S2S
  20242. tmpOffset
  20243. xxFailed{
  20244.     0R3S4S6S11StmpOffset
  20245. $AlarmUnit
  20246. $AlarmUnit
  20247. Current
  20248. $AlarmOffseth
  20249. $AlarmOffset
  20250.     0R1S2S9S
  20251. FixedCurrent
  20252. Current
  20253. Current
  20254.     0R1S2S5S6S8S10S
  20255. FixedCurrent
  20256. FixedCurrent
  20257.     0R3S4S6S9S10S12S14S15S
  20258. $AlarmUnit
  20259. Minutes|MHours|HDays|D
  20260. $AlarmOffseth
  20261. $AlarmOffset
  20262.     7S10S11S13S15S18StmpOffsetDir
  20263. Before|1After|2
  20264.     Description
  20265. $AlarmDescription
  20266. $AlarmDescription
  20267.     0S0E
  20268. tmpAlarmPopup
  20269.     Alarm
  20270. tmpPlaySound
  20271.     1S2S
  20272. $AlarmSound
  20273. Calendarprofile
  20274. AlarmSound
  20275.     7S15S19S21StmpPlaySound
  20276. Play sound|1
  20277. $AlarmSound
  20278. $AlarmSound
  20279. Calendarprofile
  20280. AlarmSound
  20281.     7S9S13StmpAlarmPath
  20282. tmpAlarmFiles
  20283. $AlarmSound
  20284.     5S6S
  20285. '++LotusScript Development Environment:2:5:(Options):0:66
  20286. '++LotusScript Development Environment:2:5:(Forward):0:1
  20287. Declare Sub Click(Source As Button)
  20288. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20289. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20290. Private Sub BindEvents(Byval Objectname_ As String)
  20291. Static Source As BUTTON
  20292. Set Source = Bind(Objectname_)
  20293. On Event Click From Source Call Click
  20294. End Sub
  20295. '++LotusScript Development Environment:2:2:Click:1:12
  20296. Sub Click(Source As Button)
  20297. Set ws = New notesuiworkspace
  20298.     Call ws.PlayTune(note.GetItemValue("tmpAlarmPath")(0))
  20299. End Sub
  20300. Lotus Product
  20301. OBJECT
  20302. '++LotusScript Development Environment:2:5:(Options):0:66
  20303. '++LotusScript Development Environment:2:5:(Forward):0:1
  20304. Declare Sub Click(Source As Button)
  20305. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20306. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20307. Private Sub BindEvents(Byval Objectname_ As String)
  20308.     Static Source As BUTTON
  20309.     Set Source = Bind(Objectname_)
  20310.     On Event Click From Source Call Click
  20311. End Sub
  20312. '++LotusScript Development Environment:2:2:Click:1:12
  20313. Sub Click(Source As Button)
  20314.     Dim ws As New notesuiworkspace
  20315.     Dim strSound As String
  20316.     strSound = note.GetItemValue("tmpAlarmPath")(0)
  20317.     If Len(strSound) Then Call ws.PlayTune(strSound)
  20318. End Sub
  20319. Lotus Product
  20320. OBJECT
  20321. New Button
  20322. Need a newer version of Notes to execute this button.
  20323.     0S0E
  20324.     Play
  20325. $AlarmSendTo
  20326.     2S5S6S7S9S11StmpSendMail
  20327. Send mail with entry title and description|1
  20328. tmpSendMail
  20329.     1S2S
  20330.     Recipients
  20331. tmpSendMail
  20332.     1S2S
  20333. $AlarmSendTo
  20334. DialogButton Address.GIF|Address
  20335. AlarmSendTo
  20336. $AlarmSendTo
  20337.     1S2S3S
  20338. $AlarmY
  20339. tmpDisable
  20340. Disable|1
  20341. O=Lotus Notes
  20342. O=Lotus Notes
  20343. PURSAFO
  20344. |.:#U
  20345. O=Lotus Notes
  20346. CN=Lotus Notes Template Development/O=Lotus Notes
  20347. PURSAFO
  20348. fuj i
  20349. tmpAlarmValue
  20350. tmpAlarmOnDate
  20351. tmpAlarmOnTime
  20352. $INFO
  20353. $Script
  20354. $$Script_O
  20355. $$ScriptName
  20356. $$FormScript
  20357. $$$FormScript_O
  20358. tmpOffset
  20359. $BODY
  20360. $PublicAccess
  20361. Lotus Product
  20362. (DeleteSentDlg) 
  20363.     0S0E
  20364. Cancel
  20365. Action
  20366.     You are about to delete the selected document(s) from the Sent view. This action will delete the selected document(s) from 
  20367.      folders they belong to. 
  20368.     Would you like to continue deleting these documents or remove them from the Sent view instead?
  20369. Action
  20370. Delete
  20371.     1S2S3S
  20372.     Delete
  20373. Action
  20374. Remove
  20375.     1S2S3S
  20376.     Remove
  20377. Action
  20378. Cancel
  20379.     1S2S3S
  20380.     Cancel
  20381. tmpDontAsk
  20382. Don't ask this question again|1
  20383. O=Lotus Notes
  20384. O=Lotus Notes
  20385. PURSAFO
  20386. |.:#U
  20387. O=Lotus Notes
  20388. CN=Lotus Notes Template Development/O=Lotus Notes
  20389. PURSAFO
  20390. $INFO
  20391. $$Script_O
  20392. $$ScriptName
  20393. $$FormAction2
  20394. $BODY
  20395. &Arial
  20396. Lotus Product
  20397. OBJECT
  20398.  DeliveryInfo
  20399.     From:
  20400. FromDomain
  20401. FromDomain"
  20402.     1S2S5S6S8S10S11S12StmpFromInfo
  20403.     Signed:
  20404.     3S4S6S8S
  20405. tmpSignedInfo
  20406.     Return receipt:
  20407. ReturnReceipt
  20408.     3S4S6S8S
  20409. tmpReceiptInfo
  20410.     Encrypted:
  20411. Encrypt
  20412.     3S4S6S8S
  20413. tmpEncryptInfo
  20414.     Importance:
  20415. Importance
  20416. Importance
  20417. Normal
  20418.     3S4S6S8S9S10S12S14StmpImportanceInfo
  20419. xxNOCOPY
  20420. Do not forward, copy or print!
  20421.     0S0E
  20422. $KeepPrivate
  20423. xxNOCOPY
  20424.     0R3S4S6S8S
  20425. tmpKeepPrivateInfo
  20426.     Delivery information:
  20427. xxNotSent
  20428. Not sent yet
  20429.     0S0E
  20430. xxSent
  20431.  Sent
  20432. xxDelivered
  20433.  Delivered
  20434. xxAdditionalHeader
  20435. -------- Additional  Header  ------
  20436. xxRoutingInformation
  20437. -------- Routing Information ------
  20438. xxAtServer
  20439.  at server 
  20440. PostedDate
  20441. xxNotSent
  20442. PostedDate
  20443. D1T1V
  20444. xxSent"
  20445. DeliveredDate
  20446. DeliveredDate
  20447. D1T1V
  20448. xxDelivered
  20449. $AdditionalHeaders
  20450. xxAdditionalHeader
  20451. $AdditionalHeaders
  20452. SMTPHeaders
  20453. xxAdditionalHeader
  20454. SMTPHeaders
  20455. DeliveredDate
  20456. xxRoutingInformation
  20457. DeliveredDate
  20458. RouteTimes
  20459. D1T1V
  20460. xxAtServer"
  20461. RouteServers
  20462.     0RR2R5S6S7S8RS8E10S16S17S20R23S24S26RS8E28S34S35S38R41S42S44RS8E46S49R50S51R54S55S57RS8E59S62R63S64R67S68S70RS8E72S75R78S79S81RS7E83S91S99S2E101RS
  20463. tmpPostedDateInfo
  20464. O=Lotus Notes
  20465. O=Lotus Notes
  20466. PURSAFO
  20467. |.:#U
  20468. O=Lotus Notes
  20469. CN=Lotus Notes Template Development/O=Lotus Notes
  20470. PURSAFO
  20471. ExpireDate
  20472. ReplyDate
  20473. $Phone_O
  20474. $INFO
  20475. $$Script_O
  20476. $$ScriptName
  20477. $BODY
  20478. $PublicAccess
  20479. FComic Sans MS
  20480. '++LotusScript Development Environment:2:5:(Options):0:66
  20481. Option Public
  20482. '++LotusScript Development Environment:2:5:(Forward):0:1
  20483. Declare Class INIPreference
  20484. '++LotusScript Development Environment:2:5:(Declarations):0:10
  20485. Dim SecurityPreferences As INIPreference
  20486. Class INIPreference
  20487.     Private session As notessession
  20488.     Private note As notesdocument
  20489.     Private lngCurrentINISettings As Long
  20490.     Private nINISignSentMail As Integer
  20491.     Private nINIEncryptSentMail As Integer
  20492.     Private nINIEncryptSavedMail As Integer
  20493.     Private nUpdateINI As Integer    
  20494.     Private SIGN_SENT_MAIL As Long
  20495.     Private ENCRYPT_SENT_MAIL As Long
  20496.     Private ENCRYPT_SAVED_MAIL As Long
  20497. Declare Public Function Close()
  20498.     Sub New(hNote As notesdocument)
  20499.         Set Me.session = New notessession
  20500.         Set Me.note = hNote
  20501.         Me.SIGN_SENT_MAIL             = &h1000&        ' 4096
  20502.         Me.ENCRYPT_SENT_MAIL     = &h2000&        '  8192
  20503.         Me.ENCRYPT_SAVED_MAIL     = &h100000&    ' 1048576
  20504.         Me.lngCurrentINISettings = Me.session.Getenvironmentvalue("Preferences", True)
  20505.         If Me.lngCurrentINISettings And Me.SIGN_SENT_MAIL Then
  20506.             Me.nINISignSentMail = 1
  20507.         Else
  20508.             Me.nINISignSentMail = 0
  20509.         End If
  20510.         If Me.lngCurrentINISettings And Me.ENCRYPT_SENT_MAIL Then
  20511.             Me.nINIEncryptSentMail = 1
  20512.         Else
  20513.             Me.nINIEncryptSentMail = 0
  20514.         End If
  20515.         If Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL Then
  20516.             Me.nINIEncryptSavedMail = 1
  20517.         Else        
  20518.             Me.nINIEncryptSavedMail = 0
  20519.         End If
  20520.     End Sub    
  20521.     Public Function Close()
  20522.         If Val(Me.note.getitemvalue("Sign")(0)) <> Me.nINISignSentMail Then
  20523.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.SIGN_SENT_MAIL
  20524.             Me.nUpdateINI = True    
  20525.         End If
  20526.         If Val(Me.note.getitemvalue("Encrypt")(0)) <> Me.nINIEncryptSentMail Then
  20527.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SENT_MAIL
  20528.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SAVED_MAIL
  20529.             Me.nUpdateINI = True        
  20530.         End If
  20531.         If Me.nUpdateINI Then    
  20532.             Call Me.session.setenvironmentvar("Preferences", Cstr(Me.lngCurrentINISettings),True)
  20533.         End If
  20534.     End Function
  20535. End Class    
  20536. Lotus Product
  20537.  DeliveryOptions'++LotusScript Development Environment:2:5:(Options):0:66
  20538. '++LotusScript Development Environment:2:5:(Forward):0:1
  20539. Declare Sub Initialize
  20540. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  20541. Declare Sub Postopen(Source As Notesuidocument)
  20542. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20543. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20544. Private Sub BindEvents(Byval Objectname_ As String)
  20545.     Static Source As NOTESUIDOCUMENT
  20546.     Set Source = Bind(Objectname_)
  20547.     On Event Queryclose From Source Call Queryclose
  20548.     On Event Postopen From Source Call Postopen
  20549. End Sub
  20550. '++LotusScript Development Environment:2:2:Initialize:1:10
  20551. Sub Initialize
  20552. End Sub
  20553. '++LotusScript Development Environment:2:2:Queryclose:1:12
  20554. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  20555.     If Not Source.DialogBoxCanceled Then
  20556.         If Source.Document.UpdateProfileNote(0) = "1"  Then
  20557.             Call SecurityPreferences.Close()
  20558.         End If
  20559.         With Source.Document
  20560.             Select Case .SenderTag(0)
  20561.             Case "P"
  20562.                 Call .ReplaceItemValue("_ViewIcon",    170)
  20563.             Case "C"
  20564.                 Call .ReplaceItemValue("_ViewIcon",    169)
  20565.             Case "R"
  20566.                 Call .ReplaceItemValue("_ViewIcon",    163)                
  20567.             Case "T"
  20568.                 Call .ReplaceItemValue("_ViewIcon",    85)
  20569.             Case "F"
  20570.                 Call .ReplaceItemValue("_ViewIcon",    74)
  20571.             Case"G"
  20572.                 Call .ReplaceItemValue("_ViewIcon",    159)
  20573.             Case "J"
  20574.                 Call .ReplaceItemValue("_ViewIcon",    166)
  20575.             Case "Y"
  20576.                 Call .ReplaceItemValue("_ViewIcon",    23)
  20577.             Case "Q"
  20578.                 Call .ReplaceItemValue("_ViewIcon",    162)
  20579.             Case "M"
  20580.                 Call .ReplaceItemValue("_ViewIcon",    10)
  20581.             Case Else
  20582.                 Call .RemoveItem("_ViewIcon")
  20583.                 Call .RemoveItem("SenderTag")
  20584.             End Select
  20585.         End With
  20586.     End If
  20587. End Sub
  20588. '++LotusScript Development Environment:2:2:Postopen:1:12
  20589. Sub Postopen(Source As Notesuidocument)
  20590.     Set SecurityPreferences = New INIPreference(Source.document)
  20591. End Sub
  20592. Lotus Product
  20593. tmpSenderTag
  20594. tmpSenderTag
  20595.     0S0E
  20596. $Moodsz
  20597. $Moods
  20598.     Delivery options
  20599.     Importance:
  20600. Importance
  20601. Low|3Normal|2High|1
  20602. Importance
  20603. ReturnReceipt
  20604. Return receipt|1
  20605. ReturnReceipt
  20606.     Delivery report:
  20607. DeliveryReport
  20608. None|NOnly on failure|BConfirm delivery|CTrace entire path|Tz
  20609. DeliveryReport
  20610. $KeepPrivate
  20611. Prevent copying|1
  20612. $KeepPrivate
  20613.     Delivery priority:
  20614. DeliveryPriority
  20615. Low|LNormal|NHigh|H
  20616. DeliveryPriority
  20617. $AutoSpell
  20618. Auto spellcheck|1
  20619.     Security Options
  20620. Mood stamp
  20621.     0S0E
  20622. Sign|1z
  20623. Encrypt
  20624. Encrypt
  20625. Encrypt
  20626.     0S0E
  20627. Encrypt
  20628. Encrypt|1z
  20629. Encrypt
  20630. UpdateProfileNote
  20631. UpdateProfileNote
  20632. Save these security options as the default for future messages|1
  20633. UpdateProfileNote
  20634. SenderTag
  20635. SenderTag
  20636.     0S0E
  20637. tmpSenderTag
  20638. Normal|NPersonal|PConfidential|CPrivate|RThank You!|TFlame|FGood Job!|GJoke|JFYI|YQuestion|QReminder|Mz
  20639. SenderTag
  20640. Moods
  20641. SenderTag
  20642.     0S0E
  20643. @___@
  20644. <a>7`^
  20645. `!bb!R
  20646. SenderTag
  20647.     0S0E
  20648. @___@
  20649. <a>7`^
  20650. `!bb!R
  20651. SenderTag
  20652.     0S0E
  20653. @___@
  20654. <a>7`^
  20655. `!bb!R
  20656. SenderTag
  20657.     0S0E
  20658. @___@
  20659. <a>7`^
  20660. `!bb!R
  20661. SenderTag
  20662.     0S0E
  20663. @___@
  20664. <a>7`^
  20665. `!bb!R
  20666. SenderTag
  20667.     0S0E
  20668. %12-/H
  20669. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  20670. WC9iB.xC-iF8wH8jT>zR<rd?
  20671. 2L3;FK=Dj=C:FQ8Qp<b
  20672. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  20673. SenderTag
  20674.     0S0E
  20675. SenderTag
  20676.     0S0E
  20677. @___@
  20678. <a>7`^
  20679. `!bb!R
  20680. SenderTag
  20681.     0S0E
  20682. SenderTag
  20683.     0S0E
  20684. Basic
  20685.     Workflow administation
  20686.     Stamp message with a 'Please reply by' date:
  20687.     (Places message in recipients 'Todo' list)
  20688. .,$ //:
  20689. ReplyDate
  20690. ReplyDate
  20691.     Expiration date (after this date it is safe to archive or delete this document)
  20692. .,$ //:
  20693. ExpireDatez
  20694. ExpireDate
  20695.     Replies to this memo should be addressed to:
  20696. ReplyTo
  20697. ReplyTo
  20698.     Internet message format
  20699.     MIME Character Set:
  20700. MIMEMailCharset
  20701.     0S0E
  20702.     Encoding for attachments:
  20703. SMTPEncoding
  20704. Accept Administrator's default|0MIME (Base64)|BQuoted Printable|QUUencode|U
  20705. Advanced
  20706. tmpSenderTag
  20707. SenderTag
  20708. O=Lotus Notes
  20709. O=Lotus Notes
  20710. PURSAFO
  20711. |.:#U
  20712. O=Lotus Notes
  20713. CN=Lotus Notes Template Development/O=Lotus Notes
  20714. PURSAFO
  20715. DueDateTime
  20716. $INFO
  20717. $Script
  20718. $$Script_O
  20719. $$ScriptName
  20720. $$FormScript
  20721. $$$FormScript_O
  20722. ReplyDate
  20723. ExpireDate
  20724. $BODY
  20725. $PublicAccess
  20726. Lotus Product
  20727. (GroupCalendarDlg) 
  20728.     0S0E
  20729. $PublicAccess
  20730.     Title:     
  20731. xxDefault
  20732. -Untitled-
  20733.     1S2S
  20734. Subject
  20735. xxDefault
  20736. Subject
  20737.     0R2S3S4S6S8S
  20738. Subject
  20739.     Members: 
  20740. Members
  20741. Action
  20742. ViewNow
  20743.     1S2S3S
  20744.     View now
  20745. Action
  20746.     1S2S3S
  20747.     Save
  20748. Action
  20749. Cancel
  20750.     1S2S3S
  20751.     Cancel
  20752. O=Lotus Notes
  20753. O=Lotus Notes
  20754. PURSAFO
  20755. |.:#U
  20756. O=Lotus Notes
  20757. CN=Lotus Notes Template Development/O=Lotus Notes
  20758. PURSAFO
  20759. uj}pr
  20760. $INFO
  20761. $$Script_O
  20762. $$ScriptName
  20763. $$FormAction2
  20764. $BODY
  20765. $PublicAccess
  20766. Times New Roman
  20767. '++LotusScript Development Environment:2:5:(Options):0:74
  20768. Option Public
  20769. Use "Common"
  20770. '++LotusScript Development Environment:2:5:(Forward):0:1
  20771. '++LotusScript Development Environment:2:5:(Declarations):0:10
  20772. Dim uidoc As notesuidocument
  20773. Lotus Product
  20774. (InviteeReplyDlg)'++LotusScript Development Environment:2:5:(Options):0:66
  20775. '++LotusScript Development Environment:2:5:(Forward):0:1
  20776. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20777. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20778. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20779. Private Sub BindEvents(Byval Objectname_ As String)
  20780. Static Source As NOTESUIDOCUMENT
  20781. Set Source = Bind(Objectname_)
  20782. On Event Queryopen From Source Call Queryopen
  20783. End Sub
  20784. '++LotusScript Development Environment:2:2:Queryopen:1:12
  20785. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20786.     Set uidoc = source
  20787.     Set note = source.document
  20788. End Sub
  20789. Lotus Product
  20790. OBJECT
  20791. type=hidden
  20792. PartialName
  20793. Query_String
  20794. &ActionType=`
  20795.     1S2S
  20796. PartialName
  20797. PartialName
  20798. PartialName
  20799.     0R16StmpActionType
  20800. tmpFTSStartDateTime
  20801. tmpFTSEndDateTime
  20802. NoticeType
  20803.     1S2S
  20804.         You have previously delegated this request to 
  20805. Delegee
  20806. tmpDelegee
  20807.     .  A message will be sent to that person regarding his/her change in status.
  20808. tmpActionType
  20809.     Accepting this request will automatically update your calendar. 
  20810. dk+blue+circle(1).gif|BlueCircle
  20811.         You can tentatively accept this request which will not book busy time. 
  20812. tmpPencilIn
  20813. Tentatively accept|1
  20814. tmpActionType
  20815.          Who would you like to delegate this request to?
  20816. xxDelegee
  20817. You need to enter a user name to delegate to.
  20818.     1S2S
  20819. xxAlreadySent
  20820. The name entered has already been assigned this to do.
  20821. The name entered has already been invited to this meeting.
  20822.     0R1S2S5S6S8S10S
  20823. Participants
  20824. AssignedTo
  20825. OptionalAssignedTo
  20826. FYIAssignedTo
  20827. RequriedAttendees
  20828. OPtionalAttendees
  20829. Chair
  20830.     0R1S2S7S8S10S16S20S21S
  20831. tmpActionType
  20832. Delegee
  20833. xxNeedDelegee
  20834.     0R3S4S5S6S10S11S13S21S
  20835. tmpActionType
  20836. Delegee
  20837. Participants
  20838. xxAlreadySent
  20839.     0R3S4S6S16S20S26S31S36S39S
  20840. Delegee
  20841. tmpActionType
  20842.          When would you like this meeting to be held?
  20843. .,$ //:
  20844. NewStartDAte
  20845. NewStartDate
  20846. StartDate
  20847. StartDate
  20848. StartDateTime
  20849.     3S4S6S8S9S10S12S14SNewStartDate
  20850. tmpActionType
  20851.     1S2S3S4S5S6S
  20852. .,$ //:
  20853. NewStartTime
  20854. NewStartTime
  20855. StartTime
  20856. StartTime
  20857. StartDateTime
  20858.     3S4S6S8S9S10S12S14SNewStartTime
  20859. .,$ //:
  20860. NewEndDAte
  20861. NewEndDate
  20862. EndDate
  20863. EndDate
  20864. EndDateTime
  20865.     3S4S6S8S9S10S12S14SNewEndDate
  20866. .,$ //:
  20867. NewEndTime
  20868. NewEndTime
  20869. EndTime
  20870. EndTime
  20871. EndDateTime
  20872.     3S4S6S8S9S10S12S14SNewEndTime
  20873. tmpActionType
  20874. tmpActionType
  20875.     1S2S3S4S5S6S7S8S9S10S
  20876. RequiredList
  20877. tmpActionType
  20878. Delegee
  20879. RequiredAttendees
  20880. SendTo
  20881. Chair
  20882.     1S2S5S6S8S10S
  20883. OptionalList
  20884. tmpActionType
  20885. OptionalAttendees
  20886. CopyTo
  20887.     0R1S2S5S6S8S10S
  20888. RoomList
  20889. tmpActionType
  20890.     0R1S2S5S6S8S10S
  20891. tmpFTSStartDateTime
  20892. NewStartDate
  20893. NewStartTime
  20894.     0RRR1S2S3S11S12S13S14S
  20895. tmpFTSEndDateTime
  20896. NewEndDate
  20897. NewEndTime
  20898.     0R1S2S3S11S12S13S14S
  20899. RequiredList
  20900. OptionalList
  20901. RoomList
  20902. tmpFTSStartDateTime
  20903. tmpFTSEndDateTime
  20904.     0RR20RTTT25S27S
  20905. NewStartDate
  20906. tmpFTSStartDateTime
  20907.     0R1S2S3S
  20908. NewStartTime
  20909. tmpFTSStartDateTime
  20910.     0R1S2S3S
  20911. NewEndDate
  20912. tmpFTSEndDateTime
  20913.     0R1S2S3S
  20914. NewEndTime
  20915. tmpFTSEndDateTime
  20916.     0R1S2S3S
  20917.     Search...
  20918. tmpActionType
  20919.     1S2S3S4S
  20920. dk+blue+circle(1).gif|BlueCircle
  20921.         You can continue receiving update notices from the owner if you wish.
  20922. tmpKeepPosted
  20923. Keep me informed of meeting updates|1
  20924. tmpHideComments
  20925.     1S2S
  20926. dk+blue+circle(1).gif|BlueCircle
  20927.         A message will be sent to the owner of this request.
  20928. tmpIncludeComments
  20929. Include comments on the reply message|1
  20930. tmpActionType
  20931. tmpActionType
  20932.     1S2S3S4S5S6S
  20933.     If you had previously accepted this request, your calendar and busy time will be updated. 
  20934. New Button
  20935. Need a newer version of Notes to execute this button.
  20936.     0S0E
  20937. thisform = document.forms[0]
  20938. parentwnd = window.opener
  20939. parentform = parentwnd.document.forms[0]
  20940. actiontype = thisform.tmpActionType.value
  20941. if (actiontype == "A")
  20942.     iValue = 65536
  20943. else if (actiontype == "R")
  20944.     iValue = 131072
  20945. else if (actiontype == "D")
  20946.     iValue = 262144
  20947.     parentform.Delegee.value = thisform.Delegee.value
  20948. else if (actiontype == "T")
  20949.     iValue = 524288
  20950.     parentform.NewStartDate.value = thisform.NewStartDate.value
  20951.     parentform.NewStartTime.value = thisform.NewStartTime.value
  20952.     parentform.NewEndDate.value = thisform.NewEndDate.value
  20953.     parentform.NEwEndTime.value = thisform.NewEndTime.value
  20954.     iValue = 0
  20955. parentwnd.updateActionInProgress(iValue, true)
  20956. self.close()
  20957. parentwnd.submitDocument()
  20958. New Button
  20959. Need a newer version of Notes to execute this button.
  20960.     0S0E
  20961. self.close()
  20962.     Cancel
  20963. O=Lotus Notes
  20964. O=Lotus Notes
  20965. PURSAFO
  20966. |.:#U
  20967. O=Lotus Notes
  20968. CN=Lotus Notes Template Development/O=Lotus Notes
  20969. PURSAFO
  20970. $INFO
  20971. $Script
  20972. $$Script_O
  20973. $$ScriptName
  20974. $$FormScript
  20975. $$$FormScript_O
  20976. tmpFTSStartDateTime
  20977. tmpFTSEndDateTime
  20978. NewStartDate
  20979. NewStartTime
  20980. NewEndDate
  20981. NewEndTime
  20982. $BODY
  20983. $PublicAccess
  20984. &Arial
  20985. (WebSpecificFields)
  20986. Importance
  20987. .,$,  , :
  20988. DeliveryReport
  20989. .,$,  , :
  20990. DeliveryPriority
  20991. CalendarProfile
  20992. DefaultMailOpt
  20993. tmpSendOptions
  20994. Send|1Send and Save|2Save as Draft|3z
  20995. {FONT SIZE="2"}
  20996. ReturnReceipt
  20997. MailOptions
  20998. SaveOptions
  20999. O=Lotus Notes
  21000. O=Lotus Notes
  21001. PURSAFO
  21002. |.:#U
  21003. O=Lotus Notes
  21004. CN=Lotus Notes Template Development/O=Lotus Notes
  21005. PURSAFO
  21006. $INFO
  21007. $$ScriptName
  21008. $BODY
  21009. '++LotusScript Development Environment:2:5:(Options):0:74
  21010. Option Public
  21011. Option Explicit
  21012. Use "CommonUI"
  21013. '++LotusScript Development Environment:2:5:(Forward):0:1
  21014. Declare Sub Initialize
  21015. Declare Sub CreateNewDoc(nType As Integer)
  21016. '++LotusScript Development Environment:2:5:(Declarations):0:10
  21017. 'DocumentConversions: 
  21018. 'DocumentConversions: 
  21019. 'This script library wraps person folders and views created prior to 5.0_
  21020. ' into 5.0 functions and classes
  21021. Const NEW_MEMO             =     &h00000001&
  21022. Const NEW_CALENDAR     =     &h00000002&
  21023. Const NEW_TASK             =     &h00000004&
  21024. '++LotusScript Development Environment:2:2:Initialize:1:10
  21025. Sub Initialize
  21026. End Sub
  21027. '++LotusScript Development Environment:2:2:CreateNewDoc:1:8
  21028. Sub CreateNewDoc(nType As Integer)
  21029.     Select Case nType
  21030.     Case NEW_MEMO
  21031.         Call UICopyIntoNewDocument(CREATE_MEMO, True)
  21032.     Case NEW_CALENDAR
  21033.         Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  21034.     Case NEW_TASK         
  21035.         Call UICopyIntoNewDocument(CREATE_TASK, True)
  21036.     Case Else
  21037.         Messagebox("Undefined document type!")
  21038.     End Select
  21039. End Sub
  21040. Lotus Product
  21041. Kd{,D
  21042. ^,|J,|
  21043. ^d~}D
  21044. ^t~}l
  21045. ^T~}D
  21046. ^t~}l
  21047. ^T~}l
  21048. ^d~}D
  21049. JT~KD~-
  21050. JT~KD~-
  21051. KD~-<
  21052. O=Lotus Notes
  21053. O=Lotus Notes
  21054. PURSAFO
  21055. |.:#U
  21056. O=Lotus Notes
  21057. CN=Lotus Notes Template Development/O=Lotus Notes
  21058. PURSAFO
  21059. $TITLE
  21060. $PublicAccess
  21061. $ScriptLib
  21062. $ScriptLib_O
  21063. '++LotusScript Development Environment:2:5:(Options):0:74
  21064. Option Public
  21065. Use "Common"
  21066. '++LotusScript Development Environment:2:5:(Forward):0:1
  21067. '++LotusScript Development Environment:2:5:(Declarations):0:10
  21068. Dim uidoc As notesuidocument
  21069. Lotus Product
  21070. Kd{,D
  21071. ^,|J,|
  21072. ^d~}D
  21073. ^t~}l
  21074. ^T~}D
  21075. ^t~}l
  21076. ^T~}l
  21077. ^d~}D
  21078. JT~KD~-
  21079. JT~KD~-
  21080. KD~-<
  21081. (OwnerDlg)'++LotusScript Development Environment:2:5:(Options):0:66
  21082. '++LotusScript Development Environment:2:5:(Forward):0:1
  21083. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  21084. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21085. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21086. Private Sub BindEvents(Byval Objectname_ As String)
  21087. Static Source As NOTESUIDOCUMENT
  21088. Set Source = Bind(Objectname_)
  21089. On Event Queryopen From Source Call Queryopen
  21090. End Sub
  21091. '++LotusScript Development Environment:2:2:Queryopen:1:12
  21092. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  21093.     Set uidoc = source
  21094.     Set note = source.document
  21095. End Sub
  21096. Lotus Product
  21097. OBJECT
  21098. type=hidden
  21099. PartialName
  21100. Query_String
  21101. &ActionType=`
  21102.     1S2S
  21103. PartialName
  21104. PartialName
  21105. PartialName
  21106.     0R16StmpActionType
  21107. tmpActionType
  21108.  @  @@ @` @
  21109. @@ @@@@@`@@
  21110. `@ `@@`@``@
  21111. xxMeeting
  21112. When would you like this meeting to be held?
  21113.     1S2S
  21114. xxTodo
  21115. When would you like this to do to be completed by?
  21116.     0R1S2S
  21117. xxTodo
  21118. xxMeeting
  21119.     0R3S4S6S8S
  21120. tmpHeading
  21121. tmpActionType
  21122. tmpActionType
  21123.     2S3S4S5S6S7S
  21124. .,$ //:
  21125. tmpActionType
  21126. NewStartDate
  21127. StartDate
  21128.     3S4S6S
  21129. StartDate
  21130. tmpActionType
  21131. tmpActionType
  21132.     2S3S4S5S6S7S9S10S11S12S
  21133. .,$ //:
  21134. tmpActionType
  21135. NewStartTime
  21136. StartTime
  21137.     3S4S6S
  21138. StartTime
  21139. .,$ //:
  21140. tmpActionType
  21141. NewEndDate
  21142. DueDate
  21143. EndDate
  21144.     3S4S6S9S10SEndDate
  21145. .,$ //:
  21146. tmpActionType
  21147. NewEndTime
  21148. EndTime
  21149.     3S4S6S
  21150. EndTime
  21151. RequiredList
  21152. RequiredAttendees
  21153. SendTo
  21154. Chair
  21155.     1S2S
  21156. OptionalList
  21157. OptionalAttendees
  21158. CopyTo
  21159.     0R1S2S
  21160. RoomList
  21161. RoomToReserve
  21162.     0R1S2S
  21163. ResourceList
  21164. RequiredResources
  21165. Resources
  21166.     0R1S2S
  21167. tmpFTSStartDateTime
  21168. StartDate
  21169. StartTime
  21170.     0RRR1S2S3S11S12S13S14S
  21171. tmpFTSEndDateTime
  21172. EndDate
  21173. EndTime
  21174.     0R1S2S3S11S12S13S14S
  21175. RequiredList
  21176. OptionalList
  21177. RoomList
  21178. ResourceList
  21179. Uninvited
  21180. tmpFTSStartDateTime
  21181. tmpFTSEndDateTime
  21182.     0RR20RTTT25S27S
  21183. StartDate
  21184. tmpFTSStartDateTime
  21185.     0R1S2S3S
  21186. StartTime
  21187. tmpFTSStartDateTime
  21188.     0R1S2S3S
  21189. EndDate
  21190. tmpFTSEndDateTime
  21191.     0R1S2S3S
  21192. EndTime
  21193. tmpFTSEndDateTime
  21194.     0R1S2S3S
  21195.     Check Schedules...
  21196. tmpActionType
  21197. GIF89a
  21198. dk+blue+circle(1).gif|BlueCircle
  21199. xxTask
  21200. Notes can clean up all documents related to this to do.
  21201.     1S2S
  21202. xxMeeting
  21203. Notes can clean up all documents related to this meeting.
  21204.     0R1S2S
  21205. xxTask
  21206. xxMeeting
  21207.     0R3S4S
  21208. tmpDeleteHeading
  21209. tmpDeleteEntry
  21210. xxTodo
  21211. Delete to do document and all responses|1
  21212.     1S2S
  21213. xxMeeting
  21214. Delete calendar entry and all responses|1
  21215.     0R1S2S
  21216. xxTodo
  21217. xxMeeting
  21218.     0R3S4S
  21219. dk+blue+circle(1).gif
  21220. xxCancel
  21221. A notice will be sent to all assignees informing them the to do has been cancelled. 
  21222. A notice will be sent to all invitees informing them the meeting has been cancelled.
  21223.     1S2S5S6S8S
  21224. xxReschedule
  21225. A notice will be sent to all assignees informing them the to do has been rescheduled.
  21226. A notice will be sent to all invitees informing them the meeting has been rescheduled.
  21227.     0R1S2S5S6S
  21228. xxConfirm
  21229. A notice will be sent to all assignees informing them the to do has been confirmed.
  21230. A notice will be sent to all invitees informing them the meeting has been confirmed.
  21231.     0R1S2S5S6S
  21232. xxDecline
  21233. A notice will be sent to the assignee informing them the date proposed has been declined.
  21234. A notice will be sent to the invitee informing them the time proposed has been declined.
  21235.     0R1S2S5S6S10S
  21236. tmpActionType
  21237. xxCancel
  21238. tmpActionType
  21239. xxReschedule
  21240. tmpActionType
  21241. xxConfirm
  21242. tmpActionType
  21243. xxDecline
  21244.     0R3S4S6S8S9S10S14S16S17S18S20S22S23S24S26S
  21245. tmpMessage
  21246. tmpIncludeComments
  21247. Include additional comments on notice|1
  21248. tmpActionType
  21249. tmpActionType
  21250.     1S2S3S4S5S6S
  21251.     Any room/resource reservations for this meeting will also be removed.
  21252.     Any room/resource reservations for this meeting will also be rescheduled.
  21253. New Button
  21254. Need a newer version of Notes to execute this button.
  21255.     0S0E
  21256. thisform = document.forms[0]
  21257. parentwnd = window.opener
  21258. parentform = parentwnd.document.forms[0]
  21259. actiontype = thisform.tmpActionType.value
  21260. if (actiontype == "C")
  21261.     iValue = 256
  21262. else if (actiontype == "U")
  21263.     iValue = 512
  21264.     parentform.StartDate.value = thisform.StartDate.value
  21265.     parentform.StartTime.value = thisform.StartTime.value
  21266.     parentform.EndDate.value = thisform.EndDate.value
  21267.     parentform.EndTime.value = thisform.EndTime.value
  21268. else if (actiontype == "N")
  21269.     iValue = 1024
  21270. else if (actiontype == "J")
  21271.     iValue = 4096
  21272.     iValue = 0
  21273. parentwnd.updateActionInProgress(iValue, true)
  21274. self.close()
  21275. parentwnd.submitDocument()
  21276. New Button
  21277. Need a newer version of Notes to execute this button.
  21278.     0S0E
  21279. self.close()
  21280.     Cancel
  21281. O=Lotus Notes
  21282. O=Lotus Notes
  21283. PURSAFO
  21284. |.:#U
  21285. O=Lotus Notes
  21286. CN=Lotus Notes Template Development/O=Lotus Notes
  21287. PURSAFO
  21288. tmpNewStartDate
  21289. tmpNewStartTime
  21290. tmpNewEndDate
  21291. tmpNewEndTime
  21292. $INFO
  21293. $Script
  21294. $$Script_O
  21295. $$ScriptName
  21296. $$FormScript
  21297. $$$FormScript_O
  21298. StartDate
  21299. StartTime
  21300. EndDate
  21301. EndTime
  21302. $BODY
  21303. $PublicAccess
  21304. Lotus Product
  21305. (RepeatForm)D
  21306. tmpRepeatUnit
  21307. RepeatUnit
  21308.     0S0E
  21309. Every month on the|1
  21310. Every other month on the|2
  21311. Every 3rd month on the|3
  21312. Every 4th month on the|4
  21313. Every 5th month on the|5
  21314. Every 6th month on the|6
  21315. Every 7th month on the|7
  21316. Every 8th month on the|8
  21317. Every 9th month on the|9
  21318. Every 10th month on the|10
  21319. Every 11th month on the|11
  21320. Every 12th month on the|12
  21321.     8R16RtmpRIMDMP
  21322. Every year|1
  21323. Every other year|2
  21324. Every 3rd year|3
  21325. Every 4th year|4
  21326. Every 5th year|5
  21327. Every 6th year|6
  21328. Every 7th year|7
  21329. Every 8th year|8
  21330. Every 9th year|9
  21331. Every 10th year|10
  21332.     10RtmpRIY
  21333. Every|1
  21334. Every 2nd|2
  21335. Every 3rd|3
  21336. Every 4th|4
  21337. Every 5th|5
  21338. Every 6th|6
  21339. Every 7th|7
  21340. Every 8th|8
  21341. tmpRIW
  21342. Every day|1
  21343. Every 2nd day|2
  21344. Every 3rd day|3
  21345. Every 4th day|4
  21346. Every 5th day|5
  21347. Every 6th day|6
  21348. Every 7th day|7
  21349. Every 8th day|8
  21350. Every 9th day|9
  21351. Every 10th day|10
  21352. Every 11th day|11
  21353. Every 12th day|12
  21354. Every 13th day|13
  21355. Every 14th day|14
  21356. Every 15th day|15
  21357. Every 16th day|16
  21358. Every 17th day|17
  21359. Every 18th day|18
  21360. Every 19th day|19
  21361. Every 20th day|20
  21362. Every 21st day|21
  21363. Every 22nd day|22
  21364. Every 23rd day|23
  21365. Every 24th day|24
  21366. Every 25th day|25
  21367. Every 26th day|26
  21368. Every 27th day|27
  21369. Every 28th day|28
  21370. Every 29th day|29
  21371. Every 30th day|30
  21372. Every 31st day|31
  21373.     10R20R30R40R50R60R
  21374. tmpRID
  21375. 1st day|1
  21376. 2nd day|2
  21377. 3rd day|3
  21378. 4th day|4
  21379. 5th day|5
  21380. 6th day|6
  21381. 7th day|7
  21382. 8th day|8
  21383. 9th day|9
  21384. 10th day|10
  21385. 11th day|11
  21386. 12th day|12
  21387. 13th day|13
  21388. 14th day|14
  21389. 15th day|15
  21390. 16th day|16
  21391. 17th day|17
  21392. 18th day|18
  21393. 19th day|19
  21394. 20th day|20
  21395. 21st day|21
  21396. 22nd day|22
  21397. 23rd day|23
  21398. 24th day|24
  21399. 25th day|25
  21400. 26th day|26
  21401. 27th day|27
  21402. 28th day|28
  21403. 29th day|29
  21404. 30th day|30
  21405. 31st day|31
  21406.     20R38R56RtmpRAMD
  21407. Sunday|0
  21408. Monday|1
  21409. Tuesday|2
  21410. Wednesday|3
  21411. Thursday|4
  21412. Friday|5
  21413. Saturday|6
  21414.     0S0E
  21415. tmpRAW
  21416. 1st Sunday|1.0
  21417. 1st Monday|1.1
  21418. 1st Tuesday|1.2
  21419. 1st Wednesday|1.3
  21420. 1st Thursday|1.4
  21421. 1st Friday|1.5
  21422. 1st Saturday|1.6
  21423. 2nd Sunday|2.0
  21424. 2nd Monday|2.1
  21425. 2nd Tuesday|2.2
  21426. 2nd Wednesday|2.3
  21427. 2nd Thursday|2.4
  21428. 2nd Friday|2.5
  21429. 2nd Saturday|2.6
  21430. 3rd Sunday|3.0
  21431. 3rd Monday|3.1
  21432. 3rd Tuesday|3.2
  21433. 3rd Wednesday|3.3
  21434. 3rd Thursday|3.4
  21435. 3rd Friday|3.5
  21436. 3rd Saturday|3.6
  21437. 4th Sunday|4.0
  21438. 4th Monday|4.1
  21439. 4th Tuesday|4.2
  21440. 4th Wednesday|4.3
  21441. 4th Thursday|4.4
  21442. 4th Friday|4.5
  21443. 4th Saturday|4.6
  21444. Last Sunday|5.0
  21445. Last Monday|5.1
  21446. Last Tuesday|5.2
  21447. Last Wednesday|5.3
  21448. Last Thursday|5.4
  21449. Last Friday|5.5
  21450. Last Saturday|5.6
  21451.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
  21452. RepeatUnit
  21453.     1S2S
  21454.      How
  21455. RepeatUnit
  21456.     1S2S
  21457. RepeatUnit
  21458. AppointmentType
  21459. RepeatUnit
  21460.     3S4S6S9S10S12S14S17S
  21461. RepeatUnit
  21462. RepeatUnit
  21463. RepeatForUnit
  21464. RepeatForUnit
  21465.     0R1S
  21466. tmpRepeatUnit
  21467. RepeatUnit
  21468. RepeatForUnit
  21469. RepeatUnit
  21470. tmpRepeatUnit
  21471. RepeatUnit
  21472. RepeatUnit
  21473. RepeatUnit
  21474. RepeatUnit
  21475.     0R1RT2RT3S4S6RTT7RTTT8RTTT20RTTT27RTTT33RTTT35RT36RT
  21476. RepeatUnit
  21477. Daily|DWeekly|WMonthly by Date|MDMonthly by Day|MPYearly|YCustom|C
  21478. RepeatInterval
  21479. RepeatInterval
  21480.     3S4S8S
  21481. RepeatUnit
  21482. RepeatInterval
  21483. You must select a repeat interval
  21484.     3S4S5S6S7S8S10SRepeatInterval
  21485. RepeatUnit
  21486. tmpRID
  21487. RepeatUNit
  21488. tmpRIMDMP
  21489. RepeatUNit
  21490. tmpRIY
  21491. RepeatUnit
  21492. tmpRIW
  21493.     3S4S6S8S9S10S11S12S14S16S17S18S20S22S23S24S26S28S
  21494. RepeatUnit
  21495.     1S2S
  21496. RepeatUnit
  21497. RepeatStartDate
  21498.     3S4S6S16S
  21499. RepeatUnit
  21500. RepeatAdjust
  21501. You must select at least one adjustment.{
  21502.     3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
  21503. RepeatUnit
  21504. RepeatUnit
  21505. tmpRAMD
  21506. RepeatUnit
  21507. tmpRAMP
  21508. RepeatUnit
  21509. tmpRAW
  21510. RepeatUnit
  21511.     1S2S
  21512. RepeatFromEnd
  21513. Start from the end of the month|1
  21514. RepeatUnit
  21515.     1S2S
  21516.     Enter the list of dates
  21517. RepeatCustom
  21518. RepeatUnit
  21519.     1S2S3S4S5S6S
  21520.      Weekends
  21521. RepeatUnit
  21522.     1S2S3S4S5S6S
  21523.     If the date occurs on a weekend: 
  21524. RepeatWeekends
  21525. Don't Move|DMove to Friday|FMove to Monday|MMove to Nearest Weekday|NDelete|X
  21526.      Duration
  21527. RepeatHow
  21528. From|UStarting|F
  21529. StartDateTime
  21530. StartDateTime
  21531. RepeatStartDate
  21532. You must enter a value for start date.{
  21533. RepeatStartDate
  21534. RepeatUnit
  21535. RepeatHow
  21536.     1S2S3S4S5S6S
  21537. RepeatUnit
  21538. RepeatHow
  21539.     1S2S3S4S5S6S
  21540.     continuing for
  21541. StartDate
  21542. RepeatStartDate
  21543. RepeatUnit
  21544. StartDate
  21545. RepeatUnit
  21546. StartDate
  21547. RepeatUnit
  21548. StartDate
  21549. RepeatUnit
  21550. StartDate
  21551. StartDate
  21552. RepeatUntil
  21553. RepeatFor
  21554. RepeatUnit
  21555. AppointmentType
  21556. RepeatUnit
  21557.     3S4S6S9S10S12S14S17S
  21558. RepeatForUnit
  21559. Day(s)|D
  21560.     1S2S
  21561. Weeks
  21562. Week(s)|W
  21563.     0R1S2S
  21564. Months
  21565. Month(s)|M
  21566.     0R1S2S
  21567. Years
  21568. Year(s)|Y
  21569.     0R1S2S
  21570. RepeatUnit
  21571. Weeks
  21572. Months
  21573. Years
  21574. RepeatUnit
  21575. Weeks
  21576. Months
  21577. Years
  21578. RepeatUnit
  21579. Months
  21580. Years
  21581. Years
  21582.     0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S
  21583. New Button
  21584. Need a newer version of Notes to execute this button.
  21585.     0S0E
  21586. thisform = document.forms[0]
  21587. parentform = window.opener.document.forms[0]
  21588. items = thisform.elements
  21589. for (i = 0; i< items.length; i++)
  21590.     if (items[i].name.indexOf("Repeat") >= 0)
  21591.         if (items[i].name == "RepeatHow")
  21592.             radioitem = items[i]
  21593.             for (j = 0; j < radioitem.length; j++)
  21594.                 {
  21595.                 if (radioitem[j].checked) 
  21596.                     {
  21597.                     parentform.elements[items[i].name].value = radioitem[j].value
  21598.                     break
  21599.                     }
  21600.                 }
  21601.         else
  21602.             parentform.elements[items[i].name].value = items[i].value
  21603. parentform.OrgRepeat.value = "1"
  21604. self.close()
  21605. New Button
  21606. Need a newer version of Notes to execute this button.
  21607.     0S0E
  21608. self.close()
  21609.     Cancel
  21610. O=Lotus Notes
  21611. O=Lotus Notes
  21612. PURSAFO
  21613. |.:#U
  21614. O=Lotus Notes
  21615. CN=Lotus Notes Template Development/O=Lotus Notes
  21616. PURSAFO
  21617. $INFO
  21618. $$Script_O
  21619. $$ScriptName
  21620. $$FormAction1
  21621. RepeatCustom
  21622. RepeatStartDate
  21623. RepeatUntil
  21624. RepeatFor
  21625. $BODY
  21626. $PublicAccess
  21627. function copyRepeatItems()
  21628.     thisform = document.forms[0]
  21629.     datelist = thisform.tmpDateList
  21630.     strValues = thisform.tmpListOfDates.value
  21631.     strValuesArray = strValues.split("; ")
  21632.     for (i =0; i < strValuesArray.length; i++)
  21633.         datelist.options[i] = new Option(strValuesArray[i], strValuesArray[i])
  21634. Lotus Product
  21635. (RepeatOpenList)
  21636. type=hidden
  21637. tmpListOfDates
  21638. StartDateTime
  21639. tmpListOfDates
  21640.     3S4S6S
  21641. tmpListOfDates
  21642. Notes
  21643. tmpPrompt
  21644.     3S4S11S
  21645. PartialName
  21646. Query_String
  21647. &Prompt=`
  21648.     0R1S2S
  21649. CompleteName
  21650. PartialName
  21651. PartialName
  21652. PartialName
  21653.     0R1S2S18S
  21654. CompleteName
  21655. tmpPrompt
  21656. xxErr_NONE_SELECTED
  21657. No selection has been made.
  21658. tmpDateList
  21659. xxErr_NONE_SELECTED
  21660. tmpDateList
  21661. Notes
  21662. tmpListOfDatesV
  21663.     3S4S6S11S
  21664. New Button
  21665. Need a newer version of Notes to execute this button.
  21666.     0S0E
  21667. parentwindow = window.opener
  21668. url = parentwindow.location.href
  21669. var fSelectedItem = false
  21670. datelist = window.document.forms[0].tmpDateList
  21671. for (i = 0; i < datelist.options.length; i++)
  21672.     if (datelist.options[i].selected)
  21673.         datevalue = datelist.options[i].value.substring(0, datelist.options[i].value.indexOf(" "))
  21674.         dateinstance = new Date()
  21675.         month = datevalue.substring(0, datevalue.indexOf("/"))
  21676.         datevalue = datevalue.substring(3, datevalue.length)
  21677.         day = datevalue.substring(0, datevalue.indexOf("/"))
  21678.         year = datevalue.substring(3, datevalue.length)
  21679.         alert(month + " " + day + " " + year)
  21680.         if (year.length < 4)
  21681.             year = "19" + year
  21682.         url = url + "&Date=" + year + "-" + month + "-" + day
  21683.         fSelectedItem = true
  21684.         break
  21685.     if (fSelectedItem)
  21686.         parentwindow.location.href = url
  21687.         self.close()
  21688.     else
  21689.         alert("You need to select a date value from the list.")
  21690.         return
  21691. New Button
  21692. Need a newer version of Notes to execute this button.
  21693.     0S0E
  21694. self.close()
  21695.     Cancel
  21696. .,$ //:
  21697. tmpDateList
  21698.     0S0E
  21699. tmpDateSelected
  21700. O=Lotus Notes
  21701. O=Lotus Notes
  21702. PURSAFO
  21703. |.:#U
  21704. O=Lotus Notes
  21705. CN=Lotus Notes Template Development/O=Lotus Notes
  21706. PURSAFO
  21707. $HTMLCode
  21708. $INFO
  21709. $$Script_O
  21710. $$ScriptName
  21711. tmpListOfDates
  21712. tmpDateSelected
  21713. $BODY
  21714. $PublicAccess
  21715. &Arial
  21716. '++LotusScript Development Environment:2:5:(Options):0:74
  21717. Option Public
  21718. Option Explicit
  21719. '++LotusScript Development Environment:2:5:(Forward):0:1
  21720. Declare Sub Initialize
  21721. Declare Sub BuildList(source As Notesuidocument)  
  21722. Declare Sub BuildCategory(Source As Notesuidocument,Byval mode As Integer)
  21723. '++LotusScript Development Environment:2:5:(Declarations):0:10
  21724. Dim vbooks As Variant
  21725. Dim selectedsite As String
  21726. '++LotusScript Development Environment:2:2:Initialize:1:10
  21727. Sub Initialize
  21728. End Sub
  21729. '++LotusScript Development Environment:2:2:BuildList:1:8
  21730. Sub BuildList(source As Notesuidocument)  
  21731.     Dim doc As NotesDocument
  21732.     Dim servername As String
  21733.     Dim filename As String    
  21734.     Dim vResultSite As Variant
  21735.     Dim vResultCategory As Variant    
  21736.     Dim dbname As Variant
  21737.     Dim l,b,e As Integer
  21738.     Dim resourcetype As Variant
  21739.     Set doc=source.document    
  21740.     'field tmpAddressBooks holds all public NABs
  21741.     'field tmpSitesAll holds all sites from 1st public NAB
  21742.     'field tmpCategoriesAll holds ALL categories from 1st public NAB
  21743. 'get current selected NAB
  21744.     dbname = doc.getItemValue("tmpAddressBooks")
  21745.     resourcetype=doc.getitemValue("tmpResourceType")
  21746.     l=Len(dbname(0))    
  21747.     b=Instr(dbname(0),"|")
  21748.     e=Instr(dbname(0),"*")
  21749.     servername=Mid(dbname(0), b+1, (e-b-1))
  21750.     filename=Right(dbname(0),(l-e))
  21751.     vResultSite=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Rooms)';1 )|)    
  21752.     Call doc.ReplaceitemValue("tmpSitesAll", vResultSite)
  21753.     If vResultSite(0)="" Then Msgbox "no Site entry found"             
  21754.     If resourcetype(0)="2" Then
  21755.         vResultCategory=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Resources)';3 )|)    
  21756.         Call doc.ReplaceitemValue("tmpCategoriesAll", vResultCategory)
  21757.         If vResultCategory(0)="" Then Msgbox "no Category entry found"                         
  21758.     End If
  21759. End Sub
  21760. '++LotusScript Development Environment:2:2:BuildCategory:1:8
  21761. Sub BuildCategory(Source As Notesuidocument,Byval mode As Integer)
  21762.     Dim doc As NotesDocument
  21763.     Set doc=source.Document
  21764.     Dim currentsite As Variant
  21765.     Dim allcategories As Variant    
  21766.     Dim tmpsubset As NotesItem
  21767.     Dim newval As String
  21768.     Dim k As String
  21769.     'field tmpAddressBooks holds all public NABs
  21770.     'field tmpSitesAll holds all sites from 1st public NAB
  21771.     'field tmpCategoriesAll holds ALL categories from 1st public NAB
  21772.     'field tmpSubsetCategory holds categories for particular site
  21773.     'item tmpsubset used to populate list of categories for given site
  21774.     If (mode=1) Then     
  21775.         currentsite=doc.getItemValue("tmpSite")
  21776.     Else    
  21777.         currentsite=doc.getItemValue("tmpSitesAll")
  21778.     End If    
  21779.     If selectedsite=currentsite(0) Then Exit Sub
  21780.     allcategories=doc.getitemValue("tmpCategoriesAll")
  21781.     Set tmpsubset=New Notesitem (doc, "tmpSubset","")
  21782.     Forall cat In allcategories
  21783.         k=Strrightback(cat, "/")        
  21784.         If k=currentsite(0) Then        
  21785.             newval= Strrightback(Strleftback(cat, "/"), "/")    
  21786.             Call tmpsubset.AppendToTextList(newval) 
  21787.         End If
  21788.     End Forall
  21789.     Call doc.ReplaceitemValue ("tmpSubsetcategory", tmpsubset.values)
  21790.     Call doc.ReplaceitemValue ("tmpResourceCategory", "")
  21791.     Call doc.Removeitem("tmpSubset")
  21792.     selectedsite=currentsite(0)
  21793. End Sub
  21794. Lotus Product
  21795. OBJECT
  21796. (Room Resource Scheduler)'++LotusScript Development Environment:2:5:(Options):0:66
  21797. '++LotusScript Development Environment:2:5:(Forward):0:1
  21798. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  21799. Declare Sub Postrecalc(Source As Notesuidocument)
  21800. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21801. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21802. Private Sub BindEvents(Byval Objectname_ As String)
  21803.     Static Source As NOTESUIDOCUMENT
  21804.     Set Source = Bind(Objectname_)
  21805.     On Event Queryopen From Source Call Queryopen
  21806.     On Event Postrecalc From Source Call Postrecalc
  21807. End Sub
  21808. '++LotusScript Development Environment:2:2:Queryopen:1:12
  21809. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  21810.     Dim s As New NotesSession
  21811.     Dim item As NotesItem
  21812.     Dim doc As NotesDocument
  21813.     Dim nabentry As String
  21814.     Dim hasbooks As Integer
  21815.     Set doc=source.document
  21816.     vbooks=s.AddressBooks
  21817.     Set item = doc.getfirstitem("tmpAddressBooks")
  21818.     'need to put public address books into the Addressbooks field
  21819.     Forall v In vbooks
  21820.         If v.IsPublicAddressBook Then 
  21821.             If Len(v.filename) > 0 Then
  21822.                 hasbooks=True
  21823.                 If v.isopen Then
  21824.                     nabentry = v.title + "|"+v.server+"*" + v.filename
  21825.                 Else
  21826.                     Call  v.open("", "")                    
  21827.                     nabentry = v.title +  "|"+v.server+"*" + v.filename
  21828.                 End If
  21829.                 Call item.AppendToTextList (nabentry)
  21830.             End If
  21831.         End If        
  21832.     End Forall
  21833.     Call BuildList(source)    
  21834.     Call BuildCategory(source,0)
  21835.     If Not(hasbooks) Then 
  21836.         Msgbox "No Name and Address books were found."
  21837.         continue=False
  21838.     End If
  21839. End Sub
  21840. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  21841. Sub Postrecalc(Source As Notesuidocument)
  21842.     Call BuildCategory(source,1)    
  21843. End Sub
  21844. Lotus Product
  21845. OBJECT
  21846. choices
  21847. tmpResourceName
  21848. tmpResourceNameSingle
  21849. tmpResourceName
  21850. tmpResourceNameMulti
  21851.     0S0E
  21852. RoomToReserve
  21853. tmpResourceType
  21854. choices
  21855. choices
  21856. RoomToReserve
  21857.     0R1S15S
  21858. Resources
  21859. tmpResourceType
  21860. choices
  21861. choices
  21862. Resources
  21863.     0R1S15S
  21864. EndDate
  21865. StartDate
  21866.     0R1S
  21867. RoomToReserve
  21868. tmpResourceType
  21869. Reserve a Room|1Reserve a Resource|2
  21870. tmpResourceName
  21871. tmpResourceName
  21872. tmpAddressBooks
  21873. tmpSitesAll
  21874. tmpCategoriesAll
  21875. tmpSubsetCategory
  21876. .,$ //:
  21877. EndDate
  21878. EndDateTime
  21879. EndDateTime
  21880. EndDate
  21881.     3S4S6S15S18S
  21882. EndDate
  21883. OuterTable
  21884. tmpResourceType
  21885. resource
  21886.     8S10S
  21887. Search an available 
  21888.  at a specific time
  21889.     Date:
  21890. .,$ //:
  21891. StartDate
  21892. StartDateTime
  21893. StartDateTime
  21894. StartDate
  21895.     3S4S6S15S18S
  21896. xxFailed
  21897. You must enter a value for the Start Date.
  21898. StartDate
  21899. xxFailed{
  21900.     0R3S4S6S11SStartDate
  21901.     Start at:
  21902. .,$ //:
  21903. StartTime
  21904. StartDateTime
  21905. StartDateTime
  21906. StartTime
  21907.     3S4S6S15S18S
  21908. xxFailed
  21909. You must enter a value for the Start Time.
  21910. StartTime
  21911. AppointmentType
  21912. AppointmentType
  21913. xxFailed{
  21914.     0R3S4S5S6S7S8S9S10S11S12S14S19SStartTime
  21915.     End at:
  21916. .,$ //:
  21917. EndTime
  21918. EndDateTime
  21919. EndDateTime
  21920. EndTime
  21921.     3S4S6S15S
  21922. xxFailed
  21923. You must enter a value for the End Time.
  21924. EndTime
  21925. AppointmentType
  21926. AppointmentType
  21927. AppointmentType
  21928. xxFailed{
  21929.     0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTime
  21930.     Address Books: 
  21931. tmpAddressBooks
  21932.     0S0E
  21933. tmpNABs
  21934. tmpNABs
  21935.     Site:
  21936. tmpSitesAll
  21937.     0S0E
  21938. tmpSite
  21939. tmpSitesAll
  21940. tmpResourceType
  21941.     0S0E
  21942.     # of attendees:
  21943. .,$///:
  21944. SendToj
  21945. CopyToj
  21946.     0S0E
  21947. tmpCapacity
  21948. tmpResourceType
  21949.     0S0E
  21950. tmpResourceCategory
  21951. tmpResourceCategory
  21952. Categories
  21953. Please select resource category
  21954. tmpSubsetCategory
  21955.     0R1S7S9S11S13S
  21956. tmpResourceCategory
  21957.     Category
  21958. tmpResourceCategory
  21959. StartTime
  21960. EndTime
  21961. Error
  21962. Start time should be prior to End time.
  21963.     3S4S6S12S14S
  21964. tmpCapacity
  21965. tmpResourceType
  21966. Error
  21967. You must enter the number of attendees before you can find a room.
  21968.     0R5S6S
  21969. tmpResourceCategory
  21970. tmpResourceType
  21971. Error
  21972. You must select a category before you can find a resource.
  21973.     0R6S
  21974. tmpStartDateTime
  21975. StartDate
  21976. StartTime
  21977. tmpEndDateTime
  21978. StartDate
  21979. EndTime
  21980. StartDate
  21981. Error
  21982. You cannot reserve a room for a date which has already occurred.
  21983.     0R7S8S14S
  21984. Keyarg
  21985. CN=*/
  21986. tmpResourceType
  21987. tmpSite
  21988. tmpResourceCategory
  21989. tmpSite
  21990. ResNameCheck
  21991. tmpResourceType
  21992. Keyarg
  21993. tmpResourceType
  21994. tmpStartDateTime
  21995. tmpEndDateTime
  21996. tmpCapacity
  21997. Keyarg
  21998. tmpResourceType
  21999. tmpStartDateTime
  22000. tmpEndDateTime
  22001. ResNameCheckZ
  22002. Error
  22003. You received the following error when trying to find a room: 
  22004. ResNameCheck"
  22005. tmpResourceName
  22006. ResNameCheck
  22007.     0R1S2S3S2E
  22008. tmpResourceNameSingle
  22009. ResNameCheckj
  22010. ResNameCheck
  22011.     0R1S3S9S10S12S14S
  22012. tmpResourceNameBlank
  22013. ResNameCheck
  22014. No resource/room found for times and/or capacity requirements.
  22015.     0R1S
  22016. Search
  22017.     Search results:
  22018. tmpResourceType
  22019. tmpResourceName
  22020.     3S4S
  22021. Available room(s):
  22022. tmpResourceType
  22023. tmpResourceName
  22024.     3S4S
  22025. Available resource(s):
  22026. tmpResourceNameBlank
  22027.     0S0E
  22028. tmpResourceNameBlank
  22029. tmpResourceNameBlank
  22030. tmpResourceName
  22031. tmpResourceName
  22032.     3S4S
  22033. tmpResourceNameSingle
  22034. tmpResourceNameSingle
  22035. tmpResourceName
  22036. tmpResourceName
  22037.     3S4S
  22038. tmpResourceNameMulti
  22039. tmpResourceName
  22040.     0S0E
  22041. O=Lotus Notes
  22042. O=Lotus Notes
  22043. PURSAFO
  22044. |.:#U
  22045. O=Lotus Notes
  22046. CN=Lotus Notes Template Development/O=Lotus Notes
  22047. PURSAFO
  22048. Capacity
  22049. dStartTime
  22050. dEndTime
  22051. dStartDate
  22052. $INFO
  22053. $Script
  22054. $$Script_O
  22055. $$ScriptName
  22056. $$FormScript
  22057. $$$FormScript_O
  22058. $$FormAction2
  22059. EndDate
  22060. StartDate
  22061. StartTime
  22062. EndTime
  22063. tmpCapacity
  22064. $BODY
  22065. $PublicAccess
  22066. &Arial
  22067. Lotus Product
  22068. OBJECT
  22069. (SignatureOption)'++LotusScript Development Environment:2:5:(Options):0:66
  22070. '++LotusScript Development Environment:2:5:(Forward):0:1
  22071. Declare Sub Postrecalc(Source As Notesuidocument)
  22072. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22073. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22074. Private Sub BindEvents(Byval Objectname_ As String)
  22075.     Static Source As NOTESUIDOCUMENT
  22076.     Set Source = Bind(Objectname_)
  22077.     On Event Postrecalc From Source Call Postrecalc
  22078. End Sub
  22079. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  22080. Sub Postrecalc(Source As Notesuidocument)
  22081.     Dim xxWINDOW_TITLE As String
  22082.     Dim uiws As New notesuiworkspace
  22083.     Dim noteBEDoc As notesdocument
  22084.     Dim vSignatureLocation As Variant
  22085.     xxWINDOW_TITLE = "Insert Signature"
  22086.     Set noteBEDoc = uiws.currentdocument.Document
  22087.     If (noteBEDoc.SignatureOption(0) = "2")_
  22088.     And (noteBEDoc.GetItemValue("Signature")(0) = "") Then
  22089.         vSignatureLocation = uiws.openfiledialog(False,xxWINDOW_TITLE,"Text Files|*.txt|HTML Files|*.htm|Bitmap|BMP||","","")        
  22090.         If Isempty(vSignatureLocation) Then
  22091.             Redim vSignatureLocation(0)
  22092.         End If
  22093.         Call noteBEDoc.ReplaceItemValue("Signature",Cstr(vSignatureLocation(0)))
  22094.     End If
  22095. End Sub
  22096. Lotus Product
  22097.     Select Option:
  22098. SignatureOption
  22099. Select from 'Mail Preference'|1Import from File|2
  22100. SignatureOption
  22101.     0S0E
  22102.     File:
  22103. Signature
  22104. SignatureOption
  22105.     0S0E
  22106. !GIF89a
  22107. ?_?__
  22108. `!b`1
  22109. 7`^///?
  22110. ?b___
  22111. `bOOO
  22112. `<b!R
  22113. p].\H
  22114. }DSH8a
  22115. t(AWf
  22116. SOBiH
  22117. Us)ye
  22118. NAD:a+
  22119. /~DLm\H    
  22120. 9|#Kp
  22121. {Du8WMe~\z
  22122. ;1MIW
  22123. =sEdM
  22124. qO%f\r.b
  22125. l?gBs
  22126. Uj/r2
  22127. 5f(Rw
  22128. QI(8i
  22129. wz.ay
  22130. 6[Ry'
  22131. TR48Z
  22132. &yS%V
  22133. l1O&*
  22134. =iD_)G"
  22135. _BbKq
  22136. rA7f"'
  22137. RMoaM
  22138. (DxwB"
  22139. dKx{td
  22140. N2/c5
  22141. NB?E=
  22142. &HqQo
  22143. QT(/&
  22144. YHd\A0
  22145. H_T\V
  22146. jD83YEm
  22147. PQ[W1
  22148. DS3[B
  22149. M,1#Z
  22150. A    3W@
  22151.     You can 
  22152.     Automatically
  22153.      append a signature to your emails by choosing 
  22154.     Enable Auto Signature
  22155.      in the Mail and Calendar preferences dialog. 
  22156. O=Lotus Notes
  22157. O=Lotus Notes
  22158. PURSAFO
  22159. |.:#U
  22160. O=Lotus Notes
  22161. CN=Lotus Notes Template Development/O=Lotus Notes
  22162. PURSAFO
  22163. $INFO
  22164. $$Script_O
  22165. $$ScriptName
  22166. $$FormScript
  22167. $$$FormScript_O
  22168. $BODY
  22169. &Arial
  22170. (subTrackMessage)
  22171.     A tracking request has been sent.
  22172.     You will receive response emails in your inbox. 
  22173.     These messages will display the routing status of the email you have traced.
  22174. tmpDontShow
  22175. Don't show this message again|1
  22176. O=Lotus Notes
  22177. O=Lotus Notes
  22178. PURSAFO
  22179. |.:#U
  22180. O=Lotus Notes
  22181. CN=Lotus Notes Template Development/O=Lotus Notes
  22182. PURSAFO
  22183. EMgXyhV]
  22184. $INFO
  22185. $$ScriptName
  22186. $BODY
  22187. $UpdatedBy$ACLDigest$Signature$Name$DesignVersion$Version$Formula$FormulaClass$Collation$DBScript$DBScript_O$TITLE$Flags$PublicAccess$INFO$Fonts$BODY$TemplateModTime$TemplateServerName$TemplateFileNameIconBitmap$FlagsNoRefresh$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$ReplFields$Background$HeaderArea$RegionFrameset$SubForms$WINDOWTITLE$WEBQuerySave$WEBQueryOpen$AppHelpFormula$WebFlags$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_OFormFromAltFromLogoSignEncrypt$KeepPrivateDefaultMailSaveOptionsPath_InfoQuery_StringSendToCopyToBlindCopyToWebSubjectEnterSendToEnterCopyToEnterBlindCopyToSubjectBody$FIELDS$SCRIPTOBJ_24$SCRIPTOBJ_25$SCRIPTOBJ_26$SCRIPTOBJ_31$SCRIPTOBJ_32$ACTIONS$V5ACTIONSInheritedSendToInheritedAltSendToInheritedReplyToInheritedFromInheritedAltFromInheritedFromDomain$SCRIPTOBJ_18$SCRIPTOBJ_22$SCRIPTOBJ_27$SCRIPTOBJ_28$SCRIPTOBJ_33$SCRIPTOBJ_34ASSIGNSTATEStartDateTimeDueDateTime$HTMLDocumentStylesStartDateImportanceDueDateStatusRepeatsOrgConfidentialAlarmsCategories$ExpandGroupsTaskTypetmpOwnerHWtmpNoActionBar$SCRIPTOBJ_8$SCRIPTOBJ_9$SCRIPTOBJ_10$SCRIPTOBJ_11$SCRIPTOBJ_12$SCRIPTOBJ_15$SCRIPTOBJ_16$SCRIPTOBJ_17$SCRIPTOBJ_19$SCRIPTOBJ_20$SCRIPTOBJ_21$SCRIPTOBJ_23Untitled2AuthorMatchAuthorOpAuthorValueSubjectMatchSubjectOpSubjectValueSizeMatchSizeOpSizeValueAndOrAdvFormula$HLMLastServer$HLMLastChecked$NoPurge$HLType$HLTitle$HLDisabled$HLSubscription$HLMonitorType$QueryTypeCritSentOnlyToMeCritSentDirectlyToMeCritHighPriorityCritReturnReceiptCritToDoCritToDoCompleteCritMeetInviteCritMeetResponseCritFromCritFromNames$HLFormula$DialogMode$$SignatureOption$SignatureOption_O$$Signature_2$Signature_2_O$$Signature_1$Signature_1_O$$Signature$Signature_OtmpAlarmSoundsOwnerSpellCheckFormatRepliesOffSetCharDefaultLogoEnableSignatureSignatureOptionSignature_2Signature_1SignatureCalEntryTypeDefaultDurationAutoAnniversaryRepeatExcludeFromAllExcludeFromSentConflictMeetingConflictEventConflictAnniversaryUserCategoriesSunday$Times1Monday$Times2Tuesday$Times3Wednesday$Times4Thursday$Times5Friday$Times6Saturday$Times7AllowBusyAccessEnableAlarmsSetAlarmAppointmentAppointmentLeadSetAlarmReminderReminderLeadSetAlarmEventEventLeadSetAlarmAnniversaryAnniversaryLeadSetAlarmTaskTaskLeadAlarmSoundCalendarTimeSlotStartCalendarTimeSlotEndCalendarTimeSlotDurationAutoProcessTypeAutoprocessUserListAutoProcessForwardToAutoRemoveFromInboxPreventRepliesFromInboxReadMailWriteMailEditMailDeleteMailOtherUsersPublicReadReadCalendarPublicWriteWriteCalendar$BusyName$AvailableDays$CSVersionTaskFollowDeliveryDateStartTime$FrameInfoSaveOptionsExcludeFromViewGroupNameGroupTypeDescriptionSelectedGroupMembers$AlertGraphictmpConflictActiontmpTitletmpFirstNametmpMiddleNametmpLastNametmpSuffixtmpEmailTypetmpEmailAddresstmpDomainIncludeX509IntendedRecipientNewStartDateNewStartTimeNewEndDateNewEndTimeStatusUpdate$SCRIPTOBJ_6$SCRIPTOBJ_7$SCRIPTOBJ_13$SCRIPTOBJ_14$$IgnoreFrom$IgnoreFrom_OSaveOptionsOLD$$GeneralMessage$GeneralMessage_O$$SpecialPeople$SpecialPeople_O$$IgnoreFromList$IgnoreFromList_O$$IgnoreSubjectPhrase$IgnoreSubjectPhrase_ONotifiedSender_ViewIconTabDialogStatusCurrentStatusFirstDayOutFirstDayBackBookBusyTimeGeneralSubjectDaysOutGeneralMessageSpecialPeopleSpecialSubjectSpecialMessageExcludeInternetEmailIgnoreFromListIgnoreSendIgnoreSubjectPhrasedateFirstDayOutdateFirstDayBacktmpOriginalPeopletmpOriginalRoletmpOriginalStatustmpSortType$$FormPostOpenAction$$XMB$Licensee$TypeIconExpireDateReplyDateComposedDateBGTableColorHeaderFooter$SCRIPTOBJ_29$SCRIPTOBJ_30$SCRIPTOBJ_36MailOptions$FilterFormulaConditionListtokConditionListExceptionListtokExceptionListActionListTokActionListEnableTypeOperatorconditionlogicstringDomainListConditionListDisplayactionfolderimportancecondActionListDisplayOrderNumDispStat$HTMLCode$$AddressBooks$AddressBooks_OtmpSendToReftmpCopyToReftmpBlindCopyToRefNABsFindTexttmpSendTotmpCopyToEntryListtmpBlindCopyTotmpCurIndextmpNextIndexAddressBookstmpImportancetmpReturnReceipttmpDeliveryReporttmpDeliveryPrioritytmpSubformMessageStringfolderlistCurrentFoldersFolderNameEndDateEndTimetmpStartDatetmpStartTimetmpEndDatetmpEndTimetmpGridFormattmpStartDateReftmpStartTimeReftmpEndDateReftmpEndTimeReftmpDurationRefDateFormatHelper2TimeFormatHelper2DurationFormatHelper2tmpChairPROTECTFROMARCHIVE$PreferencesPagePreventAllPreventSentResourcesRoomsOperatorValuesConditionValuesLogic1ValuesLogic2ValuesImportanceValuesActionValuesEnable_1ExceptionListDisplayNewImportancetmpAlarmValuetmpAlarmOnDatetmpAlarmOnTimetmpSorttmpShow$$StartDate$StartDate_O$$StartTime$StartTime_O$$EndDate$EndDate_O$$EndTime$EndTime_OAppointmentTypetmpSpecialEventtmpSpecialEventTypeRoomToReserveLocationBookFreeTime$$XMB_2$$XMB_3InheritedSubjectDeliveryReportDeliveryPriorityReturnReceiptSMTPEncodingMIMEFormat$OLEObjField$OLEObjRichTextFieldOLEBodyReplyNumber$AUTOLAUNCHInheritedDBTitleFlowStatus$SCRIPTOBJ_2PhoneCallerCompanyNamePhoneNumberFAXNumberPhoneReason$TYPE$TABLEFORMAT$Index$Collation1$Collation2$Collation3$VIEWFORMAT$Comment$ViewGlobalScript$ViewGlobalScript_OForwardedFromForwardedDatetmpOffset$AlarmUnittmpOffsetDirtmpAlarmPopuptmpPlaySoundtmpAlarmPathtmpSendMail$AlarmSendTotmpDisabletmpAlarmFilestmpChangeWhichBroadcastPreventCounterPreventDelegate$$FormAction2tmpDontAsk$Phone_O$Moods$AutoSpellUpdateProfileNotetmpSenderTagReplyToMIMEMailCharsetSenderTagMembersDurationSeltmpActionTypetmpFTSStartDateTimetmpFTSEndDateTimetmpPencilInDelegeetmpKeepPostedtmpIncludeCommentsSelectedItemstmpNewStartDatetmpNewStartTimetmpNewEndDatetmpNewEndTimetmpDeleteEntry$$FormAction1tmpRIMDMPtmpRIYtmpRIWtmpRIDtmpRAMDtmpRAWtmpRAMPRepeatUnitRepeatIntervalRepeatAdjustRepeatFromEndRepeatCustomRepeatWeekendsRepeatHowRepeatStartDateRepeatUntilRepeatForRepeatForUnittmpListOfDatestmpDateListtmpDateSelectedCapacitydStartTimedEndTimedStartDatetmpResourceTypetmpResourceNametmpAddressBookstmpSitesAlltmpCategoriesAlltmpSubsetCategorytmpNABstmpSitetmpCapacitytmpResourceCategorytmpResourceNameBlanktmpResourceNameSingletmpResourceNameMultiSelectedOptionsTraceTypetmpDontShowApptUNIDEndDateTimeOrgRepeattmpCalInstanceDatetmpOriginalStarttmpOriginalEndtmpDB$CSFlagstmpResponsetmpOwnerChairtmpWasMailedtmpActiontmpDeleteItemstmpSendOptions$BetaVersion$ScriptLib$ScriptLib_O
  22188. function displayDialog(strFormName, strActionType, strArgs, strTitle, nWidth, nHeight)
  22189.     thisform = window.document.forms[0]
  22190.     strLocation = window.location.protocol + "//" + window.location.host + "/" + thisform.tmpDB.value + "/(wDlgBox)?OpenForm&Subform=" + strFormName
  22191.     if (strActionType)
  22192.         strLocation += "&ActionType=" + strActionType
  22193.     if (strArgs)
  22194.         strLocation += strArgs        
  22195.     if (strTitle)
  22196.         strLocation += "&Title=" + strTitle
  22197.     return window.open(strLocation,"Dlg","width="+nWidth+",height="+nHeight)
  22198. function isUserOwner()
  22199.     thisform = document.forms[0]
  22200.     if (thisform.tmpOwner.value == thisform.Chair.value)
  22201.         return true
  22202.     else
  22203.         return false
  22204. function isDateTimeValuesModified()
  22205.     thisform = document.forms[0]
  22206.     newstart = thisform.StartDate.value + " " + thisform.StartTime.value
  22207.     newend = thisform.EndDate.value + " " + thisform.EndTime.value
  22208.     if (newstart != thisform.tmpOriginalStart.value)
  22209.         return true
  22210.     else if (newend != thisform.tmpOriginalEnd.value)
  22211.         return true
  22212.     else
  22213.         return false
  22214. function isActionInProgress(dAction)
  22215.     thisform = document.forms[0]
  22216.     aip = new Number(thisform.tmpAction.value)
  22217.     if (aip & dAction)
  22218.         return true
  22219.     else
  22220.         return false
  22221. function updateActionInProgress(dAction, bAdd)
  22222.     thisform = document.forms[0]
  22223.     csactions = new Number(thisform.tmpAction.value)
  22224.     if (bAdd)
  22225.         csactions |= dAction
  22226.     else
  22227.         csactions &= ~dAction
  22228.     thisform.tmpAction.value = csactions.toString()
  22229. function submitDocument()
  22230.     thisform = document.forms[0]
  22231.     // see if we are changing the date/time and we are the owner 
  22232.     if (isUserOwner() && (thisform.tmpWasMailed.value == "1") && isDateTimeValuesModified() && !isActionInProgress(512))
  22233.         if (!self.confirm("You have changed the date/time of this entry. All participants will be notified. Are you sure this is what you want to do?"))
  22234.             updateActionInProgress(512, false)
  22235.             return
  22236.         updateActionInProgress(512, true)
  22237.     // see if we are modifying repeating instance -> THIS MUST BE DONE LAST, since
  22238.     // the window opened is treated as a modal dialog and is responsible for submitting
  22239.     // this document
  22240.     if (thisform.OrgRepeat.value == "1" && thisform.tmpResponse.value == "1")
  22241.         displayDialog("(ChangeRepeat)", "", "", "Change Repeat Instance","500","500")
  22242.         return
  22243.     thisform.submit()
  22244. function openV5RepeatInstance()
  22245.     thisform = document.forms[0]
  22246.     if (!thisform.OrgRepeat)
  22247.         return
  22248. if ((thisform.OrgRepeat.value.length > 0) && (thisform.$CSVersion.value.length >0) && (thisform.tmpCalInstanceDate.value.length <= 2))
  22249.         newwindow = displayDialog("(RepeatOpenList)", "", "&Prompt=Select the repeat instance you wish to edit.", "Open Repeating Instance", "500","500")
  22250.         newform = newwindow.document.forms[0]
  22251.         newform.tmpListOfDates.value = thisform.StartDateTime.value
  22252.         newwindow.copyRepeatItems()
  22253. Lotus Product
  22254. V0.0N
  22255. (wCSItems)
  22256.     These fields are sent over the wire but are hidden
  22257. type=hidden
  22258. ApptUNID
  22259. type=hidden
  22260. StartDateTime
  22261. type=hidden
  22262. EndDateTime
  22263. type=hidden
  22264. RepeatStartDate
  22265. type=Hidden
  22266. RepeatUnit
  22267. type=Hidden
  22268. RepeatInterval
  22269. type=Hidden
  22270. RepeatAdjust
  22271. type=Hidden
  22272. RepeatCustom
  22273. type=Hidden
  22274. RepeatHow
  22275. type=Hidden
  22276. RepeatFor
  22277. type=Hidden
  22278. RepeatForUnit
  22279. type=Hidden
  22280. RepeatUntil
  22281. type=Hidden
  22282. RepeatFromEnd
  22283. type=Hidden
  22284. RepeatWeekends
  22285. type=hidden
  22286. OrgRepeat
  22287. OrgRepeat
  22288.     0S0E
  22289. OrgRepeat
  22290. type=hidden
  22291. tmpCalInstanceDate
  22292. type=hidden
  22293. tmpOriginalStart
  22294. type=hidden
  22295. tmpOriginalEnd
  22296. type=hidden
  22297.     0S0E
  22298. tmpDB
  22299. type=hidden
  22300. $CSFlags
  22301. tmpRepeatInstance
  22302. tmpRepeatInstance
  22303. type=hidden
  22304. $REFh
  22305.     0S0E
  22306. tmpResponse
  22307. type=hidden
  22308. tmpOwner
  22309. tmpOwner
  22310. type=hidden
  22311. Chair
  22312. type=hidden
  22313. tmpWasMailed
  22314. type=hidden
  22315. $CSVersion
  22316. type=hidden
  22317. tmpAction
  22318. type=hidden
  22319. tmpKeepPosted
  22320. type=hidden
  22321. NewStartDate
  22322. type=hidden
  22323. NewEndDate
  22324. type=hidden
  22325. NewStartTime
  22326. type=hidden
  22327. NewEndTime
  22328. type=hidden
  22329. Delegee
  22330. type=hidden
  22331. tmpChangeWhich
  22332. type=hidden
  22333. RepeatStartDate
  22334. RepeatStartDate
  22335. RepeatStartDate
  22336.     1S2S3S6S7S9S11S
  22337. RepeatUnit
  22338. RepeatUnit
  22339. RepeatUnit
  22340.     0R1S2S3S9S10S12S14S
  22341. RepeatInterval
  22342. RepeatInterval
  22343. RepeatInterval
  22344.     0R1S2S3S9S10S12S14S
  22345. RepeatAdjust
  22346. RepeatAdjust
  22347. RepeatAdjust
  22348.     0R1S2S3S9S10S12S14S
  22349. RepeatCustom
  22350. RepeatCustom
  22351. RepeatCustom
  22352.     0R1S2S3S6S7S9S11S
  22353. RepeatHow
  22354. RepeatUnit
  22355. RepeatHow
  22356.     0R1S2S3S9S10S12S14S
  22357. RepeatFor
  22358. RepeatFor
  22359. RepeatFor
  22360.     0R1S2S3S6S7S9S11S
  22361. RepeatForUnit
  22362. RepeatForUnit
  22363. RepeatForUnit
  22364.     0R1S2S3S9S10S12S14S
  22365. RepeatUntil
  22366. RepeatUntil
  22367. RepeatUntil
  22368.     0R1S2S3S6S7S9S11S
  22369. RepeatFromEnd
  22370. RepeatFromEnd
  22371. RepeatFromEndt
  22372.     0R1S2S3S9S10S12S14S
  22373. RepeatWeekends
  22374. RepeatWeekends
  22375. RepeatWeekends
  22376.     0R1S2S3S9S10S12S14S
  22377. OrgRepeat
  22378. OrgRepeat
  22379. OrgRepeat
  22380.     0R1S2S3S9S10S12S14S
  22381. NewStartDate
  22382. NewStartDate
  22383. NewStartDate
  22384.     0R1S2S3S6S7S9S11S
  22385. NewStartTime
  22386. NewStartTime
  22387. NewStartTime
  22388.     0R1S2S3S6S7S9S11S
  22389. NewEndDate
  22390. NewEndDate
  22391. NewEndDate
  22392.     0R1S2S3S6S7S9S11S
  22393. NewEndTime
  22394. NewEndTime
  22395. NewEndTime
  22396.     0R1S2S3S6S7S9S11S
  22397. Delegee
  22398. Delegee
  22399. Delegee
  22400.     0R1S2S3S6S7S9S11S
  22401. tmpDB
  22402. tmpDB
  22403. tmpDB
  22404.     0R1S2S3S9S2E10S12S14S
  22405. $CSFlags
  22406. $CSFlags
  22407. $CSFlags
  22408.     0R1S2S3S9S10S12S14S
  22409. tmpDeleteItems
  22410.     These fields are hidden at all times and are not sent over the wire; they are simply used in computes
  22411. wAppointmentOpen
  22412. $$QueryOpenAgent
  22413. wAppointmentSave
  22414. $$QuerySaveAgent
  22415. Query_String
  22416. Query_String
  22417. type=hidden
  22418. Path_Info
  22419. Path_Info
  22420. AppointmentType
  22421.     1S2S
  22422. submitDocument()
  22423. Close
  22424. window.history.back()
  22425. Edit 
  22426.     0S0E
  22427. Send InvitationsR
  22428. AppointmentType
  22429. tmpOwner
  22430. Chair
  22431.     1S2S3S4S5S6S
  22432. document.forms[0].tmpAction.value = "6"
  22433. submitDocument()
  22434. Save Only
  22435. AppointmentType
  22436. tmpOwner
  22437. Chair
  22438.     1S2S3S4S5S6S
  22439. document.forms[0].tmpAction.value = "2"
  22440. submitDocument()
  22441. Delivery OptionsR
  22442. AppointmentType
  22443. tmpOwner
  22444. Chair
  22445.     1S2S3S4S5S6S
  22446. displayDialog("(CSDeliveryOptions)","","","Delivery Options",500,400)
  22447. Reschedule|
  22448. AppointmentType
  22449. tmpOwner
  22450. Chair
  22451. tmpWasMailed
  22452.     1S2S3S4S5S6S7S8S12S13S
  22453. displayDialog("(OwnerDlg)","U","","Reschedule Options","500","500")
  22454. Cancel|
  22455. AppointmentType
  22456. tmpOwner
  22457. Chair
  22458. tmpWasMailed
  22459.     1S2S3S4S5S6S7S8S12S13S
  22460. displayDialog("(OwnerDlg)","C","","Cancel Options","500","500")
  22461. ConfirmK|
  22462. AppointmentType
  22463. tmpOwner
  22464. Chair
  22465. tmpWasMailed
  22466.     1S2S3S4S5S6S7S8S12S13S
  22467. displayDialog("(OwnerDlg)","N","","Confirm Options","500","500")
  22468. View StatusK|
  22469. AppointmentType
  22470. tmpOwner
  22471. Chair
  22472. tmpWasMailed
  22473.     1S2S3S4S5S6S7S8S12S13S
  22474. alert("Not yet implemented")
  22475. AcceptT
  22476. tmpOwner
  22477. Chair
  22478. tmpWasMailed
  22479.     1S2S3S4S8S9S
  22480. displayDialog("(InviteeReplyDlg)","A","","Accept Options","500","500")
  22481. DeclineKT
  22482. tmpOwner
  22483. Chair
  22484. tmpWasMailed
  22485.     1S2S3S4S8S9S
  22486. displayDialog("(InviteeReplyDlg)","R","","Decline Options","500","500")
  22487. DelegateT
  22488. tmpOwner
  22489. Chair
  22490. tmpWasMailed
  22491.     1S2S3S4S8S9S
  22492. displayDialog("(InviteeReplyDlg)","D","","Delegate Options","500","500")
  22493. Counter ProposeKT
  22494. tmpOwner
  22495. Chair
  22496. tmpWasMailed
  22497.     1S2S3S4S8S9S
  22498. displayDialog("(InviteeReplyDlg)","T","","Counter Propose Options","500","500")
  22499. Edit 
  22500.     0S0E
  22501. O=Lotus Notes
  22502. O=Lotus Notes
  22503. PURSAFO
  22504. |.:#U
  22505. O=Lotus Notes
  22506. CN=Lotus Notes Template Development/O=Lotus Notes
  22507. PURSAFO
  22508. o{^Dp
  22509. $HTMLCode
  22510. $INFO
  22511. $$Script_O
  22512. $$ScriptName
  22513. StartDateTime
  22514. EndDateTime
  22515. RepeatStartDate
  22516. RepeatCustom
  22517. RepeatFor
  22518. RepeatUntil
  22519. tmpCalInstanceDate
  22520. tmpOriginalStart
  22521. tmpOriginalEnd
  22522. NewStartDate
  22523. NewEndDate
  22524. NewStartTime
  22525. NewEndTime
  22526. $BODY
  22527. $V5ACTIONS
  22528. $ACTIONS
  22529. '++LotusScript Development Environment:2:5:(Options):0:74
  22530. Option Public
  22531. Use "Common"
  22532. Option Declare
  22533. '++LotusScript Development Environment:2:5:(Forward):0:1
  22534. Declare Class DelegationACLManager
  22535. '++LotusScript Development Environment:2:5:(Declarations):0:10
  22536. Const READWRITE=&h010&
  22537. Const CANDELETE = &h100&
  22538. Const READPUBLIC= &h200&
  22539. Const WRITEPUBLIC= &h400&
  22540. Const NO_UPDATE_MANAGER = 37
  22541. Const NO_UPDATE_ACL = 42
  22542. Const NO_UPDATE_OWNER = 68
  22543. Const NO_ACL_REFERENCE = 69
  22544. Const ERROR_ADMINP = 72
  22545. Const OWNER_IS_FLAT = 71
  22546. Const WINDOW_TITLE = 61
  22547. Class DelegationACLManager
  22548.     Public StringTable As MailToolsStringTable
  22549.     Private session As notessession
  22550.     Private note As notesdocument    
  22551.     Private acl As notesacl
  22552.     Private aclentry As notesaclentry
  22553.     Private name As notesname
  22554.     Private agentDelegateAgent As notesagent
  22555.     Private ReadCal() As String
  22556.     Private WriteCal() As String
  22557.     Private ReadMail() As String
  22558.     Private WriteMail() As String
  22559.     Private EditMail() As String
  22560.     Private DeleteMail() As String
  22561.     Private OtherUsers() As String
  22562.     Private AddedUsers() As String        
  22563.     Private DeletedUsers() As String
  22564.     Private OriginalOwner As String 
  22565.     Private DefaultPublicReader As Integer
  22566.     Private DefaultPublicWriter As Integer
  22567.     Private MustDelegate As Integer    
  22568.     Private ACLIsDirty As Integer
  22569.     Private nSuccess As Integer
  22570.     Private x As Integer
  22571.     Private CanChangeOwner As Integer
  22572.     Private nIsWebClient As Integer
  22573.     Sub New(note As notesdocument)
  22574.         Set Me.StringTable = New MailToolsStringTable            
  22575.         Set Me.session = New notessession        
  22576.         Set Me.acl = note.parentdatabase.ACL
  22577.         Set Me.note = note        
  22578.         Me.note.autoreload = False
  22579.         OriginalOwner = Me.note.GetItemValue("Owner")(0)
  22580.         Set Me.aclentry = Me.acl.GetEntry(Me.session.Effectiveusername)
  22581.         If Me.aclentry Is Nothing Then
  22582.             Set Me.name = New NotesName(Me.session.Effectiveusername)
  22583.             Set Me.aclentry = Me.acl.GetEntry(Me.name.Common)
  22584.         End If
  22585.         If Me.aclentry Is Nothing Then
  22586.             'user not in ACL?
  22587.             Call RaiseUIError(NO_ACL_REFERENCE)
  22588.             End
  22589.         Elseif Me.aclentry.level < ACLLEVEL_MANAGER Then
  22590.             If Me.note.hasitem("Owner")  Then
  22591.                 If Not NameCompare(Me.OriginalOwner,Me.session.Effectiveusername) Then 
  22592.                     Me.CanChangeOwner = False
  22593.                 Else 
  22594.                     Me.CanChangeOwner = True
  22595.                 End If
  22596.             Else
  22597.                 Me.CanChangeOwner = True
  22598.             End If
  22599.             Me.MustDelegate = True
  22600.         Elseif Me.aclentry.level = ACLLEVEL_MANAGER Then
  22601.             Me.CanChangeOwner = True
  22602.         End If     
  22603.     End Sub
  22604.     Public Function Init()
  22605.         Call GetDefaultAccess()    
  22606.         Call GetAclEntries()
  22607.     End Function
  22608.     Property Set IsWebClient
  22609.         Me.nIsWebClient = IsWebClient
  22610.     End Property
  22611.     Property Set DelegateUsingAdminP
  22612.         Me.MustDelegate = DelegateUsingAdminP
  22613.     End Property
  22614.     Private Function InvokeAdminP() As Integer
  22615.         Dim vHomeServer As Variant
  22616.         Dim vSuccess As Variant            
  22617.         If Me.nIsWebClient Then
  22618.             Redim vHomeServer(0)
  22619.             vHomeServer(0) = Me.session.Username 'the context of the server running the agent
  22620.         Else
  22621.             vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)            
  22622.         End If
  22623.         vSuccess = Evaluate(|@AdminDelegateMailFile("| &_
  22624.         vHomeServer(0) & |";"admin4.nsf";"|& vHomeServer(0) &|";"| &_
  22625.         Me.session.Effectiveusername & |";PublicRead;ReadCalendar;PublicWrite;WriteCalendar;ReadMail;WriteMail;EditMail;DeleteMail;RemoveFromACL;Owner;@Subset(@DbName; -1))|, note)
  22626.         InvokeAdminP = 0 - Cint(vSuccess(0))        
  22627.     End Function
  22628.     Private Function IsPublicReader()
  22629.         If Me.aclentry.IsPublicReader Then
  22630.             x = Ubound(Me.ReadCal)
  22631.             Me.ReadCal(x) = Me.aclentry.Name
  22632.             Redim Preserve Me.ReadCal(x + 1)
  22633.         End If
  22634.     End Function
  22635.     Private Function IsPublicWriter()
  22636.         If Me.aclentry.IsPublicWriter Then
  22637.             x = Ubound(Me.WriteCal)
  22638.             Me.WriteCal(x) = Me.aclentry.Name
  22639.             Redim Preserve Me.WriteCal(x + 1)
  22640.         End If
  22641.     End Function
  22642.     Private Function AddedUser()
  22643.         x = Ubound(Me.AddedUsers)
  22644.         Me.AddedUsers(x) = Me.aclentry.Name
  22645.         Redim Preserve Me.AddedUsers(x+1)
  22646.     End Function
  22647.     Private Function WasUserAdded()
  22648.         WasUserAdded = False
  22649.         Forall AddedNames In Me.AddedUsers
  22650.             If NameCompare(AddedNames,Me.aclentry.Name) Then
  22651.                 WasUserAdded = True
  22652.                 Exit Forall
  22653.             End If
  22654.         End Forall
  22655.     End Function
  22656.     Private Function AddToDeletedList()
  22657.         If Not WasUserAdded() Then
  22658.             x = Ubound(Me.DeletedUsers)
  22659.             Me.DeletedUsers(x) = Me.aclentry.Name
  22660.             Redim Preserve Me.DeletedUsers(x+1)
  22661.         End If
  22662.     End Function
  22663.     Function IsNameDesignerManager() As Integer
  22664.         IsNameDesignerManager = False
  22665.         If Me.aclentry.level => ACLLEVEL_DESIGNER Then
  22666.             IsNameDesignerManager = True
  22667.         End If
  22668.     End Function
  22669.     Public Function CommitACL(DiscardChanges As Integer) As Integer
  22670.         If DiscardChanges Then 
  22671.             Exit Function
  22672.         Else
  22673.             CommitACL = ValidateOwner()
  22674.             Call SetDefaultAccess()            
  22675.             If ACLHasChanged(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail)) Then
  22676.                 Call UpdateACL(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail),ACLLEVEL_READER)                                
  22677.             End If
  22678.             If ACLHasChanged(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail)) Then
  22679.                 Call UpdateACL(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail),READWRITE)             
  22680.             End If
  22681.             If ACLHasChanged(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail)) Then
  22682.                 Call UpdateACL(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail),ACLLEVEL_EDITOR)            
  22683.             End If
  22684.             If ACLHasChanged(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail)) Then
  22685.                 Call UpdateACL(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail),CANDELETE)             
  22686.             End If
  22687.             If ACLHasChanged(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal)) Then
  22688.                 Call UpdateACL(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal),READPUBLIC)     
  22689.             End If
  22690.             If ACLHasChanged(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal)) Then
  22691.                 Call UpdateACL(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal),WRITEPUBLIC)            
  22692.             End If
  22693.             If Me.ACLIsDirty Then
  22694.                 If Me.MustDelegate Then
  22695.                     Call Me.note.ReplaceItemValue("RemoveFromACL", DeletedUsers)
  22696.                     If Not InvokeAdminP() Then
  22697.                         Call RaiseUIError(ERROR_ADMINP)                                                    
  22698.                     End If
  22699.                 Else
  22700.                     Call Me.ACL.SAVE()                
  22701.                 End If
  22702.             End If
  22703.         End If
  22704.     End Function
  22705.     Private Function ACLHasChanged(CurrentEntries As Variant,InitialEntries As Variant) As Integer
  22706.         ACLHasChanged = False
  22707.         If Ubound(CurrentEntries) <> Ubound(InitialEntries) Then
  22708.             Me.ACLIsDirty = True
  22709.             ACLHasChanged = True
  22710.             Exit Function
  22711.         Else
  22712.             For x = 0 To Ubound(InitialEntries)
  22713.                 If Not CurrentEntries(x) = InitialEntries(x) Then
  22714.                     Me.ACLIsDirty = True
  22715.                     ACLHasChanged = True
  22716.                     Exit Function
  22717.                 End If
  22718.             Next
  22719.         End If 
  22720.     End Function
  22721.     Private Function GetDefaultAccess()
  22722.         Set Me.aclentry = Me.acl.getentry("-Default-")
  22723.         If Me.aclentry Is Nothing Then
  22724.             Set Me.aclentry = Me.acl.createACLEntry("-Default-",ACLLEVEL_NOACCESS)            
  22725.         End If
  22726.         If Me.aclentry.ispublicreader Then
  22727.             Me.DefaultPublicReader = True
  22728.         Else
  22729.             Me.DefaultPublicReader = False
  22730.         End If
  22731.         If Me.aclentry.ispublicwriter Then
  22732.             Me.DefaultPublicWriter = True
  22733.         Else
  22734.             Me.DefaultPublicWriter = False
  22735.         End If
  22736.     End Function
  22737.     Private Function SetDefaultAccess()
  22738.         Set Me.aclentry = Me.acl.getentry("-Default-")
  22739.         If  Not Val(Me.note.getitemvalue("PublicRead")(0)) = Me.DefaultPublicReader Then
  22740.             If (0 - Val(Me.note.getitemvalue("PublicRead")(0))) Then
  22741.                 aclentry.ispublicreader = True
  22742.             Else
  22743.                 aclentry.ispublicreader = False
  22744.             End If
  22745.             Me.ACLIsDirty = True
  22746.         End If
  22747.         If Not Val(note.getitemvalue("PublicWrite")(0)) = Me.DefaultPublicWriter Then
  22748.             If (0 - Val(note.getitemvalue("PublicWrite")(0)))    Then        
  22749.                 aclentry.ispublicwriter = True
  22750.             Else
  22751.                 aclentry.ispublicwriter = False                
  22752.             End If
  22753.             Me.ACLIsDirty = True
  22754.         End If            
  22755.     End Function
  22756.     Private Function IsNameInACL(ACLName As Variant) As Integer
  22757.         IsNameInACL = False
  22758.         Set Me.aclentry = Me.acl.getentry(ACLName)
  22759.         If Not aclentry Is Nothing Then IsNameInACL = True
  22760.     End Function
  22761.     Private Function UpdateACL(CurrentEntries As Variant,InitialEntries As Variant,LEVEL As Integer) As Integer
  22762.         UpdateACL = False        
  22763.         Forall ACLName In InitialEntries
  22764.             If ACLName <> "" Then
  22765.                 If Arraygetindex(CurrentEntries,ACLName) => 0 Then
  22766.                 'we keep it as it was
  22767.                 Else
  22768.                     Set Me.aclentry = Me.acl.getentry(ACLName)
  22769.                     If Not Me.aclentry Is Nothing Then
  22770.                         If IsNameInACL(ACLName) Then
  22771.                             If IsNameDesignerManager() Then
  22772.                                 Call RaiseUIError(NO_UPDATE_MANAGER)                            
  22773.                             Else
  22774.                                 Select Case LEVEL
  22775.                                 Case CANDELETE
  22776.                                     Me.aclentry.candeletedocuments = False
  22777.                                 Case READPUBLIC
  22778.                                     Me.aclentry.ispublicreader = False                        
  22779.                                     Me.aclentry.ispublicwriter = False
  22780.                                 Case WRITEPUBLIC
  22781.                                     Me.aclentry.ispublicwriter = False
  22782.                                 Case Else
  22783.                                     If Isnull(Arraygetindex(Me.AddedUsers,ACLName)) Then
  22784.                                         Call AddToDeletedList()
  22785.                                         Call Me.aclentry.remove()
  22786.                                     End If
  22787.                                 End Select
  22788.                             End If 
  22789.                         End If
  22790.                     End If
  22791.                 End If
  22792.             End If
  22793.         End Forall
  22794.         Forall ACLName In CurrentEntries
  22795.             If ACLName <> "" Then
  22796.                 If Arraygetindex(InitialEntries,ACLName) => 0 Then
  22797.                 'it's there so leave it alone
  22798.                 Else
  22799.                     If IsNameInACL(ACLName) Then
  22800.                         If IsNameDesignerManager() Then
  22801.                             Call RaiseUIError(NO_UPDATE_MANAGER)                                                    
  22802.                             Exit Function
  22803.                         End If
  22804.                     End If    
  22805.                     Select Case LEVEL
  22806.                     Case ACLLEVEL_READER
  22807.                         If IsNameInACL(ACLName) Then
  22808.                             Me.aclentry.level = Acllevel_reader
  22809.                         Else
  22810.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_reader)
  22811.                         End If
  22812.                         Call AddedUser()
  22813.                     Case READWRITE
  22814.                         If IsNameInACL(ACLName) Then
  22815.                             Me.aclentry.level = Acllevel_author
  22816.                         Else                    
  22817.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_author)
  22818.                         End If                        
  22819.                         Call AddedUser()
  22820.                         Me.aclentry.cancreatedocuments = True
  22821.                         Me.aclentry.candeletedocuments = False
  22822.                     Case ACLLEVEL_EDITOR                    
  22823.                         If IsNameInACL(ACLName) Then
  22824.                             Me.aclentry.level = Acllevel_editor
  22825.                         Else
  22826.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_editor)
  22827.                         End If 
  22828.                         Call AddedUser()
  22829.                         Me.aclentry.cancreatedocuments = True
  22830.                         Me.aclentry.candeletedocuments = False
  22831.                     Case READPUBLIC
  22832.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  22833.                         If Not Me.aclentry Is Nothing Then
  22834.                             Me.aclentry.ispublicreader = True
  22835.                         Else
  22836.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
  22837.                             Call AddedUser()
  22838.                             Me.aclentry.ispublicreader = True
  22839.                         End If
  22840.                     Case WRITEPUBLIC
  22841.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  22842.                         If Not Me.aclentry Is Nothing Then
  22843.                             Me.aclentry.ispublicreader = True
  22844.                             Me.aclentry.ispublicwriter = True
  22845.                         Else
  22846.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
  22847.                             Call AddedUser()
  22848.                             Me.aclentry.ispublicreader = True
  22849.                             Me.aclentry.ispublicwriter = True
  22850.                         End If
  22851.                         
  22852.                     Case CANDELETE
  22853.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  22854.                         If Not Me.aclentry Is Nothing Then
  22855.                             If Me.aclentry.level < Acllevel_author Then
  22856.                                 Me.aclentry.level = Acllevel_author
  22857.                             End If
  22858.                             Me.aclentry.candeletedocuments = True
  22859.                         Else
  22860.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_AUTHOR)
  22861.                             Call AddedUser()
  22862.                             Me.aclentry.candeletedocuments = True
  22863.                         End If
  22864.                     End Select
  22865.                 End If
  22866.             End If                
  22867.         End Forall
  22868.     End Function
  22869.     Sub RaiseUIError(nStringID As Integer)
  22870.     End Sub
  22871.     Function ValidateOwner() As Integer
  22872.         ValidateOwner = False        
  22873.         If Not Me.CanChangeOwner Then
  22874.             If Not NameCompare(Me.OriginalOwner, Me.note.GetitemValue("Owner")(0)) Then
  22875.                     'only a manager or the current owner of a mail file can alter the value
  22876.                 Call note.ReplaceItemValue("Owner",Me.OriginalOwner)
  22877.                 Call RaiseUIError(NO_UPDATE_OWNER)
  22878.                 Exit Function
  22879.             End If
  22880.         End If
  22881.         Set Me.name = New notesname(Me.note.GetitemValue("Owner")(0))
  22882.         If Not Me.name.Ishierarchical Then
  22883.             Set Me.name = New notesname(Me.session.UserName)
  22884.             If Me.name.Ishierarchical Then
  22885.                 Call RaiseUIError(OWNER_IS_FLAT)
  22886.             End If
  22887.         End If
  22888.         ValidateOwner = True
  22889.     End Function
  22890.     Private Function GetAclEntries()    
  22891. 'initialize dynamic array
  22892.         Redim Me.ReadCal(0)
  22893.         Redim Me.WriteCal(0)
  22894.         Redim Me.ReadMail(0)
  22895.         Redim Me.WriteMail(0)
  22896.         Redim Me.EditMail(0) 
  22897.         Redim Me.DeleteMail(0) 
  22898.         Redim Me.OtherUsers(0)
  22899.         Redim Me.AddedUsers(0)
  22900.         Redim Me.DeletedUsers(0)
  22901.         Set Me.aclentry = Me.acl.GetFirstEntry
  22902.         Do Until Me.aclentry Is Nothing
  22903.             Select Case Me.aclentry.Level
  22904.             Case ACLLEVEL_NOACCESS
  22905.                 If Me.aclentry.Name = "-Default-" Then
  22906.                     If Me.aclentry.IsPublicReader Then
  22907.                         Me.note.PublicRead = "1"
  22908.                     Else
  22909.                         Me.note.PublicRead = "0"
  22910.                     End If
  22911.                     If Me.aclentry.IsPublicWriter Then
  22912.                         Me.note.PublicWrite = "1"
  22913.                     Else
  22914.                         Me.note.PublicWrite = "0"
  22915.                     End If
  22916.                 Else
  22917.                     If Me.aclentry.IsPublicReader Or Me.aclentry.IsPublicWriter Then
  22918.                         Call IsPublicReader()
  22919.                         Call IsPublicWriter()
  22920.                     Else
  22921. 'These are other NoAccess people and we don't want to change them
  22922.                         x = Ubound(Me.OtherUsers)
  22923.                         Me.OtherUsers(x) = Me.aclentry.Name
  22924.                         Redim Preserve Me.OtherUsers(x+1)
  22925.                     End If
  22926.                 End If
  22927.             Case ACLLEVEL_READER
  22928.                 x = Ubound(Me.ReadMail)
  22929.                 Me.ReadMail(x) = Me.aclentry.Name
  22930.                 Redim Preserve Me.ReadMail(x+1)
  22931.                 Call IsPublicReader()
  22932.                 Call IsPublicWriter()
  22933.             Case ACLLEVEL_AUTHOR
  22934.                 If Me.aclentry.CanCreateDocuments Then
  22935.                     x = Ubound(Me.WriteMail)
  22936.                     Me.WriteMail(x) = Me.aclentry.Name
  22937.                     Redim Preserve Me.WriteMail(x+1)
  22938.                 Else
  22939.                     x = Ubound(Me.ReadMail)
  22940.                     Me.ReadMail(x) = Me.aclentry.Name
  22941.                     Redim Preserve Me.ReadMail(x+1)
  22942.                 End If
  22943.                 If Me.aclentry.CanDeleteDocuments Then
  22944.                     x = Ubound(Me.DeleteMail)
  22945.                     Me.DeleteMail(x) = Me.aclentry.Name
  22946.                     Redim Preserve Me.DeleteMail(x+1)
  22947.                 End If
  22948.                 Call IsPublicReader()
  22949.                 Call IsPublicWriter()
  22950.             Case ACLLEVEL_EDITOR
  22951.                 x = Ubound(Me.EditMail)
  22952.                 Me.EditMail(x) = Me.aclentry.Name
  22953.                 Redim Preserve Me.EditMail(x+1)
  22954.                 If Me.aclentry.CanDeleteDocuments Then
  22955.                     x = Ubound(Me.DeleteMail)
  22956.                     Me.DeleteMail(x) = Me.aclentry.Name
  22957.                     Redim Preserve Me.DeleteMail(x+1)
  22958.                 End If
  22959.                 Call IsPublicReader()
  22960.                 Call IsPublicWriter()
  22961.             Case Else
  22962.                 'These are Manager and Designers and we don't want to change them
  22963.                 x = Ubound(Me.OtherUsers)
  22964.                 Me.OtherUsers(x) = aclentry.Name
  22965.                 Redim Preserve Me.OtherUsers(x+1)
  22966.             End Select
  22967.             Set Me.aclentry = Me.acl.GetNextEntry(Me.aclentry)
  22968.         Loop
  22969.         Me.note.ReadCalendar = Fulltrim(Me.ReadCal)
  22970.         Me.note.WriteCalendar = Fulltrim(Me.WriteCal)
  22971.         Me.note.ReadMail = Fulltrim(Me.ReadMail)
  22972.         Me.note.WriteMail = Fulltrim(Me.WriteMail)
  22973.         Me.note.EditMail = Fulltrim(Me.EditMail)
  22974.         Me.note.DeleteMail = Fulltrim(Me.DeleteMail)
  22975.         Me.note.OtherUsers = Fulltrim(Me.OtherUsers)
  22976.     End Function
  22977. End Class
  22978. Lotus Productb
  22979.  V0.0
  22980. [D!Kp -
  22981. "Kp -
  22982.     ,    ,    \
  22983.     0S0E
  22984. O=Lotus Notes
  22985. O=Lotus Notes
  22986. PURSAFO
  22987. |.:#U
  22988. O=Lotus Notes
  22989. CN=Lotus Notes Template Development/O=Lotus Notes
  22990. PURSAFO
  22991. hGrFa
  22992. $TITLE
  22993. $PublicAccess
  22994. $ScriptLib
  22995. $ScriptLib_O
  22996. '++LotusScript Development Environment:2:5:(Options):0:74
  22997. Option Public
  22998. Option Explicit
  22999. '++LotusScript Development Environment:2:5:(Forward):0:1
  23000. Declare Class BaseApplication
  23001. Declare Class BaseDocument
  23002. Declare Class BaseCSStringTable
  23003. Declare Class BaseEventOwnerStringTable As BaseCSStringTable
  23004. Declare Class MeetingOwnerStringTable As BaseEventOwnerStringTable
  23005. Declare Class TaskOwnerStringTable As BaseEventOwnerStringTable
  23006. Declare Class BaseEventParticipantStringTable As BaseCSStringTable
  23007. Declare Class MeetingParticipantStringTable As BaseEventParticipantStringTable
  23008. Declare Class TaskParticipantStringTable As BaseEventParticipantStringTable
  23009. Declare Class MessageTrackStringTable
  23010. Declare Class MailToolsStringTable
  23011. Declare Class MemoStringTable
  23012. Declare Class CopyFactory
  23013. Declare Class BaseNoteCopy
  23014. Declare Class MemoCopy As BaseNoteCopy
  23015. Declare Class CalendarCopy As BaseNoteCopy
  23016. Declare Class TaskCopy As BaseNoteCopy
  23017. Declare Class GroupCalendarCopy As BaseNoteCopy
  23018. Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
  23019. Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer
  23020. Declare Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
  23021. Declare Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
  23022. Declare Function NAMEGetNumOrgUnits(sName) As Integer
  23023. Declare Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) 
  23024. Declare Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
  23025. Declare Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
  23026. Declare Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
  23027. Declare Function STRGetToken(sValue,sToken) As String
  23028. Declare Function NAMEAbbreviate(vNamesList As Variant) As Variant
  23029. Declare Function TIMEFindInSortedList(vKey As Variant, vTimeList As Variant) As Integer
  23030. Declare Function ARRAYIsValid(vArray As Variant) As Integer
  23031. Declare Function CSGetMailFileOwner() As String
  23032. Declare Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
  23033. Declare Function NOTEUserIsCreator(note As NotesDocument) As Integer
  23034. Declare Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
  23035. Declare Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
  23036. Declare Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
  23037. Declare Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
  23038. Declare Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
  23039. Declare Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
  23040. Declare Function CSEventDTItemsModified(vBEObject As Variant) As Integer
  23041. Declare Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
  23042. Declare Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
  23043. Declare Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
  23044. Declare Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
  23045. Declare Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
  23046. Declare Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
  23047. Declare Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
  23048. Declare Sub wInstantiateObjectVariables
  23049. Declare Sub wMessagePageHeader
  23050. Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  23051. Declare Function wGetDBPath  As Variant
  23052. Declare Sub SetInternationalFormatHelpers( note As NotesDocument)
  23053. Declare Sub wMarkTempFields(doc As NotesDocument)
  23054. Declare Sub wCreateDefaultCalendarProfile
  23055. Declare Function wGetCalendarProfile As Integer
  23056. Declare Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
  23057. Declare Function CSGetMainEventObject(vBEObject As Variant) As Variant
  23058. Declare Sub Initialize
  23059. '++LotusScript Development Environment:2:5:(Declarations):0:10
  23060. 'Common: 
  23061. %INCLUDE "lsconst.lss"
  23062. %INCLUDE "orgconst.lss"
  23063. 'Back end classes
  23064. Dim session As NotesSession
  23065. Dim db As NotesDatabase
  23066. Dim note As NotesDocument
  23067. Dim profile As NotesDocument
  23068. Dim item As NotesItem
  23069. Dim NameLookup As NotesName
  23070. Dim agentlog As noteslog 
  23071. Dim PathAndName As String
  23072. 'General Purpose classes
  23073. Dim Owner As String
  23074. Dim NewDocument As Integer
  23075. 'Client Differenciation
  23076. Dim IsWebClient As Variant
  23077. Class BaseApplication
  23078.  ' Properties
  23079.     m_session As NotesSession  ' pointer to current session object
  23080.     m_db As NotesDatabase    ' pointer to current database
  23081.     m_nClientType As Integer
  23082.     m_stringtable As Variant    ' Reference to a StringTable object        
  23083.     Property Get Session As NotesSession
  23084.         Set Session = m_session
  23085.     End Property
  23086.     Property Get Database As NotesDatabase
  23087.         Set Database = m_db
  23088.     End Property
  23089.     Property Get StringTable As Variant
  23090.         Set StringTable = m_stringtable
  23091.     End Property
  23092.     Property Get DocumentsToProcess As NotesDocumentCollection
  23093.         Set DocumentsToProcess = m_db.UnprocessedDocuments
  23094.     End Property
  23095.     Property Get LocalAddressBook As NotesDatabase
  23096.         Dim sAddressLine As String
  23097.         Dim nPos As Integer
  23098.         sAddressLine = m_session.getenvironmentstring("names",True)
  23099.         If Len(sAddressLine) Then
  23100.             nPos = Instr(sAddressLine,",")
  23101.             If (nPos = 0) Then
  23102.                 Set LocalAddressBook = m_session.GetDatabase("",sAddressLine)
  23103.             Else
  23104.                 Set LocalAddressBook = m_session.GetDatabase("",Left$(sAddressLine,nPos-1))
  23105.             End If
  23106.         Else
  23107.             Set LocalAddressBook = m_session.GetDatabase("","names.nsf")
  23108.         End If
  23109.     End Property
  23110.     Property Get AllAddressBooks As Variant
  23111.         AllAddressBooks = m_session.AddressBooks
  23112.     End Property
  23113.     Property Get AllPrivateAddressBooks As Variant
  23114.         Dim vBooks As Variant
  23115.         Redim vLocalBooks(0) As Variant
  23116.         Dim nCnt As Integer
  23117.         nCnt = 0
  23118.         vBooks = m_session.AddressBooks
  23119.         Forall book In vBooks
  23120.             If Not book.IsPublicAddressBook Then
  23121.                 Set vLocalBooks(nCnt) = book
  23122.                 nCnt = nCnt + 1
  23123.                 Redim Preserve vLocalBooks ( nCnt )
  23124.             End If
  23125.         End Forall
  23126.         If nCnt > 0 Then
  23127.             Redim Preserve vLocalBooks(nCnt-1)
  23128.             AllPrivateAddressBooks = vLocalBooks
  23129.         End If
  23130.     End Property
  23131.     Property Set ClientType As Integer
  23132.         m_nClientType = ClientType
  23133.     End Property
  23134.  ' Methods
  23135.     Sub New
  23136.         Set m_session = New NotesSession
  23137.         Set m_db = m_session.CurrentDatabase
  23138.         m_nClientType = CLIENT_NOTES          
  23139.     End Sub    
  23140.     Function CreateDocument As NotesDocument
  23141.         Set CreateDocument = New NotesDocument(m_db)
  23142.     End Function
  23143. End Class
  23144. Class BaseDocument
  23145.  ' Properties
  23146.     m_note As NotesDocument    ' pointer to backend document
  23147.     m_app As Variant           ' pointer to the backend application; we declare this as variant so that any subclass can be returned
  23148.     m_me As Variant            ' reference to self for rtti; subclasses should set it to "me"
  23149.     m_bWasMailed As Integer   ' Determines if the document was sent; each subclass needs to define a sent document
  23150.     m_bValid As Integer
  23151.     Property Get Document As NotesDocument
  23152.         Set Document = m_note
  23153.     End Property
  23154.     Property Get IsValid As Integer
  23155.         IsValid = m_bValid
  23156.     End Property
  23157.     Property Get IsNew As Integer
  23158.         If (m_bValid) Then
  23159.             IsNew = m_note.IsNewNote
  23160.         Else
  23161.             IsNew = False 
  23162.         End If
  23163.     End Property
  23164.     Property Get Application As Variant
  23165.         Set Application = m_app
  23166.     End Property
  23167.     Property Get WasMailed As Integer
  23168.         WasMailed = m_bWasMailed
  23169.     End Property
  23170.     Property Set WasMailed As Integer
  23171.         m_bWasMailed = WasMailed
  23172.     End Property
  23173.     Property Set AutoSave As Integer
  23174.         If (m_bValid) Then
  23175.             Select Case AutoSave
  23176.             Case Enabled
  23177.                 Call m_note.ReplaceItemValue("SaveOptions","1")
  23178.             Case Disabled
  23179.                 Call m_note.ReplaceItemValue("SaveOptions","0")
  23180.             Case Removed
  23181.                 Call m_note.RemoveItem("SaveOptions")
  23182.             End Select
  23183.         End If
  23184.     End Property
  23185.     Property Set AutoMail As Integer
  23186.         If (m_bValid) Then
  23187.             Select Case AutoMail
  23188.             Case Enabled
  23189.                 Call m_note.ReplaceItemValue("MailOptions","1")
  23190.             Case Disabled
  23191.                 Call m_note.ReplaceItemValue("MailOptions","0")
  23192.             Case Removed
  23193.                 Call m_note.RemoveItem("MailOptions")
  23194.             End Select
  23195.         End If
  23196.     End Property
  23197.     Sub MaintainSecureMail
  23198.         Dim session As NotesSession
  23199.         Set session = m_app.session
  23200.         If (session.GetEnvironmentValue("SecureMail", True)) Then
  23201.             Call m_note.ReplaceItemValue("Sign","1")
  23202.             Call m_note.ReplaceItemValue("Encrypt","1")
  23203.         End If
  23204.     End Sub
  23205.  ' Methods
  23206.     Sub New
  23207.     End Sub
  23208.     Sub Init(note As NotesDocument)
  23209.         If Not(note Is Nothing) Then
  23210.             Set m_note = note
  23211.             m_bValid = True
  23212.             Call m_note.RemoveItem("Mailoptions")
  23213.             Call m_note.RemoveItem("SaveOptions")
  23214.         End If
  23215.     End Sub
  23216.     Sub SetItemValue(sItemName As String, vValue As Variant)
  23217.         Call m_note.ReplaceItemValue(sItemname, vValue)
  23218.     End Sub
  23219.     Function GetItemValue(sItemName As String) As Variant
  23220.         GetItemValue = m_note.GetItemValue(sItemname)
  23221.     End Function
  23222.     Sub RemoveItem ( sItemName As String)         
  23223.         m_note.RemoveItem ( sItemName )               
  23224.     End Sub
  23225.     Function ValidateItem(sItemName As String, Byval lMinLength As Long)  As Integer
  23226.   This routine validates one item including the length
  23227. %ENDREM  
  23228.         Dim item As NotesItem
  23229.         ValidateItem = False
  23230.         If (IsValid) Then
  23231.             Set item = m_note.GetFirstItem(sItemName)
  23232.             If (item Is Nothing) Then
  23233.                 Exit Function
  23234.             End If
  23235.             If (lMinLength > 0) Then
  23236.                 lMinLength = lMinLength + 2
  23237.                 If (m_note.Isuidocopen) Then 
  23238.                     lMinlength = lMinLength + 4
  23239.                 End If
  23240.                 If (item.ValueLength < lMinLength) Then
  23241.                     Exit Function
  23242.                 End If
  23243.             End If
  23244.             ValidateItem = True
  23245.         End If
  23246.     End Function  
  23247.     Sub MarkTempItems
  23248.         Dim items As Variant
  23249.         If (m_bvalid) Then
  23250.             items = m_note.Items
  23251.             Forall n In items
  23252.                 If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  23253.             End Forall     
  23254.         End If
  23255.     End Sub
  23256. End Class
  23257. Class BaseCSStringTable
  23258.     Function GetString(nIndex As Integer, vData As Variant) As String
  23259.         Select Case nIndex
  23260.         Case INC_COMMENTS                                            ' Include comments on reply notice
  23261.             GetString = "Do you want to include any comments on the reply?"
  23262.         Case ALARM_TITLE
  23263.             GetString = "Alarm Options"
  23264.         Case DBLBOOK_TITLE
  23265.             GetString = "Double Book"
  23266.         Case ERR_FREETIME
  23267.             GetString = "An error occured while searching for free time. Continue?"
  23268.         Case RPTCHANGE_TITLE
  23269.             GetString = "Change Repeating Entry"        
  23270.         Case ENTRY_CONF
  23271.             GetString = "This entry conflicts with an existing entry. Create anyway?"            
  23272.         Case USER_INVALID_DOCUMENT
  23273.             GetString = "You must select an instance document to perform these actions."
  23274.         End Select
  23275.     End Function
  23276. End Class
  23277. Class BaseEventOwnerStringTable As BaseCSStringTable
  23278.     Function GetString(nIndex As Integer, vData As Variant) As String
  23279.         Select Case nIndex
  23280.         Case CANC_TITLE
  23281.             GetString = "Cancel options"
  23282.         Case RESC_TITLE
  23283.             GetString = "Reschedule options"
  23284.         Case STS_TITLE
  23285.             GetString = "Participant Status"
  23286.         Case MODTYPE_TITLE
  23287.             GetString = "Change entry type"
  23288.         Case PAST_TITLE
  23289.             GetString = "Create in Past"
  23290.         Case CONF_TITLE
  23291.             GetString = "Confirm event"
  23292.         Case REM_PART
  23293.             GetString = "Select the participant(s) you wish to remove from this event."
  23294.         Case REM_PART_TITLE
  23295.             GetString = "Remove Participants"
  23296.         Case REPEAT_TITLE
  23297.             GetString = "Repeat Options"
  23298.         Case NO_SEND_LIST
  23299.             GetString = "There are no participants to send the notice to."
  23300.         Case USER_ACTION_INVALID
  23301.             GetString = "You are the owner of this entry. You can not perform that particular action."
  23302.         Case Else
  23303.             GetString = BaseCSStringTable..GetString(nIndex, vData)
  23304.         End Select
  23305.     End Function
  23306. End Class
  23307. Class MeetingOwnerStringTable As BaseEventOwnerStringTable
  23308.     Function GetString(nIndex As Integer, vData As Variant) As String
  23309.         Select Case nIndex
  23310.         Case ENTRY_TYPE
  23311.             GetString = "Changing the entry type will cancel this meeting. Change anyway?"            
  23312.         Case INV_DUPL
  23313.             GetString = "That person is already invited to this meeting."
  23314.         Case ENTRY_DTMOD
  23315.             GetString = "Are you sure you want to change the date/time of this entry?"
  23316.         Case ENTRY_PAST
  23317.             GetString = "This entry is being created in the past. Create anyway?"
  23318.         Case DTMOD_TITLE
  23319.             GetString = "Change date/time"
  23320.         Case SEND_ROOM
  23321.             GetString = "Sending reservation requests to room(s)..."
  23322.         Case SEND_RES
  23323.             GetString = "Sending reservation requests to resource(s)..."
  23324.         Case CTRACPT_TITLE
  23325.             GetString = "Accept Counter"
  23326.         Case CTRDECL_TITLE
  23327.             GetString = "Decline Counter"
  23328.         Case RESC_UPD_MSG
  23329.             GetString = "An update notice will be sent to the participants and any rooms/resources you may have requested informing them of this change. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null) 
  23330.         Case CONF_MSG
  23331.             GetString = "A notice will be sent to the participants confirming this meeting and informing them of the participants' status. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null) 
  23332.         Case MA_RESC
  23333.             GetString = "Reschedule Meeting"
  23334.         Case MA_CANC
  23335.             GetString = "Cancel Meeting"
  23336.         Case MA_CONF
  23337.             GetString = "Confirm Meeting"
  23338.         Case MA_VWSTS
  23339.             GetString = "View Participant Status"
  23340.         Case MA_SNDMAIL
  23341.             GetString = "Send Memo to Participants"
  23342.         Case MA_TITLE
  23343.             GetString = "Meeting Activities"
  23344.         Case SEND_INV_MSG
  23345.             GetString = "Do you want to send meeting invitations to the appropriate users?"
  23346.         Case SEND_INVRES_MSG
  23347.             GetString = "Do you want to send meeting invitations and reservation requests?"
  23348.         Case SEND_INV_TITLE
  23349.             GetString = "Send Invitations"        
  23350.         Case Else
  23351.             GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
  23352.         End Select
  23353.     End Function
  23354. End Class
  23355. Class TaskOwnerStringTable As BaseEventOwnerStringTable
  23356.     Function GetString(nIndex As Integer, vData As Variant) As String
  23357.         Select Case nIndex
  23358.         Case ENTRY_TYPE
  23359.             GetString = "Changing the entry type will cancel this to do. Change anyway?"            
  23360.         Case INV_DUPL
  23361.             GetString = "That person is already a participant of this to do."
  23362.         Case ENTRY_DTMOD
  23363.             GetString = "Are you sure you want to change the date this to do is due?"
  23364.         Case ENTRY_PAST
  23365.             GetString = "This to do is being created in the past. Create anyway?"
  23366.         Case MA_RESC
  23367.             GetString = "Reschedule to do"
  23368.         Case MA_CANC
  23369.             GetString = "Cancel to do"
  23370.         Case MA_CONF
  23371.             GetString = "Confirm to do"
  23372.         Case MA_VWSTS
  23373.             GetString = "View Participant Status"
  23374.         Case MA_SNDMAIL
  23375.             GetString = "Send Memo to Participants"
  23376.         Case MA_TITLE
  23377.             GetString = "to do Activities"
  23378.         Case SEND_INV_MSG
  23379.             GetString = "Send to do assignments to the appropriate users?"
  23380.         Case SEND_INV_TITLE
  23381.             GetString = "Send Assignments"        
  23382.         Case RESC_UPD_MSG
  23383.             GetString = "An update notice will be sent to all participants of this to do informing them of this change. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
  23384.         Case CONF_MSG
  23385.             GetString = "A notice will be sent to the participants confirming this to do and informing them of the participants' status. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null) 
  23386.         Case Else
  23387.             GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
  23388.         End Select
  23389.     End Function
  23390. End Class
  23391. Class BaseEventParticipantStringTable As BaseCSStringTable
  23392.     Function GetString(nIndex As Integer, vData As Variant) As String
  23393.         Select Case nIndex
  23394.         Case PAST_TITLE
  23395.             GetString = "Past"
  23396.         Case ACPT_TITLE
  23397.             GetString = "Accept options"
  23398.         Case DECL_TITLE
  23399.             GetString = "Decline options"
  23400.         Case UPD_TITLE
  23401.             GetString = "Meeting update"
  23402.         Case DELE_TITLE
  23403.             GetString = "Delegate options"            
  23404.         Case CNTR_TITLE
  23405.             GetString = "Propose options"
  23406.         Case ERR_DELE_MSG
  23407.             GetString = "You can not delegate to an existing participant. Please select someone else."    
  23408.         Case USER_ACTION_INVALID
  23409.             GetString = "You are a participant of this entry. You can not perform that particular action."
  23410.         Case Else
  23411.             GetString = BaseCSStringTable..GetString(nIndex, vData)
  23412.         End Select
  23413.     End Function
  23414. End Class
  23415. Class MeetingParticipantStringTable As BaseEventParticipantStringTable
  23416.     Function GetString(nIndex As Integer, vData As Variant) As String
  23417.         Select Case nIndex
  23418.         Case RESC_MSG                                        ' Reschedule notice
  23419.             GetString = "This meeting has been rescheduled. Would you like to open the reschedule notice?"
  23420.         Case CANCEL_MSG
  23421.             GetString = "This meeting has been cancelled."    ' Message that appears for all cancellation notices
  23422.         Case CANCEL_UPD
  23423.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " The calendar entry will be updated to reflect this change."     ' User accepted main invitation that is now cancelled
  23424.         Case CANCEL_NOACTN
  23425.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action."                                ' The main invitation has not been accepted    
  23426.         Case ACPT_MSG
  23427.             GetString = "Accepting this meeting request will automatically add this event to your calendar. A reply notice will be sent to " & Cstr(vData) & ". " & BaseEventParticipantStringTable..GetString(INC_COMMENTS, Null)
  23428.         Case DELE_MSG
  23429.             GetString = "This request will be forwarded to a person you specify. Any updates regarding this meeting will be sent to the delegee. A reply notice will be sent to " & Cstr(vData) & ". " & BaseEventParticipantStringTable..GetString(INC_COMMENTS, Null)
  23430.         Case CNTR_MSG
  23431.             GetString = "You can specify a new date/time for this meeting. A reply notice will be sent to " & Cstr(vData) & ". " & BaseEventParticipantStringTable..GetString(INC_COMMENTS, Null)
  23432.         Case ADD_MSG
  23433.             GetString = "This meeting request will be added to your calendar. No reply notice will be sent"
  23434.         Case ADD_TITLE
  23435.             GetString = "Add to Calendar"
  23436.         Case PA_ACCEPT
  23437.             GetString = "Accept"
  23438.         Case PA_DECLINE
  23439.             GetString = "Decline"
  23440.         Case PA_DELEGATE
  23441.             GetString = "Delegate"
  23442.         Case PA_COUNTER
  23443.             GetString = "Counter"        
  23444.         Case PA_TITLE
  23445.             GetString = "Meeting Activities"
  23446.         Case Else
  23447.             GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
  23448.         End Select
  23449.     End Function
  23450. End Class
  23451. Class TaskParticipantStringTable As BaseEventParticipantStringTable
  23452.     Function GetString(nIndex As Integer, vData As Variant) As String
  23453.         Select Case nIndex
  23454.         Case RESC_MSG                                        ' Reschedule notice
  23455.             GetString = "The due date for this to do has been changed. Would you like to open the update notice?"
  23456.         Case CANCEL_MSG
  23457.             GetString = "This to do has been cancelled."    ' Message that appears for all cancellation notices
  23458.         Case CANCEL_UPD
  23459.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " The to do entry will be updated to reflect this change."     ' User accepted main invitation that is now cancelled
  23460.         Case CANCEL_NOACTN
  23461.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action."                                ' The main invitation has not been accepted    
  23462.         Case PA_ACCEPT
  23463.             GetString = "Accept"
  23464.         Case PA_DECLINE
  23465.             GetString = "Decline"
  23466.         Case PA_DELEGATE
  23467.             GetString = "Delegate"
  23468.         Case PA_COUNTER
  23469.             GetString = "Counter"        
  23470.         Case PA_TITLE
  23471.             GetString = "Meeting Activities"
  23472.         Case Else
  23473.             GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
  23474.         End Select
  23475.     End Function
  23476. End Class
  23477. Const TOOL_STRING = 400
  23478. Const MEMO_STRING = 500
  23479. Const TRACKING_STRING = 700
  23480. Class MessageTrackStringTable
  23481.     Function GetString(nIndex As Integer, vData As Variant) As String
  23482.         Select Case nIndex
  23483.         Case TRACKING_STRING+1
  23484.             GetString = "UNKNOWN "
  23485.         Case TRACKING_STRING+2
  23486.             GetString = "In Que "
  23487.         Case TRACKING_STRING+4
  23488.             GetString = "DELIVERED "
  23489.         Case TRACKING_STRING+8
  23490.             GetString = "DELIVERY FAILED "
  23491.         Case TRACKING_STRING+16
  23492.             GetString = "TRANSFERED "
  23493.         Case TRACKING_STRING+32 
  23494.             GetString = "TRANSER FAILED "
  23495.         Case  TRACKING_STRING+64
  23496.             GetString = "GROUP EXPANDED "
  23497.         Case  TRACKING_STRING+65
  23498.             GetString = "Message Tracking"    
  23499.         Case  TRACKING_STRING+66
  23500.             GetString = "Please select recipient(s) to track."
  23501.         Case  TRACKING_STRING+67
  23502.             GetString = "You may only track messages that you have sent."
  23503.         Case  TRACKING_STRING+68
  23504.             GetString = "No recipient(s) were selected"
  23505.         End Select
  23506.     End Function        
  23507. End Class
  23508. Class MailToolsStringTable
  23509.     Function GetString (nIndex As Integer, vData As Variant) As String
  23510.         Select Case nIndex
  23511.         Case TOOL_STRING
  23512.             GetString = "Unable to locate your Name & Address Book.  Names not added."
  23513.         Case TOOL_STRING+1
  23514.             GetString = Str(vData) + " name(s) processed."
  23515.         Case TOOL_STRING+2
  23516.             GetString = Str(vData) + " name(s) added to your personal address book."
  23517.         Case TOOL_STRING+3
  23518.             GetString = Str(vData) + " name(s) not added; already in your personal address book."
  23519.         Case TOOL_STRING+4
  23520.             GetString = "Error adding name(s) to personal address book: " + Str(vData)
  23521.         Case TOOL_STRING+10
  23522.             GetString = "Unable to create a calendar entry for your time off."
  23523.         Case TOOL_STRING+11
  23524.             GetString = "An Out of office document has been added to your Calendar."
  23525.         Case TOOL_STRING+12
  23526.             GetString = "Would you like to create an Out of Office Calender entry?"
  23527.         Case TOOL_STRING+13
  23528.             GetString =  "Welcome Back!  Please disable your Out of Office Agent.  To disable the agent, " & _
  23529.             "Open your Out of Office profile and select the 'Disable' button."  & Chr(13)_
  23530.             & "While you were out, the 'Out of Office' agent notified the following people of your absence." & Chr(13)
  23531.         Case TOOL_STRING+14
  23532.             GetString = "Welcome Back!  Please disable your Out of Office Agent.  To disable the agent, " & _
  23533.             "Open your Out of Office profile and select the 'Disable' button."  & Chr(13)  &_
  23534.             "While you were out, your Out of Office Agent did not notify anyone of your absence."
  23535.         Case TOOL_STRING+15
  23536.             GetString = "Welcome Back!"
  23537.         Case TOOL_STRING+16
  23538.             GetString = "This is a repeat reminder! Please disable your Out of Office Agent.  To disable the agent, " & _
  23539.             "Open your Out of Office profile and select the 'Enable/Disable' button."
  23540.         Case TOOL_STRING+17
  23541.             GetString = "Out of Office Profile ERROR"
  23542.         Case TOOL_STRING+18
  23543.             GetString = "ERROR: You must create an Out of Office profile BEFORE running your Out of Office Agent."
  23544.         Case TOOL_STRING+19
  23545.             GetString = "ERROR: You must enable your Out of Office profile BEFORE running your Out of Office Agent."
  23546.         Case TOOL_STRING+31
  23547.             GetString = " can already read mail."
  23548.         Case TOOL_STRING+32
  23549.             GetString = " can already send mail."
  23550.         Case TOOL_STRING+33
  23551.             GetString = " can already edit documents."
  23552.         Case TOOL_STRING+34
  23553.             GetString = " can already manage the calendar."
  23554.         Case TOOL_STRING+37
  23555.             GetString = vData & Chr(13) & "Managers and Designers cannot be modified using the Delegation Profile."
  23556.         Case TOOL_STRING+38
  23557.             GetString =   "You must add " & Str(vData) & " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list."
  23558.         Case TOOL_STRING+39
  23559.             GetString =   "You must add " & Str(vData) & " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list."
  23560.         Case TOOL_STRING+40
  23561.             GetString =   Str(vData) & " is currently a Manager of this database." 
  23562.         Case TOOL_STRING+41
  23563.             GetString = Str(vData) & " is currently a Designer of this database. "
  23564.         Case TOOL_STRING+42
  23565.             GetString = "You do not have the priviledge to change the ACL settings in this database."
  23566.         Case TOOL_STRING+43
  23567.             GetString = "Reminder Please Turn Off your Out Of Office Agent"
  23568.         Case TOOL_STRING+44            
  23569.             GetString = "Your Out of Office agent is still enabled."            
  23570.         Case TOOL_STRING+45
  23571.             GetString = "Please ask a Manager or Designer of this database to disable the agent for you."
  23572.         Case TOOL_STRING+46
  23573.             GetString = "Lotus Notes Out of Office"
  23574.         Case TOOL_STRING+47
  23575.             GetString = "Your 'Out of Office' agent is currently enabled."
  23576.         Case TOOL_STRING+48
  23577.             GetString = "Do you want to disable it ?"
  23578.         Case TOOL_STRING+49
  23579.             GetString = "Your Out of Office has been disabled."
  23580.         Case TOOL_STRING+50
  23581.             GetString = "Please ask a Manager or Designer of this database to enable the agent for you."
  23582.         Case TOOL_STRING+51
  23583.             GetString = "Your current location doesn't have a 'Mail Server' specified."'
  23584.         Case TOOL_STRING+52
  23585.             GetString = "Please edit your current record and specify your Mail Server."
  23586.         Case TOOL_STRING+53
  23587.             GetString = "The Out of Office agent is now enabled to run on the following server: "            
  23588.         Case TOOL_STRING+54
  23589.             GetString = "When people send you mail between "
  23590.         Case TOOL_STRING+55
  23591.             GetString = " and " &  vData & " it will inform them of your absence."
  23592.         Case TOOL_STRING+56
  23593.             GetString = "The Out of Office agent was not enabled."
  23594.         Case TOOL_STRING+57
  23595.             GetString = "You must indicate when you are leaving and when you will be back."
  23596.         Case TOOL_STRING+58
  23597.             GetString = "Your return date must be after today's date."
  23598.         Case TOOL_STRING+59
  23599.             GetString = "Your return date cannot be earlier than the leave date."
  23600.         Case TOOL_STRING+60
  23601.             GetString = "Your return date must be after your leave date."
  23602.         Case TOOL_STRING+61
  23603.             GetString = "Preferences"
  23604.         Case TOOL_STRING+62
  23605.             GetString = "Add sender to address book"
  23606.         Case TOOL_STRING+63
  23607.             GetString = "A contact with your name should not be added to your address book."
  23608.         Case TOOL_STRING+64
  23609.             GetString = Cstr(vData) & " conflicts"
  23610.         Case TOOL_STRING+65
  23611.             GetString = "Are you sure you wish to exit without enabling your Out of Office agent?"
  23612.         Case TOOL_STRING+66
  23613.             GetString = "Do you wish to disable 'Busy Time' for your 'Out of Office' calendar entry?"
  23614.         Case TOOL_STRING+67
  23615.             GetString = "Unable to disable 'Busy Time' for your 'Out of Office' calendar entry." & Chr(13) & "Entry not found."
  23616.         Case TOOL_STRING+68
  23617.             GetString = "Only the Owner or a Manager may modify the value of 'Owner'"
  23618.         Case TOOL_STRING+69
  23619.             GetString = "Your name cannot be found in the ACL, please contact your administrator."
  23620.         Case TOOL_STRING+70
  23621.             GetString = "You do not have sufficient rights to edit preferences for this database"
  23622.         Case TOOL_STRING+71
  23623.             GetString = "The 'Owner' of a mail file should be specified in 'Hierarchical' format." & Chr(13) &  "i.e. John Doe/MyDomain"            
  23624.         Case TOOL_STRING+72
  23625.             GetString = "Error creating AdminP request, please contact your administrator"            
  23626.         End Select
  23627.     End Function
  23628. End Class
  23629. Class MemoStringTable
  23630.     Function GetString(nIndex As Integer, vData As Variant) As String
  23631.         Select Case nIndex
  23632.         Case MEMO_STRING   ' task notification mail message
  23633.             GetString = "Notfication has been sent to "
  23634.         Case MEMO_STRING+1   ' name a stationery document
  23635.             GetString = "What would you like to call this stationery?"
  23636.         Case MEMO_STRING+2
  23637.             GetString = "This action cannot be performed on a new document."
  23638.         Case MEMO_STRING+3
  23639.             GetString = "Please select one document before executing this command."
  23640.         Case MEMO_STRING+4   ' user trying to copy a document that has the prevent copy bit set
  23641.             GetString = "This document is prevented from being copied.  The body will not be copied into the new document."              
  23642.         Case MEMO_STRING+5
  23643.             GetString = "Mail Schedule Profile not found.  You must define your Mail schedule profile before you can schedule a document."
  23644.         Case MEMO_STRING+6
  23645.             GetString = "Your Mail Scheduler agent is currently disabled.  The agent must be enabled before you can schedule a document."
  23646.         Case MEMO_STRING+7
  23647.             GetString = "Unable to locate your mail schedule profile.  A mail schedule profile must exist in your database before you can schedule a document."
  23648.         Case MEMO_STRING+8
  23649.             GetString = "Your Mail scheduling profile is not configured to run the Notes mail scheduler.  You must set the current status to enabled in order to schedule a document."
  23650.         Case MEMO_STRING+9
  23651.             GetString = Str(vData) & " document(s) processed."
  23652.         Case MEMO_STRING+10
  23653.             GetString = "The document(s) can be referenced via your Drafts view."
  23654.         Case MEMO_STRING+11
  23655.             GetString = Str(vData) & " document(s) put on hold."
  23656.         Case MEMO_STRING+12
  23657.             GetString = Str(vData) & " document(s) scheduled."
  23658.         Case MEMO_STRING+13
  23659.             GetString = Str(vData) & " document(s) no longer accessible from this view."
  23660.         Case MEMO_STRING+14
  23661.             GetString = "No Mail Schedule Profile"
  23662.         Case MEMO_STRING+15
  23663.             GetString = "You must enter a 'SendTo' name in order to schedule a document."
  23664.         Case MEMO_STRING+16
  23665.             GetString = "Lotus Notes"
  23666.         Case MEMO_STRING+17
  23667.             GetString = "-Untitled-"            
  23668.         Case MEMO_STRING+18
  23669.             GetString = "Include Signature"
  23670.         Case MEMO_STRING+19
  23671.             GetString = "Please place the cursor at the desired insertion point of the body field."
  23672.         Case MEMO_STRING+20
  23673.             GetString = "Do you wish to save this document?"
  23674.         Case MEMO_STRING+21
  23675.             GetString = "Address recipients"
  23676.         Case MEMO_STRING+22
  23677.             GetString = "Do you wish to save this new stationery?"
  23678.         Case MEMO_STRING+23
  23679.             GetString = "Do you wish to save this new message?"
  23680.         End Select
  23681.     End Function
  23682. End Class
  23683. Class CopyFactory
  23684.     '**This is a method for creating new copy objects
  23685.     '** It ensures that all documents will be mapped to their correct
  23686.     '** copy object
  23687.     Function createFromExisting( note As NotesDocument) As BaseNoteCopy
  23688.         If Not note Is Nothing Then
  23689.             Select Case Lcase( note.GetItemValue( "Form")(0))
  23690.             Case "memo","reply"
  23691.                 Set createFromExisting = New MemoCopy( note)
  23692.             Case "appointment"
  23693.                 Set createFromExisting = New CalendarCopy( note)
  23694.             Case "task"
  23695.                 Set createFromExisting = New TaskCopy( note)
  23696.             Case "(groupcalendar)"
  23697.                 Set createFromExisting = New GroupCalendarCopy( note)
  23698.             Case Else
  23699.                 Set createFromExisting = New BaseNoteCopy( note)
  23700.             End Select
  23701.         Else
  23702.             Set createFromExisting = New BaseNoteCopy( Nothing)
  23703.         End If
  23704.     End Function
  23705.     Function createNew( nType As Integer) As BaseNoteCopy
  23706.         Select Case nType
  23707.         Case CREATE_MEMO
  23708.             Set createNew = New MemoCopy( Nothing)
  23709.         Case CREATE_CALENDAR
  23710.             Set createNew = New CalendarCopy( Nothing)
  23711.         Case CREATE_TASK
  23712.             Set createNew = New TaskCopy( Nothing)
  23713.         Case CREATE_GROUPCALENDAR
  23714.             Set createNew = New GroupCalendarCopy( Nothing)
  23715.         End Select
  23716.     End Function
  23717. End Class
  23718. Class BaseNoteCopy
  23719.     '**This class defines an interface for copying items from one document to another
  23720.     Private m_session As NotesSession
  23721.     Private m_db As NotesDatabase
  23722.     Private m_note As NotesDocument
  23723.     Public copyIntoAsLink As Integer
  23724.     Private m_maps List As Variant
  23725.     Sub new (note As NotesDocument)
  23726.         Set m_note = note
  23727.         If m_note Is Nothing Then
  23728.             Set m_session = New NotesSession
  23729.             Set m_db = m_session.currentDatabase
  23730.             Set m_note = m_db.createDocument
  23731.             Call setNewNoteInfo
  23732.         Else
  23733.             Set m_db = m_note.parentDatabase
  23734.             Set m_session = m_db.parent
  23735.         End If
  23736.         Dim tempMaps As Variant
  23737.         tempMaps = Evaluate( |@Explode("| & ItemMapsStr & |"; ";")| )
  23738.         Forall aMapStr In tempMaps
  23739.             Dim tempArray As Variant
  23740.             tempArray = Evaluate( |@Explode("| & aMapStr & |"; "||")| )
  23741.             Forall x In tempArray
  23742.                 m_maps( x) = tempArray
  23743.             End Forall
  23744.         End Forall
  23745.     End Sub
  23746.     Public Property Get document As NotesDocument
  23747.         Set document = m_note 
  23748.     End Property
  23749.     Private Sub setNewNoteInfo
  23750.         'This method is used to write information
  23751.         'to the document if it's new.
  23752.         'It is meant to be overridden and used to set items such as form
  23753.         m_note.replaceItemValue"Principal", CSGetMailFileOwner()
  23754.     End Sub
  23755.     Public Function getBodyItem As NotesRichTextItem
  23756.         'This will get the body item.  If the body item in not richtext
  23757.         'then it converts in into richtext
  23758.         Dim body As NotesItem
  23759.         Dim rtBody As NotesRichTextItem
  23760.         If m_note.hasItem( "Body") Then
  23761.             Set body = m_note.getFirstItem( "Body")
  23762.             If body.type = RICHTEXT Then
  23763.                 Set getBodyItem = body
  23764.             Else
  23765.                 Dim tempStr As String
  23766.                 tempStr = body.text
  23767.                 body.remove
  23768.                 Set rtBody = New NotesRichTextItem( m_note, "Body")
  23769.                 rtBody.appendText( tempStr)
  23770.                 Set getBodyItem = rtBody
  23771.             End If
  23772.         Else
  23773.             Set getBodyItem = New NotesRichTextItem( m_note, "Body")
  23774.         End If
  23775.     End Function
  23776.     Public Sub copyIntoBody( noteToCopy As BaseNoteCopy)
  23777.         Dim body As NotesRichTextItem
  23778.         Set body = Me.getBodyItem
  23779.         If copyIntoAsLink Then 
  23780.             If Not noteToCopy.document.isNewNote Then    Call body.AppendDocLink(noteToCopy.document,"")
  23781.         Elseif Not noteToCopy.document.getItemValue( "$KeepPrivate")(0) = "1" And noteToCopy.document.hasItem( "Body") Then        
  23782.             body.AddNewLine 2
  23783.             body.AppendText "__________________"
  23784.             body.AddNewLine 2
  23785.             body.appendRTItem noteToCopy.getBodyItem
  23786.         End If
  23787.     End Sub
  23788.     Function element0( x As Variant) As String
  23789.         element0= x(0)
  23790.     End Function
  23791.     Public Function copyIntoMe( ToCopy As BaseNoteCopy)
  23792.         Dim noteToCopy As NotesDocument
  23793.         Set noteToCopy = ToCopy.document
  23794.         copyIntoBody ToCopy        
  23795.         copyOtherStuff ToCopy
  23796.         Forall copyMap In ToCopy.m_maps 
  23797.             If Iselement( m_maps(Listtag(copyMap) )) Then
  23798.                 If noteToCopy.hasItem( Listtag(copyMap)) Then
  23799.                     copyItem noteToCopy.getFirstItem(Listtag(copyMap)), element0(m_maps(Listtag(copyMap)))
  23800.                 End If 
  23801.             End If
  23802.         End Forall
  23803.         postCopyProcessing ToCopy
  23804.     End Function
  23805.     Private Sub copyItem( item As NotesItem, itemName As String)        
  23806.         If Not item Is Nothing Then
  23807.             If m_note.hasItem( itemName ) Then
  23808.                 m_note.removeItem itemName
  23809.             End If
  23810.             m_note.copyItem item, itemName 
  23811.         End If
  23812.     End Sub
  23813.     Private Sub copyOtherStuff( toCopy As BaseNoteCopy)
  23814.         '**this is used to copy special case items.  meant to be overidden
  23815.     End Sub
  23816.     Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
  23817.         '**this is used to process the document after all the copying is done.  meant to be overidden
  23818.     End Sub
  23819.     Property Get ItemMapsStr As String
  23820.         ItemMapsStr = "Subject|Topic;SendTo|RequiredAttendees|AssignedTo;CopyTo|OptionalAttendees|OptionalAssignees;BlindCopyTo|FYIAttendees|FYIAssignees"
  23821.     End Property
  23822. End Class
  23823. Class MemoCopy As BaseNoteCopy
  23824.     Sub new (note As NotesDocument), BaseNoteCopy( note)
  23825.     End Sub
  23826.     Private Sub setNewNoteInfo
  23827.         BaseNoteCopy..setNewNoteInfo
  23828.         m_note.replaceItemValue "Form", "Memo"
  23829.         m_note.ReplaceItemValue "Logo", m_session.currentdatabase.getprofiledocument("CalendarProfile").GetItemValue("DefaultLogo")(0)
  23830.     End Sub    
  23831.     Property Get ItemMapsStr As String
  23832.         ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";AltSendTo;AltCopyTo;AltBlindCopyTo;iSendTo;iCopyTo;iBlindCopyTo;$StorageTo;$StorageCc;$StorageBcc;$NameLanguageTags"
  23833.     End Property    
  23834. End Class
  23835. Class CalendarCopy As BaseNoteCopy
  23836.     Sub new (note As NotesDocument), BaseNoteCopy( note)
  23837.     End Sub
  23838.     Private Sub setNewNoteInfo
  23839.         BaseNoteCopy..setNewNoteInfo
  23840.         m_note.replaceItemValue "Form", "Appointment"        
  23841.     End Sub
  23842.     Property Get ItemMapsStr As String
  23843.         ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;EndDate;EndDateTime" &_
  23844.         ";EndTime;Resources;RoomsToReserve;AppointmentType;CalendarDateTime;RoomToReserve;OrgConfidential;BookFreeTime;Categories;Location" &_
  23845.         ";Alarms;$Alarm;$AlarmDescription;$AlarmOffset;$AlarmSound;$AlarmUnit"
  23846.     End Property
  23847. End Class
  23848. Class TaskCopy As BaseNoteCopy
  23849.     Sub new (note As NotesDocument), BaseNoteCopy( note)        
  23850.     End Sub
  23851.     Private Sub setNewNoteInfo
  23852.         BaseNoteCopy..setNewNoteInfo
  23853.         m_note.replaceItemValue "Form", "Task"
  23854.     End Sub
  23855.     Property Get ItemMapsStr As String
  23856.         ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;DueDate;DueDateTime"
  23857.     End Property
  23858.     Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
  23859.         If Len( m_note.getItemValue( "SendTo")(0)) > 0 Then Call m_note.replaceItemValue( "TaskType", "2")
  23860.     End Sub
  23861. End Class
  23862. Class GroupCalendarCopy As BaseNoteCopy
  23863.     Sub new (note As NotesDocument), BaseNoteCopy( note)        
  23864.     End Sub
  23865.     Private Sub setNewNoteInfo 
  23866.         m_note.replaceItemValue "Form", "(GroupCalendar)"
  23867.     End Sub
  23868.     Property Get ItemMapsStr As String
  23869.         ItemMapsStr = "Members|SendTo;Subject"
  23870.     End Property
  23871.     Private Sub postCopyProcessing(toCopy As BaseNoteCopy)
  23872.         Dim NoteToCopy As NotesDocument
  23873.         Set noteToCopy = toCopy.m_note    
  23874.         m_note.replaceItemValue "Members", Arrayappend( Arrayappend( m_note.getItemValue( "Members"), noteToCopy.getItemValue( "CopyTo")), noteToCopy.getItemValue( "BlindCopyTo"))
  23875.         Evaluate |Field Members := @Unique( @Trim( Members));""|, m_note 
  23876.     End Sub
  23877.     Public Sub copyIntoBody( noteToCopy As BaseNoteCopy) 
  23878.         'Don't ever copy the body
  23879.     End Sub
  23880. End Class
  23881. '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8
  23882. Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
  23883.     Dim nameUser As NotesName
  23884.     Set nameUser = New NotesName(sUsername) 
  23885.     If Instr(sUserName,"@") Then
  23886.         sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@")
  23887.         sRetDomain = Strright(nameUser.abbreviated,"@")
  23888.     Else
  23889.         sRetAbbreviatedName = nameUser.abbreviated
  23890.         sRetDomain = ""
  23891.     End If
  23892. End Sub
  23893. '++LotusScript Development Environment:2:1:NAMECompare:1:8
  23894. Function NAMECompare(sName1 As String, sName2 As String) As Integer
  23895.     Returns true if two names are equal, False otherwise
  23896. %END REM
  23897.     Dim sCanName1 As String
  23898.     Dim sDomainName1 As String
  23899.     Dim sCanName2 As String
  23900.     Dim sDomainName2 As String
  23901.     Dim nLenName1 As Integer
  23902.     Dim nLenName2 As Integer
  23903.     Dim name1 As NotesName
  23904.     Dim name2 As NotesName
  23905.     Call NAMEGetComponents(sName1, sCanName1, sDomainName1)
  23906.     Call NAMEGetComponents(sName2, sCanName2, sDomainName2)
  23907.     Set name1 = New NotesName(sCanName1)
  23908.     Set name2 = New NotesName(sCanName2)
  23909.     ' Do a canonical comparison if both names are hierarchical
  23910.     If (name1.IsHierarchical) And (name2.IsHierarchical) Then    
  23911.         If (Strcompare(sCanName1, sCanName2) = 0) Then
  23912.             NAMECompare = True
  23913.             Exit Function
  23914.         Else
  23915.             Exit Function        
  23916.         End If
  23917.     End If
  23918.      ' Compare the common names
  23919.     If (Strcompare(name1.common, name2.common) = 0) Then
  23920.         NAMECompare = True
  23921.         Exit Function
  23922.     End If
  23923.     NAMECompare = False
  23924. End Function
  23925. '++LotusScript Development Environment:2:1:NAMEFindInList:1:8
  23926. Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
  23927.     Given a name and a list of names return the index position if the user is found, -1 otherwise
  23928. %END REM 
  23929.     Dim x As Integer
  23930.     Dim iNames As Integer
  23931.     NAMEFindInList = -1
  23932.     If Isempty(vListOfNames) Then
  23933.         Exit Function
  23934.     End If
  23935.     If Isarray(vListOfNames) Then
  23936.         iNames = Ubound(vListOfNames)
  23937.         For x = 0 To iNames
  23938.             If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then
  23939.                 NAMEFindInList = x
  23940.                 Exit Function
  23941.             End If
  23942.         Next
  23943.     Else
  23944.         NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames))
  23945.     End If
  23946. End Function
  23947. '++LotusScript Development Environment:2:1:NAMECompareWildcards:1:8
  23948. Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
  23949. allowable wildcard formats
  23950. */OU/O
  23951. */OU/OU/O
  23952. */OU/OU/OU/O
  23953. %END REM
  23954.     Dim name1 As NotesName
  23955.     Dim name2 As NotesName
  23956.     Dim nWIldcardUnits As Integer
  23957.     Dim nNameUnits As Integer
  23958.     Dim nPos As Integer
  23959.     NAMECompareWildcards = False
  23960.     If Left$(sWildcard,1) <> "*" Then
  23961.         Exit Function          
  23962.     End If
  23963.     Set name1 = New NotesName(sName)
  23964.     Set name2 = New NotesName(sWildcard)
  23965.      ' first, determine how many "/" are in the wildcard and in name
  23966.     nWildcardUnits = NAMEGetNumOrgUnits(sWildcard)
  23967.     nNameUnits = NAMEGetNumOrgUnits(sName)
  23968.      ' if there are more "/" in widlcard, the names can't possibly match     
  23969.     If (nWildcardUnits > nNameUnits) Then
  23970.         Exit Function          
  23971.     End If
  23972.      ' Now that we validated the # of arguments, assume the names will match
  23973.      ' We do it this way so that if any particular comparison fails, we set to false and exit
  23974.      ' In addition, if nWildcard units = 0, then the wildcard must be "*", so everything matches
  23975.     NAMECompareWildcards = True
  23976.     If (nWildcardUnits > 0) Then
  23977.       ' First, compare the Organization
  23978.         If Not(Strcompare(name1.organization, name2.organization) = 0) Then
  23979.             NAMECompareWildcards = False               
  23980.             Exit Function                    
  23981.         End If
  23982.     End If
  23983.     If (nWildcardUnits > 1) Then
  23984.       ' compare the OU1
  23985.         If Not(Strcompare(name1.Orgunit1, name2.orgunit1)=0) Then
  23986.             NAMECompareWildcards = False               
  23987.             Exit Function                    
  23988.         End If
  23989.     End If
  23990.     If (nWildcardUnits > 2) Then
  23991.       ' compare the OU2
  23992.         If Not(Strcompare(name1.Orgunit2, name2.orgunit2)=0) Then
  23993.             NAMECompareWildcards = False               
  23994.             Exit Function                    
  23995.         End If
  23996.     End If
  23997.     If (nWildcardUnits > 3) Then
  23998.       ' compare the OU3
  23999.         If Not(Strcompare(name1.Orgunit3, name2.orgunit3)=0) Then
  24000.             NAMECompareWildcards = False               
  24001.             Exit Function                    
  24002.         End If
  24003.     End If
  24004.     If (nWildcardUnits > 4) Then
  24005.       ' compare the OU4
  24006.         If Not(Strcompare(name1.Orgunit4, name2.orgunit4)=0) Then
  24007.             NAMECompareWildcards = False               
  24008.             Exit Function                    
  24009.         End If
  24010.     End If
  24011.    ' if we made it this far, the name matches the wildcard
  24012. End Function
  24013. '++LotusScript Development Environment:2:1:NAMEGetNumOrgUnits:1:8
  24014. Function NAMEGetNumOrgUnits(sName) As Integer
  24015.     Dim nPos As Integer
  24016.     Dim nUnits As Integer
  24017.     nPos = Instr(sName,"/")
  24018.     While (nPos > 0)
  24019.         nUnits = nUnits + 1
  24020.         sName = Right$(sName,Len(sName)-nPos)
  24021.         nPos = Instr(sName,"/")          
  24022.     Wend
  24023.     NAMEGetNumOrgUnits = nUnits
  24024. End Function
  24025. '++LotusScript Development Environment:2:2:TIMEGetFromItem:1:8
  24026. Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) 
  24027.     Dim item As NotesItem
  24028.     ' If the user passed in an existing allocated object, delete it
  24029.     If Not(dt1 Is Nothing) Then
  24030.         Delete dt1
  24031.     End If
  24032.     If Not(TIMEValidateArgs(sItemName, "", note)) Then
  24033.         Exit Sub
  24034.     End If
  24035.     Set item = note.GetFirstItem(sItemName)
  24036.     If (Len(item.text) = 0) Then 
  24037.         Exit Sub
  24038.     End If
  24039.     Set dt1 = New NotesDateTime("")
  24040.     Set dt1 = item.DateTimeValue
  24041. End Sub
  24042. '++LotusScript Development Environment:2:1:TIMECompareDates:1:8
  24043. Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
  24044.     Dim dtMy1 As NotesDateTime
  24045.     Dim dtMy2 As NotesDateTime
  24046.     TIMECompareDates = 0
  24047.     If (dt1 Is Nothing) Or (dt2 Is Nothing) Then
  24048.         Exit Function
  24049.     End If
  24050.     Set dtMy1 = New NotesDateTime(dt1.DateOnly)
  24051.     Set dtMy2 = New NotesDateTime(dt2.DateOnly)
  24052.     TIMECompareDates = dtMy1.TimeDifference(dtMy2)/86400
  24053. End Function
  24054. '++LotusScript Development Environment:2:2:TIMEGetNotesFromLS:1:8
  24055. Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
  24056.     Set dtNotes = New NotesDateTime("")
  24057.     If Isdate(vLS) Then dtNotes.LSLocalTime = vLS
  24058. End Sub
  24059. '++LotusScript Development Environment:2:1:TIMEValidateArgs:1:8
  24060. Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
  24061.     TIMEValidateArgs = False
  24062.     If (note Is Nothing) Then
  24063.         Exit Function
  24064.     End If
  24065.     If (Len(sItemname1) > 0) Then
  24066.         If Not(note.HasItem(sItemName1)) Then
  24067.             Exit Function
  24068.         End If
  24069.     End If
  24070.     If (Len(sItemname2) > 0) Then
  24071.         If Not(note.HasItem(sItemName2)) Then
  24072.             Exit Function
  24073.         End If
  24074.     End If
  24075.     TIMEValidateArgs = True
  24076. End Function
  24077. '++LotusScript Development Environment:2:1:STRGetToken:1:8
  24078. Function STRGetToken(sValue,sToken) As String
  24079.     Dim nPos As Integer
  24080.     nPos = Instr(sValue,sToken)
  24081.     If (nPos > 0) Then
  24082.         STRGetToken = Left$(sValue,nPos-1)
  24083.         sValue = Right$(sValue,Len(sValue)-nPos)
  24084.     Else
  24085.         STRGetToken = sValue
  24086.         sValue = ""
  24087.     End If
  24088. End Function
  24089. '++LotusScript Development Environment:2:1:NAMEAbbreviate:1:8
  24090. Function NAMEAbbreviate(vNamesList As Variant) As Variant
  24091.     Dim vResult As Variant
  24092.     Dim nameEntry As NotesName
  24093.     Dim nitems As Integer
  24094.     Dim i As Integer
  24095.     If Isarray(vNamesList) Then
  24096.         nItems = Ubound(vNamesLIst)        
  24097.         Redim vResult(nItems)
  24098.         For i = 0 To nItems
  24099.             Set nameEntry = New NotesName(vNamesList(i))
  24100.             vresult(i) = nameEntry.Abbreviated
  24101.         Next
  24102.     Else
  24103.         Set nameEntry = New NotesName(vNamesList)
  24104.         vresult = nameEntry.Abbreviated        
  24105.     End If
  24106.     NAMEAbbreviate = vResult
  24107. End Function
  24108. '++LotusScript Development Environment:2:1:TIMEFindInSortedList:1:8
  24109. Function TIMEFindInSortedList(vKey As Variant, vTimeList As Variant) As Integer
  24110.     Dim nMiddle As Integer
  24111.     Dim nHigh As Integer
  24112.     Dim nLow As Integer
  24113.     nLow = 0
  24114.     nHigh = Ubound(vTimeList)
  24115.     While (nLow <= nHigh)
  24116.         nMiddle = (nLow + nHigh) / 2
  24117.         If (vKey = vTimeList(nMiddle)) Then
  24118.             TIMEFindInSortedList = nMiddle
  24119.             Exit Function
  24120.         Elseif (vKey < vTimeList(nMiddle)) Then
  24121.             nHigh = nMiddle - 1
  24122.         Else
  24123.             nLow = nMiddle + 1               
  24124.         End If
  24125.     Wend
  24126.     ' If we got this far, we didn't find the value
  24127.     TIMEFindInSortedList = -1
  24128. End Function
  24129. '++LotusScript Development Environment:2:1:ARRAYIsValid:1:8
  24130. Function ARRAYIsValid(vArray As Variant) As Integer
  24131.     ARRAYIsValid = False
  24132.     If Isempty(vArray) Then
  24133.         Exit Function
  24134.     Elseif Not(Isarray(vArray)) Then
  24135.         Exit Function
  24136.     Else
  24137.         If Ubound(vArray) = 0 And Len(vArray(0)) = 0 Then
  24138.             Exit Function
  24139.         End If
  24140.     End If
  24141.     ARRAYIsValid = True
  24142. End Function
  24143. '++LotusScript Development Environment:2:1:CSGetMailFileOwner:1:8
  24144. Function CSGetMailFileOwner() As String
  24145.     Dim session As New notessession
  24146.     Dim profile As notesdocument
  24147.     Dim strOwner As String
  24148.     Set profile = session.currentdatabase.getprofiledocument("CalendarProfile")
  24149.     strOwner = profile.GetItemValue("Owner")(0)
  24150.     If Len(strOwner) Then
  24151.         CSGetMailFileOwner = strOwner
  24152.     Else
  24153.         CSGetMailFileOwner = session.UserName
  24154.     End If
  24155. End Function
  24156. '++LotusScript Development Environment:2:2:TIMEGetComponents:1:8
  24157. Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
  24158.     Dim itemST As NotesItem
  24159.     Dim itemSD As NotesItem
  24160.     ' If the user passed in an existing allocated object, delete it
  24161.     If Not(dt1 Is Nothing) Then
  24162.         Delete dt1
  24163.     End If
  24164.     If Not(TIMEValidateArgs(sDateItem, sTimeItem, note)) Then
  24165.         Exit Sub
  24166.     End If
  24167.     Set itemSD = note.GetFirstItem(sDateItem)
  24168.     Set itemST = note.GetFirstItem(sTimeItem)
  24169.     Set dt1 = New NotesDateTime(itemSD.DateTimeValue.DateOnly & " " & itemST.DateTimeValue.TimeOnly)    
  24170. End Sub
  24171. '++LotusScript Development Environment:2:1:NOTEUserIsCreator:1:8
  24172. Function NOTEUserIsCreator(note As NotesDocument) As Integer
  24173.     Dim strMailOwner As String
  24174.     Dim strFrom As String
  24175.     Dim session As New NotesSession
  24176.     NOTEUserIsCreator = True
  24177.     ' By default, all new documents are creators
  24178.     If (note Is Nothing) Then
  24179.         Exit Function
  24180.     End If
  24181.     If (note.IsNewNote) Then 
  24182.         Exit Function
  24183.     End If
  24184.     strMailOwner = CSGetMailFileOwner()
  24185.     If (note.HasItem("Chair")) Then
  24186.         strFrom = note.getitemvalue("Chair")(0)
  24187.     Elseif (note.HasItem("Principal")) Then
  24188.         strFrom = note.getitemvalue("Principal")(0)
  24189.     Elseif (note.hasItem("From")) Then
  24190.         strFrom = note.getitemvalue("From")(0)
  24191.     Else
  24192.         strFrom = session.UserName
  24193.     End If
  24194.     If Len(strFrom) = 0 Then strFrom = session.UserName
  24195.     NOTEUserIsCreator = NAMECompare(strMailOwner, strFrom)    
  24196. End Function
  24197. '++LotusScript Development Environment:2:1:NAMEExistsInList:1:8
  24198. Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
  24199.     Given a name and a list of names return True if sKeyName exists in vListOfNames
  24200.         false if they are not
  24201. %END REM 
  24202.     NAMEExistsInList = False
  24203.     NAMEExistsInList = (NAMEFindInList(sKeyName, vListOfNames) >= 0)
  24204. End Function
  24205. '++LotusScript Development Environment:2:1:NOTECopyIntoNewDocument:1:8
  24206. Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
  24207.     Dim copyInto As BaseNoteCopy
  24208.     Dim copyFactory As New CopyFactory
  24209.     Set copyInto = copyFactory.createNew( iNewType)
  24210.     copyInto.copyIntoAsLink = iFlags
  24211.     copyInto.copyIntoMe copyFactory.createFromExisting( note)
  24212.     If Len( strNewForm) >0 Then
  24213.         copyInto.document.replaceItemValue "Form", strnewForm
  24214.     End If
  24215.     Set NOTECopyIntoNewDocument = copyInto.document
  24216. End Function
  24217. '++LotusScript Development Environment:2:1:YesNoPrompt:1:8
  24218. Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
  24219.     Dim nResult As Integer         
  24220.     nResult = Messagebox(sPrompt, MB_YESNO + MB_ICONQUESTION, sTitle)
  24221.     YesNoPrompt = (nResult = IDYES)
  24222. End Function
  24223. '++LotusScript Development Environment:2:1:YesNoCancelPrompt:1:8
  24224. Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
  24225.     YesNoCancelPrompt = Messagebox(sPrompt, MB_YESNOCANCEL+MB_ICONQUESTION , sTitle)
  24226. End Function
  24227. '++LotusScript Development Environment:2:1:DisplayWarn:1:8
  24228. Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
  24229.     DisplayWarn = Messagebox (sError, nPrompt+MB_ICONEXCLAMATION, sTitle)
  24230. End Function
  24231. '++LotusScript Development Environment:2:2:TIMEAdjustByDifference:1:8
  24232. Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
  24233.     Dim iSeconds As Integer
  24234.     Dim iMinutes As Integer
  24235.     Dim iHours As Integer
  24236.     Dim iDays As Integer
  24237.     If (Abs(lDifference) >= 86400) Then
  24238.         iDays = lDifference / 86400
  24239.         lDifference = lDifference Mod 86400
  24240.     End If
  24241.     If (Abs(lDifference) >= 3600) Then
  24242.         iHours = lDifference / 3600
  24243.         lDifference = lDifference Mod 3600
  24244.     End If
  24245.     If (Abs(lDifference) >= 60) Then
  24246.         iMinutes = lDifference / 60
  24247.         lDifference = lDifference Mod 60
  24248.     End If
  24249.     iSeconds = lDifference
  24250.     If (iDays) Then Call dtAdjust.AdjustDay(iDays, True)
  24251.     If (iHours) Then Call dtAdjust.AdjustHour(iHours, True)    
  24252.     If (iMinutes) Then Call dtAdjust.AdjustMinute(iMinutes, True)
  24253.     If (iSeconds) Then Call dtAdjust.AdjustSecond(iSeconds, True)
  24254. End Sub
  24255. '++LotusScript Development Environment:2:1:CSEventDTItemsModified:1:8
  24256. Function CSEventDTItemsModified(vBEObject As Variant) As Integer
  24257.     Determines if either one of the date/time values of
  24258.     a cs object were modified
  24259. %ENDREM    
  24260.     If (vBEobject.OriginalEndDate.TimeDifference(vBEObject.CurrentEndDate) <> 0) Then
  24261.         CSEventDTItemsModified = True
  24262.         Exit Function
  24263.     End If
  24264.     If (vBEobject.OriginalStartDate.TimeDifference(vBEObject.CurrentStartDate) <> 0) Then
  24265.         CSEventDTItemsModified = True
  24266.         Exit Function
  24267.     End If
  24268.     CSEventDTItemsModified = False
  24269. End Function
  24270. '++LotusScript Development Environment:2:1:CSEventNeedsReschedule:1:8
  24271. Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
  24272.     Dim dtCurrentEnd As NotesDateTime
  24273.     Dim dtCurrentStart As NotesDateTime
  24274.     CSEventNeedsReschedule = False
  24275.     ' if the document was never mailed, no need to reschedule it
  24276.     If Not(vBEobject.WasMailed) Then
  24277.         Exit Function
  24278.     End If
  24279.     Set dtCurrentEnd = vBEObject.CurrentEndDate
  24280.     If (vBEObject.OriginalEndDate.TimeDifference(dtCurrentEnd) <> 0) Then
  24281.         CSEventNeedsReschedule = True
  24282.         Exit Function
  24283.     End If
  24284.         ' If there are no invitees, we do not need to reschedule        
  24285.     If vBEObject.WasMailed Then
  24286.         Set dtCurrentStart = vBEObject.CurrentStartDate
  24287.         If (vBEObject.OriginalStartDate.TimeDifference(dtCurrentStart) <> 0) Then
  24288.             CSEventNeedsReschedule = True
  24289.         End If
  24290.     End If
  24291. End Function
  24292. '++LotusScript Development Environment:2:2:CSDocOpen:1:8
  24293. Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
  24294.     Provides all backend processing for opening a cs document
  24295. %ENDREM    
  24296.     Dim dInitFlags As Long
  24297.     If Not(dtCalInstance Is Nothing) Then Set vBEObject.CalendarInstance = dtCalInstance
  24298.     ' If we do not have a note, bail now
  24299.     If (note Is Nothing) Then Exit Sub
  24300.     If (dOptions And CS_DOC_WEBUSER) Then dInitFlags = 8
  24301.     Call vBEobject.Init(note, dInitFlags)
  24302.     ' See if this is a new document
  24303.     If (note.IsNewNote) Then
  24304.         Call vBEObject.InitDateTimeItems(vBEObject.CalendarInstance)    
  24305.         If (dOptions And CS_DOC_ALARMS) Then Call vBEObject.SetDefaultAlarm()
  24306.     End If
  24307.     Call note.removeitem("tmpOwnerHW")
  24308.     Call note.removeitem("tmpNoActionBar")
  24309.     If (dOptions And CS_DOC_TASK) = 0 Then
  24310.         If note.getitemvalue("AppointmentType")(0) = "0" Then Call note.replaceitemvalue("AppointmentType", "3")
  24311.     End If
  24312.     If (vBEObject.WasMailed) Then
  24313.         Call note.ReplaceItemValue("tmpWasMailed", "1")
  24314.     End If
  24315. End Sub
  24316. '++LotusScript Development Environment:2:2:CSDocSave:1:8
  24317. Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
  24318.     Dim note As notesDocument
  24319.     Dim vDates As Variant
  24320.     Dim strAction As String, strCurrentType As String, strOriginalType As String
  24321.     Dim bOwner As Integer, bTask As Integer, bCreateRepeat As Integer, nChangeWhich As Integer
  24322.     Set note = vBEObject.Document
  24323.     bOwner = ((dOptions And CS_DOC_FOROWNER) = CS_DOC_FOROWNER)
  24324.     bTask = ((dOptions And CS_DOC_TASK) = CS_DOC_TASK)
  24325.     strAction = note.GetItemValue("tmpAction")(0)
  24326.     If Len(strAction) Then dAction = (dAction Or Clng(strAction))
  24327.     ' Call the function that allows outside apps to do some pre-save stuff
  24328.     Call CSExtAppDocSave(note, dAction, bTask, vContinue)
  24329.     ' If the ext app does not want to continue, bail
  24330.     If Not(vContinue) Then Exit Sub
  24331.     strCurrentType = vBEObject.CurrentType
  24332.     strOriginalType = vBEObject.OriginalType
  24333.     ' set the public access flag
  24334.     If (note.GetItemValue("OrgConfidential")(0) = "1") Then
  24335.         Call note.removeitem("$PublicAccess")
  24336.     Else
  24337.         Call note.replaceitemvalue("$PublicAccess","1")
  24338.     End If
  24339.     ' If this is a repeating instance, store off the original start date
  24340.     If (vBEObject.Context = CTX_REPEAT_INST) Then Call note.ReplaceitemValue("OriginalStartDate", vBEObject.OriginalStartDate)
  24341.     If (bOwner) Then
  24342.         If (dOptions And CS_DOC_ISCOUNTER) = 0 Then
  24343.             If (dOptions And CS_DOC_WEBUSER) > 0 Then Call vBEObject.UpdateDateTimeItems()
  24344.             ' Perform actions on calendar entries
  24345.             If (bTask = False) Then
  24346.                 Call CSDocSaveCalendarEntry(vBEObject, bOwner, strCurrentType)
  24347.             Else
  24348.                 Call vBEObject.SetDueState
  24349.             End If
  24350.             ' If we are rescheduling, update the sequence num
  24351.             If (dAction And ACTION_RESCHEDULE) Then Call vBEObject.IncrementSequenceNum()
  24352.             Call vBEObject.SetCalendarDateTime()
  24353.             Call vBEObject.SetViewIcon()
  24354.             If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then
  24355.                 If Not(note.HasItem("RepeatDates")) Then
  24356.                     vDates = vBEObject.GenerateRepeatDates()
  24357.                     Call note.ReplaceItemValue("RepeatDates", vDates)
  24358.                     bCreateRepeat = True
  24359.                 End If
  24360.             End If
  24361.             Call vBEObject.UpdateBusyTimeInfo(note.GetItemValue("BookFreeTime")(0)  <> "1")
  24362.         ' Check to see if we need to mail this thing
  24363.             If (dAction And ACTION_SEND) Then Call CSDocSendPrimaryNotice(vBEObject, vCallBackObject, vContinue)
  24364.             If (bCreateRepeat) Then Call vBEObject.CreateRepeatHierarchy()
  24365.         End If    
  24366.     End If
  24367.     If (dOptions And CS_DOC_ALARMS) Then
  24368.         If (note.HasItem("$Alarm") And Not(vbeobject.InAlarmFolder)) Then
  24369.             If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
  24370.                 ' The user wants this entry to have an alarm by default                
  24371.                 Call vbeobject.AddDefaultAlarm()
  24372.             End If
  24373.         End If
  24374.     End If
  24375.     Call vBEObject.MarkTempItems    
  24376. End Sub    
  24377. '++LotusScript Development Environment:2:2:CSDocSaveCalendarEntry:1:8
  24378. Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
  24379.     Dim note As notesdocument, profile As NotesDocument
  24380.     Dim item As notesitem
  24381.     Dim nYearly As Integer
  24382.     If (strCurrentType = "1") Then
  24383.         Set note = vBEObject.Document
  24384.         ' See if this should automatically repeat
  24385.         If Not(note.hasitem("OrgRepeat")) Then
  24386.             Set profile = vBEObject.CalendarProfile.Document
  24387.             If (profile.hasitem("AutoAnniversaryRepeat")) Then nYearly = profile.GetItemValue("AutoAnniversaryRepeat")(0)
  24388.             If (nYearly > 0) Then
  24389.                 Set item = note.getfirstitem("StartDate")
  24390.                 Call item.copyitemtodocument(note, "RepeatStartDate")
  24391.                 Call note.replaceitemvalue("OrgRepeat","1")
  24392.                 Call note.replaceitemvalue("RepeatHow", "F")
  24393.                 Call note.replaceitemvalue("RepeatFor", nYearly)
  24394.                 Call note.replaceitemvalue("RepeatForUnit","Y")
  24395.                 Call note.replaceitemvalue("RepeatUnit","Y")
  24396.                 Call note.replaceitemvalue("RepeatInterval", "1")
  24397.                 Call note.replaceitemvalue("RepeatWeekends", "D")
  24398.             End If
  24399.         End If
  24400.     End If
  24401. End Sub
  24402. '++LotusScript Development Environment:2:2:CSDocSendPrimaryNotice:1:8
  24403. Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
  24404.     Dim fSendOptions As Integer
  24405.     If Not(vBEObject.IsWorkflowEnabled) Then Exit Sub
  24406.     fSendOptions = vBEObject.PrimarySendOptions
  24407.     If (fSendOptions = 0) Then Exit Sub
  24408.     If ( (fSendOptions And 2) Or (fSendOptions And 4) ) Then Call vBEObject.InviteRooms()
  24409.     If (fSendOptions And 1) Then
  24410.         ' first, prepare the backend document for sending
  24411.         On Error Resume Next                        
  24412.         Err = 0
  24413.         Call vBEObject.PreSendPrimaryRequest()
  24414.         ' invoke the callback object
  24415.         Call vCallBackObject.SendPrimaryRequest()
  24416.         Call vBEObject.PostSendPrimaryRequest(Err <> 0)
  24417.     End If
  24418.     If (Err <> 0) Then vContinue = False
  24419. End Sub                
  24420. '++LotusScript Development Environment:2:2:CSDocUpdatePersonalCategories:1:8
  24421. Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
  24422.     Dim vCategories As Variant
  24423.     Dim vResult As Variant
  24424.     Dim nentries As Integer        
  24425.     Dim strSelectedCategory As String
  24426.     If (note Is Nothing) Or (profile Is Nothing) Then Exit Sub
  24427.     ' See if we need to update categories        
  24428.     strSelectedCategory = note.GetItemValue("Categories")(0)
  24429.     If (strSelectedCategory = "H" Or strSelectedCategory = "V" Or strSelectedCategory = "N") Then Exit Sub
  24430.     vCategories = profile.GetItemValue("UserCategories")        
  24431.     On Error Resume Next
  24432.     vResult = Arraygetindex(vCategories, strSelectedCategory)
  24433.     If Isnull(vResult) = True Then
  24434.         nEntries = Ubound(vCategories) + 1
  24435.         Redim Preserve vCategories(nEntries)
  24436.         vCategories(nEntries) = strSelectedCategory
  24437.         Call profile.replaceitemvalue("UserCategories", vCategories)
  24438.         Call profile.save(True, False)
  24439.     End If
  24440. End Sub    
  24441. '++LotusScript Development Environment:2:2:CSExtAppDocSave:1:8
  24442. Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
  24443. End Sub
  24444. '++LotusScript Development Environment:2:2:wInstantiateObjectVariables:1:8
  24445. Sub wInstantiateObjectVariables
  24446.     Set session = New NotesSession
  24447.     Set db = session.CurrentDatabase
  24448.     Set note = session.DocumentContext
  24449.     Set agentlog = New noteslog("Agent log")
  24450.     Call agentlog.openagentlog
  24451. End Sub
  24452. '++LotusScript Development Environment:2:2:wMessagePageHeader:1:8
  24453. Sub wMessagePageHeader
  24454.      'Create the action bar
  24455.     Evaluate("@ReplaceSubstring(""" + PathAndName$ + """;"" "";""+"")")
  24456.     Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  24457.     Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  24458.     Print |<TD><A HREF="| & PathAndName$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  24459.     Print |<TD><A HREF="| & PathAndName$ & |($Calendar)?OpenView&Grid=| & profile.wCalGridType(0) & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>| 
  24460.     Print |<TD><A HREF="| & PathAndName$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  24461.     Print |<TD><A HREF="| & PathAndName$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  24462.     Print |<TD><A HREF="| & PathAndName$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD>| 
  24463.     Print |</TR></TABLE><HR>|
  24464. End Sub
  24465. '++LotusScript Development Environment:2:2:CopyProfileValues:1:8
  24466. Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  24467.     Dim x As Integer
  24468.     Dim item As NotesItem
  24469.     Dim item2 As NotesITem
  24470.     noteDest.Owner = noteSrc.Owner(0)
  24471.     Call agentlog.logaction("owner is "+notesrc.owner(0))
  24472.     noteDest.DefaultDuration = noteSrc.DefaultDuration(0)
  24473.     noteDest.AutoAnniversaryRepeat = noteSrc.AutoAnniversaryRepeat(0)
  24474.     If (noteSrc.HasItem("AutoRemoveFromInbox")) Then 
  24475.         noteDest.AutoRemoveFromInbox = noteSrc.AutoRemoveFromInbox(0)
  24476.     Else
  24477.         noteDest.AutoRemoveFromInbox = "0"
  24478.     End If
  24479.     If (noteSrc.hasitem("FormatReplies")) Then
  24480.         noteDest.FormatReplies=noteSrc.FormatReplies(0)
  24481.     End If
  24482.     If(noteSrc.hasitem("OffsetChar")) Then
  24483.         noteDest.OffSetchar=noteSrc.Offsetchar(0)
  24484.     End If
  24485.     If (noteSrc.HasItem("PreventAll")) Then 
  24486.         noteDest.PreventAll = noteSrc.PreventAll(0)
  24487.     End If
  24488.     If (noteSrc.HasItem("PreventSent")) Then
  24489.         noteDest.PreventSent=noteSrc.PreventSent(0)
  24490.     End If
  24491.     If (noteSrc.Hasitem("ConflictEvent")) Then
  24492.         noteDest.ConflictEvent = noteSrc.ConflictEvent(0)
  24493.     End If
  24494.     If (noteSrc.Hasitem("ConflictMeeting")) Then
  24495.         noteDest.ConflictMeeting = noteSrc.ConflictMeeting(0)
  24496.     End If
  24497.     If (noteSrc.Hasitem("ConflictAnniversary")) Then
  24498.         noteDest.ConflictAnniversary = noteSrc.ConflictAnniversary(0)
  24499.     End If
  24500.     If (noteSrc.Hasitem("TaskFollow")) Then
  24501.         noteDest.TaskFollow = noteSrc.TaskFollow(0)
  24502.     End If
  24503.     If (noteSrc.hasitem("AutoProcessType")) Then
  24504.         noteDest.AutoProcessType=noteSrc.AutoProcessType(0)
  24505.         If (noteSrc.getitemvalue("AutoProcessType")(0)="2") Then
  24506.             'pull autoprocessuserlist
  24507.             Set item = noteSrc.getfirstitem("AutoProcessUserList")
  24508.             Call noteDest.removeitem("AutoProcessUserList")
  24509.             Call item.copyitemtodocument(noteDest, "AutoProcessUserList")
  24510.         End If
  24511.         If (noteSrc.getitemvalue("AutoProcessType")(0)="1") Then
  24512.             'pull forward
  24513.             Set item = noteSrc.getfirstitem("AutoProcessForward")
  24514.             Call noteDest.removeitem("AutoProcessForward")
  24515.             Call item.copyitemtodocument(noteDest, "AutoProcessForward")
  24516.         End If
  24517.     End If
  24518.     If (noteSrc.hasitem("PreventRepliesFromInbox")) Then
  24519.         noteDest.PreventRepliesFromInbox=noteSrc.PreventRepliesFromInbox(0)
  24520.     End If
  24521.     If (noteSrc.hasitem("AutoRemoveFromInbox")) Then
  24522.         noteDest.AutoRemoveFromInbox=noteSrc.AutoRemoveFromInbox(0)
  24523.     End If
  24524.     Set item = noteSrc.GetFirstItem("AllowBusyAccess")
  24525.     Call noteDest.RemoveItem("AllowBusyAccess")
  24526.     Set item2 = item.CopyItemToDocument(noteDest, "AllowBusyAccess")
  24527.     If Len(item2.text) Then 
  24528.         If Not(item2.Contains(noteSrc.GetItemValue("Owner")(0))) Then 
  24529.             Call item2.AppendToTextList(noteSrc.GetItemValue("Owner")(0))
  24530.         End If
  24531.     End If
  24532.     If(noteSrc.hasitem("ReadMail")) Then
  24533.         Set item = noteSrc.getfirstitem("ReadMail")
  24534.         Call noteDest.removeitem("ReadMail")
  24535.         Call item.copyitemtodocument(noteDest, "ReadMail")
  24536.     End If
  24537.     If (noteSrc.hasitem("WriteMail")) Then
  24538.         Set item = noteSrc.getfirstitem("WriteMail")
  24539.         Call noteDest.removeitem("WriteMail")
  24540.         Call item.copyitemtodocument(noteDest, "WriteMail")
  24541.     End If
  24542.     If (noteSrc.hasitem("EditMail")) Then
  24543.         Set item = noteSrc.getfirstitem("EditMail")
  24544.         Call noteDest.removeitem("EditMail")
  24545.         Call item.copyitemtodocument(noteDest, "EditMail")
  24546.     End If
  24547.     If (noteSrc.hasitem("DeleteMail")) Then
  24548.         Set item = noteSrc.getfirstitem("DeleteMail")
  24549.         Call noteDest.removeitem("DeleteMail")
  24550.         Call item.copyitemtodocument(noteDest, "DeleteMail")
  24551.     End If
  24552.     If (noteSrc.hasitem("PublicRead")) Then
  24553.         noteDest.PublicRead=noteSrc.PublicRead(0)
  24554.         Set item = noteSrc.getfirstitem("ReadCalendar")
  24555.         Call noteDest.removeitem("ReadCalendar")
  24556.         Call item.copyitemtodocument(noteDest, "ReadCalendar")
  24557.     End If
  24558.     If (noteSrc.hasitem("PublicWrite")) Then
  24559.         noteDest.PublicWrite=noteSrc.PublicWrite(0)
  24560.         Set item = noteSrc.getfirstitem("WriteCalendar")
  24561.         Call noteDest.removeitem("WriteCalendar")
  24562.         Call item.copyitemtodocument(noteDest, "WriteCalendar")
  24563.     End If
  24564.     noteDest.Sunday = noteSrc.sunday(0)
  24565.     noteDest.Monday = noteSrc.monday(0)
  24566.     noteDest.tuesday = noteSrc.Tuesday(0)
  24567.     noteDest.Wednesday = noteSrc.Wednesday(0)
  24568.     noteDest.Thursday = noteSrc.Thursday(0)
  24569.     noteDest.Friday = noteSrc.Friday(0)
  24570.     noteDest.Saturday = noteSrc.Saturday(0)
  24571.     For x = 1 To 7
  24572.         Set item = noteSrc.GetFirstItem("$Times" & x)
  24573.         If Not(item Is Nothing) Then 
  24574.             Call noteDest.RemoveItem(item.name)
  24575.             Call item.copyitemtodocument(noteDest,"")
  24576.         End If               
  24577.     Next
  24578. End Sub
  24579. '++LotusScript Development Environment:2:1:wGetDBPath:1:8
  24580. Function wGetDBPath  As Variant
  24581.     Dim strtmp As String
  24582.     Dim npos As Integer
  24583.     Dim nposofspace As Integer
  24584.     wGetDBPath=""
  24585.     Call agentlog.logaction("insidewgetdbpath")
  24586.         'check to see if the database is in a directory
  24587.     If Instr(db.filepath,"\") Or  Instr(db.filepath, " ") Then
  24588.         If Instr(db.filepath,"\") Then
  24589.             wgetdbpath = Left$(db.filepath, Instr(db.filepath,"\")-1) + "/" + Right$(db.filepath,Len(db.filepath)-Instr(db.filepath,"\"))
  24590.         End If
  24591.         If Instr(db.filepath, " ") Then
  24592.             strtmp = wgetdbpath
  24593.             npos = 1
  24594.             While Instr(npos, strtmp, " ") > 0 
  24595.                'extract to the space
  24596.                 nposofspace% = Instr(npos, strtmp, " ")
  24597.                'replace the space with a + sign
  24598.                 strtmp = Left$(strtmp, nposofspace -1 )+"+"+Right$(strtmp, (Len(strtmp)-nposofspace))
  24599.                 npos = nposofspace+1
  24600.             Wend
  24601.             wgetdbpath = strtmp            
  24602.         End If
  24603.     End If
  24604.     If wgetdbpath="" Then wgetdbpath = db.filepath
  24605.     Call agentlog.logaction("wgetdbpath is "+wgetdbpath)
  24606. End Function
  24607. '++LotusScript Development Environment:2:2:SetInternationalFormatHelpers:1:8
  24608. Sub SetInternationalFormatHelpers( note As NotesDocument)
  24609.     Const DayString = "DD"
  24610.     Const MonthString = "MM"
  24611.     Const YearString = "YY"
  24612.     Const HourString = "HH"
  24613.     Const MinuteString = "MM"
  24614.     Dim s As New NotesSession
  24615.     Dim intl As NotesInternational
  24616.     Set intl = s.International
  24617.      ' do the date format helper
  24618.     Dim dHelp1 As String
  24619.     Dim dHelp2 As String
  24620.     Dim dHelp3 As String
  24621.     Dim tHelp1 As String
  24622.     Dim tHelp2 As String
  24623.     If intl.isDateDMY Then
  24624.         dHelp1 = DayString
  24625.         dHelp2 = MonthString
  24626.         dHelp3 = YearString
  24627.     Elseif intl.isDateMDY Then
  24628.         dHelp1 = MonthString
  24629.         dHelp2 = DayString
  24630.         dhelp3 =  YearString
  24631.     Else
  24632.         dHelp1 = YearString
  24633.         dHelp2 = MonthString
  24634.         dHelp3 = DayString
  24635.     End If
  24636.     note.DateFormatHelper = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
  24637.     note.DateFormatHelper2 = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
  24638.      ' do the time format helper
  24639.     tHelp1 = HourString + intl.TimeSep + MinuteString
  24640.     If Not intl.isTime24Hour Then
  24641.         tHelp2 = " " + intl.PMString           
  24642.     End If
  24643.     note.TimeFormatHelper = tHelp1 + tHelp2
  24644.     note.TimeFormatHelper2 = tHelp1 + tHelp2
  24645.     note.DurationFormatHelper = tHelp1
  24646.     note.DurationFormatHelper2 = tHelp1
  24647. End Sub
  24648. '++LotusScript Development Environment:2:2:wMarkTempFields:1:8
  24649. Sub wMarkTempFields(doc As NotesDocument)
  24650.     Dim itemlist As Variant
  24651. 'Mark all temporary and compute for display fields such that they will not be saved to disk     
  24652.     On Error Resume Next
  24653.     itemlist = doc.Items
  24654.     Forall n In itemlist
  24655.         If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  24656.     End Forall     
  24657.      'remove web CGI variable so that they will get updated on the next doc read
  24658.     Call doc.RemoveItem("Path_Info")
  24659.     Call doc.RemoveItem("Query_String")
  24660.      'if the mail option fields are all default values, remove them
  24661.     If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _
  24662.     doc.Form(0) <> "Task") Then
  24663.         Call doc.RemoveItem("Importance")
  24664.         Call doc.RemoveItem("DeliveryPriority")
  24665.         Call doc.RemoveItem("DeliveryReport")
  24666.     End If
  24667. End Sub
  24668. '++LotusScript Development Environment:2:2:wCreateDefaultCalendarProfile:1:8
  24669. Sub wCreateDefaultCalendarProfile
  24670.  *This routine creates a calendar profile document
  24671.   containg default values for required fields
  24672. %END REM
  24673.     On Error Goto ErrorRoutine
  24674. 'the global variable "profile" is a profile document already
  24675. 'we need to add the fields to it
  24676.     profile.Form = "CalendarProfile"
  24677.     Call profile.ComputeWithForm(False, False)    
  24678.     profile.wDefaultMailOpt = "2"
  24679.     profile.wCalGridType = "3"    
  24680.     Call profile.Save(True,True,True)
  24681.     Exit Sub
  24682. ErrorRoutine:
  24683.     Messagebox(Cstr(Err)+":  "+Error+" wCreateDefaultCalendarProfile")
  24684. End Sub
  24685. '++LotusScript Development Environment:2:1:wGetCalendarProfile:1:8
  24686. Function wGetCalendarProfile As Integer
  24687.     On Error Goto ErrorRoutine
  24688.     wGetCalendarProfile=True
  24689.     Set profile = db.GetProfileDocument("CalendarProfile")
  24690.     If profile Is Nothing Then wCreateDefaultCalendarProfile    
  24691.     If profile.getitemvalue("Owner")(0) = "" Then wGetCalendarProfile=False
  24692.     Owner = profile.getitemvalue("Owner")(0)
  24693.     Exit Function
  24694. ErrorRoutine:
  24695.     Messagebox(Cstr(Err)+":  "+Error+" wGetCalendarProfile")
  24696. End Function
  24697. '++LotusScript Development Environment:2:2:CSDocSaveRepeatingEntry:1:8
  24698. Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
  24699.     Dim nContext As Integer, nChangeWhich As Integer
  24700.     nContext = vBEobject.Context
  24701.     If (nContext = CTX_REPEAT_INST Or nContext = CTX_REPEAT_MSG) Then
  24702.         nChangeWhich = vBEObject.RepeatModify
  24703.         If nChangeWhich <> REPEAT_CANCEL Then
  24704.             If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
  24705.             If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
  24706.         End If
  24707.     End If
  24708. End Sub
  24709. '++LotusScript Development Environment:2:1:CSGetMainEventObject:1:8
  24710. Function CSGetMainEventObject(vBEObject As Variant) As Variant
  24711.     Select Case vBEObject.Context
  24712.     Case CTX_REPEAT_MSG
  24713.         Set CSGetMainEventObject = vbeobject.RepeatInstanceEvent
  24714.     Case CTX_REPEAT_NONE
  24715.         If (vBEObject.Document.IsResponse) Then
  24716.             Set CSGetMainEventObject = vbeobject.ParentEvent
  24717.         Else
  24718.             Set CSGetMainEventObject = vbeobject    
  24719.         End If
  24720.     Case Else
  24721.         Set CSGetMainEventObject = vBEObject        
  24722.     End Select
  24723. End Function
  24724. '++LotusScript Development Environment:2:2:Initialize:1:10
  24725. Sub Initialize
  24726. End Sub
  24727. r4W4W
  24728. Lotus Product
  24729. V0.0`%KP%-
  24730. K`<,x
  24731. IH>]X>#1
  24732. /84#8~
  24733. D!(" '    
  24734. $L2((
  24735. %4/ + +
  24736. p%p% 
  24737.  +t0d)    
  24738. 2HAHAHAx5
  24739. ;p<p< ?
  24740. 2H9@,    
  24741. X>X>t
  24742. FDHDHDH
  24743. M@O@O@O
  24744. lRlR$L
  24745. RHTHTHT
  24746. ZT[T[
  24747. ctctc
  24748. x$x$x
  24749. x<y<y,y,y
  24750. x\y\y
  24751. DzDz4z4z
  24752. {\{\{,{,{
  24753. L{l{P
  24754. +K`%-
  24755. ^`,KP%,
  24756. ]P,KP%,8
  24757. ]P,KP%,8
  24758. ]P,KP%,8
  24759. -KP%-l
  24760. /KP%-l
  24761. \`%KP%-
  24762. 1+T!\`%$
  24763. K`<,x
  24764. IH>]X>#1
  24765. /84#8~
  24766. J8A5t
  24767. ](E}$3
  24768. ](E}P3
  24769. ](E}|3
  24770. ](E}h4
  24771. ](E} 5
  24772. ](E0<Ba
  24773. ]|G}|6
  24774. ]|G}`7
  24775. ]|G}X8
  24776. ]|G}$;
  24777. ]|G}H;
  24778. ]|G}l;
  24779. I}l@0
  24780. I}0A0
  24781. ]$L}\B
  24782. ]$L}lB
  24783. ]$L}$C
  24784. ]$L0<Ba
  24785. ]xN}TE
  24786. ]xN}hFI
  24787. ]xN}`GI
  24788. ]xN}<I
  24789. ]xN}0J
  24790. ]xN}HJ
  24791. P/4P~
  24792. P/4P~
  24793. U}@PI
  24794. U}DYI
  24795. U}DYI
  24796. ](X}0i
  24797. ](X}pi
  24798. ](X}<j
  24799. ](X}|k
  24800. ](X}dl
  24801. ](X}Hm
  24802. ](X}Xn
  24803. ](XIHX
  24804. ](XIHX
  24805. ](XIHX
  24806. ](XIHX
  24807. ](X}Lq
  24808. ](X}0r
  24809. ](X}@s
  24810. ]|Z*ln]
  24811. ]4[*ln
  24812. }pw#8y
  24813. K<a-d
  24814. ],aJ<a
  24815. ^\aK<a-
  24816. ]}pw$
  24817. ],aJLa
  24818. ]}pw$
  24819. cM ]5
  24820. h ]x8.
  24821. #/$by
  24822. m ]##
  24823. ILd#8
  24824. ]<dILd#1
  24825. 00]]xh#
  24826. e#}T{
  24827. }Pt}D|#1
  24828. e#}`|
  24829. 00]]`o#
  24830. }Pt}l~#1
  24831. e#}|~
  24832. 00]]|s#
  24833. }Pt}$
  24834. ]Tu}H
  24835. xK$x-4
  24836. xK$x-4
  24837. xK$x-4
  24838. y^,y#
  24839. K\y-X
  24840. #Kly-X
  24841. K\y-|
  24842. #Kly-|
  24843. )4x]$zX
  24844. )4x]$zI4z
  24845. #K<{-
  24846. #K<{-
  24847. #K<{-
  24848. #K<{-
  24849. K,{-@
  24850. #K<{-@
  24851. ]$|I$|
  24852. }+T|}
  24853. ~+T|K
  24854. ~+T|K
  24855. )4x^l
  24856. )|y]D
  24857. }Pt]<
  24858. [D!Kp -
  24859. "Kp -$
  24860. K("St
  24861. KD!-X
  24862. KD!-X
  24863. KD!-X
  24864. KD!-X
  24865. KD!-X
  24866. KD!-X
  24867. KD!-X
  24868. KD!-X
  24869. KD!-X
  24870. KD!-X
  24871. K("Q0
  24872. K("Qt
  24873. [("KD!,
  24874. $K(",
  24875. Members
  24876. Members
  24877.     1S2S3S5S7S
  24878.     0S0E
  24879. O=Lotus Notes
  24880. O=Lotus Notes
  24881. PURSAFO
  24882. |.:#U
  24883. O=Lotus Notes
  24884. CN=Lotus Notes Template Development/O=Lotus Notes
  24885. PURSAFO
  24886. $TITLE
  24887. $PublicAccess
  24888. $ScriptLib
  24889. $ScriptLib_O
  24890. '++LotusScript Development Environment:2:5:(Options):0:74
  24891. Option Public
  24892. Option Explicit
  24893. Use "Common"
  24894. '++LotusScript Development Environment:2:5:(Forward):0:1
  24895. Declare Sub Initialize
  24896. Declare Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  24897. Declare Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
  24898. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24899. '++LotusScript Development Environment:2:2:Initialize:1:10
  24900. Sub Initialize
  24901. End Sub
  24902. '++LotusScript Development Environment:2:2:DisplayGroupCalendarDlg:1:8
  24903. Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  24904.     Dim ws As New notesuiworkspace
  24905.     Dim strAction As String
  24906.     Call ws.dialogbox("(GroupCalendarDlg)", True, True, True,,,,"New Group Calendar", note, True, True)
  24907.     strAction = note.GetItemValue("Action")(0)
  24908.     If (strAction = "" Or strAction = "Cancel") Then Exit Sub
  24909.     Call note.save(True, False)
  24910.     If (bPutInFolder) Then Call note.PutInFolder("(GroupCalendarFolder)")
  24911.     Call ws.viewrefresh
  24912.     If (strAction = "ViewNow") Then Call ws.editdocument(True, note)
  24913. End Sub
  24914. '++LotusScript Development Environment:2:1:UICopyIntoNewDocument:1:8
  24915. Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
  24916.     Dim session As New notessession
  24917.     Dim ws As New notesuiworkspace
  24918.     Dim note As notesdocument
  24919.     Dim newnote As notesdocument
  24920.     Dim uidoc As notesuidocument
  24921.     Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument()
  24922.     If note Is Nothing Then
  24923.         Set uidoc = ws.currentdocument
  24924.         If Not(uidoc Is Nothing) Then Set note = uidoc.document
  24925.     End If
  24926.     If note Is Nothing Then 
  24927.         Msgbox "Unable to locate document to copy from"
  24928.         Exit Function
  24929.     End If
  24930.     Set newnote = NOTECopyIntoNewDocument(nType, False, note, "")
  24931.     If (bLaunch) Then Call ws.editdocument(True, newnote)
  24932.     Set UICopyIntoNewDocument = newnote
  24933. End Function
  24934. Lotus Product
  24935. OBJECT
  24936. O=Lotus Notes
  24937. O=Lotus Notes
  24938. PURSAFO
  24939. |.:#U
  24940. O=Lotus Notes
  24941. CN=Lotus Notes Template Development/O=Lotus Notes
  24942. PURSAFO
  24943. $TITLE
  24944. $PublicAccess
  24945. $ScriptLib
  24946. $ScriptLib_O
  24947. '++LotusScript Development Environment:2:5:(Options):0:74
  24948. Option Public
  24949. Option Declare
  24950. Use "Common"  
  24951. '++LotusScript Development Environment:2:5:(Forward):0:1
  24952. Declare Class UIMemoDocument
  24953. Declare Sub MEMOReplyToAll(note As notesdocument)
  24954. Declare Function IsDocAltNameCandidate(note As notesdocument) As Integer
  24955. '++LotusScript Development Environment:2:5:(Declarations):0:10
  24956. Const MEMO_OWNER                    =            &h00000001&
  24957. Const MEMO_AUTOSIGNATURE        =             &h00000002&
  24958. Const MEMO_SPELLCHECK            =            &h00000004&
  24959. Const MEMO_SIGN                        =            &h00000008&
  24960. Const MEMO_EDITSTATIONERY     =             &h00000020&
  24961. Const MEMO_ISSTATIONERY        =             &h00000100&
  24962. Const MEMO_TOMGR                     =            &h00000200&
  24963. Const MEMO_SEND                         =            &h00000400&
  24964. Const MEMO_SAVE                         =            &h00000800&
  24965. Const MEMO_DRAFT                     =            &h00001000&
  24966. Const MEMO_ISNEWDOC                 =            &h00002000&
  24967. Const MEMO_READER                     =            &h00004000&
  24968. Const MEMO_ISDIRTY                     =            &h00008000&
  24969. Const MEMO_WASMAILED             =            &h00010000&
  24970. Const MEMO_REPLYTOALL            =            &h00020000&
  24971. Const MEMO_WASSAVED             =            &h00080000&
  24972. Const MEMO_SEND_FILE                 =            &h00200000&
  24973. Const MEMO_CANCEL                     =            &h00400000&
  24974. Const MEMO_STATPUTINFOLD         =            &h00800000&
  24975. Const MEMO_ACTION_NONE         =            &h01000000&
  24976. Const MEMO_NEWCOPY                =            &h04000000&
  24977. Const MEMO_ALWAYSSAVE            =            &h08000000&
  24978. Const MEMO_ALWAYSPROMPT        =            &h10000000&
  24979. Const MEMO_NEVERSAVE            =            &h20000000&
  24980. Const MEMO_DISCARD                    =            &h40000000&
  24981. Const MEMO_STATIONERYSAVE    =            &h00000010&
  24982. Const ITEM_NO_FORCE_ACTION    =             0
  24983. Const ITEM_FORCE_ACTION            =            1
  24984. Const ITEM_REMOVE                    =             2
  24985. 'editor option fields....
  24986. Const ITEM_MAILOPTION$        =            "MailOptions"
  24987. Const ITEM_SAVEOPTIONS$        =            "SaveOptions"
  24988. Const ITEM_AUTOSPELL$        =            "$AutoSpell"
  24989. Const ITEM_MAILSAVEOPTIONS        =            "MailSaveOptions"
  24990. Const ITEM_VERSIONOPTIONS        =            "$VersionOpt"
  24991. Const ITEM_ACTIONINPROGRESS        =        "ActionInProgress"
  24992. Const ITEM_MERGEFLAG            =    "MergeFlag"
  24993. Class UIMemoDocument
  24994.     'Objects
  24995.     Public  m_noteUIMemo As notesuidocument    
  24996.     Private m_uiws As notesuiworkspace 
  24997.     Private m_calprofile As notesdocument
  24998.     Private m_noteMemo As notesdocument
  24999.     Private m_noteCursorDoc As notesdocument    
  25000.     Private m_session As notessession
  25001.     Private m_objStringTable As MemoStringTable
  25002.     Private m_acl As notesacl
  25003.     Private m_aclentry As notesaclentry
  25004.     ' Properties
  25005.     Private m_vValidUsers As Variant
  25006.     Private m_vManager As Variant
  25007.     Private m_vFILTER As Variant                    
  25008.     Private m_nNameInValid As Integer            
  25009.     Private m_lngFlags As Long
  25010.     Private m_lngActionInProgress As Long    
  25011.     Private m_nSuccess As Integer
  25012.     Private m_nSignatureOption As Integer
  25013.     Private m_nWasSaved As Integer
  25014.     Private m_nSaveFlag As Integer                    
  25015.     Private m_strEditType As String
  25016.     Private m_strSignature As String
  25017.     Private m_strResponse As String                
  25018.     Private m_strFromname As String
  25019.     Private m_strNameArray() As String
  25020.     Private m_nNonServerNames As Integer
  25021.     Private m_nNonServerFound As Integer
  25022.     Private m_nTempSignatureOption As Integer
  25023.     Private m_nCallFolderOp    As Integer
  25024. '//Constructor//
  25025.     Sub New
  25026.         Set Me.m_session = New notessession
  25027.         Set Me.m_calprofile = Me.m_session.CurrentDatabase.GetProfileDocument("CalendarProfile")
  25028.         If Not Me.m_calprofile.HasItem("Owner") Then 'must create if never setup
  25029.             Call Me.m_calprofile.replaceitemvalue("Form","CalendarProfile")
  25030.             Call Me.m_calprofile.replaceitemvalue("Owner", Me.m_session.username)
  25031.             Call Me.m_calprofile.ComputeWithForm(True,False)
  25032.             Call Me.m_calprofile.RemoveItem("$CSVersion")
  25033.             Call Me.m_calprofile.save(True,False,True)
  25034.         End If
  25035.         If Isnumeric(Me.m_calprofile.GetItemValue("Spellcheck")(0)) Then
  25036.             Call SetFlag(MEMO_SPELLCHECK)
  25037.         End If
  25038.         If Isnumeric(Me.m_calprofile.GetItemValue("SignatureOption")(0)) Then
  25039.             Me.m_nSignatureOption = Cint(Me.m_calprofile.GetItemValue("SignatureOption")(0))
  25040.             Me.m_strSignature = Me.m_calprofile.GetItemValue("Signature")(0)
  25041.         End If
  25042.         If Isnumeric(Me.m_calprofile.GetItemValue("EnableSignature")(0)) Then
  25043.             Call SetFlag(MEMO_AUTOSIGNATURE)
  25044.         End If
  25045.         If Isnumeric(Me.m_calprofile.GetItemValue("SignMail")(0)) Then
  25046.             Call SetFlag(MEMO_SIGN)
  25047.         End If
  25048.     End Sub     
  25049.     Function Init(uidoc As notesuidocument, bIsNewDoc As Variant)
  25050.         If Isobject(uidoc) Then
  25051.             If Not uidoc.inpreviewpane Then            
  25052.                 Set Me.m_objStringTable = New MemoStringTable        
  25053.                 If Not bIsNewDoc Then
  25054.                     Set Me.m_noteMemo = uidoc.document
  25055.                 Else
  25056.                     Call SetFlag(MEMO_OWNER)
  25057.                     Call SetFlag(MEMO_ISNEWDOC)
  25058.                 End If
  25059.                 Call SetActionInProgress(MEMO_ACTION_NONE)
  25060.                 Set Me.m_uiws = New notesuiworkspace            
  25061.                 Set Me.m_noteUIMemo = uidoc                    
  25062.                 Me.m_noteUIMemo.autoreload = False
  25063.             End If
  25064.         End If
  25065.     End Function
  25066.     Function PostOpen(uidoc As notesuidocument)
  25067.         Set Me.m_noteUIMemo = uidoc
  25068.         Set Me.m_noteMemo = uidoc.document
  25069.         If Not uidoc.inpreviewpane Then                    
  25070.             If Me.m_noteMemo.hasitem("PostedDate") Then
  25071.                 Call SetFlag(MEMO_WASMAILED)
  25072.                 Me.m_vValidUsers = Fulltrim(Arrayappend(Me.m_noteMemo.GetItemValue("from"),_
  25073.                 Me.m_noteMemo.GetItemValue("Principal")))
  25074.                 Me.m_nNameInValid = NAMEFindInList(Me.m_session.username, Me.m_vValidUsers)
  25075.                 If Me.m_nNameInValid < 0 Then
  25076.                     Call SetFlag(MEMO_READER)
  25077.                 Else
  25078.                     Call SetFlag(MEMO_OWNER)
  25079.                 End If
  25080.             End If
  25081.             Call GetMemoType(Me.m_noteMemo)        
  25082.             If IsFlagSet(MEMO_OWNER) Then
  25083.                 Call SetPreferenceFields()            
  25084.                 If IsFlagSet(MEMO_TOMGR) Then
  25085.                     Call ClearFlag(MEMO_TOMGR)
  25086.                     Me.m_vManager = Evaluate("@DbManager")   'this contains all managers, let's parse out server names
  25087.                     Call Me.m_noteMemo.replaceitemvalue("EnterSendTo",RemoveServersFromList(Me.m_vManager))
  25088.                     Call MarkDirty()
  25089.                 Elseif IsFlagSet(MEMO_REPLYTOALL) Then
  25090.                     Call MEMOReplyToAll(Me.m_noteMemo)
  25091.                     Call MarkDirty()
  25092.                 End If
  25093.             End If
  25094. 'Get the editor's default document disposition
  25095.             Select Case Me.m_noteMemo.GetItemValue("DefaultMailSaveOptions")(0)
  25096.             Case "0"
  25097.                 Call SetFlag(MEMO_NEVERSAVE)    
  25098.             Case "1"
  25099.                 Call SetFlag(MEMO_ALWAYSSAVE)
  25100.             Case "2"
  25101.                 Call SetFlag(MEMO_ALWAYSPROMPT)
  25102.             End Select
  25103.             Call ProcessStationery()                        
  25104.             If Not Me.m_noteMemo.IsNewNote Then
  25105.                 If Not IsFlagSet(MEMO_WASMAILED) Then
  25106.                     Me.m_noteUIMemo.editmode = True
  25107.                 End If
  25108.                 If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
  25109.                     Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  25110.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25111.                 End If
  25112.             Else
  25113.                 If IsFlagSet(MEMO_AUTOSIGNATURE) Then
  25114.                     Call InsertSignature(True)
  25115.                 End If
  25116.                 If Me.m_noteUIMemo.EditMode Then
  25117.                     If IsFlagSet(MEMO_READER) Then
  25118.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25119.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25120.                         Call SetOptionField(ITEM_MAILSAVEOPTIONS,ITEM_REMOVE)
  25121.                     Else
  25122.                         If Not IsFlagSet(MEMO_ISSTATIONERY) Then
  25123.                             Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  25124.                             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25125.                         End If
  25126.                     End If
  25127.                 End If
  25128.             End If
  25129.             If IsFlagSet(MEMO_ISDIRTY) Then
  25130.                 Call reload()        
  25131.             End If                 
  25132.         End If
  25133.     End Function
  25134.     Function QueryModeChange(uidoc As notesuidocument) As Integer
  25135.         If uidoc.inpreviewpane Then            
  25136.             QueryModeChange = False    
  25137.         Else
  25138.             QueryModeChange = True
  25139.         End If
  25140.     End Function
  25141.     Function PostModeChange
  25142.         If Me.m_noteUIMemo.EditMode Then
  25143.             If IsFlagSet(MEMO_READER) Then
  25144.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25145.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25146.                 Call SetOptionField(ITEM_MAILSAVEOPTIONS,ITEM_REMOVE)
  25147.             Else
  25148.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  25149.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25150.             End If
  25151.         End If
  25152.     End Function
  25153.     Function QuerySave(continue As Variant)
  25154.         On Error Goto TRAP
  25155.         Call GetActionInProgressFromNoteItem()
  25156.         Call MergeFlagFromNoteItem()
  25157.         Select Case Me.m_lngActionInProgress
  25158.         Case MEMO_CANCEL
  25159.             Call SetOptionField(ITEM_AUTOSPELL,ITEM_NO_FORCE_ACTION)
  25160.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25161.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25162.             Exit Function
  25163.         Case MEMO_DRAFT
  25164.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25165.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25166.             Call SetViewFields()
  25167.             If IsFlagSet(MEMO_ISDIRTY) Then
  25168.                 Call reload()        
  25169.             End If                 
  25170.         Case MEMO_SAVE
  25171.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25172.         Case MEMO_SEND
  25173.             If Me.m_lngFlags And MEMO_ALWAYSPROMPT Then
  25174.                 Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+23,""), MB_YESNOCANCEL ,_
  25175.                 Me.m_objStringTable.getstring(MEMO_STRING+16,""))
  25176.                 If Me.m_nSaveFlag = IDCANCEL Then
  25177.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25178.                     Call SetActionInProgress(MEMO_ACTION_NONE)
  25179.                     continue = False
  25180.                     Exit Function
  25181.                 Else
  25182.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25183.                     Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
  25184.                     Call Me.m_noteUIMemo.Send()
  25185.                     Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25186.                     If Me.m_nSaveFlag = IDYES Then
  25187.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25188.                     Else
  25189.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25190.                     End If
  25191.                 End If
  25192.             Else            
  25193.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25194.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
  25195.                 Call Me.m_noteUIMemo.Send()
  25196.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25197.                 If Me.m_lngFlags And MEMO_ALWAYSSAVE Then
  25198.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25199.                 End If
  25200.                 If Me.m_lngFlags And MEMO_NEVERSAVE Then
  25201.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25202.                 End If            
  25203.             End If        
  25204.         Case MEMO_SEND_FILE
  25205.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25206.             Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
  25207.             Call Me.m_noteUIMemo.Send()
  25208.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25209.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25210.             Me.m_nCallFolderOp = True        
  25211.         Case Else
  25212.             If IsFlagSet(MEMO_ISSTATIONERY) Then
  25213.                 If IsFlagSet(MEMO_ISNEWDOC) Then
  25214.                     If Not (m_lngActionInProgress = MEMO_STATIONERYSAVE) Then        
  25215.                 'the user pressed esc key if the doc is dirty let's get their save disposition
  25216.                         Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+22,""), MB_YESNO , _
  25217.                         Me.m_objStringTable.getstring(MEMO_STRING+16,""))
  25218.                         If Me.m_nSaveFlag = IDNO Then
  25219.                             Call SetActionInProgress(MEMO_CANCEL)
  25220.                             Exit Function                            
  25221.                         End If                
  25222.                     End If
  25223.                 End If 
  25224.                 If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
  25225.                     Me.m_strResponse = Inputbox$(Me.m_objStringTable.getstring(MEMO_STRING+1,""),_
  25226.                     Me.m_objStringTable.getstring(MEMO_STRING+16,""),Me.m_objStringTable.getstring(MEMO_STRING+17,""))                
  25227.                     If Me.m_strResponse = "" Then
  25228.                         Continue = False                    
  25229.                     End If
  25230.                     Call Me.m_noteMemo.replaceitemvalue("MailStationeryName" , Me.m_strResponse)               
  25231.                     Call SetFlag(MEMO_STATPUTINFOLD)
  25232.                     With Me.m_noteMemo
  25233.                         Call .replaceitemvalue("Form", "Memo")
  25234.                         Call .replaceitemvalue("IsMailStationery" , 1)
  25235.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25236.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25237.                         Call .removeitem("PostedDate")
  25238.                         Call .removeitem("DeliveredDate")            
  25239.                     End With
  25240.                 Else
  25241.                     If Me.m_lngActionInProgress = MEMO_STATIONERYSAVE Then
  25242.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25243.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25244.                     Else
  25245.                         Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+20,""), MB_YESNOCANCEL , _
  25246.                         Me.m_objStringTable.getstring(MEMO_STRING+16,""))
  25247.                         Select Case Me.m_nSaveFlag
  25248.                         Case IDYES
  25249.                             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25250.                         Case IDNO
  25251.                             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25252.                         Case IDCANCEL
  25253.                             Continue = False
  25254.                             Exit Function
  25255.                         End Select
  25256.                     End If
  25257.                 End If
  25258.                 Call SetViewFields()
  25259.                 If IsFlagSet(MEMO_ISDIRTY) Then
  25260.                     Call reload()        
  25261.                 End If                 
  25262.             End If                    
  25263.             If Me.m_noteMemo.HasItem(ITEM_VERSIONOPTIONS) Then 
  25264.                 Call Me.m_noteMemo.ReplaceItemValue(ITEM_VERSIONOPTIONS, "0")
  25265.             End If            
  25266.         End Select        
  25267.         Exit Function        
  25268. TRAP:
  25269.         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25270.         Call SetActionInProgress(MEMO_ACTION_NONE)
  25271.         continue = False
  25272.         Exit Function
  25273.     End Function
  25274.     Function QueryClose(continue As Integer)
  25275.         If Me.m_nCallFolderOp Then
  25276.             Call Me.m_uiws.folder(,1)        
  25277.         End If
  25278.     End Function
  25279.     Private Function SetOptionField(Itemname As String, nFlag As Integer)
  25280.         With Me.m_noteMemo
  25281.             Select Case nFlag
  25282.             Case ITEM_NO_FORCE_ACTION
  25283.                 Call .replaceitemvalue(Itemname,"0")                                        
  25284.             Case ITEM_FORCE_ACTION
  25285.                 Call .replaceitemvalue(Itemname,"1")                                        
  25286.             Case ITEM_REMOVE
  25287.                 Call .removeitem(Itemname)                            
  25288.             End Select
  25289.         End With
  25290.     End Function
  25291.     Public Function GetActionInProgressFromNoteItem()
  25292.         If Me.m_noteMemo.HasItem(ITEM_ACTIONINPROGRESS) Then    
  25293.             Call SetActionInProgress(Val(Me.m_noteMemo.GetItemValue(ITEM_ACTIONINPROGRESS)(0)))
  25294.             Call SetOptionField(ITEM_ACTIONINPROGRESS,ITEM_REMOVE)
  25295.         End If
  25296.     End Function
  25297.     Public Function MergeFlagFromNoteItem()
  25298.         If Me.m_noteMemo.HasItem(ITEM_MERGEFLAG) Then
  25299.             Call SetFlag(Val(Me.m_noteMemo.GetItemValue(ITEM_MERGEFLAG)(0)))
  25300.             Call SetOptionField(ITEM_MERGEFLAG,ITEM_REMOVE)
  25301.         End If
  25302.     End Function
  25303.     Sub ReplyToAll
  25304.         Call MEMOReplyToAll(Me.m_noteMemo)
  25305.         Call Reload()
  25306.     End Sub
  25307.     Private Function RemoveServersFromList(arrayNames As Variant) As Variant    
  25308.         Set Me.m_acl = Me.m_session.currentdatabase.acl
  25309.         Me.m_nNonServerNames = 0
  25310.         Forall strNames In arrayNames
  25311.             Set Me.m_aclentry = Me.m_acl.getentry(strNames)
  25312.             If Not Me.m_aclentry.Isserver Then
  25313.                 Redim Preserve Me.m_strNameArray(Me.m_nNonServerNames)
  25314.                 Me.m_strNameArray(Me.m_nNonServerNames) = strNames        
  25315.                 Me.m_nNonServerFound = True
  25316.                 Me.m_nNonServerNames = Me.m_nNonServerNames + 1
  25317.             End If
  25318.         End Forall
  25319.         If Me.m_nNonServerFound Then
  25320.             RemoveServersFromList = Me.m_strNameArray
  25321.         Else
  25322.             RemoveServersFromList = arrayNames
  25323.         End If
  25324.     End Function
  25325.     Sub InsertSignature(FromMailPreference As Integer)
  25326.         Select Case Me.m_noteMemo.GetItemValue("Form")(0)
  25327.         Case "Bookmark", "Phone Message"
  25328.             Exit Sub            
  25329.         End Select
  25330.         If Not FromMailPreference Then
  25331.             If Not Me.m_noteUIMemo.CurrentField = "Body" Then
  25332.                 Messagebox(Me.m_objStringTable.getstring(MEMO_STRING+19,""))
  25333.                 Exit Sub
  25334.             End If
  25335.             Set Me.m_noteCursorDoc = Me.m_session.currentdatabase.CreateDocument
  25336.             Me.m_nSuccess = Me.m_uiws.dialogbox("(SignatureOption)", True,True,False,False,False,False,_
  25337.             Me.m_objStringTable.getstring(MEMO_STRING+18,""),Me.m_noteCursorDoc,True)
  25338.             If Me.m_nSuccess Then    
  25339.                 Me.m_nTempSignatureOption = Cint(Me.m_noteCursorDoc.GetItemValue("SignatureOption")(0))
  25340.                 If Me.m_nTempSignatureOption = 2 Then
  25341.                     Me.m_nSignatureOption = Me.m_nTempSignatureOption
  25342.                     Me.m_strSignature = Me.m_noteCursorDoc.GetItemValue("Signature")(0)
  25343.                 End If
  25344.             Else 
  25345.                 Exit Sub
  25346.             End If        
  25347.         End If    
  25348.         Select Case Me.m_nSignatureOption
  25349.         Case 1
  25350.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  25351.             Call Me.m_noteUIMemo.inserttext(Me.m_strSignature)
  25352.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  25353.         Case 2 
  25354.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  25355.             Me.m_vFILTER = Evaluate(|@RightBack("| & Me.m_strSignature & |";".")|)
  25356.             Select Case Ucase(Me.m_vFILTER(0))
  25357.             Case "TXT"
  25358.                 Me.m_vFILTER(0) = "ASCII"
  25359.             End Select
  25360.             Call Me.m_noteUIMemo.Import(Me.m_vFILTER(0),Me.m_strSignature)
  25361.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  25362.         End Select    
  25363.         If  FromMailPreference And Not Me.m_noteMemo.GetItemValue("Form")(0) = "Memo" Then 
  25364.             Call Me.m_noteUIMemo.GotoField("Body")                
  25365.         Elseif FromMailPreference Then
  25366.             Call Me.m_noteUIMemo.GotoField("EnterSendTo")                
  25367.         End If
  25368.     End Sub
  25369.     Sub Reload()
  25370.         ClearFlag(MEMO_ISDIRTY)
  25371.         If Me.m_noteUIMemo.editmode Then    
  25372.             Call Me.m_noteUIMemo.reload
  25373.         End If
  25374.         Call Me.m_noteUIMemo.RefreshHideFormulas
  25375.     End Sub
  25376.     Function PostSave()
  25377.         'clean up flags so they don't fire next round
  25378.         Select Case Me.m_lngActionInProgress
  25379.         Case MEMO_SEND_FILE,MEMO_SEND,MEMO_STATIONERYSAVE
  25380.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25381.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  25382.         End Select
  25383.         Call SetActionInProgress(MEMO_ACTION_NONE)
  25384.         If IsFlagSet(MEMO_STATPUTINFOLD) Then
  25385.             Call Me.m_noteMemo.putinfolder("Stationery")                
  25386.             Call ClearFlag(MEMO_STATPUTINFOLD)
  25387.         End If
  25388.         If IsFlagSet(MEMO_ISNEWDOC) Then
  25389.             Call ClearFlag(MEMO_ISNEWDOC)
  25390.             Call SetFlag(MEMO_WASSAVED)
  25391.         End If
  25392.     End Function
  25393.     Function SetActionInProgress(lngAction As Long)
  25394.         Me.m_lngActionInProgress = lngAction
  25395.     End Function
  25396.     Function SetFlag(lngOption As Long)
  25397.         If Not (Me.m_lngFlags And lngOption) = lngOption Then    
  25398.             Me.m_lngFlags = Me.m_lngFlags Or lngOption        
  25399.         End If
  25400.     End Function
  25401.     Function ClearFlag(lngOption As Long)
  25402.         If (Me.m_lngFlags And lngOption) = lngOption Then
  25403.             Me.m_lngFlags = Me.m_lngFlags Xor lngOption
  25404.         End If
  25405.     End Function
  25406.     Function IsFlagSet(lngOption As Long) As Integer
  25407.         If (Me.m_lngFlags And lngOption) = lngOption Then
  25408.             IsFlagSet = True
  25409.         End If
  25410.     End Function
  25411.     Property Get EditType(bRemove As Integer) As String
  25412.         Me.m_strEditType = Me.m_session.GetEnvironmentString("MailStEd")
  25413.         If Len(Me.m_strEditType) And (bRemove) Then
  25414.             Call Me.m_session.SetEnvironmentVar("MailStEd","")
  25415.             EditType = Me.m_strEditType
  25416.         Else
  25417.             EditType = Me.m_strEditType
  25418.         End If
  25419.     End Property
  25420.     Function GetMemoType(note As NotesDocument)
  25421.         Me.m_strEditType = EditType(True)        
  25422.         If (note.isnewnote) Then
  25423.             If (Len(Me.m_strEditType)) Then
  25424.                 If (Me.m_strEditType = "1") Then
  25425.                     Call SetFlag(MEMO_ISSTATIONERY)
  25426.                 Elseif (Me.m_strEditType = "5") Then
  25427.                     Call SetFlag(MEMO_NEWCOPY)
  25428.                 Elseif (Me.m_strEditType = "6") Then
  25429.                     Call SetFlag(MEMO_TOMGR)
  25430.                 Elseif (Me.m_strEditType = "9") Then
  25431.                     Call SetFlag(MEMO_REPLYTOALL)
  25432.                 End If
  25433.             End If
  25434.             Call SetFlag(MEMO_OWNER)
  25435.         Else
  25436.             If Me.m_strEditType = "2" Then    'User is editing a stationery
  25437.                 Call SetFlag(MEMO_ISSTATIONERY)
  25438.                 Call SetFlag(MEMO_EDITSTATIONERY)
  25439.                 Exit Function
  25440.             End If
  25441.             If note.HasItem("IsMailStationery") Then            
  25442.                 If Isnumeric(Me.m_noteMemo.GetItemValue("IsMailStationery")(0)) Then
  25443.                     If Cint(Me.m_noteMemo.GetItemValue("IsMailStationery")(0)) Then
  25444.                         Call SetFlag(MEMO_ISSTATIONERY)
  25445.                     End If
  25446.                 End If
  25447.             End If
  25448.             If note.HasItem("Principal") Then
  25449.                 Me.m_strFromname = note.GetItemvalue("Principal")(0)
  25450.                 If Len(Me.m_strFromname) = 0 Then
  25451.                     Me.m_strFromname = note.GetItemValue("From")(0)
  25452.                 End If
  25453.             Else
  25454.                 Me.m_strFromname = note.GetItemValue("From")(0)
  25455.             End If
  25456.             If NAMECompare(Me.m_strFromname, Me.m_session.username) Then
  25457.                 Call SetFlag(MEMO_OWNER)
  25458.             Else
  25459.                 Call SetFlag(MEMO_READER)
  25460.             End If
  25461.         End If
  25462.     End Function
  25463.     Sub SetPreferenceFields()
  25464.         If IsFlagSet(MEMO_SPELLCHECK) Then
  25465.             Call SetOptionField(ITEM_AUTOSPELL,ITEM_FORCE_ACTION)
  25466.             Call MarkDirty()
  25467.         End If 
  25468.     End Sub
  25469.     Sub ProcessStationery()
  25470.         If IsFlagSet(MEMO_ISSTATIONERY) Then
  25471.             If Not IsFlagSet(MEMO_ISNEWDOC) Then
  25472.                 If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
  25473.                     With Me.m_noteMemo
  25474.                         Call .RemoveItem("IsMailStationery")
  25475.                         Call .RemoveItem("MailStationeryName")
  25476.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  25477.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  25478.                         Call .ReplaceItemValue(ITEM_VERSIONOPTIONS, "6")
  25479.                     End With
  25480.                     Call ClearFlag(MEMO_ISSTATIONERY)
  25481.                 Else
  25482.                 End If
  25483.             Else  'make sure a new note has the flags set so it prompts for stationery name
  25484.                 Call Me.m_noteMemo.replaceitemvalue("IsMailStationery",1)
  25485.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  25486.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  25487.                 Call MarkDirty()
  25488.             End If
  25489.         End If
  25490.     End Sub
  25491.     Sub SetViewFields()
  25492.         'this allow other programs (3rd party) that expect standard address items
  25493.         'to find the correct values on a draft operation
  25494.         With Me.m_noteMemo
  25495.             If .HasItem("EnterSendTo") Then
  25496.                 Call .replaceitemvalue("SendTo", .EnterSendTo)                
  25497.                 Call MarkDirty()                
  25498.             End If
  25499.             If .HasItem("EnterCopyTo") Then
  25500.                 Call .replaceitemvalue("CopyTo", .EnterCopyTo)                
  25501.                 Call MarkDirty()
  25502.             End If
  25503.             If .HasItem("EnterBlindCopyTo") Then
  25504.                 Call .replaceitemvalue("BlindCopyTo", .EnterBlindCopyTo)                
  25505.                 Call MarkDirty()
  25506.             End If
  25507.         End With
  25508.     End Sub
  25509.     Sub MarkDirty()
  25510.         Call SetFlag(MEMO_ISDIRTY)
  25511.     End Sub
  25512. End Class
  25513. '++LotusScript Development Environment:2:2:MEMOReplyToAll:1:8
  25514. Sub MEMOReplyToAll(note As notesdocument)
  25515.     Dim vAltName As Variant    
  25516.     Dim vInheritedSendTo As Variant
  25517.     Dim vRealInheritedSendTo As Variant
  25518.     Dim iSenderIndex As Integer
  25519.     Dim x As Integer
  25520.     Dim strOwner As String
  25521.     Dim strInheritedDomain As String
  25522.     strOwner = CSGetMailFileOwner()
  25523.     If IsDocAltNameCandidate(note) Then
  25524.         vInheritedSendTo = note.GetItemValue("InheritedAltSendTo")
  25525.         strInheritedDomain = note.GetItemValue("InheritedAltFromDomain")(0)
  25526.     Else
  25527.         vInheritedSendTo = note.GetItemValue("InheritedSendTo")
  25528.         strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
  25529.     End If
  25530.     ' Remove the sender from the list
  25531.     iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo)
  25532.     If (iSenderIndex >= 0) Then
  25533.         vInheritedSendTo(iSenderIndex) = ""
  25534.     End If        
  25535. '// Remove the sender from the list if the sender has an alternate language that 
  25536. '// is in the reply chain regardless of personal preference mode as well!
  25537.     vAltName = Evaluate(|@UserName(1)|)
  25538.     If Not NAMECompare(strOwner, vAltName(0)) Then
  25539.         iSenderIndex = NAMEFindInList(vAltName(0), vInheritedSendTo)
  25540.         If (iSenderIndex >= 0) Then
  25541.             vInheritedSendTo(iSenderIndex) = ""
  25542.         End If        
  25543.     End If
  25544.     vRealInheritedSendTo = Fulltrim(vInheritedSendTo)
  25545.     ' Append the inheritedfromdomain
  25546.     If Len(strInheritedDomain) Then
  25547.         For x = 0 To Ubound(vRealInheritedSendTo)
  25548.             If Not vRealInheritedSendTo(x) = "" Then
  25549.                 vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain
  25550.             End If
  25551.         Next
  25552.     End If
  25553.     Call note.ReplaceItemValue("EnterCopyTo", vRealInheritedSendTo)
  25554.     ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain
  25555.     ' Find all addresses without a domain and append FromDomain
  25556.     ' Find all addresses whose domain is the same as ours and strip it off
  25557. End Sub
  25558. '++LotusScript Development Environment:2:1:IsDocAltNameCandidate:1:8
  25559. Function IsDocAltNameCandidate(note As notesdocument) As Integer
  25560.     IsDocAltNameCandidate = False
  25561.     If note.GetItemValue("NamePreference")(0) = "1" Then  'user wants to view alt names
  25562.         If (note.IsNewNote) Or Not (note.HasItem("PostedDate"))Then  'this is a routed note, parse the language tags
  25563.             If note.HasItem("$NameLanguageTags") Then
  25564.                 Dim tmp_vNameLanguageTags As Variant
  25565.                 IsDocAltNameCandidate = True
  25566.                 tmp_vNameLanguageTags = note.GetItemValue("$NameLanguageTags")
  25567.                 Forall tmpLanguages In note.GetItemValue("LanguagePreference")
  25568.                     If Isnull(Arraygetindex(tmpLanguages,tmp_vNameLanguageTags)) Then
  25569.                         IsDocAltNameCandidate = False 'a language tag was encoutered that the user doesn't understand
  25570.                         Exit Function
  25571.                     End If
  25572.                 End Forall
  25573.             Else
  25574.                 IsDocAltNameCandidate = True 'new notes or drafts don't have language tags, so display by preference only
  25575.             End If
  25576.         End If
  25577.     End If
  25578. End Function
  25579. Lotus Product$
  25580. V0.0s
  25581. ,H!}t
  25582. -t"#\
  25583. ,x!}p
  25584. -P$#8m
  25585. '0'0'
  25586. '\#\#
  25587. '`'`'
  25588. "x!x!,$,$H!H!
  25589. t"t"x(x(
  25590. P$P$@
  25591. `%`%l
  25592. ,x!}H
  25593. -t"##1
  25594. ,,#},
  25595. ,,#},
  25596. ,,#}P
  25597. ,,#}h
  25598. ,H!}t
  25599. -t"#\
  25600. ,x!}p
  25601. -P$#8m
  25602. -\##8
  25603. -P$#8\
  25604. %,x!}H
  25605. %,x!}
  25606. &,x!It
  25607. &,x!It
  25608. ,H!}<
  25609. ,,#}<
  25610. ,D&F4&
  25611. ,,#}H
  25612. ,,#},
  25613. ,,#}P
  25614. ,`'HP
  25615. ,,#}H
  25616. ,0'}p
  25617. -P$#8
  25618. -,$#8
  25619. ,,#}$
  25620. ,,#}$
  25621. -t"##8
  25622. ),x!}
  25623. ),H!}p
  25624. ),x!}P
  25625. ),H!}
  25626. ),x!}
  25627. ),H!}
  25628. ),x!}
  25629. ,,#}p
  25630.  ,,#}H
  25631.  -,$#K
  25632.  ,H!}t
  25633.  ,H!}l
  25634.  ,,#}l
  25635.  ,,#}
  25636.     0S0E
  25637. O=Lotus Notes
  25638. O=Lotus Notes
  25639. PURSAFO
  25640. |.:#U
  25641. O=Lotus Notes
  25642. CN=Lotus Notes Template Development/O=Lotus Notes
  25643. PURSAFO
  25644. pat$h
  25645. YTp?    
  25646. $TITLE
  25647. $PublicAccess
  25648. $ScriptLib
  25649. $ScriptLib_O
  25650. '++LotusScript Development Environment:2:5:(Options):0:74
  25651. Option Public
  25652. Option Explicit
  25653. Use "Common"
  25654. '++LotusScript Development Environment:2:5:(Forward):0:1
  25655. Declare Class UIEventObject
  25656. Declare Sub Initialize
  25657. Declare Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
  25658. Declare Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime) As Integer
  25659. Declare Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
  25660. Declare Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
  25661. Declare Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
  25662. Declare Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
  25663. '++LotusScript Development Environment:2:5:(Declarations):0:10
  25664. Class UIEventObject
  25665.     m_ws As NotesUIWorkspace
  25666.     m_noteStatus As NotesDocument
  25667.     m_beobject As Variant  
  25668.     m_strtable As Variant                        ' This is a reference to the backend objects StringTable
  25669.     m_lAction As Long                            ' These are OR'd together
  25670.     m_bSendComments As Integer
  25671.     m_nEventType As Integer
  25672.     m_bOwner As Integer
  25673.     Property Get ActionInProgress As Long
  25674.         ActionInProgress = m_lAction
  25675.     End Property
  25676.     Property Set ActionInProgress As Long
  25677.         ' If the caller passes ACTION_NONE, remove all existing actions set
  25678.         If (ActionInProgress = ACTION_NONE) Then
  25679.             m_lAction = ACTION_NONE
  25680.         Else
  25681.             m_lAction = (m_lAction Or ActionInProgress)
  25682.         End If
  25683.     End Property
  25684.     Property Get BEObject As Variant
  25685.         Set BEObject = m_beobject
  25686.     End Property
  25687.     Property Get SendComments As Integer
  25688.         SendComments = m_bSendComments
  25689.     End Property
  25690.     Property Get StringTable As Variant
  25691.         Set StringTable = m_strtable
  25692.     End Property
  25693.     Property Get Workspace As NotesUIWorkspace
  25694.         Set Workspace = m_ws
  25695.     End Property
  25696.     Property Get RepeatChange As Integer
  25697.         RepeatChange = m_beobject.RepeatModify
  25698.     End Property
  25699.     Property Get EventType As Integer
  25700.         EVentType = m_nEventType
  25701.     End Property
  25702.     Property Get IsOwner As Integer
  25703.         IsOwner = m_bOwner
  25704.     End Property
  25705.     Property Get NeedsReschedule As Integer
  25706.         NeedsREschedule = False
  25707.         ' if this is a new document, return false
  25708.         If Not(m_beobject.WasMailed) Then
  25709.             Exit Property
  25710.         End If
  25711.         NeedsReschedule = CSEventDTItemsModified(m_beObject)
  25712.     End Property
  25713.     Property Set SendComments As Integer
  25714.         m_bSendComments = SendComments
  25715.     End Property
  25716.     Property Get OkToReschedule As Integer        
  25717.         Dim nResult As Integer
  25718.         If (m_beobject.IsWorkflowEnabled) And (m_beobject.WasMailed) Then
  25719.             nResult = YesNoCancelPrompt(m_strtable.GetString(RESC_UPD_MSG, Null),m_strtable.GetString(RESC_TITLE,Null))
  25720.             If (nResult <> 2) Then
  25721.                 ActionInProgress = ACTION_RESCHEDULE
  25722.                 m_bSendComments = (nResult = 6)
  25723.                 OkToReschedule = True            
  25724.             Else
  25725.                 Call RemoveActionInProgress(ACTION_RESCHEDULE)
  25726.                 m_bSendComments = False
  25727.                 OkToReschedule = False
  25728.             End If
  25729.         Else
  25730.             OkToReschedule = YesNoPrompt(m_strtable.GetString(ENTRY_DTMOD, Null), m_strtable.GetString(DTMOD_TITLE,Null))    
  25731.         End If
  25732.     End Property
  25733.     Function OkToAccept(Byval bIncludeComments As Integer) As Integer
  25734.         ' First, make sure the time is valid
  25735.         Dim note As NotesDocument
  25736.         Set note = m_beobject.Document
  25737.         If AllowDoubleBook() Then
  25738.             m_bSendComments = bIncludeComments
  25739.             OkToAccept = True
  25740.             ActionInProgress = ACTION_ACCEPT
  25741.         End If        
  25742.     End Function
  25743.     Sub New (nEventType As Integer, bOwner As Integer)
  25744.         m_nEVentType = nEventType
  25745.         m_bOwner = bOwner
  25746.         Set m_ws = New NotesUIWorkspace
  25747.         If (bOwner) Then
  25748.             Set m_beobject = New NotesCSEventOwnerDocument(nEventType)
  25749.             If (nEventType = 1) Then
  25750.                 Set m_strtable =  New MeetingOwnerStringTable()
  25751.             Else    
  25752.                 Set m_strtable =  New TaskOwnerStringTable()
  25753.             End If
  25754.         Else
  25755.             Set m_beobject = New NotesCSEventParticipantDocument(nEventType)
  25756.             If (nEventType = 1) Then
  25757.                 Set m_strtable =  New MeetingParticipantStringTable()
  25758.             Else    
  25759.                 Set m_strtable =  New TaskParticipantStringTable()
  25760.             End If
  25761.         End If
  25762.     End Sub
  25763.     Sub delete()
  25764.         If Not(m_beobject Is Nothing) Then Delete m_beobject
  25765.     End Sub
  25766.     Function IsActionInProgress(lAction As Long) As Integer
  25767.         IsActionInProgress =  ((m_lAction And lAction) = lAction)
  25768.     End Function
  25769.     Function RemoveActionInProgress(lAction As Long)
  25770.         If (m_lAction And lAction) Then m_lAction = (m_lAction Xor lAction)
  25771.     End Function
  25772.     Function AlarmDialog() As Integer
  25773.         Dim note As notesdocument
  25774.         Dim profile As NotesDocument
  25775.         Dim nresult As Integer
  25776.         On Error Resume Next
  25777.         If Not(Isempty(m_beobject)) Then
  25778.             ' Make sure the date/time items are up to date
  25779.             Call m_beobject.UPdateDateTimeItems
  25780.             Set note = m_beobject.document
  25781.             nresult = m_ws.DialogBox("AlarmOptions",True,True,,,,,m_strtable.GetString(ALARM_TITLE, Null),note, True)
  25782.             If nresult Then
  25783.                 If (note.GetItemValue("tmpDisable")(0) = "1") Then
  25784.                     ' the user wants to disable the alarm for this event
  25785.                     Call m_beobject.RemoveAlarm()
  25786.                 Else
  25787.                     If Not(m_beobject.CalendarProfile.Alarmsenabled) Then
  25788.                         Set profile = m_beobject.CalendarProfile.Document
  25789.                         Call profile.ReplaceItemValue("EnableAlarms","1")
  25790.                         Call profile.save(False, False)
  25791.                         Call m_ws.EnableAlarms(True)
  25792.                     End If
  25793.                     Call m_beobject.EnableAlarm()
  25794.                 End If
  25795.             End If
  25796.         End If
  25797.         AlarmDialog = nresult
  25798.     End Function
  25799.     Function AllowInPast(dtDate As NotesDateTime, bDateOnly As Integer) As Integer
  25800.     Return True if the event can be saved, false otherwise        
  25801. %END REM
  25802.         Dim dtNow As NotesDateTime        
  25803.         Set dtNow = New Notesdatetime("")
  25804.         Call dtNow.setnow
  25805.         ' Allow a 5 minute window
  25806.         AllowInPast = True
  25807.         If Len(dtDate.DateOnly) = 0 Then Exit Function
  25808.         If (bDateOnly) Then
  25809.             If (TIMECompareDates(dtDate, dtNow) < 0) Then
  25810.                 AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), m_strtable.getstring(PAST_TITLE,Null))
  25811.             End If
  25812.         Else
  25813.             If dtNow.TimeDifference(dtDate) > 300 Then
  25814.                 AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), m_strtable.getstring(PAST_TITLE, Null))
  25815.             End If
  25816.         End If
  25817.     End Function
  25818.     Function AllowDoubleBook() As Integer
  25819.         Dim vResult As Variant
  25820.         Dim note As NotesDocument
  25821.         AllowDoubleBook = True
  25822.         If m_beobject.CheckDoubleBook() Then
  25823.             vResult = m_beobject.IsValidTime()
  25824.             If Not(Isarray(vResult)) Then
  25825.                 Select Case vResult
  25826.                 Case 1
  25827.                     Exit Function
  25828.                 Case 2
  25829.                     AllowDoubleBook = YesNoPrompt(m_strtable.GetString(ENTRY_CONF, Null), m_strtable.getstring(DBLBOOK_TITLE, Null))
  25830.                 Case Else
  25831.                     AllowDoubleBook = YesNoPrompt(m_strtable.getstring(ERR_FREETIME, Null),m_strtable.getstring(DBLBOOK_TITLE, Null))
  25832.                 End Select
  25833.             Else
  25834.                 If Len(vResult(0)) Then
  25835.                     Set note = m_beobject.document
  25836.                     Call note.replaceitemvalue("tmpPrompt", "The following repeat dates contained conflicts")
  25837.                     Call note.replaceitemvalue("tmpListOfDates", vResult)                    
  25838.                     AllowDoubleBook = m_ws.DialogBox("(RepeatOpenList)", True, True, , , , , , , True)
  25839.                 End If
  25840.             End If
  25841.         End If
  25842.     End Function
  25843.     Sub EditNotice
  25844.         Dim note As NotesDocument, notice As NotesDocument
  25845.         Dim vBEObject As Variant
  25846.         Dim strSendTo As String, strCopyTo As String, strBCCTo As String
  25847.         Set vBEObject = m_beobject
  25848.         If (m_bOwner = True) And IsActionInProgress(ACTION_COUNTER_ACCEPT) Then
  25849.             If (m_beobject.context = CTX_REPEAT_MSG) Then 
  25850.                 Set vBEObject = m_beobject.RepeatInstanceEvent
  25851.             Else
  25852.                 Set vBEObject = m_beobject.ParentEvent
  25853.             End If
  25854.         End If
  25855.         Set notice = vbeobject.NoticeDocument
  25856.         If Not(notice Is Nothing) Then
  25857.             ' make sure we have an invitee list
  25858.             strSendTo = notice.GetItemValue("SendTo")(0)
  25859.             strCopyTo = notice.GetItemValue("CopyTo")(0)
  25860.             strBCCTo = notice.GetItemValue("BlindCopyTo")(0)
  25861.             If Len(strSendTo) = 0 And Len(strCopyTo) = 0 And Len(strBCCTo) = 0 Then
  25862.                 Msgbox m_strtable.getstring(NO_SEND_LIST, Null)
  25863.                 Exit Sub
  25864.             End If
  25865.             Call notice.ReplaceItemValue("FormToUse", notice.GetItemValue("Form")(0))
  25866.             Call notice.REplaceItemValue("Form", "(ReplyNotice)")
  25867.             Call notice.ReplaceItemValue("_ViewIcon2", 11)        
  25868.             Call m_ws.EditDocument(True,notice)
  25869.         End If
  25870.     End Sub
  25871.     Function ChangeRepeatDialog() As Integer
  25872.         ChangeRepeatDialog = CSEventChangeRepeatDialog(m_beobject, m_strtable.getstring(RPTCHANGE_TITLE,Null))
  25873.     End Function    
  25874.     Function OkToPerformAction(vData As Variant, Byval iTitle As Integer, Byval lAction As Long, strDialog As String, Byval nOptions As Integer) As Integer
  25875.         Dim note As NotesDocument
  25876.         Set note = m_beobject.Document
  25877.         Select Case lAction
  25878.         Case ACTION_ACCEPT
  25879.             Call note.replaceitemvalue("tmpActionType","A")
  25880.         Case ACTION_DELEGATE
  25881.             Call note.replaceitemvalue("tmpActionType","D")            
  25882.         Case ACTION_COUNTER_PROPOSE
  25883.             Call note.replaceitemvalue("tmpActionType","T")
  25884.         Case ACTION_RESCHEDULE
  25885.             Call note.replaceitemvalue("tmpActionType","U")
  25886.         Case ACTION_CANCEL
  25887.             Call note.replaceitemvalue("tmpActionType","C")
  25888.         Case ACTION_CONFIRM
  25889.             Call note.replaceItemValue("tmpActionType","N")
  25890.         Case ACTION_COMPLETED
  25891.             Call note.replaceitemvalue("tmpActionType","F")
  25892.         Case ACTION_COUNTER_ACCEPT
  25893.             Call note.replaceitemvalue("tmpActionType","B")
  25894.         Case Else
  25895.             Call note.RemoveItem("tmpActionType")
  25896.         End Select
  25897.         If (m_nEventType = 2) Then Call note.replaceitemvalue("tmpTask","1")
  25898.         If (nOptions And 1) = 0 Then 
  25899.             Call note.replaceitemvalue("tmpHideComments","1")
  25900.         Else
  25901.             Call note.removeitem("tmpHideComments")
  25902.         End If
  25903.         OkToPerformAction = m_ws.DialogBox(strDialog, True, True, , , , ,m_strtable.GetString(iTitle, vData), note, True)
  25904.         If (OkToPerformAction) Then
  25905.             Me.ActionInProgress = lAction
  25906.             If (nOptions And 1) = 1 Then m_bSendComments = (note.GetItemValue("tmpIncludeComments")(0) = "1")
  25907.         Else
  25908.             Call RemoveActionInProgress(lAction)
  25909.         End If
  25910.     End Function
  25911.     Function RepeatDialog() As Integer
  25912.         RepeatDialog = CSEventRepeatDialog(m_beobject, m_strtable.getstring(REPEAT_TITLE, Null))
  25913.     End Function
  25914.     Sub PerformAction(strAction As String, vArgs As Variant)
  25915.         Call m_beobject.ActionHandler(strAction, Not(m_bSendComments), vArgs)
  25916.     End Sub
  25917.     ' Owner type actions            
  25918.     Function Cancel(fCancelFlags As Integer) As Integer
  25919.         Dim note As NotesDocument
  25920.         Cancel = False          
  25921.         Set note = m_beobject.Document        
  25922.       ' See if the user wants to delete the event; if they do, we must mark our owning document
  25923.       ' for deletion and let the backend remove the responses; otherwise, we end up removing the document
  25924.       ' from underneath ourselves
  25925.         If (note.GetItemValue("tmpDeleteEntry")(0) = "1" And Not((fCancelFlags And REMOVE_DELETED) = REMOVE_DELETED)) Then
  25926.             fCancelFlags = fCancelFlags + REMOVE_RESPONSES
  25927.             Cancel = True               
  25928.         End If
  25929.         Call PerformAction(ORS_MSGTYPE_CANCEL, Cint(fCancelFlags))        
  25930.     End Function
  25931.     Sub SortParticipantStatus(Byval nSortType As Integer)
  25932.         Dim LLStatus As NotesCSParticipantTable
  25933.         Dim LinkedList As NotesCSParticipantTable
  25934.         Set LinkedList = m_beobject.ParticipantTable
  25935.         Call m_beobject.GetParticipantStatus
  25936.         ' The current list is sorted via name; create a table sorted by status
  25937.         Set LLStatus = LinkedList.CreateAndCopy(nSortType)
  25938.         Call m_noteStatus.ReplaceItemValue("tmpSortType", Cstr(nSortType))
  25939.         Call CSTableAppendStatus(llStatus, m_noteStatus, True)        
  25940.         Delete LLStatus
  25941.     End Sub
  25942.     Sub ViewParticipantStatus()
  25943.         If (m_noteStatus Is Nothing) Then
  25944.             Set m_noteStatus = New NotesDocument(m_beobject.Document.PArentDatabase)
  25945.             Call SortParticipantStatus(4)
  25946.         End If
  25947.         Call m_ws.DialogBox("ParticipantTable",True,True,True,True,True,False,m_strtable.GetString(STS_TITLE,Null),m_noteStatus, True, True)
  25948.     End Sub
  25949.     Sub RemoveParticipants()
  25950.         Dim vParticipantList As Variant
  25951.         Dim vRemovedList As Variant
  25952.         Dim vDisplayList As Variant
  25953.         Dim vNewRemovedList As Variant
  25954.         Dim note As NotesDocument
  25955.         ' First, get a list of all users who can be removed
  25956.         vParticipantList = m_beobject.GetParticipantNames()
  25957.         Set note = m_beobject.Document
  25958.         vRemovedList = note.GetItemValue("Uninvited")
  25959.         If Len(vRemovedList(0)) Then
  25960.             vDisplayList = Fulltrim(Arrayreplace(vParticipantList, vRemovedList,"")) 
  25961.         Else
  25962.             vDisplayList = vParticipantList
  25963.         End If
  25964.         vNewRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.GetString(REM_PART,Null), m_strtable.getstring(REM_PART_TITLE,Null), "", vDisplayList)
  25965.         If Isarray(vNewRemovedList) Then
  25966.             Call note.ReplaceItemValue("tmpRemoveNames", vNewRemovedList)
  25967.             Call m_beobject.ActionHandler(ORS_MSGTYPE_STATUSUPDATE, True, Cstr(ORS_STATUS_REMOVED))
  25968.         End If
  25969.     End Sub
  25970.     Sub CreateMemo(bUseOriginal As Integer)
  25971.         Dim noteMemo As NotesDocument
  25972.         Set noteMemo = m_beobject.CreateMemo()
  25973.         Call m_ws.EditDocument(True, noteMemo)
  25974.     End Sub
  25975.     Sub RemoveRoomsResources(Byval bIsResource As Integer)
  25976.         Dim note As notesdocument        
  25977.         Dim vList As Variant, vRemovedList As Variant
  25978.         Dim strItemName As String
  25979.         If (bIsResource) Then
  25980.             strItemName = "RequiredResources"
  25981.         Else
  25982.             strItemName = "Room"
  25983.         End If
  25984.         Set note = m_beobject.Document
  25985.         vList = note.GetItemValue(strItemName)
  25986.         vRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.getstring(REM_PART,Null), m_strtable.GetString(REM_PART_TITLE, Null), "", vList)
  25987.         If Isarray(vRemovedList) Then
  25988.             Set note = m_beobject.Document
  25989.             Call note.ReplaceItemValue("tmpRemoveNames", vRemovedList)
  25990.             Call m_beobject.ActionHandler(ORS_MSGTYPE_REMOVERES, True, bIsResource)
  25991.         End If
  25992.     End Sub                
  25993.     ' Participant Type actions
  25994.     Sub Accept()
  25995.         Dim note As NotesDocument
  25996.         Dim strAction As String
  25997.         Set note = m_beobject.Document
  25998.         If (note.GetItemValue("tmpPencilIn")(0) = "1") Then
  25999.             strAction = ORS_MSGTYPE_PENCILIN
  26000.         Else
  26001.             strAction = ORS_MSGTYPE_ACCEPT
  26002.         End If        
  26003.         Call PerformAction(strAction, 0)
  26004.     End Sub
  26005.     Sub Decline()
  26006.         Dim bKeepPosted As Integer
  26007.         bKeepPosted = (m_beobject.Document.GetItemValue("tmpKeepPosted")(0) = "1")
  26008.         Call PerformAction(ORS_MSGTYPE_REJECT, Cint(bKeepPosted))
  26009.     End Sub
  26010.     Sub Delegate()
  26011.         Dim vExistingNames As Variant
  26012.         Dim note As NotesDocument
  26013.         Dim sDelegeeName As String
  26014.         Dim bFailed As Integer
  26015.         Dim bKeepPosted As Integer
  26016.         Set note = m_beobject.document
  26017.         ' The user selected a name; make sure it is not someone who is already invited
  26018.         sDelegeeName = note.GetItemValue("Delegee")(0)            
  26019.         vExistingNames =     note.GetItemValue("RequiredAttendees")
  26020.         If (NAMEExistsInList(sDelegeeName,vExistingNames)) Then
  26021.             bFailed = True
  26022.         Else
  26023.             vExistingNames =  note.GetItemValue("OptionalAttendees")
  26024.             If (NAMEExistsInList(sDelegeeName,vExistingNames)) Then
  26025.                 bFailed = True                
  26026.             End If
  26027.         End If
  26028.         If (bFailed) Then
  26029.             Messagebox m_strtable.GetString(ERR_DELE_MSG, Nothing),0,m_strtable.GetString(DELE_TITLE,Nothing)
  26030.             Call RemoveActionInProgress( ACTION_DELEGATE)
  26031.             Exit Sub
  26032.         End If
  26033.         ' This is a two step process
  26034.         ' First, create the outgoing delegation notice to the person we are delegating to and send it
  26035.         ' Second, create the notice to the chairperson and optionally send it
  26036.         Call m_beobject.ActionHandler(ORS_MSGTYPE_DELEGATE, False, Null)
  26037.         bKeepPosted = (m_beobject.Document.GetItemValue("tmpKeepPosted")(0) = "1")
  26038.         Call PerformAction(ORS_MSGTYPE_DELEGATING, Cint(bKeepPosted))
  26039.     End Sub
  26040.     Sub ScanForUpdates  
  26041.         Dim po As Variant ' The main meeting invitation document object
  26042.         Dim riNotice As NotesCSUpdateInstance
  26043.         Dim riConfirmation As NotesCSUpdateInstance
  26044.         Dim bReadingCurrent As Integer
  26045.         Dim noteInEditor As NotesDocument      ' the document currently in the editor
  26046.         Dim noteMain As NotesDocument     ' The main meeting invitation document
  26047.         Set noteInEditor = m_beobject.Document
  26048.         ' If this is a main repeating document, we can leave now
  26049.         If (m_beobject.Context = CTX_REPEAT_MAIN) Then Exit Sub
  26050.         Set po = CSGetMainEventObject(m_beobject)
  26051.         ' If there is no primary object, bail
  26052.         If (po Is Nothing) Then Exit Sub
  26053.         Set noteMain = po.Document
  26054.         ' If there is no main document then bail
  26055.         If (noteMain Is Nothing) Then Exit Sub
  26056.         Call m_beobject.GetMostRecentEventNotices()
  26057.         Set riNotice = m_beobject.UpdateNotice
  26058.         Set riConfirmation = m_beobject.ConfirmNotice  
  26059.         If Not(riNotice Is Nothing) Then
  26060.             bReadingCurrent = (Lcase(noteInEditor.noteid) = Lcase(riNotice.noteid))   
  26061.             Select Case riNotice.NoticeType
  26062.             Case ORS_MSGTYPE_RESCHEDULE
  26063.                 If rinotice.sequencenum > po.Sequencenum Then
  26064.                     If Not(bReadingCurrent) Then
  26065.                          ' The user is not reading the most up-to-date notice; inform them of the change
  26066.                         If YesNoPrompt(m_strtable.GetString(RESC_MSG,Nothing),m_strtable.GetString(UPD_TITLE, Null)) Then
  26067.                             ActionInProgress = ACTION_OPENRESCHEDULE
  26068.                         Else
  26069.                             Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  26070.                         End If
  26071.                     End If
  26072.                 Else
  26073.                      ' The user is reading the most up-to-date notice; we need to validate the sequenceitems
  26074.                     If (bReadingCurrent) Then
  26075.                         Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  26076.                     End If
  26077.                 End If
  26078.             Case ORS_MSGTYPE_CANCEL
  26079.                 ' It doesn't matter if the user is reading the most up-to-date notice;     
  26080.                 If (noteMain.GetItemValue("NoticeType")(0) = ORS_MSGTYPE_ACCEPT) Then
  26081.                      ' The main invitation has been accepted; we need to cancel it
  26082.                     Messagebox m_strtable.GetString(CANCEL_UPD, Null),0, m_strtable.GetString(UPD_TITLE,Null)
  26083.                     Call po.DeCommitEvent(ORS_MSGTYPE_CANCEL)
  26084.                     Call noteMain.Save(True,True,True)
  26085.                 Else
  26086.                      ' The main invitation has not been accepted; however, if the user is not reading the most up-to-date notice, inform them this has been cancelled
  26087.                     If Not(bReadingCurrent) Then 
  26088.                         Messagebox m_strtable.GetString(CANCEL_NOACTN,Nothing), 0,m_strtable.GetString(UPD_TITLE,Null)
  26089.                     End If
  26090.                 End If
  26091.                 ' We always set this item for cancels; user's do not need to take any action on cancels    
  26092.                 Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  26093.             Case ORS_MSGTYPE_STATUSUPDATE
  26094.             ' we need to see if we are being removed or forced                
  26095.             Case ORS_MSGTYPE_COUNTERREJECT
  26096.             End Select
  26097.         Else
  26098.         End If
  26099.     End Sub
  26100.     Function SendInvitations(bIncludeRooms As Integer) As Integer
  26101.         If (bIncludeRooms) Then
  26102.             SendInvitations = YesNoPrompt(m_strtable.getstring(SEND_INVRES_MSG,Null),m_strtable.getstring(SEND_INV_TITLE, Null))
  26103.         Else
  26104.             SendInvitations = YesNoPrompt(m_strtable.getstring(SEND_INV_MSG, Null), m_strtable.getstring(SEND_INV_TITLE, Null))
  26105.         End If
  26106.     End Function
  26107.     Function CSEventGetCalendarInstance(bDateRequired As Integer, note As notesdocument) As notesdatetime
  26108.         Dim vSelectedDT As Variant
  26109.         Dim ws As New notesuiworkspace
  26110.         Dim dtCalDate As notesdatetime
  26111.         ' Get the selected date/time from the calendar
  26112.         vSelectedDT = ws.CurrentCalendarDateTime
  26113.         If Len(vSelectedDT) Then
  26114.             Call TIMEGetNotesFromLS(vSelectedDT, dtCalDate)
  26115.         Else
  26116.             If (note Is Nothing) Then Exit Function
  26117.             ' see if this is a v5 repeating instance
  26118.             If (note.HasItem("OrgRepeat") And note.HasItem("$CSVersion") And note.IsResponse) Then
  26119.                 If Not(CSOpenV5RepeatInstanceFromFlatView(m_beobject, note, dtCalDate)) Then
  26120.                     bDateRequired = True
  26121.                     Exit Function
  26122.                 End If
  26123.             End If
  26124.         End If
  26125.         Set CSEventGetCalendarInstance = dtCalDate
  26126.     End Function                
  26127.     Function CheckForRepeatChanges() As Integer
  26128.         CheckForRepeatChanges = True
  26129.         If (m_BEObject.Context = 0) Or (m_BEobject.Context = CTX_REPEAT_MAIN) Then Exit Function
  26130.         If (Me.ChangeRepeatDialog() = REPEAT_CANCEL) Then CheckForRepeatChanges = False        
  26131.     End Function
  26132. End Class
  26133. '++LotusScript Development Environment:2:2:Initialize:1:10
  26134. Sub Initialize
  26135. End Sub
  26136. '++LotusScript Development Environment:2:2:CSTableAppendStatus:1:8
  26137. Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
  26138.     Dim itemPeople As NotesItem
  26139.     Dim itemRole As NotesItem
  26140.     Dim itemStatus As NotesItem
  26141.     Dim itemOrigPeople As NotesItem
  26142.     Dim itemOrigRole As NotesItem
  26143.     Dim itemOrigStatus As NotesItem
  26144.     Dim itemDelegation As NotesItem
  26145.     Dim instance As NotesCSParticipantInstance
  26146.     Dim i As Integer
  26147.     Dim lnnode As NotesCSParticipantInstance
  26148.     Dim lnnode2 As NotesCSParticipantInstance
  26149.     Dim namePerson As NotesName
  26150.     Dim nameDelegee As NotesName
  26151.     Set itempeople = note.getfirstitem("tmpParticipantList")
  26152.     If Not(itempeople Is Nothing) Then
  26153.         Call itempeople.remove
  26154.     End If
  26155.     Set itemrole = note.getfirstitem("tmpRoleList")
  26156.     If Not(itemrole Is Nothing) Then
  26157.         Call itemrole.remove
  26158.     End If
  26159.     Set itemstatus = note.getfirstitem("tmpStatusList")
  26160.     If Not(itemstatus Is Nothing) Then
  26161.         Call itemstatus.remove
  26162.     End If    
  26163.     Set itemPeople = New NotesItem(note, "tmpParticipantList","")
  26164.     Set itemRole = New NotesItem(note, "tmpRoleList","")
  26165.     Set itemStatus = New NotesItem(note, "tmpStatusList","")
  26166.     If (bUpdateOrig) Then
  26167.         Set itemOrigPeople = New NotesItem(note, "tmpOriginalPeople","")
  26168.         Set itemOrigRole = New NotesItem(note, "tmpOriginalRole","")
  26169.         Set itemOrigStatus = New NotesItem(note, "tmpOriginalStatus","")
  26170.         Set itemDelegation = New NotesItem(note, "tmpDelegationHistory","")
  26171.     End If
  26172.         ' Now that we have the status, display it in the order 
  26173.     Set lnNode = Table.GetFirstInstance()
  26174.     While Not(lnnode Is Nothing)
  26175.         Set instance = lnnode
  26176.         Set namePerson = New NotesName(instance.replyto)   
  26177.         Call itemPeople.AppendToTextList(namePerson.Common)
  26178.         Call itemRole.AppendToTextList(instance.RoleName)
  26179.         Call itemStatus.AppendToTextList(instance.StatusName)
  26180.         If (bUpdateOrig) Then
  26181.             Call itemOrigPeople.AppendToTextList(namePerson.Common)
  26182.             Call itemOrigRole.AppendToTextList(Cstr(instance.Role))
  26183.             Call itemOrigStatus.AppendToTextList(Cstr(instance.Status))
  26184.             If (instance.Status = 15) Then
  26185.                 Set nameDelegee = New NotesName(instance.Delegee)
  26186.                 Call itemDelegation.AppendToTextList(namePerson.Common & " -> " & nameDelegee.Common)
  26187.             End If
  26188.         End If
  26189.         Set lnnode = Table.GetNextInstance()
  26190.     Wend
  26191. End Sub
  26192. '++LotusScript Development Environment:2:1:CSOpenV5RepeatInstanceFromFlatView:1:8
  26193. Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime) As Integer
  26194.     ' Return TRUE if we should continue, FALSE otherwise
  26195.     Dim ws As New notesuiworkspace
  26196.     Dim dtToday As New NotesDateTime("")
  26197.     Dim vValues As Variant
  26198.     Dim nItems As Integer, i As Integer
  26199.     vValues = note.GetItemValue(vBEObject.StartItemName)
  26200.     If Len(vValues(0)) = 0 Then Exit Function
  26201.     nItems = Ubound(vValues)
  26202.     If nItems > 0 Then
  26203.         ' Find the one closest to today
  26204.         Call dtToday.SetNow()
  26205.             Call TIMEGetNotesFromLS(vValues(i), dtCalDate)
  26206.             i = i + 1
  26207.         Loop While ((dtCalDate.TimeDifference(dtToday) < 0) And (i  =< nItems))
  26208.         Call note.replaceitemvalue("tmpListOfDates", note.getitemvalue("StartDateTime"))
  26209.         Call note.replaceitemvalue("tmpPrompt","Select the repeat instance to open")        
  26210.         Call note.replaceitemvalue("tmpDateList", dtCalDate.DateOnly & " " & dtCalDate.TimeOnly)
  26211.         If Not(ws.DialogBox("(RepeatOpenList)", True, True, , , , , , note, True)) Then Exit Function
  26212.         Call TIMEGetFromItem("tmpDateSelected", note, dtCalDate)
  26213.     Else
  26214.         Call TIMEGetFromItem(vBEObject.StartItemName, note, dtCalDate)
  26215.     End If
  26216.     CSOpenV5RepeatInstanceFromFlatView = True
  26217. End Function
  26218. '++LotusScript Development Environment:2:2:CSAutoEnableOutOfOffice:1:8
  26219. Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
  26220.     Dim profileOffice As notesdocument
  26221.     Dim agentOffice As NotesAgent
  26222.     Dim note As notesdocument
  26223.     Dim db As NotesDatabase
  26224.     Dim ws As New notesuiworkspace
  26225.     Set note = vBEObject.Document
  26226.     Set db = note.ParentDatabase
  26227.     Set agentOffice = db.GetAgent("OutOfOffice")
  26228.     If agentOffice Is Nothing Then Exit Sub
  26229.     If agentOffice.IsEnabled Then Exit Sub
  26230.     ' Prompt the user to see if they want to enable the OutOfOffice agent
  26231.     If Not(YesNoPrompt("Would you like to setup the Out of Office agent to handle messages while you are away?","Lotus Notes")) Then Exit Sub
  26232.     ' The user would like to go through the wizard
  26233.     Set profileOffice = db.GetprofileDocument("OutOfOfficeProfile")
  26234.     Call profileOffice.ReplaceItemValue("FirstDayOut", vBEObject.CurrentStartDate)
  26235.     Call profileOffice.ReplaceItemValue("FirstDayBack", vBEObject.CurrentEndDate)
  26236.     Call profileOffice.ReplaceItemValue("BookBusyTime", "1")
  26237.     Delete agentOffice
  26238.     Call ws.dialogbox("OutOfOfficeProfile",True,True,True,False,False,False,"Out of Office",profileOffice,True,True)
  26239. End Sub
  26240. '++LotusScript Development Environment:2:1:CSEventRepeatDialog:1:8
  26241. Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
  26242.     Dim note As notesdocument
  26243.     Dim ws As New notesuiworkspace
  26244.     Set note = vBEObject.Document
  26245.         ' Display the correct document in the correct dialog
  26246.     If (note.IsNewNote) Then
  26247.         Call vBEObject.UpdateDateTimeItems()
  26248.         Call ws.CurrentDocument.Reload()
  26249.         If (ws.DialogBox("(RepeatForm)",True,True,,,,,strDialogTitle,,True)) Then
  26250.             Call note.ReplaceItemValue("OrgRepeat","1")
  26251.             CSEventRepeatDialog = True
  26252.         Else
  26253.             CSEventRepeatDialog = False
  26254.         End If
  26255.     Else
  26256.         If (note.IsResponse) Then
  26257.             Call ws.DialogBox("(RepeatForm)",True,True,,,,True,strDialogTitle,vBEObject.ParentEvent.Document,True)
  26258.         Else
  26259.             Call ws.DialogBox("(RepeatForm)",True,True,,,,True,strDialogTitle,note,True)
  26260.         End If
  26261.         CSEventRepeatDialog = False
  26262.     End If
  26263. End Function
  26264. '++LotusScript Development Environment:2:1:CSEventChangeRepeatDialog:1:8
  26265. Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
  26266.     Dim ws As New notesuiworkspace
  26267.     Dim note As NotesDocument
  26268.     Dim nResult As Integer
  26269.     Set note = vBEObject.Document
  26270.     If (note.HasItem("RescheduleWhich")) Then 
  26271.         nResult = Cint(note.GetItemValue("RescheduleWhich")(0))
  26272.     Else
  26273.         If (ws.DialogBox("(ChangeRepeat)", True, True, , , , , strDialogTitle, note, True)) Then
  26274.             nResult = Cint(note.getitemvalue("tmpChangeWhich")(0))
  26275.         Else
  26276.             vBEObject.RepeatModify = REPEAT_CANCEL
  26277.             CSEventChangeRepeatDialog = REPEAT_CANCEL
  26278.             Exit Function
  26279.         End If
  26280.     End If
  26281.     vBEObject.RepeatModify = nResult
  26282.     CSEventChangeRepeatDialog = nResult
  26283. End Function    
  26284. '++LotusScript Development Environment:2:1:CSEventDisableWorkflow:1:8
  26285. Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
  26286.     ' Return -1 to bail, 0 to do nothing, 1 to cancel
  26287.     Dim vBEObject As Variant
  26288.     Dim strOriginalType As String, strCurrentType As String
  26289.     Set vBEObject = vUIobject.BEObject
  26290.     strOriginalType = vBEObject.OriginalType
  26291.     strCurrentType = vBEObject.CurrentType
  26292.     If (strOriginalType = strWorkflow) And (strCurrentType <> strWorkflow) Then
  26293.     ' Make sure we have participants before asking
  26294.         If (vBEObject.WasMailed) Then
  26295.             If (YesNoPrompt(vuiobject.StringTable.GetString(ENTRY_TYPE, Null),vuiobject.StringTable.GetString(MODTYPE_TITLE,Null))) Then
  26296.                 If (vuiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 0)) Then   
  26297.                     CSEventDisableWorkflow = 1
  26298.                 Else
  26299.                     CSEventDisableWorkflow = -1
  26300.                 End If
  26301.             Else
  26302.                 CSEventDisableWorkflow = -1
  26303.             End If
  26304.         End If                    
  26305.     End If
  26306. End Function    
  26307. p/pL @XF
  26308. @T7xF
  26309. =$G`@$L
  26310. CpLP:8F
  26311. \J\JTCTCTDTD
  26312. Lotus Product
  26313. SD:~ ;~
  26314. SD:~@;~
  26315. O(<P4<
  26316. O(<PP;
  26317. Dt<t<@<@<<H
  26318.  h h 
  26319. x"H)p
  26320. "X"X"
  26321. "h"H"H"8"8"
  26322. tAtA#
  26323. 'x'x'
  26324. @+@+P+P+
  26325. .h.h.
  26326. dIdI"
  26327. 4d4d4
  26328. l6l6x'
  26329. <6\6L6L6
  26330. 7$7$7
  26331. D9D9(+
  26332. P:p:,
  26333. TBTB|
  26334. 8FxF\
  26335. SD:~`:~
  26336. SD:~ ;~
  26337. SD:~@;~
  26338. O(<P4<
  26339. O(<PP;
  26340. =~(M&
  26341. =~@M&
  26342. =~XM&
  26343. SD:~8>~pM&
  26344. SD:~X>~
  26345. SD:~x>~
  26346. SD:~X>~
  26347. ,@<}h
  26348.  Kx ,
  26349.  Kx ,
  26350.  Kx ,
  26351. Kx ,@<}d
  26352. Kx ,@<}|
  26353. Kx ,@<}
  26354. Kh",@<}
  26355. Kh",@<}
  26356. Kh",@<}
  26357. Kh",@<}
  26358. Kh",@<}
  26359. Kh",@<}
  26360. Kh",@<}
  26361. Kh",@<}
  26362. Kh",@<},
  26363. Kh",@<}@
  26364. SD:]("]
  26365. ]8"#1
  26366. &,tAI8%#
  26367. ,@<}\
  26368. ^x'^X'^h'}
  26369. ^x'JX'
  26370. A~$BN
  26371. SD:~DB~0N& 
  26372. SD:~dB~HN& 
  26373. ',@<}
  26374. ^8)}4
  26375. ;J8)#
  26376. ^()K@
  26377. A~$BN
  26378. SD:~DB~`N& 
  26379. SD:~dB~xN& 
  26380. ),@<}
  26381. ^()#1
  26382. OP;S C}0
  26383. ^`+KP+,
  26384. ^@+KP+,
  26385. )TC^`+^@+#8
  26386. ^@+KP+,
  26387. )TC^`+^@+#8
  26388. OP;S C}0
  26389. / #}8
  26390. ^(,)TD\
  26391. -N(,PP;
  26392. E#N(,P
  26393. SD:~(F
  26394. SD:~HF~
  26395. ,,@<}
  26396. ,,@<}
  26397. SD:~HF~
  26398. SD:~HF~
  26399. ,,@<}
  26400. G~ O&
  26401. SD:~4G~8O&
  26402. G~PO&
  26403. .-DG#
  26404. G}4!#K
  26405. G}L!#
  26406.  #~,H
  26407. 0,<H}
  26408. 1,lH#
  26409. 0,<H}H$#
  26410. 1,lH#
  26411. 0,<H}d$#
  26412. 1,lH#
  26413. 0}H$}
  26414. 0}d$}
  26415. 2-@I##
  26416. 2-dI##
  26417. 4Kt4,
  26418. ;Nd4U$J
  26419. Kt4,@<}h
  26420. Kt4,@<}
  26421. Kt4,@<}
  26422. 4-0J#
  26423. )\J}T']t4]
  26424. )\JNd4U$J
  26425. ^<6N|5PP;
  26426. ^L6K<6-
  26427. ^,6KL6,
  26428. J}((#
  26429. :}\(}
  26430. 5KL6,4K}X)
  26431. 5,@<}
  26432. )N|5UhK
  26433. 5,@<}
  26434. )N|5UtK
  26435. 5,@<}
  26436. 7T|;'
  26437. K47,@<}4!}
  26438. I$7J47
  26439. 7Qd9~,H
  26440. 7Qd9X
  26441. LSD:~4L~hO&
  26442. LSD:~TL~
  26443. 8SdL~
  26444. L~P@}8,
  26445. O=Lotus Notes
  26446. O=Lotus Notes
  26447. PURSAFO
  26448. |.:#U
  26449. O=Lotus Notes
  26450. CN=Lotus Notes Template Development/O=Lotus Notes
  26451. PURSAFO
  26452. NN, /
  26453. $TITLE
  26454. $PublicAccess
  26455. $ScriptLib
  26456. $ScriptLib_O
  26457. CN=Ryan Jansen/O=IrisCN=Daisy Duck/O=DisneyCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSUIDocClass1s34QP##################
  26458. CN=Ryan Jansen/O=IrisCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Mickey Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSUIViewClass1s34QP######################################################
  26459. CN=Daisy Duck/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSWeb1s34QP
  26460. ##########################################################
  26461. DocumentConversions1
  26462. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Keith Hatfield/OU=CAM/O=LotusCN=Lotus Notes Template Development/O=Lotus Notess34QP###############################
  26463. ##########################################################
  26464. ##########################################################
  26465. ##########################################################
  26466. ##########################################################
  26467. ##########################################################
  26468. ##########################################################
  26469. ##########################################################
  26470. ##########################################################
  26471. ##########################################################
  26472. ##########################################################
  26473. ##########################################################
  26474. ##########################################################
  26475. ##########################################################
  26476. ##########################################################
  26477. ##########################################################
  26478. ##########################################################
  26479. ##########################################################
  26480. ##########################################################
  26481. ##########################################################
  26482. ##########################################################
  26483. ##########################################################
  26484. ##########################################################
  26485. ##########################################################
  26486. ##########################################################
  26487. ##########################################################
  26488. ##########################################################
  26489. ##########################################################
  26490. ##########################################################
  26491. ##########################################################
  26492. ##########################################################
  26493. ##########################################################
  26494. ##########################################################
  26495. ##########################################################
  26496. ##########################################################
  26497. ##########################################################
  26498. ##########################################################
  26499. ##########################################################
  26500. ##########################################################
  26501. ##########################################################
  26502. ##########################################################
  26503. ##########################################################
  26504. ##########################################################
  26505. ##########################################################
  26506. ##########################################################
  26507. ##########################################################
  26508. ##########################################################
  26509. ##########################################################
  26510. ##########################################################
  26511. ##########################################################
  26512. ##########################################################
  26513. ##########################################################
  26514. ##########################################################
  26515. ##########################################################
  26516. ##########################################################
  26517. ##########################################################
  26518. ##########################################################
  26519. ##########################################################
  26520. ##########################################################
  26521. ##########################################################
  26522. ##########################################################
  26523. ##########################################################
  26524. ##########################################################
  26525. ##########################################################
  26526. ##########################################################
  26527. ##########################################################
  26528. ##########################################################
  26529. ##########################################################
  26530. ##########################################################
  26531. ##########################################################
  26532. ##########################################################
  26533. ##########################################################
  26534. ##########################################################
  26535. ##########################################################
  26536. ##########################################################
  26537. ##########################################################
  26538. ##########################################################
  26539. ##########################################################
  26540. ##########################################################
  26541. ##########################################################
  26542. ##########################################################
  26543. ##########################################################
  26544. ##########################################################
  26545. ##########################################################
  26546. ##########################################################
  26547. ##########################################################
  26548. ##########################################################
  26549. ##########################################################
  26550. ##########################################################
  26551. ##########################################################
  26552. ##########################################################
  26553. ##########################################################
  26554. ##########################################################
  26555. ##########################################################
  26556. ##########################################################
  26557. ##########################################################
  26558. ##########################################################
  26559. ##########################################################
  26560. ##########################################################
  26561. ##########################################################
  26562. ##########################################################
  26563. ##########################################################
  26564. ##########################################################
  26565. ##########################################################
  26566. ##########################################################
  26567. ##########################################################
  26568. ##########################################################
  26569. ##########################################################
  26570. ##########################################################
  26571. ##########################################################
  26572. ##########################################################
  26573. ##########################################################
  26574. ##########################################################
  26575. ##########################################################
  26576. ##########################################################
  26577. ##########################################################
  26578. ##########################################################
  26579. ##########################################################
  26580. ##########################################################
  26581. ##########################################################
  26582. ##########################################################
  26583. ##########################################################
  26584. ##########################################################
  26585. ##########################################################
  26586. ##########################################################
  26587. ##########################################################
  26588. ##########################################################
  26589. ##########################################################
  26590. ##########################################################
  26591. ##########################################################
  26592. ##########################################################
  26593. ##########################################################
  26594. ##########################################################
  26595. ##########################################################
  26596. ##########################################################
  26597. ##########################################################
  26598. ##########################################################
  26599. ##########################################################
  26600. ##########################################################
  26601. ##########################################################
  26602. ##########################################################
  26603. ##########################################################
  26604. ##########################################################
  26605. ##########################################################
  26606. ##########################################################
  26607. ##########################################################
  26608. ##########################################################
  26609. ##########################################################
  26610. ##########################################################
  26611. ##########################################################
  26612. ##########################################################
  26613. ##########################################################
  26614. ##########################################################
  26615. ##########################################################
  26616. ##########################################################
  26617. ##########################################################
  26618. ##########################################################
  26619. ##########################################################
  26620. ##########################################################
  26621. ##########################################################
  26622. ##########################################################
  26623. ##########################################################
  26624. ##########################################################
  26625. ##########################################################
  26626. ##########################################################
  26627. ##########################################################
  26628. ##########################################################
  26629. ##########################################################
  26630. ##########################################################
  26631. ##########################################################
  26632. ##########################################################
  26633. ##########################################################
  26634. ##########################################################
  26635. ##########################################################
  26636. ##########################################################
  26637. ##########################################################
  26638. ##########################################################
  26639. ##########################################################
  26640. ##########################################################
  26641. ##########################################################
  26642. ##########################################################
  26643. ##########################################################
  26644. ##########################################################
  26645. ##########################################################
  26646. ##########################################################
  26647. ##########################################################
  26648. ##########################################################
  26649. ##########################################################
  26650. ##########################################################
  26651. ##########################################################
  26652. ##########################################################
  26653. ##########################################################
  26654. ##########################################################
  26655. ##########################################################
  26656. ##########################################################
  26657. ##########################################################
  26658. ##########################################################
  26659. ##########################################################
  26660. ##########################################################
  26661. ##########################################################
  26662. ##########################################################
  26663. ##########################################################
  26664. ##########################################################
  26665. ##########################################################
  26666. ##########################################################
  26667. ##########################################################
  26668. ##########################################################
  26669. ##########################################################
  26670. ##########################################################
  26671. ##########################################################
  26672. ##########################################################
  26673. ##########################################################
  26674. ##########################################################
  26675. ##########################################################
  26676. ##########################################################
  26677. ##########################################################
  26678. ##########################################################
  26679. ##########################################################
  26680. ##########################################################
  26681. ##########################################################
  26682. ##########################################################
  26683. ##########################################################
  26684. ##########################################################
  26685. ##########################################################
  26686. ##########################################################
  26687. ##########################################################
  26688. ##########################################################
  26689. '++LotusScript Development Environment:2:5:(Options):0:74
  26690. Option Public
  26691. Option Explicit
  26692. Use "CSEventClass"
  26693. '++LotusScript Development Environment:2:5:(Forward):0:1
  26694. Declare Class UIEventDocument
  26695. Declare Sub Initialize
  26696. Declare Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
  26697. '++LotusScript Development Environment:2:5:(Declarations):0:10
  26698. Const UI_FLAG_REPEAT    = &h00000001
  26699. Const UI_FLAG_ALARM     = &h00000002
  26700. Const UI_FLAG_WASSAVED  = &h00000004
  26701. Const UI_FLAG_DONOTCLOSE = &h00000008
  26702. Class UIEventDocument
  26703.     m_uidoc As NotesUIDocument
  26704.     m_uiobject As UIEventObject
  26705.     m_lFlags As Long
  26706.  ' Properties
  26707.     Property Get UIObject As Variant
  26708.         Set UIObject = m_uiobject
  26709.     End Property
  26710.     Property Get UIDocument As NotesUIDocument
  26711.         Set UIDocument = m_uidoc
  26712.     End Property
  26713.     Property Get WasSaved As Integer
  26714.         WasSaved = ((m_lFlags And UI_FLAG_WASSAVED) = UI_FLAG_WASSAVED)
  26715.     End Property
  26716.     Property Set WasSaved As Integer
  26717.         If (WasSaved) Then
  26718.             m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
  26719.         Else
  26720.             If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  26721.         End If
  26722.     End Property
  26723.     Property Get DoNotClose As Integer
  26724.         DoNotClose = ((m_lFlags And UI_FLAG_DoNotClose) = UI_FLAG_DoNotClose)
  26725.     End Property
  26726.     Property Set DoNotClose As Integer
  26727.         If (DoNotClose) Then
  26728.             m_lFlags = m_lFlags Or UI_FLAG_DONOTCLOSE
  26729.         Else
  26730.             If (m_lFlags And UI_FLAG_DONOTCLOSE) Then m_lFlags = m_lFlags Xor UI_FLAG_DONOTCLOSE
  26731.         End If
  26732.     End Property
  26733.     Sub New(source As NotesUIDocument, nType As Integer, bOwner As Integer)
  26734.         Set m_uidoc = source
  26735.         Set m_uiobject = New UIEventObject(nType, bOwner)
  26736.     End Sub
  26737.     Sub PerformActionAndClose(vData As Variant, Byval iTitle As Integer, Byval dAction As Long, strDlg As String, Byval dOptions As Long)
  26738.         If m_uiobject.OkToPerformAction(vData, iTitle,dAction,strDlg,dOptions) Then
  26739.             If Not m_uidoc.editmode Then m_uidoc.editmode = True
  26740.             Call m_uidoc.reload            
  26741.             Call m_uidoc.save
  26742.             Call m_uidoc.close
  26743.         End If
  26744.     End Sub
  26745.     Sub QueryOpen(nMode As Integer, bIsNew As Variant, bContinue As Variant)
  26746.         Dim vBEObject As Variant, vSelectedDT As Variant
  26747.         Dim ws As New notesuiworkspace        
  26748.         Dim note As NotesDocument, notetmp As NotesDocument
  26749.         Dim item As NotesItem
  26750.         Dim dtCalDate As NotesDateTime
  26751.         Dim bNeedsDate As Integer
  26752.         m_uidoc.AutoReload = False
  26753.         Set note = m_uidoc.document
  26754.         Set vBEObject = m_uiobject.BEObject
  26755.         Set dtCalDate = m_uiobject.CSEventGetCalendarInstance(bNeedsDate, note)
  26756.         If (bNeedsDate And dtCalDate Is Nothing) Then
  26757.             bContinue = False
  26758.             Exit Sub
  26759.         End If
  26760.         Call CSDocOpen(vBEObject, note, dtCalDate, CS_DOC_ALARMS)
  26761.           ' If the Editor thinks this is a new document, we are done
  26762.         If (bIsNew) Then Exit Sub
  26763.         ' See if a new note was passed in to editdocument
  26764.         If (note.isnewnote) Then Exit Sub
  26765.         If (note.GetItemValue("Repeats")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  26766.         If (note.GetItemValue("Alarms")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_ALARM
  26767.         ' If we are a participant, scan for updates
  26768.         If Not(m_uiobject.IsOwner) Then Call m_uiobject.ScanForUpdates()
  26769.     End Sub
  26770.     Sub PostOpen()
  26771.         Dim vBEObject As Variant        
  26772.         Dim note As NotesDocument
  26773.         Dim ws As NotesUIWorkspace
  26774.         Dim session As New notessession
  26775.         Dim strType As String
  26776.         Set note = m_uidoc.document        
  26777.         Set vBEObject = m_uiobject.BEObject
  26778.           ' if we need to open the reschedule notice; do it now
  26779.         If (m_uiobject.IsActionInProgress(ACTION_OPENRESCHEDULE)) Then
  26780.             Set ws = New NotesUIWorkspace
  26781.             Set session = New notessession
  26782.             Set note = session.CurrentDatabase.GetDocumentByID(m_uiobject.beobject.UpdateNotice.NoteID)
  26783.             If Not(note Is Nothing) Then
  26784.                 Call m_uidoc.close
  26785.                 Call ws.editdocument(False,note)
  26786.                 Call m_uiobject.RemoveActionInprogress(ACTION_OPENRESCHEDULE)
  26787.                 Exit Sub
  26788.             End If
  26789.         End If
  26790.          ' If this is a new document, initialize our backend document          
  26791.         If(m_uidoc.IsNewDoc Or note.isnewnote) Then
  26792.             Call CSDocOpen(vBEObject, note, Nothing, Clng(CS_DOC_ALARMS))
  26793.             Call m_uidoc.Reload()
  26794.             Call m_uidoc.Refresh()
  26795.         Elseif (m_uiobject.IsOwner And vbeobject.Context <> CTX_REPEAT_MAIN) Then
  26796.             m_uidoc.EditMode = True
  26797.         End If
  26798.     End Sub
  26799.     Sub PostRecalc()
  26800.         Dim note As NotesDocument
  26801.         Dim bRefreshHide As Integer
  26802.         Set note = m_uidoc.document
  26803.         If (note.GetItemValue("Repeats")(0) = "1") Then
  26804.             If Not((m_lFlags And UI_FLAG_REPEAT) = UI_FLAG_REPEAT) Then
  26805.                 If m_uiobject.RepeatDialog() Then
  26806.                     m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  26807.                 Else
  26808.                     Call note.replaceitemvalue("Repeats","")
  26809.                     bRefreshHide = True
  26810.                 End If
  26811.             End If
  26812.         Elseif (m_lFlags And UI_FLAG_REPEAT) Then
  26813.             Call note.replaceitemvalue("Repeats","")
  26814.             bRefreshHide = True
  26815.         End If
  26816.         If (note.HasItem("$Alarm")) Then
  26817.             If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
  26818.             ' If we have a $Alarm, but not Offset or Time, then this is the default alarm; enable settings
  26819.                 Call note.replaceitemvalue("Alarms","1")
  26820.                 m_lFlags = m_lFlags Or UI_FLAG_ALARM
  26821.                 bRefreshHide = True            
  26822.             End If                
  26823.         Elseif (note.GetItemValue("Alarms")(0) = "1") Then
  26824.             ' The user clicked on the alarms checkbox to enable them
  26825.             If Not((m_lFlags And UI_FLAG_ALARM) = UI_FLAG_ALARM) Then
  26826.                 If m_uiobject.AlarmDialog() Then
  26827.                     m_lFlags = m_lFlags Or UI_FLAG_ALARM
  26828.                     Call note.replaceitemvalue("$Alarm",1)                    
  26829.                 Else
  26830.                     Call Me.RemoveAlarmSettings()                    
  26831.                     bRefreshHide = True
  26832.                 End If
  26833.             Else
  26834.                 ' The checkbox is set, but so are the flags; this must be left over from a default setting remove
  26835.                 Call Me.RemoveAlarmSettings()                    
  26836.                 bRefreshHide = True
  26837.             End If
  26838.         Elseif (m_lFlags And UI_FLAG_ALARM) Then
  26839.             ' The user is removing the alarm
  26840.             Call Me.RemoveAlarmSettings()                    
  26841.             bRefreshHide = True
  26842.         End If
  26843.         If (bRefreshHide) Then
  26844.             Call m_uidoc.refreshhideformulas
  26845.             Call m_uidoc.reload
  26846.         End If
  26847.     End Sub
  26848.     Sub QuerySave(bContinue As Variant)
  26849.         Dim vBEObject As Variant
  26850.         Dim note As NotesDocument
  26851.         Dim dtStart As NotesDateTime, dtEnd As notesDateTime
  26852.         Dim item As NotesItem
  26853.         Dim sCurrentType As String,  soriginalType As String, strCategory As String,  strWorkflow As String
  26854.         Dim strAction As String,  strNoticeType As String        
  26855.         Dim lCurrentAction As Long
  26856.         Dim dOptions As Long
  26857.         Dim fSendOptions As Integer
  26858.         Dim bIsCounter As Integer
  26859.         Dim bDateOnly As Integer
  26860.         Dim bCancel As Integer
  26861.         On Error Goto ErrorRoutine        
  26862.         On Error 4412 Goto CancelSave 
  26863.         On Error 4411 Goto CancelSave
  26864.         On Error 4421 Goto CancelSave
  26865.         ' reset close flag
  26866.         Me.DoNotClose = False
  26867.         Call m_uidoc.refresh(True)
  26868.         Set vBEObject = m_uiobject.BEObject        
  26869.         Set note = vBEObject.Document
  26870.         strNoticeType = note.getitemvalue("NoticeType")(0)
  26871.         If (strNoticeType = "T") Then dOptions = (dOptions Or CS_DOC_ISCOUNTER)
  26872.         If (m_uiobject.EventType = 2) Then dOptions = (dOptions Or CS_DOC_TASK)
  26873.         strAction = note.getitemvalue("tmpAction")(0)            
  26874.         If Len(strAction) Then m_uiobject.ActionInprogress = Clng(strAction)
  26875.     ' Build up the flags about the current document
  26876.         If (m_uiobject.IsOwner) Then 
  26877.             ' If this is not a counter propose notice, disallow save
  26878.             dOptions = (dOptions Or CS_DOC_FOROWNER)
  26879.             If (dOptions And CS_DOC_ISCOUNTER) = 0 Then 
  26880.                 If (NAMECompare(vBEObject.CalendarProfile.OwnerName, note.getitemvalue("Principal")(0)) = False) Then
  26881.                     Call note.replaceitemvalue("SaveOptions","0")
  26882.                     Exit Sub
  26883.                 End If
  26884.                 Call vBEObject.UpdateDateTimeItems()
  26885.             End If
  26886.         End If
  26887.         sCurrentType = vBEObject.CurrentType
  26888.         sOriginalType = vBEObject.OriginalType
  26889.         Set dtStart = vBEObject.CurrentStartDate
  26890.         Set dtEnd = vBEObject.CurrentEndDate
  26891.         ' Query the user for several things to setup our context
  26892.         If (note.IsNewNote) Then
  26893.             ' Make sure this is not being created in the past
  26894.             If (m_uiobject.EventType = 1) Then
  26895.                 If (sCurrentType = "1" Or sCurrentType = "2") Then bDateOnly = True
  26896.             Else
  26897.                 bDateOnly = True
  26898.             End If
  26899.             If Not(m_uiobject.AllowInPast(dtStart, bDateOnly)) Then    Goto CancelSave
  26900.             ' Make sure we are not double booking
  26901.             If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
  26902.             ' See if out of office should be enabled
  26903.             strCategory = note.GetItemValue("Categories")(0)
  26904.             If (strCategory = "V") Then Call CSAutoEnableOutOfOffice(vBEObject)
  26905.         Else
  26906.             ' If this is a repeating event, see if changes should be applied
  26907.             If Not(m_uiobject.CheckForRepeatChanges()) Then Goto CancelSave
  26908.             If (dOptions And CS_DOC_FOROWNER) And ((dOptions And CS_DOC_ISCOUNTER) = 0) Then
  26909.             ' See if we are going from a workflow enabled entry to a non-workflow enabled                                        
  26910.                 If (m_uiobject.EventType = 1) Then
  26911.                     strWorkflow = "3"                    
  26912.                 Else        
  26913.                     strWorkflow = "2"
  26914.                 End If                
  26915.                 Select Case CSEventDisableWorkflow(m_uiobject, strWorkflow)
  26916.                 Case -1
  26917.                     Goto CancelSave
  26918.                 Case 1
  26919.                     Call uiobject.Cancel(0)    '-> Need to call save
  26920.                     Exit Sub
  26921.                 End Select
  26922.             ' See if we should reschedule
  26923.                 If (m_uiobject.NeedsReschedule) Then
  26924.                     If Not(m_uiobject.OkToReschedule) Then Goto CancelSave
  26925.                     ' Make sure we are not double booking
  26926.                     If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
  26927.                 End If  
  26928.             End If
  26929.         End If                            
  26930.         If (dOptions And CS_DOC_FOROWNER) And ((dOptions And CS_DOC_ISCOUNTER) = 0) Then
  26931.             If (vBEObject.IsWorkflowEnabled()) Then
  26932.                 fSendOptions = vBEObject.PrimarySendOptions
  26933.                 If (fSendOptions > 0) Then
  26934.                 ' See if the user wants to send this
  26935.                     If Not(m_uiobject.IsActionInProgress(ACTION_SEND)) Then
  26936.                         If m_uiobject.SendInvitations((fSendOptions > 1)) Then
  26937.                             m_uiobject.ActionInProgress = ACTION_SEND
  26938.                         End If
  26939.                     End If
  26940.                 End If
  26941.             End If
  26942.         End If        
  26943.         lCurrentAction = m_uiobject.ActionInProgress
  26944.     ' call the shared document save routine
  26945.         Call CSDocSave(vBEObject, Me, lCurrentAction, dOptions, bContinue)
  26946.         If Not(bContinue) Then Goto CancelSave
  26947.         If (dOptions And CS_DOC_FOROWNER) Then
  26948.             If (lCurrentAction And ACTION_RESCHEDULE) Then
  26949.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_RESCHEDULE, 0)
  26950.             Elseif (lCurrentAction And ACTION_CANCEL) Then
  26951.                 Call m_uiobject.Cancel(REMOVE_CALENDAR)
  26952.             Elseif (lCurrentAction And ACTION_COUNTER_ACCEPT) Then
  26953.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTERACCEPT, 0)
  26954.             Elseif (lCurrentAction And ACTION_COUNTER_REJECT) Then
  26955.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTERREJECT, 0)
  26956.             Elseif (lCurrentAction And ACTION_COMPLETED) Then
  26957.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
  26958.             End If
  26959.         Else
  26960.             If (lCurrentAction And ACTION_ACCEPT) Then
  26961.                 Call m_uiobject.Accept
  26962.             Elseif (lCurrentAction And ACTION_DECLINE) Then
  26963.                 Call m_uiobject.Decline
  26964.             Elseif (lCurrentAction And ACTION_DELEGATE) Then
  26965.                 Call m_uiobject.Delegate
  26966.             Elseif (lCurrentAction And  ACTION_ADDTOCALENDAR) Then
  26967.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_ADDCALENDAR, 0)
  26968.             Elseif (lCurrentAction And ACTION_COUNTER_PROPOSE) Then
  26969.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTER, 0)
  26970.             Elseif (lCurrentAction And ACTION_COMPLETED) Then
  26971.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
  26972.             End If            
  26973.         End If
  26974.         ' We have to update the repeat instances after performing the action
  26975.         If (note.isnewnote = False) Then Call CSDocSaveRepeatingEntry(vBEObject)
  26976.         Goto Done
  26977. ErrorRoutine:
  26978.         Msgbox "Error -> " & Error & "[" & Err & "]" & " (QuerySave)"
  26979. CancelSave:
  26980.         If (Me.WasSaved) Then Me.WasSaved = False
  26981.         bContinue = False
  26982.         Me.DoNotClose = True
  26983. Done:
  26984.         Call m_uidoc.reload()
  26985.         Exit Sub
  26986.     End Sub
  26987.     Sub PostSave()
  26988.         m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
  26989.     End Sub
  26990.     Sub QueryClose(bContinue As Variant)
  26991.         Dim vbeobject As Variant
  26992.         Dim vDates As Variant
  26993.         Dim note As NotesDocument    
  26994.         Dim profile As NotesDocument        
  26995.         Dim ws As New notesuiworkspace
  26996.         If (Me.DoNotClose = True) Then
  26997.             Me.DoNotClose = False
  26998.             bcontinue = False
  26999.         End If
  27000.     ' See if the document needs to be placed into the alarm folder
  27001.         Set note = m_uidoc.document
  27002.         Set vbeobject = m_uiobject.beobject
  27003.         If (note.HasItem("$Alarm")) Then
  27004.             If Not(vbeobject.InAlarmFolder) Then             Call vbeobject.PutInAlarmsFolder()
  27005.             Call m_uiobject.Workspace.CheckAlarms()
  27006.         End If 
  27007.         ' Update categories 
  27008.         Set profile = vBEObject.CalendarProfile.Document
  27009.         Call CSDocUpdatePersonalCategories(note, profile)
  27010. If (m_uiobject.SendComments) Then Call m_uiobject.EditNotice
  27011.     Call ws.viewrefresh()
  27012.     End Sub
  27013.     Sub SendPrimaryRequest()
  27014.         ' callback routine from backend to send the primary notice
  27015.         Call m_uidoc.reload()
  27016.         Call m_uidoc.send()
  27017.     End Sub    
  27018.     Sub RemoveAlarmSettings()
  27019.         Call m_uidoc.Document.replaceitemvalue("Alarms","")
  27020.         m_lFlags = m_lFlags Xor UI_FLAG_ALARM
  27021.         Call m_uiobject.BEObject.RemoveAlarm()        
  27022.     End Sub
  27023. End Class
  27024. '++LotusScript Development Environment:2:2:Initialize:1:10
  27025. Sub Initialize
  27026. End Sub
  27027. '++LotusScript Development Environment:2:1:CSUIDocOpen:1:8
  27028. Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
  27029.     Dim note As NotesDocument
  27030.     Dim uidoc As UIEventDocument    
  27031.     Dim bOwner As Integer
  27032.     If (source.InPreviewPane) Then Exit Function
  27033.     Set note = source.document
  27034.     bOwner = NOTEUserIsCreator(note)
  27035.     Set uidoc = New UIEventDocument(source, iType, bOwner)
  27036.     Call uidoc.QueryOpen(mode, Isnewdoc, continue)     
  27037.     Set CSUIDocopen = uidoc
  27038. End Function
  27039. )8(8(8
  27040. @*H$$+
  27041. Lotus Product
  27042. OBJECT
  27043.     x    x    h    
  27044. ]X    Ih    Ix    ]
  27045. .\ Jd
  27046. S0%%8U
  27047. '~h'#1
  27048. ,d&}4
  27049. )$+^t
  27050. O=Lotus Notes
  27051. O=Lotus Notes
  27052. PURSAFO
  27053. |.:#U
  27054. O=Lotus Notes
  27055. CN=Lotus Notes Template Development/O=Lotus Notes
  27056. PURSAFO
  27057. $TITLE
  27058. $PublicAccess
  27059. $ScriptLib
  27060. $ScriptLib_O
  27061. '++LotusScript Development Environment:2:5:(Options):0:74
  27062. Option Public
  27063. Option Explicit
  27064. Use "CSEventClass"
  27065. '++LotusScript Development Environment:2:5:(Forward):0:1
  27066. Declare Function InitEventObject(note As NotesDocument) As UIEventObject
  27067. Declare Sub ProcessViewCommand(lAction As Long)
  27068. Declare Function CheckForRepeatChanges(uievent As UIEventObject) As Integer
  27069. Declare Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag  As Integer)
  27070. '++LotusScript Development Environment:2:5:(Declarations):0:10
  27071. 'CSUIViewClass: 
  27072. 'CSUIViewClass: 
  27073. Const ACTION_VIEWSTATUS = 123
  27074. Const ACTION_SENDMEMO = 125
  27075. '++LotusScript Development Environment:2:1:InitEventObject:1:8
  27076. Function InitEventObject(note As NotesDocument) As UIEventObject
  27077.     Dim vBEObject As Variant
  27078.     Dim dtCalendar As NotesDateTime
  27079.     Dim uievent As UIEventObject
  27080.     Dim ws As New notesUIWorkspace
  27081.     Dim bNeedsDate As Integer, bChair As Integer
  27082.     Dim sForm As String  
  27083.     bChair = NOTEUserIsCreator(note)
  27084.     sForm = note.GetItemValue("Form")(0)
  27085.     If (Strcompare(sForm, "Task") = 0) Then
  27086.         Set uievent = New UIEventObject(2, bChair)
  27087.     Else
  27088.         Set uievent = New UIEventObject(1, bChair)
  27089.     End If
  27090.     Set vbeobject = uievent.BEObject
  27091.     Set dtCalendar = uievent.CSEventGetCalendarInstance(bNeedsDate, note)
  27092.     If (dtCalendar Is Nothing And bNeedsDate) Then Exit Function
  27093.     Call CSDocOpen(vBEObject, note, dtCalendar, 0)    
  27094.     Set InitEventObject = uievent
  27095. End Function
  27096. '++LotusScript Development Environment:2:2:ProcessViewCommand:1:8
  27097. Sub ProcessViewCommand(lAction As Long)
  27098.     Dim collection As NotesDocumentCollection
  27099.     Dim note As NotesDocument
  27100.     Dim session As New notessession
  27101.     Dim ws As New notesuiworkspace
  27102.     Dim uievent As UIEventObject
  27103.     Dim vBEobject, vContinue, strtable As Variant
  27104.     Dim dOptions As Long    
  27105.     Dim nChangeWhich As Integer
  27106.     Dim bSave As Integer
  27107.     Set collection = session.currentdatabase.unprocesseddocuments
  27108.     If (collection.count = 0) Then Exit Sub
  27109.     Set note = collection.getfirstdocument()
  27110.     Set uievent = InitEventObject(note)
  27111.     If (uievent Is Nothing) Then Exit Sub
  27112.     Set vBEObject = uievent.BEObject
  27113.     If note.HasItem("OrgRepeat") And Not note.IsResponse Then
  27114.         If Not note.GetItemValue("NoticeType")(0) = "I" Then
  27115.         ' This is not an invitation and we need to tell them to select an instance document            
  27116.             Set strtable = uievent.StringTable        
  27117.             Call DisplayWarn(strtable.getstring(USER_INVALID_DOCUMENT, Null) ,MB_OK, "")
  27118.             Exit Sub
  27119.         End If
  27120.     End If
  27121.     If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
  27122.     If (uievent.IsOwner) Then
  27123.         Select Case lAction
  27124.         Case ACTION_RESCHEDULE
  27125.             If Not(uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)) Then Goto Done
  27126.         Case ACTION_CANCEL
  27127.             If Not(uievent.OkToPerformAction(Null, CANC_TITLE, lAction, "(OwnerDlg)",1)) Then Goto Done    
  27128.         Case ACTION_CONFIRM
  27129.             If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)",1) Then
  27130.                 Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  27131.             End If
  27132.             Goto Done
  27133.         Case ACTION_VIEWSTATUS
  27134.             Call uievent.ViewParticipantStatus()
  27135.             Goto Done
  27136.         Case ACTION_SENDMEMO
  27137.             Call uievent.CreateMemo(True)
  27138.             Goto Done
  27139.         Case ACTION_COMPLETED
  27140.             If Not(CheckForRepeatChanges(uievent)) Then Goto Done
  27141.         Case Else
  27142.             Msgbox uievent.stringtable.getstring(USER_ACTION_INVALID,  Null)
  27143.             Goto done
  27144.         End Select
  27145.     Else        
  27146.         Call uievent.ScanForUpdates
  27147.         If note.GetItemValue("tmpDoNotProcess")(0) = "1" Then
  27148.           ' if we need to open the reschedule notice; do it now
  27149.             If uievent.ActionInProgress = ACTION_OPENRESCHEDULE Then
  27150.                 Set ws = New NotesUIWorkspace
  27151.                 Set session = New notessession
  27152.                 Set note = session.CurrentDatabase.GetDocumentByID(vBEObject.UpdateNotice.NoteID)
  27153.             End If
  27154.             If Not(note Is Nothing) Then
  27155.                 Call ws.editdocument(False,note)
  27156.                 Exit Sub
  27157.             End If
  27158.             Exit Sub    
  27159.         End If        
  27160.         Select Case lAction            
  27161.         Case ACTION_ACCEPT
  27162.             If Not(uievent.OkToPerformAction(Null, ACPT_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  27163.         Case ACTION_DECLINE
  27164.             If Not(uievent.OkToPerformAction(Null, DECL_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  27165.         Case ACTION_DELEGATE
  27166.             If Not(uievent.OkToPerformAction(Null, DELE_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  27167.         Case ACTION_COUNTER_PROPOSE
  27168.             If Not(uievent.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  27169.         Case ACTION_COMPLETED
  27170.             If Not(uievent.OkToPerformAction(Null, 0, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  27171.         Case Else
  27172.             Msgbox uievent.stringtable.getstring(USER_ACTION_INVALID,  Null)
  27173.             Goto done            
  27174.         End Select
  27175.     End If
  27176.     ' if we got here, then we want to perform the action
  27177.     ' check for repeating changes
  27178.     If Not(CheckForRepeatChanges(uievent)) Then Goto Done
  27179.     vContinue = True
  27180.     If (uievent.IsOwner) Then dOptions = CS_DOC_FOROWNER
  27181.     dOptions = dOptions Or CS_DOC_ALARMS
  27182.     Call CSDocSave(vBEObject, Null, lAction, dOptions, vContinue)
  27183.     If Not(vContinue) Then Goto Done
  27184.     Select Case lAction
  27185.     Case ACTION_RESCHEDULE
  27186.         Call vBEObject.UpdateDateTimeItems()
  27187.         Call uievent.PerformAction(ORS_MSGTYPE_RESCHEDULE, 0)
  27188.     Case ACTION_CANCEL
  27189.         Call uievent.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT)
  27190.     Case ACTION_COMPLETED
  27191.         Call uievent.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
  27192.     Case ACTION_ACCEPT
  27193.         Call uievent.Accept()
  27194.     Case ACTION_DECLINE
  27195.         Call uievent.Decline()
  27196.     Case ACTION_DELEGATE
  27197.         Call uievent.Delegate()
  27198.     Case ACTION_COUNTER_PROPOSE                
  27199.         Call uievent.PerformAction(ORS_MSGTYPE_COUNTER, 0)
  27200.     End Select
  27201.     ' We have to update the repeat instances after performing the action
  27202.     Call CSDocSaveRepeatingEntry(vBEObject)
  27203.     Call note.save(True, True, True)
  27204.     If (uievent.SendComments) Then Call uievent.EditNotice
  27205. Done:
  27206.     Delete uievent
  27207.     Delete note
  27208.     Call ws.ViewRefresh
  27209. End Sub    
  27210. '++LotusScript Development Environment:2:1:CheckForRepeatChanges:1:8
  27211. Function CheckForRepeatChanges(uievent As UIEventObject) As Integer
  27212.     Dim vBEObject As Variant
  27213.     CheckForRepeatChanges = True
  27214.     Set vBEObject = uievent.BEObject
  27215.     If (vBEObject.Context <> CTX_REPEAT_INST) Then Exit Function
  27216.     If (uievent.ChangeRepeatDialog() = REPEAT_CANCEL) Then CheckForRepeatChanges = False        
  27217. End Function
  27218. '++LotusScript Development Environment:2:2:ViewDragPasteHandler:1:8
  27219. Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag  As Integer)
  27220.     Dim ws As New notesuiworkspace
  27221.     Dim collection As NotesDocumentCollection
  27222.     Dim note As NotesDocument
  27223.     Dim dtCalDrop As NotesDateTime
  27224.     Dim dtCal As notesdatetime
  27225.     Dim dtStart As NotesDateTime
  27226.     Dim dtEnd As NotesDateTime
  27227.     Dim uiview As UIEVentObject
  27228.     Dim vBEObject As Variant
  27229.     Dim strtable As Variant    
  27230.     Dim strAction As String
  27231.     Dim dOptions As Long
  27232.     Dim lAction As Long    
  27233.     Dim lDifference As Long
  27234.     Dim bRefresh As Integer
  27235.     Dim nChangeWhich As Integer
  27236.     Dim bSave As Integer
  27237.     Dim bContinue As Integer
  27238.     Call TIMEGetNotesFromLS(source.calendardatetime, dtCalDrop)
  27239.     Set collection = source.documents
  27240.     Set note = collection.getfirstdocument
  27241.     bContinue = True
  27242.     Set uiview = InitEventObject(note)
  27243.     Set vBEObject = uiview.BEObject
  27244.     Set strtable = uiview.StringTable    
  27245.     Set dtStart = vBEObject.OriginalStartDate
  27246.     Set dtEnd = vBEObject.OriginalEndDate
  27247.     dOptions = CS_DOC_ALARMS
  27248.         ' set the new date/time values 
  27249.     Call TIMEGetNotesFromLS(source.CalendarDateTime, dtCal)
  27250.         ' If the document was dropped on a date but no time, use the existing time
  27251.     If (Hour(dtCalDrop.LSLocalTime) = 0) Then
  27252.         Set dtCal = New notesdatetime(dtCalDrop.DateOnly & " " & dtStart.TimeOnly)
  27253.     Else
  27254.         Call TIMEGetNotesFromLS(dtCalDrop.LSLocalTime, dtCal)
  27255.     End If
  27256.     If Len(dtStart.LocalTime) = 0 Then dtStart.LSLocalTime = dtCal.LSLocalTime
  27257.     If Len(dtEnd.LocalTime) = 0 Then dtEnd.LSLocalTime = dtCal.LSLocalTime
  27258.     lDifference = dtCal.TimeDifference(dtStart)
  27259.     Call TIMEAdjustByDifference(lDifference, dtStart)
  27260.     Call TIMEAdjustByDifference(lDifference, dtEnd)
  27261.     If (uiview.EventType = 1) Then
  27262.         Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
  27263.         Call note.ReplaceItemValue("StartTime", dtStart.LSLocalTime)
  27264.         Call note.ReplaceItemValue("EndDate", dtEnd.LSLocalTime)        
  27265.         Call note.ReplaceItemValue("EndTime", dtEnd.LSLocalTime)
  27266.     Else
  27267.         Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
  27268.         Call note.ReplaceItemValue("DueDate", dtEnd.LSLocalTime)        
  27269.         dOptions = dOptions Or CS_DOC_TASK        
  27270.     End If    
  27271.     If (uiview.IsOwner) Then dOptions = dOptions Or CS_DOC_FOROWNER        
  27272.     If (bDrag) Then
  27273.         If uiview.IsOwner Then
  27274.             If (vBEObject.WasMailed()) Then
  27275.                 strAction = ORS_MSGTYPE_RESCHEDULE            
  27276.                 lAction = ACTION_RESCHEDULE            
  27277.                 If uiview.OkToPerformAction(Null, RESC_TITLE, lAction, "(OwnerDlg)", 0) = False Then Exit Sub                
  27278.             Else
  27279.                 If YesNoPrompt(strtable.getstring(ENTRY_DTMOD, Null), strtable.getstring(DTMOD_TITLE, Null)) = False Then Exit Sub
  27280.             End If
  27281.         Else
  27282.             strAction = ORS_MSGTYPE_COUNTER        
  27283.             lAction = ACTION_COUNTER_PROPOSE
  27284.             If (uiview.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)",0)) = False Then Exit Sub
  27285.         End If
  27286.     End If
  27287.     If (uiview.CheckForRepeatChanges() = False) Then Exit Sub
  27288.     If (uiview.AllowDoubleBook() = False) Then Exit Sub
  27289.     Call vBEObject.UpdateDateTimeItems()    
  27290.     Call CSDocSave(vBEObject, Nothing, lAction, dOptions, bContinue)
  27291.     If (bContinue = False) Then Exit Sub
  27292.     Call vBEObject.MarkTempItems()
  27293.     If (lAction) Then    Call uiview.PerformAction(strAction, 0)
  27294.         ' We have to update the repeat instances after performing the action
  27295.     Call CSDocSaveRepeatingEntry(vBEObject)
  27296.     Call note.save(True, True, True)
  27297.     If (uiview.SendComments) Then Call uiview.EditNotice
  27298.     Call ws.viewrefresh
  27299. End Sub
  27300. Lotus Product
  27301. OBJECT
  27302. ~d ~ 
  27303. O=Lotus Notes
  27304. O=Lotus Notes
  27305. PURSAFO
  27306. |.:#U
  27307. O=Lotus Notes
  27308. CN=Lotus Notes Template Development/O=Lotus Notes
  27309. PURSAFO
  27310. $TITLE
  27311. $PublicAccess
  27312. $ScriptLib
  27313. $ScriptLib_O
  27314. '++LotusScript Development Environment:2:5:(Options):0:74
  27315. Option Public
  27316. Option Explicit
  27317. Use "Common"
  27318. '++LotusScript Development Environment:2:5:(Forward):0:1
  27319. Declare Class CSWebOwnerObject
  27320. Declare Sub Initialize
  27321. Declare Sub WebQueryOpen()
  27322. Declare Sub WebQuerySave()
  27323. Declare Function ParseURLForCalDate(strURL As String) As NotesDateTime
  27324. Declare Function ParseQueryStringForEntry(strQueryString As String, strKey As String) As String
  27325. '++LotusScript Development Environment:2:5:(Declarations):0:10
  27326. 'CSWeb: 
  27327. Class CSWebOwnerObject
  27328.     m_note As NotesDocument
  27329.     Sub new(note As notesdocument)
  27330.         Set m_note = note
  27331.     End Sub
  27332.     Sub SendPrimaryRequest()
  27333.         If Not(m_note Is Nothing) Then Call m_note.send(False)
  27334.     End Sub
  27335. End Class
  27336. Dim vBEObject As Variant
  27337. Dim vCallBack As CSWebOwnerObject
  27338. Dim strQueryString As String
  27339. Dim fOptions As Long
  27340. Dim bOwner As Integer
  27341. '++LotusScript Development Environment:2:2:Initialize:1:10
  27342. Sub Initialize
  27343. End Sub
  27344. '++LotusScript Development Environment:2:2:WebQueryOpen:1:8
  27345. Sub WebQueryOpen()
  27346.     Dim dtinit As New notesdatetime("")
  27347.     Dim dtCal As notesdatetime
  27348.     Dim session As New notessession    
  27349.     Dim nEventType As Integer
  27350.     Set note = session.documentcontext
  27351.     bOwner = NOTEUserIsCreator(note)
  27352.     If (note.GetItemValue("Form")(0) = "Task") Then
  27353.         neventType = 2
  27354.         fOptions = CS_DOC_TASK
  27355.     Else
  27356.         nEventType = 1
  27357.     End If
  27358.     If (bOwner) Then
  27359.         Set vBEobject = New NotesCSEventOwnerDocument(nEventType)
  27360.         fOptions = fOPtions Or CS_DOC_FOROWNER
  27361.     Else
  27362.         Set vBEobject = New NotesCSEventParticipantDocument(nEventType)
  27363.     End If
  27364.     fOptions = fOptions Or CS_DOC_WEBUSER
  27365.     strQueryString = note.GetItemValue("Query_String")(0)
  27366.     Set dtCal = ParseURLForCalDate(strQueryString)
  27367.     Call CSDocOpen(vBEObject, note, dtCal, fOptions)
  27368.     Call note.replaceitemvalue("tmpOwner", vBEObject.CalendarProfile.OwnerName)
  27369.     ' If this is a new document, set the type
  27370.     If (note.isnewnote) Then
  27371.         Dim strType As String
  27372.         strType = ParseQueryStringForEntry(strQueryString, "&Type=")
  27373.         If Len(strType) Then Call note.replaceitemvalue(vBEObject.TypeItemName, strType)
  27374.     End If
  27375. End Sub
  27376. '++LotusScript Development Environment:2:2:WebQuerySave:1:8
  27377. Sub WebQuerySave()
  27378.     Dim vContinue As Variant    
  27379.     Dim strAction As String
  27380.     Dim dAction As Long
  27381.     Call WebQueryOpen()
  27382.     vContinue = True        
  27383.     If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = CTX_REPEAT_MSG) Then
  27384.         vBEObject.RepeatModify = Cint(note.getitemvalue("tmpChangeWhich")(0))
  27385.     End If
  27386.     If (bOwner) Then Set vCallBack = New CSWebOwnerObject(note)
  27387.     Call CSDocSave(vBEObject, vCallBack, 0, fOptions, vContinue)
  27388.     If Not(vContinue) Then
  27389.         Call note.replaceitemvalue("SaveOptions","0")
  27390.         Exit Sub
  27391.     End If
  27392.     strAction = note.getitemvalue("tmpAction")(0)
  27393.     If Len(strAction) Then
  27394.         dAction = Clng(strAction)
  27395.         If (bOwner) Then
  27396.             If (dAction And ACTION_RESCHEDULE) Then
  27397.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_RESCHEDULE, True, 0)
  27398.             Elseif (dAction And ACTION_CANCEL) Then
  27399.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_CANCEL, True, REMOVE_CALENDAR)
  27400.             Elseif (dAction And ACTION_CONFIRM) Then
  27401.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_CONFIRMATION, True, 0)
  27402.             End If
  27403.         Else 
  27404.             If (dAction And ACTION_ACCEPT) Then
  27405.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_ACCEPT, True, 0)
  27406.             Elseif (dAction And ACTION_DECLINE) Then
  27407.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_REJECT, True, 1)
  27408.             Elseif (dAction And ACTION_COUNTER_PROPOSE) Then
  27409.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_COUNTER, True, 0)
  27410.             Elseif (dAction And ACTION_DELEGATE) Then
  27411.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_DELEGATE, True, 1)
  27412.             End If                                
  27413.         End If
  27414.     End If
  27415.     ' Delete the repeat cache note
  27416.     If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = CTX_REPEAT_MSG) Then
  27417.         ' We have to update the repeat instances after performing the action
  27418.         Call CSDocSaveRepeatingEntry(vBEObject)
  27419.         Dim profile As notesdocument
  27420.         Set profile = note.parentdatabase.getprofiledocument("RepeatCache")
  27421.         Call profile.remove(True)
  27422.     End If
  27423. End Sub
  27424. '++LotusScript Development Environment:2:1:ParseURLForCalDate:1:8
  27425. Function ParseURLForCalDate(strURL As String) As NotesDateTime
  27426.     ' this will return an empty date/time object is the URL does not contain the info we need
  27427.     Dim session As New notessession    
  27428.     Dim intl As NotesInternational
  27429.     Dim nPos As Integer
  27430.     Dim strDate As String
  27431.     Dim strYear As String
  27432.     Dim strMonth As String
  27433.     Dim strDay As String
  27434.     Dim strSep As String
  27435.     strDate = ParseQueryStringForEntry(strURL, "&Date=")
  27436.     If Len(strDate) = 0 Then Exit Function
  27437.     Set intl = session.International
  27438.     strSep = intl.DateSep
  27439.     strYear = Strleft(strDate, "-")
  27440.     strDate = Strright(strDate,"-")
  27441.     strMonth = Strleft(strDate,"-")
  27442.     strDay = Strright(strDate,"-")
  27443.     If (intl.IsDatedmy) Then
  27444.         Set ParseURLForCalDate = New notesdatetime(strDay & strSep & strMonth & strSep & strYear)
  27445.     Elseif (intl.Isdatemdy) Then
  27446.         Set ParseURLForCalDate = New notesdatetime(strMonth & strSep & strDay & strSep & strYear)
  27447.     Elseif (intl.isdateymd) Then    
  27448.         Set ParseURLForCalDate = New notesdatetime(strYear & strSep & strMonth & strSep & strDay)
  27449.     End If
  27450. End Function
  27451. '++LotusScript Development Environment:2:1:ParseQueryStringForEntry:1:8
  27452. Function ParseQueryStringForEntry(strQueryString As String, strKey As String) As String
  27453.     Dim nPos As Integer, nTotalLength As Integer, nKeyLength As Integer, nNextPos As Integer
  27454.     nTotalLength = Len(strQueryString)
  27455.     nKeyLength = Len(strKey)
  27456.     If nTotalLength = 0 Or nKeyLength = 0 Then Exit Function
  27457.     'find the first occurence of the variable
  27458.     nPos = Instr(strQueryString, strKey)
  27459.     If (nPos = 0) Then Exit Function
  27460.     ' See if the is a parameter after this one
  27461.     nNextPos = Instr(nPos+1, "&", strQueryString)
  27462.     If (nNextPos = 0) Then
  27463.         ParseQueryStringForEntry = Mid$(strQueryString, nPos+nKeyLength, nTotalLength - nPos)
  27464.     Else
  27465.         ParseQueryStringForEntry = Mid$(strQueryString, nPos+nKeyLength, nNextPos)        
  27466.     End If
  27467. End Function
  27468. Lotus Product
  27469.     x    x    
  27470. O=Lotus Notes
  27471. O=Lotus Notes
  27472. PURSAFO
  27473. |.:#U
  27474. O=Lotus Notes
  27475. CN=Lotus Notes Template Development/O=Lotus Notes
  27476. PURSAFO
  27477. $TITLE
  27478. $PublicAccess
  27479. $ScriptLib
  27480. $ScriptLib_O
  27481. 11/12/98 07:09:46 PM Keith Hatfield/CAM/Lotus updated [-Default-]
  27482. 02/19/98 03:51:22 PM Ryan Jansen/Iris updated -Default-
  27483. 12/03/97 01:15:36 AM Ryan Jansen/Iris updated -Default-
  27484. 12/03/97 01:14:22 AM Ryan Jansen/Iris updated [LocalDomainServers]
  27485. 12/03/97 01:14:16 AM Ryan Jansen/Iris updated -Default-
  27486. 12/03/97 01:10:01 AM Ryan Jansen/Iris deleted OtherDomainServers
  27487. 12/03/97 01:07:00 AM Ryan Jansen/Iris updated [LocalDomainServers]
  27488. 12/03/97 01:06:49 AM Ryan Jansen/Iris updated [OtherDomainServers]
  27489. 12/03/97 01:06:45 AM Ryan Jansen/Iris updated [LocalDomainServers]
  27490. 12/03/97 01:06:42 AM Ryan Jansen/Iris updated OtherDomainServers
  27491. 12/03/97 01:06:40 AM Ryan Jansen/Iris updated LocalDomainServers
  27492. 06/21/97 02:00:25 PM Ryan Jansen/Iris updated [OtherDomainServers]
  27493. 06/21/97 02:00:21 PM Ryan Jansen/Iris updated [LocalDomainServers]
  27494. 06/21/97 01:58:41 PM Ryan Jansen/Iris updated [OtherDomainServers]
  27495. 06/21/97 01:58:38 PM Ryan Jansen/Iris added [OtherDomainServers]
  27496. 06/21/97 01:58:30 PM Ryan Jansen/Iris updated [LocalDomainServers]
  27497. 06/21/97 01:58:22 PM Ryan Jansen/Iris added [LocalDomainServers]
  27498. 06/21/97 01:58:08 PM Ryan Jansen/Iris added [-Default-]
  27499. 06/21/97 01:58:00 PM Ryan Jansen/Iris deleted Ryan Jansen/Iris
  27500. 06/21/97 01:57:58 PM Ryan Jansen/Iris updated OtherDomainServers
  27501. -Default-
  27502. LocalDomainServers
  27503. [-Default-]
  27504. [LocalDomainServers]
  27505. [OtherDomainServers]
  27506.