home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 April / DPPCPRO0499.ISO / April / Notes / 50b2wic.exe / DATA1.CAB / NotesDataFilesRequiredDataFiles / mail50.ntf (.txt) < prev    next >
Encoding:
Lotus Notes Storage Facility  |  1998-11-17  |  4.1 MB  |  41,345 lines

Text Truncated. Only the first 1MB is shown below. Download the file for the complete contents.
  1. Mail (R5.0)
  2. #1StdR50Mail
  3. FOLDER_DIRECTORY_OBJECT
  4. Group Calendars|(GroupCalendarFolder)
  5. 0zL*i
  6. :/x@[
  7. e(|a}
  8. ?^pP\
  9. CN=Lotus Notes Template Development/O=Lotus Notes
  10. lWuBwL
  11. CN=Teresa Deane/O=IrisMailFSMail (R5.0)
  12. #1StdR50Mail
  13. ?MailFS4FSJ############################
  14. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  15. ######
  16. actn010.gif34Ci
  17. ?actn010.gif
  18. CN=Oscar Del Pozo Triscon/OU=DUB/O=LotusCN=Daffy Duck/O=WarnerBrosCN=Lotus Notes Template Development/O=Lotus Notes#######
  19. actn011.gif34Ci
  20. ?actn011.gif
  21. CN=Oscar Del Pozo Triscon/OU=DUB/O=LotusCN=Daffy Duck/O=WarnerBrosCN=Lotus Notes Template Development/O=Lotus Notes#######
  22. actn018.gif34Ci
  23. ?actn018.gif
  24. CN=Oscar Del Pozo Triscon/OU=DUB/O=LotusCN=Daffy Duck/O=WarnerBrosCN=Lotus Notes Template Development/O=Lotus Notes#######
  25. actn019.gif34Ci
  26. ?actn019.gif
  27. CN=Oscar Del Pozo Triscon/OU=DUB/O=LotusCN=Daffy Duck/O=WarnerBrosCN=Lotus Notes Template Development/O=Lotus Notes#######
  28. actn023.gif34Ci
  29. ?actn023.gif
  30. CN=Oscar Del Pozo Triscon/OU=DUB/O=LotusCN=Daffy Duck/O=WarnerBrosCN=Lotus Notes Template Development/O=Lotus Notes#######
  31. actn083.gif34Ci
  32. ?actn083.gif
  33. CN=Oscar Del Pozo Triscon/OU=DUB/O=LotusCN=Daffy Duck/O=WarnerBrosCN=Lotus Notes Template Development/O=Lotus Notes#######
  34. act_ADDRESSBOOK.GIFact_ADDRESSBOOKaddress book.GIF
  35. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  36. ##########################################################
  37. completed.GIF
  38. act_completed.GIFact_CSCOMPLETED1
  39. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  40. ##########################################################
  41. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  42. act_COPYINTO.GIFact_COPYINTOcopy into.GIF1#######################################
  43. new.GIF
  44. act_csnew.GIFact_CSNEWDOC1
  45. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  46. owner actions.GIF
  47. act_csowneractions.GIFact_CSOWNERACTIONS1
  48. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  49. act_DELETE.GIFact_DELETEdelete.GIF
  50. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  51. act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONSdelivery options.GIF
  52. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  53. discard changes.GIF
  54. act_discardchanges.GIFact_CSDISCARD1
  55. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  56. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  57. act_EDIT.GIFact_EDITedit.GIF1####################################################
  58. act_FOLDER.GIFact_FOLDERfolder.GIF
  59. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  60. act_FORWARD.GIFact_FORWARDforward.GIF
  61. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  62. insert signature.GIF
  63. act_INSERTSIG.GIFact_INSERTSIG
  64. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  65. ##########################################################
  66. act_MOVEDOWN.GIFact_MOVEDOWNmove down.GIF
  67. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  68. act_MOVEUP.GIFact_MOVEUPmove up.GIF
  69. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  70. act_NEWMAIL.GIFact_NEWMAILnew mail.GIF
  71. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  72. act_NEWMEMO.GIFact_NEWMEMOnew mail.GIF
  73. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  74. act_NEWSTATIONERY.GIFact_NEWSTATIONERYnew.GIF
  75. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
  76. act_NEW.GIFact_NEWnew.GIF
  77. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  78. ok.GIF
  79. act_ok.GIFact_CSOK1
  80. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
  81. participant actions.GIF
  82. act_participantactions.GIFact_CSPARTACTIONS1
  83. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  84. act_RENAME.GIFact_RENAMErename.GIF
  85. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  86. act_REPLY.GIFact_REPLYreply.GIF
  87. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  88. act_SAVEASDRAFT.GIFact_SAVEASDRAFTsave as draft.GIF
  89. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  90. ##########################################################
  91. tx],l
  92. save.GIF
  93. act_save.GIFact_CSSAVE1
  94. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  95. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  96. act_SEND.GIFact_SENDsend.GIF1####################################################
  97. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  98. act_TOOLS.GIFact_TOOLStools.GIF1#################################################
  99. Add Recipients\to new Group Calendar Entry
  100. E4fL3
  101. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  102. IAdd Recipients\to new Group in Address Book|NewGroup
  103. E4f3L
  104. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
  105. anti-beta.gifPrintingMailGraphictrans1.gif
  106. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  107. bBK2T
  108. ?Black.gif
  109. Black.gifBlack
  110. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  111. I,G*i
  112. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  113. Bouncy EarthStdNotesLtr1beta default.gif#####################
  114. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  115. Buck Rogers MailStdNotesLtr2beta default.gif#################
  116. Calendar PickerC34W
  117. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
  118. Calendar SwitcherC34W
  119. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  120. Calendar TitleC34W
  121. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  122. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm1
  123. CalendarEntrySelectorOutlineCalendarEntrySelectorOutline##############################################
  124. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCalendarFS|CalendarFS1#4C
  125. CN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm1
  126. CalendarOutlineCalendarOutline########################################
  127. ##########################################################
  128. ##########################################################
  129. ##########################################################
  130. O=Lotus Notes
  131. O=Lotus Notes
  132. PURSAFO
  133. |.:#U
  134. O=Lotus Notes
  135. CN=Lotus Notes Template Development/O=Lotus Notes
  136. PURSAFO
  137. $ACLDigest
  138. GIF89a
  139. O=Lotus Notes
  140. O=Lotus Notes
  141. PURSAFO
  142. |.:#U
  143. O=Lotus Notes
  144. CN=Lotus Notes Template Development/O=Lotus Notes
  145. PURSAFO
  146. $ImagesWide
  147. $ImagesHigh
  148. $ImageData
  149. $ImageNames
  150. GIF89a
  151. (M&\80$E
  152. O=Lotus Notes
  153. O=Lotus Notes
  154. PURSAFO
  155. |.:#U
  156. O=Lotus Notes
  157. CN=Lotus Notes Template Development/O=Lotus Notes
  158. PURSAFO
  159. $ImagesWide
  160. $ImagesHigh
  161. $ImageData
  162. $ImageNames
  163. GIF89a
  164. O=Lotus Notes
  165. O=Lotus Notes
  166. PURSAFO
  167. |.:#U
  168. O=Lotus Notes
  169. CN=Lotus Notes Template Development/O=Lotus Notes
  170. PURSAFO
  171. $ImagesWide
  172. $ImagesHigh
  173. $ImageData
  174. $ImageNames
  175. GIF89a
  176. O=Lotus Notes
  177. O=Lotus Notes
  178. PURSAFO
  179. |.:#U
  180. O=Lotus Notes
  181. CN=Lotus Notes Template Development/O=Lotus Notes
  182. PURSAFO
  183. $ImagesWide
  184. $ImagesHigh
  185. $ImageData
  186. $ImageNames
  187. GIF89a
  188. !@0`@
  189. O=Lotus Notes
  190. O=Lotus Notes
  191. PURSAFO
  192. |.:#U
  193. O=Lotus Notes
  194. CN=Lotus Notes Template Development/O=Lotus Notes
  195. PURSAFO
  196. $ImagesWide
  197. $ImagesHigh
  198. $ImageData
  199. $ImageNames
  200. GIF89a
  201. O=Lotus Notes
  202. O=Lotus Notes
  203. PURSAFO
  204. |.:#U
  205. O=Lotus Notes
  206. CN=Lotus Notes Template Development/O=Lotus Notes
  207. PURSAFO
  208. $ImagesWide
  209. $ImagesHigh
  210. $ImageData
  211. $ImageNames
  212. GIF89a
  213. U/c:<`#V(
  214. Oa)n3
  215. O=Lotus Notes
  216. O=Lotus Notes
  217. PURSAFO
  218. |.:#U
  219. O=Lotus Notes
  220. CN=Lotus Notes Template Development/O=Lotus Notes
  221. PURSAFO
  222. $ImagesWide
  223. $ImagesHigh
  224. $ImagesColorize
  225. $TITLE
  226. $ImageData
  227. $ImageNames
  228. GIF89a
  229. ___OOO
  230. .!f&a
  231.  JCv2.
  232. O=Lotus Notes
  233. O=Lotus Notes
  234. PURSAFO
  235. |.:#U
  236. O=Lotus Notes
  237. CN=Lotus Notes Template Development/O=Lotus Notes
  238. PURSAFO
  239. $ImagesWide
  240. $ImagesHigh
  241. $ImagesColorize
  242. $ImageData
  243. $ImageNames
  244. $TITLE
  245. $PublicAccess
  246. GIF89a
  247. 0t" &
  248. NGv58
  249. O=Lotus Notes
  250. O=Lotus Notes
  251. PURSAFO
  252. |.:#U
  253. O=Lotus Notes
  254. CN=Lotus Notes Template Development/O=Lotus Notes
  255. PURSAFO
  256.  q>_s3M
  257. $ImagesWide
  258. $ImagesHigh
  259. $ImagesColorize
  260. $TITLE
  261. $ImageData
  262. $ImageNames
  263. $PublicAccess
  264. GIF89a
  265. ___OOO
  266.  1PQK
  267. 01357
  268. i5la+o@B1DFHJ
  269. >=1?M
  270. j:RL{8
  271. O=Lotus Notes
  272. O=Lotus Notes
  273. PURSAFO
  274. |.:#U
  275. O=Lotus Notes
  276. CN=Lotus Notes Template Development/O=Lotus Notes
  277. PURSAFO
  278. E>8W (
  279. 6&#\^
  280. $ImagesWide
  281. $ImagesHigh
  282. $ImagesColorize
  283. $ImageData
  284. $ImageNames
  285. $TITLE
  286. $PublicAccess
  287. GIF89a
  288. bXXQJ
  289. :b,>J
  290. /Y!<FH
  291. LEk40
  292. O=Lotus Notes
  293. O=Lotus Notes
  294. PURSAFO
  295. |.:#U
  296. O=Lotus Notes
  297. CN=Lotus Notes Template Development/O=Lotus Notes
  298. PURSAFO
  299. $ImagesWide
  300. $ImagesHigh
  301. $ImagesColorize
  302. $ImageData
  303. $ImageNames
  304. $TITLE
  305. $PublicAccess
  306. GIF89a
  307. ___OOO
  308. h^/&W@
  309. !#ap=Y"%l`jyj 
  310. .g$:')
  311. oP{3$<{
  312. O=Lotus Notes
  313. O=Lotus Notes
  314. PURSAFO
  315. |.:#U
  316. O=Lotus Notes
  317. CN=Lotus Notes Template Development/O=Lotus Notes
  318. PURSAFO
  319. "BQ4tD_.'
  320. $ImagesWide
  321. $ImagesHigh
  322. $ImagesColorize
  323. $TITLE
  324. $ImageData
  325. $ImageNames
  326. GIF89a
  327. c\")%
  328. )>@8$]! rZd
  329. !=IK~$Qu6
  330. O=Lotus Notes
  331. O=Lotus Notes
  332. PURSAFO
  333. |.:#U
  334. O=Lotus Notes
  335. CN=Lotus Notes Template Development/O=Lotus Notes
  336. PURSAFO
  337. $ImagesWide
  338. $ImagesHigh
  339. $ImagesColorize
  340. $TITLE
  341. $ImageData
  342. $ImageNames
  343. GIF89a
  344. ___OOO
  345. (u3,&
  346. BMb>Q
  347. L"R<HJL
  348. O=Lotus Notes
  349. O=Lotus Notes
  350. PURSAFO
  351. |.:#U
  352. O=Lotus Notes
  353. CN=Lotus Notes Template Development/O=Lotus Notes
  354. PURSAFO
  355. $ImagesWide
  356. $ImagesHigh
  357. $ImagesColorize
  358. $ImageData
  359. $ImageNames
  360. $TITLE
  361. $PublicAccess
  362. GIF89a
  363. `7kB!h=?2R\!rYZ
  364.  /)s69
  365. eV{=JLgOu5
  366. O=Lotus Notes
  367. O=Lotus Notes
  368. PURSAFO
  369. |.:#U
  370. O=Lotus Notes
  371. CN=Lotus Notes Template Development/O=Lotus Notes
  372. PURSAFO
  373. [PfD.7
  374. $ImagesWide
  375. $ImagesHigh
  376. $ImagesColorize
  377. $TITLE
  378. $ImageData
  379. $ImageNames
  380. $PublicAccess
  381. GIF89a
  382. S!t"W
  383. ='h1!K
  384. t#8BD=Gvj_
  385. O=Lotus Notes
  386. O=Lotus Notes
  387. PURSAFO
  388. |.:#U
  389. O=Lotus Notes
  390. CN=Lotus Notes Template Development/O=Lotus Notes
  391. PURSAFO
  392. $ImagesWide
  393. $ImagesHigh
  394. $ImagesColorize
  395. $TITLE
  396. $ImageData
  397. $ImageNames
  398. GIF89a
  399. ___OOO
  400. 9^cE9!f
  401. e^#:DF.XJCt36
  402. O=Lotus Notes
  403. O=Lotus Notes
  404. PURSAFO
  405. |.:#U
  406. O=Lotus Notes
  407. CN=Lotus Notes Template Development/O=Lotus Notes
  408. PURSAFO
  409. $ImagesWide
  410. $ImagesHigh
  411. $ImagesColorize
  412. $TITLE
  413. $ImageData
  414. $ImageNames
  415. GIF89a
  416. ___OOO
  417. 'X5}~
  418. O=Lotus Notes
  419. O=Lotus Notes
  420. PURSAFO
  421. |.:#U
  422. O=Lotus Notes
  423. CN=Lotus Notes Template Development/O=Lotus Notes
  424. PURSAFO
  425. =W*8_?
  426. $ImagesWide
  427. $ImagesHigh
  428. $ImagesColorize
  429. $ImageData
  430. $ImageNames
  431. $TITLE
  432. GIF89a
  433. s;|#HiR
  434. !=5]!8
  435. Y_Kl2#8l
  436. O=Lotus Notes
  437. O=Lotus Notes
  438. PURSAFO
  439. |.:#U
  440. O=Lotus Notes
  441. CN=Lotus Notes Template Development/O=Lotus Notes
  442. PURSAFO
  443. u6>.l
  444. $ImagesWide
  445. $ImagesHigh
  446. $ImagesColorize
  447. $TITLE
  448. $ImageData
  449. $ImageNames
  450. GIF89a
  451. TM)> 6.
  452. {lX4aJ
  453. <FH@bOo2#
  454. O=Lotus Notes
  455. O=Lotus Notes
  456. PURSAFO
  457. |.:#U
  458. O=Lotus Notes
  459. CN=Lotus Notes Template Development/O=Lotus Notes
  460. PURSAFO
  461. $ImagesWide
  462. $ImagesHigh
  463. $ImagesColorize
  464. $TITLE
  465. $ImageData
  466. $ImageNames
  467. GIF89a
  468. ___OOO
  469. pE9p]j
  470. aQQ@C 
  471. 8DFHJl3
  472. O=Lotus Notes
  473. O=Lotus Notes
  474. PURSAFO
  475. |.:#U
  476. O=Lotus Notes
  477. CN=Lotus Notes Template Development/O=Lotus Notes
  478. PURSAFO
  479. h@S09
  480. $ImagesWide
  481. $ImagesHigh
  482. $ImagesColorize
  483. $TITLE
  484. $ImageData
  485. $ImageNames
  486. GIF89a
  487. ___OOO
  488. pE9p]j
  489. aQQ@C 
  490. 8DFHJl3
  491. O=Lotus Notes
  492. O=Lotus Notes
  493. PURSAFO
  494. |.:#U
  495. O=Lotus Notes
  496. CN=Lotus Notes Template Development/O=Lotus Notes
  497. PURSAFO
  498.  p3Hi
  499. $ImagesWide
  500. $ImagesHigh
  501. $ImagesColorize
  502. $TITLE
  503. $ImageData
  504. $ImageNames
  505. GIF89a
  506. ___OOO
  507.  1PQK
  508. 01357
  509. i5la+o@B1DFHJ
  510. >=1?M
  511. j:RL{8
  512. O=Lotus Notes
  513. O=Lotus Notes
  514. PURSAFO
  515. |.:#U
  516. O=Lotus Notes
  517. CN=Lotus Notes Template Development/O=Lotus Notes
  518. PURSAFO
  519. $ImagesWide
  520. $ImagesHigh
  521. $ImagesColorize
  522. $TITLE
  523. $ImageData
  524. $ImageNames
  525. GIF89a
  526. ___OOO
  527.  1PQK
  528. 01357
  529. i5la+o@B1DFHJ
  530. >=1?M
  531. j:RL{8
  532. O=Lotus Notes
  533. O=Lotus Notes
  534. PURSAFO
  535. |.:#U
  536. O=Lotus Notes
  537. CN=Lotus Notes Template Development/O=Lotus Notes
  538. PURSAFO
  539. $ImagesWide
  540. $ImagesHigh
  541. $ImagesColorize
  542. $TITLE
  543. $ImageData
  544. $ImageNames
  545. GIF89a
  546. ___OOO
  547. g;}QS pW/
  548. O9GIfMst
  549. O=Lotus Notes
  550. O=Lotus Notes
  551. PURSAFO
  552. |.:#U
  553. O=Lotus Notes
  554. CN=Lotus Notes Template Development/O=Lotus Notes
  555. PURSAFO
  556. $ImagesWide
  557. $ImagesHigh
  558. $ImagesColorize
  559. $ImageData
  560. $ImageNames
  561. $TITLE
  562. $PublicAccess
  563. GIF89a
  564. ___OOO
  565. qE1kr%
  566. 0mVi46
  567. *m.AOC Y
  568. mRw7`
  569. O=Lotus Notes
  570. O=Lotus Notes
  571. PURSAFO
  572. |.:#U
  573. O=Lotus Notes
  574. CN=Lotus Notes Template Development/O=Lotus Notes
  575. PURSAFO
  576. $ImagesWide
  577. $ImagesHigh
  578. $ImagesColorize
  579. $ImageData
  580. $ImageNames
  581. $TITLE
  582. $PublicAccess
  583. GIF89a
  584. )*  (
  585. (P!1I$
  586. tC`ac],:N=_RoV
  587. WOQ)+
  588. {/8EGIKDr3
  589. O=Lotus Notes
  590. O=Lotus Notes
  591. PURSAFO
  592. |.:#U
  593. O=Lotus Notes
  594. CN=Lotus Notes Template Development/O=Lotus Notes
  595. PURSAFO
  596. 9~9^e
  597. xUS's7
  598. $ImagesWide
  599. $ImagesHigh
  600. $ImagesColorize
  601. $TITLE
  602. $ImageData
  603. $ImageNames
  604. GIF89a
  605. ___OOO
  606. t-@3"
  607. '     C%
  608. I1`G    q\=
  609. O=Lotus Notes
  610. O=Lotus Notes
  611. PURSAFO
  612. |.:#U
  613. O=Lotus Notes
  614. CN=Lotus Notes Template Development/O=Lotus Notes
  615. PURSAFO
  616. $ImagesWide
  617. $ImagesHigh
  618. $ImagesColorize
  619. $TITLE
  620. $ImageData
  621. $ImageNames
  622. GIF89a
  623. ___OOO
  624. A*;8$
  625. \vDe    ]
  626. O=Lotus Notes
  627. O=Lotus Notes
  628. PURSAFO
  629. |.:#U
  630. O=Lotus Notes
  631. CN=Lotus Notes Template Development/O=Lotus Notes
  632. PURSAFO
  633. $ImagesWide
  634. $ImagesHigh
  635. $ImagesColorize
  636. $TITLE
  637. $ImageData
  638. $ImageNames
  639. GIF89a
  640. @B$`)
  641. eM! c:<~(&
  642. O=Lotus Notes
  643. O=Lotus Notes
  644. PURSAFO
  645. |.:#U
  646. O=Lotus Notes
  647. CN=Lotus Notes Template Development/O=Lotus Notes
  648. PURSAFO
  649. !fl&i
  650. $ImagesWide
  651. $ImagesHigh
  652. $ImagesColorize
  653. $ImageData
  654. $ImageNames
  655. $TITLE
  656. $PublicAccess
  657. GIF89a
  658. ___OOO
  659. m[QNK
  660. \#& 3
  661.  QFv4#
  662. O=Lotus Notes
  663. O=Lotus Notes
  664. PURSAFO
  665. |.:#U
  666. O=Lotus Notes
  667. CN=Lotus Notes Template Development/O=Lotus Notes
  668. PURSAFO
  669. $ImagesWide
  670. $ImagesHigh
  671. $ImagesColorize
  672. $TITLE
  673. $ImageData
  674. $ImageNames
  675. $PublicAccess
  676. GIF89a
  677. ___OOO
  678. ]b\QK
  679. :7->C%!
  680. KMFop
  681. O=Lotus Notes
  682. O=Lotus Notes
  683. PURSAFO
  684. |.:#U
  685. O=Lotus Notes
  686. CN=Lotus Notes Template Development/O=Lotus Notes
  687. PURSAFO
  688. 4fQwo
  689. $ImagesWide
  690. $ImagesHigh
  691. $ImagesColorize
  692. $TITLE
  693. $ImageData
  694. $ImageNames
  695. $PublicAccess
  696. '++LotusScript Development Environment:2:5:(Options):0:74
  697. Option Public
  698. Use "CommonUI"
  699. '++LotusScript Development Environment:2:5:(Forward):0:1
  700. Declare Sub Initialize
  701. '++LotusScript Development Environment:2:5:(Declarations):0:10
  702. 'Untitled: 
  703. '++LotusScript Development Environment:2:2:Initialize:1:10
  704. Sub Initialize
  705.     Dim newnote As notesdocument
  706.     Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
  707.     Call DisplayGroupCalendarDlg(newnote, True)    
  708. End Sub
  709. O=Lotus Notes
  710. O=Lotus Notes
  711. PURSAFO
  712. |.:#U
  713. O=Lotus Notes
  714. CN=Lotus Notes Template Development/O=Lotus Notes
  715. PURSAFO
  716. $TITLE
  717. $AssistType
  718. $AssistLastRun
  719. $AssistDocCount
  720. $AssistFlags
  721. $AssistTrigger
  722. $AssistInfo
  723. $AssistQuery
  724. $AssistAction
  725. $AssistAction_Ex
  726. '++LotusScript Development Environment:2:5:(Options):0:74
  727. Use "Common"
  728. Option Declare
  729. '++LotusScript Development Environment:2:5:(Forward):0:1
  730. Declare Class AddToGroupStringTable
  731. Declare Class GroupHelperLauncher As BaseApplication
  732. Declare Sub Initialize
  733. '++LotusScript Development Environment:2:5:(Declarations):0:10
  734. 'Add Recipients\to New Group in Address Book|NewGroup: 
  735. Class AddToGroupStringTable
  736.     Function GetString(nIndex As Integer, vData As Variant) As String
  737.         Select Case nIndex
  738.         Case 1
  739.             GetString = "Rename target group"
  740.         Case 2
  741.             GetString = "Replace existing group with new group"
  742.         Case 3
  743.             GetString = "Append selected member(s) to existing group member(s)"
  744.         Case 4
  745.             GetString = "A group by this name is already defined. "
  746.         Case 5
  747.             GetString = "Please select the desired action"
  748.         Case 6 
  749.             GetString = "Please enter new group name"
  750.         Case  7
  751.             GetString = "Lotus Notes"
  752.         Case 8
  753.             GetString = "-Untitled-"
  754.         Case 9 
  755.             GetString = "Add recipients to new group"
  756.         End Select
  757.     End Function        
  758. End Class
  759. Class GroupHelperLauncher As BaseApplication
  760.     Private GroupHelperStringTable As AddToGroupStringTable    
  761.     Private uiws As notesuiworkspace
  762.     Private dbLocalAddressBook As notesdatabase
  763.     Private viewGroup As notesview
  764.     Private m_collection As notesdocumentcollection
  765.     Private noteOptions As notesdocument    
  766.     Private noteCandidate As notesdocument        
  767.     Private noteGroupEntry As notesdocument
  768.     Private m_vUserDomain As Variant
  769.     Private strTrimmedList As Variant                
  770.     Private m_strRecipientArray As Variant
  771.     Private nSuccess As Integer        
  772.     Private nEntryNumber As Integer        
  773. '//Public Subs and Functions
  774. Declare Public Sub Init()
  775. Declare Public Function ProcessCandidates()
  776. Declare Private Function CreateNABEnrty()
  777. Declare Private Function AppendDomain(EmailAddessArray As Variant) As Variant
  778. Declare Private Function OptimizeAddressArray(EmailAddress As Variant) As Variant
  779. Declare Private Function RemoveDuplicates(strArray As Variant) As Variant
  780. '//Init//
  781.     Sub Init()
  782.         Set GroupHelperStringTable = New AddToGroupStringTable    
  783.         Set Me.m_collection = GroupHelperLauncher..DocumentsToProcess
  784.         If Not Me.m_collection.count > 0 Then
  785.             Exit Sub
  786.         End If
  787.         Set Me.uiws = New notesuiworkspace
  788.         Me.m_vUserDomain = Evaluate(|@Domain|)
  789.         Set Me.dbLocalAddressBook = GroupHelperLauncher..LocalAddressBook
  790.         Set noteOptions = m_db.CreateDocument
  791.     End Sub
  792.     Function ProcessCandidates()
  793.         Set noteCandidate = m_collection.getfirstdocument
  794.         While Not noteCandidate Is Nothing
  795.             If Not Isarray(Me.m_strRecipientArray) Then
  796.                 Redim Me.m_strRecipientArray(0)
  797.                 Me.m_strRecipientArray(0) = ""
  798.             Else
  799.                 nEntryNumber = nEntryNumber + 1                            
  800.             End If
  801.             If noteCandidate.hasitem("SendTo") And Len(noteCandidate.SendTo(0)) Then
  802.                 Me.m_strRecipientArray = Arrayappend(Me.m_strRecipientArray,AppendDomain(noteCandidate.SendTo))  
  803.             End If
  804.             If noteCandidate.hasitem("CopyTo") And Len(noteCandidate.CopyTo(0)) Then
  805.                 Me.m_strRecipientArray = Arrayappend(Me.m_strRecipientArray,AppendDomain(noteCandidate.CopyTo))
  806.             End If
  807.             If noteCandidate.hasitem("BlindCopyTo") And Len(noteCandidate.BlindCopyTo(0)) Then
  808.                 Me.m_strRecipientArray = Arrayappend(Me.m_strRecipientArray,AppendDomain(noteCandidate.BlindCopyTo))
  809.             End If
  810.             Set noteCandidate = m_collection.getnextDocument(noteCandidate)        
  811.         Wend
  812.         strTrimmedList = RemoveDuplicates(OptimizeAddressArray(Me.m_strRecipientArray))
  813.         Call noteOptions.replaceitemvalue("AllAddresses",strTrimmedList)
  814.         nSuccess = uiws.dialogbox("(GroupHelper)",True,True,False,False,False,False,_
  815.         GroupHelperStringTable.GetString(9,Null),noteOptions,True,False)
  816.         If nSuccess Then 
  817.             Call CreateNABEnrty()        
  818.         End If
  819.     End Function
  820.     Private Function AppendDomain(EmailAddessArray As Variant) As Variant
  821.         If Me.noteCandidate.hasitem("FromDomain") Then
  822.             If Len(Me.noteCandidate.FromDomain(0)) Then
  823.                 Dim x As Integer
  824.                 For x = 0 To Ubound(EmailAddessArray)
  825.                     If Not EmailAddessArray(x) = "" And Not Isnull(EmailAddessArray(x)) Then
  826.                         If Not Me.m_vUserDomain(0) = noteCandidate.FromDomain(0) Then
  827.                             EmailAddessArray(x) =  EmailAddessArray(x) & "@" & noteCandidate.FromDomain(0)
  828.                         End If
  829.                     End If
  830.                 Next
  831.             End If
  832.         End If
  833.         AppendDomain = EmailAddessArray
  834.     End Function
  835.     Private Function OptimizeAddressArray(EmailAddress As Variant) As Variant
  836.         On Error Goto TRAP        
  837.         If Isarray(EmailAddress) Then
  838.             Dim x As Integer
  839.             Dim vTempName As Variant
  840.             For x = 0 To Ubound(EmailAddress)
  841.                 If Not EmailAddress(x) = "" Or Not Isnull(EmailAddress(x)) Then
  842.                     vTempName = Evaluate(|@OptimizeMailAddress("| & EmailAddress(x) &|")|)
  843.                     EmailAddress(x) = vTempName(0)
  844.                 End If
  845.             Next
  846.         Else
  847.             EmailAddress = Evaluate(|@OptimizeMailAddress("| & EmailAddress &|")|)
  848.         End If
  849.         OptimizeAddressArray = EmailAddress
  850.         Exit Function
  851. TRAP:
  852.         vTempName(0) = EmailAddress(x)
  853.         Resume Next
  854.     End Function
  855.     Function RemoveDuplicates(strArray As Variant) As Variant
  856.         Dim x As Integer        
  857.         Dim y As Integer        
  858.         Dim tmpstrArray() As String        
  859.         Redim tmpstrArray(0)
  860.         For x = 0 To Ubound(strArray)        
  861.             If Isnull(Arraygetindex(tmpstrArray,strArray(x),1)) Then    
  862.                 tmpstrArray(y) = strArray(x)
  863.                 y = y+1                
  864.                 Redim Preserve tmpstrArray(y)
  865.             End If
  866.         Next
  867.         RemoveDuplicates = Fulltrim(tmpstrArray)
  868.     End Function
  869.     Function CreateNABEnrty()
  870.         Set Me.viewGroup = Me.dbLocalAddressBook.GetView("($PeopleGroupsFlat)")        
  871.         Set Me.noteGroupEntry = Me.viewGroup.Getdocumentbykey(noteOptions.GroupName(0),True)
  872.         If Me.noteGroupEntry Is Nothing Then
  873.             '// this is a new group and we'll just populate it
  874.             Set Me.noteGroupEntry = Me.dbLocalAddressBook.createdocument
  875.             With Me.noteGroupEntry
  876.                 Call .replaceitemvalue("Form","Group")
  877.                 Call .replaceitemvalue("Type","Group")
  878.                 Call .replaceitemvalue("ListName",noteOptions.GroupName)
  879.                 Call .replaceitemvalue("GroupType",noteOptions.GroupType)
  880.                 Call .replaceitemvalue("ListDescription", noteOptions.Description)
  881.                 Call .replaceitemvalue("Members", noteOptions.SelectedGroupMembers)
  882.                 Call .save(True,True,True)
  883.             End With
  884.         Else
  885.             '// this group is already in the NAB, so lets see what they want to do!
  886.             Dim m_Options(2) As String
  887.             Dim m_strResponse As String
  888.             m_Options(0) = GroupHelperStringTable.GetString(1,Null)
  889.             m_Options(1) = GroupHelperStringTable.GetString(2,Null)
  890.             m_Options(2) = GroupHelperStringTable.GetString(3,Null)
  891.             m_strResponse = uiws.Prompt(prompt_okcancellist,_
  892.             GroupHelperStringTable.GetString(7,Null),_
  893.             GroupHelperStringTable.GetString(4,Null) & Chr(13) & _
  894.             GroupHelperStringTable.GetString(5,Null),_
  895.             m_Options(0), m_Options)
  896.             Select Case m_strResponse
  897.             Case m_Options(0)
  898.                 'get new group string name from user
  899.                 Dim strtmpGroupString As String
  900.                 strtmpGroupString = Inputbox(GroupHelperStringTable.GetString(6,Null),_
  901.                 GroupHelperStringTable.GetString(7,Null),_
  902.                 GroupHelperStringTable.GetString(8,Null))
  903.                 Call noteOptions.replaceitemvalue("GroupName",strtmpGroupString) 
  904.                 Call CreateNABEnrty()
  905.             Case m_Options(1)
  906.                 'replace the members
  907.                 With Me.noteGroupEntry
  908.                     Call .replaceitemvalue("GroupType",noteOptions.GroupType)
  909.                     Call .replaceitemvalue("Members", noteOptions.SelectedGroupMembers)
  910.                     Call .save(True,True,True)
  911.                 End With
  912.             Case m_Options(2)
  913.                 'append the members to the list (check for unique entries)                    
  914.                 With Me.noteGroupEntry
  915.                     noteOptions.SelectedGroupMembers = RemoveDuplicates(OptimizeAddressArray(_
  916.                     Arrayappend(noteOptions.SelectedGroupMembers, .Members)))                    
  917.                     Call .replaceitemvalue("Members", noteOptions.SelectedGroupMembers)
  918.                     Call .save(True,True,True)
  919.                 End With
  920.             End Select
  921.         End If
  922.     End Function
  923. End Class
  924. '++LotusScript Development Environment:2:2:Initialize:1:10
  925. Sub Initialize
  926.     Dim copyfunction As New GroupHelperLauncher
  927.     Call copyfunction.init()
  928.     Call copyfunction.ProcessCandidates()
  929. End Sub
  930. Lotus Product
  931. O=Lotus Notes
  932. O=Lotus Notes
  933. PURSAFO
  934. |.:#U
  935. O=Lotus Notes
  936. CN=Lotus Notes Template Development/O=Lotus Notes
  937. PURSAFO
  938. 5D:,(
  939. 6"d|H
  940. =HutX
  941. $TITLE
  942. $AssistType
  943. $AssistLastRun
  944. $AssistDocCount
  945. $AssistFlags
  946. $AssistTrigger
  947. $AssistInfo
  948. $AssistQuery
  949. $AssistAction
  950. $AssistAction_Ex
  951. GIF89ah
  952. fffff3ff
  953. 3ff3f33f
  954. f3ff33f3
  955. 33f33333
  956. ncj(f
  957. O=Lotus Notes
  958. O=Lotus Notes
  959. PURSAFO
  960. |.:#U
  961. O=Lotus Notes
  962. CN=Lotus Notes Template Development/O=Lotus Notes
  963. PURSAFO
  964. $ImagesWide
  965. $ImagesHigh
  966. $ImagesColorize
  967. $TITLE
  968. $ImageData
  969. $ImageNames
  970. GIF89ad
  971. (8HXhx
  972. O=Lotus Notes
  973. O=Lotus Notes
  974. PURSAFO
  975. |.:#U
  976. O=Lotus Notes
  977. CN=Lotus Notes Template Development/O=Lotus Notes
  978. PURSAFO
  979. $ImagesWide
  980. $ImagesHigh
  981. $ImageData
  982. $ImageNames
  983. $TITLE
  984. (GIF89a
  985. <a>7`^///""
  986. #6dhP
  987. P6=q$)C9
  988. )"N b
  989. K g&<.
  990. Bh}/n
  991. ;lx-u7
  992. AQiN+
  993. 0;y!Wf
  994. y`6A9
  995. Lro&B
  996. S*i `
  997. Fnl~U
  998. ,R$R<
  999. D0od_
  1000. QqI3b
  1001. U!kNP
  1002. @%7F!
  1003. dHGe    
  1004. {L%qH1SG3
  1005. >+2w=7#qg
  1006. {93 $w
  1007. Qa4Ts
  1008. w{uW>
  1009. (sr.0
  1010. tM#E`
  1011. Y~a{t
  1012. "<4J5uR
  1013. !!Fz`R
  1014. ?ZVqv
  1015. D&2xb
  1016. #9}Wd
  1017. T!.`s
  1018. jX'TM
  1019. =BOYo
  1020. U41eB4
  1021. ;2; u
  1022. vrKJ(
  1023. =6Y3'
  1024. A%%L1S\
  1025. A:j^L
  1026. FY6.]=
  1027. c-rrF
  1028. y$l1dM
  1029. J-I)?
  1030. [*"-|
  1031. Q#~**
  1032. =/"+Q
  1033. EYF%"
  1034. -zI1q
  1035. F    >dJ7
  1036. hYk2?
  1037. $5xc05
  1038. Su!+0
  1039. D]rtz
  1040. O=Lotus Notes
  1041. O=Lotus Notes
  1042. PURSAFO
  1043. |.:#U
  1044. O=Lotus Notes
  1045. CN=Lotus Notes Template Development/O=Lotus Notes
  1046. PURSAFO
  1047. b9%;t
  1048. $ImagesWide
  1049. $ImagesHigh
  1050. $ImagesColorize
  1051. $TITLE
  1052. $ImageData
  1053. $ImageNames
  1054. (GIF89a
  1055. <a>7`^///""
  1056. #6dhP
  1057. P6=q$)C9
  1058. )"N b
  1059. K g&<.
  1060. Bh}/n
  1061. ;lx-u7
  1062. AQiN+
  1063. 0;y!Wf
  1064. y`6A9
  1065. Lro&B
  1066. S*i `
  1067. Fnl~U
  1068. ,R$R<
  1069. D0od_
  1070. QqI3b
  1071. U!kNP
  1072. @%7F!
  1073. dHGe    
  1074. {L%qH1SG3
  1075. >+2w=7#qg
  1076. {93 $w
  1077. Qa4Ts
  1078. w{uW>
  1079. (sr.0
  1080. tM#E`
  1081. Y~a{t
  1082. "<4J5uR
  1083. !!Fz`R
  1084. ?ZVqv
  1085. D&2xb
  1086. #9}Wd
  1087. T!.`s
  1088. jX'TM
  1089. =BOYo
  1090. U41eB4
  1091. ;2; u
  1092. vrKJ(
  1093. =6Y3'
  1094. A%%L1S\
  1095. A:j^L
  1096. FY6.]=
  1097. c-rrF
  1098. y$l1dM
  1099. J-I)?
  1100. [*"-|
  1101. Q#~**
  1102. =/"+Q
  1103. EYF%"
  1104. -zI1q
  1105. F    >dJ7
  1106. hYk2?
  1107. $5xc05
  1108. Su!+0
  1109. D]rtz
  1110. O=Lotus Notes
  1111. O=Lotus Notes
  1112. PURSAFO
  1113. |.:#U
  1114. O=Lotus Notes
  1115. CN=Lotus Notes Template Development/O=Lotus Notes
  1116. PURSAFO
  1117. "quvP!
  1118. $ImagesWide
  1119. $ImagesHigh
  1120. $ImagesColorize
  1121. $TITLE
  1122. $ImageData
  1123. $ImageNames
  1124. (GIF89a
  1125. ?_?__
  1126. `!b`1
  1127. 7`^///?
  1128. ?b___
  1129. `bOOO
  1130. `<b!R
  1131. ~4!Q3
  1132. qo~+\
  1133. {'?E)4
  1134. \t*Ue
  1135. `c7A_
  1136. hqdQ4
  1137. /v[>P
  1138. 7N_wc
  1139. ehwwt
  1140. `=uebh
  1141. cdx]N7    ]
  1142. qb(P8g
  1143. yZheh
  1144. wx    Y}G
  1145. gY6qW
  1146. Yavyq
  1147. Y^ZXyy
  1148. bs8    \
  1149. wvyX^
  1150. &v~7NO(
  1151. 6AISQ?>jY/f
  1152. 1bL[a
  1153. Gz1E*
  1154.  2}YG
  1155. )@{0U
  1156. 0\O]|
  1157. #0\@/
  1158. e&S K
  1159. !D,~tP0
  1160. Ts7=;
  1161. s@1*6J
  1162. (mcUQ
  1163. !D,lB
  1164. I"dFX
  1165. P}`F*
  1166. jkb!V
  1167. Z*8yNW
  1168. `/W_7.
  1169. _QT&[
  1170. FC(?J
  1171. 6z+-Aq
  1172. )X1X1
  1173. $u    /0
  1174. L(3,A
  1175. *0.{?
  1176. +lJC|
  1177. 3ZX/IL
  1178. r\EuY
  1179. TYH_\
  1180. \Fa#=V
  1181. K4jTI
  1182. @rMT4
  1183. \&Pe0
  1184. P#-Pl
  1185. H'8Sp
  1186. /8a%u
  1187. nT(PT
  1188. R)Rl6
  1189. @Kh)u@
  1190. Z<uaKNQ(
  1191. }    `Y@~
  1192. bM~t1}
  1193. &9uGi
  1194. w->sQKIm
  1195. ^73P`
  1196. $TCqUM#`b
  1197. yDX*X
  1198. i'4^-#
  1199. Lo7 e
  1200. Nm*(]\
  1201. dTP{z
  1202. CY&YB
  1203. a[f=Z/;
  1204. &p".$
  1205.  a    gD
  1206. dB'v".(
  1207. &\E&,
  1208. (R2-S
  1209. 'hB.\
  1210. #L(%:
  1211. 8C/X(&8C
  1212. i(ha(
  1213. X|mB`
  1214. ^dVYn
  1215. , 3q3
  1216. 4V;4eo
  1217. %iDv/
  1218. -S"Q:
  1219. 8O74c:
  1220. $^{G7
  1221. &}"-@
  1222. yex$J
  1223. .a/*{
  1224. -yS/3
  1225. U7ebq
  1226. lYh4l
  1227. wIdFV2
  1228. >IUh"
  1229. x)!u[\L
  1230. 30BJN
  1231. Tj$4|B 
  1232. 6&#DA
  1233. B"tmW
  1234. j*qEu
  1235. :Pt(Z.-
  1236. f=wO8(U
  1237. .mjAp=
  1238. Ua.8b
  1239. L7Wcn
  1240. !4""KCVu
  1241. Bs?Du
  1242. 0ta'u\
  1243. 7L+$W
  1244. }8-"vp
  1245. DN!1X
  1246. G(=/Sn
  1247. m~O8r
  1248. YT7-*
  1249. 7=<K1
  1250. aK`Gj    
  1251. W(n0u$
  1252. T-TL%
  1253. B|!Y-    l}
  1254. R$qPa
  1255. b+Oh"P
  1256. ^='x&
  1257. AS"M]
  1258. Z#%pI
  1259. dXe =
  1260. fJ=I~
  1261. p"Uomw_
  1262. ddH^&
  1263. TvO1WRg
  1264. QRWD.
  1265. &y{MaD
  1266. &q.v}
  1267. H$2MBaC
  1268. YL"IGT
  1269. ^6m/c
  1270. wV**i
  1271. K0#QJ
  1272. 0(}/Q
  1273. `P9$zE
  1274. [c/(s
  1275. AM$bc
  1276. XURfR
  1277. Bw|WOd
  1278. $N&SSl
  1279. 0k2FdB
  1280. p>C2-$A9
  1281. nF w%
  1282. Y2VC6h)
  1283. 5qC@b8
  1284. gtf,a
  1285. X}Xm 
  1286. 1kf2 F4'
  1287. $21&7
  1288. 2*zQAMAo
  1289. 5!:WzP8[g
  1290. 9sx+b
  1291. {dx3s
  1292. qz!A&
  1293. ,I31+
  1294. oRP a
  1295. Rg[$Q#e
  1296. ,QK>9
  1297. C8!-CG
  1298. h7a}N%
  1299. NC;";
  1300. })Af1!
  1301. >@qzD
  1302. Q[1Ad 
  1303. 9ie[S
  1304. q0/q#
  1305. 2;kQd
  1306. =ALG2
  1307. kN8[3{C-
  1308. VG}<(
  1309. ?K;F]O3
  1310. 0QW6M
  1311. 2z\[O
  1312. 3e}N=
  1313. XG3    c
  1314. N*    (W
  1315. {WOdm
  1316. u^fWb1
  1317. &=q{s
  1318. 1ItvZ
  1319. /\AO`
  1320. hh2kb@
  1321. !9s.lC
  1322. I9.vm
  1323. .5E)E\
  1324. ^PlQ`
  1325. O`{I8>
  1326. \iJ`_
  1327. 9<|2(
  1328. 5S7g"
  1329. xJws78Z
  1330. @94;-
  1331. |j9)l
  1332. e9)TLv
  1333. 4v7\x
  1334. +:y^=
  1335. e\NKZ
  1336. 'H    RI
  1337. &iS&`
  1338. nS    T 
  1339. |BcZV
  1340. "TjS,T
  1341. WY[7m
  1342. CLZ1c
  1343. %t!Xp%(
  1344. xgRtfF
  1345.     ":f.
  1346. GW    {Z
  1347. {eU8R
  1348. JXOuK
  1349. '!yHGp4
  1350. /(    `H
  1351. @c^pSh
  1352. ZWhEGqE
  1353. !WNBR
  1354. b. 8UL
  1355. jX (!
  1356. mBv"g
  1357. 2$C*    
  1358. C:hC>
  1359. ]D$!0
  1360. :P,)u
  1361. nWx)y
  1362. +8ELj
  1363. >&lymm
  1364. cf'mL
  1365. !$a9~d\
  1366. ,(1Kv
  1367. ~dW))
  1368. y)X1%^
  1369. wwl=fW
  1370. Lotus Product
  1371. Calendar Picker
  1372. CalendarOutline
  1373. CalendarOutlineNotesView
  1374. O=Lotus Notes
  1375. O=Lotus Notes
  1376. PURSAFO
  1377. |.:#U
  1378. O=Lotus Notes
  1379. CN=Lotus Notes Template Development/O=Lotus Notes
  1380. PURSAFO
  1381. $Background
  1382. $Info
  1383. $$Script_O
  1384. $$ScriptName
  1385. $Body
  1386. "Small Fonts
  1387. Lotus Product
  1388. Calendar Switcher
  1389. GIF89a
  1390. ?_?__
  1391. `!b`1
  1392. 7`^///?
  1393. ?b___
  1394. `bOOO
  1395. `<b!R
  1396. ZluxbL6    I
  1397. MailFramesetTARGET="_top"
  1398. MailFS|MailFS
  1399. TodoFramesetTARGET="_top"
  1400. ToDoFS|ToDoFS
  1401. O=Lotus Notes
  1402. O=Lotus Notes
  1403. PURSAFO
  1404. |.:#U
  1405. O=Lotus Notes
  1406. CN=Lotus Notes Template Development/O=Lotus Notes
  1407. PURSAFO
  1408. $Info
  1409. $$Script_O
  1410. $$ScriptName
  1411. $Body
  1412. Lotus Product
  1413. Calendar Title
  1414. calendar
  1415. O=Lotus Notes
  1416. O=Lotus Notes
  1417. PURSAFO
  1418. |.:#U
  1419. O=Lotus Notes
  1420. CN=Lotus Notes Template Development/O=Lotus Notes
  1421. PURSAFO
  1422. Y@x&R9G
  1423. mU8:%y
  1424. $Info
  1425. $$Script_O
  1426. $$ScriptName
  1427. $Body
  1428. Appointment
  1429. AppointmentType
  1430.     3S4S6S11S
  1431. AppointmentType
  1432.     0S1S2S3S
  1433.     0S0E
  1434. Meeting Invitation
  1435. AppointmentType
  1436.     3S4S6S11S
  1437. AppointmentType
  1438.     1S2S3S
  1439.     0S0E
  1440. Anniversary
  1441. AppointmentType
  1442.     3S4S6S11S
  1443. AppointmentType
  1444.     1S2S3S
  1445.     0S0E
  1446. Event
  1447. AppointmentType
  1448.     3S4S6S11S
  1449. AppointmentType
  1450.     1S2S3S
  1451.     0S0E
  1452. Reminder
  1453. AppointmentType
  1454.     3S4S6S11S
  1455. AppointmentType
  1456.     1S2S3S
  1457.     0S0E
  1458. O=Lotus Notes
  1459. O=Lotus Notes
  1460. PURSAFO
  1461. |.:#U
  1462. O=Lotus Notes
  1463. CN=Lotus Notes Template Development/O=Lotus Notes
  1464. PURSAFO
  1465. ixcrt
  1466. $PublicAccess
  1467. $SiteMapList
  1468. Calendar Title
  1469. NotesNavigatorNotesView?
  1470. Calendar Picker?
  1471. Switcher
  1472. Calendar Switcher?
  1473. NotesViewNotesPreview?
  1474. ($Calendar)|Calendar
  1475. NotesPreview
  1476. O=Lotus Notes
  1477. O=Lotus Notes
  1478. PURSAFO
  1479. |.:#U
  1480. O=Lotus Notes
  1481. CN=Lotus Notes Template Development/O=Lotus Notes
  1482. PURSAFO
  1483. $TITLE
  1484. $Comment
  1485. $PublicAccess
  1486. $FrameSet
  1487. $Flags
  1488. Calendar
  1489. ($Calendar)|Calendar
  1490. CalendarH
  1491. Meetings
  1492. ($Meetings)|MeetingsH
  1493. Group Calendars
  1494. Group Calendars|(GroupCalendarFolder)?H
  1495. Trash Bin
  1496. ($SoftDeletions)
  1497. O=Lotus Notes
  1498. O=Lotus Notes
  1499. PURSAFO
  1500. |.:#U
  1501. O=Lotus Notes
  1502. CN=Lotus Notes Template Development/O=Lotus Notes
  1503. PURSAFO
  1504. ymsAz
  1505. xU7F,
  1506. $PublicAccess
  1507. $SiteMapList
  1508. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1509. Centered and BoldStdNotesLtr3beta default.gif################
  1510. ?small clipboard.gifclipboard
  1511. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes1###########################################
  1512. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCommons34Q1##########################################################
  1513. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCommonUIs34Q1#########################################
  1514. CN=William Zircher/O=IrisCN=John Lennon/OU=OrgUnit/O=GAiACN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCoreBEEmailClassess34Q1################
  1515. CN=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 NotesCoreEmailClassess34Q1###########################################
  1516. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCSEventClasss34Q1#####################################
  1517. CSUIDocClasss34Q1
  1518. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  1519. CN=Ryan Jansen/O=IrisCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCSUIViewClasss34Q1##########################################
  1520. C_heck Calendar|Check Calendar
  1521. E41f3
  1522. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  1523. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1#########################################################
  1524. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1525. DeccoStdNotesLtr4beta default.gif############################
  1526. Discussion Threads|Threads/P=3601
  1527. $39$13
  1528. $13YB
  1529. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  1530. DiscussionRoutiness34Q1StdR50Disc
  1531. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1532. ##########################################################
  1533. ?dk+blue+circle(1).gif
  1534. dk+blue+circle(1).gifBlueCircle1
  1535. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  1536. DocumentConversionss34Q1
  1537. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
  1538. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1539. Falling SpheresStdNotesLtr5beta default.gif##################
  1540. 0zL*i
  1541. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1542. First InitialStdNotesLtr6beta default.gif####################
  1543. rtrQU
  1544. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1545. Frank LloydStdNotesLtr7franklloyd3.gif#######################
  1546. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1547. From The DeskStdNotesLtr8beta default.gif####################
  1548. earth2.gif
  1549. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1550. GatewayStdNotesLtrGateway######################################################
  1551. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1552. Geometry StdNotesLtr9beta default.gif########################
  1553. grey gradient w-lines.gif
  1554. Gray Gradient with Lines|StdNotesLtr13
  1555. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  1556. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1557. Green and Yellow DiamondStdNotesLtr14beta default.gif########
  1558. greygirl.GIF34Ci
  1559. CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesgreygirl.GIF1#########################
  1560. Group Calendars|(GroupCalendarFolder)1Group Calendars|(GroupCalendarFolder)z
  1561. Subject
  1562. Subject
  1563. Members
  1564. Subject$106$Conflict
  1565. Subject
  1566. 0SubjectTitle
  1567. Subject
  1568. Subject
  1569. $106Members0
  1570. Members
  1571. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1572. #######################
  1573. GroupCalendarFS|GroupCalendarFS1#4C
  1574. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  1575. GroupSwish.gif34Ci
  1576. ?GroupSwish.gif
  1577. CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes1#####################
  1578. ?leaves.GIF
  1579. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1580. LeavesStdNotesLtr37############
  1581. ?lightning.gif
  1582. Lightning StormStdNotesLtr36
  1583. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  1584.     Mail PickerC34W
  1585. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  1586. Mail SwitcherC34W
  1587. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  1588. Mail TitleC34W
  1589. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  1590. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesMailFS|MailFS#4C##############################
  1591. CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm
  1592. MailOutlineMailOutline###################################
  1593. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1594. MarqueeStdNotesLtr34beta default.gif#########################
  1595. uwr|7
  1596. wFA08095B0A456E77D0A6E075AE87E88BAF5CB9E208931A2E889B51112269D913
  1597. MemoMemo1F
  1598. BodySubjectBlindCopyToEnterBlindCopyToCopyToEnterCopyToSendToEnterSendToReturnReceipttmpSendOptionsDeliveryPriorityDeliveryReportImportanceDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
  1599. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
  1600. metal plate.gif
  1601. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1602. Metal PlateStdNotesLtr15##################################################
  1603. OutOfOffice|OutOfOffice
  1604. CN=William Zircher/O=Iris1Sf3L
  1605. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1606. ##########################################################
  1607. :/x@[
  1608. ?tech.gif
  1609. PCBStdNotesLtr40
  1610. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  1611. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1612. Pencil and GridStdNotesLtr16beta default.gif#################
  1613. T'_fmPk
  1614. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  1615. Plain TextStdNotesLtr0beta default.gif
  1616. ##########################################################
  1617. (GIF89a
  1618. <a>7`^///""
  1619. #6dhP
  1620. P6=q$)C9
  1621. )"N b
  1622. K g&<.
  1623. Bh}/n
  1624. ;lx-u7
  1625. AQiN+
  1626. 0;y!Wf
  1627. y`6A9
  1628. Lro&B
  1629. S*i `
  1630. Fnl~U
  1631. ,R$R<
  1632. D0od_
  1633. QqI3b
  1634. U!kNP
  1635. @%7F!
  1636. dHGe    
  1637. {L%qH1SG3
  1638. >+2w=7#qg
  1639. {93 $w
  1640. Qa4Ts
  1641. w{uW>
  1642. (sr.0
  1643. tM#E`
  1644. Y~a{t
  1645. "<4J5uR
  1646. !!Fz`R
  1647. ?ZVqv
  1648. D&2xb
  1649. #9}Wd
  1650. T!.`s
  1651. jX'TM
  1652. =BOYo
  1653. U41eB4
  1654. ;2; u
  1655. vrKJ(
  1656. =6Y3'
  1657. A%%L1S\
  1658. A:j^L
  1659. FY6.]=
  1660. c-rrF
  1661. y$l1dM
  1662. J-I)?
  1663. [*"-|
  1664. Q#~**
  1665. =/"+Q
  1666. EYF%"
  1667. -zI1q
  1668. F    >dJ7
  1669. hYk2?
  1670. $5xc05
  1671. Su!+0
  1672. D]rtz
  1673. O=Lotus Notes
  1674. O=Lotus Notes
  1675. PURSAFO
  1676. |.:#U
  1677. O=Lotus Notes
  1678. CN=Lotus Notes Template Development/O=Lotus Notes
  1679. PURSAFO
  1680. $ImagesWide
  1681. $ImagesHigh
  1682. $ImagesColorize
  1683. $TITLE
  1684. $ImageData
  1685. $ImageNames
  1686. GIF89a
  1687. ?_?__
  1688. `!b`1
  1689. 7`^///?
  1690. ?b___
  1691. `bOOO
  1692. `<b!R
  1693. G    : P
  1694. ,2zH!<R
  1695. Gq>jbj
  1696. e%k&1
  1697. (+81H
  1698. hX<     
  1699. sv){d1
  1700. i    mzS
  1701. qe]    C
  1702. 5ds {2
  1703. R/6IJ
  1704. ~sD$E
  1705. mqlCX 
  1706. Tj<#n
  1707. <o.MQ
  1708. T0uo.3d
  1709. fYsFg
  1710. CqdQ-
  1711. vsMGMr
  1712. f"'{Vw]
  1713. 6B0H|
  1714. &O.riB
  1715. M}eZN
  1716. 9ckeX
  1717. c(uGr
  1718. S9tv%/
  1719. HS|bY{&i
  1720. SH#*q
  1721. |7+    {
  1722. G F=$v
  1723. B7ikI
  1724. |m>    R
  1725. MHkCe
  1726. %@^0uJ
  1727. Wv(N>}
  1728. O=Lotus Notes
  1729. O=Lotus Notes
  1730. PURSAFO
  1731. |.:#U
  1732. O=Lotus Notes
  1733. CN=Lotus Notes Template Development/O=Lotus Notes
  1734. PURSAFO
  1735. $ImagesWide
  1736. $ImagesHigh
  1737. $ImageData
  1738. $ImageNames
  1739. $TITLE
  1740. $PublicAccess
  1741. '++LotusScript Development Environment:2:5:(Options):0:74
  1742. Option Public
  1743. Option Explicit
  1744. '++LotusScript Development Environment:2:5:(Forward):0:1
  1745. Declare Class BaseApplication
  1746. Declare Class BaseDocument
  1747. Declare Class BaseCSStringTable
  1748. Declare Class BaseEventOwnerStringTable As BaseCSStringTable
  1749. Declare Class MeetingOwnerStringTable As BaseEventOwnerStringTable
  1750. Declare Class TaskOwnerStringTable As BaseEventOwnerStringTable
  1751. Declare Class BaseEventParticipantStringTable As BaseCSStringTable
  1752. Declare Class MeetingParticipantStringTable As BaseEventParticipantStringTable
  1753. Declare Class TaskParticipantStringTable As BaseEventParticipantStringTable
  1754. Declare Class MessageTrackStringTable
  1755. Declare Class MailToolsStringTable
  1756. Declare Class MemoStringTable
  1757. Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
  1758. Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer
  1759. Declare Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
  1760. Declare Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
  1761. Declare Function NAMEGetNumOrgUnits(sName) As Integer
  1762. Declare Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) 
  1763. Declare Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
  1764. Declare Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
  1765. Declare Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
  1766. Declare Function STRGetToken(sValue,sToken) As String
  1767. Declare Function NAMEAbbreviate(vNamesList As Variant) As Variant
  1768. Declare Function TIMEFindInSortedList(vKey As Variant, vTimeList As Variant) As Integer
  1769. Declare Function ARRAYIsValid(vArray As Variant) As Integer
  1770. Declare Function CSGetMailFileOwner() As String
  1771. Declare Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
  1772. Declare Function NOTEUserIsCreator(note As NotesDocument) As Integer
  1773. Declare Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
  1774. Declare Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument) As NotesDocument
  1775. Declare Sub NOTECopyIntoNewMemo(note As notesdocument, newnote As notesdocument)
  1776. Declare Sub NOTECopyIntoNewTodo(note As notesdocument, newnote As notesdocument)
  1777. Declare Sub NOTECopyIntoNewCalendarEntry(note As notesdocument, newnote As notesdocument)
  1778. Declare Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
  1779. Declare Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
  1780. Declare Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
  1781. Declare Sub NOTECopyIntoNewGroupCalendar(note As NotesDocument, newnote As NotesDocument)
  1782. Declare Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
  1783. '++LotusScript Development Environment:2:5:(Declarations):0:10
  1784. %INCLUDE "lsconst.lss"
  1785. %INCLUDE "orgconst.lss"
  1786. Const Enabled = 1
  1787. Const Disabled = 0
  1788. Const Removed = -1
  1789. ' The Base Backend Application class
  1790. Const CLIENT_NOTES = 0
  1791. Const CLIENT_WEB = 1
  1792. Const CLIENT_UNKNOWN = -1
  1793. Class BaseApplication
  1794.  ' Properties
  1795.     m_session As NotesSession  ' pointer to current session object
  1796.     m_db As NotesDatabase    ' pointer to current database
  1797.     m_nClientType As Integer
  1798.     m_stringtable As Variant    ' Reference to a StringTable object        
  1799.     Property Get Session As NotesSession
  1800.         Set Session = m_session
  1801.     End Property
  1802.     Property Get Database As NotesDatabase
  1803.         Set Database = m_db
  1804.     End Property
  1805.     Property Get StringTable As Variant
  1806.         Set StringTable = m_stringtable
  1807.     End Property
  1808.     Property Get DocumentsToProcess As NotesDocumentCollection
  1809.         Set DocumentsToProcess = m_db.UnprocessedDocuments
  1810.     End Property
  1811.     Property Get LocalAddressBook As NotesDatabase
  1812.         Dim sAddressLine As String
  1813.         Dim nPos As Integer
  1814.         sAddressLine = m_session.getenvironmentstring("names",True)
  1815.         If Len(sAddressLine) Then
  1816.             nPos = Instr(sAddressLine,",")
  1817.             If (nPos = 0) Then
  1818.                 Set LocalAddressBook = m_session.GetDatabase("",sAddressLine)
  1819.             Else
  1820.                 Set LocalAddressBook = m_session.GetDatabase("",Left$(sAddressLine,nPos-1))
  1821.             End If
  1822.         Else
  1823.             Set LocalAddressBook = m_session.GetDatabase("","names.nsf")
  1824.         End If
  1825.     End Property
  1826.     Property Get AllAddressBooks As Variant
  1827.         AllAddressBooks = m_session.AddressBooks
  1828.     End Property
  1829.     Property Get AllPrivateAddressBooks As Variant
  1830.         Dim vBooks As Variant
  1831.         Redim vLocalBooks(0) As Variant
  1832.         Dim nCnt As Integer
  1833.         nCnt = 0
  1834.         vBooks = m_session.AddressBooks
  1835.         Forall book In vBooks
  1836.             If Not book.IsPublicAddressBook Then
  1837.                 Set vLocalBooks(nCnt) = book
  1838.                 nCnt = nCnt + 1
  1839.                 Redim Preserve vLocalBooks ( nCnt )
  1840.             End If
  1841.         End Forall
  1842.         If nCnt > 0 Then
  1843.             Redim Preserve vLocalBooks(nCnt-1)
  1844.             AllPrivateAddressBooks = vLocalBooks
  1845.         End If
  1846.     End Property
  1847.     Property Set ClientType As Integer
  1848.         m_nClientType = ClientType
  1849.     End Property
  1850.  ' Methods
  1851.     Sub New
  1852.         Set m_session = New NotesSession
  1853.         Set m_db = m_session.CurrentDatabase
  1854.         m_nClientType = CLIENT_NOTES          
  1855.     End Sub    
  1856.     Function CreateDocument As NotesDocument
  1857.         Set CreateDocument = New NotesDocument(m_db)
  1858.     End Function
  1859. End Class
  1860. Class BaseDocument
  1861.  ' Properties
  1862.     m_note As NotesDocument    ' pointer to backend document
  1863.     m_app As Variant           ' pointer to the backend application; we declare this as variant so that any subclass can be returned
  1864.     m_me As Variant            ' reference to self for rtti; subclasses should set it to "me"
  1865.     m_bWasMailed As Integer   ' Determines if the document was sent; each subclass needs to define a sent document
  1866.     m_bValid As Integer
  1867.     Property Get Document As NotesDocument
  1868.         Set Document = m_note
  1869.     End Property
  1870.     Property Get IsValid As Integer
  1871.         IsValid = m_bValid
  1872.     End Property
  1873.     Property Get IsNew As Integer
  1874.         If (m_bValid) Then
  1875.             IsNew = m_note.IsNewNote
  1876.         Else
  1877.             IsNew = False 
  1878.         End If
  1879.     End Property
  1880.     Property Get Application As Variant
  1881.         Set Application = m_app
  1882.     End Property
  1883.     Property Get WasMailed As Integer
  1884.         WasMailed = m_bWasMailed
  1885.     End Property
  1886.     Property Set WasMailed As Integer
  1887.         m_bWasMailed = WasMailed
  1888.     End Property
  1889.     Property Set AutoSave As Integer
  1890.         If (m_bValid) Then
  1891.             Select Case AutoSave
  1892.             Case Enabled
  1893.                 Call m_note.ReplaceItemValue("SaveOptions","1")
  1894.             Case Disabled
  1895.                 Call m_note.ReplaceItemValue("SaveOptions","0")
  1896.             Case Removed
  1897.                 Call m_note.RemoveItem("SaveOptions")
  1898.             End Select
  1899.         End If
  1900.     End Property
  1901.     Property Set AutoMail As Integer
  1902.         If (m_bValid) Then
  1903.             Select Case AutoMail
  1904.             Case Enabled
  1905.                 Call m_note.ReplaceItemValue("MailOptions","1")
  1906.             Case Disabled
  1907.                 Call m_note.ReplaceItemValue("MailOptions","0")
  1908.             Case Removed
  1909.                 Call m_note.RemoveItem("MailOptions")
  1910.             End Select
  1911.         End If
  1912.     End Property
  1913.     Sub MaintainSecureMail
  1914.         Dim session As NotesSession
  1915.         Set session = m_app.session
  1916.         If (session.GetEnvironmentValue("SecureMail", True)) Then
  1917.             Call m_note.ReplaceItemValue("Sign","1")
  1918.             Call m_note.ReplaceItemValue("Encrypt","1")
  1919.         End If
  1920.     End Sub
  1921.  ' Methods
  1922.     Sub New
  1923.     End Sub
  1924.     Sub Init(note As NotesDocument)
  1925.         If Not(note Is Nothing) Then
  1926.             Set m_note = note
  1927.             m_bValid = True
  1928.             Call m_note.RemoveItem("Mailoptions")
  1929.             Call m_note.RemoveItem("SaveOptions")
  1930.         End If
  1931.     End Sub
  1932.     Sub SetItemValue(sItemName As String, vValue As Variant)
  1933.         Call m_note.ReplaceItemValue(sItemname, vValue)
  1934.     End Sub
  1935.     Function GetItemValue(sItemName As String) As Variant
  1936.         GetItemValue = m_note.GetItemValue(sItemname)
  1937.     End Function
  1938.     Sub RemoveItem ( sItemName As String)         
  1939.         m_note.RemoveItem ( sItemName )               
  1940.     End Sub
  1941.     Function ValidateItem(sItemName As String, Byval lMinLength As Long)  As Integer
  1942.   This routine validates one item including the length
  1943. %ENDREM  
  1944.         Dim item As NotesItem
  1945.         ValidateItem = False
  1946.         If (IsValid) Then
  1947.             Set item = m_note.GetFirstItem(sItemName)
  1948.             If (item Is Nothing) Then
  1949.                 Exit Function
  1950.             End If
  1951.             If (lMinLength > 0) Then
  1952.                 lMinLength = lMinLength + 2
  1953.                 If (m_note.Isuidocopen) Then 
  1954.                     lMinlength = lMinLength + 4
  1955.                 End If
  1956.                 If (item.ValueLength < lMinLength) Then
  1957.                     Exit Function
  1958.                 End If
  1959.             End If
  1960.             ValidateItem = True
  1961.         End If
  1962.     End Function  
  1963.     Sub MarkTempItems
  1964.         Dim items As Variant
  1965.         If (m_bvalid) Then
  1966.             items = m_note.Items
  1967.             Forall n In items
  1968.                 If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  1969.             End Forall     
  1970.         End If
  1971.     End Sub
  1972. End Class
  1973. Class BaseCSStringTable
  1974.     Function GetString(nIndex As Integer, vData As Variant) As String
  1975.         Select Case nIndex
  1976.         Case INC_COMMENTS                                            ' Include comments on reply notice
  1977.             GetString = "Do you want to include any comments on the reply?"
  1978.         Case ALARM_TITLE
  1979.             GetString = "Alarm options"
  1980.         End Select
  1981.     End Function
  1982. End Class
  1983. Class BaseEventOwnerStringTable As BaseCSStringTable
  1984.     Function GetString(nIndex As Integer, vData As Variant) As String
  1985.         Select Case nIndex
  1986.         Case CANC_TITLE
  1987.             GetString = "Cancel options"
  1988.         Case RESC_TITLE
  1989.             GetString = "Reschedule options"
  1990.         Case STS_TITLE
  1991.             GetString = "Participant Status"
  1992.         Case MODTYPE_TITLE
  1993.             GetString = "Change entry type"
  1994.         Case PAST_TITLE
  1995.             GetString = "Create in Past"
  1996.         Case CONF_TITLE
  1997.             GetString = "Confirm event"
  1998.         Case REM_PART
  1999.             GetString = "Select the participant(s) you wish to remove from this event."
  2000.         Case REM_PART_TITLE
  2001.             GetString = "Remove Participants"
  2002.         Case Else
  2003.             GetString = BaseCSStringTable..GetString(nIndex, vData)
  2004.         End Select
  2005.     End Function
  2006. End Class
  2007. Class MeetingOwnerStringTable As BaseEventOwnerStringTable
  2008.     Function GetString(nIndex As Integer, vData As Variant) As String
  2009.         Select Case nIndex
  2010.         Case ENTRY_TYPE
  2011.             GetString = "Changing the entry type will cancel this meeting. Change anyways?"            
  2012.         Case INV_DUPL
  2013.             GetString = "That person is already invited to this meeting."
  2014.         Case ENTRY_DTMOD
  2015.             GetString = "Are you sure you want to change the date/time of this entry?"
  2016.         Case ENTRY_PAST
  2017.             GetString = "This event is being created in the past. Create anyway?"
  2018.         Case ENTRY_CONF
  2019.             GetString = "This event conflicts with an existing event. Create anyway?"
  2020.         Case DTMOD_TITLE
  2021.             GetString = "Change date/time"
  2022.         Case SEND_ROOM
  2023.             GetString = "Sending reservation requests to room(s)..."
  2024.         Case SEND_RES
  2025.             GetString = "Sending reservation requests to resource(s)..."
  2026.         Case CTRACPT_TITLE
  2027.             GetString = "Accept Counter"
  2028.         Case CTRDECL_TITLE
  2029.             GetString = "Decline Counter"
  2030.         Case RESC_UPD_MSG
  2031.             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) 
  2032.         Case CONF_MSG
  2033.             GetString = "A notice will be sent to the participants confirming this meeting and informing them of the participants' status. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null) 
  2034.         Case MA_RESC
  2035.             GetString = "Reschedule Meeting"
  2036.         Case MA_CANC
  2037.             GetString = "Cancel Meeting"
  2038.         Case MA_CONF
  2039.             GetString = "Confirm Meeting"
  2040.         Case MA_VWSTS
  2041.             GetString = "View Participant Status"
  2042.         Case MA_SNDMAIL
  2043.             GetString = "Send Memo to Participants"
  2044.         Case MA_TITLE
  2045.             GetString = "Meeting Activities"
  2046.         Case Else
  2047.             GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
  2048.         End Select
  2049.     End Function
  2050. End Class
  2051. Class TaskOwnerStringTable As BaseEventOwnerStringTable
  2052.     Function GetString(nIndex As Integer, vData As Variant) As String
  2053.         Select Case nIndex
  2054.         Case ENTRY_TYPE
  2055.             GetString = "Changing the entry type will cancel this task. Change anyways?"            
  2056.         Case INV_DUPL
  2057.             GetString = "That person is already a participant of this task."
  2058.         Case ENTRY_DTMOD
  2059.             GetString = "Are you sure you want to change the date this task is due?"
  2060.         Case ENTRY_PAST
  2061.             GetString = "This task is being created in the past. Create anyway?"
  2062.         Case ENTRY_CONF
  2063.             GetString = "This event conflicts with an existing event. Create anyway?"
  2064.         Case MA_RESC
  2065.             GetString = "Reschedule Task"
  2066.         Case MA_CANC
  2067.             GetString = "Cancel Task"
  2068.         Case MA_CONF
  2069.             GetString = "Confirm Task"
  2070.         Case MA_VWSTS
  2071.             GetString = "View Participant Status"
  2072.         Case MA_SNDMAIL
  2073.             GetString = "Send Memo to Participants"
  2074.         Case MA_TITLE
  2075.             GetString = "Task Activities"
  2076.         Case Else
  2077.             GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
  2078.         End Select
  2079.     End Function
  2080. End Class
  2081. Class BaseEventParticipantStringTable As BaseCSStringTable
  2082.     Function GetString(nIndex As Integer, vData As Variant) As String
  2083.         Select Case nIndex
  2084.         Case PAST_TITLE
  2085.             GetString = "Past"
  2086.         Case ACPT_TITLE
  2087.             GetString = "Accept options"
  2088.         Case DECL_TITLE
  2089.             GetString = "Decline options"
  2090.         Case UPD_TITLE
  2091.             GetString = "Meeting update"
  2092.         Case DELE_TITLE
  2093.             GetString = "Delegate options"            
  2094.         Case CNTR_TITLE
  2095.             GetString = "Propose options"
  2096.         Case Else
  2097.             GetString = BaseCSStringTable..GetString(nIndex, vData)
  2098.         End Select
  2099.     End Function
  2100. End Class
  2101. Class MeetingParticipantStringTable As BaseEventParticipantStringTable
  2102.     Function GetString(nIndex As Integer, vData As Variant) As String
  2103.         Select Case nIndex
  2104.         Case RESC_MSG                                        ' Reschedule notice
  2105.             GetString = "This meeting has been rescheduled. Would you like to open the reschedule notice?"
  2106.         Case CANCEL_MSG
  2107.             GetString = "This meeting has been cancelled."    ' Message that appears for all cancellation notices
  2108.         Case CANCEL_UPD
  2109.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " The calendar entry will be updated to reflect this change."     ' User accepted main invitation that is now cancelled
  2110.         Case CANCEL_NOACTN
  2111.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action."                                ' The main invitation has not been accepted    
  2112.         Case ACPT_MSG
  2113.             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)
  2114.         Case DELE_MSG
  2115.             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)
  2116.         Case CNTR_MSG
  2117.             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)
  2118.         Case ADD_MSG
  2119.             GetString = "This meeting request will be added to your calendar. No reply notice will be sent"
  2120.         Case ADD_TITLE
  2121.             GetString = "Add to Calendar"
  2122.         Case PA_ACCEPT
  2123.             GetString = "Accept"
  2124.         Case PA_DECLINE
  2125.             GetString = "Decline"
  2126.         Case PA_DELEGATE
  2127.             GetString = "Delegate"
  2128.         Case PA_COUNTER
  2129.             GetString = "Counter"        
  2130.         Case PA_TITLE
  2131.             GetString = "Meeting Activities"
  2132.         Case Else
  2133.             GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
  2134.         End Select
  2135.     End Function
  2136. End Class
  2137. Class TaskParticipantStringTable As BaseEventParticipantStringTable
  2138.     Function GetString(nIndex As Integer, vData As Variant) As String
  2139.         Select Case nIndex
  2140.         Case RESC_MSG                                        ' Reschedule notice
  2141.             GetString = "The due date for this task has been changeded. Would you like to open the update notice?"
  2142.         Case CANCEL_MSG
  2143.             GetString = "This task has been cancelled."    ' Message that appears for all cancellation notices
  2144.         Case CANCEL_UPD
  2145.             GetString = Me.GetString(CS_STRING+2, Nothing) & " The task entry will be updated to reflect this change."     ' User accepted main invitation that is now cancelled
  2146.         Case CANCEL_NOACTN
  2147.             GetString = Me.GetString(CS_STRING+2, Nothing) & " You do not need to take any action."                                ' The main invitation has not been accepted    
  2148.         Case PA_ACCEPT
  2149.             GetString = "Accept"
  2150.         Case PA_DECLINE
  2151.             GetString = "Decline"
  2152.         Case PA_DELEGATE
  2153.             GetString = "Delegate"
  2154.         Case PA_COUNTER
  2155.             GetString = "Counter"        
  2156.         Case PA_TITLE
  2157.             GetString = "Meeting Activities"
  2158.         Case Else
  2159.             GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
  2160.         End Select
  2161.     End Function
  2162. End Class
  2163. Const TOOL_STRING = 400
  2164. Const MEMO_STRING = 500
  2165. Const TRACKING_STRING = 700
  2166. Class MessageTrackStringTable
  2167.     Function GetString(nIndex As Integer, vData As Variant) As String
  2168.         Select Case nIndex
  2169.         Case TRACKING_STRING+1
  2170.             GetString = "UNKNOWN "
  2171.         Case TRACKING_STRING+2
  2172.             GetString = "In Que "
  2173.         Case TRACKING_STRING+4
  2174.             GetString = "DELIVERED "
  2175.         Case TRACKING_STRING+8
  2176.             GetString = "DELIVERY FAILED "
  2177.         Case TRACKING_STRING+16
  2178.             GetString = "TRANSFERED "
  2179.         Case TRACKING_STRING+32 
  2180.             GetString = "TRANSER FAILED "
  2181.         Case  TRACKING_STRING+64
  2182.             GetString = "GROUP EXPANDED "
  2183.         Case  TRACKING_STRING+65
  2184.             GetString = "Message Tracking"    
  2185.         Case  TRACKING_STRING+66
  2186.             GetString = "Please select recipient(s) to track."
  2187.         End Select
  2188.     End Function        
  2189. End Class
  2190. Class MailToolsStringTable
  2191.     Function GetString (nIndex As Integer, vData As Variant) As String
  2192.         Select Case nIndex
  2193.         Case TOOL_STRING
  2194.             GetString = "Unable to locate your Name & Address Book.  Names not added."
  2195.         Case TOOL_STRING+1
  2196.             GetString = Str(vData) + " name(s) processed."
  2197.         Case TOOL_STRING+2
  2198.             GetString = Str(vData) + " name(s) added to your personal address book."
  2199.         Case TOOL_STRING+3
  2200.             GetString = Str(vData) + " name(s) not added; already in your personal address book."
  2201.         Case TOOL_STRING+4
  2202.             GetString = "Error adding name(s) to personal address book: " + Str(vData)
  2203.         Case TOOL_STRING+10
  2204.             GetString = "Unable to create a calendar entry for your time off."
  2205.         Case TOOL_STRING+11
  2206.             GetString = "An Out of office document has been added to your Calendar."
  2207.         Case TOOL_STRING+12
  2208.             GetString = "Would you like to create an Out of Office Calender entry?"
  2209.         Case TOOL_STRING+13
  2210.             GetString =  "Welcome Back!  Your 'Out Of Office' agent has been disabled for you. "  &  Chr(13) & Chr(13) & _
  2211.             "While you were out, the 'Out of Office' agent notified the following people of your absence."  & Chr(13) & Chr(13)
  2212.         Case TOOL_STRING+14
  2213.             GetString = "Welcome Back!  Your 'Out Of Office' agent has been disabled for you. "  &  Chr(13) &_
  2214.             "While you were out, your Out of Office Agent did not notify anyone of your absence."
  2215.         Case TOOL_STRING+15
  2216.             GetString = "Welcome Back!"
  2217.         Case TOOL_STRING+16
  2218.             GetString = "This is a repeat reminder! Please disable your Out of Office Agent.  To disable the agent, " & _
  2219.             "Open your Out of Office profile and select the 'Disable Out of Office' action button."
  2220.         Case TOOL_STRING+17
  2221.             GetString = "Out of Office Profile ERROR"
  2222.         Case TOOL_STRING+18
  2223.             GetString = "ERROR: You must create an Out of Office profile BEFORE running your Out of Office Agent."
  2224.         Case TOOL_STRING+19
  2225.             GetString = "ERROR: You must enable your Out of Office profile BEFORE running your Out of Office Agent."
  2226.         Case TOOL_STRING+31
  2227.             GetString = " can already read mail."
  2228.         Case TOOL_STRING+32
  2229.             GetString = " can already send mail."
  2230.         Case TOOL_STRING+33
  2231.             GetString = " can already edit documents."
  2232.         Case TOOL_STRING+34
  2233.             GetString = " can already manage the calendar."
  2234.         Case TOOL_STRING+37
  2235.             GetString = "Managers and Designers cannot be modified using the Delegation Profile."
  2236.         Case TOOL_STRING+38
  2237.             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."
  2238.         Case TOOL_STRING+39
  2239.             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."
  2240.         Case TOOL_STRING+40
  2241.             GetString =   Str(vData) & " is currently a Manager of this database." 
  2242.         Case TOOL_STRING+41
  2243.             GetString = Str(vData) & " is currently a Designer of this database. "
  2244.         Case TOOL_STRING+42
  2245.             GetString = "You do not have the priviledge to change the ACL settings in this database."
  2246.         Case TOOL_STRING+43
  2247.             GetString = "Reminder Please Turn Off your Out Of Office Agent"
  2248.         Case TOOL_STRING+44            
  2249.             GetString = "Your Out of Office agent is still enabled."            
  2250.         Case TOOL_STRING+45
  2251.             GetString = "Please ask a Manager or Designer of this database to disable the agent for you."
  2252.         Case TOOL_STRING+46
  2253.             GetString = "Lotus Notes Out of Office"
  2254.         Case TOOL_STRING+47
  2255.             GetString = "Your 'Out of Office' agent is currently enabled."
  2256.         Case TOOL_STRING+48
  2257.             GetString = "Do you want to disable it ?"
  2258.         Case TOOL_STRING+49
  2259.             GetString = "Your Out of Office has been disabled."
  2260.         Case TOOL_STRING+50
  2261.             GetString = "Please ask a Manager or Designer of this database to enable the agent for you."
  2262.         Case TOOL_STRING+51
  2263.             GetString = "Your current location doesn't have a 'Mail Server' specified."'
  2264.         Case TOOL_STRING+52
  2265.             GetString = "Please edit your current record and specify your Mail Server."
  2266.         Case TOOL_STRING+53
  2267.             GetString = "The Out of Office agent is now enabled to run on the following server: "            
  2268.         Case TOOL_STRING+54
  2269.             GetString = "When people send you mail between "
  2270.         Case TOOL_STRING+55
  2271.             GetString = " and " &  vData & " it will inform them of your absence."
  2272.         Case TOOL_STRING+56
  2273.             GetString = "The Out of Office agent was not enabled."
  2274.         Case TOOL_STRING+57
  2275.             GetString = "You must indicate when you are leaving and when you will be back."
  2276.         Case TOOL_STRING+58
  2277.             GetString = "Your return date must be after today's date."
  2278.         Case TOOL_STRING+59
  2279.             GetString = "Your return date cannot be earlier than the leave date."
  2280.         Case TOOL_STRING+60
  2281.             GetString = "Your return date must be after your leave date."
  2282.         Case TOOL_STRING+61
  2283.             GetString = "Preferences"
  2284.         Case TOOL_STRING+62
  2285.             GetString = "Add sender to address book"
  2286.         Case TOOL_STRING+63
  2287.             GetString = "A business card with your name should not be added to your address book."
  2288.         End Select
  2289.     End Function
  2290. End Class
  2291. Class MemoStringTable
  2292.     Function GetString(nIndex As Integer, vData As Variant) As String
  2293.         Select Case nIndex
  2294.         Case MEMO_STRING   ' task notification mail message
  2295.             GetString = "Notfication has been sent to "
  2296.         Case MEMO_STRING+1   ' name a stationery document
  2297.             GetString = "What would you like to call this stationery?"
  2298.         Case MEMO_STRING+2
  2299.             GetString = "This action cannot be performed on a new document."
  2300.         Case MEMO_STRING+3
  2301.             GetString = "Please select one document before executing this command."
  2302.         Case MEMO_STRING+4   ' user trying to copy a document that has the prevent copy bit set
  2303.             GetString = "This document is prevented from being copied.  The body will not be copied into the new document."              
  2304.         Case MEMO_STRING+5
  2305.             GetString = "Mail Schedule Profile not found.  You must define your Mail schedule profile before you can schedule a document."
  2306.         Case MEMO_STRING+6
  2307.             GetString = "Your Mail Scheduler agent is currently disabled.  The agent must be enabled before you can schedule a document."
  2308.         Case MEMO_STRING+7
  2309.             GetString = "Unable to locate your mail schedule profile.  A mail schedule profile must exist in your database before you can schedule a document."
  2310.         Case MEMO_STRING+8
  2311.             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."
  2312.         Case MEMO_STRING+9
  2313.             GetString = Str(vData) & " document(s) processed."
  2314.         Case MEMO_STRING+10
  2315.             GetString = "The document(s) can be referenced via your Drafts view."
  2316.         Case MEMO_STRING+11
  2317.             GetString = Str(vData) & " document(s) put on hold."
  2318.         Case MEMO_STRING+12
  2319.             GetString = Str(vData) & " document(s) scheduled."
  2320.         Case MEMO_STRING+13
  2321.             GetString = Str(vData) & " document(s) no longer accessible from this view."
  2322.         Case MEMO_STRING+14
  2323.             GetString = "No Mail Schedule Profile"
  2324.         Case MEMO_STRING+15
  2325.             GetString = "You must enter a 'SendTo' name in order to schedule a document."
  2326.         Case MEMO_STRING+16
  2327.             GetString = "Lotus Notes"
  2328.         Case MEMO_STRING+17
  2329.             GetString = "-Untitled-"            
  2330.         Case MEMO_STRING+18
  2331.             GetString = "Include Signature"
  2332.         Case MEMO_STRING+19
  2333.             GetString = "Please place the cursor at the desired insertion point of the body field."
  2334.         Case MEMO_STRING+20
  2335.             GetString = "Do you wish to save this document?"
  2336.         Case MEMO_STRING+21
  2337.             GetString = "Address recipients"
  2338.         Case MEMO_STRING+22
  2339.             GetString = "Do you wish to save this new stationery?"
  2340.         Case MEMO_STRING+23
  2341.             GetString = "Do you wish to save this new message?"
  2342.         End Select
  2343.     End Function
  2344. End Class
  2345. '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8
  2346. Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
  2347.     Dim nameUser As NotesName
  2348.     Set nameUser = New NotesName(sUsername) 
  2349.     If Instr(sUserName,"@") Then
  2350.         sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@")
  2351.         sRetDomain = Strright(nameUser.abbreviated,"@")
  2352.     Else
  2353.         sRetAbbreviatedName = nameUser.abbreviated
  2354.         sRetDomain = ""
  2355.     End If
  2356. End Sub
  2357. '++LotusScript Development Environment:2:1:NAMECompare:1:8
  2358. Function NAMECompare(sName1 As String, sName2 As String) As Integer
  2359.     Returns true if two names are equal, False otherwise
  2360. %END REM
  2361.     Dim sCanName1 As String
  2362.     Dim sDomainName1 As String
  2363.     Dim sCanName2 As String
  2364.     Dim sDomainName2 As String
  2365.     Dim nLenName1 As Integer
  2366.     Dim nLenName2 As Integer
  2367.     Dim name1 As NotesName
  2368.     Dim name2 As NotesName
  2369.      ' if the first letter of name2 ="*", then perform a wildcard match
  2370.     If Left$(sName2,1) = "*" Then
  2371.         NAMECompare = NAMECompareWildcards(sName1, sName2)
  2372.         Exit Function
  2373.     End If
  2374.     Call NAMEGetComponents(sName1, sCanName1, sDomainName1)
  2375.     Call NAMEGetComponents(sName2, sCanName2, sDomainName2)
  2376.     Set name1 = New NotesName(sCanName1)
  2377.     Set name2 = New NotesName(sCanName2)
  2378.     ' Do a canonical comparison if both names are hierarchical
  2379.     If (name1.IsHierarchical) And (name2.IsHierarchical) Then    
  2380.         If (Strcompare(sCanName1, sCanName2) = 0) Then
  2381.             NAMECompare = True
  2382.             Exit Function
  2383.         Else
  2384.             Exit Function        
  2385.         End If
  2386.     End If
  2387.      ' Compare the common names
  2388.     If (Strcompare(name1.common, name2.common) = 0) Then
  2389.         NAMECompare = True
  2390.         Exit Function
  2391.     End If
  2392.     NAMECompare = False
  2393. End Function
  2394. '++LotusScript Development Environment:2:1:NAMEFindInList:1:8
  2395. Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
  2396.     Given a name and a list of names return the index position if the user is found, -1 otherwise
  2397. %END REM 
  2398.     Dim x As Integer
  2399.     Dim iNames As Integer
  2400.     NAMEFindInList = -1
  2401.     If Isempty(vListOfNames) Then
  2402.         Exit Function
  2403.     End If
  2404.     If Isarray(vListOfNames) Then
  2405.         iNames = Ubound(vListOfNames)
  2406.         For x = 0 To iNames
  2407.             If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then
  2408.                 NAMEFindInList = x
  2409.                 Exit Function
  2410.             End If
  2411.         Next
  2412.     Else
  2413.         NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames))
  2414.     End If
  2415. End Function
  2416. '++LotusScript Development Environment:2:1:NAMECompareWildcards:1:8
  2417. Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
  2418. allowable wildcard formats
  2419. */OU/O
  2420. */OU/OU/O
  2421. */OU/OU/OU/O
  2422. %END REM
  2423.     Dim name1 As NotesName
  2424.     Dim name2 As NotesName
  2425.     Dim nWIldcardUnits As Integer
  2426.     Dim nNameUnits As Integer
  2427.     Dim nPos As Integer
  2428.     NAMECompareWildcards = False
  2429.     If Left$(sWildcard,1) <> "*" Then
  2430.         Exit Function          
  2431.     End If
  2432.     Set name1 = New NotesName(sName)
  2433.     Set name2 = New NotesName(sWildcard)
  2434.      ' first, determine how many "/" are in the wildcard and in name
  2435.     nWildcardUnits = NAMEGetNumOrgUnits(sWildcard)
  2436.     nNameUnits = NAMEGetNumOrgUnits(sName)
  2437.      ' if there are more "/" in widlcard, the names can't possibly match     
  2438.     If (nWildcardUnits > nNameUnits) Then
  2439.         Exit Function          
  2440.     End If
  2441.      ' Now that we validated the # of arguments, assume the names will match
  2442.      ' We do it this way so that if any particular comparison fails, we set to false and exit
  2443.      ' In addition, if nWildcard units = 0, then the wildcard must be "*", so everything matches
  2444.     NAMECompareWildcards = True
  2445.     If (nWildcardUnits > 0) Then
  2446.       ' First, compare the Organization
  2447.         If Not(Strcompare(name1.organization, name2.organization) = 0) Then
  2448.             NAMECompareWildcards = False               
  2449.             Exit Function                    
  2450.         End If
  2451.     End If
  2452.     If (nWildcardUnits > 1) Then
  2453.       ' compare the OU1
  2454.         If Not(Strcompare(name1.Orgunit1, name2.orgunit1)=0) Then
  2455.             NAMECompareWildcards = False               
  2456.             Exit Function                    
  2457.         End If
  2458.     End If
  2459.     If (nWildcardUnits > 2) Then
  2460.       ' compare the OU2
  2461.         If Not(Strcompare(name1.Orgunit2, name2.orgunit2)=0) Then
  2462.             NAMECompareWildcards = False               
  2463.             Exit Function                    
  2464.         End If
  2465.     End If
  2466.     If (nWildcardUnits > 3) Then
  2467.       ' compare the OU3
  2468.         If Not(Strcompare(name1.Orgunit3, name2.orgunit3)=0) Then
  2469.             NAMECompareWildcards = False               
  2470.             Exit Function                    
  2471.         End If
  2472.     End If
  2473.     If (nWildcardUnits > 4) Then
  2474.       ' compare the OU4
  2475.         If Not(Strcompare(name1.Orgunit4, name2.orgunit4)=0) Then
  2476.             NAMECompareWildcards = False               
  2477.             Exit Function                    
  2478.         End If
  2479.     End If
  2480.    ' if we made it this far, the name matches the wildcard
  2481. End Function
  2482. '++LotusScript Development Environment:2:1:NAMEGetNumOrgUnits:1:8
  2483. Function NAMEGetNumOrgUnits(sName) As Integer
  2484.     Dim nPos As Integer
  2485.     Dim nUnits As Integer
  2486.     nPos = Instr(sName,"/")
  2487.     While (nPos > 0)
  2488.         nUnits = nUnits + 1
  2489.         sName = Right$(sName,Len(sName)-nPos)
  2490.         nPos = Instr(sName,"/")          
  2491.     Wend
  2492.     NAMEGetNumOrgUnits = nUnits
  2493. End Function
  2494. '++LotusScript Development Environment:2:2:TIMEGetFromItem:1:8
  2495. Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) 
  2496.     Dim item As NotesItem
  2497.     ' If the user passed in an existing allocated object, delete it
  2498.     If Not(dt1 Is Nothing) Then
  2499.         Delete dt1
  2500.     End If
  2501.     If Not(TIMEValidateArgs(sItemName, "", note)) Then
  2502.         Exit Sub
  2503.     End If
  2504.     Set item = note.GetFirstItem(sItemName)
  2505.     If (Len(item.text) = 0) Then 
  2506.         Exit Sub
  2507.     End If
  2508.     Set dt1 = New NotesDateTime("")
  2509.     Set dt1 = item.DateTimeValue
  2510. End Sub
  2511. '++LotusScript Development Environment:2:1:TIMECompareDates:1:8
  2512. Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
  2513.     Dim dtMy1 As NotesDateTime
  2514.     Dim dtMy2 As NotesDateTime
  2515.     TIMECompareDates = 0
  2516.     If (dt1 Is Nothing) Or (dt2 Is Nothing) Then
  2517.         Exit Function
  2518.     End If
  2519.     Set dtMy1 = New NotesDateTime(dt1.DateOnly)
  2520.     Set dtMy2 = New NotesDateTime(dt2.DateOnly)
  2521.     TIMECompareDates = dtMy1.TimeDifference(dtMy2)/86400
  2522. End Function
  2523. '++LotusScript Development Environment:2:2:TIMEGetNotesFromLS:1:8
  2524. Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
  2525.     Set dtNotes = New NotesDateTime("")
  2526.     If Isdate(vLS) Then dtNotes.LSLocalTime = vLS
  2527. End Sub
  2528. '++LotusScript Development Environment:2:1:TIMEValidateArgs:1:8
  2529. Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
  2530.     TIMEValidateArgs = False
  2531.     If (note Is Nothing) Then
  2532.         Exit Function
  2533.     End If
  2534.     If (Len(sItemname1) > 0) Then
  2535.         If Not(note.HasItem(sItemName1)) Then
  2536.             Exit Function
  2537.         End If
  2538.     End If
  2539.     If (Len(sItemname2) > 0) Then
  2540.         If Not(note.HasItem(sItemName2)) Then
  2541.             Exit Function
  2542.         End If
  2543.     End If
  2544.     TIMEValidateArgs = True
  2545. End Function
  2546. '++LotusScript Development Environment:2:1:STRGetToken:1:8
  2547. Function STRGetToken(sValue,sToken) As String
  2548.     Dim nPos As Integer
  2549.     nPos = Instr(sValue,sToken)
  2550.     If (nPos > 0) Then
  2551.         STRGetToken = Left$(sValue,nPos-1)
  2552.         sValue = Right$(sValue,Len(sValue)-nPos)
  2553.     Else
  2554.         STRGetToken = sValue
  2555.         sValue = ""
  2556.     End If
  2557. End Function
  2558. '++LotusScript Development Environment:2:1:NAMEAbbreviate:1:8
  2559. Function NAMEAbbreviate(vNamesList As Variant) As Variant
  2560.     Dim vResult As Variant
  2561.     Dim nameEntry As NotesName
  2562.     Dim nitems As Integer
  2563.     Dim i As Integer
  2564.     If Isarray(vNamesList) Then
  2565.         nItems = Ubound(vNamesLIst)        
  2566.         Redim vResult(nItems)
  2567.         For i = 0 To nItems
  2568.             Set nameEntry = New NotesName(vNamesList(i))
  2569.             vresult(i) = nameEntry.Abbreviated
  2570.         Next
  2571.     Else
  2572.         Set nameEntry = New NotesName(vNamesList)
  2573.         vresult = nameEntry.Abbreviated        
  2574.     End If
  2575.     NAMEAbbreviate = vResult
  2576. End Function
  2577. '++LotusScript Development Environment:2:1:TIMEFindInSortedList:1:8
  2578. Function TIMEFindInSortedList(vKey As Variant, vTimeList As Variant) As Integer
  2579.     Dim nMiddle As Integer
  2580.     Dim nHigh As Integer
  2581.     Dim nLow As Integer
  2582.     nLow = 0
  2583.     nHigh = Ubound(vTimeList)
  2584.     While (nLow <= nHigh)
  2585.         nMiddle = (nLow + nHigh) / 2
  2586.         If (vKey = vTimeList(nMiddle)) Then
  2587.             TIMEFindInSortedList = nMiddle
  2588.             Exit Function
  2589.         Elseif (vKey < vTimeList(nMiddle)) Then
  2590.             nHigh = nMiddle - 1
  2591.         Else
  2592.             nLow = nMiddle + 1               
  2593.         End If
  2594.     Wend
  2595.     ' If we got this far, we didn't find the value
  2596.     TIMEFindInSortedList = -1
  2597. End Function
  2598. '++LotusScript Development Environment:2:1:ARRAYIsValid:1:8
  2599. Function ARRAYIsValid(vArray As Variant) As Integer
  2600.     ARRAYIsValid = False
  2601.     If Isempty(vArray) Then
  2602.         Exit Function
  2603.     Elseif Not(Isarray(vArray)) Then
  2604.         Exit Function
  2605.     Else
  2606.         If Ubound(vArray) = 0 And Len(vArray(0)) = 0 Then
  2607.             Exit Function
  2608.         End If
  2609.     End If
  2610.     ARRAYIsValid = True
  2611. End Function
  2612. '++LotusScript Development Environment:2:1:CSGetMailFileOwner:1:8
  2613. Function CSGetMailFileOwner() As String
  2614.     Dim session As New notessession
  2615.     Dim profile As notesdocument
  2616.     Dim strOwner As String
  2617.     Set profile = session.currentdatabase.getprofiledocument("CalendarProfile")
  2618.     strOwner = profile.GetItemValue("Owner")(0)
  2619.     If Len(strOwner) Then
  2620.         CSGetMailFileOwner = strOwner
  2621.     Else
  2622.         CSGetMailFileOwner = session.UserName
  2623.     End If
  2624. End Function
  2625. '++LotusScript Development Environment:2:2:TIMEGetComponents:1:8
  2626. Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
  2627.     Dim itemST As NotesItem
  2628.     Dim itemSD As NotesItem
  2629.     ' If the user passed in an existing allocated object, delete it
  2630.     If Not(dt1 Is Nothing) Then
  2631.         Delete dt1
  2632.     End If
  2633.     If Not(TIMEValidateArgs(sDateItem, sTimeItem, note)) Then
  2634.         Exit Sub
  2635.     End If
  2636.     Set itemSD = note.GetFirstItem(sDateItem)
  2637.     Set itemST = note.GetFirstItem(sTimeItem)
  2638.     Set dt1 = New NotesDateTime(itemSD.DateTimeValue.DateOnly & " " & itemST.DateTimeValue.TimeOnly)    
  2639. End Sub
  2640. '++LotusScript Development Environment:2:1:NOTEUserIsCreator:1:8
  2641. Function NOTEUserIsCreator(note As NotesDocument) As Integer
  2642.     Dim strMailOwner As String
  2643.     Dim strFrom As String
  2644.     Dim session As New NotesSession
  2645.     NOTEUserIsCreator = True
  2646.     ' By default, all new documents are creators
  2647.     If (note Is Nothing) Then
  2648.         Exit Function
  2649.     End If
  2650.     If (note.IsNewNote) Then 
  2651.         Exit Function
  2652.     End If
  2653.     strMailOwner = CSGetMailFileOwner()
  2654.     If (note.HasItem("Chair")) Then
  2655.         strFrom = note.getitemvalue("Chair")(0)
  2656.     Elseif (note.HasItem("Principal")) Then
  2657.         strFrom = note.getitemvalue("Principal")(0)
  2658.     Elseif (note.hasItem("From")) Then
  2659.         strFrom = note.getitemvalue("From")(0)
  2660.     Else
  2661.         strFrom = session.UserName
  2662.     End If
  2663.     If Len(strFrom) = 0 Then strFrom = session.UserName
  2664.     NOTEUserIsCreator = NAMECompare(strMailOwner, strFrom)    
  2665. End Function
  2666. '++LotusScript Development Environment:2:1:NAMEExistsInList:1:8
  2667. Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
  2668.     Given a name and a list of names return True if sKeyName exists in vListOfNames
  2669.         false if they are not
  2670. %END REM 
  2671.     NAMEExistsInList = False
  2672.     NAMEExistsInList = (NAMEFindInList(sKeyName, vListOfNames) >= 0)
  2673. End Function
  2674. '++LotusScript Development Environment:2:1:NOTECopyIntoNewDocument:1:8
  2675. Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument) As NotesDocument
  2676.     Dim newnote As NotesDocument
  2677.     Dim item As Notesitem
  2678.     Dim newbody As NotesRichTextItem
  2679.     Dim body As NotesRichTextItem
  2680.     Dim itemSendTo As NotesItem
  2681.     Dim itemCopyTo As NotesItem
  2682.     Dim itemMembers As NotesItem
  2683.     Dim strOldType As String
  2684.     If (note Is Nothing) Then    Exit Function
  2685.     ' Allocate the new document
  2686.     Set newnote = New notesdocument(note.ParentDatabase)
  2687.     If (newnote Is Nothing) Then Exit Function
  2688.     ' Start by adding/copying items from the source document to this one
  2689.     If (note.HasItem("Topic")) Then
  2690.         Set item = note.GetFirstItem("Topic")
  2691.     Else
  2692.         Set item = note.getfirstitem("Subject")
  2693.     End If
  2694.     If Not(item Is Nothing) Then Call item.CopyItemToDocument(newnote, "Subject")
  2695.     Call newnote.AppendItemValue("tmpNewDoc", "1")
  2696.     Call newnote.AppendItemValue("Principal", CSGetMailFileOwner())
  2697.     ' Get the sendto/copyto lists
  2698.     strOldType = note.GetItemValue("Form")(0)
  2699.     If (Strcompare(strOldType, "Appointment") = 0) Then
  2700.         Set itemSendTo = note.getfirstitem("RequiredAttendees")
  2701.         Set itemCopyTo = note.getfirstitem("OptionalAttendees")    
  2702.     Elseif (Strcompare(strOldType, "Task") = 0) Then
  2703.         Set itemSendTo = note.getfirstitem("AssignedTo")
  2704.         Set itemCopyTo = note.getfirstitem("OptionalAssignees")    
  2705.     Else
  2706.         Set itemSendTo = note.getfirstitem("SendTo")
  2707.         Set itemCopyTo = note.getfirstitem("CopyTo")    
  2708.     End If
  2709.     ' If we are copying into a new group calendar, modify some items
  2710.     If (iNewType = CREATE_GROUPCALENDAR) Then
  2711.         If Not(itemSendTo Is Nothing) Then Set itemMembers = itemSendTo.CopyItemToDocument(newnote, "Members")    
  2712.         If Not(itemCopyTo Is Nothing) Then
  2713.             If Not(itemMembers Is Nothing) Then
  2714.                 Forall vNames In itemCopyTo.Values
  2715.                     Call itemMembers.AppendToTextList(vNames)
  2716.                 End Forall
  2717.             Else
  2718.                 Call itemCopyTo.CopyItemToDocument(newnote, "Members")
  2719.             End If
  2720.         End If
  2721.     Else
  2722.         If Not(itemSendTo Is Nothing) Then Call itemSendTo.CopyItemToDocument(newnote, "SendTo")
  2723.         If Not(itemCopyTo Is Nothing) Then Call itemCopyTo.CopyItemToDocument(newnote, "CopyTo")
  2724.         ' Create the body item
  2725.         Set newbody = New NotesRichTextItem(newnote, "Body")
  2726.         Call newbody.AddNewLine(2)
  2727.         Call newbody.AppendText("__________________")
  2728.         Call newbody.AddNewLine(2)
  2729.         If (iFlags And 1) Then
  2730.             Call newbody.AppendDocLink(note,"")
  2731.         Else
  2732.             Set body = note.GetFirstItem("Body")
  2733.             If Not(body Is Nothing) Then Call newbody.AppendRTItem(body)
  2734.         End If
  2735.     End If
  2736.     Select Case iNewType
  2737.     Case CREATE_MEMO
  2738.         Call NOTECopyIntoNewMemo(note, newnote)
  2739.     Case  CREATE_TASK
  2740.         Call NOTECopyIntoNewTodo(note, newnote)            
  2741.     Case CREATE_CALENDAR
  2742.         Call NOTECopyIntoNewCalendarEntry(note, newnote)
  2743.     Case CREATE_GROUPCALENDAR
  2744.         Call NOTECopyIntoNewGroupCalendar(note, newnote)
  2745.     End Select
  2746.     Set NOTECopyIntoNewDocument = newnote
  2747. End Function
  2748. '++LotusScript Development Environment:2:2:NOTECopyIntoNewMemo:1:8
  2749. Sub NOTECopyIntoNewMemo(note As notesdocument, newnote As notesdocument)
  2750.     Dim session As New notessession
  2751.     Call newnote.ReplaceItemValue("Form","Memo")
  2752.     Call newnote.ReplaceItemValue("Logo", session.GetEnvironmentString("DefaultLogo",False))
  2753. End Sub
  2754. '++LotusScript Development Environment:2:2:NOTECopyIntoNewTodo:1:8
  2755. Sub NOTECopyIntoNewTodo(note As notesdocument, newnote As notesdocument)
  2756.     Call newnote.ReplaceItemValue("Form","Task")
  2757. End Sub
  2758. '++LotusScript Development Environment:2:2:NOTECopyIntoNewCalendarEntry:1:8
  2759. Sub NOTECopyIntoNewCalendarEntry(note As notesdocument, newnote As notesdocument)
  2760.     Call newnote.replaceitemvalue("Form","Appointment")
  2761. End Sub
  2762. '++LotusScript Development Environment:2:1:YesNoPrompt:1:8
  2763. Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
  2764.     Dim nResult As Integer         
  2765.     nResult = Messagebox(sPrompt, MB_YESNO + MB_ICONQUESTION, sTitle)
  2766.     YesNoPrompt = (nResult = IDYES)
  2767. End Function
  2768. '++LotusScript Development Environment:2:1:YesNoCancelPrompt:1:8
  2769. Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
  2770.     YesNoCancelPrompt = Messagebox(sPrompt, MB_YESNOCANCEL+MB_ICONQUESTION , sTitle)
  2771. End Function
  2772. '++LotusScript Development Environment:2:1:DisplayWarn:1:8
  2773. Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
  2774.     DisplayWarn = Messagebox (sError, nPrompt+MB_ICONEXCLAMATION, sTitle)
  2775. End Function
  2776. '++LotusScript Development Environment:2:2:NOTECopyIntoNewGroupCalendar:1:8
  2777. Sub NOTECopyIntoNewGroupCalendar(note As NotesDocument, newnote As NotesDocument)
  2778.     Call newnote.ReplaceItemValue("Form", "(GroupCalendar)")
  2779. End Sub
  2780. '++LotusScript Development Environment:2:2:TIMEAdjustByDifference:1:8
  2781. Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
  2782.     Dim iSeconds As Integer
  2783.     Dim iMinutes As Integer
  2784.     Dim iHours As Integer
  2785.     Dim iDays As Integer
  2786.     If (Abs(lDifference) >= 86400) Then
  2787.         iDays = lDifference / 86400
  2788.         lDifference = lDifference Mod 86400
  2789.     End If
  2790.     If (Abs(lDifference) >= 3600) Then
  2791.         iHours = lDifference / 3600
  2792.         lDifference = lDifference Mod 3600
  2793.     End If
  2794.     If (Abs(lDifference) >= 60) Then
  2795.         iMinutes = lDifference / 60
  2796.         lDifference = lDifference Mod 60
  2797.     End If
  2798.     iSeconds = lDifference
  2799.     If (iDays) Then Call dtAdjust.AdjustDay(iDays, True)
  2800.     If (iHours) Then Call dtAdjust.AdjustHour(iHours, True)    
  2801.     If (iMinutes) Then Call dtAdjust.AdjustMinute(iMinutes, True)
  2802.     If (iSeconds) Then Call dtAdjust.AdjustSecond(iSeconds, True)
  2803. End Sub
  2804. 8gL+8g
  2805. DP-XN
  2806. Lotus Product
  2807. L0XGa
  2808. ]LO},A
  2809. ]LO}HA
  2810. ]LO}pA
  2811. M$i|#
  2812. t)`%`%
  2813. nDoDo
  2814. (t),&
  2815. @)@)p&
  2816. oxtxtxt(q(q
  2817. pdsds
  2818. p t t
  2819. 6t7t7$:l<
  2820. \9\9t
  2821. :l<$)
  2822. d;d;\<\<
  2823. rDtDt
  2824. =LqLqLq
  2825. >h?h?h?
  2826. EdFdFdF
  2827. L`M`M`M
  2828. S8gLB
  2829. QhRhRhR
  2830. r\r\r
  2831. qtqtq
  2832. r8r8r
  2833. Z(Zxc    
  2834. u4v4v
  2835. v@sdv
  2836. x\x\t
  2837. ]`]`]
  2838. h^h^`f
  2839. H^X^H^H^
  2840. b@f<g
  2841. `d`dpdpd
  2842. HeHeXeXe
  2843. f,h,h
  2844. h<h<h
  2845. \k\k,kLk
  2846. n\n\n
  2847. lnln|n
  2848. ^P)qP)
  2849. J@)5|oC
  2850. oP)F|o
  2851. ^P)rP)
  2852. ^P)rP)
  2853. ]0)JP)
  2854. ,+L+\
  2855. o}X)}
  2856. o}X)}
  2857. p}X)#
  2858. Kd7,Pp}
  2859. oIL9]\9#1
  2860. /</#8~
  2861. pIt;#
  2862. --(q#
  2863. =5LqI
  2864. FLqU\q 
  2865. FLqU\q 
  2866. FLqQhq
  2867. ]HC}4/
  2868. ]HC}01
  2869. ]HC}820\@~4
  2870. ]HC}@30\@~4
  2871. ]HC},4
  2872. ]HC}X4
  2873. ]HC}|4
  2874. ]HC0\@a
  2875. E0\@a
  2876. 0XG~4
  2877. 0XG~4
  2878. 0XG~4
  2879. ]DJ}P>
  2880. ]DJ}t>
  2881. ]DJ0XGa
  2882. L0XGa
  2883. ]LO},A
  2884. ]LO}HA
  2885. ]LO}pA
  2886. V-tq#}
  2887. V-tq#}
  2888. V-tq#
  2889. q#K(X-
  2890. q#K(X-
  2891. Y-8r#K
  2892. Y-8r#
  2893. Y-\r#K
  2894. Y-\r#
  2895. )h^]h\}
  2896. \Kx\,
  2897. pIh\#
  2898. [Kp]-
  2899. KX^.@sIH^!
  2900. K0_,dsI
  2901. K0_,dsI _#
  2902. `-tq#
  2903. `-tq#
  2904. ^xcKhc-
  2905. cKxc,
  2906. p}hh#
  2907. ]XcKhc-
  2908. )h^]0d]@d]Pd#
  2909. dKPd,
  2910. pI0d#
  2911. ^pdKPd,
  2912. pI@d#
  2913. K8e,ds}\i#8
  2914. ^XeK8e,
  2915. p}\i#
  2916. K8e,ds}li#8
  2917. ^XeK8e,
  2918. p}li#
  2919. K8e,ds}
  2920. ^XeK8e,
  2921. ^XeKhe-
  2922. ^XeKhe-
  2923. V^He^Xe#
  2924. )8X] f]0f#
  2925. g+L+K
  2926. g- t#$
  2927. g,ds}
  2928. K(g,DtJ
  2929. g,xt}Dk}
  2930. g,xt}li)
  2931. p}\k#
  2932. JLh}lk
  2933. p},l#
  2934. p}@l#
  2935. h,DtJ
  2936. g}Tl#
  2937. K,h,DtJ
  2938. g}Tl#1
  2939. h,DtJ
  2940. g},l#1
  2941. K,h,DtJ
  2942. g}@l#1
  2943. g+8gJ
  2944. g,@u}
  2945. g,puI
  2946. o}\k}Dn#1
  2947. o}TnK
  2948. o}\k}
  2949. o}\k}lk#1
  2950. o}\k}
  2951. I\n~Dw
  2952. ]\nI\n~\w
  2953. ]\nI\n
  2954. ]\nI\n
  2955. Kln,4vX
  2956. Kln,dvX
  2957. O=Lotus Notes
  2958. O=Lotus Notes
  2959. PURSAFO
  2960. |.:#U
  2961. O=Lotus Notes
  2962. CN=Lotus Notes Template Development/O=Lotus Notes
  2963. PURSAFO
  2964. DE*o[>
  2965. $TITLE
  2966. $Flags
  2967. $PublicAccess
  2968. $ScriptLib
  2969. $ScriptLib_O
  2970. '++LotusScript Development Environment:2:5:(Options):0:74
  2971. Option Public
  2972. Option Explicit
  2973. Use "Common"
  2974. '++LotusScript Development Environment:2:5:(Forward):0:1
  2975. Declare Sub Initialize
  2976. Declare Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  2977. Declare Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
  2978. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2979. '++LotusScript Development Environment:2:2:Initialize:1:10
  2980. Sub Initialize
  2981. End Sub
  2982. '++LotusScript Development Environment:2:2:DisplayGroupCalendarDlg:1:8
  2983. Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  2984.     Dim ws As New notesuiworkspace
  2985.     Dim strAction As String
  2986.     Call ws.dialogbox("(GroupCalendarDlg)", True, True, True,,,,"New Group Calendar", note, True, True)
  2987.     strAction = note.GetItemValue("Action")(0)
  2988.     If (strAction = "" Or strAction = "Cancel") Then Exit Sub
  2989.     Call note.save(True, False)
  2990.     If (bPutInFolder) Then Call note.PutInFolder("(GroupCalendarFolder)")
  2991.     Call ws.viewrefresh
  2992.     If (strAction = "ViewNow") Then Call ws.editdocument(True, note)
  2993. End Sub
  2994. '++LotusScript Development Environment:2:1:UICopyIntoNewDocument:1:8
  2995. Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
  2996.     Dim session As New notessession
  2997.     Dim ws As New notesuiworkspace
  2998.     Dim note As notesdocument
  2999.     Dim newnote As notesdocument
  3000.     Dim uidoc As notesuidocument
  3001.     Dim uidb As notesuidatabase
  3002.     Set uidb = ws.currentdatabase
  3003.     If Not (uidb Is Nothing) Then
  3004.         Set note = uidb.documents.getfirstdocument
  3005.     End If
  3006.     If (note Is Nothing) Then Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument()
  3007.     If note Is Nothing Then
  3008.         Set uidoc = ws.currentdocument
  3009.         If Not(uidoc Is Nothing) Then Set note = uidoc.document
  3010.     End If
  3011.     If note Is Nothing Then 
  3012.         Msgbox "Unable to locate document to copy from"
  3013.         Exit Function
  3014.     End If
  3015.     Set newnote = NOTECopyIntoNewDocument(nType, False, note)
  3016.     If (bLaunch) Then Call ws.editdocument(True, newnote)
  3017.     Set UICopyIntoNewDocument = newnote    
  3018. End Function
  3019. Lotus Product
  3020. V0.0u
  3021. O=Lotus Notes
  3022. O=Lotus Notes
  3023. PURSAFO
  3024. |.:#U
  3025. O=Lotus Notes
  3026. CN=Lotus Notes Template Development/O=Lotus Notes
  3027. PURSAFO
  3028. Sxb?l
  3029. $TITLE
  3030. $Flags
  3031. $PublicAccess
  3032. $ScriptLib
  3033. $ScriptLib_O
  3034. '++LotusScript Development Environment:2:5:(Options):0:74
  3035. Option Public
  3036. Option Declare
  3037. Use "Common" 
  3038. '++LotusScript Development Environment:2:5:(Forward):0:1
  3039. Declare Class MemoDocument
  3040. Declare Sub MEMOReplyToAll(note As Variant)
  3041. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3042. 'CoreBEEmailClasses: 
  3043. Const MEMO_OWNER                         =            &h00000001&
  3044. Const MEMO_AUTOSIGNATURE        =             &h00000002&
  3045. Const MEMO_SPELLCHECK                 =            &h00000004&
  3046. Const MEMO_SIGN                             =            &h00000008&
  3047. Const MEMO_EDITSTATIONERY         =             &h00000020&
  3048. Const MEMO_ISSTATIONERY             =             &h00000100&
  3049. Const MEMO_TOMGR                         =            &h00000200&
  3050. Const MEMO_SEND                         =            &h00000400&
  3051. Const MEMO_SAVE                         =            &h00000800&
  3052. Const MEMO_DRAFT                         =            &h00001000&
  3053. Const MEMO_ISNEWDOC                 =            &h00002000&
  3054. Const MEMO_READER                     =            &h00004000&
  3055. Const MEMO_ISDIRTY                     =            &h00008000&
  3056. Const MEMO_WASMAILED                 =            &h00010000&
  3057. Const MEMO_REPLYTOALL                 =            &h00020000&
  3058. Const MEMO_WASSAVED                 =            &h00080000&
  3059. Const MEMO_SEND_FILE                 =            &h00200000&
  3060. Const MEMO_CANCEL                         =            &h00400000&
  3061. Const MEMO_STATPUTINFOLD         =            &h00800000&
  3062. Const MEMO_ACTION_NONE             =            &h01000000&
  3063. Const MEMO_NEWCOPY                    =            &h04000000&
  3064. Const MEMO_ALWAYSSAVE                =            &h08000000&
  3065. Const MEMO_ALWAYSPROMPT        =            &h10000000&
  3066. Const MEMO_NEVERSAVE                =            &h20000000&
  3067. Const MEMO_DISCARD                    =            &h40000000&
  3068. Class MemoDocument
  3069. 'objects
  3070.     Private m_calprofile As notesdocument
  3071.     Private noteMemo As notesdocument
  3072.     Private session As notessession
  3073.     Private objStringTable As MemoStringTable
  3074. ' Properties
  3075.     m_lngFlags As Long
  3076.     m_lngActionInProgress As Long    
  3077.     m_nSignatureOption As Integer
  3078.     m_nWasSaved As Integer
  3079.     m_strSignature As String
  3080. 'Foreward Declarations
  3081. Declare Public Sub new()
  3082. Declare Public Sub Delete()
  3083. Declare Public Function Init(note As Variant, bIsNewDoc As Variant)
  3084. Declare Public Function PostOpen(note As Variant)
  3085. Declare Public Function PostSave()
  3086. Declare Public Function QuerySave(note As Variant)    
  3087. Declare Public Function SetActionInProgress(lngAction As Long)
  3088. Declare Public Function SetOptionFlag(lngOption As Long)
  3089. Declare Public Function IsOptionFlagSet(lngOption As Long) As Integer
  3090. Declare Public Function ClearOptionFlag(lngOption As Long)
  3091. Declare Private Sub SetPreferenceFields()
  3092. Declare Private Sub ProcessStationery()    
  3093. Declare Private Sub SetViewFields()    
  3094. Declare Private Sub MarkDirty()
  3095. '//Constructor//
  3096.     Sub New
  3097.         Set session = New notessession
  3098.         Set m_calprofile = session.CurrentDatabase.GetProfileDocument("CalendarProfile")
  3099.         If Not m_calprofile.HasItem("Owner") Then
  3100.             Call m_calprofile.replaceitemvalue("Owner",session.username)
  3101.             Call m_calprofile.save(True,True)
  3102.         End If
  3103.         If m_calprofile.HasItem("Spellcheck") Then
  3104.             If Isnumeric(m_calprofile.Spellcheck(0)) Then
  3105.                 SetOptionFlag(MEMO_SPELLCHECK)
  3106.             End If
  3107.         End If
  3108.         If m_calprofile.HasItem("SignatureOption") Then
  3109.             If Isnumeric(m_calprofile.SignatureOption(0)) Then
  3110.                 Me.m_nSignatureOption = Cint(m_calprofile.SignatureOption(0))
  3111.                 Me.m_strSignature = m_calprofile.Signature(0)
  3112.             End If
  3113.             If Isnumeric(m_calprofile.EnableSignature(0)) Then
  3114.                 SetOptionFlag(MEMO_AUTOSIGNATURE)
  3115.             End If
  3116.         End If
  3117.         If m_calprofile.HasItem("SignMail") Then
  3118.             If Isnumeric(m_calprofile.SignMail(0)) Then
  3119.                 SetOptionFlag(MEMO_SIGN)
  3120.             End If
  3121.         End If
  3122.     End Sub     
  3123. '//Destructor//
  3124.     Sub Delete
  3125.     End Sub
  3126. '//Init//
  3127.     Function Init(note As Variant, bIsNewDoc As Variant)
  3128.         Set Me.objStringTable = New MemoStringTable        
  3129.         If Not bIsNewDoc Then
  3130.             Set Me.noteMemo = note
  3131.         Else
  3132.             SetOptionFlag(MEMO_OWNER)
  3133.             SetOptionFlag(MEMO_ISNEWDOC)
  3134.         End If
  3135.         SetActionInProgress(MEMO_ACTION_NONE)
  3136.     End Function
  3137.     Function PostOpen(note As Variant)
  3138.         Set Me.noteMemo = note
  3139.         Call GetMemoType(Me.noteMemo)        
  3140.         If IsOptionFlagSet(MEMO_OWNER) Then
  3141.             Call SetPreferenceFields()            
  3142.             If IsOptionFlagSet(MEMO_TOMGR) Then
  3143.                 ClearOptionFlag(MEMO_TOMGR)
  3144.                 Dim m_vManager As Variant
  3145.                 m_vManager = Evaluate("@DbManager")
  3146.                 Call Me.noteMemo.replaceitemvalue("EnterSendTo",m_vManager)
  3147.                 Call MarkDirty()
  3148.             Elseif IsOptionFlagSet(MEMO_REPLYTOALL) Then
  3149.                 Call MEMOReplyToAll(note)
  3150.                 Call MarkDirty()
  3151.             End If
  3152.         End If
  3153.         If Me.noteMemo.hasitem("PostedDate") Then
  3154.             SetOptionFlag(MEMO_WASMAILED)
  3155.             Dim ValidUsers As Variant
  3156.             Dim nNameInValid As Integer            
  3157.             ValidUsers = Fulltrim(Arrayappend(Me.noteMemo.from,Me.noteMemo.Principal))
  3158.             nNameInValid = NAMEFindInList(Me.session.username, ValidUsers)
  3159.             If nNameInValid < 0 Then
  3160.                 SetOptionFlag(MEMO_READER)
  3161.             Else
  3162.                 SetOptionFlag(MEMO_OWNER)
  3163.             End If
  3164.         End If
  3165.         Select Case note.DefaultMailSaveOptions(0)
  3166.         Case "0"
  3167.             SetOptionFlag(MEMO_NEVERSAVE)    
  3168.         Case "1"
  3169.             SetOptionFlag(MEMO_ALWAYSSAVE)
  3170.         Case "2"
  3171.             SetOptionFlag(MEMO_ALWAYSPROMPT)
  3172.         End Select
  3173.         If IsOptionFlagSet(MEMO_NEWCOPY) Then
  3174.             Call noteMemo.ReplaceItemValue("$VersionOpt", "6")    
  3175.         End If
  3176.         If Not noteMemo.IsNewNote Then
  3177.             With noteMemo
  3178.                 Call .removeitem("SaveOptions")
  3179.                 Call .removeitem("MailOptions")
  3180.             End With
  3181.         End If
  3182.         Call ProcessStationery()        
  3183.     End Function
  3184.     Function QuerySave(Continue As Variant)
  3185.         If IsOptionFlagSet(MEMO_ISSTATIONERY) And Not (Me.m_lngActionInProgress = MEMO_CANCEL) Then
  3186.             If Not IsOptionFlagSet(MEMO_EDITSTATIONERY) Then
  3187.                 Dim strResponse As String                
  3188.                 strResponse = Inputbox$(objStringTable.getstring(MEMO_STRING+1,""),objStringTable.getstring(MEMO_STRING+16,""),objStringTable.getstring(MEMO_STRING+17,""))                
  3189.                 If strResponse = "" Then
  3190.                     Continue = False                    
  3191.                 End If
  3192.                 Call noteMemo.replaceitemvalue("MailStationeryName" ,strResponse)               
  3193.                 SetOptionFlag(MEMO_STATPUTINFOLD)
  3194.                 With noteMemo
  3195.                     Call .replaceitemvalue("Form", "Memo")
  3196.                     Call .replaceitemvalue("IsMailStationery" , 1)
  3197.                     Call .replaceitemvalue("MailOptions","0")
  3198.                     Call .replaceitemvalue("SaveOptions","1")
  3199.                     If Not .hasitem("Sign") Then
  3200.                         Call .replaceitemvalue("Sign","0")
  3201.                     End If
  3202.                     If Not .hasitem("Encrypt") Then
  3203.                         Call .replaceitemvalue("Encrypt","0")
  3204.                     End If
  3205.                     Call .removeitem("PostedDate")
  3206.                     Call .removeitem("DeliveredDate")            
  3207.                 End With
  3208.             End If        
  3209.         End If
  3210.         Select Case Me.m_lngActionInProgress
  3211.         Case MEMO_CANCEL
  3212.             With noteMemo
  3213.                 Call .removeitem("$AutoSpell")
  3214.                 Call .replaceitemvalue("SaveOptions" , "0")
  3215.                 Call .replaceitemvalue("MailOptions","0")
  3216.             End With
  3217.         Case MEMO_ACTION_NONE
  3218.             'let the editor decide
  3219.         Case MEMO_DRAFT
  3220.             With noteMemo
  3221.                 Call .replaceitemvalue("MailOptions","0")
  3222.                 Call .replaceitemvalue("SaveOptions","1")
  3223.                 Call SetViewFields()
  3224.             End With
  3225.         Case MEMO_SAVE
  3226.             Call noteMemo.replaceitemvalue("SaveOptions","1")            
  3227.         Case MEMO_SEND
  3228.             If Me.m_lngFlags And MEMO_ALWAYSPROMPT Then
  3229.                 If Me.m_lngFlags And MEMO_DISCARD Then
  3230.                     With noteMemo
  3231.                         Call .replaceitemvalue("MailOptions","0")                    
  3232.                         Call .replaceitemvalue("SaveOptions" , "0")        
  3233.                     End With
  3234.                 Else
  3235.                     With noteMemo
  3236.                         Call .replaceitemvalue("MailOptions","0")                    
  3237.                         Call .replaceitemvalue("SaveOptions" , "1")        
  3238.                     End With
  3239.                 End If
  3240.             End If
  3241.             If Me.m_lngFlags And MEMO_ALWAYSSAVE Then
  3242.                 Call noteMemo.replaceitemvalue("MailOptions","0")
  3243.                 Call noteMemo.ReplaceItemValue("SaveOptions","1")
  3244.             End If
  3245.             If Me.m_lngFlags And MEMO_NEVERSAVE Then
  3246.                 Call noteMemo.replaceitemvalue("MailOptions","0")
  3247.                 Call noteMemo.ReplaceItemValue("SaveOptions","0")
  3248.             End If            
  3249.         Case MEMO_SEND_FILE
  3250.             With noteMemo
  3251.                 Call .replaceitemvalue("MailOptions","0")                    
  3252.                 Call .replaceitemvalue("SaveOptions" , "1")        
  3253.             End With
  3254.         End Select        
  3255.         If noteMemo.HasItem("$VersionOpt") Then Call Me.noteMemo.ReplaceItemValue("$VersionOpt", "0")
  3256.     End Function
  3257.     Function PostSave()
  3258.         If IsOptionFlagSet(MEMO_STATPUTINFOLD) Then
  3259.             Call noteMemo.putinfolder("Stationery")                
  3260.             ClearOptionFlag(MEMO_STATPUTINFOLD)
  3261.         End If
  3262.         If IsOptionFlagSet(MEMO_ISNEWDOC) Then
  3263.             ClearOptionFlag(MEMO_ISNEWDOC)
  3264.             SetOptionFlag(MEMO_WASSAVED)
  3265.         End If
  3266.     End Function
  3267.     Function SetActionInProgress(lngAction As Long)
  3268.         Me.m_lngActionInProgress = lngAction
  3269.     End Function
  3270.     Function SetOptionFlag(lngOption As Long)
  3271.         If Not (Me.m_lngFlags And lngOption) = lngOption Then    
  3272.             Me.m_lngFlags = Me.m_lngFlags Or lngOption        
  3273.         End If
  3274.     End Function
  3275.     Function ClearOptionFlag(lngOption As Long)
  3276.         If (Me.m_lngFlags And lngOption) = lngOption Then
  3277.             Me.m_lngFlags = Me.m_lngFlags Xor lngOption
  3278.         End If
  3279.     End Function
  3280.     Function IsOptionFlagSet(lngOption As Long) As Integer
  3281.         If (Me.m_lngFlags And lngOption) = lngOption Then
  3282.             IsOptionFlagSet = True
  3283.         End If
  3284.     End Function
  3285.     Property Get EditType(bRemove As Integer) As String
  3286.         Dim sEditType As String
  3287.         sEditType = Me.session.GetEnvironmentString("MailStEd")
  3288.         If Len(sEditType) And (bRemove) Then
  3289.             Call Me.session.SetEnvironmentVar("MailStEd","")
  3290.             EditType = sEditType
  3291.         Else
  3292.             EditType = sEditType
  3293.         End If
  3294.     End Property
  3295.     Function GetMemoType(note As NotesDocument)
  3296.         Dim sEditType As String        
  3297.         Dim sFromname As String
  3298.         sEditType = Me.EditType(True)        
  3299.         If (note.isnewnote) Then
  3300.             If (Len(sEditType)) Then
  3301.                 If (sEditType = "1") Then
  3302.                     SetOptionFlag(MEMO_ISSTATIONERY)
  3303.                 Elseif (sEditType = "5") Then
  3304.                     SetOptionFlag(MEMO_NEWCOPY)
  3305.                 Elseif (sEditType = "6") Then
  3306.                     SetOptionFlag(MEMO_TOMGR)
  3307.                 Elseif (sEditType = "9") Then
  3308.                     SetOptionFlag(MEMO_REPLYTOALL)
  3309.                 End If
  3310.             End If
  3311.             SetOptionFlag(MEMO_OWNER)
  3312.         Else
  3313.             If sEditType = "2" Then            'see if it's a stationery edit and treat it 'Special'
  3314.                 SetOptionFlag(MEMO_ISSTATIONERY)
  3315.                 SetOptionFlag(MEMO_EDITSTATIONERY)
  3316.                 Exit Function
  3317.             End If
  3318.             If note.HasItem("IsMailStationery") Then            
  3319.                 If Isnumeric(Me.noteMemo.IsMailStationery(0)) Then
  3320.                     If Cint(Me.noteMemo.IsMailStationery(0)) Then
  3321.                         SetOptionFlag(MEMO_ISSTATIONERY)
  3322.                     End If
  3323.                 End If
  3324.             End If
  3325.             If note.HasItem("Principal") Then
  3326.                 sFromName = note.GetItemvalue("Principal")(0)
  3327.                 If Len(sFromName) = 0 Then
  3328.                     sFromname = note.GetItemValue("From")(0)
  3329.                 End If
  3330.             Else
  3331.                 sFromName = note.GetItemValue("From")(0)
  3332.             End If
  3333.             If NAMECompare(sFromName, session.username) Then
  3334.                 SetOptionFlag(MEMO_OWNER)
  3335.             Else
  3336.                 SetOptionFlag(MEMO_READER)
  3337.             End If
  3338.         End If
  3339.     End Function
  3340.     Sub SetPreferenceFields()
  3341.         If IsOptionFlagSet(MEMO_SPELLCHECK) Then
  3342.             Call Me.noteMemo.replaceitemvalue("$AutoSpell","1")
  3343.             Call MarkDirty()
  3344.         End If 
  3345.     End Sub
  3346.     Sub ProcessStationery()
  3347.         If IsOptionFlagSet(MEMO_ISSTATIONERY) Then
  3348.             If Not IsOptionFlagSet(MEMO_EDITSTATIONERY) Then
  3349.                 If Isnumeric(Me.noteMemo.IsMailStationery(0)) Then
  3350.                     If Cint(Me.noteMemo.IsMailStationery(0)) Then
  3351.                         With Me.noteMemo
  3352.                             Call .RemoveItem("IsMailStationery")
  3353.                             Call .RemoveItem("MailStationeryName")
  3354.                             Call .RemoveItem("SaveOptions")
  3355.                             Call .RemoveItem("MailOptions")
  3356.                             Call .ReplaceItemValue("$VersionOpt", "6")
  3357.                         End With
  3358.                         ClearOptionFlag(MEMO_ISSTATIONERY)
  3359.                     End If
  3360.                 Else
  3361.                 'make sure a new note has the flags set so it prompts for stationery name
  3362.                     With noteMemo
  3363.                         Call .replaceitemvalue("IsMailStationery",1)
  3364.                         Call .replaceitemvalue("MailOptions","0")
  3365.                         Call .replaceitemvalue("SaveOptions","1")
  3366.                         Call .replaceitemvalue("Sign","0")                    
  3367.                         Call .replaceitemvalue("Encrypt","0")
  3368.                     End With
  3369.                     Call MarkDirty()
  3370.                 End If
  3371.             End If
  3372.         End If
  3373.     End Sub
  3374.     Sub SetViewFields()
  3375.         With noteMemo
  3376.             If (Len(.SendTo(0)) = 0) Or (.HasItem("EnterSendTo") And (.SendTo(0) <> .EnterSendTo(0))) Then            
  3377.                 Call .replaceitemvalue("SendTo", .EnterSendTo)
  3378.             End If
  3379.             If Len(.CopyTo(0)) = 0 Or (.HasItem("EnterCopyTo") And (.CopyTo(0) <> .EnterCopyTo(0))) Then                        
  3380.                 Call .replaceitemvalue("CopyTo", .EnterCopyTo)
  3381.             End If
  3382.         End With
  3383.     End Sub
  3384.     Sub MarkDirty()
  3385.         SetOptionFlag(MEMO_ISDIRTY)
  3386.     End Sub
  3387. End Class
  3388. '++LotusScript Development Environment:2:2:MEMOReplyToAll:1:8
  3389. Sub MEMOReplyToAll(note As Variant)
  3390.     Dim vInheritedSendTo As Variant
  3391.     Dim vRealInheritedSendTo As Variant
  3392.     Dim iSenderIndex As Integer
  3393.     Dim x As Integer
  3394.     Dim strOwner As String
  3395.     Dim strInheritedDomain As String
  3396.     strOwner = CSGetMailFileOwner()
  3397.     vInheritedSendTo = note.GetItemValue("InheritedSendTo")
  3398.     strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
  3399.     ' Remove the sender from the list
  3400.     iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo)
  3401.     If (iSenderIndex >= 0) Then
  3402.         vInheritedSendTo(iSenderIndex) = ""
  3403.     End If        
  3404.     vRealInheritedSendTo = Fulltrim(vInheritedSendTo)
  3405.     ' Append the inheritedfromdomain
  3406.     If Len(strInheritedDomain) Then
  3407.         For x = 0 To Ubound(vRealInheritedSendTo)
  3408.             If Not vRealInheritedSendTo(x) = "" Then
  3409.                 vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain
  3410.             End If
  3411.         Next
  3412.     End If
  3413.     Call note.ReplaceItemValue("EnterCopyTo", vRealInheritedSendTo)
  3414.     ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain
  3415.     ' Find all addresses without a domain and append FromDomain
  3416.     ' Find all addresses whose domain is the same as ours and strip it off
  3417. End Sub
  3418. Lotus Producti
  3419. }d    #8l
  3420. }D    ^\
  3421. }D    #K
  3422. O=Lotus Notes
  3423. O=Lotus Notes
  3424. PURSAFO
  3425. |.:#U
  3426. O=Lotus Notes
  3427. CN=Lotus Notes Template Development/O=Lotus Notes
  3428. PURSAFO
  3429. "T~}Q^2
  3430. $TITLE
  3431. $Flags
  3432. $PublicAccess
  3433. $ScriptLib
  3434. $ScriptLib_O
  3435. '++LotusScript Development Environment:2:5:(Options):0:74
  3436. Option Public
  3437. Option Declare
  3438. Use "CoreBEEmailClasses"
  3439. '++LotusScript Development Environment:2:5:(Forward):0:1
  3440. Declare Class UIMemoDocument As MemoDocument
  3441. Declare Class OLEUIMemoDocument As UIMemoDocument
  3442. Declare Sub Initialize
  3443. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3444. 'CoreEmailClasses: 
  3445. Class UIMemoDocument As MemoDocument
  3446. 'UI Objects
  3447.     Public noteUIMemo As notesuidocument    
  3448.     Private uiws As notesuiworkspace 
  3449.     Private fSuccess As Integer
  3450. 'forward declarations    
  3451. Declare Public    Sub InsertSignature(FromMailPreference As Integer)
  3452. Declare Public Sub ReplyToAll()
  3453. Declare Public Function QueryClose(continue As Integer)
  3454. Declare Public Function QueryModeChange(note As Variant) As Integer
  3455. Declare Public Function PostModeChange()
  3456. Declare Private Sub Reload()    
  3457.     Function Init(note As Variant, bIsNewDoc As Variant)
  3458.         If Isobject(note) Then
  3459.             If Not note.inpreviewpane Then            
  3460.                 Call MemoDocument..init(note.document,bIsNewDoc)    
  3461.                 Set uiws = New notesuiworkspace            
  3462.                 Set Me.noteUIMemo = note                    
  3463.                 noteUIMemo.autoreload = False
  3464.             End If
  3465.         End If
  3466.     End Function
  3467.     Function PostOpen(note As Variant)
  3468.         Call MemoDocument..PostOpen(note.document)
  3469.         Call Me.noteMemo.ReplaceItemValue("$tempfoo","PrintingMailGraphic")
  3470.         If Not note.IsNewDoc Then
  3471.             If Not note.inpreviewpane Then
  3472.                 If Not IsOptionFlagSet(MEMO_WASMAILED) Then
  3473.                     noteUIMemo.editmode = True
  3474.                     Call note.document.removeitem("MailOptions")
  3475.                 End If
  3476.             End If 
  3477.         End If
  3478.         If Not note.inpreviewpane Then        
  3479.             If IsOptionFlagSet(MEMO_ISDIRTY) Then
  3480.                 Call reload()        
  3481.             End If
  3482.             If noteMemo.isnewnote Then
  3483.                 If IsOptionFlagSet(MEMO_AUTOSIGNATURE) Then
  3484.                     Call InsertSignature(True)
  3485.                 End If
  3486.             End If            
  3487.             If note.EditMode Then
  3488.                 With note.document
  3489.                     If IsOptionFlagSet(MEMO_READER) Then
  3490.                         Call .replaceitemvalue("MailOptions","0")
  3491.                         Call .removeitem("SaveOptions")                                
  3492.                         Call .removeitem("MailSaveOptions")
  3493.                     Else
  3494.                         If Not IsOptionFlagSet(MEMO_ISSTATIONERY) Then
  3495.                             Call .removeitem("SaveOptions")        
  3496.                             Call .removeitem("MailOptions")        
  3497.                         End If
  3498.                     End If
  3499.                 End With
  3500.             End If
  3501.         End If
  3502.     End Function
  3503.     Function QueryModeChange(note As Variant) As Integer
  3504.         If note.inpreviewpane Then            
  3505.             QueryModeChange = False    
  3506.         Else
  3507.             QueryModeChange = True
  3508.         End If
  3509.     End Function
  3510.     Function PostModeChange
  3511.         If noteUIMemo.EditMode Then
  3512.             With noteMemo
  3513.                 If IsOptionFlagSet(MEMO_READER) Then
  3514.                     Call .replaceitemvalue("MailOptions","0")
  3515.                     Call .removeitem("SaveOptions")                                
  3516.                     Call .removeitem("MailSaveOptions")
  3517.                 Else
  3518.                     Call .removeitem("SaveOptions")                                
  3519.                     Call .removeitem("MailOptions")        
  3520.                 End If
  3521.             End With
  3522.         End If
  3523.     End Function
  3524.     Function QuerySave(continue As Variant)
  3525.         On Error Goto TRAP
  3526.         Goto TOP
  3527. TRAP:
  3528.         Call noteMemo.removeitem("SaveOptions")        
  3529.         Call SetActionInProgress(0)
  3530.         continue = False
  3531.         Exit Function
  3532. TOP:        
  3533.         Dim nSaveFlag As Integer                    
  3534.         Call noteUIMemo.refresh()
  3535.         If IsOptionFlagSet(MEMO_EDITSTATIONERY) Then
  3536.             'stationery update
  3537.         End If
  3538.         If (IsOptionFlagSet(MEMO_ISSTATIONERY) And IsOptionFlagSet(MEMO_ISNEWDOC)) _
  3539.         And Not (Me.m_lngActionInProgress = MEMO_DRAFT) Then        
  3540.             nSaveFlag = Messagebox (objStringTable.getstring(MEMO_STRING+22,""), MB_YESNO , _
  3541.             objStringTable.getstring(MEMO_STRING+16,""))
  3542.             If nSaveFlag = IDNO Then
  3543.                 Call SetActionInProgress(MEMO_CANCEL)
  3544.             End If
  3545.         End If
  3546.         If (Me.m_lngActionInProgress = MEMO_SEND) Or (Me.m_lngActionInProgress = MEMO_SEND_FILE) Then
  3547.             If IsOptionFlagSet(MEMO_ALWAYSPROMPT) And (Me.m_lngActionInProgress = MEMO_SEND) Then
  3548.                 nSaveFlag = Messagebox (objStringTable.getstring(MEMO_STRING+23,""), MB_YESNO , objStringTable.getstring(MEMO_STRING+16,""))
  3549.                 If nSaveFlag = IDYES Then
  3550.                     noteMemo.Savemessageonsend = True
  3551.                 Else
  3552.                     SetOptionFlag(MEMO_DISCARD)
  3553.                 End If
  3554.             Elseif IsOptionFlagSet(MEMO_ALWAYSSAVE) Then
  3555.                 noteMemo.Savemessageonsend = True
  3556.             Elseif IsOptionFlagSet(MEMO_NEVERSAVE) Then
  3557.                 noteMemo.Savemessageonsend = False
  3558.                 SetOptionFlag(MEMO_DISCARD)
  3559.             End If
  3560.             Call noteMemo.replaceitemvalue("SaveOptions","0")                            
  3561.             Call noteUIMemo.Send()
  3562.             Call noteMemo.removeitem("SaveOptions")        
  3563.         End If
  3564.         Call MemoDocument..QuerySave(continue)
  3565.     End Function
  3566.     Function QueryClose(continue As Integer)
  3567.         If Me.m_lngActionInProgress = MEMO_SEND_FILE Then
  3568.             Call uiws.folder(,1)        
  3569.         End If
  3570.     End Function
  3571.     Sub ReplyToAll
  3572.         Call MEMOReplyToAll(noteMemo)
  3573.         Call Reload()
  3574.     End Sub
  3575.     Sub InsertSignature(FromMailPreference As Integer)
  3576.         Select Case noteMemo.Form(0)
  3577.         Case "Bookmark", "Phone Message"
  3578.             Exit Sub            
  3579.         End Select
  3580.         If Not FromMailPreference Then
  3581.             Dim ntmpSignatureOption As Integer
  3582.             Dim nSuccess As Integer            
  3583.             Dim noteCursorDoc As notesdocument    
  3584.             Set noteCursorDoc = session.currentdatabase.CreateDocument
  3585.             If Not noteUIMemo.CurrentField = "Body" Then
  3586.                 Messagebox(objStringTable.getstring(MEMO_STRING+19,""))
  3587.                 Exit Sub
  3588.             End If
  3589.             nSuccess = uiws.dialogbox("(SignatureOption)", True,True,False,False,False,False,_
  3590.             objStringTable.getstring(MEMO_STRING+18,""),noteCursorDoc,True)
  3591.             If nSuccess Then    
  3592.                 ntmpSignatureOption = Cint(noteCursorDoc.SignatureOption(0))
  3593.                 If ntmpSignatureOption = 2 Then'this file will override the preference
  3594.                     m_nSignatureOption = ntmpSignatureOption
  3595.                     m_strSignature = noteCursorDoc.Signature(0)
  3596.                 End If
  3597.             Else 
  3598.                 Exit Sub
  3599.             End If        
  3600.         End If    
  3601.         Select Case m_nSignatureOption
  3602.         Case 1
  3603.             If FromMailPreference Then Call noteUIMemo.GotoField("Body")
  3604.             Call noteUIMemo.inserttext(m_strSignature)
  3605.         Case 2 
  3606.             Dim m_FILTER As Variant                    
  3607.             Call noteUIMemo.GotoField("Body")
  3608.             m_FILTER = Evaluate(|@RightBack("| & m_strSignature & |";".")|)
  3609.             Select Case Ucase(m_FILTER(0))
  3610.             Case "TXT"
  3611.                 m_FILTER(0) = "ASCII"
  3612.             End Select
  3613.             Call noteUIMemo.Import(m_FILTER(0),m_strSignature)
  3614.         End Select                
  3615.         If Not Me.noteMemo.Form(0) = "Memo" Then
  3616.             Call noteUIMemo.GotoField("Body")                
  3617.         Else                
  3618.             Call noteUIMemo.GotoField("EnterSendTo")                
  3619.         End If
  3620.     End Sub
  3621.     Sub Reload()
  3622.         ClearOptionFlag(MEMO_ISDIRTY)
  3623.         If noteUIMemo.editmode Then    
  3624.             Call Me.noteUIMemo.reload
  3625.         End If
  3626.         Call Me.noteUIMemo.RefreshHideFormulas
  3627.     End Sub
  3628. End Class
  3629. Class OLEUIMemoDocument As UIMemoDocument
  3630.     strProgid As String
  3631.     OLEObject As Variant
  3632.     Function PostOpen(note As Variant)    
  3633.         If Not note.inpreviewpane Then            
  3634.             strProgid = note.document.~$OLEObjProgId(0)
  3635.             If (note.isnewdoc) Then     
  3636.                 note.document.OriginalEditor = strProgid
  3637.                 Call note.GotoField(note.document.~$OLEObjField(0))
  3638.                 Call note.CreateObject("OLEObject", strProgId ,"")
  3639.             Else
  3640.                 If Lcase(note.document.OriginalEditor(0)) = Lcase(strProgId) Then
  3641.                     note.editmode = True
  3642.                     Set OLEObject = note.GetObject("OLEObject")
  3643.                     If Not(Isobject(OLEObject)) Then
  3644.                         note.EditMode = True
  3645.                         note.document.OriginalEditor = strProgid
  3646.                         note.GotoField(note.~$OLEObjField(0))
  3647.                         Call note.CreateObject("OLEObject",strProgId,"")      
  3648.                         Exit Function
  3649.                     End If
  3650.                 Else
  3651.                     note.document.tmpUseOLE = ""
  3652.                     note.RefreshHideFormulas               
  3653.                 End If
  3654.             End If     
  3655.             Call UIMemoDocument..PostOpen(note)
  3656.         End If
  3657.     End Function        
  3658. End Class
  3659. '++LotusScript Development Environment:2:2:Initialize:1:10
  3660. Sub Initialize
  3661. End Sub
  3662. Lotus Product
  3663. V0.0N
  3664. <    <    X
  3665. ~,    #8
  3666. O=Lotus Notes
  3667. O=Lotus Notes
  3668. PURSAFO
  3669. |.:#U
  3670. O=Lotus Notes
  3671. CN=Lotus Notes Template Development/O=Lotus Notes
  3672. PURSAFO
  3673. (\i=)
  3674. r7'{Y
  3675. $TITLE
  3676. $Flags
  3677. $PublicAccess
  3678. $ScriptLib
  3679. $ScriptLib_O
  3680. '++LotusScript Development Environment:2:5:(Options):0:74
  3681. Option Public
  3682. Option Explicit
  3683. Use "Common"
  3684. '++LotusScript Development Environment:2:5:(Forward):0:1
  3685. Declare Class UIEventObject
  3686. Declare Sub Initialize
  3687. Declare Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
  3688. Declare Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument) As Integer
  3689. Declare Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
  3690. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3691. 'CSEventClass: 
  3692. 'CSEventClass: 
  3693. Class UIEventObject
  3694.     m_ws As NotesUIWorkspace
  3695.     m_noteStatus As NotesDocument
  3696.     m_beobject As Variant  
  3697.     m_strtable As Variant                        ' This is a reference to the backend objects StringTable
  3698.     m_lAction As Long                            ' These are OR'd together
  3699.     m_bSendComments As Integer
  3700.     m_nEventType As Integer
  3701.     m_bOwner As Integer
  3702.     Property Get ActionInProgress As Long
  3703.         ActionInProgress = m_lAction
  3704.     End Property
  3705.     Property Set ActionInProgress As Long
  3706.         ' If the caller passes ACTION_NONE, remove all existing actions set
  3707.         If (ActionInProgress = ACTION_NONE) Then
  3708.             m_lAction = ACTION_NONE
  3709.         Else
  3710.             m_lAction = (m_lAction Or ActionInProgress)
  3711.         End If
  3712.     End Property
  3713.     Property Get BEObject As Variant
  3714.         Set BEObject = m_beobject
  3715.     End Property
  3716.     Property Get SendComments As Integer
  3717.         SendComments = m_bSendComments
  3718.     End Property
  3719.     Property Get StringTable As Variant
  3720.         Set StringTable = m_strtable
  3721.     End Property
  3722.     Property Get Workspace As NotesUIWorkspace
  3723.         Set Workspace = m_ws
  3724.     End Property
  3725.     Property Get RepeatChange As Integer
  3726.         RepeatChange = m_beobject.RepeatModify
  3727.     End Property
  3728.     Property Get EventType As Integer
  3729.         EVentType = m_nEventType
  3730.     End Property
  3731.     Property Get IsOwner As Integer
  3732.         IsOwner = m_bOwner
  3733.     End Property
  3734.     Property Get NeedsReschedule As Integer
  3735.         Dim dtCurrentEnd As NotesDateTime
  3736.         Dim dtCurrentStart As NotesDateTime
  3737.         NeedsREschedule = False
  3738.         ' if this is a new document, return false
  3739.         If Not(m_beobject.WasMailed) Then
  3740.             Exit Property
  3741.         End If
  3742.         If (IsActionInProgress(ACTION_CANCEL)) Then
  3743.             Exit Property
  3744.         End If
  3745.         Set dtCurrentEnd = m_beobject.CurrentEndDate
  3746.         If (m_beobject.OriginalEndDate.TimeDifference(dtCurrentEnd) <> 0) Then
  3747.             NeedsReschedule = True
  3748.             Exit Property
  3749.         End If
  3750.         ' If there are no invitees, we do not need to reschedule        
  3751.         If m_beobject.WasMailed Then
  3752.             Set dtCurrentStart = m_beobject.CurrentStartDate
  3753.             If (m_beobject.OriginalStartDate.TimeDifference(dtCurrentStart) <> 0) Then
  3754.                 NeedsReschedule = True
  3755.             End If
  3756.         End If
  3757.     End Property
  3758.     Property Set SendComments As Integer
  3759.         m_bSendComments = SendComments
  3760.     End Property
  3761.     Property Get OkToReschedule As Integer        
  3762.         Dim nResult As Integer
  3763.         If (m_beobject.IsWorkflowEnabled) And (m_beobject.WasMailed) Then
  3764.             nResult = YesNoCancelPrompt(m_strtable.GetString(RESC_UPD_MSG, Null),m_strtable.GetString(RESC_TITLE,Null))
  3765.             If (nResult <> 2) Then
  3766.                 ActionInProgress = ACTION_RESCHEDULE
  3767.                 m_bSendComments = (nResult = 6)
  3768.                 OkToReschedule = True            
  3769.             Else
  3770.                 Call RemoveActionInProgress(ACTION_RESCHEDULE)
  3771.                 m_bSendComments = False
  3772.                 OkToReschedule = False
  3773.             End If
  3774.         Else
  3775.             OkToReschedule = YesNoPrompt(m_strtable.GetString(ENTRY_DTMOD, Null), m_strtable.GetString(DTMOD_TITLE,Null))    
  3776.         End If
  3777.     End Property
  3778.     Function OkToAccept(Byval bIncludeComments As Integer) As Integer
  3779.         ' First, make sure the time is valid
  3780.         Dim note As NotesDocument
  3781.         Set note = m_beobject.Document
  3782.         If AllowDoubleBook() Then
  3783.             m_bSendComments = bIncludeComments
  3784.             OkToAccept = True
  3785.             ActionInProgress = ACTION_ACCEPT
  3786.         End If        
  3787.     End Function
  3788.     Sub New (nEventType As Integer, bOwner As Integer)
  3789.         m_nEVentType = nEventType
  3790.         m_bOwner = bOwner
  3791.         Set m_ws = New NotesUIWorkspace
  3792.         If (bOwner) Then
  3793.             Set m_beobject = New NotesCSEventOwnerDocument(nEventType)
  3794.             If (nEventType = 1) Then
  3795.                 Set m_strtable =  New MeetingOwnerStringTable()
  3796.             Else    
  3797.                 Set m_strtable =  New TaskOwnerStringTable()
  3798.             End If
  3799.         Else
  3800.             Set m_beobject = New NotesCSEventParticipantDocument(nEventType)
  3801.             If (nEventType = 1) Then
  3802.                 Set m_strtable =  New MeetingParticipantStringTable()
  3803.             Else    
  3804.                 Set m_strtable =  New TaskParticipantStringTable()
  3805.             End If
  3806.         End If
  3807.     End Sub
  3808.     Function IsActionInProgress(lAction As Long) As Integer
  3809.         IsActionInProgress =  ((m_lAction And lAction) = lAction)
  3810.     End Function
  3811.     Function RemoveActionInProgress(lAction As Long)
  3812.         If (m_lAction And lAction) Then m_lAction = (m_lAction Xor lAction)
  3813.     End Function
  3814.     Function AlarmDialog() As Integer
  3815.         Dim note As notesdocument
  3816.         Dim profile As NotesDocument
  3817.         Dim nresult As Integer
  3818.         On Error Resume Next
  3819.         If Not(Isempty(m_beobject)) Then
  3820.             ' Make sure the date/time items are up to date
  3821.             Call m_beobject.UPdateDateTimeItems
  3822.             Set note = m_beobject.document
  3823.             nresult = m_ws.DialogBox("AlarmOptions",True,True,,,,,m_strtable.GetString(ALARM_TITLE, Null),note, True)
  3824.             If nresult Then
  3825.                 If (note.GetItemValue("tmpAlarmDisable")(0) = "1") Then
  3826.                     ' the user wants to disable the alarm for this event
  3827.                     Call m_beobject.RemoveAlarm()
  3828.                 Else
  3829.                     If Not(m_beobject.CalendarProfile.Alarmsenabled) Then
  3830.                         Set profile = m_beobject.CalendarProfile.Document
  3831.                         Call profile.ReplaceItemValue("EnableAlarms","1")
  3832.                         Call profile.save(False, False)
  3833.                         Call m_ws.EnableAlarms(True)
  3834.                     End If
  3835.                     Call m_beobject.EnableAlarm()
  3836.                 End If
  3837.             End If
  3838.         End If
  3839.         AlarmDialog = nresult
  3840.     End Function
  3841.     Function AllowInPast(dtDate As NotesDateTime, bDateOnly As Integer) As Integer
  3842.     Return True if the event can be saved, false otherwise        
  3843. %END REM
  3844.         Dim dtNow As NotesDateTime        
  3845.         Set dtNow = New Notesdatetime("")
  3846.         Call dtNow.setnow
  3847.         ' Allow a 5 minute window
  3848.         AllowInPast = True
  3849.         If Len(dtDate.DateOnly) = 0 Then Exit Function
  3850.         If (bDateOnly) Then
  3851.             If (TIMECompareDates(dtDate, dtNow) < 0) Then
  3852.                 AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), "Creating in past")
  3853.             End If
  3854.         Else
  3855.             If dtNow.TimeDifference(dtDate) > 300 Then
  3856.                 AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), "Creating in past")
  3857.             End If
  3858.         End If
  3859.     End Function
  3860.     Function AllowDoubleBook() As Integer
  3861.         Dim iResult As Integer    
  3862.         AllowDoubleBook = True
  3863.         If m_beobject.CheckDoubleBook() Then
  3864.             iResult = m_beobject.IsValidTime()
  3865.             Select Case iResult
  3866.             Case 1
  3867.                 Exit Function
  3868.             Case 2
  3869.                 AllowDoubleBook = YesNoPrompt(m_strtable.GetString(ENTRY_CONF, Null), "Double book")
  3870.             Case Else
  3871.                 AllowDoubleBook = YesNoPrompt("Determining free time could not complete. Continue?","Double book")
  3872.             End Select
  3873.         End If
  3874.     End Function
  3875.     Sub EditNotice
  3876.         Dim notice As NotesDocument
  3877.         Set notice = m_beobject.NoticeDocument
  3878.         If Not(notice Is Nothing) Then
  3879.             Call notice.ReplaceItemValue("FormToUse", notice.GetItemValue("Form")(0))
  3880.             Call notice.REplaceItemValue("Form", "(ReplyNotice)")
  3881.             Call notice.ReplaceItemValue("_ViewIcon2", 11)        
  3882.             Call m_ws.EditDocument(True,notice)
  3883.         End If
  3884.     End Sub
  3885.     Function ChangeRepeatDialog() As Integer
  3886.         Dim note As NotesDocument
  3887.         Dim sResult As String
  3888.         Set note = m_beobject.Document
  3889.         If (note.HasItem("RescheduleWhich")) Then 
  3890.             sResult = note.GetItemValue("RescheduleWhich")(0)
  3891.         Else
  3892.             If (m_ws.DialogBox("(ChangeRepeat)", True, True, , , , , "Change Repeating", note, True)) Then
  3893.                 sResult = note.getitemvalue("tmpChangeWhich")(0)
  3894.             Else
  3895.                 m_beobject.RepeatModify = REPEAT_CANCEL
  3896.                 ChangeRepeatDialog = REPEAT_CANCEL
  3897.                 Exit Function
  3898.             End If
  3899.         End If
  3900.         Select Case sResult
  3901.         Case "0"                            ' Just this one
  3902.             m_beobject.RepeatModify = REPEAT_CURRENT
  3903.         Case "1"                            ' All
  3904.             m_beobject.RepeatModify = REPEAT_ALL
  3905.         Case "2"                            ' Previous
  3906.             m_beobject.RepeatModify = REPEAT_PREV
  3907.         Case "3"                                ' Future
  3908.             m_beobject.RepeatModify = REPEAT_FUT
  3909.         End Select
  3910.         ChangeRepeatDialog = m_beobject.RepeatModify
  3911.     End Function    
  3912.     Function OkToPerformAction(vData As Variant, Byval iTitle As Integer, Byval lAction As Long, strDialog As String) As Integer
  3913.         Dim note As NotesDocument
  3914.         Set note = m_beobject.Document
  3915.         Select Case lAction
  3916.         Case ACTION_ACCEPT
  3917.             Call note.replaceitemvalue("tmpActionType","A")
  3918.         Case ACTION_DELEGATE
  3919.             Call note.replaceitemvalue("tmpActionType","D")            
  3920.         Case ACTION_COUNTER_PROPOSE
  3921.             Call note.replaceitemvalue("tmpActionType","T")
  3922.         Case ACTION_RESCHEDULE
  3923.             Call note.replaceitemvalue("tmpActionType","U")
  3924.         Case ACTION_CANCEL
  3925.             Call note.replaceitemvalue("tmpActionType","C")
  3926.         Case ACTION_CONFIRM
  3927.             Call note.replaceItemValue("tmpActionType","N")
  3928.         Case Else
  3929.             Call note.RemoveItem("tmpActionType")
  3930.         End Select
  3931.         If (m_nEventType = 2) Then Call note.replaceitemvalue("tmpTask","1")
  3932.         OkToPerformAction = m_ws.DialogBox(strDialog, True, True, , , , ,m_strtable.GetString(iTitle, vData), note, True)
  3933.         If (OkToPerformAction) Then
  3934.             Me.ActionInProgress = lAction
  3935.             If (m_bOwner) Then m_bSendComments = (m_beobject.Document.GetItemValue("tmpIncludeComments")(0) = "1")
  3936.         Else
  3937.             Call RemoveActionInProgress(lAction)
  3938.         End If
  3939.     End Function
  3940.     Function RepeatDialog() As Integer
  3941.         Dim note As notesdocument
  3942.         Set note = m_beobject.Document
  3943.         ' Display the correct document in the correct dialog
  3944.         If (note.IsNewNote) Then
  3945.             Call m_beobject.UpdateDateTimeItems()
  3946.             Call m_ws.CurrentDocument.Reload()
  3947.             If (m_ws.DialogBox("(RepeatForm)",True,True,,,,,"Recurrence options",,True)) Then
  3948.                 Call m_beobject.Document.ReplaceItemValue("OrgRepeat","1")
  3949.                 RepeatDialog = True
  3950.             Else
  3951.                 RepeatDialog = False
  3952.             End If
  3953.         Else
  3954.             If (note.IsResponse) Then
  3955.                 Call m_ws.DialogBox("(RepeatForm)",True,True,,,,True,"Recurrence options",m_beobject.ParentEvent.Document,True)
  3956.             Else
  3957.                 Call m_ws.DialogBox("(RepeatForm)",True,True,,,,True,"Recurrence options",note,True)
  3958.             End If
  3959.             RepeatDialog = False
  3960.         End If
  3961.     End Function
  3962.     Function Cancel(fCancelFlags As Integer) As Integer
  3963.         Dim note As NotesDocument
  3964.         Cancel = False          
  3965.         If Not(IsActionInProgress (ACTION_CANCEL)) Then
  3966.             Exit Function
  3967.         End If
  3968.         Set note = m_beobject.Document        
  3969.       ' See if the user wants to delete the event; if they do, we must mark our owning document
  3970.       ' for deletion and let the backend remove the responses; otherwise, we end up removing the document
  3971.       ' from underneath ourselves
  3972.         If (note.GetItemValue("tmpDeleteEntry")(0) = "1" And Not((fCancelFlags And REMOVE_DELETED) = REMOVE_DELETED)) Then
  3973.             fCancelFlags = fCancelFlags + REMOVE_RESPONSES
  3974.             Cancel = True               
  3975.         End If
  3976.         Call m_beobject.ActionHandler(ORS_MSGTYPE_CANCEL, Not(m_bSendComments), Cint(fCancelFlags))
  3977.         If (m_bSendComments) Then
  3978.             Call EditNotice
  3979.         End If
  3980.       ' if we are not deleting the document, we must save it in the backend
  3981.         If Not(Cancel) Then
  3982.             Call m_beobject.MarkTempItems
  3983.             Call note.save(True,True,True)
  3984.         End If
  3985.     End Function
  3986.     Sub CounterAccept
  3987.         If Not(IsActionInProgress(ACTION_COUNTER_ACCEPT)) Then
  3988.             Exit Sub
  3989.         End If
  3990.         Call m_beobject.ActionHandler("B", Not(m_bSendComments), 0)
  3991.         If (m_bSendComments) Then
  3992.             Call EditNotice
  3993.         End If
  3994.     End Sub
  3995.     Sub CounterDecline
  3996.         If Not(IsActionInProgress(ACTION_COUNTER_REJECT)) Then
  3997.             Exit Sub
  3998.         End If
  3999.         Call m_beobject.ActionHandler(ORS_MSGTYPE_COUNTERREJECT, Not(m_bsendcomments), 0)
  4000.         If (m_bSendComments) Then
  4001.             Call EditNotice
  4002.         End If
  4003.     End Sub
  4004.     Sub SortParticipantStatus(Byval nSortType As Integer)
  4005.         Dim LLStatus As NotesCSParticipantTable
  4006.         Dim LinkedList As NotesCSParticipantTable
  4007.         Set LinkedList = m_beobject.ParticipantTable
  4008.         Call m_beobject.GetParticipantStatus
  4009.         ' The current list is sorted via name; create a table sorted by status
  4010.         Set LLStatus = LinkedList.CreateAndCopy(nSortType)
  4011.         Call m_noteStatus.ReplaceItemValue("tmpSortType", Cstr(nSortType))
  4012.         Call CSTableAppendStatus(llStatus, m_noteStatus, True)        
  4013.         Delete LLStatus
  4014.     End Sub
  4015.     Sub ViewParticipantStatus()
  4016.         If (m_noteStatus Is Nothing) Then
  4017.             Set m_noteStatus = New NotesDocument(m_beobject.Document.PArentDatabase)
  4018.             Call SortParticipantStatus(4)
  4019.         End If
  4020.         Call m_ws.DialogBox("ParticipantTable",True,True,True,True,True,False,m_strtable.GetString(STS_TITLE,Null),m_noteStatus, True, True)
  4021.     End Sub
  4022.     Sub Reschedule
  4023.         Dim note As NotesDocument
  4024.         If Not(IsActionInProgress (ACTION_RESCHEDULE)) Then
  4025.             Exit Sub
  4026.         End If
  4027.         Set note = m_beobject.Document
  4028.         Call m_beobject.ActionHandler(ORS_MSGTYPE_RESCHEDULE, Not(m_bSendComments), 0)
  4029.         If (m_bSendComments) Then
  4030.             Call EditNotice
  4031.         End If
  4032.     End Sub
  4033.     Sub Confirm
  4034.         Call m_beobject.ActionHandler(ORS_MSGTYPE_CONFIRMATION, Not(m_bSendComments), 0)
  4035.         If (m_bSendComments) Then
  4036.             Call EditNotice
  4037.         End If
  4038.     End Sub
  4039.     Sub RemoveParticipants()
  4040.         Dim vParticipantList As Variant
  4041.         Dim vRemovedList As Variant
  4042.         Dim vDisplayList As Variant
  4043.         Dim vNewRemovedList As Variant
  4044.         Dim note As NotesDocument
  4045.         ' First, get a list of all users who can be removed
  4046.         vParticipantList = m_beobject.GetParticipantNames()
  4047.         Set note = m_beobject.Document
  4048.         vRemovedList = note.GetItemValue("Uninvited")
  4049.         If Len(vRemovedList(0)) Then
  4050.             vDisplayList = Fulltrim(Arrayreplace(vParticipantList, vRemovedList,"")) 
  4051.         Else
  4052.             vDisplayList = vParticipantList
  4053.         End If
  4054.         vNewRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.GetString(REM_PART,Null), m_strtable.getstring(REM_PART_TITLE,Null), "", vDisplayList)
  4055.         If Isarray(vNewRemovedList) Then
  4056.             Call note.ReplaceItemValue("tmpRemoveNames", vNewRemovedList)
  4057.             Call m_beobject.ActionHandler(ORS_MSGTYPE_STATUSUPDATE, True, Cstr(ORS_STATUS_REMOVED))
  4058.         End If
  4059.     End Sub
  4060.     Sub CreateMemo(bUseOriginal As Integer)
  4061.         Dim noteMemo As NotesDocument
  4062.         Set noteMemo = m_beobject.CreateMemo()
  4063.         Call m_ws.EditDocument(True, noteMemo)
  4064.     End Sub
  4065.     Sub RemoveResources()
  4066.         Dim vResourceList As Variant
  4067.         Dim vNewRemovedList As Variant
  4068.         Dim note As NotesDocument
  4069.         Set note = m_beobject.Document
  4070.         ' First, get a list of all resources who can be removed
  4071.         vResourceList = note.GetItemValue("RequiredResources")
  4072.         vNewRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.getstring(REM_PART,Null), m_strtable.GetString(REM_PART_TITLE, Null), "", vResourceList)
  4073.         If Isarray(vNewRemovedList) Then
  4074.             Set note = m_beobject.Document
  4075.             Call note.ReplaceItemValue("tmpRemoveNames", vNewRemovedList)
  4076.             Call m_beobject.ActionHandler(ORS_MSGTYPE_REMOVERES, True, True)
  4077.         End If
  4078.     End Sub
  4079.     Sub RemoveRooms()
  4080.         Dim vResourceList As Variant
  4081.         Dim vNewRemovedList As Variant
  4082.         Dim note As NotesDocument
  4083.         Set note = m_beobject.Document
  4084.         ' First, get a list of all resources who can be removed
  4085.         vResourceList = note.GetItemValue("Room")
  4086.         vNewRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.getstring(REM_PART,Null), m_strtable.GetString(REM_PART_TITLE, Null), "", vResourceList)
  4087.         If Isarray(vNewRemovedList) Then
  4088.             Call note.ReplaceItemValue("tmpRemoveNames", vNewRemovedList)
  4089.             Call m_beobject.ActionHandler(ORS_MSGTYPE_REMOVERES, True, False)
  4090.         End If
  4091.     End Sub
  4092.     Sub AddToCalendar
  4093.         If IsActionInProgress(ACTION_ADDTOCALENDAR) Then
  4094.             Call m_beobject.MarkTempItems
  4095.             Call m_beobject.ActionHandler(ORS_MSGTYPE_ADDCALENDAR,False, 0)
  4096.         End If
  4097.     End Sub
  4098.     Sub Accept
  4099.         Dim note As NotesDocument
  4100.         If IsActionInProgress(ACTION_ACCEPT) Then
  4101.             Call m_beobject.MarkTempItems
  4102.             Set note = m_beobject.Document
  4103.             If (note.GetItemValue("tmpPencilIn")(0) = "1") Then
  4104.                 Call m_beobject.ActionHandler(ORS_MSGTYPE_PENCILIN, Not(m_bSendComments), 0)
  4105.             Else
  4106.                 Call m_beobject.ActionHandler(ORS_MSGTYPE_ACCEPT, Not(m_bSendComments), 0)
  4107.             End If
  4108.             If (m_bSendComments) Then
  4109.                 Call EditNotice
  4110.             End If
  4111.         End If
  4112.     End Sub
  4113.     Sub Decline
  4114.         Dim bKeepPosted As Integer
  4115.         If IsActionInProgress(ACTION_DECLINE) Then
  4116.             bKeepPosted = (m_beobject.Document.GetItemValue("tmpKeepPosted")(0) = "1")
  4117.             Call m_beobject.MarkTempItems
  4118.             Call m_beobject.ActionHandler(ORS_MSGTYPE_REJECT, Not(m_bSendComments), Cint(bKeepPosted))
  4119.             If (m_bSendComments) Then
  4120.                 Call EditNotice
  4121.             End If            
  4122.         End If
  4123.     End Sub
  4124.     Sub Delegate
  4125.         Dim vExistingNames As Variant
  4126.         Dim note As NotesDocument
  4127.         Dim sDelegeeName As String
  4128.         Dim bFailed As Integer
  4129.         Dim bKeepPosted As Integer
  4130.         If IsActionInProgress(ACTION_DELEGATE) Then
  4131.             Set note = m_beobject.document
  4132.             ' The user selected a name; make sure it is not someone who is already invited
  4133.             sDelegeeName = note.GetItemValue("Delegee")(0)            
  4134.             vExistingNames =     note.GetItemValue("RequiredAttendees")
  4135.             If (NAMEExistsInList(sDelegeeName,vExistingNames)) Then
  4136.                 bFailed = True
  4137.             Else
  4138.                 vExistingNames =  note.GetItemValue("OptionalAttendees")
  4139.                 If (NAMEExistsInList(sDelegeeName,vExistingNames)) Then
  4140.                     bFailed = True                
  4141.                 End If
  4142.             End If
  4143.             If (bFailed) Then
  4144.                 Messagebox m_strtable.GetString(0, Nothing),0,m_strtable.GetString(0,Nothing)
  4145.                 Call RemoveActionInProgress( ACTION_DELEGATE)
  4146.                 Exit Sub
  4147.             End If
  4148.             ' This is a two step process
  4149.             ' First, create the outgoing delegation notice to the person we are delegating to and send it
  4150.             ' Second, create the notice to the chairperson and optionally send it
  4151.             Call m_beobject.ActionHandler(ORS_MSGTYPE_DELEGATE, False, Null)
  4152.             bKeepPosted = (m_beobject.Document.GetItemValue("tmpKeepPosted")(0) = "1")
  4153.             Call m_beobject.ActionHandler(ORS_MSGTYPE_DELEGATING, Not(m_bSendComments), Cint(bKeepPosted))
  4154.             Call m_beobject.MarkTempItems
  4155.             Call m_beobject.Document.Save(True,True, True)
  4156.             If (m_bSendComments) Then
  4157.                 EditNotice
  4158.             End If   
  4159.         End If
  4160.     End Sub
  4161.     Sub CounterPropose
  4162.         If IsActionInProgress(ACTION_COUNTER_PROPOSE) Then
  4163.             Call m_beobject.ActionHandler(ORS_MSGTYPE_COUNTER, Not(m_bSendComments), Null)
  4164.             Call m_beobject.MarkTempItems
  4165.             Call m_beobject.Document.Save(True,True, True)
  4166.             If (m_bSendComments) Then
  4167.                 EditNotice
  4168.             End If   
  4169.         End If
  4170.     End Sub
  4171.     Sub Complete()
  4172.         Call m_beobject.ActionHandler("F", Not(m_bSendComments), Null)
  4173.         If (m_bSendComments) Then
  4174.             EditNotice
  4175.         End If   
  4176.     End Sub
  4177.     Sub RefreshInfoRequest()
  4178.         Call m_beobject.ActionHandler("E", Not(m_bSendComments), 114)
  4179.         If (m_bSendComments) Then
  4180.             EditNotice
  4181.         End If   
  4182.     End Sub
  4183.     Sub RefreshInfoUpdate()
  4184.         Call m_beobject.ActionHandler("E", Not(m_bSendComments), 117)
  4185.         If (m_bSendComments) Then
  4186.             EditNotice
  4187.         End If   
  4188.     End Sub
  4189.     Sub ScanForUpdates  
  4190.         Dim po As Variant ' The main meeting invitation document object
  4191.         Dim riNotice As NotesCSUpdateInstance
  4192.         Dim riConfirmation As NotesCSUpdateInstance
  4193.         Dim bReadingCurrent As Integer
  4194.         Dim noteInEditor As NotesDocument      ' the document currently in the editor
  4195.         Dim noteMain As NotesDocument     ' The main meeting invitation document
  4196.         Dim nContext As Integer
  4197.         Set noteInEditor = m_beobject.Document
  4198.         ' If this is a main repeating document, we can leave now
  4199.         nContext = m_beobject.Context
  4200.         Select Case nContext
  4201.         Case CTX_REPEAT_MAIN
  4202.             Exit Sub
  4203.         Case CTX_REPEAT_INST
  4204.             Set po = m_beobject
  4205.         Case CTX_REPEAT_MSG
  4206.             Set po = m_beobject.RepeatInstanceEvent
  4207.         Case CTX_REPEAT_NONE
  4208.             If (noteInEditor.IsResponse) Then
  4209.                 Set po = m_beobject.ParentEvent
  4210.             Else
  4211.                 Set po = m_beobject    
  4212.             End If
  4213.         End Select
  4214.         ' If there is no primary object, bail
  4215.         If (po Is Nothing) Then Exit Sub
  4216.         Set noteMain = po.Document
  4217.         ' If there is no main document then bail
  4218.         If (noteMain Is Nothing) Then Exit Sub
  4219.         Call po.GetMostRecentEventNotices()
  4220.         Set riNotice = m_beobject.UpdateNotice
  4221.         Set riConfirmation = m_beobject.ConfirmNotice  
  4222.         If Not(riNotice Is Nothing) Then
  4223.             bReadingCurrent = (Lcase(noteInEditor.noteid) = Lcase(riNotice.noteid))   
  4224.             Select Case riNotice.NoticeType
  4225.             Case ORS_MSGTYPE_RESCHEDULE
  4226.                 If rinotice.sequencenum > po.Sequencenum Then
  4227.                     If Not(bReadingCurrent) Then
  4228.                          ' The user is not reading the most up-to-date notice; inform them of the change
  4229.                         If YesNoPrompt(m_strtable.GetString(RESC_MSG,Nothing),m_strtable.GetString(UPD_TITLE, Null)) Then
  4230.                             ActionInProgress = ACTION_OPENRESCHEDULE
  4231.                         Else
  4232.                             Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  4233.                         End If
  4234.                     End If
  4235.                 Else
  4236.                      ' The user is reading the most up-to-date notice; we need to validate the sequenceitems
  4237.                     If (bReadingCurrent) Then
  4238.                         Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  4239.                     End If
  4240.                 End If
  4241.             Case ORS_MSGTYPE_CANCEL
  4242.                 ' It doesn't matter if the user is reading the most up-to-date notice;     
  4243.                 If (noteMain.GetItemValue("NoticeType")(0) = ORS_MSGTYPE_ACCEPT) Then
  4244.                      ' The main invitation has been accepted; we need to cancel it
  4245.                     Messagebox m_strtable.GetString(CANCEL_UPD, Null),0, m_strtable.GetString(UPD_TITLE,Null)
  4246.                     Call m_beobject.DeCommitEvent(ORS_MSGTYPE_CANCEL)
  4247.                     Call noteMain.Save(True,True,True)
  4248.                 Else
  4249.                      ' 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
  4250.                     If Not(bReadingCurrent) Then 
  4251.                         Messagebox m_strtable.GetString(CANCEL_NOACTN,Nothing), 0,m_strtable.GetString(UPD_TITLE,Null)
  4252.                     End If
  4253.                 End If
  4254.                 ' We always set this item for cancels; user's do not need to take any action on cancels    
  4255.                 Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  4256.             Case ORS_MSGTYPE_STATUSUPDATE
  4257.                 Msgbox "Update notice"
  4258.             Case Else
  4259.                 Msgbox "Notes has received a notice update it does not understand."
  4260.             End Select
  4261.         Else
  4262.         End If
  4263.     End Sub
  4264.     Function SendInvitations(bIncludeRooms As Integer) As Integer
  4265.         If (bIncludeRooms) Then
  4266.             SendInvitations = YesNoPrompt("Do you want to send meeting invitations and reservation requests?","Send invitations")
  4267.         Else
  4268.             SendInvitations = YesNoPrompt("Do you want to send meeting invitations?","Send invitations")
  4269.         End If
  4270.     End Function
  4271. End Class
  4272. '++LotusScript Development Environment:2:2:Initialize:1:10
  4273. Sub Initialize
  4274. End Sub
  4275. '++LotusScript Development Environment:2:2:CSTableAppendStatus:1:8
  4276. Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
  4277.     Dim itemPeople As NotesItem
  4278.     Dim itemRole As NotesItem
  4279.     Dim itemStatus As NotesItem
  4280.     Dim itemOrigPeople As NotesItem
  4281.     Dim itemOrigRole As NotesItem
  4282.     Dim itemOrigStatus As NotesItem
  4283.     Dim itemDelegation As NotesItem
  4284.     Dim instance As NotesCSParticipantInstance
  4285.     Dim i As Integer
  4286.     Dim lnnode As NotesCSParticipantInstance
  4287.     Dim lnnode2 As NotesCSParticipantInstance
  4288.     Dim namePerson As NotesName
  4289.     Dim nameDelegee As NotesName
  4290.     Set itempeople = note.getfirstitem("tmpParticipantList")
  4291.     If Not(itempeople Is Nothing) Then
  4292.         Call itempeople.remove
  4293.     End If
  4294.     Set itemrole = note.getfirstitem("tmpRoleList")
  4295.     If Not(itemrole Is Nothing) Then
  4296.         Call itemrole.remove
  4297.     End If
  4298.     Set itemstatus = note.getfirstitem("tmpStatusList")
  4299.     If Not(itemstatus Is Nothing) Then
  4300.         Call itemstatus.remove
  4301.     End If    
  4302.     Set itemPeople = New NotesItem(note, "tmpParticipantList","")
  4303.     Set itemRole = New NotesItem(note, "tmpRoleList","")
  4304.     Set itemStatus = New NotesItem(note, "tmpStatusList","")
  4305.     If (bUpdateOrig) Then
  4306.         Set itemOrigPeople = New NotesItem(note, "tmpOriginalPeople","")
  4307.         Set itemOrigRole = New NotesItem(note, "tmpOriginalRole","")
  4308.         Set itemOrigStatus = New NotesItem(note, "tmpOriginalStatus","")
  4309.         Set itemDelegation = New NotesItem(note, "tmpDelegationHistory","")
  4310.     End If
  4311.         ' Now that we have the status, display it in the order 
  4312.     Set lnNode = Table.GetFirstInstance()
  4313.     While Not(lnnode Is Nothing)
  4314.         Set instance = lnnode
  4315.         Set namePerson = New NotesName(instance.replyto)   
  4316.         Call itemPeople.AppendToTextList(namePerson.Common)
  4317.         Call itemRole.AppendToTextList(instance.RoleName)
  4318.         Call itemStatus.AppendToTextList(instance.StatusName)
  4319.         If (bUpdateOrig) Then
  4320.             Call itemOrigPeople.AppendToTextList(namePerson.Common)
  4321.             Call itemOrigRole.AppendToTextList(Cstr(instance.Role))
  4322.             Call itemOrigStatus.AppendToTextList(Cstr(instance.Status))
  4323.             If (instance.Status = 15) Then
  4324.                 Set nameDelegee = New NotesName(instance.Delegee)
  4325.                 Call itemDelegation.AppendToTextList(namePerson.Common & " -> " & nameDelegee.Common)
  4326.             End If
  4327.         End If
  4328.         Set lnnode = Table.GetNextInstance()
  4329.     Wend
  4330. End Sub
  4331. '++LotusScript Development Environment:2:1:CSOpenV5RepeatInstanceFromFlatView:1:8
  4332. Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument) As Integer
  4333.     ' Return TRUE if we should continue, FALSE otherwise
  4334.     Dim ws As New notesuiworkspace
  4335.     Dim dtCalDate As NotesDateTime
  4336.     Dim dtToday As New NotesDateTime("")
  4337.     Dim itemStartList As NotesItem
  4338.     Dim i As Integer
  4339.     Set itemStartList = note.GetFirstItem(vBEObject.StartItemName)
  4340.     If (itemStartList Is Nothing) Then Exit Function
  4341.     If Ubound(itemStartList.Values) > 0 Then
  4342.         ' Find the one closest to today
  4343.         Call dtToday.SetNow()
  4344.             Call TIMEGetNotesFromLS(itemStartList.Values(i), dtCalDate)
  4345.             i = i + 1
  4346.         Loop While (dtCalDate.TimeDifference(dtToday) < 0)
  4347.         Call note.replaceitemvalue("tmpDateList", dtCalDate.DateOnly & " " & dtCalDate.TimeOnly)
  4348.         If Not(ws.DialogBox("(RepeatOpenList)", True, True, , , , , , note, True)) Then Exit Function
  4349.         Call TIMEGetFromItem("tmpDateSelected", note, dtCalDate)
  4350.     Else
  4351.         Call TIMEGetFromItem(vBEObject.StartItemName, note, dtCalDate)
  4352.     End If
  4353.     If (dtCalDate Is Nothing) Then Exit Function
  4354.     Set vBEObject.CalendarInstance = dtCalDate
  4355.     CSOpenV5RepeatInstanceFromFlatView = True
  4356. End Function
  4357. '++LotusScript Development Environment:2:2:CSAutoEnableOutOfOffice:1:8
  4358. Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
  4359.     Dim profileOffice As notesdocument
  4360.     Dim agentOffice As NotesAgent
  4361.     Dim note As notesdocument
  4362.     Dim db As NotesDatabase
  4363.     Dim ws As New notesuiworkspace
  4364.     Set note = vBEObject.Document
  4365.     Set db = note.ParentDatabase
  4366.     Set agentOffice = db.GetAgent("OutOfOffice")
  4367.     If agentOffice Is Nothing Then Exit Sub
  4368.     If agentOffice.IsEnabled Then Exit Sub
  4369.     ' Prompt the user to see if they want to enable the OutOfOffice agent
  4370.     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
  4371.     ' The user would like to go through the wizard
  4372.     Set profileOffice = db.GetprofileDocument("OutOfOfficeProfile")
  4373.     Call profileOffice.ReplaceItemValue("FirstDayOut", vBEObject.CurrentStartDate)
  4374.     Call profileOffice.ReplaceItemValue("FirstDayBack", vBEObject.CurrentEndDate)
  4375.     Call profileOffice.ReplaceItemValue("BookBusyTime", "1")
  4376.     Delete agentOffice
  4377.     Call ws.dialogbox("OutOfOfficeProfile",True,True,True,False,False,False,"Out of Office",profileOffice,True,True)
  4378. End Sub
  4379. $d9d#
  4380. T)T)4
  4381. Lotus ProductN
  4382. *K$*,<GID)#
  4383. O4CUlG    
  4384. ,LC}h
  4385. C\FHI
  4386. E F F
  4387. <G<G#
  4388. D-D-$-$-
  4389. t-L4T
  4390. D/D/d/d/
  4391. ,0,0L0L0
  4392. l4$5D
  4393. 8T8T8
  4394. t8t8d8d8
  4395. 4H4H4H4H
  4396. D<P?\>\><=<>
  4397. l=l=T<T<l>P?L>L>
  4398. =\=\=d<L=
  4399. pJpJ"
  4400. @?P?h%    
  4401. H@X@h(    
  4402. S(C~T
  4403. S(C~t
  4404. ,LC}<
  4405. )x ]@ ^` #
  4406. DI@ #
  4407. ^4#K$#,
  4408. ^4#K$#,
  4409. $, F}t
  4410. O4CSPF}p
  4411. %-\F#8n
  4412. *K$*,<GID)#
  4413. O4CUlG    
  4414. ,LC}h
  4415. -KD-,
  4416. ^4-K@
  4417. G~d-N
  4418. -~4M& 
  4419. ^4-#1
  4420. ^D/Kd/,
  4421. ^T/K@
  4422. G~d-N
  4423. -~LM& 
  4424. -~dM& 
  4425. ^T/#1
  4426. ^,0KL0,
  4427. ^<0K@
  4428. G~d-N
  4429. -~|M& 
  4430. ^<0#1
  4431. O4CSPF}
  4432. O4CSPF}
  4433. KD8-4H#
  4434. S(C~49
  4435. S(C~T9~
  4436. S(C~T9~$N&
  4437. S(C~T9~<N&
  4438. ^<=KT<,HI}
  4439. K<=,xI#
  4440. ^L=KT<,HI},&#
  4441. KL=,xI#
  4442. ^\=KT<,HI}H&#
  4443. K\=,xI#
  4444. ^<=+t<IT<}
  4445. ^L=+t<IT<},&}
  4446. ^\=+t<IT<}H&}
  4447. ^l=+t<IT<}h&}
  4448. ^|=+t<IT<}
  4449. =+t<IT<}
  4450. =+t<IT<}
  4451. ^\>KD<,
  4452. ^<>J\>
  4453. ^@?+|>K<>-
  4454. IK@?-(J##
  4455. IK<>-LJ##
  4456. IK<>-pJ##
  4457. IK@?-(J##
  4458. IK<>-
  4459. IK<>-
  4460. ^P?+|>K<>-
  4461. IK@?-(J#}
  4462. KP?-(J#
  4463. ^\>KD<,
  4464. @,HIN
  4465. KX@-<K#
  4466. @KX@-<K#X
  4467. DJH@#
  4468. )K8@-
  4469. D#}0)
  4470. K8@-`K#
  4471. K(@,LC}P)
  4472. @^8@#
  4473. @^8@#
  4474. C}0,}
  4475. B,LC}
  4476. O=Lotus Notes
  4477. O=Lotus Notes
  4478. PURSAFO
  4479. |.:#U
  4480. O=Lotus Notes
  4481. CN=Lotus Notes Template Development/O=Lotus Notes
  4482. PURSAFO
  4483. ~j!S)_O8
  4484. $TITLE
  4485. $Flags
  4486. $PublicAccess
  4487. $ScriptLib
  4488. $ScriptLib_O
  4489. '++LotusScript Development Environment:2:5:(Options):0:74
  4490. Option Public
  4491. Option Explicit
  4492. Use "CSEventClass"
  4493. '++LotusScript Development Environment:2:5:(Forward):0:1
  4494. Declare Class BaseUIEventDocument
  4495. Declare Sub Initialize
  4496. Declare Function CSCancelEventType(uiobject As UIEventObject, strType As String) As Integer
  4497. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4498. 'CSUIDocClass: 
  4499. Const UI_FLAG_REPEAT    = &h00000001
  4500. Const UI_FLAG_ALARM     = &h00000002
  4501. Const UI_FLAG_WASSAVED  = &h00000004
  4502. Const UI_FLAG_OKTOCLOSE = &h00000008
  4503. Const UI_FLAG_OWNER     = &h00000010
  4504. Class BaseUIEventDocument
  4505.     This is the base class for all front-end C&S event documents
  4506. %ENDREM
  4507.     m_uidoc As NotesUIDocument
  4508.     m_uiobject As UIEventObject
  4509.     m_lFlags As Long
  4510.  ' Properties
  4511.     Property Get UIObject As Variant
  4512.         Set UIObject = m_uiobject
  4513.     End Property
  4514.     Property Get UIDocument As NotesUIDocument
  4515.         Set UIDocument = m_uidoc
  4516.     End Property
  4517.     Property Get WasSaved As Integer
  4518.         WasSaved = ((m_lFlags And UI_FLAG_WASSAVED) = UI_FLAG_WASSAVED)
  4519.     End Property
  4520.     Property Get OkToClose As Integer
  4521.         OkToClose = m_lFlags And UI_FLAG_OKTOCLOSE
  4522.     End Property
  4523.     Property Set WasSaved As Integer
  4524.         If (WasSaved) Then
  4525.             m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
  4526.         Else
  4527.             If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4528.         End If
  4529.     End Property
  4530.     Property Set OkToClose As Integer
  4531.         If (OkToClose) Then
  4532.             m_lFlags = m_lFlags Or UI_FLAG_OKTOCLOSE
  4533.         Else
  4534.             If (m_lFlags And UI_FLAG_OKTOCLOSE) Then m_lFlags = m_lFlags Xor UI_FLAG_OKTOCLOSE
  4535.         End If
  4536.     End Property
  4537.     Sub New(source As NotesUIDocument, nType As Integer, bOwner As Integer)
  4538.         Set m_uidoc = source
  4539.         m_lFlags = m_lFlags Or UI_FLAG_OKTOCLOSE
  4540.         If (bOwner) Then m_lFlags = m_lFlags Or UI_FLAG_OWNER
  4541.         Set m_uiobject = New UIEventObject(nType, bOwner)
  4542.     End Sub
  4543.     Function FreeTimeDlg() As Integer
  4544.         Dim sRequired(2) As String
  4545.         Dim sOptional(1) As String
  4546.         Dim sRooms(1) As String
  4547.         Dim sResources(1) As String
  4548.         sRequired(0) = "Chair"
  4549.         sRequired(1) = "SendTo"
  4550.         sRequired(2) = "RequiredAttendees"
  4551.         sOPtional(0) = "CopyTo"
  4552.         sOptional(1) = "OPtionalAttendees"
  4553.         sRooms(0) = "RoomToReserve"
  4554.         sRooms(1) = "Room"
  4555.         sREsources(0) = "Resources"
  4556.         sResources(1) = "ReqiuredResources"
  4557.         FreeTimeDlg = m_uidoc.FindFreeTimeDialogEx(sRequired, sOptional, sRooms, "", sResources,"" , "Uninvited", "StartDateTime", "EndDateTime")
  4558.     End Function
  4559.     Sub QueryOpen(nMode As Integer, bIsNew As Variant, bContinue As Variant)
  4560.         Dim vBEObject As Variant
  4561.         Dim vSelectedDT As Variant
  4562.         Dim note As NotesDocument        
  4563.         Dim ws As New notesuiworkspace
  4564.         Dim notetmp As NotesDocument
  4565.         Dim item As NotesItem
  4566.         Dim dtCalDate As NotesDateTime
  4567.         m_uidoc.AutoReload = False
  4568.         Set note = m_uidoc.document
  4569.         Set vBEObject = m_uiobject.BEObject
  4570.           ' Store off the selected calendar date time value
  4571.         vSelectedDT = ws.CurrentCalendarDateTime
  4572.         If Len(vSelectedDT) Then
  4573.             Call TIMEGetNotesFromLS(vSelectedDT, dtCalDate)
  4574.             Set vBEObject.CalendarInstance = dtCalDate
  4575.         End If
  4576.           ' If the Editor thinks this is a new document, we are done
  4577.         If (bIsNew) Then Exit Sub
  4578.         If (note.hasitem("tmpnewdoc")) Then Exit Sub
  4579.         ' see if this is a v5 repeating instance
  4580.         If (dtCalDate Is Nothing And note.HasItem("OrgRepeat") And note.HasItem("$CSVersion") And note.IsResponse) Then
  4581.             If Not(CSOpenV5RepeatInstanceFromFlatView(vBEObject, note)) Then
  4582.                 bContinue = False
  4583.                 Exit Sub
  4584.             End If
  4585.         End If
  4586.           ' Initialize our backend object
  4587.         Call vBEobject.Init(note)
  4588.         If (vBEObject.WasMailed) Then
  4589.             Call note.ReplaceItemValue("tmpWasMailed", "1")
  4590.         End If
  4591.         If (note.GetItemValue("Repeats")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  4592.         If (note.GetItemValue("Alarms")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_ALARM
  4593.         ' If we are a participant, scan for updates
  4594.         If Not((m_lFlags And UI_FLAG_OWNER)  = UI_FLAG_OWNER) Then Call m_uiobject.ScanForUpdates()
  4595.     End Sub
  4596.     Sub PostOpen()
  4597.         Dim vBEObject As Variant        
  4598.         Dim note As NotesDocument
  4599.         Dim ws As NotesUIWorkspace
  4600.         Dim session As notessession
  4601.         Dim dtInit As NotesDateTime
  4602.         Set note = m_uidoc.document        
  4603.           ' if we need to open the reschedule notice; do it now
  4604.         If (m_uiobject.IsActionInProgress(ACTION_OPENRESCHEDULE)) Then
  4605.             Set ws = New NotesUIWorkspace
  4606.             Set session = New notessession
  4607.             Set note = session.CurrentDatabase.GetDocumentByID(m_uiobject.beobject.UpdateNotice.NoteID)
  4608.             If Not(note Is Nothing) Then
  4609.                 Call m_uidoc.close
  4610.                 Call ws.editdocument(False,note)
  4611.                 Call m_uiobject.RemoveActionInprogress(ACTION_OPENRESCHEDULE)
  4612.                 Exit Sub
  4613.             End If
  4614.         End If
  4615.          ' If this is a new document, initialize our backend document          
  4616.         If(m_uidoc.IsNewDoc Or note.hasitem("tmpnewdoc")) Then
  4617.             Set vBEObject = m_uiobject.BEObject
  4618.             Call vBEobject.Init(note)
  4619.             Set dtInit = vBEObject.CalendarInstance
  4620.             Call vBEobject.InitDateTimeItems(dtInit)     
  4621.             Call vBEObject.SetDefaultAlarm()
  4622.             Call m_uidoc.Reload
  4623.         Elseif (m_lFlags And UI_FLAG_OWNER) Then
  4624.             m_uidoc.EditMode = True
  4625.         End If
  4626.     End Sub
  4627.     Sub PostRecalc()
  4628.         Dim note As NotesDocument
  4629.         Dim bRefreshHide As Integer
  4630.         Set note = m_uidoc.document
  4631.         If (note.GetItemValue("Repeats")(0) = "1") Then
  4632.             If Not((m_lFlags And UI_FLAG_REPEAT) = UI_FLAG_REPEAT) Then
  4633.                 If m_uiobject.RepeatDialog() Then
  4634.                     m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  4635.                 Else
  4636.                     Call note.replaceitemvalue("Repeats","")
  4637.                     bRefreshHide = True
  4638.                 End If
  4639.             End If
  4640.         Elseif (m_lFlags And UI_FLAG_REPEAT) Then
  4641.             Call note.replaceitemvalue("Repeats","")
  4642.             bRefreshHide = True
  4643.         End If
  4644.         If (note.GetItemValue("Alarms")(0) = "1") Then
  4645.             If Not((m_lFlags And UI_FLAG_ALARM) = UI_FLAG_ALARM) Then
  4646.                 If m_uiobject.AlarmDialog() Then
  4647.                     m_lFlags = m_lFlags Or UI_FLAG_ALARM
  4648.                 Else
  4649.                     Call note.replaceitemvalue("Alarms","")
  4650.                     bRefreshHide = True
  4651.                 End If
  4652.             End If
  4653.         Elseif (m_lFlags And UI_FLAG_ALARM) Then
  4654.             Call note.replaceitemvalue("Alarms","")
  4655.             bRefreshHide = True
  4656.         End If
  4657.         If (bRefreshHide) Then
  4658.             Call m_uidoc.refreshhideformulas
  4659.             Call m_uidoc.reload
  4660.         End If
  4661.     End Sub
  4662.     Sub QuerySave(bContinue As Variant)
  4663.         Dim vBEObject As Variant
  4664.         Dim note As NotesDocument
  4665.         Dim profile As notesdocument
  4666.         Dim dtStart As NotesDateTime
  4667.         Dim dtEnd As notesDateTime
  4668.         Dim item As NotesItem
  4669.         Dim bDateOnly As Integer
  4670.         Dim nYearly As Integer
  4671.         Dim bCancel As Integer
  4672.         Dim sCurrentType As String
  4673.         Dim soriginalType As String
  4674.         Dim strCategory As String        
  4675.         Dim vDates As Variant
  4676.         Dim lCurrentAction As Long
  4677.         Dim bCreateRepeat As Integer    
  4678.         Dim fSendOptions As Integer
  4679.         Dim nChangeWhich As Integer
  4680.         Dim bIsCounter As Integer
  4681.         Set vBEObject = m_uiobject.BEObject        
  4682.         Set note = vBEObject.Document
  4683.         ' If this is a repeating event, see if changes should be applied
  4684.         If (vBEObject.Context = CTX_REPEAT_INST) Then
  4685.             If (m_uiobject.ChangeRepeatDialog() = REPEAT_CANCEL) Then
  4686.                 ' The user does not wish to make changes
  4687.                 If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4688.                 bContinue = False
  4689.                 Exit Sub
  4690.             Else
  4691.                 Call note.ReplaceitemValue("OriginalStartDate", vBEObject.OriginalStartDate)
  4692.             End If
  4693.         End If
  4694.         ' If we are the owner, do some additional work
  4695.         If (m_lFlags And UI_FLAG_OWNER) Then
  4696.             If (note.GetItemValue("NoticeType")(0) = "T") Then bIsCounter = True
  4697.             If Not(BIsCounter) Then
  4698.                 Call vBEObject.UpdateDateTimeItems()
  4699.                 Set dtStart = vBEObject.CurrentStartDate
  4700.                 If Not(dtStart Is Nothing) Then
  4701.                     If (m_uiobject.EventType = 1) Then
  4702.                         sCurrentType = vBEObject.CurrentType
  4703.                         If (sCurrentType = "1" Or sCurrentType = "2") Then bDateOnly = True
  4704.                     Else
  4705.                         bDateOnly = True
  4706.                     End If
  4707.                     If Not(m_uiobject.AllowInPast(dtStart, bDateOnly)) Then
  4708.                         If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4709.                         bContinue = False
  4710.                         Exit Sub
  4711.                     End If
  4712.                 End If
  4713.                 ' If this is a new note, see if this is a vacation 
  4714.                 If (note.IsNewNote) Then
  4715.                     strCategory = note.GetItemValue("Categories")(0)
  4716.                     If (strCategory = "V") Then Call CSAutoEnableOutOfOffice(vBEObject)
  4717.                 Else
  4718.                     If (m_uiobject.NeedsReschedule) Then
  4719.                         If (m_uiobject.OkToReschedule) Then
  4720.                        ' the user wants to reschedule this event; increment the sequence num
  4721.                             Call vBEObject.IncrementSequenceNum()
  4722.                         Else
  4723.                             bContinue = False
  4724.                             If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4725.                             Exit Sub
  4726.                         End If
  4727.                     End If  
  4728.                 End If
  4729.                 If (m_uiobject.EventType = 1) Then
  4730.                     sCurrentType = vBEObject.CurrentType
  4731.                     sOriginalType = vBEObject.OriginalType
  4732.                     
  4733.                     Set dtStart = vBEObject.CurrentStartDate
  4734.                     Set dtEnd = vBEObject.CurrentEndDate
  4735.                     
  4736.                     If Not(m_uiobject.AllowDoubleBook()) Then
  4737.                         bContinue = False
  4738.                         If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4739.                         Exit Sub
  4740.                     End If
  4741.                     
  4742.                     If (m_uidoc.IsNewDoc) Then
  4743.                         If (sCurrentType = "1") Then
  4744.                             ' See if this should automatically repeat
  4745.                             If Not(note.hasitem("OrgRepeat")) Then
  4746.                                 Set profile = vBEObject.CalendarProfile.Document
  4747.                                 If (profile.hasitem("AutoAnniversaryRepeat")) Then nYearly = profile.GetItemValue("AutoAnniversaryRepeat")(0)
  4748.                                 If (nYearly > 0) Then
  4749.                                     Set item = note.getfirstitem("StartDate")
  4750.                                     Call item.copyitemtodocument(note, "RepeatStartDate")
  4751.                                     Call note.replaceitemvalue("OrgRepeat","1")
  4752.                                     Call note.replaceitemvalue("RepeatHow", "F")
  4753.                                     Call note.replaceitemvalue("RepeatFor", nYearly)
  4754.                                     Call note.replaceitemvalue("RepeatForUnit","Y")
  4755.                                     Call note.replaceitemvalue("RepeatUnit","Y")
  4756.                                     Call note.replaceitemvalue("RepeatInterval", "1")
  4757.                                     Call note.replaceitemvalue("RepeatWeekends", "D")
  4758.                                 End If
  4759.                             End If
  4760.                         End If
  4761.                     End If
  4762.                     If Not(sCurrentType = "4") And Not(sCurrentType = "1") Then
  4763.                         If dtEnd.TimeDifference(dtStart) < 0 Then
  4764.                             Messagebox "End time can not occur prior to Start time"
  4765.                             If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4766.                             bContinue = False
  4767.                             Exit Sub
  4768.                         End If
  4769.                     End If
  4770.                     
  4771.                       ' If this was a meeting invitation, but is now something different, cancel the event 
  4772.                     Select Case CSCancelEventType(m_uiobject, "3")
  4773.                     Case -1
  4774.                         bContinue = False
  4775.                         If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4776.                         Exit Sub
  4777.                     Case 1
  4778.                         Call uiobject.Cancel(0)                    
  4779.                         Exit Sub
  4780.                     End Select
  4781.                 Else        
  4782.                     Set dtStart = vbeobject.CurrentStartDate
  4783.                     Set dtEnd = vbeobject.CurrentEndDate
  4784.                     If TIMECompareDates(dtStart,dtEnd) > 0 Then
  4785.                         'TODO : RESOURCE THIS
  4786.                         Messagebox("The due date cannot occure before the start date")
  4787.                         bContinue = False
  4788.                         If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED            
  4789.                         Exit Sub    
  4790.                     End If
  4791.                       ' If this was a group todo, but is now something different, cancel it 
  4792.                     Select Case CSCancelEventType(m_uiobject, "2")
  4793.                     Case -1
  4794.                         bContinue = False
  4795.                         If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4796.                         Exit Sub
  4797.                     Case 1
  4798.                         Call uiobject.Cancel(0)                    
  4799.                         Exit Sub
  4800.                     End Select
  4801.                     Call vbeobject.SetDueState        
  4802.                 End If                
  4803.                 Call vBEObject.SetCalendarDateTime()
  4804.                 Call vBEObject.SetViewIcon()
  4805.             End If
  4806.         End If
  4807.         ' Continue updating items
  4808.         If (note.GetItemValue("OrgConfidential")(0) = "1") Then
  4809.             Call note.removeitem("$PublicAccess")
  4810.         Else
  4811.             Call note.replaceitemvalue("$PublicAccess", "1")
  4812.         End If
  4813.         If ((m_lFlags And UI_FLAG_OWNER) And Not(bIsCounter)) Then
  4814.             Set vBEObject = m_uiobject.beobject
  4815.             Set note = m_uidoc.document
  4816.             If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then
  4817.                 If Not(note.HasItem("RepeatDates")) Then
  4818.                     vDates = vBEObject.GenerateRepeatDates()
  4819.                     Call note.ReplaceItemValue("RepeatDates", vDates)
  4820.                 End If
  4821.                 bCreateRepeat = True
  4822.             End If
  4823.             Call vBEObject.UpdateBusyTimeInfo(note.GetItemValue("BookFreeTime")(0)  <> "1")
  4824.             If (vBEObject.IsWorkflowEnabled) Then
  4825.                 fSendOptions = vBEObject.PrimarySendOptions
  4826.                 If (fSendOptions > 0) Then
  4827.                     ' See if the user wants to send this
  4828.                     If Not(m_uiobject.IsActionInProgress(ACTION_SEND)) Then
  4829.                         If m_uiobject.SendInvitations((fSendOptions > 1)) Then
  4830.                             m_uiobject.ActionInProgress = ACTION_SEND
  4831.                         End If
  4832.                     End If
  4833.                     If m_uiobject.IsActionInProgress(ACTION_SEND) Then          
  4834.                         If ( (fSendOptions And 2) Or (fSendOptions And 4) ) Then
  4835.                             Call vBEObject.InviteRooms()
  4836.                         End If
  4837.                         If (fSendOptions And 1) Then
  4838.                       ' first, prepare the backend document for sending
  4839.                             On Error Resume Next                        
  4840.                             Err = 0
  4841.                             Call vBEObject.PreSendPrimaryRequest()
  4842.                             m_uidoc.Reload
  4843.                             m_uidoc.Send
  4844.                             Call vBEObject.PostSendPrimaryRequest(Err <> 0)
  4845.                             If (Err <> 0) Then
  4846.                                 Err = 0
  4847.                                 bContinue = False
  4848.                                 m_uidoc.reload
  4849.                                 Exit Sub
  4850.                             End If
  4851.                         End If          
  4852.                     End If
  4853.                 End If     
  4854.             End If
  4855.             If (bCreateRepeat) Then Call vBEObject.CreateRepeatHierarchy()
  4856.         End If
  4857.         lCurrentAction = m_uiobject.ActionInProgress
  4858.         If (lCurrentAction And ACTION_RESCHEDULE) Then
  4859.             Call m_uiobject.Reschedule
  4860.         Elseif (lCurrentAction And ACTION_CANCEL) Then
  4861.             Call m_uiobject.Cancel(REMOVE_CALENDAR)
  4862.         Elseif (lCurrentAction And ACTION_COUNTER_ACCEPT) Then
  4863.             Call m_uiobject.CounterAccept
  4864.         Elseif (lCurrentAction And ACTION_COUNTER_REJECT) Then
  4865.             Call m_uiobject.CounterDecline
  4866.         Elseif (lCurrentAction And ACTION_ACCEPT) Then
  4867.             Call m_uiobject.Accept
  4868.         Elseif (lCurrentAction And ACTION_DECLINE) Then
  4869.             Call m_uiobject.Decline
  4870.         Elseif (lCurrentAction And ACTION_DELEGATE) Then
  4871.             Call m_uiobject.Delegate
  4872.         Elseif (lCurrentAction And  ACTION_ADDTOCALENDAR) Then
  4873.             Call m_uiobject.AddToCalendar
  4874.         Elseif (lCurrentAction And ACTION_COUNTER_PROPOSE) Then
  4875.             Call m_uiobject.CounterPropose
  4876.         Elseif (lCurrentAction And ACTION_COMPLETED) Then
  4877.             Call m_uiobject.Complete            
  4878.         End If
  4879.         ' Finally, update the repeat instances if need be
  4880.         If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = 3) Then
  4881.             nChangeWhich = m_uiobject.RepeatChange
  4882.             If nChangeWhich <> REPEAT_CANCEL Then
  4883.                 If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
  4884.                 If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
  4885.             End If
  4886.         End If
  4887.         If (note.HasItem("$Alarm") And Not(vbeobject.InAlarmFolder)) Then
  4888.             If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
  4889.                 ' The user wants this entry to have an alarm by default                
  4890.                 Call vbeobject.AddDefaultAlarm()
  4891.             End If
  4892.         End If
  4893.         Call vBEObject.MarkTempItems    
  4894.     End Sub
  4895.     Sub PostSave()
  4896.         m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
  4897.     End Sub
  4898.     Sub QueryClose(bContinue As Variant)
  4899.         Dim vbeobject As Variant
  4900.         Dim vDates As Variant
  4901.         Dim vCategories As Variant
  4902.         Dim vResult As Variant
  4903.         Dim note As NotesDocument    
  4904.         Dim profile As NotesDocument        
  4905.         Dim nentries As Integer        
  4906.         Dim strSelectedCategory As String
  4907.         ' See if the document needs to be placed into the alarm folder
  4908.         Set note = m_uidoc.document
  4909.         Set vbeobject = m_uiobject.beobject
  4910.         If (note.HasItem("$Alarm") And Not(vbeobject.InAlarmFolder)) Then
  4911.             Call vbeobject.PutInAlarmsFolder()
  4912.             Call m_uiobject.Workspace.CheckAlarms()
  4913.         End If 
  4914.         ' See if we need to update categories        
  4915.         strSelectedCategory = note.GetItemValue("Categories")(0)
  4916.         If (strSelectedCategory = "H" Or strSelectedCategory = "V") Then Exit Sub
  4917.         Set profile = vBEObject.CalendarProfile.Document
  4918.         vCategories = profile.GetItemValue("UserCategories")        
  4919.         On Error Resume Next
  4920.         vResult = Arraygetindex(strSelectedCategory, vCategories)
  4921.         If Not(Isnull(vResult)) Then
  4922.             nEntries = Ubound(vCategories) + 1
  4923.             Redim Preserve vCategories(nEntries)
  4924.             vCategories(nEntries) = strSelectedCategory
  4925.             Call profile.replaceitemvalue("UserCategories", vCategories)
  4926.             Call profile.save(True, False)
  4927.         End If
  4928.     End Sub
  4929. End Class
  4930. '++LotusScript Development Environment:2:2:Initialize:1:10
  4931. Sub Initialize
  4932. End Sub
  4933. '++LotusScript Development Environment:2:1:CSCancelEventType:1:8
  4934. Function CSCancelEventType(uiobject As UIEventObject, strType As String) As Integer
  4935. ' Return -1 to bail, 0 to do nothing, 1 to cancel
  4936.     Dim vBEObject As Variant
  4937.     Dim sOriginalType As String
  4938.     Dim sCurrentType As String
  4939.     Set vBEObject = uiobject.BEObject
  4940.     If (sOriginalType = strType) And (sCurrentType <> strType) Then
  4941.     ' Make sure we have participants before asking
  4942.         If (vBEObject.WasMailed) Then
  4943.             If (YesNoPrompt(uiobject.StringTable.GetString(ENTRY_TYPE, Null),uiobject.StringTable.GetString(MODTYPE_TITLE,Null))) Then
  4944.                 If (uiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)")) Then   
  4945.                     CSCancelEventType = 1
  4946.                 Else
  4947.                     CSCancelEventType = -1
  4948.                 End If
  4949.             Else
  4950.                 CSCancelEventType = -1
  4951.             End If
  4952.         End If                    
  4953.     End If
  4954. End Function
  4955. Lotus Product
  4956. x \&|    
  4957. 0+0+t
  4958. ,`!#8
  4959. PT"~,
  4960. ,h"#~L
  4961. ,8#^,
  4962. ,8%J,
  4963. ,T'~8
  4964. PT"~,
  4965. +#,H+#
  4966. O=Lotus Notes
  4967. O=Lotus Notes
  4968. PURSAFO
  4969. |.:#U
  4970. O=Lotus Notes
  4971. CN=Lotus Notes Template Development/O=Lotus Notes
  4972. PURSAFO
  4973. "O!oZ
  4974. $TITLE
  4975. $Flags
  4976. $PublicAccess
  4977. $ScriptLib
  4978. $ScriptLib_O
  4979. '++LotusScript Development Environment:2:5:(Options):0:74
  4980. Option Public
  4981. Option Explicit
  4982. Use "CSEventClass"
  4983. '++LotusScript Development Environment:2:5:(Forward):0:1
  4984. Declare Sub ViewNewCalendarEntry(sType As String)
  4985. Declare Sub ViewNewTask(sType As String)
  4986. Declare Function InitEventObject(note As NotesDocument) As UIEventObject
  4987. Declare Sub ProcessViewCommand(lAction As Long)
  4988. Declare Function CheckForRepeatChanges(uievent As UIEventObject) As Integer
  4989. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4990. 'CSUIViewClass: 
  4991. 'CSUIViewClass: 
  4992. Const ACTION_VIEWSTATUS = 123
  4993. Const ACTION_SENDMEMO = 125
  4994. '++LotusScript Development Environment:2:2:ViewNewCalendarEntry:1:8
  4995. Sub ViewNewCalendarEntry(sType As String)
  4996.     Dim session As New notessession
  4997.     Dim db As notesdatabase
  4998.     Dim note As notesdocument
  4999.     Dim ws As New notesuiworkspace
  5000.     Dim uievent As UIEventObject
  5001.     Dim dt As notesdatetime
  5002.     Dim beobject As Variant
  5003.     Set db = session.currentdatabase
  5004.     Set note = New notesdocument(db)
  5005.     Call note.replaceitemvalue("AppointmentType", sType)
  5006.     Call note.replaceitemvalue("Form","Appointment")
  5007.     Call note.replaceitemvalue("tmpNewDoc","1")
  5008.     Set uievent = InitEventObject(note)
  5009.     If (uievent Is Nothing) Then Exit Sub
  5010.     Set beobject = uievent.BEObject
  5011.     Call beobject.InitDateTimeItems(beobject.CalendarInstance)
  5012.     Call ws.editdocument(True, note)    
  5013. End Sub
  5014. '++LotusScript Development Environment:2:2:ViewNewTask:1:8
  5015. Sub ViewNewTask(sType As String)
  5016.     Dim session As New notessession
  5017.     Dim db As notesdatabase
  5018.     Dim note As notesdocument
  5019.     Dim ws As New notesuiworkspace
  5020.     Dim uievent As UIEventObject
  5021.     Dim beobject As Variant
  5022.     Set db = session.currentdatabase
  5023.     Set note = New notesdocument(db)
  5024.     Call note.replaceitemvalue("TaskType", sType)
  5025.     Call note.replaceitemvalue("Form","Task")
  5026.     Call note.replaceitemvalue("tmpNewDoc","1")
  5027.     Set uievent = InitEventObject(note)
  5028.     If (uievent Is Nothing) Then Exit Sub
  5029.     Set beobject = uievent.BEObject
  5030.     Call beobject.InitDateTimeItems(beobject.CalendarInstance)
  5031.     Call ws.editdocument(True, note)    
  5032. End Sub
  5033. '++LotusScript Development Environment:2:1:InitEventObject:1:8
  5034. Function InitEventObject(note As NotesDocument) As UIEventObject
  5035.     Dim beeventobj As Variant
  5036.     Dim dtCalendar As NotesDateTime
  5037.     Dim uievent As UIEventObject
  5038.     Dim ws As New notesUIWorkspace
  5039.     Dim bChair As Integer
  5040.     Dim sForm As String  
  5041.     bChair = NOTEUserIsCreator(note)
  5042.     sForm = note.GetItemValue("Form")(0)
  5043.     If (Strcompare(sForm, "Task") = 0) Then
  5044.         Set uievent = New UIEventObject(2, bChair)
  5045.     Else
  5046.         Set uievent = New UIEventObject(1, bChair)
  5047.     End If
  5048.     Set beeventobj = uievent.BEObject
  5049.     Call TIMEGetNotesFromLS(ws.CurrentCalendarDateTime, dtCalendar)
  5050.     If Len(dtCalendar.LocalTime) Then
  5051.         Set beeventobj.CalendarInstance = dtCalendar
  5052.     Elseif (note.HasItem("OrgRepeat") And note.HasItem("$CSVersion") And note.IsResponse) Then
  5053.         If Not(CSOpenV5RepeatInstanceFromFlatView(beeventobj, note)) Then Exit Function
  5054.     End If
  5055.     Call beeventobj.Init(note)  
  5056.     Set InitEventObject = uievent
  5057. End Function
  5058. '++LotusScript Development Environment:2:2:ProcessViewCommand:1:8
  5059. Sub ProcessViewCommand(lAction As Long)
  5060.     Dim collection As NotesDocumentCollection
  5061.     Dim note As NotesDocument
  5062.     Dim session As New notessession
  5063.     Dim ws As New notesuiworkspace
  5064.     Dim uievent As UIEventObject
  5065.     Dim vBEobject As Variant
  5066.     Dim nChangeWhich As Integer
  5067.     Dim bSave As Integer
  5068.     Set collection = session.currentdatabase.unprocesseddocuments
  5069.     If (collection.count = 0) Then Exit Sub
  5070.     Set note = collection.getfirstdocument()
  5071.     Set uievent = InitEventObject(note)
  5072.     If (uievent Is Nothing) Then Exit Sub
  5073.     Set vBEObject = uievent.BEObject
  5074.     If Not(vBEObject.IsWorkflowEnabled()) Then Exit Sub
  5075.     If (uievent.IsOwner) Then
  5076.         Select Case lAction
  5077.         Case ACTION_RESCHEDULE
  5078.             If uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)") Then
  5079.                 If Not(CheckForRepeatChanges(uievent)) Then Exit Sub
  5080.                 Call vBEObject.IncrementSequenceNum()
  5081.                 Call vBEObject.UpdateDateTimeItems()
  5082.                 Call vBEObject.SetCalendarDateTime()
  5083.                 Call vBEObject.MarktempItems()
  5084.                 bSave = True
  5085.                 Call uievent.Reschedule()
  5086.             Else
  5087.                 Exit Sub
  5088.             End If
  5089.         Case ACTION_CANCEL
  5090.             If uievent.OkToPerformAction(Null, CANC_TITLE, lAction, "(OwnerDlg)") Then    
  5091.                 If Not(CheckForRepeatChanges(uievent)) Then Exit Sub
  5092.                 bSave = Not(uievent.Cancel(REMOVE_CALENDAR))
  5093.             Else
  5094.                 Exit Sub
  5095.             End If
  5096.         Case ACTION_CONFIRM
  5097.             If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)") Then
  5098.                 Call uievent.Confirm()
  5099.             End If
  5100.             Exit Sub
  5101.         Case ACTION_VIEWSTATUS
  5102.             Call uievent.ViewParticipantStatus()
  5103.             Exit Sub
  5104.         Case ACTION_SENDMEMO
  5105.             Call uievent.CreateMemo(True)
  5106.             Exit Sub
  5107.         Case ACTION_COMPLETED
  5108.             Call uievent.Complete()
  5109.         End Select
  5110.     Else        
  5111.         Select Case lAction            
  5112.         Case ACTION_ACCEPT
  5113.             If uievent.OkToPerformAction(Null, ACPT_TITLE, lAction, "(InviteeReplyDlg)") Then
  5114.                 If Not(CheckForRepeatChanges(uievent)) Then Exit Sub
  5115.                 bSave = True
  5116.                 Call uievent.Accept
  5117.             Else
  5118.                 Exit Sub
  5119.             End If
  5120.         Case ACTION_DECLINE
  5121.             If uievent.OkToPerformAction(Null, DECL_TITLE, lAction, "(InviteeReplyDlg)") Then
  5122.                 If Not(CheckForRepeatChanges(uievent)) Then Exit Sub
  5123.                 bSave = True
  5124.                 Call uievent.Decline
  5125.             Else
  5126.                 Exit Sub
  5127.             End If
  5128.         Case ACTION_DELEGATE
  5129.             If uievent.OkToPerformAction(Null, DELE_TITLE, lAction, "(InviteeReplyDlg)") Then
  5130.                 If Not(CheckForRepeatChanges(uievent)) Then Exit Sub
  5131.                 bSave = True
  5132.                 Call uievent.Delegate()
  5133.             Else
  5134.                 Exit Sub
  5135.             End If
  5136.         Case ACTION_COUNTER_PROPOSE
  5137.             If uievent.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)") Then
  5138.                 If Not(CheckForRepeatChanges(uievent)) Then Exit Sub
  5139.                 bSave = True
  5140.                 Call uievent.CounterPropose()
  5141.             Else
  5142.                 Exit Sub
  5143.             End If
  5144.         Case ACTION_COMPLETED
  5145.             If uievent.OkToPerformAction(Null, 0, lAction, "(InviteeReplyDlg)") Then
  5146.                 Call uievent.Complete()
  5147.             Else
  5148.                 Exit Sub
  5149.             End If
  5150.         End Select
  5151.     End If
  5152.         ' Finally, update the repeat instances if need be
  5153.     If (vBEObject.Context = CTX_REPEAT_INST) Then
  5154.         nChangeWhich = uievent.RepeatChange
  5155.         If nChangeWhich <> REPEAT_CANCEL Then
  5156.             If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
  5157.             If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
  5158.             bSave = True
  5159.         End If
  5160.     End If
  5161.     If (bSave) Then Call note.save(True, True, True)
  5162.     Delete uievent
  5163.     Call ws.ViewRefresh
  5164. End Sub    
  5165. '++LotusScript Development Environment:2:1:CheckForRepeatChanges:1:8
  5166. Function CheckForRepeatChanges(uievent As UIEventObject) As Integer
  5167.     Dim vBEObject As Variant
  5168.     CheckForRepeatChanges = True
  5169.     Set vBEObject = uievent.BEObject
  5170.     If (vBEObject.Context <> CTX_REPEAT_INST) Then Exit Function
  5171.     If (uievent.ChangeRepeatDialog() = REPEAT_CANCEL) Then
  5172.         CheckForRepeatChanges = False        
  5173.     Else
  5174.         Call vBEObject.Document.ReplaceitemValue("OriginalStartDate", vBEObject.OriginalStartDate)
  5175.     End If
  5176. End Function
  5177. Lotus Product
  5178. V0.0N
  5179. )l    ^(
  5180. O=Lotus Notes
  5181. O=Lotus Notes
  5182. PURSAFO
  5183. |.:#U
  5184. O=Lotus Notes
  5185. CN=Lotus Notes Template Development/O=Lotus Notes
  5186. PURSAFO
  5187. $TITLE
  5188. $Flags
  5189. $PublicAccess
  5190. $ScriptLib
  5191. $ScriptLib_O
  5192. DateToGoto
  5193. StartDateTime
  5194. StartDateTime
  5195. DueDateTime
  5196. DueDAteTime
  5197. NewStarTDateh
  5198. NewStartDAte
  5199.     1S2S
  5200. Calendar
  5201. DateToGoto
  5202. O=Lotus Notes
  5203. O=Lotus Notes
  5204. PURSAFO
  5205. |.:#U
  5206. O=Lotus Notes
  5207. CN=Lotus Notes Template Development/O=Lotus Notes
  5208. PURSAFO
  5209. $TITLE
  5210. $AssistType
  5211. $AssistLastRun
  5212. $AssistDocCount
  5213. $AssistFlags
  5214. $AssistTrigger
  5215. $AssistInfo
  5216. $AssistQuery
  5217. $AssistAction
  5218. $AssistAction_Ex
  5219. $PublicAccess
  5220. $FolderInfo
  5221. $FolderRefInfo
  5222. ($Inbox)
  5223. '++LotusScript Development Environment:2:5:(Options):0:74
  5224. Use "CSUIViewClass"
  5225. Use "CommonUI"
  5226. '++LotusScript Development Environment:2:5:(Forward):0:1
  5227. Declare Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  5228. Declare Sub Postdragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
  5229. Declare Sub Postdocumentdelete(Source As Notesuidatabase)
  5230. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5231. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5232. Private Sub BindEvents(Byval Objectname_ As String)
  5233.     Static Source As NOTESUIDATABASE
  5234.     Set Source = Bind(Objectname_)
  5235.     On Event Querydocumentdelete From Source Call Querydocumentdelete
  5236.     On Event Postdragdrop From Source Call Postdragdrop
  5237.     On Event Postdocumentdelete From Source Call Postdocumentdelete
  5238. End Sub
  5239. '++LotusScript Development Environment:2:2:Querydocumentdelete:1:12
  5240. Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
  5241.     Dim ws As New notesuiworkspace
  5242.     Dim uiview As NotesUIView
  5243.     Dim session As New NotesSession
  5244.     Dim note As NotesDocument
  5245.     Dim collection As NotesDocumentCollection
  5246.     Dim notetmp As NotesDocument
  5247.     Dim strViewName As String
  5248.     Dim strAction As String
  5249.     Dim uiobject As UIEventObject
  5250.     Dim vBEObject As Variant
  5251.     Dim bRemoveNote As Integer
  5252.     Dim nChangeWhich As Integer
  5253.     Set uiview = ws.CurrentView
  5254.     ' IF we do not have a current view, bail
  5255.     If uiview Is Nothing Then Exit Sub
  5256.     strViewName = uiview.ViewName
  5257.     If Strcompare(strViewName, "($Sent)")  = 0 Then
  5258.         ' We are deleting from the Sent view; see if the user wants to delete or remove
  5259.         If (session.GetEnvironmentValue("DeleteFromSent", True) = 0) Then
  5260.             ' The user wants to be prompted
  5261.             Set note = New NotesDocument(session.currentdatabase)
  5262.             Call ws.DialogBox("(DeleteSentDlg)", True, True, True, False, False, False, , note, True, True)
  5263.             strAction = note.GetItemValue("Action")(0)
  5264.             If (Strcompare(strAction, "Cancel") <> 0) Then
  5265.                 If (note.GetItemValue("tmpDontAsk")(0) = "1") Then Call session.SetEnvironmentVar("DeleteFromSent", "1",True)
  5266.                 If (Strcompare(strAction, "Remove") = 0) Then
  5267.                     Call source.documents.stampall("ExcludeFromView","S")
  5268.                 Else
  5269.                     Call source.documents.RemoveAll(False)
  5270.                 End If
  5271.                 Call ws.viewrefresh
  5272.             End If
  5273.             Continue = False
  5274.         End If
  5275.     Elseif Strcompare(strViewName, "($Calendar)") = 0 Then
  5276.         Set collection = source.documents
  5277.         Set note = collection.GetFirstDocument
  5278.         While Not(note Is Nothing)
  5279.             Set uiobject = InitEventObject(note)
  5280.             Set vBEObject = uiobject.BEObject
  5281.             bRemoveNote = False
  5282.             If CheckForRepeatChanges(uiobject) Then
  5283.                 If (vBEobject.WasMailed) Then
  5284.                     If (uiobject.IsOwner) Then
  5285.                         ' we need to cancel the event
  5286.                         If uiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)") Then    
  5287.                             Call uiobject.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT Or REMOVE_DELETED)
  5288.                         Else
  5289.                             continue = False
  5290.                             Exit Sub
  5291.                         End If
  5292.                     Else
  5293.                         ' we need to decline the event
  5294.                         uiobject.SendComments = True
  5295.                         If uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeDlg)") Then    
  5296.                             Call uiobject.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT)
  5297.                         Else
  5298.                             continue = False
  5299.                             Exit Sub
  5300.                         End If
  5301.                     End If
  5302.                 Else
  5303.                     ' workflow is not enabled, simply delete the entries
  5304.                     Call vBEObject.ActionHandler("H", 0, 0)
  5305.                 End If
  5306.                 If (vBEObject.Context = CTX_REPEAT_INST) Then
  5307.                     nChangeWhich = vBEObject.RepeatModify
  5308.                     If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
  5309.                     If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
  5310.                 End If
  5311.             End If
  5312.             Set note = collection.getnextdocument(note)
  5313.         Wend
  5314.     End If
  5315. Done:
  5316.     If Not(note Is Nothing) Then Delete note
  5317.     Exit Sub
  5318. End Sub
  5319. '++LotusScript Development Environment:2:2:Postdragdrop:1:12
  5320. Sub Postdragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
  5321.     Dim newnote As notesdocument
  5322.     'TODO Use alias names when they become available
  5323.     If EntryName = "Group Calendars" Then 
  5324.         Set newnote =  UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
  5325.         Call DisplayGroupCalendarDlg(newnote, True)
  5326.         continue = False
  5327.     Elseif EntryName = "Trash Bin" Then
  5328.         ' user wants to delete the documents
  5329.         Call source.documents.RemoveAll(True)
  5330.     End If
  5331. End Sub
  5332. '++LotusScript Development Environment:2:2:Postdocumentdelete:1:12
  5333. Sub Postdocumentdelete(Source As Notesuidatabase)
  5334.     Dim ws As New notesuiworkspace
  5335.     Dim uiview As NotesUIView
  5336.     Dim session As New NotesSession
  5337.     Dim dbmail As notesdatabase
  5338.     Dim note As NotesDocument
  5339.     Dim collection As NotesDocumentCollection
  5340.     Dim profile As notesdocument
  5341.     Dim vrulenum As Variant
  5342.     Dim strfilteritem As String
  5343.     Dim strViewName As String
  5344.     Set uiview = ws.CurrentView
  5345.     ' IF we do not have a current view, bail
  5346.     If uiview Is Nothing Then Exit Sub
  5347.     strViewName = uiview.ViewName
  5348.     If Strcompare(strViewName, "Rules")  = 0 Then
  5349.         Set dbmail = session.currentdatabase
  5350.         Set profile= dbmail.GetProfileDocument("CalendarProfile")
  5351.         Set collection = source.documents        
  5352.         Set note = collection.GetFirstDocument
  5353.         While Not(note Is Nothing)
  5354.             If note.getitemvalue("enable")(0)="1" Then
  5355.             'remove $filterformula item from the profile note
  5356.                 vrulenum = note.getitemvalue("ordernum")(0)
  5357.                 strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
  5358.                 Call profile.removeitem(strfilteritem)
  5359.             End If
  5360.             Set note = collection.getnextdocument(note)            
  5361.         Wend
  5362.         Call profile.save(True, True, False)
  5363.         Call ws.viewrefresh
  5364.     End If
  5365. End Sub
  5366. Lotus Product
  5367. V0.0`
  5368. O=Lotus Notes
  5369. O=Lotus Notes
  5370. PURSAFO
  5371. |.:#U
  5372. O=Lotus Notes
  5373. CN=Lotus Notes Template Development/O=Lotus Notes
  5374. PURSAFO
  5375. $DBScript
  5376. $DBScript_O
  5377. $TITLE
  5378. $Flags
  5379. $PublicAccess
  5380. (GIF89a
  5381. <a>7`^///""
  5382. #6dhP
  5383. P6=q$)C9
  5384. )"N b
  5385. K g&<.
  5386. Bh}/n
  5387. ;lx-u7
  5388. AQiN+
  5389. 0;y!Wf
  5390. y`6A9
  5391. Lro&B
  5392. S*i `
  5393. Fnl~U
  5394. ,R$R<
  5395. D0od_
  5396. QqI3b
  5397. U!kNP
  5398. @%7F!
  5399. dHGe    
  5400. {L%qH1SG3
  5401. >+2w=7#qg
  5402. {93 $w
  5403. Qa4Ts
  5404. w{uW>
  5405. (sr.0
  5406. tM#E`
  5407. Y~a{t
  5408. "<4J5uR
  5409. !!Fz`R
  5410. ?ZVqv
  5411. D&2xb
  5412. #9}Wd
  5413. T!.`s
  5414. jX'TM
  5415. =BOYo
  5416. U41eB4
  5417. ;2; u
  5418. vrKJ(
  5419. =6Y3'
  5420. A%%L1S\
  5421. A:j^L
  5422. FY6.]=
  5423. c-rrF
  5424. y$l1dM
  5425. J-I)?
  5426. [*"-|
  5427. Q#~**
  5428. =/"+Q
  5429. EYF%"
  5430. -zI1q
  5431. F    >dJ7
  5432. hYk2?
  5433. $5xc05
  5434. Su!+0
  5435. D]rtz
  5436. O=Lotus Notes
  5437. O=Lotus Notes
  5438. PURSAFO
  5439. |.:#U
  5440. O=Lotus Notes
  5441. CN=Lotus Notes Template Development/O=Lotus Notes
  5442. PURSAFO
  5443. $ImagesWide
  5444. $ImagesHigh
  5445. $ImagesColorize
  5446. $TITLE
  5447. $ImageData
  5448. $ImageNames
  5449. O=Lotus Notes
  5450. O=Lotus Notes
  5451. PURSAFO
  5452. |.:#U
  5453. O=Lotus Notes
  5454. CN=Lotus Notes Template Development/O=Lotus Notes
  5455. PURSAFO
  5456. "tW| 
  5457. $Info
  5458. $Body
  5459. (Rules)|Rules(Stationery)|Stationery($Alarms)|$Alarms
  5460. DeliveredDate
  5461. PostedDate
  5462. PostedDateY
  5463. IsMailStationeryh
  5464. _ViewIcon
  5465. _ViewIcon
  5466. Importance
  5467. Importance
  5468. _ViewIcon
  5469. _ViewIcon
  5470. $TypeIcon
  5471.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  5472. SentBy
  5473. Principal
  5474. Principal
  5475.     1S2S5S6S8S10S
  5476. Attendees
  5477. RequiredAttendees
  5478. OptionalAttendees
  5479.     0R1S2S5S6S
  5480. DeliveredDate
  5481. SentBy
  5482. Attendees
  5483. Attendees
  5484. SendTo
  5485. SentBy
  5486. SendTo
  5487.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  5488.     0R1S2S8S
  5489.     0R1S2S15S16S
  5490.     0R1S2S5S6S8S14S18S
  5491.     0R1S2S5S6S8S14S18S
  5492. Person
  5493. X400FreeForm^
  5494.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  5495. Person2
  5496. Person
  5497. Person
  5498. Person
  5499. Person
  5500.     0R1S2S12S13S22S34S
  5501. Delivery Report
  5502. NonDelivery Report
  5503. Trace Report
  5504. Mail Router
  5505. Person2
  5506.     0R3S4S5S6S7S8S10S12S
  5507. DeliveredDate
  5508. DeliveredDate
  5509. PostedDate
  5510. PostedDate
  5511.     3S4S6S8S9S10S12S14S
  5512. $ContentIconh
  5513. $ContentIcon
  5514. Froma
  5515.  pager 
  5516. SendToa
  5517.  pager 
  5518. message.wav
  5519. vmsg_hdr.wav
  5520. .wavG
  5521. .tifG
  5522. $ContentIconh
  5523. $ContentIcon
  5524.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  5525. NonDelivery Report
  5526. DELIVERY FAILURE: 
  5527. FailureReason
  5528. PhoneCaller
  5529. Phone Call: 
  5530. PhoneCaller
  5531. Delivery Report
  5532. DELIVERED: 
  5533. Subject
  5534. Return Receipt
  5535. RECEIVED: 
  5536. Subject
  5537. Subject
  5538.     3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S
  5539. $27$39$13$32Subject$14$Conflict$REF
  5540. HiddenDocument
  5541. $MessageType
  5542. IsMailStationeryY
  5543.     L1S2S3S4S5S8S2E9S
  5544. DeliveredDate
  5545. PostedDate
  5546. PostedDateY
  5547. IsMailStationeryh
  5548. _ViewIcon
  5549. _ViewIcon
  5550. Importance
  5551. Importance
  5552. _ViewIcon
  5553. _ViewIcon
  5554. $TypeIcon
  5555.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  5556. $39Who
  5557. SentBy
  5558. Principal
  5559. Principal
  5560.     1S2S5S6S8S10S
  5561. Attendees
  5562. RequiredAttendees
  5563. OptionalAttendees
  5564.     0R1S2S5S6S
  5565. DeliveredDate
  5566. SentBy
  5567. Attendees
  5568. Attendees
  5569. SendTo
  5570. SentBy
  5571. SendTo
  5572.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  5573.     0R1S2S8S
  5574.     0R1S2S15S16S
  5575.     0R1S2S5S6S8S14S18S
  5576.     0R1S2S5S6S8S14S18S
  5577. Person
  5578. X400FreeForm^
  5579.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  5580. Person2
  5581. Person
  5582. Person
  5583. Person
  5584. Person
  5585.     0R1S2S12S13S22S34S
  5586. Delivery Report
  5587. NonDelivery Report
  5588. Trace Report
  5589. Mail Router
  5590. Person2
  5591.     0R3S4S5S6S7S8S10S12S
  5592. $13Date
  5593. DeliveredDate
  5594. DeliveredDate
  5595. PostedDate
  5596. PostedDate
  5597.     3S4S6S8S9S10S12S14S$32F
  5598. $ContentIconh
  5599. $ContentIcon
  5600. Froma
  5601.  pager 
  5602. SendToa
  5603.  pager 
  5604. message.wav
  5605. vmsg_hdr.wav
  5606. .wavG
  5607. .tifG
  5608. $ContentIconh
  5609. $ContentIcon
  5610.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105SSubject$14Subject~
  5611. NonDelivery Report
  5612. DELIVERY FAILURE: 
  5613. FailureReason
  5614. PhoneCaller
  5615. Phone Call: 
  5616. PhoneCaller
  5617. Delivery Report
  5618. DELIVERED: 
  5619. Subject
  5620. Return Receipt
  5621. RECEIVED: 
  5622. Subject
  5623. Subject
  5624.     3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S&
  5625. Categori_ze
  5626. _Move to Folder...
  5627. _Remove from Folder...
  5628. New Memo(
  5629.     0S0E
  5630. act_NEWMEMO.GIF|act_NEWMEMO?
  5631. Reply...\Reply0
  5632. Reply
  5633.     0S0E
  5634. act_REPLY.GIF|act_REPLY?
  5635. Reply...\Reply with History 
  5636. Reply with History
  5637. This document is truncated.
  5638.     4S8S10S13S
  5639. Reply with history
  5640. act_REPLY.GIF|act_REPLY?
  5641. Reply...\Reply to AllRX
  5642. MailStEd
  5643.     0S0E
  5644. Reply
  5645. act_REPLY.GIF|act_REPLY?
  5646. Reply...\Reply to All with History
  5647. MailStEd
  5648.     0S0E
  5649. Reply with History
  5650. This document is truncated.
  5651.     0R4S8S10S13S
  5652. Reply with history
  5653. act_REPLY.GIF|act_REPLY?
  5654. Forward
  5655.     0S0E
  5656. ISMAILSTATIONERYh
  5657.     0S0E
  5658. act_FORWARD.GIF|act_FORWARD?
  5659. _Forward
  5660. Delete 
  5661.     0S0E
  5662. act_DELETE.GIF|act_DELETE?
  5663. _Edit Document
  5664. Folder...\Move To Folder...i 
  5665.     0S0E
  5666. act_FOLDER.GIF|act_FOLDER?
  5667. Folder...\Remove From Folder 
  5668.     0S0E
  5669. act_FOLDER.GIF|act_FOLDER?
  5670. Copy into...\New Memo0'++LotusScript Development Environment:2:5:(Options):0:74
  5671. Use "CommonUI"
  5672. '++LotusScript Development Environment:2:5:(Forward):0:1
  5673. Declare Sub Click(Source As Button)
  5674. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5675. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5676. Private Sub BindEvents(Byval Objectname_ As String)
  5677. Static Source As BUTTON
  5678. Set Source = Bind(Objectname_)
  5679. On Event Click From Source Call Click
  5680. End Sub
  5681. '++LotusScript Development Environment:2:2:Click:1:12
  5682. Sub Click(Source As Button)
  5683.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  5684. End Sub
  5685. act_COPYINTO.GIF|act_COPYINTO?
  5686. Copy into...\New Calendar Entry
  5687. '++LotusScript Development Environment:2:5:(Options):0:74
  5688. Use "CommonUI"
  5689. '++LotusScript Development Environment:2:5:(Forward):0:1
  5690. Declare Sub Click(Source As Button)
  5691. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5692. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5693. Private Sub BindEvents(Byval Objectname_ As String)
  5694. Static Source As BUTTON
  5695. Set Source = Bind(Objectname_)
  5696. On Event Click From Source Call Click
  5697. End Sub
  5698. '++LotusScript Development Environment:2:2:Click:1:12
  5699. Sub Click(Source As Button)
  5700.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  5701. End Sub
  5702. act_COPYINTO.GIF|act_COPYINTO?
  5703. Copy into...\New Todot'++LotusScript Development Environment:2:5:(Options):0:74
  5704. Use "CommonUI"
  5705. '++LotusScript Development Environment:2:5:(Forward):0:1
  5706. Declare Sub Click(Source As Button)
  5707. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5708. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5709. Private Sub BindEvents(Byval Objectname_ As String)
  5710.     Static Source As BUTTON
  5711.     Set Source = Bind(Objectname_)
  5712.     On Event Click From Source Call Click
  5713. End Sub
  5714. '++LotusScript Development Environment:2:2:Click:1:12
  5715. Sub Click(Source As Button)
  5716.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  5717. End Sub
  5718. act_COPYINTO.GIF|act_COPYINTO?
  5719. Tools...\Preferences...
  5720. (Preferences)
  5721.     0S0E
  5722. act_TOOLS.GIF|act_TOOLS?
  5723. Tools...\Out of Office...
  5724. (EditOfficeProfile)
  5725.     0S0E
  5726. act_TOOLS.GIF|act_TOOLS?
  5727. Tools...\Add Sender to Address Book <
  5728. (AddSenderToAddressBook)
  5729.     0S0E
  5730. act_TOOLS.GIF|act_TOOLS?
  5731. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  5732. '++LotusScript Development Environment:2:5:(Forward):0:1
  5733. Declare Sub Click(Source As Button)
  5734. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5735. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5736. Private Sub BindEvents(Byval Objectname_ As String)
  5737.     Static Source As BUTTON
  5738.     Set Source = Bind(Objectname_)
  5739.     On Event Click From Source Call Click
  5740. End Sub
  5741. '++LotusScript Development Environment:2:2:Click:1:12
  5742. Sub Click(Source As Button)
  5743.     Dim session As New notessession
  5744.     Dim uiws As New notesuiworkspace
  5745.     Dim collection As notesdocumentcollection
  5746.     Dim noteUIEditDocument As notesuidocument
  5747.     Dim database As NotesDatabase
  5748.     Set noteCursorDoc = session.currentdatabase.createdocument
  5749.     Set database = session.currentdatabase
  5750.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  5751.     Set noteCursorDoc = collection.getfirstdocument
  5752.     If Not noteCursorDoc Is Nothing Then
  5753.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  5754.     End If
  5755. End Sub
  5756. act_TOOLS.GIF|act_TOOLS?
  5757. New Memo(
  5758.     0S0E
  5759. act_NEW.GIF|act_NEW?
  5760. Folder...\Create Folder2
  5761. act_FOLDER.GIF|act_FOLDER?
  5762. alert('Feature in Progress')
  5763. Folder...\Move to Folder...
  5764.     0S0E
  5765. act_FOLDER.GIF|act_FOLDER?
  5766. Delete...\Delete 
  5767.     0S0E
  5768. act_DELETE.GIF|act_DELETE?
  5769. Delete...\Empty TrashD 
  5770.     0S0E
  5771. act_DELETE.GIF|act_DELETE?
  5772. Tools...\Preferences4
  5773. CalendarProfile
  5774.     0S0E
  5775. act_TOOLS.GIF|act_TOOLS?
  5776. Tools...\Archiving
  5777. act_TOOLS.GIF|act_TOOLS?
  5778. var pathname = window.location.pathname
  5779. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  5780. //Generate a random number based on the current time  hr:min:sec
  5781. //we do this in case the user doesn't refresh the cache every time they load a page on their browser.
  5782. //If they don't refresh the cache, the Archive Profile keeps the original settings only, for each browser session.
  5783. now = new Date();
  5784. mins = now.getMinutes().toString()
  5785. secs = now.getSeconds().toString()
  5786. hrs = now.getHours().toString()
  5787. random = mins + secs + hrs
  5788. window.open(filename + 'WebArchProfile?openForm&' + random,'secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=465,width=600')
  5789. Tools...\Out of Office
  5790. act_TOOLS.GIF|act_TOOLS?
  5791. alert('Feature in Progress')
  5792. Categori_ze
  5793. _Move to Folder...
  5794. _Remove from Folder...
  5795. New Memo(
  5796.     0S0E
  5797. Reply...\Reply0
  5798. Reply
  5799.     0S0E
  5800. Reply...\Reply with History.
  5801. Reply with History
  5802. This document is truncated.
  5803.     4S8S10S13S
  5804. Reply with history
  5805. Reply...\Reply to AlltX
  5806. MailStEd
  5807.     0S0E
  5808. Reply
  5809. Reply...\Reply to All with History
  5810. MailStEd
  5811.     0S0E
  5812. Reply with History
  5813. This document is truncated.
  5814.     0R4S8S10S13S
  5815. Reply with history
  5816. Forward
  5817.     0S0E
  5818. ISMAILSTATIONERYh
  5819.     0S0E
  5820. _Forward
  5821. Delete 
  5822.     0S0E
  5823. _Edit Document
  5824. Folder...\Move To Folder...
  5825.     0S0E
  5826. Folder...\Remove From Folder 
  5827.     0S0E
  5828. Copy into...\New Memo
  5829. '++LotusScript Development Environment:2:5:(Options):0:74
  5830. Use "CommonUI"
  5831. '++LotusScript Development Environment:2:5:(Forward):0:1
  5832. Declare Sub Click(Source As Button)
  5833. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5834. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5835. Private Sub BindEvents(Byval Objectname_ As String)
  5836. Static Source As BUTTON
  5837. Set Source = Bind(Objectname_)
  5838. On Event Click From Source Call Click
  5839. End Sub
  5840. '++LotusScript Development Environment:2:2:Click:1:12
  5841. Sub Click(Source As Button)
  5842.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  5843. End Sub
  5844. Copy into...\New Calendar EntryN'++LotusScript Development Environment:2:5:(Options):0:74
  5845. Use "CommonUI"
  5846. '++LotusScript Development Environment:2:5:(Forward):0:1
  5847. Declare Sub Click(Source As Button)
  5848. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5849. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5850. Private Sub BindEvents(Byval Objectname_ As String)
  5851. Static Source As BUTTON
  5852. Set Source = Bind(Objectname_)
  5853. On Event Click From Source Call Click
  5854. End Sub
  5855. '++LotusScript Development Environment:2:2:Click:1:12
  5856. Sub Click(Source As Button)
  5857.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  5858. End Sub
  5859. Copy into...\New TodoO'++LotusScript Development Environment:2:5:(Options):0:74
  5860. Use "CommonUI"
  5861. '++LotusScript Development Environment:2:5:(Forward):0:1
  5862. Declare Sub Click(Source As Button)
  5863. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5864. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5865. Private Sub BindEvents(Byval Objectname_ As String)
  5866.     Static Source As BUTTON
  5867.     Set Source = Bind(Objectname_)
  5868.     On Event Click From Source Call Click
  5869. End Sub
  5870. '++LotusScript Development Environment:2:2:Click:1:12
  5871. Sub Click(Source As Button)
  5872.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  5873. End Sub
  5874. Tools...\Preferences...n2
  5875. (Preferences)
  5876.     0S0E
  5877. Tools...\Out of Office...?8
  5878. (EditOfficeProfile)
  5879.     0S0E
  5880. Tools...\Add Sender to Address Book
  5881. (AddSenderToAddressBook)
  5882.     0S0E
  5883. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  5884. '++LotusScript Development Environment:2:5:(Forward):0:1
  5885. Declare Sub Click(Source As Button)
  5886. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5887. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5888. Private Sub BindEvents(Byval Objectname_ As String)
  5889.     Static Source As BUTTON
  5890.     Set Source = Bind(Objectname_)
  5891.     On Event Click From Source Call Click
  5892. End Sub
  5893. '++LotusScript Development Environment:2:2:Click:1:12
  5894. Sub Click(Source As Button)
  5895.     Dim session As New notessession
  5896.     Dim uiws As New notesuiworkspace
  5897.     Dim collection As notesdocumentcollection
  5898.     Dim noteUIEditDocument As notesuidocument
  5899.     Dim database As NotesDatabase
  5900.     Set noteCursorDoc = session.currentdatabase.createdocument
  5901.     Set database = session.currentdatabase
  5902.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  5903.     Set noteCursorDoc = collection.getfirstdocument
  5904.     If Not noteCursorDoc Is Nothing Then
  5905.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  5906.     End If
  5907. End Sub
  5908. New Memo(
  5909.     0S0E
  5910. Folder...\Move to Folder...E&
  5911.     0S0E
  5912. Delete...\Delete 
  5913.     0S0E
  5914. Delete...\Empty Trashl 
  5915.     0S0E
  5916. Tools...\Preferences4
  5917. CalendarProfile
  5918.     0S0E
  5919. Lotus Product
  5920. OBJECT
  5921. Lotus Product
  5922. OBJECT
  5923. Lotus Product
  5924. OBJECT
  5925. Lotus Product
  5926. OBJECT
  5927. '++LotusScript Development Environment:2:5:(Options):0:74
  5928. Option Public
  5929. '++LotusScript Development Environment:2:5:(Forward):0:1
  5930. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5931. O=Lotus Notes
  5932. O=Lotus Notes
  5933. PURSAFO
  5934. |.:#U
  5935. O=Lotus Notes
  5936. CN=Lotus Notes Template Development/O=Lotus Notes
  5937. PURSAFO
  5938. $TITLE
  5939. $Index
  5940. $Formula
  5941. $FormulaClass
  5942. $VIEWFORMAT
  5943. $Comment
  5944. $WebFlags
  5945. $V5ACTIONS
  5946. $ACTIONS
  5947. $SCRIPTOBJ_15
  5948. $SCRIPTOBJ_16
  5949. $SCRIPTOBJ_17
  5950. $SCRIPTOBJ_21
  5951. $ViewGlobalScript
  5952. $ViewGlobalScript_O
  5953. '++LotusScript Development Environment:2:5:(Options):0:66
  5954. Option Public
  5955. '++LotusScript Development Environment:2:5:(Forward):0:1
  5956. Declare Sub Initialize
  5957. Declare Function GetDBPath
  5958. Declare Sub InstantiateObjects
  5959. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5960. Dim s As NotesSession 
  5961. Dim db As NotesDatabase
  5962. Dim dbpath As String
  5963. Dim note As NotesDocument
  5964. Dim IsWebUser As Integer
  5965. '++LotusScript Development Environment:2:2:Initialize:1:10
  5966. Sub Initialize
  5967.      
  5968. End Sub
  5969. '++LotusScript Development Environment:2:1:GetDBPath:1:8
  5970. Function GetDBPath
  5971. 'check to see if the database is in a directory and swap the slash directions
  5972.      Dim tmpPath As String     
  5973.      tmpPath = db.filepath
  5974.      Do While Instr(tmpPath,"\") > 0
  5975.           tmpPath = Left$(tmpPath, Instr(tmpPath,"\")-1) + "/" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath,"\"))
  5976.      Loop
  5977.      
  5978. 'check and see if there are any embedded spaces and replace them with +     
  5979.      Do While Instr(tmpPath," ") > 0
  5980.           tmpPath = Left$(tmpPath, Instr(tmpPath," ")-1) + "+" + Right$(tmpPath,Len(tmpPath)-Instr(tmpPath," "))
  5981.      Loop
  5982.      
  5983.      GetDbPath = tmpPath
  5984.      
  5985. End Function
  5986. '++LotusScript Development Environment:2:2:InstantiateObjects:1:8
  5987. Sub InstantiateObjects
  5988.      Set s = New NotesSession
  5989.      Set db = s.CurrentDatabase
  5990.      Set note = s.documentcontext
  5991. End Sub
  5992. O=Lotus Notes
  5993. O=Lotus Notes
  5994. PURSAFO
  5995. |.:#U
  5996. O=Lotus Notes
  5997. CN=Lotus Notes Template Development/O=Lotus Notes
  5998. PURSAFO
  5999. 1\B,;CHV0
  6000. $ScriptLib
  6001. $ScriptLib_O
  6002. $TITLE
  6003. $Flags
  6004. $PublicAccess
  6005. GIF89a
  6006. O=Lotus Notes
  6007. O=Lotus Notes
  6008. PURSAFO
  6009. |.:#U
  6010. O=Lotus Notes
  6011. CN=Lotus Notes Template Development/O=Lotus Notes
  6012. PURSAFO
  6013. $ImagesWide
  6014. $ImagesHigh
  6015. $ImageData
  6016. $ImageNames
  6017. $TITLE
  6018. $PublicAccess
  6019. '++LotusScript Development Environment:2:5:(Options):0:74
  6020. Option Public
  6021. Use "CommonUI"
  6022. Option Declare
  6023. '++LotusScript Development Environment:2:5:(Forward):0:1
  6024. Declare Sub Initialize
  6025. Declare Sub CreateNewDoc(nType As Integer)
  6026. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6027. 'DocumentConversions: 
  6028. 'DocumentConversions: 
  6029. 'This script library wraps person folders and views created prior to 5.0_
  6030. ' into 5.0 functions and classes
  6031. Const NEW_MEMO             =     &h00000001&
  6032. Const NEW_CALENDAR     =     &h00000002&
  6033. Const NEW_TASK             =     &h00000004&
  6034. '++LotusScript Development Environment:2:2:Initialize:1:10
  6035. Sub Initialize
  6036. End Sub
  6037. '++LotusScript Development Environment:2:2:CreateNewDoc:1:8
  6038. Sub CreateNewDoc(nType As Integer)
  6039.     Select Case nType
  6040.     Case NEW_MEMO
  6041.         Call UICopyIntoNewDocument(CREATE_MEMO, True)
  6042.     Case NEW_CALENDAR
  6043.         Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  6044.     Case NEW_TASK         
  6045.         Call UICopyIntoNewDocument(CREATE_TASK, True)
  6046.     Case Else
  6047.         Messagebox("Undefined document type!")
  6048.     End Select
  6049. End Sub
  6050. Lotus Product
  6051. OBJECT
  6052. O=Lotus Notes
  6053. O=Lotus Notes
  6054. PURSAFO
  6055. |.:#U
  6056. O=Lotus Notes
  6057. CN=Lotus Notes Template Development/O=Lotus Notes
  6058. PURSAFO
  6059. $TITLE
  6060. $Flags
  6061. $PublicAccess
  6062. $ScriptLib
  6063. $ScriptLib_O
  6064. (GIF89a
  6065. <a>7`^///""
  6066. #6dhP
  6067. P6=q$)C9
  6068. )"N b
  6069. K g&<.
  6070. Bh}/n
  6071. ;lx-u7
  6072. AQiN+
  6073. 0;y!Wf
  6074. y`6A9
  6075. Lro&B
  6076. S*i `
  6077. Fnl~U
  6078. ,R$R<
  6079. D0od_
  6080. QqI3b
  6081. U!kNP
  6082. @%7F!
  6083. dHGe    
  6084. {L%qH1SG3
  6085. >+2w=7#qg
  6086. {93 $w
  6087. Qa4Ts
  6088. w{uW>
  6089. (sr.0
  6090. tM#E`
  6091. Y~a{t
  6092. "<4J5uR
  6093. !!Fz`R
  6094. ?ZVqv
  6095. D&2xb
  6096. #9}Wd
  6097. T!.`s
  6098. jX'TM
  6099. =BOYo
  6100. U41eB4
  6101. ;2; u
  6102. vrKJ(
  6103. =6Y3'
  6104. A%%L1S\
  6105. A:j^L
  6106. FY6.]=
  6107. c-rrF
  6108. y$l1dM
  6109. J-I)?
  6110. [*"-|
  6111. Q#~**
  6112. =/"+Q
  6113. EYF%"
  6114. -zI1q
  6115. F    >dJ7
  6116. hYk2?
  6117. $5xc05
  6118. Su!+0
  6119. D]rtz
  6120. O=Lotus Notes
  6121. O=Lotus Notes
  6122. PURSAFO
  6123. |.:#U
  6124. O=Lotus Notes
  6125. CN=Lotus Notes Template Development/O=Lotus Notes
  6126. PURSAFO
  6127. $ImagesWide
  6128. $ImagesHigh
  6129. $ImagesColorize
  6130. $TITLE
  6131. $ImageData
  6132. $ImageNames
  6133. (GIF89a
  6134. <a>7`^///""
  6135. #6dhP
  6136. P6=q$)C9
  6137. )"N b
  6138. K g&<.
  6139. Bh}/n
  6140. ;lx-u7
  6141. AQiN+
  6142. 0;y!Wf
  6143. y`6A9
  6144. Lro&B
  6145. S*i `
  6146. Fnl~U
  6147. ,R$R<
  6148. D0od_
  6149. QqI3b
  6150. U!kNP
  6151. @%7F!
  6152. dHGe    
  6153. {L%qH1SG3
  6154. >+2w=7#qg
  6155. {93 $w
  6156. Qa4Ts
  6157. w{uW>
  6158. (sr.0
  6159. tM#E`
  6160. Y~a{t
  6161. "<4J5uR
  6162. !!Fz`R
  6163. ?ZVqv
  6164. D&2xb
  6165. #9}Wd
  6166. T!.`s
  6167. jX'TM
  6168. =BOYo
  6169. U41eB4
  6170. ;2; u
  6171. vrKJ(
  6172. =6Y3'
  6173. A%%L1S\
  6174. A:j^L
  6175. FY6.]=
  6176. c-rrF
  6177. y$l1dM
  6178. J-I)?
  6179. [*"-|
  6180. Q#~**
  6181. =/"+Q
  6182. EYF%"
  6183. -zI1q
  6184. F    >dJ7
  6185. hYk2?
  6186. $5xc05
  6187. Su!+0
  6188. D]rtz
  6189. O=Lotus Notes
  6190. O=Lotus Notes
  6191. PURSAFO
  6192. |.:#U
  6193. O=Lotus Notes
  6194. CN=Lotus Notes Template Development/O=Lotus Notes
  6195. PURSAFO
  6196. $ImagesWide
  6197. $ImagesHigh
  6198. $ImagesColorize
  6199. $TITLE
  6200. $ImageData
  6201. $ImageNames
  6202. GIF89a
  6203. ___BB
  6204. $.\8@
  6205. [sgEO}H
  6206. O=Lotus Notes
  6207. O=Lotus Notes
  6208. PURSAFO
  6209. |.:#U
  6210. O=Lotus Notes
  6211. CN=Lotus Notes Template Development/O=Lotus Notes
  6212. PURSAFO
  6213. mjeOB
  6214. $ImagesWide
  6215. $ImagesHigh
  6216. $ImagesColorize
  6217. $TITLE
  6218. $ImageData
  6219. $ImageNames
  6220. (GIF89a
  6221. <a>7`^///""
  6222. #6dhP
  6223. P6=q$)C9
  6224. )"N b
  6225. K g&<.
  6226. Bh}/n
  6227. ;lx-u7
  6228. AQiN+
  6229. 0;y!Wf
  6230. y`6A9
  6231. Lro&B
  6232. S*i `
  6233. Fnl~U
  6234. ,R$R<
  6235. D0od_
  6236. QqI3b
  6237. U!kNP
  6238. @%7F!
  6239. dHGe    
  6240. {L%qH1SG3
  6241. >+2w=7#qg
  6242. {93 $w
  6243. Qa4Ts
  6244. w{uW>
  6245. (sr.0
  6246. tM#E`
  6247. Y~a{t
  6248. "<4J5uR
  6249. !!Fz`R
  6250. ?ZVqv
  6251. D&2xb
  6252. #9}Wd
  6253. T!.`s
  6254. jX'TM
  6255. =BOYo
  6256. U41eB4
  6257. ;2; u
  6258. vrKJ(
  6259. =6Y3'
  6260. A%%L1S\
  6261. A:j^L
  6262. FY6.]=
  6263. c-rrF
  6264. y$l1dM
  6265. J-I)?
  6266. [*"-|
  6267. Q#~**
  6268. =/"+Q
  6269. EYF%"
  6270. -zI1q
  6271. F    >dJ7
  6272. hYk2?
  6273. $5xc05
  6274. Su!+0
  6275. D]rtz
  6276. O=Lotus Notes
  6277. O=Lotus Notes
  6278. PURSAFO
  6279. |.:#U
  6280. O=Lotus Notes
  6281. CN=Lotus Notes Template Development/O=Lotus Notes
  6282. PURSAFO
  6283. $ImagesWide
  6284. $ImagesHigh
  6285. $ImagesColorize
  6286. $TITLE
  6287. $ImageData
  6288. $ImageNames
  6289. GIF89a
  6290. ?_?__
  6291. `!b`1
  6292. 7`^///?
  6293. ?b___
  6294. `bOOO
  6295. `<b!R
  6296. #J\HQ!
  6297. ]#~8d
  6298. N'}UaF
  6299. K.74{
  6300. HT,Nn
  6301. eS7CW
  6302. Jp<]9hR
  6303. ).Pd    @
  6304. B6CjD
  6305. `;!fU
  6306. hkRuo
  6307. zcA6\
  6308. zuU'.xG
  6309. YI!,y
  6310. Y4qBG
  6311. Ynv$I
  6312. "wA3Ct
  6313. 8FJ1g
  6314. d3hk%y
  6315. Lys6ce$
  6316. >t)R%
  6317. "jpPFs
  6318. GJan^
  6319. mo}{@
  6320. O=Lotus Notes
  6321. O=Lotus Notes
  6322. PURSAFO
  6323. |.:#U
  6324. O=Lotus Notes
  6325. CN=Lotus Notes Template Development/O=Lotus Notes
  6326. PURSAFO
  6327. *9zU2
  6328. $ImagesWide
  6329. $ImagesHigh
  6330. $ImagesColorize
  6331. $ImageData
  6332. $ImageNames
  6333. $TITLE
  6334. (GIF89a
  6335. <a>7`^///""
  6336. #6dhP
  6337. P6=q$)C9
  6338. )"N b
  6339. K g&<.
  6340. Bh}/n
  6341. ;lx-u7
  6342. AQiN+
  6343. 0;y!Wf
  6344. y`6A9
  6345. Lro&B
  6346. S*i `
  6347. Fnl~U
  6348. ,R$R<
  6349. D0od_
  6350. QqI3b
  6351. U!kNP
  6352. @%7F!
  6353. dHGe    
  6354. {L%qH1SG3
  6355. >+2w=7#qg
  6356. {93 $w
  6357. Qa4Ts
  6358. w{uW>
  6359. (sr.0
  6360. tM#E`
  6361. Y~a{t
  6362. "<4J5uR
  6363. !!Fz`R
  6364. ?ZVqv
  6365. D&2xb
  6366. #9}Wd
  6367. T!.`s
  6368. jX'TM
  6369. =BOYo
  6370. U41eB4
  6371. ;2; u
  6372. vrKJ(
  6373. =6Y3'
  6374. A%%L1S\
  6375. A:j^L
  6376. FY6.]=
  6377. c-rrF
  6378. y$l1dM
  6379. J-I)?
  6380. [*"-|
  6381. Q#~**
  6382. =/"+Q
  6383. EYF%"
  6384. -zI1q
  6385. F    >dJ7
  6386. hYk2?
  6387. $5xc05
  6388. Su!+0
  6389. D]rtz
  6390. O=Lotus Notes
  6391. O=Lotus Notes
  6392. PURSAFO
  6393. |.:#U
  6394. O=Lotus Notes
  6395. CN=Lotus Notes Template Development/O=Lotus Notes
  6396. PURSAFO
  6397. $ImagesWide
  6398. $ImagesHigh
  6399. $ImagesColorize
  6400. $TITLE
  6401. $ImageData
  6402. $ImageNames
  6403. GIF89a
  6404. ?_?__
  6405. `!b`1
  6406. 7`^///?
  6407. ?b___
  6408. `bOOO
  6409. `<b!R
  6410. tE]f]gME
  6411. Rqi"&
  6412. d90}o
  6413. *)$5wN%k
  6414. Do4]A
  6415. v1[Q$f
  6416. ]B    i-
  6417. YJkm|
  6418. PunF*
  6419. <a>M|b
  6420. f'CA4
  6421. F?meK
  6422. %w7GwW
  6423. Dzf[K
  6424. \(hyy
  6425. 5_J"i
  6426. 7{`hCpv
  6427. $qp4dQ49
  6428. RM"xW
  6429. StUsH
  6430. ri<V|
  6431. yQSYf
  6432. O=Lotus Notes
  6433. O=Lotus Notes
  6434. PURSAFO
  6435. |.:#U
  6436. O=Lotus Notes
  6437. CN=Lotus Notes Template Development/O=Lotus Notes
  6438. PURSAFO
  6439. $ImagesWide
  6440. $ImagesHigh
  6441. $ImagesColorize
  6442. $ImageData
  6443. $ImageNames
  6444. $TITLE
  6445. (GIF89a
  6446. <a>7`^///""
  6447. #6dhP
  6448. P6=q$)C9
  6449. )"N b
  6450. K g&<.
  6451. Bh}/n
  6452. ;lx-u7
  6453. AQiN+
  6454. 0;y!Wf
  6455. y`6A9
  6456. Lro&B
  6457. S*i `
  6458. Fnl~U
  6459. ,R$R<
  6460. D0od_
  6461. QqI3b
  6462. U!kNP
  6463. @%7F!
  6464. dHGe    
  6465. {L%qH1SG3
  6466. >+2w=7#qg
  6467. {93 $w
  6468. Qa4Ts
  6469. w{uW>
  6470. (sr.0
  6471. tM#E`
  6472. Y~a{t
  6473. "<4J5uR
  6474. !!Fz`R
  6475. ?ZVqv
  6476. D&2xb
  6477. #9}Wd
  6478. T!.`s
  6479. jX'TM
  6480. =BOYo
  6481. U41eB4
  6482. ;2; u
  6483. vrKJ(
  6484. =6Y3'
  6485. A%%L1S\
  6486. A:j^L
  6487. FY6.]=
  6488. c-rrF
  6489. y$l1dM
  6490. J-I)?
  6491. [*"-|
  6492. Q#~**
  6493. =/"+Q
  6494. EYF%"
  6495. -zI1q
  6496. F    >dJ7
  6497. hYk2?
  6498. $5xc05
  6499. Su!+0
  6500. D]rtz
  6501. O=Lotus Notes
  6502. O=Lotus Notes
  6503. PURSAFO
  6504. |.:#U
  6505. O=Lotus Notes
  6506. CN=Lotus Notes Template Development/O=Lotus Notes
  6507. PURSAFO
  6508. $ImagesWide
  6509. $ImagesHigh
  6510. $ImagesColorize
  6511. $TITLE
  6512. $ImageData
  6513. $ImageNames
  6514. (GIF89a
  6515. ?_?__
  6516. `!b`1
  6517. 7`^///?
  6518. ?b___
  6519. `bOOO
  6520. `<b!R
  6521. ~i%U=x
  6522. ~-:w"
  6523. "Ny#q*Fy
  6524. k2h%.
  6525. Pn9+-
  6526. Trjet
  6527. mi9<T
  6528. 0y@|#
  6529. BD2o}
  6530. NNvu3"
  6531. 6"Ql8
  6532. )>uEp
  6533. ~!PI=
  6534. 4y0$L
  6535. 5Q]vd
  6536. LwgMZ
  6537. Z'}Kf
  6538. S;    TM
  6539. (Ux58M
  6540. 0^)p3Z
  6541. tL6pMw
  6542. Q|%6{
  6543. 3YIM<
  6544. PI1/I
  6545. 3*&~B
  6546. TuT(>Z|M
  6547. JdQE_M
  6548. .`%OU
  6549. >Tf./
  6550. y%EHK
  6551. 4"2O1\>
  6552. X\KjR^
  6553. @{qEF
  6554. IN3.vh[
  6555. 45AJ+m
  6556. 75Ufz
  6557. Eb$fl
  6558. nBRF    %
  6559. LSUUg
  6560. &cZ/gh
  6561. 9MrE^
  6562. O=Lotus Notes
  6563. O=Lotus Notes
  6564. PURSAFO
  6565. |.:#U
  6566. O=Lotus Notes
  6567. CN=Lotus Notes Template Development/O=Lotus Notes
  6568. PURSAFO
  6569. $ImagesWide
  6570. $ImagesHigh
  6571. $ImageData
  6572. $ImageNames
  6573. $PublicAccess
  6574. _Forward
  6575. _Edit Document
  6576. Categori_zeK
  6577. _Move To Folder...
  6578. _Remove From Folder...
  6579. New Group Calendar'++LotusScript Development Environment:2:5:(Options):0:66
  6580. '++LotusScript Development Environment:2:5:(Forward):0:1
  6581. Declare Sub Click(Source As Button)
  6582. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6583. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6584. Private Sub BindEvents(Byval Objectname_ As String)
  6585. Static Source As BUTTON
  6586. Set Source = Bind(Objectname_)
  6587. On Event Click From Source Call Click
  6588. End Sub
  6589. '++LotusScript Development Environment:2:2:Click:1:12
  6590. Sub Click(Source As Button)
  6591.     Dim session As New notessession
  6592.     Dim note As New notesdocument(session.currentdatabase)
  6593.     Dim ws As New notesuiworkspace
  6594.     Dim strAction As String
  6595.     Call note.ReplaceItemValue("Form", "(GroupCalendar)")
  6596.     Call DisplayGroupCalendarDlg(note, True)
  6597. End Sub
  6598. act_csnew.GIF|act_CSNEWDOC
  6599. Edit'++LotusScript Development Environment:2:5:(Options):0:66
  6600. '++LotusScript Development Environment:2:5:(Forward):0:1
  6601. Declare Sub Click(Source As Button)
  6602. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6603. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6604. Private Sub BindEvents(Byval Objectname_ As String)
  6605. Static Source As BUTTON
  6606. Set Source = Bind(Objectname_)
  6607. On Event Click From Source Call Click
  6608. End Sub
  6609. '++LotusScript Development Environment:2:2:Click:1:12
  6610. Sub Click(Source As Button)
  6611.     Dim session As New notessession
  6612.     Dim note As notesdocument
  6613.     Dim ws As New notesuiworkspace
  6614.     Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument
  6615.     If (note Is Nothing) Then Exit Sub
  6616.     Call DisplayGroupCalendarDlg(note, False)
  6617. End Sub
  6618. act_EDIT.GIF|act_EDIT?
  6619. Delete 
  6620.     0S0E
  6621. act_DELETE.GIF|act_DELETE?
  6622. _Forward
  6623. _Edit Document
  6624. Categori_zeK
  6625. _Move To Folder...
  6626. _Remove From Folder...
  6627. New Group Calendar'++LotusScript Development Environment:2:5:(Options):0:66
  6628. '++LotusScript Development Environment:2:5:(Forward):0:1
  6629. Declare Sub Click(Source As Button)
  6630. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6631. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6632. Private Sub BindEvents(Byval Objectname_ As String)
  6633. Static Source As BUTTON
  6634. Set Source = Bind(Objectname_)
  6635. On Event Click From Source Call Click
  6636. End Sub
  6637. '++LotusScript Development Environment:2:2:Click:1:12
  6638. Sub Click(Source As Button)
  6639.     Dim session As New notessession
  6640.     Dim note As New notesdocument(session.currentdatabase)
  6641.     Dim ws As New notesuiworkspace
  6642.     Dim strAction As String
  6643.     Call note.ReplaceItemValue("Form", "(GroupCalendar)")
  6644.     Call DisplayGroupCalendarDlg(note, True)
  6645. End Sub
  6646. Edit'++LotusScript Development Environment:2:5:(Options):0:66
  6647. '++LotusScript Development Environment:2:5:(Forward):0:1
  6648. Declare Sub Click(Source As Button)
  6649. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6650. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6651. Private Sub BindEvents(Byval Objectname_ As String)
  6652. Static Source As BUTTON
  6653. Set Source = Bind(Objectname_)
  6654. On Event Click From Source Call Click
  6655. End Sub
  6656. '++LotusScript Development Environment:2:2:Click:1:12
  6657. Sub Click(Source As Button)
  6658.     Dim session As New notessession
  6659.     Dim note As notesdocument
  6660.     Dim ws As New notesuiworkspace
  6661.     Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument
  6662.     If (note Is Nothing) Then Exit Sub
  6663.     Call DisplayGroupCalendarDlg(note, False)
  6664. End Sub
  6665. Delete 
  6666.     0S0E
  6667. Lotus Product
  6668. OBJECT
  6669. Lotus Product
  6670. OBJECT
  6671. '++LotusScript Development Environment:2:5:(Options):0:74
  6672. Option Public
  6673. Option Explicit
  6674. '++LotusScript Development Environment:2:5:(Forward):0:1
  6675. Declare Sub Initialize
  6676. Declare Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  6677. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6678. '++LotusScript Development Environment:2:2:Initialize:1:10
  6679. Sub Initialize
  6680. End Sub
  6681. '++LotusScript Development Environment:2:2:DisplayGroupCalendarDlg:1:8
  6682. Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  6683.     Dim ws As New notesuiworkspace
  6684.     Dim strAction As String
  6685.     Call ws.dialogbox("(GroupCalendarDlg)", True, True, True,,,,"New Group Calendar", note, True, True)
  6686.     strAction = note.GetItemValue("Action")(0)
  6687.     If (strAction = "" Or strAction = "Cancel") Then Exit Sub
  6688.     Call note.save(True, False)
  6689.     If (bPutInFolder) Then Call note.PutInFolder("(GroupCalendarFolder)")
  6690.     Call ws.viewrefresh
  6691.     If (strAction = "ViewNow") Then Call ws.editdocument(True, note)
  6692. End Sub
  6693. Lotus Product
  6694. V0.0O
  6695. O=Lotus Notes
  6696. O=Lotus Notes
  6697. PURSAFO
  6698. |.:#U
  6699. O=Lotus Notes
  6700. CN=Lotus Notes Template Development/O=Lotus Notes
  6701. PURSAFO
  6702. b$0wJ
  6703. $TITLE
  6704. $PublicAccess
  6705. $Name
  6706. $Index
  6707. $Formula
  6708. $FormulaClass
  6709. $VIEWFORMAT
  6710. $Comment
  6711. $WebFlags
  6712. $V5ACTIONS
  6713. $ACTIONS
  6714. $SCRIPTOBJ_6
  6715. $SCRIPTOBJ_7
  6716. $ViewGlobalScript
  6717. $ViewGlobalScript_O
  6718. GroupCalendarCtlCalendarView
  6719. (GroupCalendar)|(GroupCalendar)?
  6720. CalendarView
  6721. O=Lotus Notes
  6722. O=Lotus Notes
  6723. PURSAFO
  6724. |.:#U
  6725. O=Lotus Notes
  6726. CN=Lotus Notes Template Development/O=Lotus Notes
  6727. PURSAFO
  6728. $TITLE
  6729. $Comment
  6730. $PublicAccess
  6731. $FrameSet
  6732. $Flags
  6733. GIF89a,
  6734. ?_?__
  6735. `!b`1
  6736. 7`^///?
  6737. ?b___
  6738. `bOOO
  6739. `<b!R
  6740. D7!-4t8
  6741. zvK"t
  6742. &rQkC
  6743. scrQuX
  6744. q'rP=
  6745. r_vSI
  6746. }QF3jUK    
  6747. TE;PF
  6748. +xVP    t
  6749.     rAz-
  6750. ~uWVS
  6751. +`n#k
  6752. O=Lotus Notes
  6753. O=Lotus Notes
  6754. PURSAFO
  6755. |.:#U
  6756. O=Lotus Notes
  6757. CN=Lotus Notes Template Development/O=Lotus Notes
  6758. PURSAFO
  6759. $ImagesWide
  6760. $ImagesHigh
  6761. $ImageData
  6762. $ImageNames
  6763. $PublicAccess
  6764. GIF89a
  6765. ?_?__
  6766. `!b`1
  6767. 7`^///?
  6768. ?b___
  6769. `bOOO
  6770. `<b!R
  6771. ]GU.Y
  6772. zab4f
  6773. c!Y*BH
  6774. :DTA"
  6775. 6%@5T*
  6776. *Fs&]c
  6777. KqB[5K
  6778. L=oIK%jN
  6779. "%dZey+$[Qv
  6780. ?f'yP
  6781. aS35h
  6782. O=Lotus Notes
  6783. O=Lotus Notes
  6784. PURSAFO
  6785. |.:#U
  6786. O=Lotus Notes
  6787. CN=Lotus Notes Template Development/O=Lotus Notes
  6788. PURSAFO
  6789. J9q0="*d[Y+
  6790. $ImagesWide
  6791. $ImagesHigh
  6792. $ImageData
  6793. $ImageNames
  6794. $TITLE
  6795. (GIF89a
  6796. ?_?__
  6797. `!b`1
  6798. 7`^///?
  6799. ?b___
  6800. `bOOO
  6801. `<b!R
  6802. #6R71"Du
  6803. s6D]U4
  6804. z1l3H
  6805. ^sVrd
  6806. E;Fd/
  6807. +P=Fy
  6808. Tlm{D
  6809. Xl2t+
  6810. 6&hfWJ
  6811. Q&$:!6
  6812. hQE(i
  6813. YZ"I|
  6814. 7/yJ;
  6815. q(miK
  6816. gk/Wc
  6817. .ge*n1y
  6818. &{Zw+
  6819. 1RVE<
  6820. WDF{>
  6821. %mkGD
  6822. )x(%    
  6823. AaS#a
  6824. <40pHHaVw8
  6825. f7v13
  6826. bx)tg4
  6827. Sj*0h
  6828. Hw+ac5#
  6829. +p#su
  6830. OA"WY
  6831. ]1 |-6
  6832. sl!6I
  6833. RCc2 l
  6834. =Z    1"i
  6835. ~,[!FLTT
  6836. 5#;Vl
  6837. /\Xs,H&
  6838. dH9LaJ
  6839. &K\tT
  6840. n,jhr
  6841. L`8-O
  6842. "VRJ_
  6843. Ld8Xo
  6844. xh\JJ,
  6845. OAR'>
  6846. J=!U{0U
  6847. A    ?A9
  6848. s)V#?{3
  6849. &B"$r
  6850. k66oy
  6851. ;hZYf
  6852. fu"    T|_
  6853. @-m4+P
  6854. F/"a1M"
  6855. ,rKKPVa
  6856. =KT%U
  6857. GV=pNXeqt
  6858. Q:R&QU
  6859. J[#    1
  6860. t*\5*
  6861. IY&BK
  6862. Y<)Mmn
  6863. E3D27u
  6864. qgFnCKgJ
  6865. $r'G3R
  6866. ,/kLP
  6867. Df[T{
  6868. dVLdB
  6869. \XKq5L
  6870. b?9LS|
  6871. X`HvNUi~[@
  6872. n"W~Z
  6873.  GP> 
  6874. m6F0}
  6875. TIC^K
  6876. olQV2
  6877. 2NS7b
  6878. !IeaO
  6879. c6gEN
  6880. VcZRz
  6881. C3;UD
  6882. +o$n 
  6883. O=Lotus Notes
  6884. O=Lotus Notes
  6885. PURSAFO
  6886. |.:#U
  6887. O=Lotus Notes
  6888. CN=Lotus Notes Template Development/O=Lotus Notes
  6889. PURSAFO
  6890. $ImagesWide
  6891. $ImagesHigh
  6892. $ImageData
  6893. $ImageNames
  6894. $TITLE
  6895. (GIF89a,
  6896. ?_?__
  6897. `!b`1
  6898. 7`^///?
  6899. ?b___
  6900. `bOOO
  6901. `<b!R
  6902. *.0BUpQ
  6903. !Ogf[&
  6904. 4xgw>
  6905. |p!hBw
  6906. |zTwi
  6907. DV02H}
  6908. CTE],
  6909. $8L7mO
  6910. $F_%9
  6911. l83=vd
  6912. fJvb)4
  6913. ((x$Q`
  6914. j`Et+
  6915. x;Pf;
  6916. hO8#u
  6917. Wq_h{
  6918. Fc~e{
  6919. HdW    Q
  6920. dExWO
  6921. G!Ib>I{;@
  6922. P5u|    D
  6923.     7ya=;
  6924. EV4xJc8
  6925. PsB|T
  6926. *f)LS
  6927. `^w_i
  6928. #u`%5
  6929. ~~k]M
  6930. .&2^+
  6931. JO0]%
  6932. Zewbu
  6933. g/2Wo
  6934. O:*I]
  6935. 9    Fdq
  6936. Z>BKJ}L
  6937. LXIGRSM
  6938. \:0lA
  6939. w29=DE${
  6940. P<I.q,
  6941. jSSb&
  6942. \dyFk!
  6943. J+6Ih
  6944. MeBR^
  6945. 8#\&fz\B
  6946. s2/s3?s
  6947. 4Os5_s6os7
  6948. tB/tC?tDOtE_tFotG
  6949. uR/uS?uTOuU_uVouW
  6950. vb/vc?vdOve_vfovg
  6951. wr/ws?wtOwu_wvoww
  6952. Mail Picker
  6953. MailOutline
  6954. MailOutlineNotesView
  6955. O=Lotus Notes
  6956. O=Lotus Notes
  6957. PURSAFO
  6958. |.:#U
  6959. O=Lotus Notes
  6960. CN=Lotus Notes Template Development/O=Lotus Notes
  6961. PURSAFO
  6962. $Background
  6963. $Info
  6964. $$ScriptName
  6965. $Body
  6966. "Small Fonts
  6967. Mail Switcher
  6968. GIF89a
  6969. ?_?__
  6970. `!b`1
  6971. 7`^///?
  6972. ?b___
  6973. `bOOO
  6974. `<b!R
  6975. P#M;b
  6976. )6)%FD%
  6977. OpenCalendar_1TARGET="_top"
  6978. CalendarFS|CalendarFS
  6979. OpenToDo_1TARGET="_top"
  6980. ToDoFS|ToDoFS
  6981. O=Lotus Notes
  6982. O=Lotus Notes
  6983. PURSAFO
  6984. |.:#U
  6985. O=Lotus Notes
  6986. CN=Lotus Notes Template Development/O=Lotus Notes
  6987. PURSAFO
  6988. $Info
  6989. $$ScriptName
  6990. $Body
  6991. Lotus Product
  6992. Mail Title
  6993. O=Lotus Notes
  6994. O=Lotus Notes
  6995. PURSAFO
  6996. |.:#U
  6997. O=Lotus Notes
  6998. CN=Lotus Notes Template Development/O=Lotus Notes
  6999. PURSAFO
  7000. $Info
  7001. $$Script_O
  7002. $$ScriptName
  7003. $Body
  7004. $View?
  7005. Mail Title
  7006. NotesNavigatorNotesView?
  7007. Mail Picker?
  7008. Switcher
  7009. Mail Switcher?
  7010. NotesViewNotesPreview?
  7011. ($Inbox)
  7012. NotesPreview
  7013. O=Lotus Notes
  7014. O=Lotus Notes
  7015. PURSAFO
  7016. |.:#U
  7017. O=Lotus Notes
  7018. CN=Lotus Notes Template Development/O=Lotus Notes
  7019. PURSAFO
  7020. $TITLE
  7021. $Comment
  7022. $FrameSet
  7023. $Flags
  7024. Inbox
  7025. ($Inbox)
  7026. Drafts
  7027. ($Drafts)?
  7028. ($Sent)?
  7029. All Documents
  7030. ($All)
  7031. Trash Bin
  7032. ($SoftDeletions)
  7033. Discussion Threads
  7034. Discussion Threads|ThreadsH
  7035. Rules
  7036. Rules|Rules?H
  7037. Stationery
  7038. Stationery|Stationery?H
  7039. O=Lotus Notes
  7040. O=Lotus Notes
  7041. PURSAFO
  7042. |.:#U
  7043. O=Lotus Notes
  7044. CN=Lotus Notes Template Development/O=Lotus Notes
  7045. PURSAFO
  7046. k8Y2p
  7047. aYn&6
  7048. $SiteMapList
  7049. (GIF89a
  7050. <a>7`^///""
  7051. #6dhP
  7052. P6=q$)C9
  7053. )"N b
  7054. K g&<.
  7055. Bh}/n
  7056. ;lx-u7
  7057. AQiN+
  7058. 0;y!Wf
  7059. y`6A9
  7060. Lro&B
  7061. S*i `
  7062. Fnl~U
  7063. ,R$R<
  7064. D0od_
  7065. QqI3b
  7066. U!kNP
  7067. @%7F!
  7068. dHGe    
  7069. {L%qH1SG3
  7070. >+2w=7#qg
  7071. {93 $w
  7072. Qa4Ts
  7073. w{uW>
  7074. (sr.0
  7075. tM#E`
  7076. Y~a{t
  7077. "<4J5uR
  7078. !!Fz`R
  7079. ?ZVqv
  7080. D&2xb
  7081. #9}Wd
  7082. T!.`s
  7083. jX'TM
  7084. =BOYo
  7085. U41eB4
  7086. ;2; u
  7087. vrKJ(
  7088. =6Y3'
  7089. A%%L1S\
  7090. A:j^L
  7091. FY6.]=
  7092. c-rrF
  7093. y$l1dM
  7094. J-I)?
  7095. [*"-|
  7096. Q#~**
  7097. =/"+Q
  7098. EYF%"
  7099. -zI1q
  7100. F    >dJ7
  7101. hYk2?
  7102. $5xc05
  7103. Su!+0
  7104. D]rtz
  7105. O=Lotus Notes
  7106. O=Lotus Notes
  7107. PURSAFO
  7108. |.:#U
  7109. O=Lotus Notes
  7110. CN=Lotus Notes Template Development/O=Lotus Notes
  7111. PURSAFO
  7112. 0p\B8g
  7113. $ImagesWide
  7114. $ImagesHigh
  7115. $ImagesColorize
  7116. $TITLE
  7117. $ImageData
  7118. $ImageNames
  7119. ----------------------
  7120.  Forwarded by 
  7121. ForwardedFrom
  7122. ForwardedDate
  7123. ---------------
  7124. --------
  7125. O=Lotus Notes
  7126. O=Lotus Notes
  7127. PURSAFO
  7128. |.:#U
  7129. O=Lotus Notes
  7130. CN=Lotus Notes Template Development/O=Lotus Notes
  7131. PURSAFO
  7132. $TITLE
  7133. $Info
  7134. $Header
  7135. ForwardedDate
  7136. $Body
  7137. VersionOpt|
  7138.     6S7S9S14S
  7139. $VersionOpt
  7140.     0R1S2S3S
  7141. SavedOnce
  7142.     0R1S2S3S
  7143. PostedDate(
  7144.     0R1S2S3S
  7145. DeliveredDate
  7146.     0R1S2S3S
  7147. $AutoEditMode
  7148.     0R1S2S3S
  7149. MailSaveOptions
  7150.     0R1S2S3S
  7151. VersionOpt
  7152.     0R4S
  7153. HeaderRegion
  7154. BodyRegion
  7155. New Memo
  7156. Subject
  7157. Subject
  7158. Subject
  7159.     4S6S12S13S14S15S17S21S23S25S26S28S
  7160. wMemo
  7161. returnreceipt
  7162. wMemoOpen
  7163. Query_string
  7164. forward
  7165. wMemoOpen
  7166.     13R24S
  7167. (Help)
  7168. MAIL_F_MEMO
  7169.     0S0E
  7170. &Arial
  7171. FComic Sans MS
  7172. '++LotusScript Development Environment:2:5:(Options):0:74
  7173. Option Public
  7174. Option Explicit
  7175. Use "CoreEmailClasses"
  7176. '++LotusScript Development Environment:2:5:(Forward):0:1
  7177. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7178. Dim cMemoObject As Variant 
  7179. Lotus ProducthK
  7180. V0.0}
  7181. h,DtJ
  7182. g}Tl#
  7183. K,h,DtJ
  7184. g}Tl#1
  7185. h,DtJ
  7186. g},l#1
  7187. K,h,DtJ
  7188. g}@l#1
  7189. g+8gJ
  7190. g,@u}
  7191. g,puI
  7192. o}\k}Dn#1
  7193. o}TnK
  7194. o}\k}
  7195. o}\k}lk#1
  7196.  Memo'++LotusScript Development Environment:2:5:(Options):0:66
  7197. '++LotusScript Development Environment:2:5:(Forward):0:1
  7198. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  7199. Declare Sub Postmodechange(Source As Notesuidocument)
  7200. Declare Sub Postopen(Source As Notesuidocument)
  7201. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  7202. Declare Sub Postsave(Source As Notesuidocument)
  7203. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7204. Declare Sub Postrecalc(Source As Notesuidocument)
  7205. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  7206. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7207. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7208. Private Sub BindEvents(Byval Objectname_ As String)
  7209.     Static Source As NOTESUIDOCUMENT
  7210.     Set Source = Bind(Objectname_)
  7211.     On Event Querysave From Source Call Querysave
  7212.     On Event Postmodechange From Source Call Postmodechange
  7213.     On Event Postopen From Source Call Postopen
  7214.     On Event Queryopen From Source Call Queryopen
  7215.     On Event Postsave From Source Call Postsave
  7216.     On Event Queryclose From Source Call Queryclose
  7217.     On Event Postrecalc From Source Call Postrecalc
  7218.     On Event Querymodechange From Source Call Querymodechange
  7219. End Sub
  7220. '++LotusScript Development Environment:2:2:Querysave:1:12
  7221. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  7222.     Call cMemoObject.QuerySave(Continue)
  7223. End Sub
  7224. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  7225. Sub Postmodechange(Source As Notesuidocument)
  7226.     Call cMemoObject.PostModeChange()    
  7227. End Sub
  7228. '++LotusScript Development Environment:2:2:Postopen:1:12
  7229. Sub Postopen(Source As Notesuidocument)
  7230.     Call cMemoObject.PostOpen(Source)    
  7231. End Sub
  7232. '++LotusScript Development Environment:2:2:Queryopen:1:12
  7233. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  7234.     Set cMemoObject = New UIMemoDocument         
  7235.     Call cMemoObject.Init(Source,Isnewdoc)  
  7236. End Sub
  7237. '++LotusScript Development Environment:2:2:Postsave:1:12
  7238. Sub Postsave(Source As Notesuidocument)
  7239.     Call cMemoObject.PostSave()
  7240. End Sub
  7241. '++LotusScript Development Environment:2:2:Queryclose:1:12
  7242. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7243.     Call cMemoObject.QueryClose(Continue)
  7244. End Sub
  7245. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  7246. Sub Postrecalc(Source As Notesuidocument)
  7247. End Sub
  7248. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  7249. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  7250.     Continue = cMemoObject.QueryModeChange(Source)
  7251. End Sub
  7252. Lotus Product
  7253. OBJECT
  7254. ]`    N,
  7255.     Always hidden: 
  7256.     0S0E
  7257. NamePreferencez
  7258. NamePreference
  7259. Principal
  7260. CalendarProfile
  7261. Owner
  7262.     1S2S3S7S
  7263. FromPerson memo is from.z
  7264. AltFrom
  7265.     10SAltFrom
  7266. CalendarProfile
  7267. DefaultLogo
  7268. stdNotesLtr0
  7269. CalendarProfile
  7270. DefaultLogo
  7271. StdNotesLtrGateway
  7272.     4S13S24R25S29S32S34S
  7273. Logoz
  7274. Black
  7275. BGTableColor
  7276. Principal
  7277. Principal
  7278. Principal
  7279. NamePreference
  7280. AltFrom
  7281. AltFrom
  7282.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S24RTTTT26RTTT27RTTT
  7283.     0R1S2S8S
  7284.     0R1S2S5S6S8S14S18S
  7285.     0R1S2S5S6S8S14S18S
  7286. SentBy
  7287. X400FreeForm^
  7288.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  7289. SentBy
  7290. FromDomain
  7291. FromDomain
  7292. FromDomain
  7293. FromDomain
  7294.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  7295. FromName
  7296. Principal
  7297. Principal
  7298. Principal
  7299.     0RR1S2S8S9S14S16S20S
  7300. FromStops
  7301.     0R1S2S6S
  7302. FromName
  7303. FromStops
  7304. FromStops
  7305. FromStops
  7306.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  7307. tmpDisplayFrom_Preview
  7308.     0S0E
  7309. Signz
  7310.     0S0E
  7311. Encrypt
  7312. Encrypt
  7313. $KeepPrivate
  7314. $KeepPrivate
  7315. $KeepPrivate
  7316.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  7317.     0S0E
  7318. DefaultMailSaveOptionsz
  7319. DefaultMailSaveOptions
  7320. .,$,  , :
  7321. Path_Info_DEcoded
  7322. Path_Info
  7323. .,$,  , :
  7324. Query_String_Decoded
  7325. Query_String
  7326. PrintingMailGraphic
  7327. $tempfoo
  7328. Importance
  7329. .,$,  , :
  7330. DeliveryReport
  7331. .,$,  , :
  7332. DeliveryPriority
  7333. CalendarProfile
  7334. DefaultMailOpt
  7335. tmpSendOptions
  7336. Send|1Send and Save|2Save as Draft|3z
  7337. {FONT SIZE="2"}
  7338. ReturnReceipt
  7339.     From:
  7340. tmpDisplayFrom_Preview
  7341. tmpDisplayFrom_NoLogo
  7342. tmpDisplayFrom_NoLogo
  7343. NamesList
  7344. NamePreference
  7345. AltSendTo
  7346. AltSendTo
  7347. SendTo
  7348.     11S12S
  7349. ImplodedNamesList
  7350. NamesList
  7351. ImplodedNamesList
  7352. ImplodedNamesList
  7353. ImplodedNamesList
  7354. tmpDisplaySendTo
  7355.     Subject:
  7356. Subject
  7357. Subject
  7358. Subject
  7359.     0S0E
  7360. TmpDisplaySubject_1
  7361. CC_Content
  7362. NamePreference
  7363. AltCopyTo
  7364. AltCopyTo
  7365. CopyTo
  7366.     7S8S9S
  7367. BCC_Content
  7368. DeliveredDate
  7369. BlindCopyTo
  7370.  (bcc: 
  7371. BlindCopyTo
  7372.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  7373. NamesList
  7374. CC_Content
  7375. BCC_Content
  7376.     0R9S10S
  7377. ImplodedNamesList
  7378. NamesList
  7379. ImplodedNamesList
  7380. ImplodedNamesList
  7381. ImplodedNamesList
  7382. tmpDisplayCC
  7383. SendTo
  7384. CopyTo
  7385.   cc:  
  7386. CopyTo
  7387.     1S2S8S13S14S2E17S18S21S22S28S31S
  7388. ISMAILSTATIONERYh
  7389.     0S0E
  7390. tmpDisplayFrom_Preview
  7391. DisplayFrom_Preview
  7392. DisplayFrom_Preview
  7393. $HideMailHeader
  7394. Principal
  7395. Principal
  7396. Principal
  7397. Principal
  7398. Principal
  7399.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  7400.     Sent by: 
  7401. FromDomain
  7402. FromDomain
  7403. FromDomain
  7404. FromDomain
  7405.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  7406. FromName
  7407.     0RR1S2S6S
  7408. FromStops
  7409.     0R1S2S6S
  7410. FromName
  7411. FromStops
  7412. FromStops
  7413. FromStops
  7414.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  7415. tmpDisplaySentBy
  7416. PostedDateh
  7417. PostedDate
  7418.     4S5S10S12S
  7419. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  7420. tmpDisplayDate_Preview
  7421. ReplyDate
  7422. ReplyTo
  7423. $HideMailHeader
  7424.     2S3S4S5S6S7S9S10S14S15R
  7425. Please respond
  7426. ReplyTo
  7427. ReplyTo
  7428. ReplyDate
  7429. ReplyDate
  7430.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  7431. tmpDisplayReplyInfo
  7432. IsMailStationery
  7433.     0S0E
  7434.     Stationery name:
  7435. MAILSTATIONERYNAME
  7436. -Untitled-
  7437. MAILSTATIONERYNAME
  7438.     0S0E
  7439. StationeryNamez
  7440. StationeryName
  7441. <FONT SIZE="2"><B><CENTER>
  7442. tmpDisplayFrom_Preview"
  7443.     0S0E
  7444. <P><CENTER>Sent by:<BR><CENTER>
  7445. tmpDisplaySentBy"
  7446.     0S0E
  7447. <P><CENTER>
  7448. PostedDateh
  7449. PostedDate
  7450. </B><BR>"
  7451.     11S13S
  7452. Please respond
  7453. ReplyTo
  7454. ReplyTo
  7455. ReplyDate
  7456. ReplyDate
  7457.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30S
  7458. $HideMailHeader
  7459. StdNotesLtr16
  7460.     7S9S10S11S13S15S
  7461.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  7462.       </DIV>
  7463. $HideMailHeader
  7464.     0S0E
  7465. NamePreference
  7466. AltSendTo
  7467. AltSendTo
  7468. SendTo
  7469.     5S6S
  7470. EnterSendTo
  7471.     0S0E
  7472. EnterSendTo
  7473. <FONT SIZE="2">   
  7474.     0S0E
  7475. SIZE=50
  7476. SendTo
  7477.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  7478.       </DIV>
  7479. NamePreference
  7480. AltCopyTo
  7481. AltCopyTo
  7482. CopyTo
  7483.     5S6S7S
  7484. EnterCopyTo
  7485.     0S0E
  7486. EnterCopyTo
  7487. CC_Content
  7488. NamePreference
  7489. AltCopyTo
  7490. AltCopyTo
  7491. CopyTo
  7492.     11S12S13S
  7493. BCC_Content
  7494. DeliveredDate
  7495. BlindCopyTo
  7496.  (bcc: 
  7497. BlindCopyTo
  7498.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  7499. CC_Content
  7500. BCC_Content
  7501.     0R3S4S
  7502. tmpEnterCopyTo
  7503. <FONT SIZE="2">   
  7504.     0S0E
  7505. SIZE=50
  7506. CopyTo
  7507.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  7508.     bcc:
  7509.       </DIV>
  7510.     bcc:
  7511. NamePreference
  7512. AltBlindCopyTo
  7513. AltBlindCopyTo
  7514. BlindCopyTo
  7515.     5S6S7S
  7516. EnterBlindCopyTo}
  7517.     0S0E
  7518. EnterBlindCopyTo
  7519. <FONT SIZE="2">   
  7520.     0S0E
  7521. SIZE=50
  7522. BlindCopyTo
  7523.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  7524.     Subject:
  7525.       </DIV>
  7526.     Subject:
  7527.     <BR><FONT COLOR="000000" SIZE="2">
  7528.     Attachment:
  7529.       <DIV ALIGN="right">
  7530. Notes
  7531. <FONT SIZE="2">   
  7532.     0S0E
  7533. SIZE=50
  7534. Subject
  7535. {Font SIZE="2"}
  7536. BGTableColor
  7537. $HideMailHeader
  7538. Moods
  7539. PostedDate
  7540. SenderTag
  7541. Moods
  7542.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  7543. Bodyz
  7544.     Always Hidden: 
  7545.     0S0E
  7546. DueDateTime
  7547. ReplyDate
  7548. ReplyDate
  7549.     0R1S2S3S6S7S9S11S
  7550. Importance
  7551. Importance
  7552. Importance
  7553.     0R1S3S
  7554. DeliveryReport
  7555. DeliveryReport
  7556. DeliveryReport
  7557.     0R1S3S
  7558. DeliveryPriority
  7559. DeliveryPriority
  7560. DeliveryPriority
  7561.     0R1S3S
  7562. UpdateProfileNote
  7563. UpdateProfileNote
  7564. UpdateProfileNote
  7565.     0R1S3S
  7566. ReturnReceipt
  7567. ReturnReceipt
  7568. ReturnReceipt
  7569.     0R1S3S
  7570. $KeepPrivate
  7571. $KeepPrivate
  7572. $KeepPrivate
  7573.     0R1S3S
  7574. ReplyDate
  7575. ReplyDate
  7576. ReplyDate
  7577.     0R1S3S
  7578. ExpireDate
  7579. ExpireDate
  7580. ExpireDate
  7581.     0R1S3S
  7582. ReplyTo
  7583. ReplyTo
  7584. ReplyTo
  7585.     0R1S3S
  7586. MimeFormat
  7587. MimeFormat
  7588. MimeFormat
  7589.     0R1S3S
  7590. SMTPEncoding
  7591. SMTPEncoding
  7592. SMTPEncoding
  7593.     0R1S3S
  7594. UpdateProfileNote
  7595. UpdateProfileNote
  7596. UpdateProfileNote
  7597.     0R1S
  7598. MIMEMailCharset
  7599. MIMEMailCharset
  7600. MIMEMailCharset
  7601.     0R1S
  7602. StripItemsIfDocIsBeingMailed
  7603. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  7604. '++LotusScript Development Environment:2:5:(Forward):0:1
  7605. Declare Sub Click(Source As Button)
  7606. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7607. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7608. Private Sub BindEvents(Byval Objectname_ As String)
  7609.     Static Source As BUTTON
  7610.     Set Source = Bind(Objectname_)
  7611.     On Event Click From Source Call Click
  7612. End Sub
  7613. '++LotusScript Development Environment:2:2:Click:1:12
  7614. Sub Click(Source As Button)
  7615.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  7616.     Call cMemoObject.noteUIMemo.save()
  7617.     Call cMemoObject.noteUIMemo.close()
  7618. End Sub
  7619. IsMailStationery
  7620.     1S2S3S
  7621. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  7622. '++LotusScript Development Environment:2:5:(Forward):0:1
  7623. Declare Sub Click(Source As Button)
  7624. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7625. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7626. Private Sub BindEvents(Byval Objectname_ As String)
  7627.     Static Source As BUTTON
  7628.     Set Source = Bind(Objectname_)
  7629.     On Event Click From Source Call Click
  7630. End Sub
  7631. '++LotusScript Development Environment:2:2:Click:1:12
  7632. Sub Click(Source As Button)
  7633.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  7634.     Call cMemoObject.noteUIMemo.save()
  7635.     Call cMemoObject.noteUIMemo.close()
  7636. End Sub
  7637. PostedDateh
  7638. IsMailStationery
  7639.     7S8S9S10S13S14S15S16S
  7640. Save And File
  7641. '++LotusScript Development Environment:2:5:(Options):0:66
  7642. '++LotusScript Development Environment:2:5:(Forward):0:1
  7643. Declare Sub Click(Source As Button)
  7644. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7645. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7646. Private Sub BindEvents(Byval Objectname_ As String)
  7647.     Static Source As BUTTON
  7648.     Set Source = Bind(Objectname_)
  7649.     On Event Click From Source Call Click
  7650. End Sub
  7651. '++LotusScript Development Environment:2:2:Click:1:12
  7652. Sub Click(Source As Button)
  7653.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  7654.     Call cMemoObject.noteUIMemo.save()
  7655.     Call cMemoObject.noteUIMemo.close()
  7656. End Sub
  7657. PostedDateh
  7658. IsMailStationery
  7659.     7S8S9S10S13S14S15S16S
  7660. Close
  7661. '++LotusScript Development Environment:2:5:(Options):0:66
  7662. '++LotusScript Development Environment:2:5:(Forward):0:1
  7663. Declare Sub Click(Source As Button)
  7664. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7665. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7666. Private Sub BindEvents(Byval Objectname_ As String)
  7667.     Static Source As BUTTON
  7668.     Set Source = Bind(Objectname_)
  7669.     On Event Click From Source Call Click
  7670. End Sub
  7671. '++LotusScript Development Environment:2:2:Click:1:12
  7672. Sub Click(Source As Button)
  7673.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  7674.     Call cMemoObject.noteUIMemo.save()
  7675.     Call cMemoObject.noteUIMemo.close()
  7676. End Sub
  7677. IsMailStationery
  7678.     0S1S2S
  7679. New Memo(
  7680.     0S0E
  7681. act_NEWMEMO.GIF|act_NEWMEMO?
  7682. Reply\ReplyK0
  7683. Reply
  7684.     0S0E
  7685. act_REPLY.GIF|act_REPLY?
  7686. Reply\Reply with History
  7687. Reply with History
  7688. This document is truncated.
  7689.     4S8S10S13S
  7690. Reply with history
  7691. act_REPLY.GIF|act_REPLY?
  7692. Reply\Reply to AllX
  7693. MailStEd
  7694.     0S0E
  7695. Reply
  7696. act_REPLY.GIF|act_REPLY?
  7697. Reply\Reply to All with HistoryK
  7698. MailStEd
  7699.     0S0E
  7700. Reply with History
  7701. This document is truncated.
  7702.     0R4S8S10S13S
  7703. Reply with history
  7704. act_REPLY.GIF|act_REPLY?
  7705. _Forward
  7706. IsMailStationery
  7707.     1S2S
  7708. act_FORWARD.GIF|act_FORWARD?
  7709.     0S1S2S
  7710. act_EDIT.GIF|act_EDIT?
  7711. Delete 
  7712.     0S0E
  7713. act_DELETE.GIF|act_DELETE?
  7714. _Move To Folder...
  7715. act_FOLDER.GIF|act_FOLDER?
  7716. _Remove From Folder...
  7717. Categori_zeK
  7718. SSend
  7719. Send'++LotusScript Development Environment:2:5:(Options):0:66
  7720. '++LotusScript Development Environment:2:5:(Forward):0:1
  7721. Declare Sub Click(Source As Button)
  7722. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7723. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7724. Private Sub BindEvents(Byval Objectname_ As String)
  7725.     Static Source As BUTTON
  7726.     Set Source = Bind(Objectname_)
  7727.     On Event Click From Source Call Click
  7728. End Sub
  7729. '++LotusScript Development Environment:2:2:Click:1:12
  7730. Sub Click(Source As Button)
  7731.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  7732.     Call cMemoObject.noteUIMemo.save()
  7733.     Call cMemoObject.noteUIMemo.close()    
  7734. End Sub
  7735. PostedDateh
  7736. IsMailStationery
  7737.     5S6S7S8S10S11S12S13S
  7738. act_SEND.GIF|act_SEND?
  7739. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  7740. '++LotusScript Development Environment:2:5:(Forward):0:1
  7741. Declare Sub Click(Source As Button)
  7742. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7743. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7744. Private Sub BindEvents(Byval Objectname_ As String)
  7745.     Static Source As BUTTON
  7746.     Set Source = Bind(Objectname_)
  7747.     On Event Click From Source Call Click
  7748. End Sub
  7749. '++LotusScript Development Environment:2:2:Click:1:12
  7750. Sub Click(Source As Button)
  7751.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  7752.     Call cMemoObject.noteUIMemo.save()
  7753.     Call cMemoObject.noteUIMemo.close()    
  7754. End Sub
  7755. PostedDateh
  7756. IsMailStationery
  7757.     5S6S7S8S12S13S
  7758. Send and File
  7759. '++LotusScript Development Environment:2:5:(Options):0:66
  7760. '++LotusScript Development Environment:2:5:(Forward):0:1
  7761. Declare Sub Click(Source As Button)
  7762. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7763. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7764. Private Sub BindEvents(Byval Objectname_ As String)
  7765.     Static Source As BUTTON
  7766.     Set Source = Bind(Objectname_)
  7767.     On Event Click From Source Call Click
  7768. End Sub
  7769. '++LotusScript Development Environment:2:2:Click:1:12
  7770. Sub Click(Source As Button)
  7771.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  7772.     Call cMemoObject.noteUIMemo.save()
  7773.     Call cMemoObject.noteUIMemo.close()    
  7774. End Sub
  7775. PostedDateh
  7776. IsMailStationery
  7777.     5S6S7S8S12S13S
  7778. act_SEND.GIF|act_SEND?
  7779. Save'++LotusScript Development Environment:2:5:(Options):0:66
  7780. '++LotusScript Development Environment:2:5:(Forward):0:1
  7781. Declare Sub Click(Source As Button)
  7782. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7783. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7784. Private Sub BindEvents(Byval Objectname_ As String)
  7785.     Static Source As BUTTON
  7786.     Set Source = Bind(Objectname_)
  7787.     On Event Click From Source Call Click
  7788. End Sub
  7789. '++LotusScript Development Environment:2:2:Click:1:12
  7790. Sub Click(Source As Button)
  7791.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  7792.     Call cMemoObject.noteUIMemo.save()
  7793.     Call cMemoObject.noteUIMemo.close()
  7794. End Sub
  7795. IsMailStationery
  7796.     2S3S
  7797. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  7798. Save As Draft
  7799. '++LotusScript Development Environment:2:5:(Options):0:66
  7800. '++LotusScript Development Environment:2:5:(Forward):0:1
  7801. Declare Sub Click(Source As Button)
  7802. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7803. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7804. Private Sub BindEvents(Byval Objectname_ As String)
  7805.     Static Source As BUTTON
  7806.     Set Source = Bind(Objectname_)
  7807.     On Event Click From Source Call Click
  7808. End Sub
  7809. '++LotusScript Development Environment:2:2:Click:1:12
  7810. Sub Click(Source As Button)
  7811.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  7812.     Call cMemoObject.noteUIMemo.save()
  7813.     Call cMemoObject.noteUIMemo.close()
  7814. End Sub
  7815. PostedDateh
  7816. IsMailStationery
  7817.     5S6S7S8S10S11S12S13S
  7818. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  7819. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  7820. '++LotusScript Development Environment:2:5:(Forward):0:1
  7821. Declare Sub Click(Source As Button)
  7822. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7823. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7824. Private Sub BindEvents(Byval Objectname_ As String)
  7825.     Static Source As BUTTON
  7826.     Set Source = Bind(Objectname_)
  7827.     On Event Click From Source Call Click
  7828. End Sub
  7829. '++LotusScript Development Environment:2:2:Click:1:12
  7830. Sub Click(Source As Button)
  7831.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  7832.     Call cMemoObject.noteUIMemo.save()
  7833.     Call cMemoObject.noteUIMemo.close()
  7834. End Sub
  7835. IsMailStationery
  7836.     1S2S
  7837. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  7838. '++LotusScript Development Environment:2:5:(Forward):0:1
  7839. Declare Sub Click(Source As Button)
  7840. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7841. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7842. Private Sub BindEvents(Byval Objectname_ As String)
  7843.     Static Source As BUTTON
  7844.     Set Source = Bind(Objectname_)
  7845.     On Event Click From Source Call Click
  7846. End Sub
  7847. '++LotusScript Development Environment:2:2:Click:1:12
  7848. Sub Click(Source As Button)
  7849.     Call cMemoObject.ReplyToAll()
  7850. End Sub
  7851. PostedDateh
  7852. IsMailStationery
  7853.     5S6S7S8S10S11S12S13S
  7854. act_REPLY.GIF|act_REPLY?
  7855. Rename Stationery
  7856. xxTitle
  7857. Rename Stationery
  7858.     0S0E
  7859. xxPrompt
  7860. Please enter new stationery name.
  7861. MailStationeryName
  7862. xxTitle
  7863. xxPrompt
  7864. MailStationeryName
  7865.     0R1S
  7866.     0RS>
  7867. IsMailStationery
  7868.     2S3S4S5S
  7869. act_RENAME.GIF|act_RENAME?
  7870. Address...T
  7871. EnterSendTo
  7872. EnterCopyTo
  7873. EnterBlindCopyTo
  7874.     0S0E
  7875. PostedDateh
  7876. IsMailStationery
  7877.     5S6S7S8S10S11S12S13S
  7878. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  7879. Delivery Options...K~
  7880. DeliveryOptions
  7881. Delivery Options
  7882.     0R4S10S
  7883. PostedDateh
  7884.     5S6S7S8S
  7885. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  7886. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  7887. Use "CommonUI"
  7888. '++LotusScript Development Environment:2:5:(Forward):0:1
  7889. Declare Sub Click(Source As Button)
  7890. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7891. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7892. Private Sub BindEvents(Byval Objectname_ As String)
  7893. Static Source As BUTTON
  7894. Set Source = Bind(Objectname_)
  7895. On Event Click From Source Call Click
  7896. End Sub
  7897. '++LotusScript Development Environment:2:2:Click:1:12
  7898. Sub Click(Source As Button)
  7899.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  7900. End Sub
  7901. act_COPYINTO.GIF|act_COPYINTO?
  7902. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  7903. Use "CommonUI"
  7904. '++LotusScript Development Environment:2:5:(Forward):0:1
  7905. Declare Sub Click(Source As Button)
  7906. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7907. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7908. Private Sub BindEvents(Byval Objectname_ As String)
  7909. Static Source As BUTTON
  7910. Set Source = Bind(Objectname_)
  7911. On Event Click From Source Call Click
  7912. End Sub
  7913. '++LotusScript Development Environment:2:2:Click:1:12
  7914. Sub Click(Source As Button)
  7915.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  7916. End Sub
  7917. act_COPYINTO.GIF|act_COPYINTO?
  7918. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  7919. Use "CommonUI"
  7920. '++LotusScript Development Environment:2:5:(Forward):0:1
  7921. Declare Sub Click(Source As Button)
  7922. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7923. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7924. Private Sub BindEvents(Byval Objectname_ As String)
  7925.     Static Source As BUTTON
  7926.     Set Source = Bind(Objectname_)
  7927.     On Event Click From Source Call Click
  7928. End Sub
  7929. '++LotusScript Development Environment:2:2:Click:1:12
  7930. Sub Click(Source As Button)
  7931.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  7932. End Sub
  7933. act_COPYINTO.GIF|act_COPYINTO?
  7934. Tools\Preferences...2
  7935. (Preferences)
  7936.     0S0E
  7937. act_TOOLS.GIF|act_TOOLS?
  7938. Tools\Delivery Information...
  7939. xxTitle
  7940. Delivery Information
  7941.     0S0E
  7942. DeliveryInfo
  7943. xxTitle
  7944.     0RR4S5S6S7S8S9S10S11S12S14S
  7945. act_TOOLS.GIF|act_TOOLS?
  7946. Tools\Out of Office...8
  7947. (EditOfficeProfile)
  7948.     0S0E
  7949. act_TOOLS.GIF|act_TOOLS?
  7950. Tools\Add Sender to Address Book<
  7951. (AddSenderToAddressBook)
  7952.     0S0E
  7953. act_TOOLS.GIF|act_TOOLS?
  7954. Tools\New Memo - Using Stationery
  7955. '++LotusScript Development Environment:2:5:(Options):0:66
  7956. '++LotusScript Development Environment:2:5:(Forward):0:1
  7957. Declare Sub Click(Source As Button)
  7958. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7959. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7960. Private Sub BindEvents(Byval Objectname_ As String)
  7961.     Static Source As BUTTON
  7962.     Set Source = Bind(Objectname_)
  7963.     On Event Click From Source Call Click
  7964. End Sub
  7965. '++LotusScript Development Environment:2:2:Click:1:12
  7966. Sub Click(Source As Button)
  7967.     Dim session As New notessession
  7968.     Dim uiws As New notesuiworkspace
  7969.     Dim collection As notesdocumentcollection
  7970.     Dim noteUIEditDocument As notesuidocument
  7971.     Dim database As NotesDatabase
  7972.     Set noteCursorDoc = session.currentdatabase.createdocument
  7973.     Set database = session.currentdatabase
  7974.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  7975.     Set noteCursorDoc = collection.getfirstdocument
  7976.     If Not noteCursorDoc Is Nothing Then
  7977.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  7978.     End If
  7979. End Sub
  7980. act_TOOLS.GIF|act_TOOLS?
  7981. Tools\Insert Signature...
  7982. '++LotusScript Development Environment:2:5:(Options):0:66
  7983. '++LotusScript Development Environment:2:5:(Forward):0:1
  7984. Declare Sub Click(Source As Button)
  7985. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7986. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7987. Private Sub BindEvents(Byval Objectname_ As String)
  7988.     Static Source As BUTTON
  7989.     Set Source = Bind(Objectname_)
  7990.     On Event Click From Source Call Click
  7991. End Sub
  7992. '++LotusScript Development Environment:2:2:Click:1:12
  7993. Sub Click(Source As Button)
  7994.     Call cMemoObject.InsertSignature(False)
  7995. End Sub
  7996. PostedDateh
  7997.     5S6S7S8S
  7998. act_TOOLS.GIF|act_TOOLS?
  7999. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  8000. '++LotusScript Development Environment:2:5:(Forward):0:1
  8001. Declare Sub Click(Source As Button)
  8002. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8003. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8004. Private Sub BindEvents(Byval Objectname_ As String)
  8005.     Static Source As BUTTON
  8006.     Set Source = Bind(Objectname_)
  8007.     On Event Click From Source Call Click
  8008. End Sub
  8009. '++LotusScript Development Environment:2:2:Click:1:12
  8010. Sub Click(Source As Button)
  8011.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  8012.     Call cMemoObject.noteUIMemo.save()
  8013.     Call cMemoObject.noteUIMemo.close()
  8014. End Sub
  8015. PostedDateh
  8016. IsMailStationery
  8017.     5S6S7S8S10S11S12S13S
  8018. act_TOOLS.GIF|act_TOOLS?
  8019. New Memo(
  8020.     0S0E
  8021. act_NEW.GIF|act_NEW?
  8022. ForwardK
  8023.     1S10S14S16S23S
  8024. path"
  8025. /Memo?OpenForm&UNID="
  8026. &forward"
  8027. act_FORWARD.GIF|act_FORWARD?
  8028. Reply...\Reply*
  8029. Reply
  8030.     0S0E
  8031. act_REPLY.GIF|act_REPLY?
  8032. Send...\Send`
  8033. tmpSendOptions
  8034. act_SEND.GIF|act_SEND?
  8035. Send...\Send and Save
  8036. tmpSendOptions
  8037. act_SEND.GIF|act_SEND?
  8038. Send...\Save as Draft
  8039. act_SEND.GIF|act_SEND?
  8040. alert('Feature in Progress')
  8041. Reply...\Reply with HistoryK
  8042. act_REPLY.GIF|act_REPLY?
  8043. alert('Feature in Progress')
  8044. Address...
  8045. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  8046. var pathname = (window.location.pathname);
  8047. if (navigator.appName =='Netscape') {
  8048. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  8049.     } else {
  8050. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  8051. Delivery Options...K
  8052. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  8053. var pathname = (window.location.pathname);
  8054. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  8055. Edit 
  8056.     0S0E
  8057. act_EDIT.GIF|act_EDIT?
  8058. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  8059. '++LotusScript Development Environment:2:5:(Forward):0:1
  8060. Declare Sub Click(Source As Button)
  8061. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8062. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8063. Private Sub BindEvents(Byval Objectname_ As String)
  8064.     Static Source As BUTTON
  8065.     Set Source = Bind(Objectname_)
  8066.     On Event Click From Source Call Click
  8067. End Sub
  8068. '++LotusScript Development Environment:2:2:Click:1:12
  8069. Sub Click(Source As Button)
  8070.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  8071.     Call cMemoObject.noteUIMemo.save()
  8072.     Call cMemoObject.noteUIMemo.close()
  8073. End Sub
  8074. IsMailStationery
  8075.     1S2S3S
  8076. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  8077. '++LotusScript Development Environment:2:5:(Forward):0:1
  8078. Declare Sub Click(Source As Button)
  8079. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8080. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8081. Private Sub BindEvents(Byval Objectname_ As String)
  8082.     Static Source As BUTTON
  8083.     Set Source = Bind(Objectname_)
  8084.     On Event Click From Source Call Click
  8085. End Sub
  8086. '++LotusScript Development Environment:2:2:Click:1:12
  8087. Sub Click(Source As Button)
  8088.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  8089.     Call cMemoObject.noteUIMemo.save()
  8090.     Call cMemoObject.noteUIMemo.close()
  8091. End Sub
  8092. PostedDateh
  8093. IsMailStationery
  8094.     7S8S9S10S13S14S15S16S
  8095. Save And File
  8096. '++LotusScript Development Environment:2:5:(Options):0:66
  8097. '++LotusScript Development Environment:2:5:(Forward):0:1
  8098. Declare Sub Click(Source As Button)
  8099. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8100. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8101. Private Sub BindEvents(Byval Objectname_ As String)
  8102.     Static Source As BUTTON
  8103.     Set Source = Bind(Objectname_)
  8104.     On Event Click From Source Call Click
  8105. End Sub
  8106. '++LotusScript Development Environment:2:2:Click:1:12
  8107. Sub Click(Source As Button)
  8108.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  8109.     Call cMemoObject.noteUIMemo.save()
  8110.     Call cMemoObject.noteUIMemo.close()
  8111. End Sub
  8112. PostedDateh
  8113. IsMailStationery
  8114.     7S8S9S10S13S14S15S16S
  8115. Close
  8116. '++LotusScript Development Environment:2:5:(Options):0:66
  8117. '++LotusScript Development Environment:2:5:(Forward):0:1
  8118. Declare Sub Click(Source As Button)
  8119. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8120. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8121. Private Sub BindEvents(Byval Objectname_ As String)
  8122.     Static Source As BUTTON
  8123.     Set Source = Bind(Objectname_)
  8124.     On Event Click From Source Call Click
  8125. End Sub
  8126. '++LotusScript Development Environment:2:2:Click:1:12
  8127. Sub Click(Source As Button)
  8128.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  8129.     Call cMemoObject.noteUIMemo.save()
  8130.     Call cMemoObject.noteUIMemo.close()
  8131. End Sub
  8132. IsMailStationery
  8133.     0S1S2S
  8134. New Memo(
  8135.     0S0E
  8136. Reply\ReplyK0
  8137. Reply
  8138.     0S0E
  8139. Reply\Reply with History
  8140. Reply with History
  8141. This document is truncated.
  8142.     4S8S10S13S
  8143. Reply with history
  8144. Reply\Reply to AllX
  8145. MailStEd
  8146.     0S0E
  8147. Reply
  8148. Reply\Reply to All with HistoryK
  8149. MailStEd
  8150.     0S0E
  8151. Reply with History
  8152. This document is truncated.
  8153.     0R4S8S10S13S
  8154. Reply with history
  8155. _Forward
  8156. IsMailStationery
  8157.     1S2S
  8158.     0S1S2S
  8159. Delete 
  8160.     0S0E
  8161. _Move To Folder...
  8162. _Remove From Folder...
  8163. Categori_zeK
  8164. SSend
  8165. Send'++LotusScript Development Environment:2:5:(Options):0:66
  8166. '++LotusScript Development Environment:2:5:(Forward):0:1
  8167. Declare Sub Click(Source As Button)
  8168. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8169. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8170. Private Sub BindEvents(Byval Objectname_ As String)
  8171.     Static Source As BUTTON
  8172.     Set Source = Bind(Objectname_)
  8173.     On Event Click From Source Call Click
  8174. End Sub
  8175. '++LotusScript Development Environment:2:2:Click:1:12
  8176. Sub Click(Source As Button)
  8177.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  8178.     Call cMemoObject.noteUIMemo.save()
  8179.     Call cMemoObject.noteUIMemo.close()    
  8180. End Sub
  8181. PostedDateh
  8182. IsMailStationery
  8183.     5S6S7S8S10S11S12S13S
  8184. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  8185. '++LotusScript Development Environment:2:5:(Forward):0:1
  8186. Declare Sub Click(Source As Button)
  8187. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8188. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8189. Private Sub BindEvents(Byval Objectname_ As String)
  8190.     Static Source As BUTTON
  8191.     Set Source = Bind(Objectname_)
  8192.     On Event Click From Source Call Click
  8193. End Sub
  8194. '++LotusScript Development Environment:2:2:Click:1:12
  8195. Sub Click(Source As Button)
  8196.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  8197.     Call cMemoObject.noteUIMemo.save()
  8198.     Call cMemoObject.noteUIMemo.close()    
  8199. End Sub
  8200. PostedDateh
  8201. IsMailStationery
  8202.     5S6S7S8S12S13S
  8203. Send and File
  8204. '++LotusScript Development Environment:2:5:(Options):0:66
  8205. '++LotusScript Development Environment:2:5:(Forward):0:1
  8206. Declare Sub Click(Source As Button)
  8207. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8208. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8209. Private Sub BindEvents(Byval Objectname_ As String)
  8210.     Static Source As BUTTON
  8211.     Set Source = Bind(Objectname_)
  8212.     On Event Click From Source Call Click
  8213. End Sub
  8214. '++LotusScript Development Environment:2:2:Click:1:12
  8215. Sub Click(Source As Button)
  8216.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  8217.     Call cMemoObject.noteUIMemo.save()
  8218.     Call cMemoObject.noteUIMemo.close()    
  8219. End Sub
  8220. PostedDateh
  8221. IsMailStationery
  8222.     5S6S7S8S12S13S
  8223. Save'++LotusScript Development Environment:2:5:(Options):0:66
  8224. '++LotusScript Development Environment:2:5:(Forward):0:1
  8225. Declare Sub Click(Source As Button)
  8226. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8227. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8228. Private Sub BindEvents(Byval Objectname_ As String)
  8229.     Static Source As BUTTON
  8230.     Set Source = Bind(Objectname_)
  8231.     On Event Click From Source Call Click
  8232. End Sub
  8233. '++LotusScript Development Environment:2:2:Click:1:12
  8234. Sub Click(Source As Button)
  8235.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  8236.     Call cMemoObject.noteUIMemo.save()
  8237.     Call cMemoObject.noteUIMemo.close()
  8238. End Sub
  8239. IsMailStationery
  8240.     2S3S
  8241. Save As Draft
  8242. '++LotusScript Development Environment:2:5:(Options):0:66
  8243. '++LotusScript Development Environment:2:5:(Forward):0:1
  8244. Declare Sub Click(Source As Button)
  8245. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8246. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8247. Private Sub BindEvents(Byval Objectname_ As String)
  8248.     Static Source As BUTTON
  8249.     Set Source = Bind(Objectname_)
  8250.     On Event Click From Source Call Click
  8251. End Sub
  8252. '++LotusScript Development Environment:2:2:Click:1:12
  8253. Sub Click(Source As Button)
  8254.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  8255.     Call cMemoObject.noteUIMemo.save()
  8256.     Call cMemoObject.noteUIMemo.close()
  8257. End Sub
  8258. PostedDateh
  8259. IsMailStationery
  8260.     5S6S7S8S10S11S12S13S
  8261. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  8262. '++LotusScript Development Environment:2:5:(Forward):0:1
  8263. Declare Sub Click(Source As Button)
  8264. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8265. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8266. Private Sub BindEvents(Byval Objectname_ As String)
  8267.     Static Source As BUTTON
  8268.     Set Source = Bind(Objectname_)
  8269.     On Event Click From Source Call Click
  8270. End Sub
  8271. '++LotusScript Development Environment:2:2:Click:1:12
  8272. Sub Click(Source As Button)
  8273.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  8274.     Call cMemoObject.noteUIMemo.save()
  8275.     Call cMemoObject.noteUIMemo.close()
  8276. End Sub
  8277. IsMailStationery
  8278.     1S2S
  8279. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  8280. '++LotusScript Development Environment:2:5:(Forward):0:1
  8281. Declare Sub Click(Source As Button)
  8282. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8283. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8284. Private Sub BindEvents(Byval Objectname_ As String)
  8285.     Static Source As BUTTON
  8286.     Set Source = Bind(Objectname_)
  8287.     On Event Click From Source Call Click
  8288. End Sub
  8289. '++LotusScript Development Environment:2:2:Click:1:12
  8290. Sub Click(Source As Button)
  8291.     Call cMemoObject.ReplyToAll()
  8292. End Sub
  8293. PostedDateh
  8294. IsMailStationery
  8295.     5S6S7S8S10S11S12S13S
  8296. Rename Stationery
  8297. xxTitle
  8298. Rename Stationery
  8299.     0S0E
  8300. xxPrompt
  8301. Please enter new stationery name.
  8302. MailStationeryName
  8303. xxTitle
  8304. xxPrompt
  8305. MailStationeryName
  8306.     0R1S
  8307.     0RS>
  8308. IsMailStationery
  8309.     2S3S4S5S
  8310. Address...T
  8311. EnterSendTo
  8312. EnterCopyTo
  8313. EnterBlindCopyTo
  8314.     0S0E
  8315. PostedDateh
  8316. IsMailStationery
  8317.     5S6S7S8S10S11S12S13S
  8318. Delivery Options...K~
  8319. DeliveryOptions
  8320. Delivery Options
  8321.     0R4S10S
  8322. PostedDateh
  8323.     5S6S7S8S
  8324. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  8325. Use "CommonUI"
  8326. '++LotusScript Development Environment:2:5:(Forward):0:1
  8327. Declare Sub Click(Source As Button)
  8328. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8329. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8330. Private Sub BindEvents(Byval Objectname_ As String)
  8331. Static Source As BUTTON
  8332. Set Source = Bind(Objectname_)
  8333. On Event Click From Source Call Click
  8334. End Sub
  8335. '++LotusScript Development Environment:2:2:Click:1:12
  8336. Sub Click(Source As Button)
  8337.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  8338. End Sub
  8339. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  8340. Use "CommonUI"
  8341. '++LotusScript Development Environment:2:5:(Forward):0:1
  8342. Declare Sub Click(Source As Button)
  8343. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8344. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8345. Private Sub BindEvents(Byval Objectname_ As String)
  8346. Static Source As BUTTON
  8347. Set Source = Bind(Objectname_)
  8348. On Event Click From Source Call Click
  8349. End Sub
  8350. '++LotusScript Development Environment:2:2:Click:1:12
  8351. Sub Click(Source As Button)
  8352.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  8353. End Sub
  8354. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  8355. Use "CommonUI"
  8356. '++LotusScript Development Environment:2:5:(Forward):0:1
  8357. Declare Sub Click(Source As Button)
  8358. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8359. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8360. Private Sub BindEvents(Byval Objectname_ As String)
  8361.     Static Source As BUTTON
  8362.     Set Source = Bind(Objectname_)
  8363.     On Event Click From Source Call Click
  8364. End Sub
  8365. '++LotusScript Development Environment:2:2:Click:1:12
  8366. Sub Click(Source As Button)
  8367.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  8368. End Sub
  8369. Tools\Preferences...2
  8370. (Preferences)
  8371.     0S0E
  8372. Tools\Delivery Information...
  8373. xxTitle
  8374. Delivery Information
  8375.     0S0E
  8376. DeliveryInfo
  8377. xxTitle
  8378.     0RR4S5S6S7S8S9S10S11S12S14S
  8379. Tools\Out of Office...8
  8380. (EditOfficeProfile)
  8381.     0S0E
  8382. Tools\Add Sender to Address Book<
  8383. (AddSenderToAddressBook)
  8384.     0S0E
  8385. Tools\New Memo - Using Stationery
  8386. '++LotusScript Development Environment:2:5:(Options):0:66
  8387. '++LotusScript Development Environment:2:5:(Forward):0:1
  8388. Declare Sub Click(Source As Button)
  8389. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8390. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8391. Private Sub BindEvents(Byval Objectname_ As String)
  8392.     Static Source As BUTTON
  8393.     Set Source = Bind(Objectname_)
  8394.     On Event Click From Source Call Click
  8395. End Sub
  8396. '++LotusScript Development Environment:2:2:Click:1:12
  8397. Sub Click(Source As Button)
  8398.     Dim session As New notessession
  8399.     Dim uiws As New notesuiworkspace
  8400.     Dim collection As notesdocumentcollection
  8401.     Dim noteUIEditDocument As notesuidocument
  8402.     Dim database As NotesDatabase
  8403.     Set noteCursorDoc = session.currentdatabase.createdocument
  8404.     Set database = session.currentdatabase
  8405.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  8406.     Set noteCursorDoc = collection.getfirstdocument
  8407.     If Not noteCursorDoc Is Nothing Then
  8408.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  8409.     End If
  8410. End Sub
  8411. Tools\Insert Signature...
  8412. '++LotusScript Development Environment:2:5:(Options):0:66
  8413. '++LotusScript Development Environment:2:5:(Forward):0:1
  8414. Declare Sub Click(Source As Button)
  8415. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8416. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8417. Private Sub BindEvents(Byval Objectname_ As String)
  8418.     Static Source As BUTTON
  8419.     Set Source = Bind(Objectname_)
  8420.     On Event Click From Source Call Click
  8421. End Sub
  8422. '++LotusScript Development Environment:2:2:Click:1:12
  8423. Sub Click(Source As Button)
  8424.     Call cMemoObject.InsertSignature(False)
  8425. End Sub
  8426. PostedDateh
  8427.     5S6S7S8S
  8428. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  8429. '++LotusScript Development Environment:2:5:(Forward):0:1
  8430. Declare Sub Click(Source As Button)
  8431. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8432. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8433. Private Sub BindEvents(Byval Objectname_ As String)
  8434.     Static Source As BUTTON
  8435.     Set Source = Bind(Objectname_)
  8436.     On Event Click From Source Call Click
  8437. End Sub
  8438. '++LotusScript Development Environment:2:2:Click:1:12
  8439. Sub Click(Source As Button)
  8440.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  8441.     Call cMemoObject.noteUIMemo.save()
  8442.     Call cMemoObject.noteUIMemo.close()
  8443. End Sub
  8444. PostedDateh
  8445. IsMailStationery
  8446.     5S6S7S8S10S11S12S13S
  8447. New Memo(
  8448.     0S0E
  8449. ForwardK
  8450.     1S10S14S16S23S
  8451. path"
  8452. /Memo?OpenForm&UNID="
  8453. &forward"
  8454. Reply...\Reply*
  8455. Reply
  8456.     0S0E
  8457. Send...\Send`
  8458. tmpSendOptions
  8459. Send...\Send and Save
  8460. tmpSendOptions
  8461. Edit 
  8462.     0S0E
  8463. Lotus Product
  8464. OBJECT
  8465. Lotus Product
  8466. ]V0.0
  8467. }D    ^\
  8468. Lotus Product
  8469. OBJECT
  8470. Lotus Product
  8471. ]V0.0
  8472. }D    ^\
  8473. Lotus Product
  8474. Lotus Product
  8475. ~V0.00
  8476. ~,    #8
  8477. Lotus ProducthK
  8478. V0.0}
  8479. h,DtJ
  8480. g}Tl#
  8481. K,h,DtJ
  8482. g}Tl#1
  8483. h,DtJ
  8484. g},l#1
  8485. K,h,DtJ
  8486. g}@l#1
  8487. g+8gJ
  8488. g,@u}
  8489. g,puI
  8490. o}\k}Dn#1
  8491. o}TnK
  8492. o}\k}
  8493. o}\k}lk#1
  8494. Lotus Product
  8495. ]V0.0
  8496. }D    ^\
  8497. Lotus Product
  8498. ]V0.0
  8499. }D    ^\
  8500. Lotus Product
  8501. Lotus Product
  8502. Lotus Product
  8503. OBJECT
  8504. Lotus Product
  8505. OBJECT
  8506. Lotus Product
  8507. OBJECT
  8508. Lotus Product
  8509. OBJECT
  8510. Lotus ProducthK
  8511. V0.0}
  8512. h,DtJ
  8513. g}Tl#
  8514. K,h,DtJ
  8515. g}Tl#1
  8516. h,DtJ
  8517. g},l#1
  8518. K,h,DtJ
  8519. g}@l#1
  8520. g+8gJ
  8521. g,@u}
  8522. g,puI
  8523. o}\k}Dn#1
  8524. o}TnK
  8525. o}\k}
  8526. o}\k}lk#1
  8527. Lotus Product
  8528. ]V0.0
  8529. }D    ^\
  8530. O=Lotus Notes
  8531. O=Lotus Notes
  8532. PURSAFO
  8533. |.:#U
  8534. O=Lotus Notes
  8535. CN=Lotus Notes Template Development/O=Lotus Notes
  8536. PURSAFO
  8537. "x+X_
  8538. R>E|cE
  8539. [}("b
  8540. $$FormPostOpenAction
  8541. $TypeIcon
  8542. ExpireDate
  8543. ReplyDate
  8544. ComposedDate
  8545. $HTMLDocumentStyles
  8546. $HeaderArea
  8547. $RegionFrameset
  8548. $NoBackgroundOverride
  8549. $Info
  8550. $WINDOWTITLE
  8551. $WEBQuerySave
  8552. $WEBQueryOpen
  8553. $AppHelpFormula
  8554. $WebFlags
  8555. $Script
  8556. $$Script_O
  8557. $$ScriptName
  8558. $$FormScript
  8559. $$$FormScript_O
  8560. $Body
  8561. $V5ACTIONS
  8562. $ACTIONS
  8563. $SCRIPTOBJ_0
  8564. $SCRIPTOBJ_1
  8565. $SCRIPTOBJ_2
  8566. $SCRIPTOBJ_3
  8567. $SCRIPTOBJ_16
  8568. $SCRIPTOBJ_17
  8569. $SCRIPTOBJ_18
  8570. $SCRIPTOBJ_19
  8571. $SCRIPTOBJ_20
  8572. $SCRIPTOBJ_21
  8573. $SCRIPTOBJ_22
  8574. $SCRIPTOBJ_26
  8575. $SCRIPTOBJ_27
  8576. $SCRIPTOBJ_28
  8577. $SCRIPTOBJ_33
  8578. $SCRIPTOBJ_34
  8579. $SCRIPTOBJ_35
  8580. (GIF89a
  8581. ?_?__
  8582. `!b`1
  8583. 7`^///?
  8584. ?b___
  8585. `bOOO
  8586. `<b!R
  8587. _ivGa[E
  8588. nWZy%
  8589. m4iiev
  8590. G8&    Q}
  8591. $'<6+r
  8592. V1=Q{
  8593. VU;Ep
  8594. [J-jb
  8595. "13-E
  8596. +    LeJ
  8597. !~ei    Efa
  8598. T9*B]wfUAF-C
  8599. \IT=G2S
  8600.     d9A4k
  8601. CZ\48
  8602. 1|,G%
  8603. H/"PV
  8604. ]u4rQ1
  8605. UrKbH
  8606. RT |">
  8607. x}erqU6
  8608. gY?<Yr
  8609. bXles{c
  8610. sn~4X
  8611. 8ch4]
  8612. }A?Cj
  8613. gRpwcs
  8614. Dbrmc
  8615. <80u-
  8616. \MY8"
  8617. \'ggIqZ
  8618. K)SF;h9
  8619. r%}0m
  8620. /*?>W
  8621. ~R8N+
  8622. xpE==
  8623. uv{KV
  8624. f)@b`
  8625. nhEr9
  8626. -Jn~ 
  8627. :YuJ^o
  8628. pC'jA
  8629. a/'!'a
  8630. X,M9"
  8631. C;Et[
  8632. b&FQ(L
  8633. 3#<*]
  8634. >PR:X
  8635. deF    x>(-
  8636. ex-=G
  8637. _ydY(
  8638. =ztN 
  8639. <Gp(e
  8640. b"WcAEa
  8641. }[0eE=r
  8642. wMkxhy
  8643. z$B$:O
  8644. JWD&L,]pe*Q
  8645. l'.{[C69
  8646. T.*[@
  8647. [4iIl
  8648. 9]5`m
  8649. Lk[s^
  8650. ~}Ot4
  8651. O=Lotus Notes
  8652. O=Lotus Notes
  8653. PURSAFO
  8654. |.:#U
  8655. O=Lotus Notes
  8656. CN=Lotus Notes Template Development/O=Lotus Notes
  8657. PURSAFO
  8658. $ImagesWide
  8659. $ImagesHigh
  8660. $ImagesColorize
  8661. $ImageData
  8662. $ImageNames
  8663. $TITLE
  8664. '++LotusScript Development Environment:2:5:(Options):0:74
  8665. Option Public
  8666. Option Explicit  
  8667. Use "Common"
  8668. '++LotusScript Development Environment:2:5:(Forward):0:1
  8669. Declare Class OutOfOfficeApplication
  8670. Declare Sub Initialize
  8671. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8672. 'OutOfOffice: 
  8673. Const SINGLE_DAY = 86400
  8674. Class OutOfOfficeApplication
  8675.     Private OutOfOfficeLog As noteslog
  8676.     Private m_StringTable As MailToolsStringTable
  8677.     Private m_collectionUnprocessedNotes As notesdocumentcollection
  8678.     Private m_Session As notessession    
  8679.     Private m_db As notesdatabase
  8680.     Private noteDocument As notesdocument
  8681.     Private m_agentOutOfOffice As notesagent
  8682.     Private dtLeave As notesdatetime
  8683.     Private dtReturn As notesdatetime
  8684.     Private dtLastRun As notesdatetime
  8685.     Private m_nameOwner As NotesName     
  8686.     Public m_profileOffice As NotesDocument
  8687.     Public m_calprofile As notesdocument
  8688.     Public m_itemNotified As NotesItem
  8689.     Public m_bUpdate As Integer
  8690.     Private m_ExcludeInternetEmail As Integer
  8691.     Private m_IgnoreSubjectPhrase As Variant 
  8692.     Private m_bSINGLE_DAY_LEAVE As Integer
  8693. Declare Private Sub Delete()
  8694. Declare Private Sub Update()
  8695. Declare Private Sub SendDisableReminder(nFirstReminder As Integer)
  8696. Declare Private Function DocumentOK(doc As NotesDocument)
  8697. Declare Private Sub AddToNotifiedList(sFromName As String)
  8698. Declare Private Sub NotifySender(doc As NotesDocument) 
  8699. Declare Private Function AgentOKToRun() As Integer
  8700. Declare Public Function run() As Integer
  8701.     Sub New
  8702.         Set m_Session = New notessession
  8703.         Set m_db = m_Session.currentdatabase
  8704.         Set OutOfOfficeLog = New NotesLog("Out of Office Log")
  8705.         Set m_profileOffice = m_db.GetProfileDocument("OutOfOfficeProfile")
  8706.         Call OutOfOfficeLog.OpenAgentLog
  8707.         Set m_StringTable = New MailToolsStringTable
  8708.         Set m_calprofile = m_db.GetProfileDocument("CalendarProfile")
  8709.         Set m_nameOwner = New NotesName(m_calprofile.GetItemValue("Owner")(0))
  8710.         If m_profileOffice.isnewnote Then
  8711.             Print(m_stringtable.GetString(418,Nothing))
  8712.             End
  8713.         End If
  8714.         If Isnumeric(m_profileOffice.ExcludeInternetEmail(0)) Then
  8715.             Me.m_ExcludeInternetEmail = Cint(m_profileOffice.ExcludeInternetEmail(0))
  8716.         Else
  8717.             Me.m_ExcludeInternetEmail = 0
  8718.         End If
  8719.         Me.m_IgnoreSubjectPhrase = m_profileOffice.IgnoreSubjectPhrase    
  8720.         Set m_collectionUnprocessedNotes = m_db.UnprocessedDocuments
  8721.         Set m_itemNotified = m_profileOffice.GetFirstItem("Notified")
  8722.         Call OutOfOfficeLog.LogAction(Cstr(m_collectionUnprocessedNotes.count) & " found for processing.")
  8723.     End Sub
  8724.     Function Run() As Integer
  8725.         If AgentOKToRun() Then
  8726.             Set noteDocument = m_collectionUnprocessedNotes.getfirstdocument
  8727.             While Not noteDocument Is Nothing
  8728.                 If DocumentOK(noteDocument) Then
  8729.                     Call NotifySender(noteDocument)
  8730.                 End If
  8731.                 Call m_Session.UpdateProcessedDoc(noteDocument)
  8732.                 Set noteDocument = m_collectionUnprocessedNotes.getnextdocument(noteDocument)
  8733.             Wend
  8734.             If m_bUpdate Then
  8735.                 Call Update
  8736.             End If
  8737.         End If
  8738.     End Function
  8739.     Sub Delete
  8740.         If (OutOfOfficeLog.NumErrors >0) Then
  8741.             Call OutOfOfficeLog.LogAction(Cstr(OutOfOfficeLog.NumErrors)  & " error detected." )
  8742.         Else
  8743.             Call OutOfOfficeLog.LogAction("No errors detected.")
  8744.         End If
  8745.         Call OutOfOfficeLog.Close
  8746.         If (m_bUpdate) Then
  8747.             Call Update
  8748.         End If
  8749.     End Sub
  8750.     Sub Update
  8751.          ' track when the agent last ran..
  8752.         Dim dtNow As NotesDateTime
  8753.         Set dtNow = New NotesDateTime("")
  8754.         dtNow.SetNow
  8755.         Call m_profileOffice.ReplaceItemValue ( "Notified", m_itemNotified)
  8756.         Call m_profileOffice.ReplaceItemValue ( "AgentLastRun", dtNow)
  8757.         Call m_profileOffice.Save(True, False , True)
  8758.         m_bUpdate = False        
  8759.     End Sub
  8760.     Sub SendDisableReminder ( nFirstReminder As Integer )
  8761.           'attemp to disable the agent and send the mailfile owner an email..
  8762.         Dim noteDisable As notesdocument    
  8763.         Dim rItem As notesrichtextitem
  8764.         Dim vNotified As Variant
  8765.         Dim sSubject As String
  8766.         Dim sNotifiedMsg As String
  8767.         Dim namenotify As NotesName
  8768.         Set m_agentOutOfOffice = m_db.getagent("OutOfOffice")        
  8769.         m_agentOutOfOffice.Isenabled = False
  8770.         If Not m_agentOutOfOffice.Isenabled Then
  8771.             Call OutOfOfficeLog.LogAction("Agent is now disabled.")
  8772.             vNotified = m_itemNotified.Values
  8773.             If nFirstReminder Then
  8774.                 sSubject = m_stringtable.GetString(415,Nothing)            
  8775.                 If Len(vNotified(0)) Then
  8776.                     sNotifiedMsg = m_stringtable.GetString(413,Nothing)
  8777.                     Forall a In vNotified
  8778.                         Set namenotify = New NotesName ( a )
  8779.                         If (Strcompare(namenotify.Common, namenotify.Canonical)= 0) Then
  8780.                             sNotifiedMsg = sNotifiedMsg & namenotify.Common & " (" & namenotify.Canonical & ")" & Chr(13) 
  8781.                         Else
  8782.                             sNotifiedMsg = sNotifiedMsg & a & Chr(13)
  8783.                         End If
  8784.                     End Forall 
  8785.                 Else 
  8786.                     sNotifiedMsg = m_stringtable.GetString(414,Nothing) 
  8787.                 End If 
  8788.             Else
  8789.                 sSubject = m_stringtable.GetString(443,Nothing)
  8790.                 sNotifiedMsg = m_stringtable.GetString(416,Nothing) 
  8791.             End If 
  8792.         Else
  8793.             Call OutOfOfficeLog.LogAction("An error occured while trying to disable the agent!")
  8794.         End If
  8795.         Set noteDisable = New NotesDocument(m_db)
  8796.         Set rItem = New NotesRichTextItem(noteDisable, "Body")
  8797.         Call noteDisable.ReplaceItemValue ( "Form", "Memo")
  8798.         Call noteDisable.ReplaceItemValue ( "SendTo", m_NameOwner.canonical )
  8799.         Call noteDisable.ReplaceItemValue ( "Subject", sSubject )
  8800.         Call noteDisable.ReplaceItemValue ( "$AutoForward", True )
  8801.         rItem.AppendText ( sNotifiedMsg )
  8802.         noteDisable.Send (False)
  8803.     End Sub
  8804.     Function AgentOKToRun As Integer
  8805.           ' need to determine whether we should be running this agent.  
  8806.         Dim vLastRun As Variant
  8807.         Dim nFirstReminder As Integer
  8808.         Dim item As NotesItem
  8809.         Dim dtNow As NotesDAteTime
  8810.         Set dtNow = New NotesDateTime("")
  8811.         dtNow.SetNow
  8812.         Call TIMEGetFromItem("dateFirstDayBack", m_profileOffice, dtReturn)
  8813.         Call TIMEGetFromItem("dateFirstDayOut", m_profileOffice, dtLeave)
  8814.         If Me.dtReturn.timedifference(Me.dtLeave) <=  SINGLE_DAY Then
  8815.             Me.m_bSINGLE_DAY_LEAVE = True
  8816.         End If
  8817.         If Not Me.m_bSINGLE_DAY_LEAVE Then
  8818.             Call dtreturn.AdjustHour(-6)
  8819.         End If
  8820.         '        
  8821.         '  adding new condition for build #162
  8822.         '  If the duration of out of office is 1 calendar day
  8823.         '  we will allow the agent to process documents instead of creating a 1st reminder
  8824.         '  we'll use an exception flag to handle this
  8825.         '  we are considered returned if the current time is within 6 hours of our 
  8826.         '  return date specified on the profile..
  8827.         ' we will send a reminder notice to the user informing them to turn off
  8828.         ' the agent.   Two types of notices are sent; a first time information and
  8829.         ' then a continuous reminder..
  8830.         Call TIMEGetFromItem("AgentLastRun", m_profileOffice, dtLastRun)
  8831.         If dtLastRun Is Nothing Then
  8832.             Set dtLastRun = New notesdatetime("")
  8833.         End If
  8834.         If dtNow.TimeDifference(dtreturn) > 0 Then
  8835.             nFirstReminder = True
  8836.             If Not(dtLastRun Is Nothing) Then
  8837.                 If dtlastRun.TimeDifference(dtreturn) > 0 Then
  8838.                     nFirstReminder = False
  8839.                 End If
  8840.             End If
  8841.             Call SendDisableReminder (nFirstReminder)
  8842.             AgentOKToRun = False
  8843.             Exit Function
  8844.         End If
  8845.           '
  8846.           ' if the current time is before the firstDayOut, nothing happens
  8847.           ' except that we are going to clear out the notified field..
  8848.           '
  8849.         If dtNow.TimeDifference(dtleave) < 0 Then
  8850.             Call m_profileOffice.ReplaceItemValue ("Notified", "")
  8851.             Call OutOfOfficeLog.LogAction("Notified List has been cleared.")
  8852.             AgentOKToRun = False
  8853.             Exit Function
  8854.         End If
  8855.           '
  8856.           ' if the current time is after the firstDayOut (we know it is since we got
  8857.           ' past the above check,  and the lastRun is
  8858.           ' before the firstDayOut, then this is the first run for this out of office
  8859.           ' series..  clear the notified field..
  8860.           '
  8861.         If dtlastRun.TimeDifference(dtleave) < 0 Then
  8862.             Call m_profileOffice.ReplaceItemValue ("Notified", "")
  8863.         End If
  8864.         AgentOKToRun = True         
  8865.     End Function
  8866.     Function DocumentOK ( doc As NotesDocument )
  8867.         Dim vNamesList, vSendTo As Variant
  8868.         Dim dtdelivered As NotesDateTime
  8869.         Dim nametest As NotesName
  8870.         Dim namefrom As NotesName
  8871.         Dim sForm As String
  8872.         Dim sFrom As String
  8873.         DocumentOK = False
  8874.           '
  8875.           ' if the note has been sent by an agent..
  8876.         If doc.HasItem("$AutoForward") Or doc.SentByAgent Then
  8877.             Exit Function
  8878.         End If
  8879.         'if the user has elected not to respond to mail coming from the internet skip
  8880.         If Me.m_ExcludeInternetEmail Then
  8881.             If doc.hasitem("SMTPOriginator") Then
  8882.                 Exit Function        
  8883.             End If
  8884.         End If
  8885.           '  the document must have a delivered date..
  8886.         If Not (doc.HasItem("DeliveredDate")) Then
  8887.             Exit Function 
  8888.         End If
  8889.         ' if the documents subject has the phrase in it
  8890.         If Not (Me.m_IgnoreSubjectPhrase(0) = "") Then
  8891.             Dim x As Integer            
  8892.             For x = 0 To Ubound(Me.m_IgnoreSubjectPhrase)
  8893.                 If Not Len(Me.m_IgnoreSubjectPhrase(x)) = 0 Then
  8894.                     If Instr(doc.Subject(0),Me.m_IgnoreSubjectPhrase(x)) Then
  8895.                         Exit Function             
  8896.                     End If
  8897.                 End If
  8898.             Next
  8899.         End If
  8900.         Call TIMEGetFromItem("DeliveredDate", doc, dtDelivered)
  8901.         If dtDelivered Is Nothing Then
  8902.             Exit Function
  8903.         End If
  8904.           '
  8905.           ' the delivered date must be after the first day out..
  8906.         If dtleave.TimeDifference(dtdelivered) > 0 Then
  8907.             Exit Function
  8908.         End If
  8909.           '
  8910.           ' if doc is a return receipt or a delivery failure report, don't send notice..
  8911.           '
  8912.         sForm = doc.GetItemValue ( "Form")(0)
  8913.         If (Strcompare(sForm, "Delivery Report") = 0) Then
  8914.             Exit Function
  8915.         End If
  8916.         If (Strcompare(sForm, "NonDelivery Report") = 0) Then
  8917.             Exit Function
  8918.         End If
  8919.         If (Strcompare(sForm, "Trace Report") = 0 ) Then
  8920.             Exit Function
  8921.         End If
  8922.         If (Strcompare(sForm, "Return Receipt")= 0) Then
  8923.             Exit Function
  8924.         End If
  8925.           ' don't send a notice if this is from yourself..
  8926.           '
  8927.         sFrom = doc.GetItemValue ( "From" )(0)
  8928.         If NAMECompare(sFrom, m_NameOwner.Canonical) Then
  8929.             Exit Function
  8930.         End If
  8931.           '
  8932.           ' if the sender has already been notified, don't send another notice..
  8933.         vNamesLIst = m_itemNotified.Values
  8934.         If Not NAMEFindInList(sFrom, vNamesList) = -1 Then
  8935.             Exit Function
  8936.         End If
  8937.           '
  8938.           ' do not send to anyone in the ignore list
  8939.           '
  8940.         vNamesList = m_profileOffice.GetItemValue ("IgnoreFromList")
  8941.         If Not NAMEFindInList(sFrom, vNamesList) = -1 Then
  8942.             Exit Function
  8943.         End If
  8944.           '
  8945.           ' do not send if the document was mailed to a group list and you do
  8946.           ' not want the actual sender to be notified or if the document is a 
  8947.           ' reminder notice saved by the out of office agent..
  8948.           '
  8949.         vNamesList = m_profileOffice.GetItemValue ("IgnoreSend")
  8950.         vSendTo = doc.GetItemValue ( "SendTo")
  8951.         If Len(vSendTo(0)) And Len(vNamesList(0)) Then
  8952.             Forall b In vSendTo
  8953.                 If NAMECompare(Cstr(b), SENDTO_USER) Then
  8954.                     Exit Function
  8955.                 End If
  8956. '                Forall a In vFieldData
  8957. '                    If NAMECompare(b, a) Then
  8958. '                        Exit Function
  8959. '                    End If
  8960. '                End Forall
  8961.             End Forall
  8962.         End If
  8963.         DocumentOK = True                
  8964.     End Function
  8965.     Sub AddToNotifiedList ( sFromName As String )
  8966.           '
  8967.           ' add name of person to the notified list
  8968.           '
  8969.         Dim fromName As NotesName
  8970.         Set fromName = New NotesName ( sFromName )
  8971.         Call m_itemNotified.AppendToTextList ( fromName.Canonical )
  8972.           '
  8973.         m_bUpdate = True
  8974.     End Sub
  8975.     Sub NotifySender ( doc As NotesDocument ) 
  8976.         Dim vFieldData As Variant 
  8977.         Dim nSendSpecial As Integer
  8978.         Dim sSendToName, sMsg As String
  8979.         Dim notemail As NotesDocument
  8980.         Dim rItem As NotesRichTextItem
  8981.         Dim namefrom As NotesName
  8982.         Dim nametest As NotesName
  8983.         Dim sFromname As String
  8984.         Dim sSubject As String
  8985.         Dim sDomain As String
  8986.         vFieldData = m_profileOffice.GetItemValue ( "SpecialPeopleList")
  8987.         sFromName = doc.GetItemValue ( "From" )(0)
  8988.           '
  8989.           ' need to know whether this person is included in the 
  8990.           ' special sender list..
  8991.           '
  8992.         nSendSpecial = False
  8993.         If Not NAMEFindInList(sFromName, vFieldData) = -1 Then
  8994.             nSendSpecial = True
  8995.         End If
  8996.         sDomain = doc.GetItemValue ("FromDomain")(0)
  8997.         If Len(sDomain) Then
  8998.             sSendToName = sFromName & "@" & sDomain'(0)
  8999.         Else
  9000.             sSendToName = sFromName
  9001.         End If
  9002.           '
  9003.           '  get the day out generic message..
  9004.           '
  9005.         vFieldData = m_profileOffice.GetItemValue ( "DaysOut")(0)
  9006.         sMsg = vFieldData & Chr(13) & Chr(13)
  9007.           '
  9008.         If nSendSpecial Then
  9009.             vFieldData = m_profileOffice.GetItemValue ( "SpecialMessage")(0)
  9010.             sSubject = m_profileOffice.GetItemValue ( "SpecialSubject")(0)
  9011.         Else
  9012.             vFieldData = m_profileOffice.GetItemValue ( "GeneralMessage")(0)
  9013.             sSubject = m_profileOffice.GetItemValue ( "GeneralSubject")(0)
  9014.         End If
  9015.           '
  9016.         sMsg = sMsg & vFieldData
  9017.           '
  9018.           ' send the mail message..
  9019.           '
  9020.         Set notemail = New NotesDocument(m_db)
  9021.         Set rItem = New NotesRichTextItem(notemail, "Body")
  9022.         Call notemail.ReplaceItemValue ( "Form", "Memo")
  9023.         Call notemail.ReplaceItemValue ( "SendTo", sSendToName )
  9024.         Call notemail.ReplaceItemValue ( "Subject", sSubject)
  9025.         Call notemail.ReplaceItemValue ( "$AutoForward", True )
  9026.         rItem.AppendText ( sMsg )
  9027.         On Error Goto SendError
  9028.         notemail.Send (False)
  9029.           '
  9030.           ' add the sendto person the list of those notified..
  9031.         Call AddToNotifiedList ( sFromName)
  9032.         Call OutOfOfficeLog.LogAction("Added " & sFromName & " to list" )
  9033.         Exit Sub
  9034. SendError:
  9035.           'Log errors 
  9036.         Call OutOfOfficeLog.LogError( Err, Error$ )
  9037.         Exit Sub
  9038.     End Sub
  9039. End Class
  9040. '++LotusScript Development Environment:2:2:Initialize:1:10
  9041. Sub Initialize
  9042.     Dim OutOfOffice As New OutOfOfficeApplication
  9043.     Call OutOfOffice.run()
  9044. End Sub
  9045. Lotus Product
  9046. V0.0E
  9047. (    (    ,
  9048. O=Lotus Notes
  9049. O=Lotus Notes
  9050. PURSAFO
  9051. |.:#U
  9052. O=Lotus Notes
  9053. CN=Lotus Notes Template Development/O=Lotus Notes
  9054. PURSAFO
  9055. $TITLE
  9056. $AssistType
  9057. $AssistLastRun
  9058. $AssistDocCount
  9059. $AssistFlags
  9060. $MachineName
  9061. $AssistTrigger
  9062. $AssistInfo
  9063. $AssistQuery
  9064. $AssistAction
  9065. $AssistAction_Ex
  9066. (GIF89a
  9067. ?_?__
  9068. `!b`1
  9069. 7`^///?
  9070. ?b___
  9071. `bOOO
  9072. `<b!R
  9073. *L8iS/`
  9074. M5QTG
  9075. ?a(I,
  9076. 8c W|
  9077. LAqwL
  9078. |F(2+
  9079. rY+K.
  9080. EPAI$[
  9081. =kC&|
  9082. !902,
  9083. CP11!
  9084. Gz2$V=
  9085. "9#"3
  9086. 08qEf
  9087. B eV_yG
  9088. U]|H]
  9089. q>vy]Hs;%
  9090. JYb=o
  9091. vW WC|
  9092. im7D1CYC
  9093.     $pA3R
  9094. 1]C3U
  9095. {WZT+[
  9096. ?vjFo
  9097. MQc|p
  9098. #9YC-0
  9099. !*$j[5
  9100. i^C4C
  9101. ~Qs/hk
  9102. L:j:B
  9103. b:iR/`
  9104. 'LX!x
  9105. K>PYjJG
  9106. &2U.6k
  9107. T*&:A
  9108. "    E}K:
  9109. ,i,|9dZ
  9110. RSa/6
  9111. T77uN
  9112. I:_S0wN
  9113. ,%QI    
  9114. ]68Wm
  9115. =njLw
  9116. }eOz*r
  9117. Iy*bk
  9118. 8yHO<
  9119. H_xRC
  9120. WhU_x
  9121. b-WA<
  9122. b%    c8
  9123. bbD!$
  9124.  k3    +A
  9125. Pvdgo
  9126. O=Lotus Notes
  9127. O=Lotus Notes
  9128. PURSAFO
  9129. |.:#U
  9130. O=Lotus Notes
  9131. CN=Lotus Notes Template Development/O=Lotus Notes
  9132. PURSAFO
  9133. kHw1g
  9134. $ImagesWide
  9135. $ImagesHigh
  9136. $ImageData
  9137. $ImageNames
  9138. $TITLE
  9139. (GIF89a
  9140. <a>7`^///""
  9141. #6dhP
  9142. P6=q$)C9
  9143. )"N b
  9144. K g&<.
  9145. Bh}/n
  9146. ;lx-u7
  9147. AQiN+
  9148. 0;y!Wf
  9149. y`6A9
  9150. Lro&B
  9151. S*i `
  9152. Fnl~U
  9153. ,R$R<
  9154. D0od_
  9155. QqI3b
  9156. U!kNP
  9157. @%7F!
  9158. dHGe    
  9159. {L%qH1SG3
  9160. >+2w=7#qg
  9161. {93 $w
  9162. Qa4Ts
  9163. w{uW>
  9164. (sr.0
  9165. tM#E`
  9166. Y~a{t
  9167. "<4J5uR
  9168. !!Fz`R
  9169. ?ZVqv
  9170. D&2xb
  9171. #9}Wd
  9172. T!.`s
  9173. jX'TM
  9174. =BOYo
  9175. U41eB4
  9176. ;2; u
  9177. vrKJ(
  9178. =6Y3'
  9179. A%%L1S\
  9180. A:j^L
  9181. FY6.]=
  9182. c-rrF
  9183. y$l1dM
  9184. J-I)?
  9185. [*"-|
  9186. Q#~**
  9187. =/"+Q
  9188. EYF%"
  9189. -zI1q
  9190. F    >dJ7
  9191. hYk2?
  9192. $5xc05
  9193. Su!+0
  9194. D]rtz
  9195. O=Lotus Notes
  9196. O=Lotus Notes
  9197. PURSAFO
  9198. |.:#U
  9199. O=Lotus Notes
  9200. CN=Lotus Notes Template Development/O=Lotus Notes
  9201. PURSAFO
  9202. $ImagesWide
  9203. $ImagesHigh
  9204. $ImagesColorize
  9205. $TITLE
  9206. $ImageData
  9207. $ImageNames
  9208. (GIF89a
  9209. <a>7`^///""
  9210. #6dhP
  9211. P6=q$)C9
  9212. )"N b
  9213. K g&<.
  9214. Bh}/n
  9215. ;lx-u7
  9216. AQiN+
  9217. 0;y!Wf
  9218. y`6A9
  9219. Lro&B
  9220. S*i `
  9221. Fnl~U
  9222. ,R$R<
  9223. D0od_
  9224. QqI3b
  9225. U!kNP
  9226. @%7F!
  9227. dHGe    
  9228. {L%qH1SG3
  9229. >+2w=7#qg
  9230. {93 $w
  9231. Qa4Ts
  9232. w{uW>
  9233. (sr.0
  9234. tM#E`
  9235. Y~a{t
  9236. "<4J5uR
  9237. !!Fz`R
  9238. ?ZVqv
  9239. D&2xb
  9240. #9}Wd
  9241. T!.`s
  9242. jX'TM
  9243. =BOYo
  9244. U41eB4
  9245. ;2; u
  9246. vrKJ(
  9247. =6Y3'
  9248. A%%L1S\
  9249. A:j^L
  9250. FY6.]=
  9251. c-rrF
  9252. y$l1dM
  9253. J-I)?
  9254. [*"-|
  9255. Q#~**
  9256. =/"+Q
  9257. EYF%"
  9258. -zI1q
  9259. F    >dJ7
  9260. hYk2?
  9261. $5xc05
  9262. Su!+0
  9263. D]rtz
  9264. O=Lotus Notes
  9265. O=Lotus Notes
  9266. PURSAFO
  9267. |.:#U
  9268. O=Lotus Notes
  9269. CN=Lotus Notes Template Development/O=Lotus Notes
  9270. PURSAFO
  9271. rVNmqs
  9272. $ImagesWide
  9273. $ImagesHigh
  9274. $ImagesColorize
  9275. $TITLE
  9276. $ImageData
  9277. $ImageNames
  9278. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9279. Pony ExpressStdNotesLtr17ponyexpress.gif#####################
  9280. jT>DEb
  9281. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9282. Primitive StdNotesLtr38beta default.gif######################
  9283. Purple GeometryStdNotesLtr18purple geometry2.gif
  9284. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9285. iFA08095B0A456E77D0A6E075AE87E88BAF5CB9E208931A2E889B51112269D913
  9286. ReplyReply1F
  9287. BodySubjectBlindCopyToEnterBlindCopyToCopyToEnterCopyToSendToEnterSendToReturnReceipttmpSendOptionsDeliveryPriorityDeliveryReportImportanceDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedFromInheritedReplyToInheritedSendTo
  9288. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  9289. Reply With HistoryReply With HistoryF
  9290. BodySubjectBlindCopyToEnterBlindCopyToCopyToEnterCopyToSendToEnterSendTotmpSendOptionsReturnReceiptDeliveryPriorityDeliveryReportImportanceDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedFromInheritedReplyToInheritedSendTo
  9291. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  9292. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9293. Reversed TealStdNotesLtr20beta default.gif###################
  9294. Send Memo to Database Manager
  9295. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  9296. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9297. Slashed Lines with GlobeStdNotesLtr21earthwithslash.gif######
  9298. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9299. Squiggle with BackdropStdNotesLtr22beta default.gif##########
  9300. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9301. Squiggly LineStdNotesLtr23beta default.gif###################
  9302. smalltacks4.gif
  9303. TacksStdNotesLtr24
  9304. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
  9305. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9306. TapeStdNotesLtr25beta default.gif############################
  9307. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9308. Teal and Yellow LinesStdNotesLtr26beta default.gif###########
  9309. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9310. Three Dimensional ReliefStdNotesLtr27beta default.gif########
  9311. To doTask
  9312. BodyBlindCopyToCopyToSendToCategoriesAlarmsOrgConfidentialStatusDueDateRepeatsImportanceStartDateSubjectTaskType$ExpandGroups$KeepPrivateDefaultMailSaveOptionsEncryptSignFrom1
  9313. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  9314. CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm1
  9315. To Do OutlineToDoOutline########################################################
  9316. To Do PickerC34W
  9317. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
  9318. To Do SwitcherC34W
  9319. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  9320. To Do TitleC34W
  9321. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
  9322. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesToDoFS|ToDoFS1#4C########
  9323. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm1
  9324. TodoSelectorTodoSelector##############
  9325. tornpaper2.gif
  9326. Torn PaperStdNotesLtr28
  9327. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  9328. e(|a}
  9329. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9330. Triangle with DotsStdNotesLtr29trianglewithdots1.gif#########
  9331. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9332. Triangle with Dots 2StdNotesLtr30beta default.gif############
  9333. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9334. TrianglesStdNotesLtr35triangles.gif##########################
  9335. Update Tasks|Update Tasks
  9336. CN=Ryan Jansen/O=Iris1SfL3
  9337. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  9338. CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9339. WavesStdNotesLtr39beta default.gif###########################
  9340. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesWebLibs34Q1############################
  9341. wildconfetti4.gif
  9342. Wild ConfettiStdNotesLtr32
  9343. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  9344. CN=Don Hatch/O=IrisCN=Teresa Deane/O=IrisCN=Debbie Branco/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NoteswStringResources34Q1StdR50Disc
  9345. ##########################################################
  9346. yello gradient.gif
  9347. Yellow GradientStdNotesLtr33
  9348. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  9349. :$ACTIONSCny
  9350. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  9351. $BetaVersion
  9352. $BetaVersion
  9353. $BetaVersion
  9354. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9355. ##########################################################
  9356. $FORWARDSEPCU3
  9357. CN=Mussie Shore/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  9358. $MoodsMoodsCU3
  9359. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  9360. +MQ O
  9361. r(AddSenderToAddressBook)
  9362. EH4fL3
  9363. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
  9364. (AlarmOptions)AlarmOptionsCUA3    
  9365. tmpDisable$AlarmSendTo$AlarmMemoOptionstmpAlarmPathtmpAlarmPopuptmpOffsetDir$AlarmUnittmpOffsettmpAlarmFiles1
  9366. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  9367. (ChangeRepeat)CU3
  9368. tmpChangeWhich1
  9369. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
  9370.     (C&S DeliveryOptions)CUA3
  9371. PreventDelegateEncryptPreventCounterSignBroadcast1
  9372. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  9373. ##########################################################
  9374. (GIF89aE
  9375. ___OOOBB
  9376. ///!!
  9377. M 0    4.
  9378. JLB]RVQ
  9379. $*0lcEXT
  9380. `]B$_ad
  9381. 'dm3lrsq.0w
  9382. UKYW 115
  9383. .    ;![
  9384. uWWZP
  9385. R4K|7
  9386. ;d`G20c
  9387. A* cP1
  9388. 7    6IU
  9389. W!{9:#    
  9390. Io#IO
  9391. ^R0    ~
  9392. A8EHYe(
  9393. @4c':Q&
  9394. 6M %w
  9395. 4 WAhH
  9396. ~y6o^
  9397. !N    0_[GG}
  9398. Iz3y\
  9399. WS{v*z
  9400.  b77&P
  9401. 7b%VW
  9402. (Z3HpHB
  9403. -FP z7je5
  9404. \[1&g
  9405. 7p="X
  9406. DP..Qn)2
  9407. k2:K{
  9408. nObG'
  9409. *}T8z
  9410. >7qn}
  9411. 0c{iT
  9412. d_    f9
  9413. gGOb|
  9414. Bpm,T3
  9415. 7f,$KfH
  9416.     J0|M
  9417. ys\s5
  9418. =tbx\ 
  9419. n7!*9
  9420. 6w!_j`
  9421. `XCfi
  9422. B    !Q#[*2_I
  9423. a;zB?
  9424. $=HxZO
  9425. 3Tx|X
  9426. 39/dDf
  9427. (l.<`A
  9428. evfYeX
  9429. p"Pkb
  9430. U`lqB7
  9431. &fTU-
  9432. {?E/^
  9433. V-8a]*_:
  9434. c|%S/
  9435. 5<b/R8
  9436. {G"(zc
  9437. "&*.26:>BFJNRVZ^bfjnrvz~
  9438. #'+/37;?CGKOSW[_cgkosw{
  9439. O=Lotus Notes
  9440. O=Lotus Notes
  9441. PURSAFO
  9442. |.:#U
  9443. O=Lotus Notes
  9444. CN=Lotus Notes Template Development/O=Lotus Notes
  9445. PURSAFO
  9446. }RH%    
  9447. $ImagesWide
  9448. $ImagesHigh
  9449. $ImagesColorize
  9450. $TITLE
  9451. $ImageData
  9452. $ImageNames
  9453. (GIF89a
  9454. <a>7`^///""
  9455. #6dhP
  9456. P6=q$)C9
  9457. )"N b
  9458. K g&<.
  9459. Bh}/n
  9460. ;lx-u7
  9461. AQiN+
  9462. 0;y!Wf
  9463. y`6A9
  9464. Lro&B
  9465. S*i `
  9466. Fnl~U
  9467. ,R$R<
  9468. D0od_
  9469. QqI3b
  9470. U!kNP
  9471. @%7F!
  9472. dHGe    
  9473. {L%qH1SG3
  9474. >+2w=7#qg
  9475. {93 $w
  9476. Qa4Ts
  9477. w{uW>
  9478. (sr.0
  9479. tM#E`
  9480. Y~a{t
  9481. "<4J5uR
  9482. !!Fz`R
  9483. ?ZVqv
  9484. D&2xb
  9485. #9}Wd
  9486. T!.`s
  9487. jX'TM
  9488. =BOYo
  9489. U41eB4
  9490. ;2; u
  9491. vrKJ(
  9492. =6Y3'
  9493. A%%L1S\
  9494. A:j^L
  9495. FY6.]=
  9496. c-rrF
  9497. y$l1dM
  9498. J-I)?
  9499. [*"-|
  9500. Q#~**
  9501. =/"+Q
  9502. EYF%"
  9503. -zI1q
  9504. F    >dJ7
  9505. hYk2?
  9506. $5xc05
  9507. Su!+0
  9508. D]rtz
  9509. O=Lotus Notes
  9510. O=Lotus Notes
  9511. PURSAFO
  9512. |.:#U
  9513. O=Lotus Notes
  9514. CN=Lotus Notes Template Development/O=Lotus Notes
  9515. PURSAFO
  9516. $ImagesWide
  9517. $ImagesHigh
  9518. $ImagesColorize
  9519. $TITLE
  9520. $ImageData
  9521. $ImageNames
  9522. 'GIF89a
  9523. ?_?__
  9524. `!b`1
  9525. 7`^///?
  9526. ?b___
  9527. `bOOO
  9528. `<b!R
  9529. uPdK>
  9530. ]GeiWQtM]
  9531. FR!:U
  9532. VLd3:
  9533. %m;r2 )Q)
  9534. p+f6#
  9535. Gg4=J'
  9536. +jbaX
  9537. 6z'D 
  9538. 2S;37 
  9539. @$DL&=
  9540. fT94*
  9541. Sw8l4Xv
  9542. i_#zY
  9543. Z_F)c%
  9544. NKwL<
  9545. 'l!s0qY
  9546. Bn6x>
  9547. Xz~(r
  9548. yHZECb$
  9549. CurAdtY
  9550. %*)Y8
  9551. Cl9t=O
  9552. Ws$v%
  9553. $3(b3
  9554. &[4#\x
  9555. k(zpgc
  9556. g..b`
  9557. 0a'P A9;(
  9558. *l86,
  9559. I"\_6
  9560. .EO<M
  9561. ,/n%5
  9562. Z(U%x
  9563. (vQL]
  9564. x"6]@
  9565. RYF96
  9566. GRh{P
  9567. #CYU\W
  9568. @$LB%\B&D
  9569. U).N,.=J
  9570. .:;0r
  9571. *=R/6
  9572. tMXlJ
  9573. r%c,5
  9574. *'<CN
  9575. DVAMJ=
  9576. BxROp
  9577. c;2*N
  9578. puE*-Y
  9579. *I_E&
  9580. #[{e`
  9581. O=Lotus Notes
  9582. O=Lotus Notes
  9583. PURSAFO
  9584. |.:#U
  9585. O=Lotus Notes
  9586. CN=Lotus Notes Template Development/O=Lotus Notes
  9587. PURSAFO
  9588. $ImagesWide
  9589. $ImagesHigh
  9590. $ImagesColorize
  9591. $TITLE
  9592. $ImageData
  9593. $ImageNames
  9594. VersionOpt|
  9595.     6S7S9S14S
  9596. $VersionOpt
  9597.     0R1S2S3S
  9598. SavedOnce
  9599.     0R1S2S3S
  9600. PostedDate(
  9601.     0R1S2S3S
  9602. DeliveredDate
  9603.     0R1S2S3S
  9604. $AutoEditMode
  9605.     0R1S2S3S
  9606. MailSaveOptions
  9607.     0R1S2S3S
  9608. VersionOpt
  9609.     0R4S
  9610. HeaderRegion
  9611. BodyRegion
  9612. New Memo
  9613. Subject
  9614. Subject
  9615. Subject
  9616.     4S6S12S13S14S15S17S21S23S25S26S28S
  9617. wMemo
  9618. returnreceipt
  9619. wMemoOpen
  9620. Query_string
  9621. forward
  9622. wMemoOpen
  9623.     13R24S
  9624. (Help)
  9625. MAIL_F_REPLY
  9626.     0S0E
  9627. &Arial
  9628. FComic Sans MS
  9629. '++LotusScript Development Environment:2:5:(Options):0:74
  9630. Option Public
  9631. Option Explicit
  9632. Use "CoreEmailClasses"
  9633. '++LotusScript Development Environment:2:5:(Forward):0:1
  9634. '++LotusScript Development Environment:2:5:(Declarations):0:10
  9635. Dim cMemoObject As Variant 
  9636. Lotus Product(
  9637. #V0.0/8
  9638. }d    #8l
  9639.  Reply'++LotusScript Development Environment:2:5:(Options):0:66
  9640. '++LotusScript Development Environment:2:5:(Forward):0:1
  9641. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9642. Declare Sub Postmodechange(Source As Notesuidocument)
  9643. Declare Sub Postopen(Source As Notesuidocument)
  9644. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  9645. Declare Sub Postsave(Source As Notesuidocument)
  9646. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9647. Declare Sub Postrecalc(Source As Notesuidocument)
  9648. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  9649. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9650. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9651. Private Sub BindEvents(Byval Objectname_ As String)
  9652.     Static Source As NOTESUIDOCUMENT
  9653.     Set Source = Bind(Objectname_)
  9654.     On Event Querysave From Source Call Querysave
  9655.     On Event Postmodechange From Source Call Postmodechange
  9656.     On Event Postopen From Source Call Postopen
  9657.     On Event Queryopen From Source Call Queryopen
  9658.     On Event Postsave From Source Call Postsave
  9659.     On Event Queryclose From Source Call Queryclose
  9660.     On Event Postrecalc From Source Call Postrecalc
  9661.     On Event Querymodechange From Source Call Querymodechange
  9662. End Sub
  9663. '++LotusScript Development Environment:2:2:Querysave:1:12
  9664. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9665.     Call cMemoObject.QuerySave(Continue)
  9666. End Sub
  9667. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  9668. Sub Postmodechange(Source As Notesuidocument)
  9669.     Call cMemoObject.PostModeChange()    
  9670. End Sub
  9671. '++LotusScript Development Environment:2:2:Postopen:1:12
  9672. Sub Postopen(Source As Notesuidocument)
  9673.     Call cMemoObject.PostOpen(Source)    
  9674. End Sub
  9675. '++LotusScript Development Environment:2:2:Queryopen:1:12
  9676. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  9677.     Set cMemoObject = New UIMemoDocument         
  9678.     Call cMemoObject.Init(Source,Isnewdoc)  
  9679. End Sub
  9680. '++LotusScript Development Environment:2:2:Postsave:1:12
  9681. Sub Postsave(Source As Notesuidocument)
  9682.     Call cMemoObject.PostSave()
  9683. End Sub
  9684. '++LotusScript Development Environment:2:2:Queryclose:1:12
  9685. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9686.     Call cMemoObject.QueryClose(Continue)
  9687. End Sub
  9688. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  9689. Sub Postrecalc(Source As Notesuidocument)
  9690. End Sub
  9691. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  9692. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  9693.     Continue = cMemoObject.QueryModeChange(Source)
  9694. End Sub
  9695. Lotus ProducthK
  9696. V0.0}
  9697. h,DtJ
  9698. g}Tl#
  9699. K,h,DtJ
  9700. g}Tl#1
  9701. h,DtJ
  9702. g},l#1
  9703. K,h,DtJ
  9704. g}@l#1
  9705. g+8gJ
  9706. g,@u}
  9707. g,puI
  9708. o}\k}Dn#1
  9709. o}TnK
  9710. o}\k}
  9711. o}\k}lk#1
  9712. ]`    N,
  9713.     Always hidden:  
  9714.     0S0E
  9715. NamePreferencez
  9716. NamePreference
  9717. Notes
  9718. PostedDateh
  9719. NamePreference
  9720. AltSendTo
  9721. AltSendTo
  9722. AltCopyTo
  9723. SendTo
  9724. CopyTo
  9725. InheritedSendTo
  9726. SendTo
  9727. CopyTo
  9728.     9S10S12S13S30S31S36S37S39S41SInheritedSendTo
  9729. InheritedSendTo
  9730. Notes
  9731. PostedDateh
  9732. ReplyTo
  9733. ReplyTo
  9734.     9S10S12S13SInheritedReplyToz
  9735. InheritedReplyTo
  9736. Principal
  9737. Principal
  9738. Principal
  9739. Fromh
  9740.     1S2S8S9S10S11S13S15S20S22S
  9741. FromDomainh
  9742. FromDomain"
  9743.     0R7S8S9S10S11S13SInheritedFrom
  9744. InheritedFrom
  9745. Notes
  9746. PostedDateh
  9747. FromDomain
  9748. InheritedFromDomain
  9749. FromDomain
  9750.     9S10S12S13SInheritedFromDomain
  9751. InheritedFromDomain
  9752. Principal
  9753. CalendarProfile
  9754. Owner
  9755.     1S2S3S7S
  9756. FromPerson memo is from.z
  9757. AltFrom
  9758.     10SAltFrom
  9759. CalendarProfile
  9760. DefaultLogo
  9761. stdNotesLtr0
  9762. CalendarProfile
  9763. DefaultLogo
  9764. StdNotesLtrGateway
  9765.     4S13S24R25S29S32S34S
  9766. Logoz
  9767. Black
  9768. BGTableColor
  9769. Principal
  9770. Principal
  9771. Principal
  9772. NamePreference
  9773. AltFrom
  9774. AltFrom
  9775.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S24RTTTT26RTTT27RTTT
  9776.     0R1S2S8S
  9777.     0R1S2S5S6S8S14S18S
  9778.     0R1S2S5S6S8S14S18S
  9779. SentBy
  9780. X400FreeForm^
  9781.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  9782. SentBy
  9783. FromDomain
  9784. FromDomain
  9785. FromDomain
  9786. FromDomain
  9787.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  9788. FromName
  9789. Principal
  9790. Principal
  9791. Principal
  9792.     0RR1S2S8S9S14S16S20S
  9793. FromStops
  9794.     0R1S2S6S
  9795. FromName
  9796. FromStops
  9797. FromStops
  9798. FromStops
  9799.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  9800. tmpDisplayFrom_Preview
  9801.     0S0E
  9802. Signz
  9803.     0S0E
  9804. Encrypt
  9805. Encrypt
  9806. $KeepPrivate
  9807. $KeepPrivate
  9808. $KeepPrivate
  9809.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  9810.     0S0E
  9811. DefaultMailSaveOptionsz
  9812. DefaultMailSaveOptions
  9813. .,$,  , :
  9814. Path_Info_DEcoded
  9815. Path_Info
  9816. .,$,  , :
  9817. Query_String_Decoded
  9818. Query_String
  9819. PrintingMailGraphic
  9820. $tempfoo
  9821. Importance
  9822. .,$,  , :
  9823. DeliveryReport
  9824. .,$,  , :
  9825. DeliveryPriority
  9826. CalendarProfile
  9827. DefaultMailOpt
  9828. tmpSendOptions
  9829. Send|1Send and Save|2Save as Draft|3z
  9830. {FONT SIZE="2"}
  9831. ReturnReceipt
  9832.     From:
  9833. tmpDisplayFrom_Preview
  9834. tmpDisplayFrom_NoLogo
  9835. tmpDisplayFrom_NoLogo
  9836. NamesList
  9837. NamePreference
  9838. AltSendTo
  9839. AltSendTo
  9840. SendTo
  9841.     11S12S
  9842. ImplodedNamesList
  9843. NamesList
  9844. ImplodedNamesList
  9845. ImplodedNamesList
  9846. ImplodedNamesList
  9847. tmpDisplaySendTo
  9848.     Subject:
  9849. Subject
  9850. Subject
  9851. Subject
  9852.     0S0E
  9853. TmpDisplaySubject_1
  9854. CC_Content
  9855. NamePreference
  9856. AltCopyTo
  9857. AltCopyTo
  9858. CopyTo
  9859.     7S8S9S
  9860. BCC_Content
  9861. DeliveredDate
  9862. BlindCopyTo
  9863.  (bcc: 
  9864. BlindCopyTo
  9865.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  9866. NamesList
  9867. CC_Content
  9868. BCC_Content
  9869.     0R9S10S
  9870. ImplodedNamesList
  9871. NamesList
  9872. ImplodedNamesList
  9873. ImplodedNamesList
  9874. ImplodedNamesList
  9875. tmpDisplayCC
  9876. SendTo
  9877. CopyTo
  9878.   cc:  
  9879. CopyTo
  9880.     1S2S8S13S14S2E17S18S21S22S28S31S
  9881. ISMAILSTATIONERYh
  9882.     0S0E
  9883. tmpDisplayFrom_Preview
  9884. DisplayFrom_Preview
  9885. DisplayFrom_Preview
  9886. $HideMailHeader
  9887. Principal
  9888. Principal
  9889. Principal
  9890. Principal
  9891. Principal
  9892.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  9893.     Sent by: 
  9894. FromDomain
  9895. FromDomain
  9896. FromDomain
  9897. FromDomain
  9898.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  9899. FromName
  9900.     0RR1S2S6S
  9901. FromStops
  9902.     0R1S2S6S
  9903. FromName
  9904. FromStops
  9905. FromStops
  9906. FromStops
  9907.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  9908. tmpDisplaySentBy
  9909. PostedDateh
  9910. PostedDate
  9911.     4S5S10S12S
  9912. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  9913. tmpDisplayDate_Preview
  9914. ReplyDate
  9915. ReplyTo
  9916. $HideMailHeader
  9917.     2S3S4S5S6S7S9S10S14S15R
  9918. Please respond
  9919. ReplyTo
  9920. ReplyTo
  9921. ReplyDate
  9922. ReplyDate
  9923.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  9924. tmpDisplayReplyInfo
  9925. <FONT SIZE="2"><B><CENTER>
  9926. tmpDisplayFrom_Preview"
  9927.     0S0E
  9928. <P><CENTER>Sent by:<BR><CENTER>
  9929. tmpDisplaySentBy"
  9930.     0S0E
  9931. <P><CENTER>
  9932. PostedDateh
  9933. PostedDate
  9934. </B><BR>"
  9935.     11S13S
  9936. Please respond
  9937. ReplyTo
  9938. ReplyTo
  9939. ReplyDate
  9940. ReplyDate
  9941.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30S
  9942. IsMailStationery
  9943.     0S0E
  9944. $HideMailHeader
  9945. StdNotesLtr16
  9946.     7S9S10S11S13S15S
  9947.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  9948.       </DIV>
  9949. $HideMailHeader
  9950.     0S0E
  9951. MailAddress
  9952. InheritedReplyTo
  9953. InheritedReplyTo
  9954. InheritedFrom
  9955. NamePreference
  9956. AltSendTo
  9957. AltSendTo
  9958. SendTo
  9959.     1S2S22S2E23S24S25S
  9960. MailAddress
  9961. EnterSendTo
  9962.     0S0E
  9963. EnterSendTo
  9964. <FONT SIZE="2">   
  9965.     0S0E
  9966. SIZE=50
  9967. MailAddress
  9968. InheritedReplyToh
  9969. InheritedReplyTo
  9970. InheritedReplyTo
  9971. InheritedFrom
  9972.     1S2S8S9S10S11S13S15S
  9973. MailAddress
  9974.     0RR4SSendTo
  9975.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  9976.       </DIV>
  9977. NamePreference
  9978. AltCopyTo
  9979. AltCopyTo
  9980. CopyTo
  9981.     10S11S12S&
  9982. EnterCopyTo
  9983.     0S0E
  9984. EnterCopyTo
  9985. CC_Content
  9986. NamePreference
  9987. AltCopyTo
  9988. AltCopyTo
  9989. CopyTo
  9990.     11S12S13S
  9991. BCC_Content
  9992. DeliveredDate
  9993. BlindCopyTo
  9994.  (bcc: 
  9995. BlindCopyTo
  9996.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  9997. CC_Content
  9998. BCC_Content
  9999.     0R3S4S
  10000. tmpEnterCopyTo
  10001. <FONT SIZE="2">   
  10002.     0S0E
  10003. SIZE=50
  10004. CopyTo
  10005.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  10006.     bcc:
  10007.       </DIV>
  10008.     bcc:
  10009. NamePreference
  10010. AltBlindCopyTo
  10011. AltBlindCopyTo
  10012. BlindCopyTo
  10013.     10S11S12S*
  10014. EnterBlindCopyTo}
  10015.     0S0E
  10016. EnterBlindCopyTo
  10017. <FONT SIZE="2">   
  10018.     0S0E
  10019. SIZE=50
  10020. BlindCopyTo
  10021.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  10022.     Subject:
  10023.       </DIV>
  10024.     Subject:
  10025.     <P><FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  10026. Notes
  10027. <FONT SIZE="2">   
  10028.     0S0E
  10029. SIZE=50
  10030. Subject
  10031. Topic
  10032. Subject
  10033.     1S2S5S6S8S10S
  10034. Subj"
  10035.     0R10S12S16S17S19S21S22S23S
  10036. Subject
  10037. Subject
  10038. tmpDisplaySubject
  10039. tmpDisplayLink
  10040. {Font SIZE="2"}
  10041. BGTableColor
  10042. $HideMailHeader
  10043. Moods
  10044. PostedDate
  10045. SenderTag
  10046. Moods
  10047.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  10048. Bodyz
  10049.     Always Hidden: 
  10050.     0S0E
  10051. DueDateTime
  10052. ReplyDate
  10053. ReplyDate
  10054.     0R1S2S3S6S7S9S11S
  10055. Importance
  10056. Importance
  10057. Importance
  10058.     0R1S3S
  10059. DeliveryReport
  10060. DeliveryReport
  10061. DeliveryReport
  10062.     0R1S3S
  10063. DeliveryPriority
  10064. DeliveryPriority
  10065. DeliveryPriority
  10066.     0R1S3S
  10067. UpdateProfileNote
  10068. UpdateProfileNote
  10069. UpdateProfileNote
  10070.     0R1S3S
  10071. ReturnReceipt
  10072. ReturnReceipt
  10073. ReturnReceipt
  10074.     0R1S3S
  10075. $KeepPrivate
  10076. $KeepPrivate
  10077. $KeepPrivate
  10078.     0R1S3S
  10079. ReplyDate
  10080. ReplyDate
  10081. ReplyDate
  10082.     0R1S3S
  10083. ExpireDate
  10084. ExpireDate
  10085. ExpireDate
  10086.     0R1S3S
  10087. ReplyTo
  10088. ReplyTo
  10089. ReplyTo
  10090.     0R1S3S
  10091. MimeFormat
  10092. MimeFormat
  10093. MimeFormat
  10094.     0R1S3S
  10095. SMTPEncoding
  10096. SMTPEncoding
  10097. SMTPEncoding
  10098.     0R1S3S
  10099. UpdateProfileNote
  10100. UpdateProfileNote
  10101. UpdateProfileNote
  10102.     0R1S
  10103. MIMEMailCharset
  10104. MIMEMailCharset
  10105. MIMEMailCharset
  10106.     0R1S
  10107. StripItemsIfDocIsBeingMailed
  10108. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  10109. '++LotusScript Development Environment:2:5:(Forward):0:1
  10110. Declare Sub Click(Source As Button)
  10111. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10112. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10113. Private Sub BindEvents(Byval Objectname_ As String)
  10114.     Static Source As BUTTON
  10115.     Set Source = Bind(Objectname_)
  10116.     On Event Click From Source Call Click
  10117. End Sub
  10118. '++LotusScript Development Environment:2:2:Click:1:12
  10119. Sub Click(Source As Button)
  10120.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  10121.     Call cMemoObject.noteUIMemo.save()
  10122.     Call cMemoObject.noteUIMemo.close()
  10123. End Sub
  10124. IsMailStationery
  10125.     1S2S3S
  10126. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  10127. '++LotusScript Development Environment:2:5:(Forward):0:1
  10128. Declare Sub Click(Source As Button)
  10129. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10130. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10131. Private Sub BindEvents(Byval Objectname_ As String)
  10132.     Static Source As BUTTON
  10133.     Set Source = Bind(Objectname_)
  10134.     On Event Click From Source Call Click
  10135. End Sub
  10136. '++LotusScript Development Environment:2:2:Click:1:12
  10137. Sub Click(Source As Button)
  10138.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  10139.     Call cMemoObject.noteUIMemo.save()
  10140.     Call cMemoObject.noteUIMemo.close()
  10141. End Sub
  10142. PostedDateh
  10143. IsMailStationery
  10144.     7S8S9S10S13S14S15S16S
  10145. Save And File
  10146. '++LotusScript Development Environment:2:5:(Options):0:66
  10147. '++LotusScript Development Environment:2:5:(Forward):0:1
  10148. Declare Sub Click(Source As Button)
  10149. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10150. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10151. Private Sub BindEvents(Byval Objectname_ As String)
  10152.     Static Source As BUTTON
  10153.     Set Source = Bind(Objectname_)
  10154.     On Event Click From Source Call Click
  10155. End Sub
  10156. '++LotusScript Development Environment:2:2:Click:1:12
  10157. Sub Click(Source As Button)
  10158.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  10159.     Call cMemoObject.noteUIMemo.save()
  10160.     Call cMemoObject.noteUIMemo.close()
  10161. End Sub
  10162. PostedDateh
  10163. IsMailStationery
  10164.     7S8S9S10S13S14S15S16S
  10165. Close
  10166. '++LotusScript Development Environment:2:5:(Options):0:66
  10167. '++LotusScript Development Environment:2:5:(Forward):0:1
  10168. Declare Sub Click(Source As Button)
  10169. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10170. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10171. Private Sub BindEvents(Byval Objectname_ As String)
  10172.     Static Source As BUTTON
  10173.     Set Source = Bind(Objectname_)
  10174.     On Event Click From Source Call Click
  10175. End Sub
  10176. '++LotusScript Development Environment:2:2:Click:1:12
  10177. Sub Click(Source As Button)
  10178.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  10179.     Call cMemoObject.noteUIMemo.save()
  10180.     Call cMemoObject.noteUIMemo.close()
  10181. End Sub
  10182. IsMailStationery
  10183.     0S1S2S
  10184. New Memo(
  10185.     0S0E
  10186. act_NEWMEMO.GIF|act_NEWMEMO?
  10187. Reply\ReplyK0
  10188. Reply
  10189.     0S0E
  10190. act_REPLY.GIF|act_REPLY?
  10191. Reply\Reply with History
  10192. Reply with History
  10193. This document is truncated.
  10194.     4S8S10S13S
  10195. Reply with history
  10196. act_REPLY.GIF|act_REPLY?
  10197. Reply\Reply to AllX
  10198. MailStEd
  10199.     0S0E
  10200. Reply
  10201. act_REPLY.GIF|act_REPLY?
  10202. Reply\Reply to All with HistoryK
  10203. MailStEd
  10204.     0S0E
  10205. Reply with History
  10206. This document is truncated.
  10207.     0R4S8S10S13S
  10208. Reply with history
  10209. act_REPLY.GIF|act_REPLY?
  10210. _Forward
  10211. IsMailStationery
  10212.     1S2S
  10213. act_FORWARD.GIF|act_FORWARD?
  10214.     0S1S2S
  10215. act_EDIT.GIF|act_EDIT?
  10216. Delete 
  10217.     0S0E
  10218. act_DELETE.GIF|act_DELETE?
  10219. _Move To Folder...
  10220. act_FOLDER.GIF|act_FOLDER?
  10221. _Remove From Folder...
  10222. Categori_zeK
  10223. SSend
  10224. Send'++LotusScript Development Environment:2:5:(Options):0:66
  10225. '++LotusScript Development Environment:2:5:(Forward):0:1
  10226. Declare Sub Click(Source As Button)
  10227. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10228. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10229. Private Sub BindEvents(Byval Objectname_ As String)
  10230.     Static Source As BUTTON
  10231.     Set Source = Bind(Objectname_)
  10232.     On Event Click From Source Call Click
  10233. End Sub
  10234. '++LotusScript Development Environment:2:2:Click:1:12
  10235. Sub Click(Source As Button)
  10236.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  10237.     Call cMemoObject.noteUIMemo.save()
  10238.     Call cMemoObject.noteUIMemo.close()    
  10239. End Sub
  10240. PostedDateh
  10241. IsMailStationery
  10242.     5S6S7S8S10S11S12S13S
  10243. act_SEND.GIF|act_SEND?
  10244. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  10245. '++LotusScript Development Environment:2:5:(Forward):0:1
  10246. Declare Sub Click(Source As Button)
  10247. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10248. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10249. Private Sub BindEvents(Byval Objectname_ As String)
  10250.     Static Source As BUTTON
  10251.     Set Source = Bind(Objectname_)
  10252.     On Event Click From Source Call Click
  10253. End Sub
  10254. '++LotusScript Development Environment:2:2:Click:1:12
  10255. Sub Click(Source As Button)
  10256.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  10257.     Call cMemoObject.noteUIMemo.save()
  10258.     Call cMemoObject.noteUIMemo.close()    
  10259. End Sub
  10260. PostedDateh
  10261. IsMailStationery
  10262.     5S6S7S8S12S13S
  10263. Send and File
  10264. '++LotusScript Development Environment:2:5:(Options):0:66
  10265. '++LotusScript Development Environment:2:5:(Forward):0:1
  10266. Declare Sub Click(Source As Button)
  10267. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10268. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10269. Private Sub BindEvents(Byval Objectname_ As String)
  10270.     Static Source As BUTTON
  10271.     Set Source = Bind(Objectname_)
  10272.     On Event Click From Source Call Click
  10273. End Sub
  10274. '++LotusScript Development Environment:2:2:Click:1:12
  10275. Sub Click(Source As Button)
  10276.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  10277.     Call cMemoObject.noteUIMemo.save()
  10278.     Call cMemoObject.noteUIMemo.close()    
  10279. End Sub
  10280. PostedDateh
  10281. IsMailStationery
  10282.     5S6S7S8S12S13S
  10283. act_SEND.GIF|act_SEND?
  10284. Save'++LotusScript Development Environment:2:5:(Options):0:66
  10285. '++LotusScript Development Environment:2:5:(Forward):0:1
  10286. Declare Sub Click(Source As Button)
  10287. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10288. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10289. Private Sub BindEvents(Byval Objectname_ As String)
  10290.     Static Source As BUTTON
  10291.     Set Source = Bind(Objectname_)
  10292.     On Event Click From Source Call Click
  10293. End Sub
  10294. '++LotusScript Development Environment:2:2:Click:1:12
  10295. Sub Click(Source As Button)
  10296.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  10297.     Call cMemoObject.noteUIMemo.save()
  10298.     Call cMemoObject.noteUIMemo.close()
  10299. End Sub
  10300. IsMailStationery
  10301.     2S3S
  10302. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  10303. Save As Draft
  10304. '++LotusScript Development Environment:2:5:(Options):0:66
  10305. '++LotusScript Development Environment:2:5:(Forward):0:1
  10306. Declare Sub Click(Source As Button)
  10307. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10308. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10309. Private Sub BindEvents(Byval Objectname_ As String)
  10310.     Static Source As BUTTON
  10311.     Set Source = Bind(Objectname_)
  10312.     On Event Click From Source Call Click
  10313. End Sub
  10314. '++LotusScript Development Environment:2:2:Click:1:12
  10315. Sub Click(Source As Button)
  10316.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  10317.     Call cMemoObject.noteUIMemo.save()
  10318.     Call cMemoObject.noteUIMemo.close()
  10319. End Sub
  10320. PostedDateh
  10321. IsMailStationery
  10322.     5S6S7S8S10S11S12S13S
  10323. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  10324. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  10325. '++LotusScript Development Environment:2:5:(Forward):0:1
  10326. Declare Sub Click(Source As Button)
  10327. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10328. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10329. Private Sub BindEvents(Byval Objectname_ As String)
  10330.     Static Source As BUTTON
  10331.     Set Source = Bind(Objectname_)
  10332.     On Event Click From Source Call Click
  10333. End Sub
  10334. '++LotusScript Development Environment:2:2:Click:1:12
  10335. Sub Click(Source As Button)
  10336.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  10337.     Call cMemoObject.noteUIMemo.save()
  10338.     Call cMemoObject.noteUIMemo.close()
  10339. End Sub
  10340. IsMailStationery
  10341.     1S2S
  10342. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  10343. '++LotusScript Development Environment:2:5:(Forward):0:1
  10344. Declare Sub Click(Source As Button)
  10345. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10346. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10347. Private Sub BindEvents(Byval Objectname_ As String)
  10348.     Static Source As BUTTON
  10349.     Set Source = Bind(Objectname_)
  10350.     On Event Click From Source Call Click
  10351. End Sub
  10352. '++LotusScript Development Environment:2:2:Click:1:12
  10353. Sub Click(Source As Button)
  10354.     Call cMemoObject.ReplyToAll()
  10355. End Sub
  10356. PostedDateh
  10357. IsMailStationery
  10358.     5S6S7S8S10S11S12S13S
  10359. act_REPLY.GIF|act_REPLY?
  10360. Rename Stationery
  10361. xxTitle
  10362. Rename Stationery
  10363.     0S0E
  10364. xxPrompt
  10365. Please enter new stationery name.
  10366. MailStationeryName
  10367. xxTitle
  10368. xxPrompt
  10369. MailStationeryName
  10370.     0R1S
  10371.     0RS>
  10372. IsMailStationery
  10373.     2S3S4S5S
  10374. act_RENAME.GIF|act_RENAME?
  10375. Address...T
  10376. EnterSendTo
  10377. EnterCopyTo
  10378. EnterBlindCopyTo
  10379.     0S0E
  10380. PostedDateh
  10381. IsMailStationery
  10382.     5S6S7S8S10S11S12S13S
  10383. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  10384. Delivery Options...K~
  10385. DeliveryOptions
  10386. Delivery Options
  10387.     0R4S10S
  10388. PostedDateh
  10389.     5S6S7S8S
  10390. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  10391. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  10392. Use "CommonUI"
  10393. '++LotusScript Development Environment:2:5:(Forward):0:1
  10394. Declare Sub Click(Source As Button)
  10395. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10396. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10397. Private Sub BindEvents(Byval Objectname_ As String)
  10398. Static Source As BUTTON
  10399. Set Source = Bind(Objectname_)
  10400. On Event Click From Source Call Click
  10401. End Sub
  10402. '++LotusScript Development Environment:2:2:Click:1:12
  10403. Sub Click(Source As Button)
  10404.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  10405. End Sub
  10406. act_COPYINTO.GIF|act_COPYINTO?
  10407. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  10408. Use "CommonUI"
  10409. '++LotusScript Development Environment:2:5:(Forward):0:1
  10410. Declare Sub Click(Source As Button)
  10411. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10412. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10413. Private Sub BindEvents(Byval Objectname_ As String)
  10414. Static Source As BUTTON
  10415. Set Source = Bind(Objectname_)
  10416. On Event Click From Source Call Click
  10417. End Sub
  10418. '++LotusScript Development Environment:2:2:Click:1:12
  10419. Sub Click(Source As Button)
  10420.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  10421. End Sub
  10422. act_COPYINTO.GIF|act_COPYINTO?
  10423. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  10424. Use "CommonUI"
  10425. '++LotusScript Development Environment:2:5:(Forward):0:1
  10426. Declare Sub Click(Source As Button)
  10427. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10428. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10429. Private Sub BindEvents(Byval Objectname_ As String)
  10430.     Static Source As BUTTON
  10431.     Set Source = Bind(Objectname_)
  10432.     On Event Click From Source Call Click
  10433. End Sub
  10434. '++LotusScript Development Environment:2:2:Click:1:12
  10435. Sub Click(Source As Button)
  10436.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  10437. End Sub
  10438. act_COPYINTO.GIF|act_COPYINTO?
  10439. Tools\Preferences...2
  10440. (Preferences)
  10441.     0S0E
  10442. act_TOOLS.GIF|act_TOOLS?
  10443. Tools\Delivery Information...
  10444. xxTitle
  10445. Delivery Information
  10446.     0S0E
  10447. DeliveryInfo
  10448. xxTitle
  10449.     0RR4S5S6S7S8S9S10S11S12S14S
  10450. act_TOOLS.GIF|act_TOOLS?
  10451. Tools\Out of Office...8
  10452. (EditOfficeProfile)
  10453.     0S0E
  10454. act_TOOLS.GIF|act_TOOLS?
  10455. Tools\Add Sender to Address Book<
  10456. (AddSenderToAddressBook)
  10457.     0S0E
  10458. act_TOOLS.GIF|act_TOOLS?
  10459. Tools\New Memo - Using Stationery
  10460. '++LotusScript Development Environment:2:5:(Options):0:66
  10461. '++LotusScript Development Environment:2:5:(Forward):0:1
  10462. Declare Sub Click(Source As Button)
  10463. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10464. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10465. Private Sub BindEvents(Byval Objectname_ As String)
  10466.     Static Source As BUTTON
  10467.     Set Source = Bind(Objectname_)
  10468.     On Event Click From Source Call Click
  10469. End Sub
  10470. '++LotusScript Development Environment:2:2:Click:1:12
  10471. Sub Click(Source As Button)
  10472.     Dim session As New notessession
  10473.     Dim uiws As New notesuiworkspace
  10474.     Dim collection As notesdocumentcollection
  10475.     Dim noteUIEditDocument As notesuidocument
  10476.     Dim database As NotesDatabase
  10477.     Set noteCursorDoc = session.currentdatabase.createdocument
  10478.     Set database = session.currentdatabase
  10479.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  10480.     Set noteCursorDoc = collection.getfirstdocument
  10481.     If Not noteCursorDoc Is Nothing Then
  10482.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  10483.     End If
  10484. End Sub
  10485. act_TOOLS.GIF|act_TOOLS?
  10486. Tools\Insert Signature...
  10487. '++LotusScript Development Environment:2:5:(Options):0:66
  10488. '++LotusScript Development Environment:2:5:(Forward):0:1
  10489. Declare Sub Click(Source As Button)
  10490. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10491. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10492. Private Sub BindEvents(Byval Objectname_ As String)
  10493.     Static Source As BUTTON
  10494.     Set Source = Bind(Objectname_)
  10495.     On Event Click From Source Call Click
  10496. End Sub
  10497. '++LotusScript Development Environment:2:2:Click:1:12
  10498. Sub Click(Source As Button)
  10499.     Call cMemoObject.InsertSignature(False)
  10500. End Sub
  10501. PostedDateh
  10502.     5S6S7S8S
  10503. act_TOOLS.GIF|act_TOOLS?
  10504. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  10505. '++LotusScript Development Environment:2:5:(Forward):0:1
  10506. Declare Sub Click(Source As Button)
  10507. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10508. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10509. Private Sub BindEvents(Byval Objectname_ As String)
  10510.     Static Source As BUTTON
  10511.     Set Source = Bind(Objectname_)
  10512.     On Event Click From Source Call Click
  10513. End Sub
  10514. '++LotusScript Development Environment:2:2:Click:1:12
  10515. Sub Click(Source As Button)
  10516.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  10517.     Call cMemoObject.noteUIMemo.save()
  10518.     Call cMemoObject.noteUIMemo.close()
  10519. End Sub
  10520. PostedDateh
  10521. IsMailStationery
  10522.     5S6S7S8S10S11S12S13S
  10523. act_TOOLS.GIF|act_TOOLS?
  10524. New Memo(
  10525.     0S0E
  10526. act_NEW.GIF|act_NEW?
  10527. ForwardK
  10528.     1S10S14S16S23S
  10529. path"
  10530. /Memo?OpenForm&UNID="
  10531. &forward"
  10532. act_FORWARD.GIF|act_FORWARD?
  10533. Reply...\Reply*
  10534. Reply
  10535.     0S0E
  10536. act_REPLY.GIF|act_REPLY?
  10537. Send...\Send`
  10538. tmpSendOptions
  10539. act_SEND.GIF|act_SEND?
  10540. Send...\Send and Save
  10541. tmpSendOptions
  10542. act_SEND.GIF|act_SEND?
  10543. Send...\Save as Draft
  10544. act_SEND.GIF|act_SEND?
  10545. alert('Feature in Progress')
  10546. Reply...\Reply with HistoryK
  10547. act_REPLY.GIF|act_REPLY?
  10548. alert('Feature in Progress')
  10549. Address...
  10550. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  10551. var pathname = (window.location.pathname);
  10552. if (navigator.appName =='Netscape') {
  10553. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  10554.     } else {
  10555. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  10556. Delivery Options...K
  10557. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  10558. var pathname = (window.location.pathname);
  10559. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  10560. Edit 
  10561.     0S0E
  10562. act_EDIT.GIF|act_EDIT?
  10563. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  10564. '++LotusScript Development Environment:2:5:(Forward):0:1
  10565. Declare Sub Click(Source As Button)
  10566. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10567. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10568. Private Sub BindEvents(Byval Objectname_ As String)
  10569.     Static Source As BUTTON
  10570.     Set Source = Bind(Objectname_)
  10571.     On Event Click From Source Call Click
  10572. End Sub
  10573. '++LotusScript Development Environment:2:2:Click:1:12
  10574. Sub Click(Source As Button)
  10575.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  10576.     Call cMemoObject.noteUIMemo.save()
  10577.     Call cMemoObject.noteUIMemo.close()
  10578. End Sub
  10579. IsMailStationery
  10580.     1S2S3S
  10581. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  10582. '++LotusScript Development Environment:2:5:(Forward):0:1
  10583. Declare Sub Click(Source As Button)
  10584. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10585. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10586. Private Sub BindEvents(Byval Objectname_ As String)
  10587.     Static Source As BUTTON
  10588.     Set Source = Bind(Objectname_)
  10589.     On Event Click From Source Call Click
  10590. End Sub
  10591. '++LotusScript Development Environment:2:2:Click:1:12
  10592. Sub Click(Source As Button)
  10593.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  10594.     Call cMemoObject.noteUIMemo.save()
  10595.     Call cMemoObject.noteUIMemo.close()
  10596. End Sub
  10597. PostedDateh
  10598. IsMailStationery
  10599.     7S8S9S10S13S14S15S16S
  10600. Save And File
  10601. '++LotusScript Development Environment:2:5:(Options):0:66
  10602. '++LotusScript Development Environment:2:5:(Forward):0:1
  10603. Declare Sub Click(Source As Button)
  10604. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10605. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10606. Private Sub BindEvents(Byval Objectname_ As String)
  10607.     Static Source As BUTTON
  10608.     Set Source = Bind(Objectname_)
  10609.     On Event Click From Source Call Click
  10610. End Sub
  10611. '++LotusScript Development Environment:2:2:Click:1:12
  10612. Sub Click(Source As Button)
  10613.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  10614.     Call cMemoObject.noteUIMemo.save()
  10615.     Call cMemoObject.noteUIMemo.close()
  10616. End Sub
  10617. PostedDateh
  10618. IsMailStationery
  10619.     7S8S9S10S13S14S15S16S
  10620. Close
  10621. '++LotusScript Development Environment:2:5:(Options):0:66
  10622. '++LotusScript Development Environment:2:5:(Forward):0:1
  10623. Declare Sub Click(Source As Button)
  10624. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10625. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10626. Private Sub BindEvents(Byval Objectname_ As String)
  10627.     Static Source As BUTTON
  10628.     Set Source = Bind(Objectname_)
  10629.     On Event Click From Source Call Click
  10630. End Sub
  10631. '++LotusScript Development Environment:2:2:Click:1:12
  10632. Sub Click(Source As Button)
  10633.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  10634.     Call cMemoObject.noteUIMemo.save()
  10635.     Call cMemoObject.noteUIMemo.close()
  10636. End Sub
  10637. IsMailStationery
  10638.     0S1S2S
  10639. New Memo(
  10640.     0S0E
  10641. Reply\ReplyK0
  10642. Reply
  10643.     0S0E
  10644. Reply\Reply with History
  10645. Reply with History
  10646. This document is truncated.
  10647.     4S8S10S13S
  10648. Reply with history
  10649. Reply\Reply to AllX
  10650. MailStEd
  10651.     0S0E
  10652. Reply
  10653. Reply\Reply to All with HistoryK
  10654. MailStEd
  10655.     0S0E
  10656. Reply with History
  10657. This document is truncated.
  10658.     0R4S8S10S13S
  10659. Reply with history
  10660. _Forward
  10661. IsMailStationery
  10662.     1S2S
  10663.     0S1S2S
  10664. Delete 
  10665.     0S0E
  10666. _Move To Folder...
  10667. _Remove From Folder...
  10668. Categori_zeK
  10669. SSend
  10670. Send'++LotusScript Development Environment:2:5:(Options):0:66
  10671. '++LotusScript Development Environment:2:5:(Forward):0:1
  10672. Declare Sub Click(Source As Button)
  10673. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10674. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10675. Private Sub BindEvents(Byval Objectname_ As String)
  10676.     Static Source As BUTTON
  10677.     Set Source = Bind(Objectname_)
  10678.     On Event Click From Source Call Click
  10679. End Sub
  10680. '++LotusScript Development Environment:2:2:Click:1:12
  10681. Sub Click(Source As Button)
  10682.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  10683.     Call cMemoObject.noteUIMemo.save()
  10684.     Call cMemoObject.noteUIMemo.close()    
  10685. End Sub
  10686. PostedDateh
  10687. IsMailStationery
  10688.     5S6S7S8S10S11S12S13S
  10689. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  10690. '++LotusScript Development Environment:2:5:(Forward):0:1
  10691. Declare Sub Click(Source As Button)
  10692. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10693. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10694. Private Sub BindEvents(Byval Objectname_ As String)
  10695.     Static Source As BUTTON
  10696.     Set Source = Bind(Objectname_)
  10697.     On Event Click From Source Call Click
  10698. End Sub
  10699. '++LotusScript Development Environment:2:2:Click:1:12
  10700. Sub Click(Source As Button)
  10701.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  10702.     Call cMemoObject.noteUIMemo.save()
  10703.     Call cMemoObject.noteUIMemo.close()    
  10704. End Sub
  10705. PostedDateh
  10706. IsMailStationery
  10707.     5S6S7S8S12S13S
  10708. Send and File
  10709. '++LotusScript Development Environment:2:5:(Options):0:66
  10710. '++LotusScript Development Environment:2:5:(Forward):0:1
  10711. Declare Sub Click(Source As Button)
  10712. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10713. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10714. Private Sub BindEvents(Byval Objectname_ As String)
  10715.     Static Source As BUTTON
  10716.     Set Source = Bind(Objectname_)
  10717.     On Event Click From Source Call Click
  10718. End Sub
  10719. '++LotusScript Development Environment:2:2:Click:1:12
  10720. Sub Click(Source As Button)
  10721.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  10722.     Call cMemoObject.noteUIMemo.save()
  10723.     Call cMemoObject.noteUIMemo.close()    
  10724. End Sub
  10725. PostedDateh
  10726. IsMailStationery
  10727.     5S6S7S8S12S13S
  10728. Save'++LotusScript Development Environment:2:5:(Options):0:66
  10729. '++LotusScript Development Environment:2:5:(Forward):0:1
  10730. Declare Sub Click(Source As Button)
  10731. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10732. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10733. Private Sub BindEvents(Byval Objectname_ As String)
  10734.     Static Source As BUTTON
  10735.     Set Source = Bind(Objectname_)
  10736.     On Event Click From Source Call Click
  10737. End Sub
  10738. '++LotusScript Development Environment:2:2:Click:1:12
  10739. Sub Click(Source As Button)
  10740.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  10741.     Call cMemoObject.noteUIMemo.save()
  10742.     Call cMemoObject.noteUIMemo.close()
  10743. End Sub
  10744. IsMailStationery
  10745.     2S3S
  10746. Save As Draft
  10747. '++LotusScript Development Environment:2:5:(Options):0:66
  10748. '++LotusScript Development Environment:2:5:(Forward):0:1
  10749. Declare Sub Click(Source As Button)
  10750. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10751. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10752. Private Sub BindEvents(Byval Objectname_ As String)
  10753.     Static Source As BUTTON
  10754.     Set Source = Bind(Objectname_)
  10755.     On Event Click From Source Call Click
  10756. End Sub
  10757. '++LotusScript Development Environment:2:2:Click:1:12
  10758. Sub Click(Source As Button)
  10759.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  10760.     Call cMemoObject.noteUIMemo.save()
  10761.     Call cMemoObject.noteUIMemo.close()
  10762. End Sub
  10763. PostedDateh
  10764. IsMailStationery
  10765.     5S6S7S8S10S11S12S13S
  10766. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  10767. '++LotusScript Development Environment:2:5:(Forward):0:1
  10768. Declare Sub Click(Source As Button)
  10769. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10770. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10771. Private Sub BindEvents(Byval Objectname_ As String)
  10772.     Static Source As BUTTON
  10773.     Set Source = Bind(Objectname_)
  10774.     On Event Click From Source Call Click
  10775. End Sub
  10776. '++LotusScript Development Environment:2:2:Click:1:12
  10777. Sub Click(Source As Button)
  10778.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  10779.     Call cMemoObject.noteUIMemo.save()
  10780.     Call cMemoObject.noteUIMemo.close()
  10781. End Sub
  10782. IsMailStationery
  10783.     1S2S
  10784. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  10785. '++LotusScript Development Environment:2:5:(Forward):0:1
  10786. Declare Sub Click(Source As Button)
  10787. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10788. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10789. Private Sub BindEvents(Byval Objectname_ As String)
  10790.     Static Source As BUTTON
  10791.     Set Source = Bind(Objectname_)
  10792.     On Event Click From Source Call Click
  10793. End Sub
  10794. '++LotusScript Development Environment:2:2:Click:1:12
  10795. Sub Click(Source As Button)
  10796.     Call cMemoObject.ReplyToAll()
  10797. End Sub
  10798. PostedDateh
  10799. IsMailStationery
  10800.     5S6S7S8S10S11S12S13S
  10801. Rename Stationery
  10802. xxTitle
  10803. Rename Stationery
  10804.     0S0E
  10805. xxPrompt
  10806. Please enter new stationery name.
  10807. MailStationeryName
  10808. xxTitle
  10809. xxPrompt
  10810. MailStationeryName
  10811.     0R1S
  10812.     0RS>
  10813. IsMailStationery
  10814.     2S3S4S5S
  10815. Address...T
  10816. EnterSendTo
  10817. EnterCopyTo
  10818. EnterBlindCopyTo
  10819.     0S0E
  10820. PostedDateh
  10821. IsMailStationery
  10822.     5S6S7S8S10S11S12S13S
  10823. Delivery Options...K~
  10824. DeliveryOptions
  10825. Delivery Options
  10826.     0R4S10S
  10827. PostedDateh
  10828.     5S6S7S8S
  10829. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  10830. Use "CommonUI"
  10831. '++LotusScript Development Environment:2:5:(Forward):0:1
  10832. Declare Sub Click(Source As Button)
  10833. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10834. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10835. Private Sub BindEvents(Byval Objectname_ As String)
  10836. Static Source As BUTTON
  10837. Set Source = Bind(Objectname_)
  10838. On Event Click From Source Call Click
  10839. End Sub
  10840. '++LotusScript Development Environment:2:2:Click:1:12
  10841. Sub Click(Source As Button)
  10842.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  10843. End Sub
  10844. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  10845. Use "CommonUI"
  10846. '++LotusScript Development Environment:2:5:(Forward):0:1
  10847. Declare Sub Click(Source As Button)
  10848. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10849. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10850. Private Sub BindEvents(Byval Objectname_ As String)
  10851. Static Source As BUTTON
  10852. Set Source = Bind(Objectname_)
  10853. On Event Click From Source Call Click
  10854. End Sub
  10855. '++LotusScript Development Environment:2:2:Click:1:12
  10856. Sub Click(Source As Button)
  10857.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  10858. End Sub
  10859. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  10860. Use "CommonUI"
  10861. '++LotusScript Development Environment:2:5:(Forward):0:1
  10862. Declare Sub Click(Source As Button)
  10863. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10864. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10865. Private Sub BindEvents(Byval Objectname_ As String)
  10866.     Static Source As BUTTON
  10867.     Set Source = Bind(Objectname_)
  10868.     On Event Click From Source Call Click
  10869. End Sub
  10870. '++LotusScript Development Environment:2:2:Click:1:12
  10871. Sub Click(Source As Button)
  10872.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  10873. End Sub
  10874. Tools\Preferences...2
  10875. (Preferences)
  10876.     0S0E
  10877. Tools\Delivery Information...
  10878. xxTitle
  10879. Delivery Information
  10880.     0S0E
  10881. DeliveryInfo
  10882. xxTitle
  10883.     0RR4S5S6S7S8S9S10S11S12S14S
  10884. Tools\Out of Office...8
  10885. (EditOfficeProfile)
  10886.     0S0E
  10887. Tools\Add Sender to Address Book<
  10888. (AddSenderToAddressBook)
  10889.     0S0E
  10890. Tools\New Memo - Using Stationery
  10891. '++LotusScript Development Environment:2:5:(Options):0:66
  10892. '++LotusScript Development Environment:2:5:(Forward):0:1
  10893. Declare Sub Click(Source As Button)
  10894. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10895. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10896. Private Sub BindEvents(Byval Objectname_ As String)
  10897.     Static Source As BUTTON
  10898.     Set Source = Bind(Objectname_)
  10899.     On Event Click From Source Call Click
  10900. End Sub
  10901. '++LotusScript Development Environment:2:2:Click:1:12
  10902. Sub Click(Source As Button)
  10903.     Dim session As New notessession
  10904.     Dim uiws As New notesuiworkspace
  10905.     Dim collection As notesdocumentcollection
  10906.     Dim noteUIEditDocument As notesuidocument
  10907.     Dim database As NotesDatabase
  10908.     Set noteCursorDoc = session.currentdatabase.createdocument
  10909.     Set database = session.currentdatabase
  10910.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  10911.     Set noteCursorDoc = collection.getfirstdocument
  10912.     If Not noteCursorDoc Is Nothing Then
  10913.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  10914.     End If
  10915. End Sub
  10916. Tools\Insert Signature...
  10917. '++LotusScript Development Environment:2:5:(Options):0:66
  10918. '++LotusScript Development Environment:2:5:(Forward):0:1
  10919. Declare Sub Click(Source As Button)
  10920. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10921. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10922. Private Sub BindEvents(Byval Objectname_ As String)
  10923.     Static Source As BUTTON
  10924.     Set Source = Bind(Objectname_)
  10925.     On Event Click From Source Call Click
  10926. End Sub
  10927. '++LotusScript Development Environment:2:2:Click:1:12
  10928. Sub Click(Source As Button)
  10929.     Call cMemoObject.InsertSignature(False)
  10930. End Sub
  10931. PostedDateh
  10932.     5S6S7S8S
  10933. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  10934. '++LotusScript Development Environment:2:5:(Forward):0:1
  10935. Declare Sub Click(Source As Button)
  10936. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10937. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10938. Private Sub BindEvents(Byval Objectname_ As String)
  10939.     Static Source As BUTTON
  10940.     Set Source = Bind(Objectname_)
  10941.     On Event Click From Source Call Click
  10942. End Sub
  10943. '++LotusScript Development Environment:2:2:Click:1:12
  10944. Sub Click(Source As Button)
  10945.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  10946.     Call cMemoObject.noteUIMemo.save()
  10947.     Call cMemoObject.noteUIMemo.close()
  10948. End Sub
  10949. PostedDateh
  10950. IsMailStationery
  10951.     5S6S7S8S10S11S12S13S
  10952. New Memo(
  10953.     0S0E
  10954. ForwardK
  10955.     1S10S14S16S23S
  10956. path"
  10957. /Memo?OpenForm&UNID="
  10958. &forward"
  10959. Reply...\Reply*
  10960. Reply
  10961.     0S0E
  10962. Send...\Send`
  10963. tmpSendOptions
  10964. Send...\Send and Save
  10965. tmpSendOptions
  10966. Edit 
  10967.     0S0E
  10968. Lotus Product
  10969. }HV0.0'
  10970. Lotus Product(
  10971. #V0.0/8
  10972. }d    #8l
  10973. Lotus Product(
  10974. #V0.0/8
  10975. }d    #8l
  10976. Lotus Producte,
  10977. V0.0#
  10978. e,0sJ
  10979. f,lm}
  10980. f,lm}
  10981. f,ll}
  10982. KXg,lm}
  10983. h}`i#1
  10984. h,lm}
  10985. K@k,lm}
  10986. h}|l#1
  10987. k,`sX
  10988. Lotus Product(
  10989. #V0.0/8
  10990. }d    #8l
  10991. Lotus Producte,
  10992. V0.0#
  10993. e,0sJ
  10994. f,lm}
  10995. f,lm}
  10996. f,ll}
  10997. KXg,lm}
  10998. h}`i#1
  10999. h,lm}
  11000. K@k,lm}
  11001. h}|l#1
  11002. k,`sX
  11003. Lotus Product
  11004. }HV0.0'
  11005. Lotus Product(
  11006. #V0.0/8
  11007. }d    #8l
  11008. Lotus Product
  11009. OBJECT
  11010. Lotus Product
  11011. }HV0.0'
  11012. Lotus Product
  11013. OBJECT
  11014. Lotus Product
  11015. OBJECT
  11016. Lotus Product
  11017. Lotus Product
  11018. OBJECT
  11019. Lotus Product
  11020. Lotus Product
  11021. OBJECT
  11022. Lotus Product
  11023. OBJECT
  11024. O=Lotus Notes
  11025. O=Lotus Notes
  11026. PURSAFO
  11027. |.:#U
  11028. O=Lotus Notes
  11029. CN=Lotus Notes Template Development/O=Lotus Notes
  11030. PURSAFO
  11031. $$FormPostOpenAction
  11032. $TypeIcon
  11033. ExpireDate
  11034. ReplyDate
  11035. ComposedDate
  11036. $HTMLDocumentStyles
  11037. $HeaderArea
  11038. $RegionFrameset
  11039. $NoBackgroundOverride
  11040. $Info
  11041. $WINDOWTITLE
  11042. $WEBQuerySave
  11043. $WEBQueryOpen
  11044. $AppHelpFormula
  11045. $WebFlags
  11046. $Script
  11047. $$Script_O
  11048. $$ScriptName
  11049. $$FormScript
  11050. $$$FormScript_O
  11051. $Body
  11052. $V5ACTIONS
  11053. $ACTIONS
  11054. $SCRIPTOBJ_0
  11055. $SCRIPTOBJ_1
  11056. $SCRIPTOBJ_2
  11057. $SCRIPTOBJ_3
  11058. $SCRIPTOBJ_16
  11059. $SCRIPTOBJ_17
  11060. $SCRIPTOBJ_18
  11061. $SCRIPTOBJ_19
  11062. $SCRIPTOBJ_20
  11063. $SCRIPTOBJ_21
  11064. $SCRIPTOBJ_22
  11065. $SCRIPTOBJ_26
  11066. $SCRIPTOBJ_27
  11067. $SCRIPTOBJ_28
  11068. $SCRIPTOBJ_33
  11069. $SCRIPTOBJ_34
  11070. $SCRIPTOBJ_35
  11071. VersionOpt|
  11072.     6S7S9S14S
  11073. $VersionOpt
  11074.     0R1S2S3S
  11075. SavedOnce
  11076.     0R1S2S3S
  11077. PostedDate(
  11078.     0R1S2S3S
  11079. DeliveredDate
  11080.     0R1S2S3S
  11081. $AutoEditMode
  11082.     0R1S2S3S
  11083. MailSaveOptions
  11084.     0R1S2S3S
  11085. VersionOpt
  11086.     0R4S
  11087. HeaderRegion
  11088. BodyRegion
  11089. New Reply
  11090. Subject
  11091. Subject
  11092. Subject
  11093.     4S6S12S13S14S15S17S21S23S25S26S28S
  11094. wMemo
  11095. returnreceipt
  11096. wMemoOpen
  11097. Query_string
  11098. forward
  11099. wMemoOpen
  11100.     13R24S
  11101. (Help)
  11102. MAIL_F_REPLY_H
  11103.     0S0E
  11104. &Arial
  11105. '++LotusScript Development Environment:2:5:(Options):0:74
  11106. Option Public
  11107. Option Explicit
  11108. Use "CoreEmailClasses"
  11109. '++LotusScript Development Environment:2:5:(Forward):0:1
  11110. '++LotusScript Development Environment:2:5:(Declarations):0:10
  11111. Dim cMemoObject As Variant
  11112. Lotus Product
  11113. }HV0.0'
  11114.  Reply With History'++LotusScript Development Environment:2:5:(Options):0:66
  11115. '++LotusScript Development Environment:2:5:(Forward):0:1
  11116. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11117. Declare Sub Postopen(Source As Notesuidocument)
  11118. Declare Sub Postmodechange(Source As Notesuidocument)
  11119. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11120. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11121. Declare Sub Postsave(Source As Notesuidocument)
  11122. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  11123. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11124. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11125. Private Sub BindEvents(Byval Objectname_ As String)
  11126.     Static Source As NOTESUIDOCUMENT
  11127.     Set Source = Bind(Objectname_)
  11128.     On Event Queryclose From Source Call Queryclose
  11129.     On Event Postopen From Source Call Postopen
  11130.     On Event Postmodechange From Source Call Postmodechange
  11131.     On Event Querysave From Source Call Querysave
  11132.     On Event Queryopen From Source Call Queryopen
  11133.     On Event Postsave From Source Call Postsave
  11134.     On Event Querymodechange From Source Call Querymodechange
  11135. End Sub
  11136. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11137. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11138.     Call cMemoObject.QueryClose(Continue)
  11139. End Sub
  11140. '++LotusScript Development Environment:2:2:Postopen:1:12
  11141. Sub Postopen(Source As Notesuidocument)
  11142.     Call cMemoObject.PostOpen(Source)    
  11143. End Sub
  11144. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  11145. Sub Postmodechange(Source As Notesuidocument)
  11146.     Call cMemoObject.PostModeChange()
  11147. End Sub
  11148. '++LotusScript Development Environment:2:2:Querysave:1:12
  11149. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11150.     Call cMemoObject.QuerySave(Continue)
  11151. End Sub
  11152. '++LotusScript Development Environment:2:2:Queryopen:1:12
  11153. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11154.     Set cMemoObject = New UIMemoDocument          
  11155.     Call cMemoObject.Init(Source,Isnewdoc) 
  11156. End Sub 
  11157. '++LotusScript Development Environment:2:2:Postsave:1:12
  11158. Sub Postsave(Source As Notesuidocument)
  11159.     Call cMemoObject.PostSave()
  11160. End Sub
  11161. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  11162. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  11163.     Continue = cMemoObject.QueryModeChange(Source)
  11164. End Sub
  11165. Lotus Product9
  11166. KV0.0
  11167. }D    #K
  11168.     Always hidden:  
  11169.     0S0E
  11170. NamePreferencez
  11171. NamePreference
  11172. Notes
  11173. PostedDateh
  11174. NamePreference
  11175. AltSendTo
  11176. AltSendTo
  11177. AltCopyTo
  11178. SendTo
  11179. CopyTo
  11180. InheritedSendTo
  11181. SendTo
  11182. CopyTo
  11183.     9S10S12S13S30S31S36S37S39S41SInheritedSendTo
  11184. InheritedSendTo
  11185. Notes
  11186. PostedDateh
  11187. ReplyTo
  11188. ReplyTo
  11189.     9S10S12S13SInheritedReplyToz
  11190. InheritedReplyTo
  11191. Principal
  11192. Principal
  11193. Principal
  11194. Fromh
  11195.     1S2S8S9S10S11S13S15S20S22S
  11196. FromDomainh
  11197. FromDomain"
  11198.     0R7S8S9S10S11S13SInheritedFrom
  11199. InheritedFrom
  11200. Notes
  11201. PostedDateh
  11202. FromDomain
  11203. InheritedFromDomain
  11204. FromDomain
  11205.     9S10S12S13SInheritedFromDomain
  11206. InheritedFromDomain
  11207. Principal
  11208. CalendarProfile
  11209. Owner
  11210.     1S2S3S7S
  11211. FromPerson memo is from.z
  11212. AltFrom
  11213.     10SAltFrom
  11214. CalendarProfile
  11215. DefaultLogo
  11216. stdNotesLtr0
  11217. CalendarProfile
  11218. DefaultLogo
  11219. StdNotesLtrGateway
  11220.     4S13S24R25S29S32S34S
  11221. Logoz
  11222. Black
  11223. BGTableColor
  11224. Principal
  11225. Principal
  11226. Principal
  11227. NamePreference
  11228. AltFrom
  11229. AltFrom
  11230.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S24RTTTT26RTTT27RTTT
  11231.     0R1S2S8S
  11232.     0R1S2S5S6S8S14S18S
  11233.     0R1S2S5S6S8S14S18S
  11234. SentBy
  11235. X400FreeForm^
  11236.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  11237. SentBy
  11238. FromDomain
  11239. FromDomain
  11240. FromDomain
  11241. FromDomain
  11242.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  11243. FromName
  11244. Principal
  11245. Principal
  11246. Principal
  11247.     0RR1S2S8S9S14S16S20S
  11248. FromStops
  11249.     0R1S2S6S
  11250. FromName
  11251. FromStops
  11252. FromStops
  11253. FromStops
  11254.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  11255. tmpDisplayFrom_Preview
  11256.     0S0E
  11257. Signz
  11258.     0S0E
  11259. Encrypt
  11260. Encrypt
  11261. $KeepPrivate
  11262. $KeepPrivate
  11263. $KeepPrivate
  11264.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  11265.     0S0E
  11266. DefaultMailSaveOptionsz
  11267. DefaultMailSaveOptions
  11268. .,$,  , :
  11269. Path_Info_Decoded
  11270. Path_Info
  11271. .,$,  , :
  11272. Query_String_Decoded
  11273. Query_String
  11274. PrintingMailGraphic
  11275. $tempfoo
  11276. Importance
  11277. .,$,  , :
  11278. DeliveryReport
  11279. .,$,  , :
  11280. DeliveryPriority
  11281. ReturnReceipt
  11282. CalendarProfile
  11283. DefaultMailOpt
  11284. tmpSendOptions
  11285. Send|1Send and Save|2Save as Draft|3z
  11286. {FONT SIZE="2"}
  11287.     From:
  11288. tmpDisplayFrom_Preview
  11289. tmpDisplayFrom_NoLogo
  11290. tmpDisplayFrom_NoLogo
  11291. NamesList
  11292. NamePreference
  11293. AltSendTo
  11294. AltSendTo
  11295. SendTo
  11296.     11S12S
  11297. ImplodedNamesList
  11298. NamesList
  11299. ImplodedNamesList
  11300. ImplodedNamesList
  11301. ImplodedNamesList
  11302. tmpDisplaySendTo
  11303.     Subject:
  11304. Subject
  11305. Subject
  11306. Subject
  11307.     0S0E
  11308. TmpDisplaySubject_1
  11309. CC_Content
  11310. NamePreference
  11311. AltCopyTo
  11312. AltCopyTo
  11313. CopyTo
  11314.     7S8S9S
  11315. BCC_Content
  11316. DeliveredDate
  11317. BlindCopyTo
  11318.  (bcc: 
  11319. BlindCopyTo
  11320.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  11321. NamesList
  11322. CC_Content
  11323. BCC_Content
  11324.     0R9S10S
  11325. ImplodedNamesList
  11326. NamesList
  11327. ImplodedNamesList
  11328. ImplodedNamesList
  11329. ImplodedNamesList
  11330. tmpDisplayCC
  11331. $HideMailHeader
  11332.     0S0E
  11333. SendTo
  11334. CopyTo
  11335.   cc:  
  11336. CopyTo
  11337.     1S2S8S13S14S2E17S18S21S22S28S31S
  11338. ISMAILSTATIONERYh
  11339.     0S0E
  11340. tmpDisplayFrom_Preview
  11341. DisplayFrom_Preview
  11342. DisplayFrom_Preview
  11343. $HideMailHeader
  11344. Principal
  11345. Principal
  11346. Principal
  11347. Principal
  11348. Principal
  11349.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  11350.     Sent by: 
  11351. FromDomain
  11352. FromDomain
  11353. FromDomain
  11354. FromDomain
  11355.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  11356. FromName
  11357.     0RR1S2S6S
  11358. FromStops
  11359.     0R1S2S6S
  11360. FromName
  11361. FromStops
  11362. FromStops
  11363. FromStops
  11364.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  11365. tmpDisplaySentBy_1
  11366. PostedDateh
  11367. PostedDate
  11368.     4S5S10S12S
  11369. tmpDisplayDate_Preview_1Time/date memo was created or mailed.
  11370. tmpDisplayDate_Preview_1
  11371. ReplyDate
  11372. ReplyTo
  11373. $HideMailHeader
  11374.     2S3S4S5S6S7S9S10S14S15R
  11375. Please respond
  11376. ReplyTo
  11377. ReplyTo
  11378. ReplyDate
  11379. ReplyDate
  11380.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  11381. tmpDisplayReplyInfo_1
  11382. <FONT SIZE="2"><B><CENTER>
  11383. tmpDisplayFrom_Preview"
  11384.     0S0E
  11385. <P><CENTER>Sent by:<BR><CENTER>
  11386. tmpDisplaySentBy"
  11387.     0S0E
  11388. <P><CENTER>
  11389. PostedDateh
  11390. PostedDate
  11391. </B><BR>"
  11392.     11S13S
  11393. Please respond
  11394. ReplyTo
  11395. ReplyTo
  11396. ReplyDate
  11397. ReplyDate
  11398.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30S
  11399. IsMailStationery
  11400.     0S0E
  11401. $HideMailHeader
  11402. StdNotesLtr16
  11403.     7S9S10S11S13S15S
  11404.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  11405.       </DIV>
  11406. MailAddress
  11407. InheritedReplyTo
  11408. InheritedReplyTo
  11409. InheritedFrom
  11410. NamePreference
  11411. AltSendTo
  11412. AltSendTo
  11413. SendTo
  11414.     1S2S22S2E23S24S25S
  11415. MailAddress
  11416. EnterSendTo
  11417.     0S0E
  11418. EnterSendTo
  11419. No names found to send mail.{
  11420.     1S6S7S8S9S11S16S
  11421. EnterSendToList of primary people to send memo.
  11422. EnterSendTo
  11423. <FONT  SIZE="2">   
  11424.     0S0E
  11425. Size=50
  11426. MailAddress
  11427. InheritedReplyToh
  11428. InheritedReplyTo
  11429. InheritedReplyTo
  11430. InheritedFrom
  11431.     1S2S8S9S10S11S13S15S
  11432. MailAddress
  11433.     0RR4SSendTo
  11434.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  11435.       </DIV>
  11436. NamePreference
  11437. AltCopyTo
  11438. AltCopyTo
  11439. CopyTo
  11440.     10S11S12S&
  11441. EnterCopyTo
  11442.     0S0E
  11443. EnterCopyToList of people to send a copy of the memo.
  11444. EnterCopyTo
  11445. CC_Content
  11446. NamePreference
  11447. AltCopyTo
  11448. AltCopyTo
  11449. CopyTo
  11450.     11S12S13S
  11451. BCC_Content
  11452. DeliveredDate
  11453. BlindCopyTo
  11454.  (bcc: 
  11455. BlindCopyTo
  11456.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  11457. CC_Content
  11458. BCC_Content
  11459.     0R3S4S
  11460. tmpEnterCopyToList of people to send a copy of the memo.z
  11461. tmpEnterCopyTo
  11462. <FONT SIZE="2">   
  11463.     0S0E
  11464. Size=50
  11465. CopyTo
  11466.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  11467.     bcc:
  11468.       </DIV>
  11469.     bcc:
  11470. NamePreference
  11471. AltBlindCopyTo
  11472. AltBlindCopyTo
  11473. BlindCopyTo
  11474.     10S11S12S*
  11475. EnterBlindCopyTo}
  11476.     0S0E
  11477. EnterBlindCopyToList of undisclosed people to send copies of memo.z
  11478. EnterBlindCopyTo
  11479. <FONT SIZE="2">   
  11480.     0S0E
  11481. Size=50
  11482. BlindCopyTo
  11483.     <FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  11484.     Subject:
  11485.       </DIV>
  11486.     Subject:
  11487.     <P><FONT COLOR="000000" SIZE="2"> <DIV ALIGN="right">
  11488.     Attachments:
  11489.       </DIV>
  11490. Notes
  11491. <FONT SIZE="2">   
  11492.     0S0E
  11493. Size=50
  11494. Subject
  11495. Topic
  11496. Subject
  11497.     1S2S5S6S8S10S
  11498. Subj"
  11499.     0R10S12S16S17S19S21S22S23S
  11500. PhoneCaller
  11501. Phone Call: 
  11502. PhoneCaller
  11503. Subject
  11504.     7S8S9S11SSubjectSubject of memo.
  11505. Subject
  11506. Subject
  11507. tmpDisplaySubjectSubject of memo.
  11508. tmpDisplaySubject
  11509. tmpDisplayLinkz
  11510. tmpDisplayLink
  11511. {Font SIZE="2"}
  11512. BGTableColor
  11513. $HideMailHeader
  11514. Moods
  11515. PostedDate
  11516. SenderTag
  11517. Moods
  11518.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  11519. Bodyz
  11520.     Always Hidden: 
  11521.     0S0E
  11522. DueDateTime
  11523. ReplyDate
  11524. ReplyDate
  11525.     0R1S2S3S6S7S9S11S
  11526. Importance
  11527. Importance
  11528. Importance
  11529.     0R1S3S
  11530. DeliveryReport
  11531. DeliveryReport
  11532. DeliveryReport
  11533.     0R1S3S
  11534. DeliveryPriority
  11535. DeliveryPriority
  11536. DeliveryPriority
  11537.     0R1S3S
  11538. UpdateProfileNote
  11539. UpdateProfileNote
  11540. UpdateProfileNote
  11541.     0R1S3S
  11542. ReturnReceipt
  11543. ReturnReceipt
  11544. ReturnReceipt
  11545.     0R1S3S
  11546. $KeepPrivate
  11547. $KeepPrivate
  11548. $KeepPrivate
  11549.     0R1S3S
  11550. ReplyDate
  11551. ReplyDate
  11552. ReplyDate
  11553.     0R1S3S
  11554. ExpireDate
  11555. ExpireDate
  11556. ExpireDate
  11557.     0R1S3S
  11558. ReplyTo
  11559. ReplyTo
  11560. ReplyTo
  11561.     0R1S3S
  11562. MimeFormat
  11563. MimeFormat
  11564. MimeFormat
  11565.     0R1S3S
  11566. SMTPEncoding
  11567. SMTPEncoding
  11568. SMTPEncoding
  11569.     0R1S3S
  11570. UpdateProfileNote
  11571. UpdateProfileNote
  11572. UpdateProfileNote
  11573.     0R1S
  11574. MIMEMailCharset
  11575. MIMEMailCharset
  11576. MIMEMailCharset
  11577.     0R1S
  11578. StripItemsIfDocIsBeingMailed
  11579. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  11580. '++LotusScript Development Environment:2:5:(Forward):0:1
  11581. Declare Sub Click(Source As Button)
  11582. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11583. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11584. Private Sub BindEvents(Byval Objectname_ As String)
  11585.     Static Source As BUTTON
  11586.     Set Source = Bind(Objectname_)
  11587.     On Event Click From Source Call Click
  11588. End Sub
  11589. '++LotusScript Development Environment:2:2:Click:1:12
  11590. Sub Click(Source As Button)
  11591.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  11592.     Call cMemoObject.noteUIMemo.save()
  11593.     Call cMemoObject.noteUIMemo.close()
  11594. End Sub
  11595. PostedDateh
  11596. IsMailStationery
  11597.     7S8S9S10S13S14S15S16S
  11598. Save And File
  11599. '++LotusScript Development Environment:2:5:(Options):0:66
  11600. '++LotusScript Development Environment:2:5:(Forward):0:1
  11601. Declare Sub Click(Source As Button)
  11602. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11603. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11604. Private Sub BindEvents(Byval Objectname_ As String)
  11605.     Static Source As BUTTON
  11606.     Set Source = Bind(Objectname_)
  11607.     On Event Click From Source Call Click
  11608. End Sub
  11609. '++LotusScript Development Environment:2:2:Click:1:12
  11610. Sub Click(Source As Button)
  11611.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  11612.     Call cMemoObject.noteUIMemo.save()
  11613.     Call cMemoObject.noteUIMemo.close()
  11614. End Sub
  11615. PostedDateh
  11616. IsMailStationery
  11617.     7S8S9S10S13S14S15S16S
  11618. Close
  11619. '++LotusScript Development Environment:2:5:(Options):0:66
  11620. '++LotusScript Development Environment:2:5:(Forward):0:1
  11621. Declare Sub Click(Source As Button)
  11622. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11623. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11624. Private Sub BindEvents(Byval Objectname_ As String)
  11625.     Static Source As BUTTON
  11626.     Set Source = Bind(Objectname_)
  11627.     On Event Click From Source Call Click
  11628. End Sub
  11629. '++LotusScript Development Environment:2:2:Click:1:12
  11630. Sub Click(Source As Button)
  11631.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  11632.     Call cMemoObject.noteUIMemo.save()
  11633.     Call cMemoObject.noteUIMemo.close()
  11634. End Sub
  11635. IsMailStationery
  11636.     0S1S2S
  11637. New Memo(
  11638.     0S0E
  11639. act_NEWMEMO.GIF|act_NEWMEMO?
  11640. Reply\ReplyK0
  11641. Reply
  11642.     0S0E
  11643. act_REPLY.GIF|act_REPLY?
  11644. Reply\Reply with History
  11645. Reply with History
  11646. This document is truncated.
  11647.     4S8S10S13S
  11648. Reply with history
  11649. act_REPLY.GIF|act_REPLY?
  11650. Reply\Reply to AllX
  11651. MailStEd
  11652.     0S0E
  11653. Reply
  11654. act_REPLY.GIF|act_REPLY?
  11655. Reply\Reply to All with HistoryK
  11656. MailStEd
  11657.     0S0E
  11658. Reply with History
  11659. This document is truncated.
  11660.     0R4S8S10S13S
  11661. Reply with history
  11662. act_REPLY.GIF|act_REPLY?
  11663. _Forward    
  11664. act_FORWARD.GIF|act_FORWARD?
  11665. Edit Document
  11666.     0S1S2S
  11667. Delete 
  11668.     0S0E
  11669. act_DELETE.GIF|act_DELETE?
  11670. _Move To Folder...
  11671. act_FOLDER.GIF|act_FOLDER?
  11672. _Remove From Folder...
  11673. Categori_zeK
  11674. SSend
  11675. Send'++LotusScript Development Environment:2:5:(Options):0:66
  11676. '++LotusScript Development Environment:2:5:(Forward):0:1
  11677. Declare Sub Click(Source As Button)
  11678. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11679. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11680. Private Sub BindEvents(Byval Objectname_ As String)
  11681.     Static Source As BUTTON
  11682.     Set Source = Bind(Objectname_)
  11683.     On Event Click From Source Call Click
  11684. End Sub
  11685. '++LotusScript Development Environment:2:2:Click:1:12
  11686. Sub Click(Source As Button)
  11687.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  11688.     Call cMemoObject.noteUIMemo.save()
  11689.     Call cMemoObject.noteUIMemo.close()    
  11690. End Sub
  11691. PostedDateh
  11692. IsMailStationery
  11693.     5S6S7S8S10S11S12S13S
  11694. act_SEND.GIF|act_SEND?
  11695. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  11696. '++LotusScript Development Environment:2:5:(Forward):0:1
  11697. Declare Sub Click(Source As Button)
  11698. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11699. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11700. Private Sub BindEvents(Byval Objectname_ As String)
  11701.     Static Source As BUTTON
  11702.     Set Source = Bind(Objectname_)
  11703.     On Event Click From Source Call Click
  11704. End Sub
  11705. '++LotusScript Development Environment:2:2:Click:1:12
  11706. Sub Click(Source As Button)
  11707.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  11708.     Call cMemoObject.noteUIMemo.save()
  11709.     Call cMemoObject.noteUIMemo.close()    
  11710. End Sub
  11711. PostedDateh
  11712. IsMailStationery
  11713.     5S6S7S8S12S13S
  11714. Send and File
  11715. '++LotusScript Development Environment:2:5:(Options):0:66
  11716. '++LotusScript Development Environment:2:5:(Forward):0:1
  11717. Declare Sub Click(Source As Button)
  11718. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11719. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11720. Private Sub BindEvents(Byval Objectname_ As String)
  11721.     Static Source As BUTTON
  11722.     Set Source = Bind(Objectname_)
  11723.     On Event Click From Source Call Click
  11724. End Sub
  11725. '++LotusScript Development Environment:2:2:Click:1:12
  11726. Sub Click(Source As Button)
  11727.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  11728.     Call cMemoObject.noteUIMemo.save()
  11729.     Call cMemoObject.noteUIMemo.close()    
  11730. End Sub
  11731. PostedDateh
  11732. IsMailStationery
  11733.     5S6S7S8S12S13S
  11734. act_SEND.GIF|act_SEND?
  11735. Save As Draft
  11736. '++LotusScript Development Environment:2:5:(Options):0:66
  11737. '++LotusScript Development Environment:2:5:(Forward):0:1
  11738. Declare Sub Click(Source As Button)
  11739. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11740. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11741. Private Sub BindEvents(Byval Objectname_ As String)
  11742.     Static Source As BUTTON
  11743.     Set Source = Bind(Objectname_)
  11744.     On Event Click From Source Call Click
  11745. End Sub
  11746. '++LotusScript Development Environment:2:2:Click:1:12
  11747. Sub Click(Source As Button)
  11748.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  11749.     Call cMemoObject.noteUIMemo.save()
  11750.     Call cMemoObject.noteUIMemo.close()
  11751. End Sub
  11752. PostedDateh
  11753. IsMailStationery
  11754.     5S6S7S8S10S11S12S13S
  11755. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  11756. Save'++LotusScript Development Environment:2:5:(Options):0:66
  11757. '++LotusScript Development Environment:2:5:(Forward):0:1
  11758. Declare Sub Click(Source As Button)
  11759. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11760. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11761. Private Sub BindEvents(Byval Objectname_ As String)
  11762.     Static Source As BUTTON
  11763.     Set Source = Bind(Objectname_)
  11764.     On Event Click From Source Call Click
  11765. End Sub
  11766. '++LotusScript Development Environment:2:2:Click:1:12
  11767. Sub Click(Source As Button)
  11768.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  11769.     Call cMemoObject.noteUIMemo.save()
  11770.     Call cMemoObject.noteUIMemo.close()
  11771. End Sub
  11772. IsMailStationery
  11773.     2S3S
  11774. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  11775. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  11776. '++LotusScript Development Environment:2:5:(Forward):0:1
  11777. Declare Sub Click(Source As Button)
  11778. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11779. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11780. Private Sub BindEvents(Byval Objectname_ As String)
  11781.     Static Source As BUTTON
  11782.     Set Source = Bind(Objectname_)
  11783.     On Event Click From Source Call Click
  11784. End Sub
  11785. '++LotusScript Development Environment:2:2:Click:1:12
  11786. Sub Click(Source As Button)
  11787.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  11788.     Call cMemoObject.noteUIMemo.save()
  11789.     Call cMemoObject.noteUIMemo.close()
  11790. End Sub
  11791. IsMailStationery
  11792.     1S2S
  11793. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  11794. '++LotusScript Development Environment:2:5:(Forward):0:1
  11795. Declare Sub Click(Source As Button)
  11796. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11797. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11798. Private Sub BindEvents(Byval Objectname_ As String)
  11799.     Static Source As BUTTON
  11800.     Set Source = Bind(Objectname_)
  11801.     On Event Click From Source Call Click
  11802. End Sub
  11803. '++LotusScript Development Environment:2:2:Click:1:12
  11804. Sub Click(Source As Button)
  11805.     Call cMemoObject.ReplyToAll()
  11806. End Sub
  11807. PostedDateh
  11808. IsMailStationery
  11809.     5S6S7S8S10S11S12S13S
  11810. act_REPLY.GIF|act_REPLY?
  11811. Address...T
  11812. EnterSendTo
  11813. EnterCopyTo
  11814. EnterBlindCopyTo
  11815.     0S0E
  11816. PostedDateh
  11817. IsMailStationery
  11818.     5S6S7S8S10S11S12S13S
  11819. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  11820. Delivery Options...K~
  11821. DeliveryOptions
  11822. Delivery Options
  11823.     0R4S10S
  11824. PostedDateh
  11825.     5S6S7S8S
  11826. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  11827. Tools\Insert Signature...
  11828. '++LotusScript Development Environment:2:5:(Options):0:66
  11829. '++LotusScript Development Environment:2:5:(Forward):0:1
  11830. Declare Sub Click(Source As Button)
  11831. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11832. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11833. Private Sub BindEvents(Byval Objectname_ As String)
  11834.     Static Source As BUTTON
  11835.     Set Source = Bind(Objectname_)
  11836.     On Event Click From Source Call Click
  11837. End Sub
  11838. '++LotusScript Development Environment:2:2:Click:1:12
  11839. Sub Click(Source As Button)
  11840.     Call cMemoObject.InsertSignature(False)
  11841. End Sub
  11842. PostedDateh
  11843.     5S6S7S8S
  11844. act_TOOLS.GIF|act_TOOLS?
  11845. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  11846. '++LotusScript Development Environment:2:5:(Forward):0:1
  11847. Declare Sub Click(Source As Button)
  11848. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11849. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11850. Private Sub BindEvents(Byval Objectname_ As String)
  11851.     Static Source As BUTTON
  11852.     Set Source = Bind(Objectname_)
  11853.     On Event Click From Source Call Click
  11854. End Sub
  11855. '++LotusScript Development Environment:2:2:Click:1:12
  11856. Sub Click(Source As Button)
  11857.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  11858.     Call cMemoObject.noteUIMemo.save()
  11859.     Call cMemoObject.noteUIMemo.close()
  11860. End Sub
  11861. PostedDateh
  11862. IsMailStationery
  11863.     5S6S7S8S10S11S12S13S
  11864. act_TOOLS.GIF|act_TOOLS?
  11865. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  11866. Use "CommonUI"
  11867. '++LotusScript Development Environment:2:5:(Forward):0:1
  11868. Declare Sub Click(Source As Button)
  11869. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11870. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11871. Private Sub BindEvents(Byval Objectname_ As String)
  11872. Static Source As BUTTON
  11873. Set Source = Bind(Objectname_)
  11874. On Event Click From Source Call Click
  11875. End Sub
  11876. '++LotusScript Development Environment:2:2:Click:1:12
  11877. Sub Click(Source As Button)
  11878.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  11879. End Sub
  11880. act_COPYINTO.GIF|act_COPYINTO?
  11881. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  11882. Use "CommonUI"
  11883. '++LotusScript Development Environment:2:5:(Forward):0:1
  11884. Declare Sub Click(Source As Button)
  11885. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11886. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11887. Private Sub BindEvents(Byval Objectname_ As String)
  11888. Static Source As BUTTON
  11889. Set Source = Bind(Objectname_)
  11890. On Event Click From Source Call Click
  11891. End Sub
  11892. '++LotusScript Development Environment:2:2:Click:1:12
  11893. Sub Click(Source As Button)
  11894.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  11895. End Sub
  11896. act_COPYINTO.GIF|act_COPYINTO?
  11897. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  11898. Use "CommonUI"
  11899. '++LotusScript Development Environment:2:5:(Forward):0:1
  11900. Declare Sub Click(Source As Button)
  11901. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11902. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11903. Private Sub BindEvents(Byval Objectname_ As String)
  11904.     Static Source As BUTTON
  11905.     Set Source = Bind(Objectname_)
  11906.     On Event Click From Source Call Click
  11907. End Sub
  11908. '++LotusScript Development Environment:2:2:Click:1:12
  11909. Sub Click(Source As Button)
  11910.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  11911. End Sub
  11912. act_COPYINTO.GIF|act_COPYINTO?
  11913. Tools\Delivery Information...
  11914. xxTitle
  11915. Delivery Information
  11916.     0S0E
  11917. DeliveryInfo
  11918. xxTitle
  11919.     0RR4S5S6S7S8S9S10S11S12S14S
  11920. act_TOOLS.GIF|act_TOOLS?
  11921. Tools\Preferences...2
  11922. (Preferences)
  11923.     0S0E
  11924. act_TOOLS.GIF|act_TOOLS?
  11925. Tools\New Memo - Using Stationery
  11926. '++LotusScript Development Environment:2:5:(Options):0:66
  11927. '++LotusScript Development Environment:2:5:(Forward):0:1
  11928. Declare Sub Click(Source As Button)
  11929. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11930. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11931. Private Sub BindEvents(Byval Objectname_ As String)
  11932.     Static Source As BUTTON
  11933.     Set Source = Bind(Objectname_)
  11934.     On Event Click From Source Call Click
  11935. End Sub
  11936. '++LotusScript Development Environment:2:2:Click:1:12
  11937. Sub Click(Source As Button)
  11938.     Dim session As New notessession
  11939.     Dim uiws As New notesuiworkspace
  11940.     Dim collection As notesdocumentcollection
  11941.     Dim noteUIEditDocument As notesuidocument
  11942.     Dim database As NotesDatabase
  11943.     Set noteCursorDoc = session.currentdatabase.createdocument
  11944.     Set database = session.currentdatabase
  11945.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  11946.     Set noteCursorDoc = collection.getfirstdocument
  11947.     If Not noteCursorDoc Is Nothing Then
  11948.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  11949.     End If
  11950. End Sub
  11951. act_TOOLS.GIF|act_TOOLS?
  11952. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  11953. '++LotusScript Development Environment:2:5:(Forward):0:1
  11954. Declare Sub Click(Source As Button)
  11955. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11956. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11957. Private Sub BindEvents(Byval Objectname_ As String)
  11958.     Static Source As BUTTON
  11959.     Set Source = Bind(Objectname_)
  11960.     On Event Click From Source Call Click
  11961. End Sub
  11962. '++LotusScript Development Environment:2:2:Click:1:12
  11963. Sub Click(Source As Button)
  11964.     Call cMemoObject.InsertSignature(False)
  11965. End Sub
  11966. act_INSERTSIG.GIF|act_INSERTSIG?
  11967. Save As Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  11968. '++LotusScript Development Environment:2:5:(Forward):0:1
  11969. Declare Sub Click(Source As Button)
  11970. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11971. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11972. Private Sub BindEvents(Byval Objectname_ As String)
  11973.     Static Source As BUTTON
  11974.     Set Source = Bind(Objectname_)
  11975.     On Event Click From Source Call Click
  11976. End Sub
  11977. '++LotusScript Development Environment:2:2:Click:1:12
  11978. Sub Click(Source As Button)
  11979.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  11980.     Call cMemoObject.noteUIMemo.save()
  11981.     Call cMemoObject.noteUIMemo.close()
  11982. End Sub
  11983. IsMailStationery
  11984.     1S2S
  11985. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  11986. New Memo - Using StationeryK'++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.     Dim session As New notessession
  11999.     Dim uiws As New notesuiworkspace
  12000.     Dim collection As notesdocumentcollection
  12001.     Dim noteUIEditDocument As notesuidocument
  12002.     Dim database As NotesDatabase
  12003.     Set noteCursorDoc = session.currentdatabase.createdocument
  12004.     Set database = session.currentdatabase
  12005.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  12006.     Set noteCursorDoc = collection.getfirstdocument
  12007.     If Not noteCursorDoc Is Nothing Then
  12008.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  12009.     End If
  12010. End Sub
  12011. IsMailStationery
  12012.     1S2S
  12013. New Memo(
  12014.     0S0E
  12015. act_NEW.GIF|act_NEW?
  12016. Send...\Send`
  12017. tmpSendOptions
  12018. act_SEND.GIF|act_SEND?
  12019. Send...\Send and Save
  12020. tmpSendOptions
  12021. act_SEND.GIF|act_SEND?
  12022. Send...\Save as Draft
  12023. act_SEND.GIF|act_SEND?
  12024. alert('Feature in Progress')
  12025. ForwardK
  12026.     1S10S14S16S23S
  12027. path"
  12028. /Memo?OpenForm&UNID="
  12029. &forward"
  12030. act_FORWARD.GIF|act_FORWARD?
  12031. Reply...\Reply*
  12032. Reply
  12033.     0S0E
  12034. act_REPLY.GIF|act_REPLY?
  12035. Reply...\Reply with HistoryK
  12036. act_REPLY.GIF|act_REPLY?
  12037. alert('Feature in Progress')
  12038. Address...
  12039. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  12040. var pathname = (window.location.pathname);
  12041. if (navigator.appName =='Netscape') {
  12042. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  12043.     } else {
  12044. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  12045. Delivery Options...K
  12046. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  12047. var pathname = (window.location.pathname);
  12048. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  12049. Edit 
  12050.     0S0E
  12051. act_EDIT.GIF|act_EDIT?
  12052. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  12053. '++LotusScript Development Environment:2:5:(Forward):0:1
  12054. Declare Sub Click(Source As Button)
  12055. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12056. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12057. Private Sub BindEvents(Byval Objectname_ As String)
  12058.     Static Source As BUTTON
  12059.     Set Source = Bind(Objectname_)
  12060.     On Event Click From Source Call Click
  12061. End Sub
  12062. '++LotusScript Development Environment:2:2:Click:1:12
  12063. Sub Click(Source As Button)
  12064.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  12065.     Call cMemoObject.noteUIMemo.save()
  12066.     Call cMemoObject.noteUIMemo.close()
  12067. End Sub
  12068. PostedDateh
  12069. IsMailStationery
  12070.     7S8S9S10S13S14S15S16S
  12071. Save And File
  12072. '++LotusScript Development Environment:2:5:(Options):0:66
  12073. '++LotusScript Development Environment:2:5:(Forward):0:1
  12074. Declare Sub Click(Source As Button)
  12075. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12076. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12077. Private Sub BindEvents(Byval Objectname_ As String)
  12078.     Static Source As BUTTON
  12079.     Set Source = Bind(Objectname_)
  12080.     On Event Click From Source Call Click
  12081. End Sub
  12082. '++LotusScript Development Environment:2:2:Click:1:12
  12083. Sub Click(Source As Button)
  12084.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  12085.     Call cMemoObject.noteUIMemo.save()
  12086.     Call cMemoObject.noteUIMemo.close()
  12087. End Sub
  12088. PostedDateh
  12089. IsMailStationery
  12090.     7S8S9S10S13S14S15S16S
  12091. Close
  12092. '++LotusScript Development Environment:2:5:(Options):0:66
  12093. '++LotusScript Development Environment:2:5:(Forward):0:1
  12094. Declare Sub Click(Source As Button)
  12095. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12096. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12097. Private Sub BindEvents(Byval Objectname_ As String)
  12098.     Static Source As BUTTON
  12099.     Set Source = Bind(Objectname_)
  12100.     On Event Click From Source Call Click
  12101. End Sub
  12102. '++LotusScript Development Environment:2:2:Click:1:12
  12103. Sub Click(Source As Button)
  12104.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  12105.     Call cMemoObject.noteUIMemo.save()
  12106.     Call cMemoObject.noteUIMemo.close()
  12107. End Sub
  12108. IsMailStationery
  12109.     0S1S2S
  12110. New Memo(
  12111.     0S0E
  12112. Reply\ReplyK0
  12113. Reply
  12114.     0S0E
  12115. Reply\Reply with History
  12116. Reply with History
  12117. This document is truncated.
  12118.     4S8S10S13S
  12119. Reply with history
  12120. Reply\Reply to AllX
  12121. MailStEd
  12122.     0S0E
  12123. Reply
  12124. Reply\Reply to All with HistoryK
  12125. MailStEd
  12126.     0S0E
  12127. Reply with History
  12128. This document is truncated.
  12129.     0R4S8S10S13S
  12130. Reply with history
  12131. _Forward    
  12132. Edit Document
  12133.     0S1S2S
  12134. Delete 
  12135.     0S0E
  12136. _Move To Folder...
  12137. _Remove From Folder...
  12138. Categori_zeK
  12139. SSend
  12140. Send'++LotusScript Development Environment:2:5:(Options):0:66
  12141. '++LotusScript Development Environment:2:5:(Forward):0:1
  12142. Declare Sub Click(Source As Button)
  12143. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12144. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12145. Private Sub BindEvents(Byval Objectname_ As String)
  12146.     Static Source As BUTTON
  12147.     Set Source = Bind(Objectname_)
  12148.     On Event Click From Source Call Click
  12149. End Sub
  12150. '++LotusScript Development Environment:2:2:Click:1:12
  12151. Sub Click(Source As Button)
  12152.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  12153.     Call cMemoObject.noteUIMemo.save()
  12154.     Call cMemoObject.noteUIMemo.close()    
  12155. End Sub
  12156. PostedDateh
  12157. IsMailStationery
  12158.     5S6S7S8S10S11S12S13S
  12159. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  12160. '++LotusScript Development Environment:2:5:(Forward):0:1
  12161. Declare Sub Click(Source As Button)
  12162. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12163. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12164. Private Sub BindEvents(Byval Objectname_ As String)
  12165.     Static Source As BUTTON
  12166.     Set Source = Bind(Objectname_)
  12167.     On Event Click From Source Call Click
  12168. End Sub
  12169. '++LotusScript Development Environment:2:2:Click:1:12
  12170. Sub Click(Source As Button)
  12171.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  12172.     Call cMemoObject.noteUIMemo.save()
  12173.     Call cMemoObject.noteUIMemo.close()    
  12174. End Sub
  12175. PostedDateh
  12176. IsMailStationery
  12177.     5S6S7S8S12S13S
  12178. Send and File
  12179. '++LotusScript Development Environment:2:5:(Options):0:66
  12180. '++LotusScript Development Environment:2:5:(Forward):0:1
  12181. Declare Sub Click(Source As Button)
  12182. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12183. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12184. Private Sub BindEvents(Byval Objectname_ As String)
  12185.     Static Source As BUTTON
  12186.     Set Source = Bind(Objectname_)
  12187.     On Event Click From Source Call Click
  12188. End Sub
  12189. '++LotusScript Development Environment:2:2:Click:1:12
  12190. Sub Click(Source As Button)
  12191.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  12192.     Call cMemoObject.noteUIMemo.save()
  12193.     Call cMemoObject.noteUIMemo.close()    
  12194. End Sub
  12195. PostedDateh
  12196. IsMailStationery
  12197.     5S6S7S8S12S13S
  12198. Save As Draft
  12199. '++LotusScript Development Environment:2:5:(Options):0:66
  12200. '++LotusScript Development Environment:2:5:(Forward):0:1
  12201. Declare Sub Click(Source As Button)
  12202. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12203. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12204. Private Sub BindEvents(Byval Objectname_ As String)
  12205.     Static Source As BUTTON
  12206.     Set Source = Bind(Objectname_)
  12207.     On Event Click From Source Call Click
  12208. End Sub
  12209. '++LotusScript Development Environment:2:2:Click:1:12
  12210. Sub Click(Source As Button)
  12211.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  12212.     Call cMemoObject.noteUIMemo.save()
  12213.     Call cMemoObject.noteUIMemo.close()
  12214. End Sub
  12215. PostedDateh
  12216. IsMailStationery
  12217.     5S6S7S8S10S11S12S13S
  12218. Save'++LotusScript Development Environment:2:5:(Options):0:66
  12219. '++LotusScript Development Environment:2:5:(Forward):0:1
  12220. Declare Sub Click(Source As Button)
  12221. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12222. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12223. Private Sub BindEvents(Byval Objectname_ As String)
  12224.     Static Source As BUTTON
  12225.     Set Source = Bind(Objectname_)
  12226.     On Event Click From Source Call Click
  12227. End Sub
  12228. '++LotusScript Development Environment:2:2:Click:1:12
  12229. Sub Click(Source As Button)
  12230.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  12231.     Call cMemoObject.noteUIMemo.save()
  12232.     Call cMemoObject.noteUIMemo.close()
  12233. End Sub
  12234. IsMailStationery
  12235.     2S3S
  12236. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  12237. '++LotusScript Development Environment:2:5:(Forward):0:1
  12238. Declare Sub Click(Source As Button)
  12239. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12240. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12241. Private Sub BindEvents(Byval Objectname_ As String)
  12242.     Static Source As BUTTON
  12243.     Set Source = Bind(Objectname_)
  12244.     On Event Click From Source Call Click
  12245. End Sub
  12246. '++LotusScript Development Environment:2:2:Click:1:12
  12247. Sub Click(Source As Button)
  12248.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  12249.     Call cMemoObject.noteUIMemo.save()
  12250.     Call cMemoObject.noteUIMemo.close()
  12251. End Sub
  12252. IsMailStationery
  12253.     1S2S
  12254. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  12255. '++LotusScript Development Environment:2:5:(Forward):0:1
  12256. Declare Sub Click(Source As Button)
  12257. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12258. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12259. Private Sub BindEvents(Byval Objectname_ As String)
  12260.     Static Source As BUTTON
  12261.     Set Source = Bind(Objectname_)
  12262.     On Event Click From Source Call Click
  12263. End Sub
  12264. '++LotusScript Development Environment:2:2:Click:1:12
  12265. Sub Click(Source As Button)
  12266.     Call cMemoObject.ReplyToAll()
  12267. End Sub
  12268. PostedDateh
  12269. IsMailStationery
  12270.     5S6S7S8S10S11S12S13S
  12271. Address...T
  12272. EnterSendTo
  12273. EnterCopyTo
  12274. EnterBlindCopyTo
  12275.     0S0E
  12276. PostedDateh
  12277. IsMailStationery
  12278.     5S6S7S8S10S11S12S13S
  12279. Delivery Options...K~
  12280. DeliveryOptions
  12281. Delivery Options
  12282.     0R4S10S
  12283. PostedDateh
  12284.     5S6S7S8S
  12285. Tools\Insert Signature...
  12286. '++LotusScript Development Environment:2:5:(Options):0:66
  12287. '++LotusScript Development Environment:2:5:(Forward):0:1
  12288. Declare Sub Click(Source As Button)
  12289. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12290. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12291. Private Sub BindEvents(Byval Objectname_ As String)
  12292.     Static Source As BUTTON
  12293.     Set Source = Bind(Objectname_)
  12294.     On Event Click From Source Call Click
  12295. End Sub
  12296. '++LotusScript Development Environment:2:2:Click:1:12
  12297. Sub Click(Source As Button)
  12298.     Call cMemoObject.InsertSignature(False)
  12299. End Sub
  12300. PostedDateh
  12301.     5S6S7S8S
  12302. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  12303. '++LotusScript Development Environment:2:5:(Forward):0:1
  12304. Declare Sub Click(Source As Button)
  12305. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12306. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12307. Private Sub BindEvents(Byval Objectname_ As String)
  12308.     Static Source As BUTTON
  12309.     Set Source = Bind(Objectname_)
  12310.     On Event Click From Source Call Click
  12311. End Sub
  12312. '++LotusScript Development Environment:2:2:Click:1:12
  12313. Sub Click(Source As Button)
  12314.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  12315.     Call cMemoObject.noteUIMemo.save()
  12316.     Call cMemoObject.noteUIMemo.close()
  12317. End Sub
  12318. PostedDateh
  12319. IsMailStationery
  12320.     5S6S7S8S10S11S12S13S
  12321. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  12322. Use "CommonUI"
  12323. '++LotusScript Development Environment:2:5:(Forward):0:1
  12324. Declare Sub Click(Source As Button)
  12325. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12326. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12327. Private Sub BindEvents(Byval Objectname_ As String)
  12328. Static Source As BUTTON
  12329. Set Source = Bind(Objectname_)
  12330. On Event Click From Source Call Click
  12331. End Sub
  12332. '++LotusScript Development Environment:2:2:Click:1:12
  12333. Sub Click(Source As Button)
  12334.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  12335. End Sub
  12336. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  12337. Use "CommonUI"
  12338. '++LotusScript Development Environment:2:5:(Forward):0:1
  12339. Declare Sub Click(Source As Button)
  12340. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12341. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12342. Private Sub BindEvents(Byval Objectname_ As String)
  12343. Static Source As BUTTON
  12344. Set Source = Bind(Objectname_)
  12345. On Event Click From Source Call Click
  12346. End Sub
  12347. '++LotusScript Development Environment:2:2:Click:1:12
  12348. Sub Click(Source As Button)
  12349.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  12350. End Sub
  12351. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  12352. Use "CommonUI"
  12353. '++LotusScript Development Environment:2:5:(Forward):0:1
  12354. Declare Sub Click(Source As Button)
  12355. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12356. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12357. Private Sub BindEvents(Byval Objectname_ As String)
  12358.     Static Source As BUTTON
  12359.     Set Source = Bind(Objectname_)
  12360.     On Event Click From Source Call Click
  12361. End Sub
  12362. '++LotusScript Development Environment:2:2:Click:1:12
  12363. Sub Click(Source As Button)
  12364.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  12365. End Sub
  12366. Tools\Delivery Information...
  12367. xxTitle
  12368. Delivery Information
  12369.     0S0E
  12370. DeliveryInfo
  12371. xxTitle
  12372.     0RR4S5S6S7S8S9S10S11S12S14S
  12373. Tools\Preferences...2
  12374. (Preferences)
  12375.     0S0E
  12376. Tools\New Memo - Using Stationery
  12377. '++LotusScript Development Environment:2:5:(Options):0:66
  12378. '++LotusScript Development Environment:2:5:(Forward):0:1
  12379. Declare Sub Click(Source As Button)
  12380. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12381. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12382. Private Sub BindEvents(Byval Objectname_ As String)
  12383.     Static Source As BUTTON
  12384.     Set Source = Bind(Objectname_)
  12385.     On Event Click From Source Call Click
  12386. End Sub
  12387. '++LotusScript Development Environment:2:2:Click:1:12
  12388. Sub Click(Source As Button)
  12389.     Dim session As New notessession
  12390.     Dim uiws As New notesuiworkspace
  12391.     Dim collection As notesdocumentcollection
  12392.     Dim noteUIEditDocument As notesuidocument
  12393.     Dim database As NotesDatabase
  12394.     Set noteCursorDoc = session.currentdatabase.createdocument
  12395.     Set database = session.currentdatabase
  12396.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  12397.     Set noteCursorDoc = collection.getfirstdocument
  12398.     If Not noteCursorDoc Is Nothing Then
  12399.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  12400.     End If
  12401. End Sub
  12402. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  12403. '++LotusScript Development Environment:2:5:(Forward):0:1
  12404. Declare Sub Click(Source As Button)
  12405. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12406. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12407. Private Sub BindEvents(Byval Objectname_ As String)
  12408.     Static Source As BUTTON
  12409.     Set Source = Bind(Objectname_)
  12410.     On Event Click From Source Call Click
  12411. End Sub
  12412. '++LotusScript Development Environment:2:2:Click:1:12
  12413. Sub Click(Source As Button)
  12414.     Call cMemoObject.InsertSignature(False)
  12415. End Sub
  12416. Save As Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  12417. '++LotusScript Development Environment:2:5:(Forward):0:1
  12418. Declare Sub Click(Source As Button)
  12419. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12420. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12421. Private Sub BindEvents(Byval Objectname_ As String)
  12422.     Static Source As BUTTON
  12423.     Set Source = Bind(Objectname_)
  12424.     On Event Click From Source Call Click
  12425. End Sub
  12426. '++LotusScript Development Environment:2:2:Click:1:12
  12427. Sub Click(Source As Button)
  12428.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  12429.     Call cMemoObject.noteUIMemo.save()
  12430.     Call cMemoObject.noteUIMemo.close()
  12431. End Sub
  12432. IsMailStationery
  12433.     1S2S
  12434. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  12435. '++LotusScript Development Environment:2:5:(Forward):0:1
  12436. Declare Sub Click(Source As Button)
  12437. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12438. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12439. Private Sub BindEvents(Byval Objectname_ As String)
  12440.     Static Source As BUTTON
  12441.     Set Source = Bind(Objectname_)
  12442.     On Event Click From Source Call Click
  12443. End Sub
  12444. '++LotusScript Development Environment:2:2:Click:1:12
  12445. Sub Click(Source As Button)
  12446.     Dim session As New notessession
  12447.     Dim uiws As New notesuiworkspace
  12448.     Dim collection As notesdocumentcollection
  12449.     Dim noteUIEditDocument As notesuidocument
  12450.     Dim database As NotesDatabase
  12451.     Set noteCursorDoc = session.currentdatabase.createdocument
  12452.     Set database = session.currentdatabase
  12453.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  12454.     Set noteCursorDoc = collection.getfirstdocument
  12455.     If Not noteCursorDoc Is Nothing Then
  12456.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  12457.     End If
  12458. End Sub
  12459. IsMailStationery
  12460.     1S2S
  12461. New Memo(
  12462.     0S0E
  12463. Send...\Send`
  12464. tmpSendOptions
  12465. Send...\Send and Save
  12466. tmpSendOptions
  12467. ForwardK
  12468.     1S10S14S16S23S
  12469. path"
  12470. /Memo?OpenForm&UNID="
  12471. &forward"
  12472. Reply...\Reply*
  12473. Reply
  12474.     0S0E
  12475. Edit 
  12476.     0S0E
  12477. Lotus Producte,
  12478. V0.0#
  12479. e,0sJ
  12480. f,lm}
  12481. f,lm}
  12482. f,ll}
  12483. KXg,lm}
  12484. h}`i#1
  12485. h,lm}
  12486. K@k,lm}
  12487. h}|l#1
  12488. k,`sX
  12489. Lotus Product(
  12490. #V0.0/8
  12491. }d    #8l
  12492. Lotus Producte,
  12493. V0.0#
  12494. e,0sJ
  12495. f,lm}
  12496. f,lm}
  12497. f,ll}
  12498. KXg,lm}
  12499. h}`i#1
  12500. h,lm}
  12501. K@k,lm}
  12502. h}|l#1
  12503. k,`sX
  12504. Lotus Product(
  12505. #V0.0/8
  12506. }d    #8l
  12507. Lotus Producte,
  12508. V0.0#
  12509. e,0sJ
  12510. f,lm}
  12511. f,lm}
  12512. f,ll}
  12513. KXg,lm}
  12514. h}`i#1
  12515. h,lm}
  12516. K@k,lm}
  12517. h}|l#1
  12518. k,`sX
  12519. Lotus Product(
  12520. #V0.0/8
  12521. }d    #8l
  12522. Lotus Producte,
  12523. V0.0#
  12524. e,0sJ
  12525. f,lm}
  12526. f,lm}
  12527. f,ll}
  12528. KXg,lm}
  12529. h}`i#1
  12530. h,lm}
  12531. K@k,lm}
  12532. h}|l#1
  12533. k,`sX
  12534. Lotus Product(
  12535. #V0.0/8
  12536. }d    #8l
  12537. Lotus Producte,
  12538. V0.0#
  12539. e,0sJ
  12540. f,lm}
  12541. f,lm}
  12542. f,ll}
  12543. KXg,lm}
  12544. h}`i#1
  12545. h,lm}
  12546. K@k,lm}
  12547. h}|l#1
  12548. k,`sX
  12549. Lotus Product(
  12550. #V0.0/8
  12551. }d    #8l
  12552. Lotus Producte,
  12553. V0.0#
  12554. e,0sJ
  12555. f,lm}
  12556. f,lm}
  12557. f,ll}
  12558. KXg,lm}
  12559. h}`i#1
  12560. h,lm}
  12561. K@k,lm}
  12562. h}|l#1
  12563. k,`sX
  12564. Lotus Product(
  12565. #V0.0/8
  12566. }d    #8l
  12567. Lotus Product
  12568. OBJECT
  12569. Lotus Product
  12570. OBJECT
  12571. Lotus Product
  12572. OBJECT
  12573. Lotus Product
  12574. OBJECT
  12575. Lotus Producte,
  12576. V0.0#
  12577. e,0sJ
  12578. f,lm}
  12579. f,lm}
  12580. f,ll}
  12581. KXg,lm}
  12582. h}`i#1
  12583. h,lm}
  12584. K@k,lm}
  12585. h}|l#1
  12586. k,`sX
  12587. Lotus Product(
  12588. #V0.0/8
  12589. }d    #8l
  12590. Lotus Product
  12591. OBJECT
  12592. O=Lotus Notes
  12593. O=Lotus Notes
  12594. PURSAFO
  12595. |.:#U
  12596. O=Lotus Notes
  12597. CN=Lotus Notes Template Development/O=Lotus Notes
  12598. PURSAFO
  12599. pIaow
  12600. wy$;p`
  12601. w174NN
  12602. $$FormPostOpenAction
  12603. ExpireDate
  12604. ReplyDate
  12605. $TypeIcon
  12606. ReplyNumber
  12607. ComposedDate
  12608. $HTMLDocumentStyles
  12609. $HeaderArea
  12610. $RegionFrameset
  12611. $AUTOLAUNCH
  12612. $Info
  12613. $WINDOWTITLE
  12614. $WEBQuerySave
  12615. $WEBQueryOpen
  12616. $AppHelpFormula
  12617. $WebFlags
  12618. $Script
  12619. $$Script_O
  12620. $$ScriptName
  12621. $$FormScript
  12622. $$$FormScript_O
  12623. $Body
  12624. $V5ACTIONS
  12625. $ACTIONS
  12626. $SCRIPTOBJ_0
  12627. $SCRIPTOBJ_1
  12628. $SCRIPTOBJ_2
  12629. $SCRIPTOBJ_15
  12630. $SCRIPTOBJ_16
  12631. $SCRIPTOBJ_17
  12632. $SCRIPTOBJ_18
  12633. $SCRIPTOBJ_19
  12634. $SCRIPTOBJ_20
  12635. $SCRIPTOBJ_21
  12636. $SCRIPTOBJ_24
  12637. $SCRIPTOBJ_25
  12638. $SCRIPTOBJ_26
  12639. $SCRIPTOBJ_27
  12640. $SCRIPTOBJ_28
  12641. $SCRIPTOBJ_31
  12642. $SCRIPTOBJ_32
  12643. $SCRIPTOBJ_33
  12644. $SCRIPTOBJ_34
  12645. (GIF89a
  12646. <a>7`^///""
  12647. #6dhP
  12648. P6=q$)C9
  12649. )"N b
  12650. K g&<.
  12651. Bh}/n
  12652. ;lx-u7
  12653. AQiN+
  12654. 0;y!Wf
  12655. y`6A9
  12656. Lro&B
  12657. S*i `
  12658. Fnl~U
  12659. ,R$R<
  12660. D0od_
  12661. QqI3b
  12662. U!kNP
  12663. @%7F!
  12664. dHGe    
  12665. {L%qH1SG3
  12666. >+2w=7#qg
  12667. {93 $w
  12668. Qa4Ts
  12669. w{uW>
  12670. (sr.0
  12671. tM#E`
  12672. Y~a{t
  12673. "<4J5uR
  12674. !!Fz`R
  12675. ?ZVqv
  12676. D&2xb
  12677. #9}Wd
  12678. T!.`s
  12679. jX'TM
  12680. =BOYo
  12681. U41eB4
  12682. ;2; u
  12683. vrKJ(
  12684. =6Y3'
  12685. A%%L1S\
  12686. A:j^L
  12687. FY6.]=
  12688. c-rrF
  12689. y$l1dM
  12690. J-I)?
  12691. [*"-|
  12692. Q#~**
  12693. =/"+Q
  12694. EYF%"
  12695. -zI1q
  12696. F    >dJ7
  12697. hYk2?
  12698. $5xc05
  12699. Su!+0
  12700. D]rtz
  12701. O=Lotus Notes
  12702. O=Lotus Notes
  12703. PURSAFO
  12704. |.:#U
  12705. O=Lotus Notes
  12706. CN=Lotus Notes Template Development/O=Lotus Notes
  12707. PURSAFO
  12708. mc&=k
  12709. $ImagesWide
  12710. $ImagesHigh
  12711. $ImagesColorize
  12712. $TITLE
  12713. $ImageData
  12714. $ImageNames
  12715. Started running agent 'Mail Tools \ Send Memo to Database Manager' on 05/20/98 09:57:01 AM
  12716. 1 document(s) were modified by formula
  12717. Done running agent 'Mail Tools \ Send Memo to Database Manager' on 05/20/98 09:57:01 AM
  12718. MailStEd
  12719.     0S0E
  12720. O=Lotus Notes
  12721. O=Lotus Notes
  12722. PURSAFO
  12723. |.:#U
  12724. O=Lotus Notes
  12725. CN=Lotus Notes Template Development/O=Lotus Notes
  12726. PURSAFO
  12727.  ;?*U
  12728. L,"w.
  12729. $TITLE
  12730. $AssistType
  12731. $AssistLastRun
  12732. $AssistDocCount
  12733. $AssistFlags
  12734. $AssistTrigger
  12735. $AssistInfo
  12736. $AssistQuery
  12737. $AssistAction
  12738. $AssistAction_Ex
  12739. GIF89a
  12740. <a>7`^///""
  12741. 0c.,    1
  12742. qgUTUu
  12743. %M`;OT
  12744. 5GyEg
  12745. 3i!SZ
  12746. (Vbv9
  12747. [N9|v[{
  12748. dKhDgQ\D
  12749. !DW0C*
  12750. 4+B:I
  12751. FLg22
  12752. 5chBg
  12753. =%m!kB
  12754. E~_xs6B
  12755. ,QZ$A
  12756. 1892l
  12757. P%a8*U_
  12758. r<ac    
  12759. &P"'o"\
  12760. s#LPJ+
  12761. 7%Af@)/
  12762. q.+vK
  12763. z#BW1Hp
  12764. r)qC#.h#
  12765. ib^a#'
  12766. fw4"\xB5
  12767.     wHsd
  12768. rP+=!
  12769. -!7*H
  12770. [,:MD
  12771. x8_[Z
  12772. LaX/i
  12773. SI!1L
  12774. /Nfi[
  12775. "=Dd<
  12776. _~ ?Mf<
  12777. t6D5t
  12778. LhsID
  12779.  i.d    
  12780. K0I.mz2
  12781. D1KGe
  12782. 1y;=+"
  12783. O=Lotus Notes
  12784. O=Lotus Notes
  12785. PURSAFO
  12786. |.:#U
  12787. O=Lotus Notes
  12788. CN=Lotus Notes Template Development/O=Lotus Notes
  12789. PURSAFO
  12790. $ImagesWide
  12791. $ImagesHigh
  12792. $ImagesColorize
  12793. $TITLE
  12794. $ImageData
  12795. $ImageNames
  12796. (GIF89a
  12797. <a>7`^///""
  12798. #6dhP
  12799. P6=q$)C9
  12800. )"N b
  12801. K g&<.
  12802. Bh}/n
  12803. ;lx-u7
  12804. AQiN+
  12805. 0;y!Wf
  12806. y`6A9
  12807. Lro&B
  12808. S*i `
  12809. Fnl~U
  12810. ,R$R<
  12811. D0od_
  12812. QqI3b
  12813. U!kNP
  12814. @%7F!
  12815. dHGe    
  12816. {L%qH1SG3
  12817. >+2w=7#qg
  12818. {93 $w
  12819. Qa4Ts
  12820. w{uW>
  12821. (sr.0
  12822. tM#E`
  12823. Y~a{t
  12824. "<4J5uR
  12825. !!Fz`R
  12826. ?ZVqv
  12827. D&2xb
  12828. #9}Wd
  12829. T!.`s
  12830. jX'TM
  12831. =BOYo
  12832. U41eB4
  12833. ;2; u
  12834. vrKJ(
  12835. =6Y3'
  12836. A%%L1S\
  12837. A:j^L
  12838. FY6.]=
  12839. c-rrF
  12840. y$l1dM
  12841. J-I)?
  12842. [*"-|
  12843. Q#~**
  12844. =/"+Q
  12845. EYF%"
  12846. -zI1q
  12847. F    >dJ7
  12848. hYk2?
  12849. $5xc05
  12850. Su!+0
  12851. D]rtz
  12852. O=Lotus Notes
  12853. O=Lotus Notes
  12854. PURSAFO
  12855. |.:#U
  12856. O=Lotus Notes
  12857. CN=Lotus Notes Template Development/O=Lotus Notes
  12858. PURSAFO
  12859. 4R8L1G
  12860. $ImagesWide
  12861. $ImagesHigh
  12862. $ImagesColorize
  12863. $TITLE
  12864. $ImageData
  12865. $ImageNames
  12866. (GIF89a
  12867. <a>7`^///""
  12868. #6dhP
  12869. P6=q$)C9
  12870. )"N b
  12871. K g&<.
  12872. Bh}/n
  12873. ;lx-u7
  12874. AQiN+
  12875. 0;y!Wf
  12876. y`6A9
  12877. Lro&B
  12878. S*i `
  12879. Fnl~U
  12880. ,R$R<
  12881. D0od_
  12882. QqI3b
  12883. U!kNP
  12884. @%7F!
  12885. dHGe    
  12886. {L%qH1SG3
  12887. >+2w=7#qg
  12888. {93 $w
  12889. Qa4Ts
  12890. w{uW>
  12891. (sr.0
  12892. tM#E`
  12893. Y~a{t
  12894. "<4J5uR
  12895. !!Fz`R
  12896. ?ZVqv
  12897. D&2xb
  12898. #9}Wd
  12899. T!.`s
  12900. jX'TM
  12901. =BOYo
  12902. U41eB4
  12903. ;2; u
  12904. vrKJ(
  12905. =6Y3'
  12906. A%%L1S\
  12907. A:j^L
  12908. FY6.]=
  12909. c-rrF
  12910. y$l1dM
  12911. J-I)?
  12912. [*"-|
  12913. Q#~**
  12914. =/"+Q
  12915. EYF%"
  12916. -zI1q
  12917. F    >dJ7
  12918. hYk2?
  12919. $5xc05
  12920. Su!+0
  12921. D]rtz
  12922. O=Lotus Notes
  12923. O=Lotus Notes
  12924. PURSAFO
  12925. |.:#U
  12926. O=Lotus Notes
  12927. CN=Lotus Notes Template Development/O=Lotus Notes
  12928. PURSAFO
  12929. $ImagesWide
  12930. $ImagesHigh
  12931. $ImagesColorize
  12932. $TITLE
  12933. $ImageData
  12934. $ImageNames
  12935. (GIF89a
  12936. PaZLN
  12937. 6Z723
  12938. 8QMNg1B
  12939. A]p!HU?KYDSb!RdH`RJQB&?\+\,&,BABL%MR;TK6[WMaHETDBZGLYLNQX[_*,.PQRLMN
  12940. GMRKW`NSW&EZ,@NLRVSVXcfh
  12941. 7J+La5IV?R^6AH?NW@LS 2;IQUIMO[_ahln8:;
  12942. I`)03
  12943. -58*R]EIJVZ[
  12944. KYYGTT
  12945. KRRKQQMQQ
  12946. NPPMOO,--*++
  12947. <\[C`_@YX7`^CXWFVUeutHTS!&$LSP(0,FMIFRJ
  12948. LPMMRNOXP<a>V]V{|{RTL
  12949. RRIPPM))(\\[
  12950. -+&0-)@><RPNcba
  12951. XTQUOKSMI
  12952. MD?RKGYRNUPM
  12953. 4,(iYQ
  12954. SOM^ZX.,+
  12955. (#!WPM
  12956. RON[XWYVUKGFOKJ
  12957. _PW@;
  12958. 3"R'!
  12959. PJj@=
  12960. ooSLLRMMQMM
  12961. MJJPNNOMM
  12962. rrrooollliiifff___]]]YYYVVVTTTRRRPPPOOONNNMMMJJJFFF///...
  12963. 0[B0n.
  12964. ,/|q(
  12965. 8MVwa
  12966. 1e_4$*
  12967. .T:&F
  12968. S\CO;
  12969. *IQp!#
  12970. JvJXYE
  12971. eV}XrG
  12972. DF!J^
  12973. tL$r-`0A3
  12974. #+jWx    
  12975. 8v q4
  12976. + !c 
  12977. $4LNYE
  12978. e6u96a
  12979. &Al1>
  12980. Iw;"W
  12981. N`    (E
  12982. C7    T"
  12983. p9T(P6
  12984.  z-P5
  12985. *8Ah#
  12986. ,7&Mr
  12987. 8M|DS
  12988. :KYMy
  12989. %,RD"
  12990. E]).N
  12991. 1*l`T&
  12992. Bd7o    
  12993. 0";DL 
  12994. u 2![
  12995. /x2kp
  12996. 2fmCg
  12997. z 2DX
  12998. 8XgV<f
  12999.     /xixo
  13000. bBbdSK
  13001. NZR?SvE
  13002. bK+N 
  13003. 1 8aD
  13004. O=Lotus Notes
  13005. O=Lotus Notes
  13006. PURSAFO
  13007. |.:#U
  13008. O=Lotus Notes
  13009. CN=Lotus Notes Template Development/O=Lotus Notes
  13010. PURSAFO
  13011. $ImagesWide
  13012. $ImagesHigh
  13013. $ImagesColorize
  13014. $ImageData
  13015. $ImageNames
  13016. $TITLE
  13017. (GIF89a
  13018. <a>7`^///""
  13019. #6dhP
  13020. P6=q$)C9
  13021. )"N b
  13022. K g&<.
  13023. Bh}/n
  13024. ;lx-u7
  13025. AQiN+
  13026. 0;y!Wf
  13027. y`6A9
  13028. Lro&B
  13029. S*i `
  13030. Fnl~U
  13031. ,R$R<
  13032. D0od_
  13033. QqI3b
  13034. U!kNP
  13035. @%7F!
  13036. dHGe    
  13037. {L%qH1SG3
  13038. >+2w=7#qg
  13039. {93 $w
  13040. Qa4Ts
  13041. w{uW>
  13042. (sr.0
  13043. tM#E`
  13044. Y~a{t
  13045. "<4J5uR
  13046. !!Fz`R
  13047. ?ZVqv
  13048. D&2xb
  13049. #9}Wd
  13050. T!.`s
  13051. jX'TM
  13052. =BOYo
  13053. U41eB4
  13054. ;2; u
  13055. vrKJ(
  13056. =6Y3'
  13057. A%%L1S\
  13058. A:j^L
  13059. FY6.]=
  13060. c-rrF
  13061. y$l1dM
  13062. J-I)?
  13063. [*"-|
  13064. Q#~**
  13065. =/"+Q
  13066. EYF%"
  13067. -zI1q
  13068. F    >dJ7
  13069. hYk2?
  13070. $5xc05
  13071. Su!+0
  13072. D]rtz
  13073. O=Lotus Notes
  13074. O=Lotus Notes
  13075. PURSAFO
  13076. |.:#U
  13077. O=Lotus Notes
  13078. CN=Lotus Notes Template Development/O=Lotus Notes
  13079. PURSAFO
  13080. 'NV]jU
  13081. $ImagesWide
  13082. $ImagesHigh
  13083. $ImagesColorize
  13084. $TITLE
  13085. $ImageData
  13086. $ImageNames
  13087. (GIF89a
  13088. <a>7`^///""
  13089. #6dhP
  13090. P6=q$)C9
  13091. )"N b
  13092. K g&<.
  13093. Bh}/n
  13094. ;lx-u7
  13095. AQiN+
  13096. 0;y!Wf
  13097. y`6A9
  13098. Lro&B
  13099. S*i `
  13100. Fnl~U
  13101. ,R$R<
  13102. D0od_
  13103. QqI3b
  13104. U!kNP
  13105. @%7F!
  13106. dHGe    
  13107. {L%qH1SG3
  13108. >+2w=7#qg
  13109. {93 $w
  13110. Qa4Ts
  13111. w{uW>
  13112. (sr.0
  13113. tM#E`
  13114. Y~a{t
  13115. "<4J5uR
  13116. !!Fz`R
  13117. ?ZVqv
  13118. D&2xb
  13119. #9}Wd
  13120. T!.`s
  13121. jX'TM
  13122. =BOYo
  13123. U41eB4
  13124. ;2; u
  13125. vrKJ(
  13126. =6Y3'
  13127. A%%L1S\
  13128. A:j^L
  13129. FY6.]=
  13130. c-rrF
  13131. y$l1dM
  13132. J-I)?
  13133. [*"-|
  13134. Q#~**
  13135. =/"+Q
  13136. EYF%"
  13137. -zI1q
  13138. F    >dJ7
  13139. hYk2?
  13140. $5xc05
  13141. Su!+0
  13142. D]rtz
  13143. O=Lotus Notes
  13144. O=Lotus Notes
  13145. PURSAFO
  13146. |.:#U
  13147. O=Lotus Notes
  13148. CN=Lotus Notes Template Development/O=Lotus Notes
  13149. PURSAFO
  13150. 2W"&r
  13151. Sd55K
  13152. m01h=    
  13153. $ImagesWide
  13154. $ImagesHigh
  13155. $ImagesColorize
  13156. $TITLE
  13157. $ImageData
  13158. $ImageNames
  13159. (GIF89a
  13160. <a>7`^///""
  13161. #6dhP
  13162. P6=q$)C9
  13163. )"N b
  13164. K g&<.
  13165. Bh}/n
  13166. ;lx-u7
  13167. AQiN+
  13168. 0;y!Wf
  13169. y`6A9
  13170. Lro&B
  13171. S*i `
  13172. Fnl~U
  13173. ,R$R<
  13174. D0od_
  13175. QqI3b
  13176. U!kNP
  13177. @%7F!
  13178. dHGe    
  13179. {L%qH1SG3
  13180. >+2w=7#qg
  13181. {93 $w
  13182. Qa4Ts
  13183. w{uW>
  13184. (sr.0
  13185. tM#E`
  13186. Y~a{t
  13187. "<4J5uR
  13188. !!Fz`R
  13189. ?ZVqv
  13190. D&2xb
  13191. #9}Wd
  13192. T!.`s
  13193. jX'TM
  13194. =BOYo
  13195. U41eB4
  13196. ;2; u
  13197. vrKJ(
  13198. =6Y3'
  13199. A%%L1S\
  13200. A:j^L
  13201. FY6.]=
  13202. c-rrF
  13203. y$l1dM
  13204. J-I)?
  13205. [*"-|
  13206. Q#~**
  13207. =/"+Q
  13208. EYF%"
  13209. -zI1q
  13210. F    >dJ7
  13211. hYk2?
  13212. $5xc05
  13213. Su!+0
  13214. D]rtz
  13215. O=Lotus Notes
  13216. O=Lotus Notes
  13217. PURSAFO
  13218. |.:#U
  13219. O=Lotus Notes
  13220. CN=Lotus Notes Template Development/O=Lotus Notes
  13221. PURSAFO
  13222. $ImagesWide
  13223. $ImagesHigh
  13224. $ImagesColorize
  13225. $TITLE
  13226. $ImageData
  13227. $ImageNames
  13228. TaskType
  13229. principal
  13230. chair
  13231. NoticeType
  13232. Broadcast
  13233. (Help)
  13234. MAIL_F_TASK_REC
  13235. (Help)
  13236. MAIL_F_TASK_REC_BRD
  13237. (Help)
  13238. MAIL_F_TASK_REC_MOD
  13239. (Help)
  13240. MAIL_F_TASK
  13241. (Help)
  13242. MAIL_F_TASK
  13243.     3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
  13244. Option Public
  13245. Option Explicit    
  13246. Use "CSUIDocClass"
  13247. '++LotusScript Development Environment:2:5:(Forward):0:1
  13248. '++LotusScript Development Environment:2:5:(Declarations):0:10
  13249. Dim uitaskdoc As BaseUIEventDocument
  13250. Lotus Product
  13251. OV0.0
  13252.  Task'++LotusScript Development Environment:2:5:(Options):0:66
  13253. '++LotusScript Development Environment:2:5:(Forward):0:1
  13254. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  13255. Declare Sub Postopen(Source As Notesuidocument)
  13256. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  13257. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  13258. Declare Sub Postsave(Source As Notesuidocument)
  13259. Declare Sub Postrecalc(Source As Notesuidocument)
  13260. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  13261. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13262. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13263. Private Sub BindEvents(Byval Objectname_ As String)
  13264.     Static Source As NOTESUIDOCUMENT
  13265.     Set Source = Bind(Objectname_)
  13266.     On Event Queryopen From Source Call Queryopen
  13267.     On Event Postopen From Source Call Postopen
  13268.     On Event Querysave From Source Call Querysave
  13269.     On Event Queryclose From Source Call Queryclose
  13270.     On Event Postsave From Source Call Postsave
  13271.     On Event Postrecalc From Source Call Postrecalc
  13272.     On Event Querymodechange From Source Call Querymodechange
  13273. End Sub
  13274. '++LotusScript Development Environment:2:2:Queryopen:1:12
  13275. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  13276.     Dim note As NotesDocument
  13277.     Dim bOwner As Integer
  13278.     If (source.InPreviewPane) Then Exit Sub
  13279.     bOwner = NOTEUserIsCreator(source.document)
  13280.     Set uitaskdoc = New BaseUIEventDocument(source, 2, bOwner)
  13281.     Call uitaskdoc.QueryOpen(mode, Isnewdoc, continue)     
  13282. End Sub
  13283. '++LotusScript Development Environment:2:2:Postopen:1:12
  13284. Sub Postopen(Source As Notesuidocument)
  13285.     If (source.InPreviewPane) Then Exit Sub
  13286.     Call uitaskdoc.PostOpen()
  13287. End Sub
  13288. '++LotusScript Development Environment:2:2:Querysave:1:12
  13289. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  13290.     If (source.InPreviewPane) Then Exit Sub
  13291.     On Error 4412 Resume Next
  13292.     source.refresh(True)
  13293.     Call uitaskdoc.QuerySave( Continue)
  13294.     source.reload
  13295. End Sub
  13296. '++LotusScript Development Environment:2:2:Queryclose:1:12
  13297. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  13298.     Dim ws As New notesuiworkspace
  13299.     If (source.InPreviewPane) Then Exit Sub
  13300.     If Not(uitaskdoc.WasSaved) Then
  13301.         Exit Sub          
  13302.     End If
  13303.     Call uitaskdoc.QueryClose( Continue)
  13304.     If Not (Continue) Then
  13305.         Exit Sub          
  13306.     End If
  13307.     Call ws.viewrefresh
  13308. End Sub
  13309. '++LotusScript Development Environment:2:2:Postsave:1:12
  13310. Sub Postsave(Source As Notesuidocument)
  13311.     If (source.InPreviewPane) Then Exit Sub
  13312.     Call uitaskdoc.PostSave() 
  13313. End Sub
  13314. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  13315. Sub Postrecalc(Source As Notesuidocument)
  13316.     Dim note As notesdocument
  13317.     If (source.InPreviewPane) Then Exit Sub
  13318.     Set note = source.document
  13319.     Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
  13320.     Call uitaskdoc.PostRecalc()
  13321. End Sub
  13322. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  13323. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  13324.     If (source.InPreviewPane) Then conitnue = False
  13325. End Sub
  13326. Lotus Product
  13327. KT    ,x
  13328. TabStyle
  13329.     Always Hidden: 
  13330. Principal
  13331. CalendarProfile
  13332. Owner
  13333.     1S2S3S7S
  13334. FromPerson memo is from.
  13335.     0S0E
  13336.     0S0E
  13337. Encrypt
  13338.     0S0E
  13339. DefaultMailSaveOptions
  13340. $KeepPrivate
  13341. $KeepPrivate
  13342. $KeepPrivate
  13343.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  13344. $ExpandGroups
  13345. TaskType
  13346.     Change To do Type
  13347.     -------------------------------
  13348. clipboard
  13349. TodoSelector
  13350. TodoSelector
  13351. xxNew
  13352. New Personal To Do
  13353. New Group To Do
  13354.     1S2S3S4S
  13355. xxOld
  13356. Personal To Do
  13357. Group To Do
  13358.     0R1S2S3S4S
  13359. tmpNewDoc
  13360. xxNew
  13361. TaskTypeX
  13362. xxOld
  13363. TaskTypeX
  13364.     0R1S2S5S6S11S15S21RTTTT25S
  13365.     0R4S
  13366. tmpType
  13367.     Basicsx
  13368. GroupSwish.gif
  13369.     Title:
  13370. Subject
  13371.     Start:
  13372. Startdate
  13373. StartDateTime
  13374. StartDate
  13375.     3S4S6S8S
  13376. StartDate
  13377.     Priority:
  13378. Importance
  13379. High|1Medium|2Low|3None|99
  13380. Repeats
  13381. Repeats|1
  13382. Repeats
  13383.     1S2S
  13384. '++LotusScript Development Environment:2:5:(Options):0:66
  13385. '++LotusScript Development Environment:2:5:(Forward):0:1
  13386. Declare Sub Click(Source As Button)
  13387. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13388. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13389. Private Sub BindEvents(Byval Objectname_ As String)
  13390. Static Source As BUTTON
  13391. Set Source = Bind(Objectname_)
  13392. On Event Click From Source Call Click
  13393. End Sub
  13394. '++LotusScript Development Environment:2:2:Click:1:12
  13395. Sub Click(Source As Button)
  13396.     Call uitaskdoc.UIObject.RepeatDialog()
  13397. End Sub
  13398. Lotus Product
  13399. OV0.0
  13400. New Button
  13401. Need a newer version of Notes to execute this button.
  13402.     0S0E
  13403.     Settings...
  13404.     Due:
  13405. DueDate
  13406. DueDateTime
  13407. DueDate
  13408.     3S4S5S6S8S
  13409. DueDate
  13410.     Status:
  13411. Status
  13412. Not Started|0In Progress|1On hold|2Completed|3
  13413.     Owner:
  13414. TaskType
  13415.     1S2S
  13416. Chair
  13417. tmpChair
  13418.     Options
  13419. GroupSwish.gif
  13420. OrgConfidential
  13421. Private|1
  13422. Alarms
  13423. Alarms|1
  13424. Alarms
  13425.     1S2S
  13426. '++LotusScript Development Environment:2:5:(Options):0:66
  13427. '++LotusScript Development Environment:2:5:(Forward):0:1
  13428. Declare Sub Click(Source As Button)
  13429. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13430. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13431. Private Sub BindEvents(Byval Objectname_ As String)
  13432. Static Source As BUTTON
  13433. Set Source = Bind(Objectname_)
  13434. On Event Click From Source Call Click
  13435. End Sub
  13436. '++LotusScript Development Environment:2:2:Click:1:12
  13437. Sub Click(Source As Button)
  13438.     Call uitaskdoc.UIObject.AlarmDialog()
  13439. End Sub
  13440. Lotus Product
  13441. OV0.0
  13442. New Button
  13443. Need a newer version of Notes to execute this button.
  13444.     0S0E
  13445.     Settings...
  13446.     Categories:
  13447. Categories
  13448. xxNotesCats
  13449. Holiday|H
  13450. Vacation|V
  13451. Projects|P
  13452. Clients|C
  13453. Phone Calls|PC
  13454. Travel|T
  13455.     1S2S
  13456. xxNotesCats
  13457. CalendarProfile
  13458. UserCategories
  13459. tmpOwner
  13460. Chair
  13461. TaskType
  13462.     1S2S3S4S5S6S
  13463.     Participantsx
  13464. GroupSwish.gif
  13465. tmpOwner
  13466. Chair
  13467. TaskType
  13468.     1S2S3S4S5S6S
  13469.     0S0E
  13470.     Required:
  13471. SendTo
  13472.     0S0E
  13473.     Optional:
  13474. CopyTo
  13475.     0S0E
  13476.     FYI:
  13477. BlindCopyTo
  13478. AppointmentType
  13479. tmpWasMailedY
  13480.     1S2S3S4S
  13481. TaskType
  13482. tmpWasMailedY
  13483.     1S2S3S4S
  13484.     Current Participantsx
  13485. GroupSwish.gif
  13486.     Required:
  13487. AssignedTo^
  13488.     0S0E
  13489. tmpRequired
  13490. tmpWasMailedY
  13491. tmpOwner
  13492. Chair
  13493.     4S5S6S7S
  13494. '++LotusScript Development Environment:2:5:(Options):0:66
  13495. '++LotusScript Development Environment:2:5:(Forward):0:1
  13496. Declare Sub Click(Source As Button)
  13497. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13498. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13499. Private Sub BindEvents(Byval Objectname_ As String)
  13500. Static Source As BUTTON
  13501. Set Source = Bind(Objectname_)
  13502. On Event Click From Source Call Click
  13503. End Sub
  13504. '++LotusScript Development Environment:2:2:Click:1:12
  13505. Sub Click(Source As Button)
  13506.     Call uitaskdoc.UIObject.RemoveParticipants()
  13507. End Sub
  13508. Lotus Product
  13509. OV0.0
  13510. Jz    H*z    
  13511. New Button
  13512. Need a newer version of Notes to execute this button.
  13513.     0S0E
  13514.     Remove...
  13515.     Optional:
  13516. OptionalAssignees
  13517.     0S0E
  13518. tmpOptional
  13519.     FYI:
  13520. FYIAssignees^
  13521.     0S0E
  13522. tmpFYI
  13523.     Details
  13524. GroupSwish.gif
  13525. Categori_zeK
  13526. _Edit Document
  13527. Send Docu_ment
  13528. _Forward
  13529. _Move To Folder...
  13530. _Remove From FolderK
  13531.     7S12SL
  13532. TaskType
  13533. tmpOwner
  13534. chair
  13535.     1S2S3S2E4S5S6S
  13536. act_ok.GIF|act_CSOK?
  13537. Send To Do'++LotusScript Development Environment:2:5:(Options):0:66
  13538. '++LotusScript Development Environment:2:5:(Forward):0:1
  13539. Declare Sub Click(Source As Button)
  13540. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13541. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13542. Private Sub BindEvents(Byval Objectname_ As String)
  13543. Static Source As BUTTON
  13544. Set Source = Bind(Objectname_)
  13545. On Event Click From Source Call Click
  13546. End Sub
  13547. '++LotusScript Development Environment:2:2:Click:1:12
  13548. Sub Click(Source As Button)
  13549.     Dim uiobject As Variant
  13550.     Dim uidoc As NotesUIDocument
  13551.     Set uidoc = uitaskdoc.UIDocument
  13552.     Set uiobject = uitaskdoc.UIObject
  13553.     uiobject.ActionInProgress = ACTION_SEND
  13554.     uiobject.ActionInProgress = ACTION_SAVE
  13555.     On Error 4411 Goto Done
  13556.     Call uidoc.save
  13557.     Call uidoc.close
  13558. Done:
  13559.     Exit Sub
  13560. End Sub
  13561. TaskType
  13562. Chair
  13563. tmpOwner
  13564.     1S2S3S4S5S6S
  13565. act_SEND.GIF|act_SEND?
  13566. Save Only
  13567. '++LotusScript Development Environment:2:5:(Options):0:66
  13568. '++LotusScript Development Environment:2:5:(Forward):0:1
  13569. Declare Sub Click(Source As Button)
  13570. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13571. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13572. Private Sub BindEvents(Byval Objectname_ As String)
  13573.     Static Source As BUTTON
  13574.     Set Source = Bind(Objectname_)
  13575.     On Event Click From Source Call Click
  13576. End Sub
  13577. '++LotusScript Development Environment:2:2:Click:1:12
  13578. Sub Click(Source As Button)
  13579.     Dim uiobject As Variant
  13580.     Dim uidoc As NotesUIDocument
  13581.     Set uidoc = uitaskdoc.UIDocument
  13582.     Set uiobject = uitaskdoc.UIObject
  13583.     uiobject.ActionInProgress = ACTION_SAVE
  13584.     On Error 4411 Goto done
  13585.     Call uidoc.save
  13586.     Call uidoc.close
  13587. Done:
  13588.     Exit Sub
  13589. End Sub
  13590. TaskType
  13591. Chair
  13592. tmpOwner
  13593.     1S2S3S4S5S6S
  13594. act_save.GIF|act_CSSAVE?
  13595. Discard ChangesKF
  13596. SaveOptions
  13597.     1S2S3S
  13598. tmpOwner
  13599. chair
  13600.     1S2S
  13601. act_discardchanges.GIF|act_CSDISCARD
  13602. Actions...\Reschedule
  13603. '++LotusScript Development Environment:2:5:(Options):0:66
  13604. '++LotusScript Development Environment:2:5:(Forward):0:1
  13605. Declare Sub Click(Source As Button)
  13606. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13607. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13608. Private Sub BindEvents(Byval Objectname_ As String)
  13609. Static Source As BUTTON
  13610. Set Source = Bind(Objectname_)
  13611. On Event Click From Source Call Click
  13612. End Sub
  13613. '++LotusScript Development Environment:2:2:Click:1:12
  13614. Sub Click(Source As Button)
  13615.     Dim uievent As UIEventObject
  13616.     Dim uidoc As notesuidocument
  13617.     Set uidoc = uitaskdoc.uidocument
  13618.     Set uievent = uitaskdoc.uiobject
  13619.     If uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)") Then
  13620.         If Not uidoc.editmode Then uidoc.editmode = True
  13621.         Call uidoc.save
  13622.         Call uidoc.close
  13623.     End If
  13624. End Sub
  13625. tmpWasMailedY
  13626. tmpowner
  13627. chair
  13628.     4S5S6S7S
  13629. Actions...\Cancel
  13630. '++LotusScript Development Environment:2:5:(Options):0:66
  13631. '++LotusScript Development Environment:2:5:(Forward):0:1
  13632. Declare Sub Click(Source As Button)
  13633. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13634. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13635. Private Sub BindEvents(Byval Objectname_ As String)
  13636. Static Source As BUTTON
  13637. Set Source = Bind(Objectname_)
  13638. On Event Click From Source Call Click
  13639. End Sub
  13640. '++LotusScript Development Environment:2:2:Click:1:12
  13641. Sub Click(Source As Button)
  13642.     Dim uievent As UIEventObject
  13643.     Dim uidoc As notesuidocument
  13644.     Set uidoc = uitaskdoc.uidocument
  13645.     Set uievent = uitaskdoc.uiobject
  13646.     If uievent.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)") Then    
  13647.         If Not uidoc.editmode Then uidoc.editmode = True
  13648.         Call uidoc.save
  13649.         Call uidoc.close
  13650.     End If
  13651. End Sub
  13652. tmpWasMailedY
  13653. tmpowner
  13654. chair
  13655.     4S5S6S7S
  13656. Actions...\Confirm'++LotusScript Development Environment:2:5:(Options):0:66
  13657. '++LotusScript Development Environment:2:5:(Forward):0:1
  13658. Declare Sub Click(Source As Button)
  13659. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13660. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13661. Private Sub BindEvents(Byval Objectname_ As String)
  13662. Static Source As BUTTON
  13663. Set Source = Bind(Objectname_)
  13664. On Event Click From Source Call Click
  13665. End Sub
  13666. '++LotusScript Development Environment:2:2:Click:1:12
  13667. Sub Click(Source As Button)
  13668.     Dim uievent As UIEventObject
  13669.     Dim uidoc As notesuidocument
  13670.     Set uidoc = uitaskdoc.uidocument
  13671.     Set uievent = uitaskdoc.uiobject
  13672.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)") Then
  13673.         If Not uidoc.editmode Then uidoc.editmode = True
  13674.         Call uidoc.save
  13675.         Call uidoc.close
  13676.     End If
  13677. End Sub
  13678. tmpWasMailedY
  13679. tmpowner
  13680. chair
  13681.     4S5S6S7S
  13682. Actions...\View Participant Status'++LotusScript Development Environment:2:5:(Options):0:66
  13683. '++LotusScript Development Environment:2:5:(Forward):0:1
  13684. Declare Sub Click(Source As Button)
  13685. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13686. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13687. Private Sub BindEvents(Byval Objectname_ As String)
  13688. Static Source As BUTTON
  13689. Set Source = Bind(Objectname_)
  13690. On Event Click From Source Call Click
  13691. End Sub
  13692. '++LotusScript Development Environment:2:2:Click:1:12
  13693. Sub Click(Source As Button)
  13694.     Call uitaskdoc.uiobject.ViewParticipantStatus()
  13695. End Sub
  13696. tmpWasMailedY
  13697. tmpowner
  13698. chair
  13699.     4S5S6S7S
  13700. Actions...\Send Memo to Participants'++LotusScript Development Environment:2:5:(Options):0:66
  13701. '++LotusScript Development Environment:2:5:(Forward):0:1
  13702. Declare Sub Click(Source As Button)
  13703. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13704. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13705. Private Sub BindEvents(Byval Objectname_ As String)
  13706. Static Source As BUTTON
  13707. Set Source = Bind(Objectname_)
  13708. On Event Click From Source Call Click
  13709. End Sub
  13710. '++LotusScript Development Environment:2:2:Click:1:12
  13711. Sub Click(Source As Button)
  13712.     Call uitaskdoc.uiobject.creatememo(True)
  13713. End Sub
  13714. tmpWasMailedY
  13715. tmpowner
  13716. chair
  13717.     4S5S6S7S
  13718. Completed
  13719. '++LotusScript Development Environment:2:5:(Options):0:66
  13720. '++LotusScript Development Environment:2:5:(Forward):0:1
  13721. Declare Sub Click(Source As Button)
  13722. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13723. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13724. Private Sub BindEvents(Byval Objectname_ As String)
  13725.     Static Source As BUTTON
  13726.     Set Source = Bind(Objectname_)
  13727.     On Event Click From Source Call Click
  13728. End Sub
  13729. '++LotusScript Development Environment:2:2:Click:1:12
  13730. Sub Click(Source As Button)
  13731.     Dim uidoc As NotesUIDocument
  13732.     Dim uiobject As Variant
  13733.     Dim nResult As Integer
  13734.     Set uiobject = uitaskdoc.UIObject
  13735.     Set uidoc = uitaskdoc.UIDocument     
  13736.     uiobject.SendComments = False
  13737.     uiobject.ActionInProgress = ACTION_COMPLETED
  13738.     If Not(uidoc.editmode) Then uidoc.editmode = True  
  13739.     Call uidoc.save
  13740.     Call uidoc.close
  13741. End Sub
  13742. NoticeType
  13743. TaskType
  13744.     1S2S3S4S5S6S
  13745. act_completed.GIF|act_CSCOMPLETED?
  13746. Delivery Options...KP
  13747. (C&S DeliveryOptions)
  13748. tmpOwner
  13749. Chair
  13750. TaskType
  13751.     1S2S3S4S5S6S
  13752. Respond...\Accept
  13753. '++LotusScript Development Environment:2:5:(Options):0:66
  13754. '++LotusScript Development Environment:2:5:(Forward):0:1
  13755. Declare Sub Click(Source As Button)
  13756. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13757. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13758. Private Sub BindEvents(Byval Objectname_ As String)
  13759. Static Source As BUTTON
  13760. Set Source = Bind(Objectname_)
  13761. On Event Click From Source Call Click
  13762. End Sub
  13763. '++LotusScript Development Environment:2:2:Click:1:12
  13764. Sub Click(Source As Button)
  13765.     Dim uidoc As NotesUIDocument
  13766.     Dim uiobject As Variant
  13767.     Dim nResult As Integer
  13768.     Set uiobject = uitaskdoc.UIObject
  13769.     Set uidoc = uitaskdoc.UIDocument     
  13770.     If (uiobject.OkToAccept(False)) Then
  13771.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  13772.         Call uidoc.save
  13773.         Call uidoc.close
  13774.     End If    
  13775. End Sub
  13776. tmpDonotprocess
  13777. tmpOwner
  13778. Chair
  13779. NoticeType
  13780. Broadcast
  13781.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  13782. Respond...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  13783. '++LotusScript Development Environment:2:5:(Forward):0:1
  13784. Declare Sub Click(Source As Button)
  13785. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13786. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13787. Private Sub BindEvents(Byval Objectname_ As String)
  13788. Static Source As BUTTON
  13789. Set Source = Bind(Objectname_)
  13790. On Event Click From Source Call Click
  13791. End Sub
  13792. '++LotusScript Development Environment:2:2:Click:1:12
  13793. Sub Click(Source As Button)
  13794.     Dim uidoc As NotesUIDocument
  13795.     Dim uiobject As Variant
  13796.     Dim nResult As Integer
  13797.     Set uiobject = uitaskdoc.UIObject
  13798.     Set uidoc = uitaskdoc.UIDocument     
  13799.     uiobject.SendComments = False
  13800.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  13801.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  13802.         Call uidoc.save
  13803.         Call uidoc.close
  13804.     End If 
  13805. End Sub
  13806. tmpDonotprocess
  13807. tmpOwner
  13808. Chair
  13809. NoticeType
  13810. Broadcast
  13811.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  13812. Respond...\DelegateK'++LotusScript Development Environment:2:5:(Options):0:66
  13813. '++LotusScript Development Environment:2:5:(Forward):0:1
  13814. Declare Sub Click(Source As Button)
  13815. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13816. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13817. Private Sub BindEvents(Byval Objectname_ As String)
  13818. Static Source As BUTTON
  13819. Set Source = Bind(Objectname_)
  13820. On Event Click From Source Call Click
  13821. End Sub
  13822. '++LotusScript Development Environment:2:2:Click:1:12
  13823. Sub Click(Source As Button)
  13824.     Dim uidoc As NotesUIDocument
  13825.     Dim uiobject As Variant
  13826.     Dim nResult As Integer
  13827.     Set uiobject = uitaskdoc.UIObject
  13828.     Set uidoc = uitaskdoc.UIDocument     
  13829.     uiobject.SendComments = False
  13830.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  13831.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  13832.         Call uidoc.save
  13833.         Call uidoc.close
  13834.     End If 
  13835. End Sub
  13836. tmpDonotprocess
  13837. tmpOwner
  13838. Chair
  13839. NoticeType
  13840. Broadcast
  13841. PreventDelegate
  13842.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  13843. Respond...\Propose new timeK'++LotusScript Development Environment:2:5:(Options):0:66
  13844. '++LotusScript Development Environment:2:5:(Forward):0:1
  13845. Declare Sub Click(Source As Button)
  13846. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13847. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13848. Private Sub BindEvents(Byval Objectname_ As String)
  13849. Static Source As BUTTON
  13850. Set Source = Bind(Objectname_)
  13851. On Event Click From Source Call Click
  13852. End Sub
  13853. '++LotusScript Development Environment:2:2:Click:1:12
  13854. Sub Click(Source As Button)
  13855.     Dim uidoc As NotesUIDocument
  13856.     Dim uiobject As Variant
  13857.     Set uiobject = uitaskdoc.UIObject
  13858.     Set uidoc = uitaskdoc.UIDocument     
  13859.     uiobject.SendComments = False
  13860.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  13861.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  13862.         Call uidoc.save
  13863.         Call uidoc.close
  13864.     End If 
  13865. End Sub
  13866. tmpDonotprocess
  13867. tmpOwner
  13868. Chair
  13869. NoticeType
  13870. Broadcast
  13871. PreventCounter
  13872.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  13873. Respond...\Completed'++LotusScript Development Environment:2:5:(Options):0:66
  13874. '++LotusScript Development Environment:2:5:(Forward):0:1
  13875. Declare Sub Click(Source As Button)
  13876. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13877. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13878. Private Sub BindEvents(Byval Objectname_ As String)
  13879.     Static Source As BUTTON
  13880.     Set Source = Bind(Objectname_)
  13881.     On Event Click From Source Call Click
  13882. End Sub
  13883. '++LotusScript Development Environment:2:2:Click:1:12
  13884. Sub Click(Source As Button)
  13885.     Dim uidoc As NotesUIDocument
  13886.     Dim uiobject As Variant
  13887.     Dim nResult As Integer
  13888.     Set uiobject = uitaskdoc.UIObject
  13889.     Set uidoc = uitaskdoc.UIDocument     
  13890.     uiobject.SendComments = False
  13891.     If (uiobject.OkToPerformAction(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)")) Then
  13892.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  13893.         Call uidoc.save
  13894.         Call uidoc.close
  13895.     End If 
  13896. End Sub
  13897. tmpDonotprocess
  13898. tmpOwner
  13899. Chair
  13900. NoticeType
  13901. Broadcast
  13902.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  13903. Respond with Comments...\AcceptK'++LotusScript Development Environment:2:5:(Options):0:66
  13904. '++LotusScript Development Environment:2:5:(Forward):0:1
  13905. Declare Sub Click(Source As Button)
  13906. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13907. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13908. Private Sub BindEvents(Byval Objectname_ As String)
  13909. Static Source As BUTTON
  13910. Set Source = Bind(Objectname_)
  13911. On Event Click From Source Call Click
  13912. End Sub
  13913. '++LotusScript Development Environment:2:2:Click:1:12
  13914. Sub Click(Source As Button)
  13915.     Dim uidoc As NotesUIDocument
  13916.     Dim uiobject As Variant
  13917.     Dim nResult As Integer
  13918.     Set uiobject = uitaskdoc.UIObject
  13919.     Set uidoc = uitaskdoc.UIDocument     
  13920.     If (uiobject.OkToAccept(True)) Then
  13921.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  13922.         Call uidoc.save
  13923.         Call uidoc.close
  13924.     End If    
  13925. End Sub
  13926. tmpDonotprocess
  13927. tmpOwner
  13928. Chair
  13929. NoticeType
  13930. Broadcast
  13931.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  13932. Respond with Comments...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  13933. '++LotusScript Development Environment:2:5:(Forward):0:1
  13934. Declare Sub Click(Source As Button)
  13935. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13936. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13937. Private Sub BindEvents(Byval Objectname_ As String)
  13938. Static Source As BUTTON
  13939. Set Source = Bind(Objectname_)
  13940. On Event Click From Source Call Click
  13941. End Sub
  13942. '++LotusScript Development Environment:2:2:Click:1:12
  13943. Sub Click(Source As Button)
  13944.     Dim uidoc As NotesUIDocument
  13945.     Dim uiobject As Variant
  13946.     Dim nResult As Integer
  13947.     Set uiobject = uitaskdoc.UIObject
  13948.     Set uidoc = uitaskdoc.UIDocument     
  13949.     uiobject.SendComments = True
  13950.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  13951.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  13952.         Call uidoc.save
  13953.         Call uidoc.close
  13954.     End If 
  13955. End Sub
  13956. tmpDonotprocess
  13957. tmpOwner
  13958. Chair
  13959. NoticeType
  13960. Broadcast
  13961.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  13962. Respond with Comments...\Delegate
  13963. '++LotusScript Development Environment:2:5:(Options):0:66
  13964. '++LotusScript Development Environment:2:5:(Forward):0:1
  13965. Declare Sub Click(Source As Button)
  13966. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13967. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13968. Private Sub BindEvents(Byval Objectname_ As String)
  13969. Static Source As BUTTON
  13970. Set Source = Bind(Objectname_)
  13971. On Event Click From Source Call Click
  13972. End Sub
  13973. '++LotusScript Development Environment:2:2:Click:1:12
  13974. Sub Click(Source As Button)
  13975.     Dim uidoc As NotesUIDocument
  13976.     Dim uiobject As Variant
  13977.     Dim nResult As Integer
  13978.     Set uiobject = uitaskdoc.UIObject
  13979.     Set uidoc = uitaskdoc.UIDocument   
  13980.     uiobject.SendComments = True  
  13981.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  13982.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  13983.         Call uidoc.save
  13984.         Call uidoc.close
  13985.     End If 
  13986. End Sub
  13987. tmpDonotprocess
  13988. tmpOwner
  13989. Chair
  13990. NoticeType
  13991. Broadcast
  13992. PreventDelegate
  13993.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  13994. Respond with Comments...\Propose new time
  13995. '++LotusScript Development Environment:2:5:(Options):0:66
  13996. '++LotusScript Development Environment:2:5:(Forward):0:1
  13997. Declare Sub Click(Source As Button)
  13998. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13999. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14000. Private Sub BindEvents(Byval Objectname_ As String)
  14001. Static Source As BUTTON
  14002. Set Source = Bind(Objectname_)
  14003. On Event Click From Source Call Click
  14004. End Sub
  14005. '++LotusScript Development Environment:2:2:Click:1:12
  14006. Sub Click(Source As Button)
  14007.     Dim uidoc As NotesUIDocument
  14008.     Dim uiobject As Variant
  14009.     Set uiobject = uitaskdoc.UIObject
  14010.     Set uidoc = uitaskdoc.UIDocument     
  14011.     uiobject.SendComments = True
  14012.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  14013.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14014.         Call uidoc.save
  14015.         Call uidoc.close
  14016.     End If 
  14017. End Sub
  14018. tmpDonotprocess
  14019. tmpOwner
  14020. Chair
  14021. NoticeType
  14022. Broadcast
  14023. PreventCounter
  14024.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  14025. Respond with Comments...\Completed'++LotusScript Development Environment:2:5:(Options):0:66
  14026. '++LotusScript Development Environment:2:5:(Forward):0:1
  14027. Declare Sub Click(Source As Button)
  14028. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14029. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14030. Private Sub BindEvents(Byval Objectname_ As String)
  14031.     Static Source As BUTTON
  14032.     Set Source = Bind(Objectname_)
  14033.     On Event Click From Source Call Click
  14034. End Sub
  14035. '++LotusScript Development Environment:2:2:Click:1:12
  14036. Sub Click(Source As Button)
  14037.     Dim uidoc As NotesUIDocument
  14038.     Dim uiobject As Variant
  14039.     Dim nResult As Integer
  14040.     Set uiobject = uitaskdoc.UIObject
  14041.     Set uidoc = uitaskdoc.UIDocument     
  14042.     uiobject.SendComments = False
  14043.     If (uiobject.OkToPerformAction(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)")) Then
  14044.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14045.         Call uidoc.save
  14046.         Call uidoc.close
  14047.     End If 
  14048. End Sub
  14049. tmpDonotprocess
  14050. tmpOwner
  14051. Chair
  14052. NoticeType
  14053. Broadcast
  14054.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14055. Add to To Do List
  14056. '++LotusScript Development Environment:2:5:(Options):0:66
  14057. '++LotusScript Development Environment:2:5:(Forward):0:1
  14058. Declare Sub Click(Source As Button)
  14059. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14060. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14061. Private Sub BindEvents(Byval Objectname_ As String)
  14062. Static Source As BUTTON
  14063. Set Source = Bind(Objectname_)
  14064. On Event Click From Source Call Click
  14065. End Sub
  14066. '++LotusScript Development Environment:2:2:Click:1:12
  14067. Sub Click(Source As Button)
  14068.     Dim uidoc As NotesUIDocument
  14069.     Dim uiobject As Variant
  14070.     Dim nResult As Integer
  14071.     Set uiobject = uitaskdoc.UIObject
  14072.     Set uidoc = uitaskdoc.UIDocument     
  14073.     If Not(uidoc.editmode) Then uidoc.editmode = True  
  14074.     uiobject.ActionInProgress = ACTION_ADDTOCALENDAR
  14075.     Call uidoc.save
  14076.     Call uidoc.close
  14077. End Sub
  14078. Broadcast
  14079.     1S2S
  14080. Request Information...:
  14081. Under Construction
  14082.     0S0E
  14083. tmpOwner
  14084. chair
  14085. tasktype
  14086.     1S2S3S4S5S6S
  14087. Categori_zeK
  14088. _Edit Document
  14089. Send Docu_ment
  14090. _Forward
  14091. _Move To Folder...
  14092. _Remove From FolderK
  14093.     7S12SL
  14094. TaskType
  14095. tmpOwner
  14096. chair
  14097.     1S2S3S2E4S5S6S
  14098. Send To Do'++LotusScript Development Environment:2:5:(Options):0:66
  14099. '++LotusScript Development Environment:2:5:(Forward):0:1
  14100. Declare Sub Click(Source As Button)
  14101. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14102. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14103. Private Sub BindEvents(Byval Objectname_ As String)
  14104. Static Source As BUTTON
  14105. Set Source = Bind(Objectname_)
  14106. On Event Click From Source Call Click
  14107. End Sub
  14108. '++LotusScript Development Environment:2:2:Click:1:12
  14109. Sub Click(Source As Button)
  14110.     Dim uiobject As Variant
  14111.     Dim uidoc As NotesUIDocument
  14112.     Set uidoc = uitaskdoc.UIDocument
  14113.     Set uiobject = uitaskdoc.UIObject
  14114.     uiobject.ActionInProgress = ACTION_SEND
  14115.     uiobject.ActionInProgress = ACTION_SAVE
  14116.     On Error 4411 Goto Done
  14117.     Call uidoc.save
  14118.     Call uidoc.close
  14119. Done:
  14120.     Exit Sub
  14121. End Sub
  14122. TaskType
  14123. Chair
  14124. tmpOwner
  14125.     1S2S3S4S5S6S
  14126. Save Only
  14127. '++LotusScript Development Environment:2:5:(Options):0:66
  14128. '++LotusScript Development Environment:2:5:(Forward):0:1
  14129. Declare Sub Click(Source As Button)
  14130. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14131. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14132. Private Sub BindEvents(Byval Objectname_ As String)
  14133.     Static Source As BUTTON
  14134.     Set Source = Bind(Objectname_)
  14135.     On Event Click From Source Call Click
  14136. End Sub
  14137. '++LotusScript Development Environment:2:2:Click:1:12
  14138. Sub Click(Source As Button)
  14139.     Dim uiobject As Variant
  14140.     Dim uidoc As NotesUIDocument
  14141.     Set uidoc = uitaskdoc.UIDocument
  14142.     Set uiobject = uitaskdoc.UIObject
  14143.     uiobject.ActionInProgress = ACTION_SAVE
  14144.     On Error 4411 Goto done
  14145.     Call uidoc.save
  14146.     Call uidoc.close
  14147. Done:
  14148.     Exit Sub
  14149. End Sub
  14150. TaskType
  14151. Chair
  14152. tmpOwner
  14153.     1S2S3S4S5S6S
  14154. Discard ChangesKF
  14155. SaveOptions
  14156.     1S2S3S
  14157. tmpOwner
  14158. chair
  14159.     1S2S
  14160. Actions...\Reschedule
  14161. '++LotusScript Development Environment:2:5:(Options):0:66
  14162. '++LotusScript Development Environment:2:5:(Forward):0:1
  14163. Declare Sub Click(Source As Button)
  14164. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14165. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14166. Private Sub BindEvents(Byval Objectname_ As String)
  14167. Static Source As BUTTON
  14168. Set Source = Bind(Objectname_)
  14169. On Event Click From Source Call Click
  14170. End Sub
  14171. '++LotusScript Development Environment:2:2:Click:1:12
  14172. Sub Click(Source As Button)
  14173.     Dim uievent As UIEventObject
  14174.     Dim uidoc As notesuidocument
  14175.     Set uidoc = uitaskdoc.uidocument
  14176.     Set uievent = uitaskdoc.uiobject
  14177.     If uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)") Then
  14178.         If Not uidoc.editmode Then uidoc.editmode = True
  14179.         Call uidoc.save
  14180.         Call uidoc.close
  14181.     End If
  14182. End Sub
  14183. tmpWasMailedY
  14184. tmpowner
  14185. chair
  14186.     4S5S6S7S
  14187. Actions...\Cancel
  14188. '++LotusScript Development Environment:2:5:(Options):0:66
  14189. '++LotusScript Development Environment:2:5:(Forward):0:1
  14190. Declare Sub Click(Source As Button)
  14191. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14192. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14193. Private Sub BindEvents(Byval Objectname_ As String)
  14194. Static Source As BUTTON
  14195. Set Source = Bind(Objectname_)
  14196. On Event Click From Source Call Click
  14197. End Sub
  14198. '++LotusScript Development Environment:2:2:Click:1:12
  14199. Sub Click(Source As Button)
  14200.     Dim uievent As UIEventObject
  14201.     Dim uidoc As notesuidocument
  14202.     Set uidoc = uitaskdoc.uidocument
  14203.     Set uievent = uitaskdoc.uiobject
  14204.     If uievent.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)") Then    
  14205.         If Not uidoc.editmode Then uidoc.editmode = True
  14206.         Call uidoc.save
  14207.         Call uidoc.close
  14208.     End If
  14209. End Sub
  14210. tmpWasMailedY
  14211. tmpowner
  14212. chair
  14213.     4S5S6S7S
  14214. Actions...\Confirm'++LotusScript Development Environment:2:5:(Options):0:66
  14215. '++LotusScript Development Environment:2:5:(Forward):0:1
  14216. Declare Sub Click(Source As Button)
  14217. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14218. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14219. Private Sub BindEvents(Byval Objectname_ As String)
  14220. Static Source As BUTTON
  14221. Set Source = Bind(Objectname_)
  14222. On Event Click From Source Call Click
  14223. End Sub
  14224. '++LotusScript Development Environment:2:2:Click:1:12
  14225. Sub Click(Source As Button)
  14226.     Dim uievent As UIEventObject
  14227.     Dim uidoc As notesuidocument
  14228.     Set uidoc = uitaskdoc.uidocument
  14229.     Set uievent = uitaskdoc.uiobject
  14230.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)") Then
  14231.         If Not uidoc.editmode Then uidoc.editmode = True
  14232.         Call uidoc.save
  14233.         Call uidoc.close
  14234.     End If
  14235. End Sub
  14236. tmpWasMailedY
  14237. tmpowner
  14238. chair
  14239.     4S5S6S7S
  14240. Actions...\View Participant Status'++LotusScript Development Environment:2:5:(Options):0:66
  14241. '++LotusScript Development Environment:2:5:(Forward):0:1
  14242. Declare Sub Click(Source As Button)
  14243. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14244. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14245. Private Sub BindEvents(Byval Objectname_ As String)
  14246. Static Source As BUTTON
  14247. Set Source = Bind(Objectname_)
  14248. On Event Click From Source Call Click
  14249. End Sub
  14250. '++LotusScript Development Environment:2:2:Click:1:12
  14251. Sub Click(Source As Button)
  14252.     Call uitaskdoc.uiobject.ViewParticipantStatus()
  14253. End Sub
  14254. tmpWasMailedY
  14255. tmpowner
  14256. chair
  14257.     4S5S6S7S
  14258. Actions...\Send Memo to Participants'++LotusScript Development Environment:2:5:(Options):0:66
  14259. '++LotusScript Development Environment:2:5:(Forward):0:1
  14260. Declare Sub Click(Source As Button)
  14261. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14262. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14263. Private Sub BindEvents(Byval Objectname_ As String)
  14264. Static Source As BUTTON
  14265. Set Source = Bind(Objectname_)
  14266. On Event Click From Source Call Click
  14267. End Sub
  14268. '++LotusScript Development Environment:2:2:Click:1:12
  14269. Sub Click(Source As Button)
  14270.     Call uitaskdoc.uiobject.creatememo(True)
  14271. End Sub
  14272. tmpWasMailedY
  14273. tmpowner
  14274. chair
  14275.     4S5S6S7S
  14276. Completed
  14277. '++LotusScript Development Environment:2:5:(Options):0:66
  14278. '++LotusScript Development Environment:2:5:(Forward):0:1
  14279. Declare Sub Click(Source As Button)
  14280. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14281. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14282. Private Sub BindEvents(Byval Objectname_ As String)
  14283.     Static Source As BUTTON
  14284.     Set Source = Bind(Objectname_)
  14285.     On Event Click From Source Call Click
  14286. End Sub
  14287. '++LotusScript Development Environment:2:2:Click:1:12
  14288. Sub Click(Source As Button)
  14289.     Dim uidoc As NotesUIDocument
  14290.     Dim uiobject As Variant
  14291.     Dim nResult As Integer
  14292.     Set uiobject = uitaskdoc.UIObject
  14293.     Set uidoc = uitaskdoc.UIDocument     
  14294.     uiobject.SendComments = False
  14295.     uiobject.ActionInProgress = ACTION_COMPLETED
  14296.     If Not(uidoc.editmode) Then uidoc.editmode = True  
  14297.     Call uidoc.save
  14298.     Call uidoc.close
  14299. End Sub
  14300. NoticeType
  14301. TaskType
  14302.     1S2S3S4S5S6S
  14303. Delivery Options...KP
  14304. (C&S DeliveryOptions)
  14305. tmpOwner
  14306. Chair
  14307. TaskType
  14308.     1S2S3S4S5S6S
  14309. Respond...\Accept
  14310. '++LotusScript Development Environment:2:5:(Options):0:66
  14311. '++LotusScript Development Environment:2:5:(Forward):0:1
  14312. Declare Sub Click(Source As Button)
  14313. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14314. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14315. Private Sub BindEvents(Byval Objectname_ As String)
  14316. Static Source As BUTTON
  14317. Set Source = Bind(Objectname_)
  14318. On Event Click From Source Call Click
  14319. End Sub
  14320. '++LotusScript Development Environment:2:2:Click:1:12
  14321. Sub Click(Source As Button)
  14322.     Dim uidoc As NotesUIDocument
  14323.     Dim uiobject As Variant
  14324.     Dim nResult As Integer
  14325.     Set uiobject = uitaskdoc.UIObject
  14326.     Set uidoc = uitaskdoc.UIDocument     
  14327.     If (uiobject.OkToAccept(False)) Then
  14328.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  14329.         Call uidoc.save
  14330.         Call uidoc.close
  14331.     End If    
  14332. End Sub
  14333. tmpDonotprocess
  14334. tmpOwner
  14335. Chair
  14336. NoticeType
  14337. Broadcast
  14338.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14339. Respond...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  14340. '++LotusScript Development Environment:2:5:(Forward):0:1
  14341. Declare Sub Click(Source As Button)
  14342. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14343. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14344. Private Sub BindEvents(Byval Objectname_ As String)
  14345. Static Source As BUTTON
  14346. Set Source = Bind(Objectname_)
  14347. On Event Click From Source Call Click
  14348. End Sub
  14349. '++LotusScript Development Environment:2:2:Click:1:12
  14350. Sub Click(Source As Button)
  14351.     Dim uidoc As NotesUIDocument
  14352.     Dim uiobject As Variant
  14353.     Dim nResult As Integer
  14354.     Set uiobject = uitaskdoc.UIObject
  14355.     Set uidoc = uitaskdoc.UIDocument     
  14356.     uiobject.SendComments = False
  14357.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  14358.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14359.         Call uidoc.save
  14360.         Call uidoc.close
  14361.     End If 
  14362. End Sub
  14363. tmpDonotprocess
  14364. tmpOwner
  14365. Chair
  14366. NoticeType
  14367. Broadcast
  14368.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  14369. Respond...\DelegateK'++LotusScript Development Environment:2:5:(Options):0:66
  14370. '++LotusScript Development Environment:2:5:(Forward):0:1
  14371. Declare Sub Click(Source As Button)
  14372. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14373. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14374. Private Sub BindEvents(Byval Objectname_ As String)
  14375. Static Source As BUTTON
  14376. Set Source = Bind(Objectname_)
  14377. On Event Click From Source Call Click
  14378. End Sub
  14379. '++LotusScript Development Environment:2:2:Click:1:12
  14380. Sub Click(Source As Button)
  14381.     Dim uidoc As NotesUIDocument
  14382.     Dim uiobject As Variant
  14383.     Dim nResult As Integer
  14384.     Set uiobject = uitaskdoc.UIObject
  14385.     Set uidoc = uitaskdoc.UIDocument     
  14386.     uiobject.SendComments = False
  14387.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  14388.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14389.         Call uidoc.save
  14390.         Call uidoc.close
  14391.     End If 
  14392. End Sub
  14393. tmpDonotprocess
  14394. tmpOwner
  14395. Chair
  14396. NoticeType
  14397. Broadcast
  14398. PreventDelegate
  14399.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  14400. Respond...\Propose new timeK'++LotusScript Development Environment:2:5:(Options):0:66
  14401. '++LotusScript Development Environment:2:5:(Forward):0:1
  14402. Declare Sub Click(Source As Button)
  14403. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14404. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14405. Private Sub BindEvents(Byval Objectname_ As String)
  14406. Static Source As BUTTON
  14407. Set Source = Bind(Objectname_)
  14408. On Event Click From Source Call Click
  14409. End Sub
  14410. '++LotusScript Development Environment:2:2:Click:1:12
  14411. Sub Click(Source As Button)
  14412.     Dim uidoc As NotesUIDocument
  14413.     Dim uiobject As Variant
  14414.     Set uiobject = uitaskdoc.UIObject
  14415.     Set uidoc = uitaskdoc.UIDocument     
  14416.     uiobject.SendComments = False
  14417.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  14418.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14419.         Call uidoc.save
  14420.         Call uidoc.close
  14421.     End If 
  14422. End Sub
  14423. tmpDonotprocess
  14424. tmpOwner
  14425. Chair
  14426. NoticeType
  14427. Broadcast
  14428. PreventCounter
  14429.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  14430. Respond...\Completed'++LotusScript Development Environment:2:5:(Options):0:66
  14431. '++LotusScript Development Environment:2:5:(Forward):0:1
  14432. Declare Sub Click(Source As Button)
  14433. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14434. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14435. Private Sub BindEvents(Byval Objectname_ As String)
  14436.     Static Source As BUTTON
  14437.     Set Source = Bind(Objectname_)
  14438.     On Event Click From Source Call Click
  14439. End Sub
  14440. '++LotusScript Development Environment:2:2:Click:1:12
  14441. Sub Click(Source As Button)
  14442.     Dim uidoc As NotesUIDocument
  14443.     Dim uiobject As Variant
  14444.     Dim nResult As Integer
  14445.     Set uiobject = uitaskdoc.UIObject
  14446.     Set uidoc = uitaskdoc.UIDocument     
  14447.     uiobject.SendComments = False
  14448.     If (uiobject.OkToPerformAction(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)")) Then
  14449.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14450.         Call uidoc.save
  14451.         Call uidoc.close
  14452.     End If 
  14453. End Sub
  14454. tmpDonotprocess
  14455. tmpOwner
  14456. Chair
  14457. NoticeType
  14458. Broadcast
  14459.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14460. Respond with Comments...\AcceptK'++LotusScript Development Environment:2:5:(Options):0:66
  14461. '++LotusScript Development Environment:2:5:(Forward):0:1
  14462. Declare Sub Click(Source As Button)
  14463. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14464. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14465. Private Sub BindEvents(Byval Objectname_ As String)
  14466. Static Source As BUTTON
  14467. Set Source = Bind(Objectname_)
  14468. On Event Click From Source Call Click
  14469. End Sub
  14470. '++LotusScript Development Environment:2:2:Click:1:12
  14471. Sub Click(Source As Button)
  14472.     Dim uidoc As NotesUIDocument
  14473.     Dim uiobject As Variant
  14474.     Dim nResult As Integer
  14475.     Set uiobject = uitaskdoc.UIObject
  14476.     Set uidoc = uitaskdoc.UIDocument     
  14477.     If (uiobject.OkToAccept(True)) Then
  14478.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  14479.         Call uidoc.save
  14480.         Call uidoc.close
  14481.     End If    
  14482. End Sub
  14483. tmpDonotprocess
  14484. tmpOwner
  14485. Chair
  14486. NoticeType
  14487. Broadcast
  14488.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14489. Respond with Comments...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  14490. '++LotusScript Development Environment:2:5:(Forward):0:1
  14491. Declare Sub Click(Source As Button)
  14492. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14493. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14494. Private Sub BindEvents(Byval Objectname_ As String)
  14495. Static Source As BUTTON
  14496. Set Source = Bind(Objectname_)
  14497. On Event Click From Source Call Click
  14498. End Sub
  14499. '++LotusScript Development Environment:2:2:Click:1:12
  14500. Sub Click(Source As Button)
  14501.     Dim uidoc As NotesUIDocument
  14502.     Dim uiobject As Variant
  14503.     Dim nResult As Integer
  14504.     Set uiobject = uitaskdoc.UIObject
  14505.     Set uidoc = uitaskdoc.UIDocument     
  14506.     uiobject.SendComments = True
  14507.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  14508.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14509.         Call uidoc.save
  14510.         Call uidoc.close
  14511.     End If 
  14512. End Sub
  14513. tmpDonotprocess
  14514. tmpOwner
  14515. Chair
  14516. NoticeType
  14517. Broadcast
  14518.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  14519. Respond with Comments...\Delegate
  14520. '++LotusScript Development Environment:2:5:(Options):0:66
  14521. '++LotusScript Development Environment:2:5:(Forward):0:1
  14522. Declare Sub Click(Source As Button)
  14523. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14524. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14525. Private Sub BindEvents(Byval Objectname_ As String)
  14526. Static Source As BUTTON
  14527. Set Source = Bind(Objectname_)
  14528. On Event Click From Source Call Click
  14529. End Sub
  14530. '++LotusScript Development Environment:2:2:Click:1:12
  14531. Sub Click(Source As Button)
  14532.     Dim uidoc As NotesUIDocument
  14533.     Dim uiobject As Variant
  14534.     Dim nResult As Integer
  14535.     Set uiobject = uitaskdoc.UIObject
  14536.     Set uidoc = uitaskdoc.UIDocument   
  14537.     uiobject.SendComments = True  
  14538.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  14539.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14540.         Call uidoc.save
  14541.         Call uidoc.close
  14542.     End If 
  14543. End Sub
  14544. tmpDonotprocess
  14545. tmpOwner
  14546. Chair
  14547. NoticeType
  14548. Broadcast
  14549. PreventDelegate
  14550.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  14551. Respond with Comments...\Propose new time
  14552. '++LotusScript Development Environment:2:5:(Options):0:66
  14553. '++LotusScript Development Environment:2:5:(Forward):0:1
  14554. Declare Sub Click(Source As Button)
  14555. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14556. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14557. Private Sub BindEvents(Byval Objectname_ As String)
  14558. Static Source As BUTTON
  14559. Set Source = Bind(Objectname_)
  14560. On Event Click From Source Call Click
  14561. End Sub
  14562. '++LotusScript Development Environment:2:2:Click:1:12
  14563. Sub Click(Source As Button)
  14564.     Dim uidoc As NotesUIDocument
  14565.     Dim uiobject As Variant
  14566.     Set uiobject = uitaskdoc.UIObject
  14567.     Set uidoc = uitaskdoc.UIDocument     
  14568.     uiobject.SendComments = True
  14569.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  14570.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14571.         Call uidoc.save
  14572.         Call uidoc.close
  14573.     End If 
  14574. End Sub
  14575. tmpDonotprocess
  14576. tmpOwner
  14577. Chair
  14578. NoticeType
  14579. Broadcast
  14580. PreventCounter
  14581.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  14582. Respond with Comments...\Completed'++LotusScript Development Environment:2:5:(Options):0:66
  14583. '++LotusScript Development Environment:2:5:(Forward):0:1
  14584. Declare Sub Click(Source As Button)
  14585. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14586. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14587. Private Sub BindEvents(Byval Objectname_ As String)
  14588.     Static Source As BUTTON
  14589.     Set Source = Bind(Objectname_)
  14590.     On Event Click From Source Call Click
  14591. End Sub
  14592. '++LotusScript Development Environment:2:2:Click:1:12
  14593. Sub Click(Source As Button)
  14594.     Dim uidoc As NotesUIDocument
  14595.     Dim uiobject As Variant
  14596.     Dim nResult As Integer
  14597.     Set uiobject = uitaskdoc.UIObject
  14598.     Set uidoc = uitaskdoc.UIDocument     
  14599.     uiobject.SendComments = False
  14600.     If (uiobject.OkToPerformAction(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)")) Then
  14601.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  14602.         Call uidoc.save
  14603.         Call uidoc.close
  14604.     End If 
  14605. End Sub
  14606. tmpDonotprocess
  14607. tmpOwner
  14608. Chair
  14609. NoticeType
  14610. Broadcast
  14611.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14612. Add to To Do List
  14613. '++LotusScript Development Environment:2:5:(Options):0:66
  14614. '++LotusScript Development Environment:2:5:(Forward):0:1
  14615. Declare Sub Click(Source As Button)
  14616. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14617. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14618. Private Sub BindEvents(Byval Objectname_ As String)
  14619. Static Source As BUTTON
  14620. Set Source = Bind(Objectname_)
  14621. On Event Click From Source Call Click
  14622. End Sub
  14623. '++LotusScript Development Environment:2:2:Click:1:12
  14624. Sub Click(Source As Button)
  14625.     Dim uidoc As NotesUIDocument
  14626.     Dim uiobject As Variant
  14627.     Dim nResult As Integer
  14628.     Set uiobject = uitaskdoc.UIObject
  14629.     Set uidoc = uitaskdoc.UIDocument     
  14630.     If Not(uidoc.editmode) Then uidoc.editmode = True  
  14631.     uiobject.ActionInProgress = ACTION_ADDTOCALENDAR
  14632.     Call uidoc.save
  14633.     Call uidoc.close
  14634. End Sub
  14635. Broadcast
  14636.     1S2S
  14637. Request Information...:
  14638. Under Construction
  14639.     0S0E
  14640. tmpOwner
  14641. chair
  14642. tasktype
  14643.     1S2S3S4S5S6S
  14644. Lotus Product
  14645. OBJECT
  14646. Lotus Product
  14647. OBJECT
  14648. Lotus Productd
  14649. }V0.0
  14650. ^P8Np7P
  14651. E#Np7P
  14652. @~ 9~ J&
  14653. A}8"}@
  14654. A}8"}@
  14655. A}\"#
  14656. @~`9~8J&
  14657. @~ 9~PJ&
  14658. T F}h
  14659. Lotus Product
  14660. OBJECT
  14661. Lotus Product
  14662. Lotus Product
  14663. OV0.0
  14664. Lotus Product
  14665. OV0.0
  14666. Lotus Product
  14667. OBJECT
  14668. Lotus Product
  14669. Lotus Product
  14670. Lotus Productd
  14671. }V0.0
  14672. ^P8Np7P
  14673. E#Np7P
  14674. @~ 9~ J&
  14675. A}8"}@
  14676. A}8"}@
  14677. A}\"#
  14678. @~`9~8J&
  14679. @~ 9~PJ&
  14680. T F}h
  14681. Lotus Product
  14682. V0.0S
  14683. Lotus Product
  14684. Lotus Productd
  14685. }V0.0
  14686. ^P8Np7P
  14687. E#Np7P
  14688. @~ 9~ J&
  14689. A}8"}@
  14690. A}8"}@
  14691. A}\"#
  14692. @~`9~8J&
  14693. @~ 9~PJ&
  14694. T F}h
  14695. Lotus Productd
  14696. }V0.0
  14697. ^P8Np7P
  14698. E#Np7P
  14699. @~ 9~ J&
  14700. A}8"}@
  14701. A}8"}@
  14702. A}\"#
  14703. @~`9~8J&
  14704. @~ 9~PJ&
  14705. T F}h
  14706. Lotus Product
  14707. OV0.0
  14708. Lotus Productd
  14709. }V0.0
  14710. ^P8Np7P
  14711. E#Np7P
  14712. @~ 9~ J&
  14713. A}8"}@
  14714. A}8"}@
  14715. A}\"#
  14716. @~`9~8J&
  14717. @~ 9~PJ&
  14718. T F}h
  14719. Lotus Product
  14720. OBJECT
  14721. Lotus Product
  14722. O=Lotus Notes
  14723. O=Lotus Notes
  14724. PURSAFO
  14725. |.:#U
  14726. O=Lotus Notes
  14727. CN=Lotus Notes Template Development/O=Lotus Notes
  14728. PURSAFO
  14729. ASSIGNSTATE
  14730. STARTDATETIME
  14731. DueDateTime
  14732. $HTMLDocumentStyles
  14733. $Info
  14734. $AppHelpFormula
  14735. $Script
  14736. $$Script_O
  14737. $$ScriptName
  14738. $$FormScript
  14739. $$$FormScript_O
  14740. StartDate
  14741. DueDate
  14742. $Body
  14743. $V5ACTIONS
  14744. $ACTIONS
  14745. $SCRIPTOBJ_7
  14746. $SCRIPTOBJ_8
  14747. $SCRIPTOBJ_10
  14748. $SCRIPTOBJ_11
  14749. $SCRIPTOBJ_12
  14750. $SCRIPTOBJ_13
  14751. $SCRIPTOBJ_14
  14752. $SCRIPTOBJ_15
  14753. $SCRIPTOBJ_17
  14754. $SCRIPTOBJ_18
  14755. $SCRIPTOBJ_19
  14756. $SCRIPTOBJ_20
  14757. $SCRIPTOBJ_21
  14758. $SCRIPTOBJ_22
  14759. $SCRIPTOBJ_23
  14760. $SCRIPTOBJ_24
  14761. $SCRIPTOBJ_25
  14762. $SCRIPTOBJ_26
  14763. $SCRIPTOBJ_27
  14764. $PublicAccess
  14765. To do
  14766. ($ToDo)|Tasks?
  14767. By Category
  14768. To do's\By Category|TodoByCategory
  14769. TodoByCategory
  14770. By Status
  14771. To do's\By Status|TodoByStatus
  14772. TodoByStatus
  14773. Trash Bin
  14774. ($SoftDeletions)
  14775. O=Lotus Notes
  14776. O=Lotus Notes
  14777. PURSAFO
  14778. |.:#U
  14779. O=Lotus Notes
  14780. CN=Lotus Notes Template Development/O=Lotus Notes
  14781. PURSAFO
  14782. $PublicAccess
  14783. $SiteMapList
  14784. GIF89a
  14785. ?_?__
  14786. `!b`1
  14787. 7`^///?
  14788. ?b___
  14789. `bOOO
  14790. `<b!R
  14791. N>*)W
  14792. ZZBVM
  14793. 0Dp>t
  14794. leG#\
  14795. 2mJ~U
  14796. !V$G"s
  14797. 2RpmD:$
  14798. UnZH)
  14799. ResFa
  14800. +&`$ (3Y
  14801. #lwX(,
  14802. '6pg3
  14803. wpD2Vo8
  14804. ekxII
  14805. v5^F`
  14806. vqUWO
  14807. swtt>
  14808. S u-$R
  14809. I7n-i
  14810. z}gUx
  14811. ydw62
  14812. r~z|"
  14813. e:XVz
  14814. 8Wcxu)W
  14815. 5L7~    {
  14816. gow{U
  14817. {Tdg"
  14818. 9ET('
  14819. yq$;cNZ
  14820. }a\G&W
  14821. >:qwzjKf\nm
  14822. gLd](
  14823. _!h9\
  14824. ,B:h:
  14825. z;-b~
  14826. Lotus Product
  14827. To Do Picker
  14828. To Do Outline
  14829. TodoOutlineNotesView
  14830. O=Lotus Notes
  14831. O=Lotus Notes
  14832. PURSAFO
  14833. |.:#U
  14834. O=Lotus Notes
  14835. CN=Lotus Notes Template Development/O=Lotus Notes
  14836. PURSAFO
  14837. $Background
  14838. $Info
  14839. $$Script_O
  14840. $$ScriptName
  14841. $Body
  14842. "Small Fonts
  14843. Lotus Product
  14844. To Do Switcher
  14845. GIF89a
  14846. ?_?__
  14847. `!b`1
  14848. 7`^///?
  14849. ?b___
  14850. `bOOO
  14851. `<b!R
  14852. 0V.Z0c
  14853. $XD^T
  14854. -I%L7b
  14855. MailFramesetTARGET="_top"
  14856. MailFS|MailFS
  14857. CalendarFramesetTARGET="_top"
  14858. CalendarFS|CalendarFS
  14859. O=Lotus Notes
  14860. O=Lotus Notes
  14861. PURSAFO
  14862. |.:#U
  14863. O=Lotus Notes
  14864. CN=Lotus Notes Template Development/O=Lotus Notes
  14865. PURSAFO
  14866. $Info
  14867. $$Script_O
  14868. $$ScriptName
  14869. $Body
  14870. Lotus Product
  14871. V0.0e
  14872. To Do Title
  14873. to do
  14874. O=Lotus Notes
  14875. O=Lotus Notes
  14876. PURSAFO
  14877. |.:#U
  14878. O=Lotus Notes
  14879. CN=Lotus Notes Template Development/O=Lotus Notes
  14880. PURSAFO
  14881. $Info
  14882. $$Script_O
  14883. $$ScriptName
  14884. $Body
  14885. To Do Title?
  14886. NotesNavigatorNotesView?
  14887. To Do Picker
  14888. Switcher
  14889. To Do Switcher
  14890. NotesViewNotesPreview?
  14891. ($ToDo)|Tasks?
  14892. NotesPreview
  14893. O=Lotus Notes
  14894. O=Lotus Notes
  14895. PURSAFO
  14896. |.:#U
  14897. O=Lotus Notes
  14898. CN=Lotus Notes Template Development/O=Lotus Notes
  14899. PURSAFO
  14900. $TITLE
  14901. $Comment
  14902. $PublicAccess
  14903. $FrameSet
  14904. $Flags
  14905. Personal to do
  14906. TaskType
  14907.     3S4S6S11S
  14908. TaskType
  14909.     1S2S3S
  14910.     0S0E
  14911. Group to do
  14912. AppointmentType
  14913.     3S4S6S11S
  14914. TaskType
  14915.     1S2S3S
  14916.     0S0E
  14917. O=Lotus Notes
  14918. O=Lotus Notes
  14919. PURSAFO
  14920. |.:#U
  14921. O=Lotus Notes
  14922. CN=Lotus Notes Template Development/O=Lotus Notes
  14923. PURSAFO
  14924. $PublicAccess
  14925. $SiteMapList
  14926. (GIF89a
  14927. <a>7`^///""
  14928. 5l"    T
  14929. kIj8mY
  14930. %:qM#
  14931. a$FaS$
  14932. &PaI7
  14933. `Nl%|Y
  14934. XbD    Q
  14935. (mMk_
  14936. _J%kxt8NzA
  14937. i<m0E
  14938. ZMkL_
  14939. ^8D^S)k
  14940. 0.R_K
  14941. fWW}{
  14942. xa7xv
  14943. H~ Fj
  14944. dNV)k
  14945. 9&ucz
  14946. yq(1Gh^
  14947. m3WA 
  14948. /8~^w
  14949. 6!&4516
  14950. zDxDK
  14951.     #'xF
  14952. (t9zJ
  14953. 4+!ucN
  14954. Xj3x2q
  14955. sf{aZ
  14956. 9q"b3R
  14957. RH     kJ+
  14958. C)k5B^
  14959. %dL?b
  14960. u4x*.X
  14961. n9*Vw
  14962. x-GdP
  14963. !-Ye1
  14964. L^kH]k)
  14965. ;PcJ$
  14966. &6k*U
  14967. V|Ud,7
  14968. Cu`_33
  14969. i    B    $
  14970. h7+>c|
  14971. f&Y]G
  14972. 3U=bQ
  14973. A1+Dq
  14974. O=Lotus Notes
  14975. O=Lotus Notes
  14976. PURSAFO
  14977. |.:#U
  14978. O=Lotus Notes
  14979. CN=Lotus Notes Template Development/O=Lotus Notes
  14980. PURSAFO
  14981. $ImagesWide
  14982. $ImagesHigh
  14983. $ImagesColorize
  14984. $ImageData
  14985. $ImageNames
  14986. $TITLE
  14987. (GIF89a
  14988. vtsss
  14989. 2..15;;!
  14990. 0220>
  14991. >+00/
  14992. ?779    
  14993. ?:dPJ
  14994. }XA4]E
  14995. ,`6hU6
  14996. 3?h .00
  14997. VBZjU
  14998. "6H@m4
  14999. 0l::ap3(7
  15000. 2JR2s)#
  15001. f-myL)
  15002. k^G02
  15003. )wpPS
  15004. x`33`
  15005. \XD@^:
  15006. [\''Q2@\
  15007. uKS5O
  15008. PbMC';
  15009. fpv\vvc
  15010. fA,`p0
  15011. B#SbP3jZ3x
  15012. uQqGo!
  15013. $@",#
  15014. UKYHQ
  15015. :)@{y
  15016. Q2w'?
  15017. :252, 2
  15018. 8j8 O1
  15019. EsVA| #
  15020. :}>N&
  15021. 08hdH
  15022. @@"X,
  15023. @Kr@)
  15024. *V 5KmBc
  15025. ].I`m,u
  15026. Yd?nJwk
  15027. >T>@#
  15028. @"{>,u
  15029. >`D$&
  15030. S`/@D
  15031. !(5#-
  15032. ST(q*q
  15033. /b_V5X
  15034. DmdW|s
  15035. 2luS0Pa
  15036. gi3uR
  15037. TFL''
  15038. iep+0
  15039. 7n13is
  15040. -z    9c
  15041. '*pym
  15042. c6p3;
  15043. !;/:2
  15044. ZL`TP
  15045. ,!)^Ef!
  15046. &8U)Pf
  15047. >hg60M
  15048. qG)s7
  15049. jvG{q
  15050.     e(8SQ
  15051. 6)#d}Ed
  15052. &rd2    
  15053. 3HL(!]
  15054.     @?LP
  15055. "6*` 
  15056. "')(i
  15057. 'JPh&4
  15058. 3lb4&
  15059. x{$XVE
  15060. aBJTz
  15061. M4m|5`
  15062. f`kc*+
  15063. M''m?
  15064.     'a    i3v|
  15065. \40I2bL
  15066. \1f    `
  15067. gb{q[
  15068. eV4q )U
  15069. Dg*;P
  15070. IR2FQ
  15071. \qN    [
  15072. YHVP#
  15073. `%(h    
  15074. ^:0Doh
  15075. "0p4;
  15076. O=Lotus Notes
  15077. O=Lotus Notes
  15078. PURSAFO
  15079. |.:#U
  15080. O=Lotus Notes
  15081. CN=Lotus Notes Template Development/O=Lotus Notes
  15082. PURSAFO
  15083. $ImagesWide
  15084. $ImagesHigh
  15085. $ImagesColorize
  15086. $TITLE
  15087. $ImageData
  15088. $ImageNames
  15089. (GIF89a
  15090. <a>7`^///""
  15091. #6dhP
  15092. P6=q$)C9
  15093. )"N b
  15094. K g&<.
  15095. Bh}/n
  15096. ;lx-u7
  15097. AQiN+
  15098. 0;y!Wf
  15099. y`6A9
  15100. Lro&B
  15101. S*i `
  15102. Fnl~U
  15103. ,R$R<
  15104. D0od_
  15105. QqI3b
  15106. U!kNP
  15107. @%7F!
  15108. dHGe    
  15109. {L%qH1SG3
  15110. >+2w=7#qg
  15111. {93 $w
  15112. Qa4Ts
  15113. w{uW>
  15114. (sr.0
  15115. tM#E`
  15116. Y~a{t
  15117. "<4J5uR
  15118. !!Fz`R
  15119. ?ZVqv
  15120. D&2xb
  15121. #9}Wd
  15122. T!.`s
  15123. jX'TM
  15124. =BOYo
  15125. U41eB4
  15126. ;2; u
  15127. vrKJ(
  15128. =6Y3'
  15129. A%%L1S\
  15130. A:j^L
  15131. FY6.]=
  15132. c-rrF
  15133. y$l1dM
  15134. J-I)?
  15135. [*"-|
  15136. Q#~**
  15137. =/"+Q
  15138. EYF%"
  15139. -zI1q
  15140. F    >dJ7
  15141. hYk2?
  15142. $5xc05
  15143. Su!+0
  15144. D]rtz
  15145. O=Lotus Notes
  15146. O=Lotus Notes
  15147. PURSAFO
  15148. |.:#U
  15149. O=Lotus Notes
  15150. CN=Lotus Notes Template Development/O=Lotus Notes
  15151. PURSAFO
  15152. $ImagesWide
  15153. $ImagesHigh
  15154. $ImagesColorize
  15155. $TITLE
  15156. $ImageData
  15157. $ImageNames
  15158. z"z"GIF89a
  15159. b!R`!b___OOOBB
  15160. ///!!
  15161. pH,z0G
  15162. d1gj;8=
  15163. ECyI}
  15164. e.#Tu
  15165. "&&-h    ~f
  15166. +iRyQ
  15167. t!G]F
  15168. -v[[ 
  15169. <Ng6-[eo
  15170. B;|tc
  15171. ba#g}
  15172. 9gd<{
  15173. Ww]a+
  15174. m>x#^$w
  15175. c^ x^~
  15176. ;$Hc9g
  15177. QlPm.2K
  15178. Iq4h{
  15179. (H0%b
  15180. m=TRkv
  15181. ks[xW
  15182. ub}VJljX
  15183. J9ZEU
  15184. Prl60
  15185. y/1|Q    
  15186. vb"_!C
  15187. o    5<    +
  15188. Uh#q-$
  15189. t~p!E
  15190. QTVs4
  15191. Ae7A{*I
  15192. Cq\5s!
  15193. p$h7x
  15194. `!UU\
  15195. 4JV1~
  15196. =0qli
  15197. $(/!v
  15198. 5NnNp
  15199. bd6A$
  15200. 8fF%D
  15201. \eKay
  15202. 0<s#    !K
  15203. kA t    I
  15204. G]qF.
  15205.     'I.[
  15206. $m,=N
  15207. A$(Kx
  15208. nW@8s_w6
  15209. d!Cub
  15210. yb    EF]M
  15211. cJ O&zM
  15212. O=Lotus Notes
  15213. O=Lotus Notes
  15214. PURSAFO
  15215. |.:#U
  15216. O=Lotus Notes
  15217. CN=Lotus Notes Template Development/O=Lotus Notes
  15218. PURSAFO
  15219. $ImagesWide
  15220. $ImagesHigh
  15221. $ImagesColorize
  15222. $TITLE
  15223. $ImageData
  15224. $ImageNames
  15225. '++LotusScript Development Environment:2:5:(Options):0:74
  15226. Option Public
  15227. Option Explicit
  15228. Use "Common"
  15229. %INCLUDE "lsxbeerr.lss"
  15230. '++LotusScript Development Environment:2:5:(Forward):0:1
  15231. Declare Sub Initialize
  15232. Declare Sub Terminate
  15233. Declare Function CanProcessNote(note As NotesDocument) As Integer
  15234. Declare Sub InitTodoObject(vTodo As Variant, note As notesdocument)
  15235. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15236. '++LotusScript Development Environment:2:2:Initialize:1:10
  15237. Sub Initialize
  15238.     Dim session As New NotesSession
  15239.     Dim db As notesdatabase
  15240.     Dim viewTodo As NotesView
  15241.     Dim note As NotesDocument
  15242.     Dim dtToday As NotesDateTime
  15243.     Dim viewEntries As NotesViewEntryCollection
  15244.     Dim viewEntry As NotesViewEntry
  15245.     Dim vTodo As Variant
  15246.     ' Initialize variables
  15247.     Set db = session.currentdatabase
  15248.     Set viewTodo = db.GetView("Tasks")
  15249.     If (viewTodo Is Nothing) Then Exit Sub
  15250.     ' Enumerate the todo entries
  15251.     Set viewEntries = viewTodo.AllEntries()
  15252.     Set viewEntry = viewEntries.GetFirstEntry()
  15253.     While Not(viewEntry Is Nothing)
  15254.         If (viewEntry.IsDocument()) Then
  15255.             Set note = viewEntry.Document
  15256.             If (CanProcessNote(note)) Then
  15257.                 If (NOTEUserIsCreator(note)) Then
  15258.                     Set vTodo = New NotesCSEventOwnerDocument(2)
  15259.                 Else
  15260.                     Set vTodo = New NotesCSEventParticipantDocument(2)
  15261.                 End If
  15262.                 ' See if this is a repeating entry
  15263.                 If (note.HasItem("OrgRepeat")) Then Call InitTodoObject(vTodo, note)
  15264.                 Call vTodo.Init(note)
  15265.                 Call vTodo.SetDueState()
  15266.                 Call vTodo.SetCalendarDateTime()
  15267.                 Call vTodo.SetViewIcon()
  15268.                 Call note.replaceitemvalue("tmpMod", "1")
  15269.                 Call vTodo.MarkTempItems()
  15270.                 If (note.HasItem("OrgRepeat")) Then
  15271.                     vTodo.RepeatModify = REPEAT_CURRENT
  15272.                     Call vTodo.CreateRepeatExceptions(REPEAT_CURRENT)                    
  15273.                 End If
  15274.                 Call note.save(True, True, True)
  15275.             End If
  15276.         End If
  15277.         Set viewEntry = viewEntries.GetNextEntry(viewEntry)
  15278.     Wend
  15279. End Sub
  15280. '++LotusScript Development Environment:2:2:Terminate:1:10
  15281. Sub Terminate
  15282. End Sub
  15283. '++LotusScript Development Environment:2:1:CanProcessNote:1:8
  15284. Function CanProcessNote(note As NotesDocument) As Integer
  15285.     CanProcessNote = False
  15286.     ' make sure this is a to do item
  15287.     If (Strcomp(note.GetItemValue("Form")(0), "Task") <> 0) Then Exit Function
  15288.     ' make sure this is not completed
  15289.     If (note.hasitem("AssignState")) Then
  15290.         If (note.GetItemValue("AssignState")(0) > 8) Then Exit Function
  15291.     End If
  15292.     ' make sure we are not processing a repeat parent
  15293.     If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then Exit Function
  15294.     CanProcessNote = True
  15295. End Function
  15296. '++LotusScript Development Environment:2:2:InitTodoObject:1:8
  15297. Sub InitTodoObject(vTodo As Variant, note As notesdocument)
  15298.     Dim itemDates As notesitem
  15299.     Dim dtInstance As NotesDateTime
  15300.     ' seed the calendar instance with the first date in the list
  15301.     Set itemDates = note.GetFirstItem(vTodo.StartItemName)
  15302.     Call TIMEGetNotesFromLS(itemDates.Values(0), dtInstance)
  15303.     Set vTodo.CalendarInstance = dtInstance
  15304. End Sub
  15305. Lotus Product
  15306. V0.0U
  15307. X 8#D:
  15308. x x x:
  15309.  x+ ;
  15310. x!X*@<
  15311. !X"<=
  15312. "8%x=
  15313. $8$@A
  15314. $X%`B
  15315. &8) E
  15316. 8'X'PG
  15317. )8*$L
  15318. x*8+xM
  15319. *X,XN
  15320. X,81,Q
  15321. -X0XT
  15322. .X1 V
  15323. .8/TV
  15324. 0x0`X
  15325. 0824Z
  15326. ?<?<?P@P@
  15327. 4+\3$
  15328. 5-@>#
  15329. 7,d>#
  15330. ^d6Kt8-
  15331. )4;^d6#8
  15332. 8^d6#8
  15333. 8^d6#
  15334. ?^d6'
  15335. 8T$?'
  15336. 8T0?'
  15337. Kd6,<?}
  15338. 8Tp?'
  15339. 8Q|?~
  15340. ?Jt8#
  15341. ;-,@#
  15342. <,P@N
  15343. =Kl=-
  15344. O=Lotus Notes
  15345. O=Lotus Notes
  15346. PURSAFO
  15347. |.:#U
  15348. O=Lotus Notes
  15349. CN=Lotus Notes Template Development/O=Lotus Notes
  15350. PURSAFO
  15351. W-S,'
  15352. $TITLE
  15353. $AssistType
  15354. $AssistLastRun
  15355. $AssistDocCount
  15356. $AssistFlags
  15357. $MachineName
  15358. $AssistTrigger
  15359. $AssistInfo
  15360. $AssistQuery
  15361. $AssistAction
  15362. $AssistAction_Ex
  15363. (GIF89a
  15364. <a>7`^///""
  15365. #6dhP
  15366. P6=q$)C9
  15367. )"N b
  15368. K g&<.
  15369. Bh}/n
  15370. ;lx-u7
  15371. AQiN+
  15372. 0;y!Wf
  15373. y`6A9
  15374. Lro&B
  15375. S*i `
  15376. Fnl~U
  15377. ,R$R<
  15378. D0od_
  15379. QqI3b
  15380. U!kNP
  15381. @%7F!
  15382. dHGe    
  15383. {L%qH1SG3
  15384. >+2w=7#qg
  15385. {93 $w
  15386. Qa4Ts
  15387. w{uW>
  15388. (sr.0
  15389. tM#E`
  15390. Y~a{t
  15391. "<4J5uR
  15392. !!Fz`R
  15393. ?ZVqv
  15394. D&2xb
  15395. #9}Wd
  15396. T!.`s
  15397. jX'TM
  15398. =BOYo
  15399. U41eB4
  15400. ;2; u
  15401. vrKJ(
  15402. =6Y3'
  15403. A%%L1S\
  15404. A:j^L
  15405. FY6.]=
  15406. c-rrF
  15407. y$l1dM
  15408. J-I)?
  15409. [*"-|
  15410. Q#~**
  15411. =/"+Q
  15412. EYF%"
  15413. -zI1q
  15414. F    >dJ7
  15415. hYk2?
  15416. $5xc05
  15417. Su!+0
  15418. D]rtz
  15419. O=Lotus Notes
  15420. O=Lotus Notes
  15421. PURSAFO
  15422. |.:#U
  15423. O=Lotus Notes
  15424. CN=Lotus Notes Template Development/O=Lotus Notes
  15425. PURSAFO
  15426. EF/?{f
  15427. qj7{"
  15428. $ImagesWide
  15429. $ImagesHigh
  15430. $ImagesColorize
  15431. $TITLE
  15432. $ImageData
  15433. $ImageNames
  15434. '++LotusScript Development Environment:2:5:(Options):0:74
  15435. Option Public
  15436. '++LotusScript Development Environment:2:5:(Forward):0:1
  15437. Declare Sub wNotifyUser(msg As String)
  15438. Declare Function wGetCalendarProfile As Integer
  15439. Declare Sub wInstantiateObjectVariables
  15440. Declare Sub wMessagePageHeader
  15441. Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  15442. Declare Function wGetDBPath
  15443. Declare Sub SetInternationalFormatHelpers( note As NotesDocument)
  15444. Declare Sub wMarkTempFields(doc As NotesDocument)
  15445. Declare Sub wCreateDefaultCalendarProfile
  15446. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15447. 'Back end classes
  15448. Dim session As NotesSession
  15449. Dim db As NotesDatabase
  15450. Dim note As NotesDocument
  15451. Dim profile As NotesDocument
  15452. Dim item As NotesItem
  15453. Dim NameLookup As NotesName
  15454. Dim agentlog As noteslog 
  15455. 'General Purpose classes
  15456. Dim Owner As String
  15457. Dim NewDocument As Integer
  15458. 'Client Differenciation
  15459. Dim IsWebClient As Variant
  15460. '++LotusScript Development Environment:2:2:wNotifyUser:1:8
  15461. Sub wNotifyUser(msg As String)
  15462.     note.WebMessageString = note.WebMessageString(0) & msg & "<BR><BR>"
  15463. End Sub
  15464. '++LotusScript Development Environment:2:1:wGetCalendarProfile:1:8
  15465. Function wGetCalendarProfile As Integer
  15466.     On Error Goto ErrorRoutine
  15467.     wGetCalendarProfile=True
  15468.     Set profile = db.GetProfileDocument("CalendarProfile")
  15469.     If profile Is Nothing Then wCreateDefaultCalendarProfile    
  15470.     If profile.getitemvalue("Owner")(0) = "" Then wGetCalendarProfile=False
  15471.     Owner = profile.getitemvalue("Owner")(0)
  15472.     Exit Function
  15473. ErrorRoutine:
  15474.     Messagebox(Cstr(Err)+":  "+Error+" wGetCalendarProfile")
  15475. End Function
  15476. '++LotusScript Development Environment:2:2:wInstantiateObjectVariables:1:8
  15477. Sub wInstantiateObjectVariables
  15478.     Set session = New NotesSession
  15479.     Set db = session.CurrentDatabase
  15480.     Set note = session.DocumentContext
  15481.     Set agentlog = New noteslog("Agent log")
  15482.     Call agentlog.openagentlog
  15483. End Sub
  15484. '++LotusScript Development Environment:2:2:wMessagePageHeader:1:8
  15485. Sub wMessagePageHeader
  15486.      'Create the action bar
  15487.     Evaluate("@ReplaceSubstring(""" + PathAndName$ + """;"" "";""+"")")
  15488.     Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  15489.     Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  15490.     Print |<TD><A HREF="| & PathAndName$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  15491.     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>| 
  15492.     Print |<TD><A HREF="| & PathAndName$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  15493.     Print |<TD><A HREF="| & PathAndName$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  15494.     Print |<TD><A HREF="| & PathAndName$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD>| 
  15495.     Print |</TR></TABLE><HR>|
  15496. End Sub
  15497. '++LotusScript Development Environment:2:2:CopyProfileValues:1:8
  15498. Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  15499.     Dim x As Integer
  15500.     Dim item As NotesItem
  15501.     noteDest.Owner = noteSrc.Owner(0)
  15502.     noteDest.DefaultDuration = noteSrc.DefaultDuration(0)
  15503.     noteDest.CalEntryType = noteSrc.CalEntryType(0)
  15504.     noteDest.AutoAnniversaryRepeat = noteSrc.AutoAnniversaryRepeat(0)
  15505.     If (noteSrc.HasItem("AutoRemoveFromInbox")) Then 
  15506.         noteDest.AutoRemoveFromInbox = noteSrc.AutoRemoveFromInbox(0)
  15507.     Else
  15508.         noteDest.AutoRemoveFromInbox = "0"
  15509.     End If
  15510.     If (noteSrc.HasItem("PreventAll")) Then 
  15511.         noteDest.PreventAll = noteSrc.PreventAll(0)
  15512.     End If
  15513.     If (noteSrc.HasItem("PreventSent")) Then
  15514.         noteDest.PreventSent=noteSrc.PreventSent(0)
  15515.     End If
  15516.     If (noteSrc.Hasitem("ConflictEvent")) Then
  15517.         noteDest.ConflictEvent = noteSrc.ConflictEvent(0)
  15518.     End If
  15519.     If (noteSrc.Hasitem("ConflictMeeting")) Then
  15520.         noteDest.ConflictMeeting = noteSrc.ConflictMeeting(0)
  15521.     End If
  15522.     If (noteSrc.Hasitem("ConflictAnniv")) Then
  15523.         noteDest.ConflictAnniv = noteSrc.ConflictAnniv(0)
  15524.     End If
  15525.     If (noteSrc.Hasitem("TaskFollow")) Then
  15526.         noteDest.TaskFollow = noteSrc.TaskFollow(0)
  15527.     End If
  15528.     If (noteSrc.hasitem("AutoProcessLevel")) Then
  15529.         noteDest.AutoProcessLevel=noteSrc.AutoProcessLevel(0)
  15530.         If (noteSrc.getitemvalue("AutoProcessLevel")(0)="2") Then
  15531.             'pull autoprocessuserlist
  15532.             Set item = noteSrc.getfirstitem("AutoProcessUserList")
  15533.             Call noteDest.removeitem("AutoProcessUserList")
  15534.             Call item.copyitemtodocument(noteDest, "AutoProcessUserList")
  15535.         End If
  15536.         If (noteSrc.getitemvalue("AutoProcessLevel")(0)="1") Then
  15537.             'pull forward
  15538.             Set item = noteSrc.getfirstitem("AutoProcessForward")
  15539.             Call noteDest.removeitem("AutoProcessForward")
  15540.             Call item.copyitemtodocument(noteDest, "AutoProcessForward")
  15541.         End If
  15542.     End If
  15543.     If (noteSrc.hasitem("MimeFormat")) Then
  15544.         noteDest.MIMEFormat=noteSrc.MIMEFormat(0)
  15545.     End If
  15546.     If (noteSrc.hasitem("PreventRepliesFromInbox")) Then
  15547.         noteDest.PreventRepliesFromInbox=noteSrc.PreventRepliesFromInbox(0)
  15548.     End If
  15549.     Set item = noteSrc.GetFirstItem("AllowBusyAccess")
  15550.     Call noteDest.RemoveItem("AllowBusyAccess")
  15551.     Set item2 = item.CopyItemToDocument(noteDest, "AllowBusyAccess")
  15552.     If Len(item2.text) Then 
  15553.         If Not(item2.Contains(noteSrc.GetItemValue("Owner")(0))) Then 
  15554.             Call item2.AppendToTextList(noteSrc.GetItemValue("Owner"))(0)
  15555.         End If
  15556.     End If
  15557.     noteDest.Sunday = noteSrc.sunday(0)
  15558.     noteDest.Monday = noteSrc.monday(0)
  15559.     noteDest.tuesday = noteSrc.Tuesday(0)
  15560.     noteDest.Wednesday = noteSrc.Wednesday(0)
  15561.     noteDest.Thursday = noteSrc.Thursday(0)
  15562.     noteDest.Friday = noteSrc.Friday(0)
  15563.     noteDest.Saturday = noteSrc.Saturday(0)
  15564.     For x = 1 To 7
  15565.         Set item = noteSrc.GetFirstItem("$Times" & x)
  15566.         If Not(item Is Nothing) Then 
  15567.             Call noteDest.RemoveItem(item.name)
  15568.             Call item.copyitemtodocument(noteDest,"")
  15569.         End If               
  15570.     Next
  15571. End Sub
  15572. '++LotusScript Development Environment:2:1:wGetDBPath:1:8
  15573. Function wGetDBPath
  15574.     Dim strtmp As String
  15575.     Dim npos As Integer
  15576.     Dim nposofspace As Integer
  15577.         'check to see if the database is in a directory
  15578.     If Instr(db.filepath,"\") Then
  15579.         wgetdbpath = Left$(db.filepath, Instr(db.filepath,"\")-1) + "/" + Right$(db.filepath,Len(db.filepath)-Instr(db.filepath,"\"))
  15580.     Elseif Instr(db.filepath, " ") Then
  15581.         strtmp = db.filepath
  15582.         npos = 1
  15583.         While Instr(npos, strtmp, " ") > 0 
  15584.                'extract to the space
  15585.             posofspace% = Instr(npos, strtmp, " ")
  15586.                'replace the space with a + sign
  15587.             strtmp = Left$(strtmp, nposofspace -1 )+"+"+Right$(strtmp, (Len(strtmp)-nposofspace))
  15588.             npos = nposofspace+1
  15589.         Wend
  15590.         wgetdbpath = strtmp
  15591.     Else
  15592.         wgetdbpath = db.filepath
  15593.     End If
  15594. End Function
  15595. '++LotusScript Development Environment:2:2:SetInternationalFormatHelpers:1:8
  15596. Sub SetInternationalFormatHelpers( note As NotesDocument)
  15597.     Const DayString = "DD"
  15598.     Const MonthString = "MM"
  15599.     Const YearString = "YY"
  15600.     Const HourString = "HH"
  15601.     Const MinuteString = "MM"
  15602.     Dim s As New NotesSession
  15603.     Dim intl As NotesInternational
  15604.     Set intl = s.International
  15605.      ' do the date format helper
  15606.     Dim dHelp1 As String
  15607.     Dim dHelp2 As String
  15608.     Dim dHelp3 As String
  15609.     Dim tHelp1 As String
  15610.     Dim tHelp2 As String
  15611.     If intl.isDateDMY Then
  15612.         dHelp1 = DayString
  15613.         dHelp2 = MonthString
  15614.         dHelp3 = YearString
  15615.     Elseif intl.isDateMDY Then
  15616.         dHelp1 = MonthString
  15617.         dHelp2 = DayString
  15618.         dhelp3 =  YearString
  15619.     Else
  15620.         dHelp1 = YearString
  15621.         dHelp2 = MonthString
  15622.         dHelp3 = DayString
  15623.     End If
  15624.     note.DateFormatHelper = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
  15625.     note.DateFormatHelper2 = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
  15626.      ' do the time format helper
  15627.     tHelp1 = HourString + intl.TimeSep + MinuteString
  15628.     If Not intl.isTime24Hour Then
  15629.         tHelp2 = " " + intl.PMString           
  15630.     End If
  15631.     note.TimeFormatHelper = tHelp1 + tHelp2
  15632.     note.TimeFormatHelper2 = tHelp1 + tHelp2
  15633.     note.DurationFormatHelper = tHelp1
  15634.     note.DurationFormatHelper2 = tHelp1
  15635. End Sub
  15636. '++LotusScript Development Environment:2:2:wMarkTempFields:1:8
  15637. Sub wMarkTempFields(doc As NotesDocument)
  15638. 'Mark all temporary and compute for display fields such that they will not be saved to disk     
  15639.     On Error Resume Next
  15640.     itemlist = doc.Items
  15641.     Forall n In itemlist
  15642.         If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  15643.     End Forall     
  15644.      'remove web CGI variable so that they will get updated on the next doc read
  15645.     Call doc.RemoveItem("Path_Info")
  15646.     Call doc.RemoveItem("Query_String")
  15647.      'if the mail option fields are all default values, remove them
  15648.     If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _
  15649.     doc.Form(0) <> "Task") Then
  15650.         Call doc.RemoveItem("Importance")
  15651.         Call doc.RemoveItem("DeliveryPriority")
  15652.         Call doc.RemoveItem("DeliveryReport")
  15653.     End If
  15654. End Sub
  15655. '++LotusScript Development Environment:2:2:wCreateDefaultCalendarProfile:1:8
  15656. Sub wCreateDefaultCalendarProfile
  15657.  *This routine creates a calendar profile document
  15658.   containg default values for required fields
  15659. %END REM
  15660.     On Error Goto ErrorRoutine
  15661. 'the global variable "profile" is a profile document already
  15662. 'we need to add the fields to it
  15663.     profile.Form = "CalendarProfile"
  15664.     Call profile.ComputeWithForm(False, False)    
  15665.     profile.wDefaultMailOpt = "2"
  15666.     profile.wCalGridType = "3"    
  15667.     Call profile.Save(True,True,True)
  15668.     Exit Sub
  15669. ErrorRoutine:
  15670.     Messagebox(Cstr(Err)+":  "+Error+" wCreateDefaultCalendarProfile")
  15671. End Sub
  15672. Lotus Product
  15673. V0.0m
  15674. ^t    Jt    
  15675. ]d    Jt    
  15676. O=Lotus Notes
  15677. O=Lotus Notes
  15678. PURSAFO
  15679. |.:#U
  15680. O=Lotus Notes
  15681. CN=Lotus Notes Template Development/O=Lotus Notes
  15682. PURSAFO
  15683. $TITLE
  15684. $Flags
  15685. $PublicAccess
  15686. $ScriptLib
  15687. $ScriptLib_O
  15688. (GIF89a
  15689. <a>7`^///""
  15690. &)]TI\'
  15691. BUP5E
  15692. ehR#'
  15693. nyD{N
  15694. ! HD@
  15695. T$I:SI
  15696. :h#.^)
  15697. lL+61
  15698. dAE6X3
  15699. s5c~&
  15700. <A"mJF(
  15701. wjv8S4 
  15702.     dvuWWe
  15703. 5B%5Id
  15704. S<E/<
  15705.  -icF
  15706. gx$jW
  15707. ;4Au$<
  15708. #0FBiBH
  15709. 9b!Lp
  15710. Dj1#R
  15711. 4&9B~
  15712. *D60s
  15713. '}$Y!
  15714. Y*Syp
  15715. yhJH[:
  15716. 3$ecg
  15717. b8kqQ
  15718. =k}w{R
  15719. =^imo[
  15720. e>/)_l
  15721. }{+_$
  15722. :XC$Xd
  15723. 3u"2m
  15724. M\%bb0Er:
  15725. yHN<-
  15726. Za(R3
  15727. AB`>/
  15728. SFXWP
  15729. >n013
  15730. `fl)f
  15731. @WxJGC2
  15732. }PE/7$:
  15733. !3s:bCL
  15734. OZK,0
  15735. ``_Y#!
  15736. MqE%\c%
  15737. A2Yb=
  15738. DQ,~y
  15739. Jdh0"
  15740. ;S6nI
  15741. t8Y8R
  15742. e&'tV
  15743. q    >' f
  15744. d FWafHV
  15745. ;~WjX
  15746. <6H'~z
  15747. 8;; P-A
  15748. SnlE5n
  15749. %4{    RO
  15750. =QRjF
  15751. b_+j!
  15752. g>^B    
  15753. !.Djq
  15754. 49g]7
  15755. @zc0-
  15756. EPt_L
  15757.  Yb~Y
  15758. f*TP*X
  15759. ;"Lr8
  15760. q^RcT
  15761. P}\e`J
  15762. O=Lotus Notes
  15763. O=Lotus Notes
  15764. PURSAFO
  15765. |.:#U
  15766. O=Lotus Notes
  15767. CN=Lotus Notes Template Development/O=Lotus Notes
  15768. PURSAFO
  15769. $ImagesWide
  15770. $ImagesHigh
  15771. $ImagesColorize
  15772. $ImageData
  15773. $ImageNames
  15774. $TITLE
  15775. '++LotusScript Development Environment:2:5:(Options):0:74
  15776. Option Public
  15777. '++LotusScript Development Environment:2:5:(Forward):0:1
  15778. Declare Function GetString ( StringType As Integer) As String
  15779. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15780. '++LotusScript Development Environment:2:1:GetString:1:8
  15781. Function GetString ( StringType As Integer) As String
  15782.      '
  15783.     Select Case StringType
  15784.     Case 1  ' WebAddtopic, WebExpire
  15785.         GetString = "Back to Previous Document"
  15786.     Case 2  ' WebAddtopic, WebExpire, WebRemoveThread
  15787.         GetString = "All Documents"
  15788.     Case 3  ' WebAddtopic, WebExpire, WebRemoveThread
  15789.         GetString = "by Category"
  15790.     Case 4  ' WebAddtopic, WebExpire, WebRemoveThread
  15791.         GetString = "by Author"
  15792.     Case 5  ' WebAddtopic, WebExpire, WebRemoveThread
  15793.         GetString = "by Alternate Name"
  15794.     Case 6  ' WebAddtopic
  15795.         GetString = "This document is not identified as a thread.  Contact the database manager if you want all threads initialized."
  15796.     Case 7  ' WebAddtopic
  15797.         GetString = "This topic is already in your Interest Profile."
  15798.     Case 8  ' WebAddtopic
  15799.         GetString = "has been added to your Interest Profile.  You will be notified by mail when new responses appear in this topic."
  15800.     Case 9  ' WebArchiveSaveSettings
  15801.         GetString = "You have successfully updated the Archive settings for this database. "
  15802.     Case 10 'WebArchiveSaveSettings
  15803.         getString = "Done"        
  15804. '    Case 11  ' WebDelete
  15805. '        GetString = "The document has been deleted."
  15806.     Case 12  ' WebExpire
  15807.         GetString = " cannot be marked for expiration."   ' leave the leading space..
  15808.     Case 13  ' WebExpire
  15809.         GetString = "The document's expiration date has been removed." 
  15810.     Case 14  ' WebExpire
  15811.         GetString = "The current document has been marked for expiration."
  15812.     Case 15  ' WebRemoveThread
  15813.         GetString = "Back to Interest Profile"
  15814.     Case 16  ' WebRemoveThread
  15815.         GetString = "Profile document could not be found."
  15816.     Case 17  ' WebRemoveThread
  15817.         GetString = "The requested thread(s) have been removed from your Interest Profile."   
  15818.     Case 18  ' WebArchiveSubmit
  15819.         GetString = "A problem was encountered while creating the archive database.  Specified database may already exist or your database creation rights are limited."
  15820.     Case 19 'WebArchiveSubmit
  15821.         GetString = "You can only create an archive database on the Domino server that you are currently running on via a web browser.  To create a database on a different server, use the Domino Designer client."
  15822.     Case 20 'WebArchiveSubmit
  15823.         GetString = "Archive Profile has been updated."
  15824.     Case 21 'WebArchiveSave
  15825.         GetString = "You will need to specify a location of the archive database before you can archive documents."
  15826.     Case 22   'An error that we are not specifically handling
  15827.         GetString = Err & " - " & Error
  15828.     Case 23 'WebEditArchiveProfile
  15829.         GetString = "Manager or Designer access is required to perform Archiving tasks."
  15830.     Case 24  'Error message in WebRemoveThread agent for empty selection
  15831.         GetString = "No threads were selected to remove from the Interest Profile."
  15832.     Case 25 'Used in WebAddTopic agent
  15833.         GetString = "Untitled - "
  15834.     Case 26  'Used in WebAddTopic agent
  15835.         GetString =  "Untitled topic "
  15836. '    Case 27  'used in WebDelete agent
  15837. '        GetString = "You are not authorized to delete the document."
  15838.     Case 28   'used for Web navigation
  15839.         GetString =  "By Date"
  15840.     Case 29  'used for Web navigation
  15841.         getString  = "Mission/Team Members"
  15842.     Case 30  'used for Web navigation
  15843.         getString = "Go Back"
  15844. '    Case 31  'used in WebDelete agent
  15845. '        getstring = "You are not authorized to delete the document because you are not the document's original author."
  15846. '    Case 32  'used in WebDelete agent
  15847. '        getstring =  "You have successfully deleted the document entitled: "
  15848.     Case 33  'used in Send Newsletters agent
  15849.         getstring =  "Documents you requested from: "
  15850.     End Select
  15851. End Function
  15852. Lotus Product
  15853. O=Lotus Notes
  15854. O=Lotus Notes
  15855. PURSAFO
  15856. |.:#U
  15857. O=Lotus Notes
  15858. CN=Lotus Notes Template Development/O=Lotus Notes
  15859. PURSAFO
  15860. $TITLE
  15861. $Flags
  15862. $PublicAccess
  15863. $ScriptLib
  15864. $ScriptLib_O
  15865. (GIF89a
  15866. ?_?__
  15867. `!b`1
  15868. 7`^///?
  15869. ?b___
  15870. `bOOO
  15871. `<b!R
  15872. o_U~X
  15873. _D"Dab
  15874. :s:S4
  15875. e;5\j
  15876. (&bp%
  15877. Lhb%$
  15878. ll        eA
  15879. ^b5NR)W
  15880. )(!JI
  15881. &];>1(
  15882. K*Re}U
  15883. TQ4BJ
  15884. G~v#*Q
  15885. ~K1y&
  15886. DbLB`
  15887. v2wWCC
  15888. GhRx),
  15889. 'N3?*
  15890. U3%kK
  15891. xDQUl
  15892. 30F:_(
  15893. %2~&b
  15894. 4gBiB
  15895. XxT649
  15896. $@dSJZh`
  15897. &F!    w
  15898. >(OYT
  15899. `Y")0
  15900. R#:tOFk
  15901. fggwg]
  15902. h-Zl>
  15903. }I4&;^
  15904. "{    C(
  15905. Kp9%s
  15906. KUpmd
  15907. &qnM1
  15908. eswe=
  15909. `^40Y
  15910. /U>4m
  15911. "OQ@,2!
  15912.     6(y1
  15913. AHf;$
  15914. hRBQRF
  15915. 2Y31>
  15916. `CR4-:
  15917. cD;iR;
  15918. r[VI&-
  15919. *>>?SE
  15920. n8CnZ
  15921. *h&#|~
  15922. 2`SN?
  15923. ft)FZ
  15924. n\L/<
  15925. 'tL8A
  15926. EVI7,
  15927. U]`>o5U(G
  15928. A[4qm
  15929. joR4?
  15930. ^rH$q
  15931. uXWo[y
  15932. ]+WnD
  15933. Zy%)`p
  15934. eEgVb
  15935. KmOa&
  15936. ]    iYK
  15937. :LR)n
  15938. O=Lotus Notes
  15939. O=Lotus Notes
  15940. PURSAFO
  15941. |.:#U
  15942. O=Lotus Notes
  15943. CN=Lotus Notes Template Development/O=Lotus Notes
  15944. PURSAFO
  15945. $ImagesWide
  15946. $ImagesHigh
  15947. $ImagesColorize
  15948. $ImageData
  15949. $ImageNames
  15950. $TITLE
  15951. Lotus Product
  15952. OBJECT
  15953. (ChangeRepeat)
  15954.     You are modifying a recurring entry.
  15955.     How would you like these changes to be applied to the related entries?
  15956. tmpChangeWhich
  15957. Just this instance|0All instances|1This instance and all previous instances|2This instance and all future instances|3
  15958. O=Lotus Notes
  15959. O=Lotus Notes
  15960. PURSAFO
  15961. |.:#U
  15962. O=Lotus Notes
  15963. CN=Lotus Notes Template Development/O=Lotus Notes
  15964. PURSAFO
  15965. zo|)Qi@
  15966. $Info
  15967. $$Script_O
  15968. $$ScriptName
  15969. $Body
  15970. $PublicAccess
  15971. ($Trash)
  15972. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  15973. '++LotusScript Development Environment:2:5:(Forward):0:1
  15974. Declare Sub Click(Source As Button)
  15975. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15976. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15977. Private Sub BindEvents(Byval Objectname_ As String)
  15978.     Static Source As BUTTON
  15979.     Set Source = Bind(Objectname_)
  15980.     On Event Click From Source Call Click
  15981. End Sub
  15982. '++LotusScript Development Environment:2:2:Click:1:12
  15983. Sub Click(Source As Button)
  15984.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  15985.     Call cMemoObject.noteUIMemo.save()
  15986.     Call cMemoObject.noteUIMemo.close()
  15987. End Sub
  15988. IsMailStationery
  15989.     1S2S3S
  15990. Close
  15991. '++LotusScript Development Environment:2:5:(Options):0:66
  15992. '++LotusScript Development Environment:2:5:(Forward):0:1
  15993. Declare Sub Click(Source As Button)
  15994. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15995. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15996. Private Sub BindEvents(Byval Objectname_ As String)
  15997.     Static Source As BUTTON
  15998.     Set Source = Bind(Objectname_)
  15999.     On Event Click From Source Call Click
  16000. End Sub
  16001. '++LotusScript Development Environment:2:2:Click:1:12
  16002. Sub Click(Source As Button)
  16003.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  16004.     Call cMemoObject.noteUIMemo.save()
  16005.     Call cMemoObject.noteUIMemo.close()
  16006. End Sub
  16007. IsMailStationery
  16008.     0S1S2S
  16009. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  16010. '++LotusScript Development Environment:2:5:(Forward):0:1
  16011. Declare Sub Click(Source As Button)
  16012. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16013. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16014. Private Sub BindEvents(Byval Objectname_ As String)
  16015.     Static Source As BUTTON
  16016.     Set Source = Bind(Objectname_)
  16017.     On Event Click From Source Call Click
  16018. End Sub
  16019. '++LotusScript Development Environment:2:2:Click:1:12
  16020. Sub Click(Source As Button)
  16021.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  16022.     Call cMemoObject.noteUIMemo.save()
  16023.     Call cMemoObject.noteUIMemo.close()
  16024. End Sub
  16025. PostedDateh
  16026. IsMailStationery
  16027.     7S8S9S10S13S14S15S16S
  16028. ForwardK 
  16029.     0S0E
  16030. ISMAILSTATIONERYh
  16031.     0S0E
  16032. act_FORWARD.GIF|act_FORWARD?
  16033. Delete 
  16034.     0S0E
  16035. act_DELETE.GIF|act_DELETE?
  16036. Send'++LotusScript Development Environment:2:5:(Options):0:66
  16037. '++LotusScript Development Environment:2:5:(Forward):0:1
  16038. Declare Sub Click(Source As Button)
  16039. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16040. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16041. Private Sub BindEvents(Byval Objectname_ As String)
  16042.     Static Source As BUTTON
  16043.     Set Source = Bind(Objectname_)
  16044.     On Event Click From Source Call Click
  16045. End Sub
  16046. '++LotusScript Development Environment:2:2:Click:1:12
  16047. Sub Click(Source As Button)
  16048.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  16049.     Call cMemoObject.noteUIMemo.save()
  16050.     Call cMemoObject.noteUIMemo.close()    
  16051. End Sub
  16052. PostedDateh
  16053. IsMailStationery
  16054.     5S6S7S8S10S11S12S13S
  16055. act_SEND.GIF|act_SEND?
  16056. Send and File
  16057. '++LotusScript Development Environment:2:5:(Options):0:66
  16058. '++LotusScript Development Environment:2:5:(Forward):0:1
  16059. Declare Sub Click(Source As Button)
  16060. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16061. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16062. Private Sub BindEvents(Byval Objectname_ As String)
  16063.     Static Source As BUTTON
  16064.     Set Source = Bind(Objectname_)
  16065.     On Event Click From Source Call Click
  16066. End Sub
  16067. '++LotusScript Development Environment:2:2:Click:1:12
  16068. Sub Click(Source As Button)
  16069.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  16070.     Call cMemoObject.noteUIMemo.save()
  16071.     Call cMemoObject.noteUIMemo.close()    
  16072. End Sub
  16073. PostedDateh
  16074. IsMailStationery
  16075.     5S6S7S8S12S13S
  16076. act_SEND.GIF|act_SEND?
  16077. Save'++LotusScript Development Environment:2:5:(Options):0:66
  16078. '++LotusScript Development Environment:2:5:(Forward):0:1
  16079. Declare Sub Click(Source As Button)
  16080. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16081. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16082. Private Sub BindEvents(Byval Objectname_ As String)
  16083.     Static Source As BUTTON
  16084.     Set Source = Bind(Objectname_)
  16085.     On Event Click From Source Call Click
  16086. End Sub
  16087. '++LotusScript Development Environment:2:2:Click:1:12
  16088. Sub Click(Source As Button)
  16089.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  16090.     Call cMemoObject.noteUIMemo.save()
  16091.     Call cMemoObject.noteUIMemo.close()
  16092. End Sub
  16093. IsMailStationery
  16094.     2S3S
  16095. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  16096. Save As Draft
  16097. '++LotusScript Development Environment:2:5:(Options):0:66
  16098. '++LotusScript Development Environment:2:5:(Forward):0:1
  16099. Declare Sub Click(Source As Button)
  16100. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16101. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16102. Private Sub BindEvents(Byval Objectname_ As String)
  16103.     Static Source As BUTTON
  16104.     Set Source = Bind(Objectname_)
  16105.     On Event Click From Source Call Click
  16106. End Sub
  16107. '++LotusScript Development Environment:2:2:Click:1:12
  16108. Sub Click(Source As Button)
  16109.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  16110.     Call cMemoObject.noteUIMemo.save()
  16111.     Call cMemoObject.noteUIMemo.close()
  16112. End Sub
  16113. PostedDateh
  16114. IsMailStationery
  16115.     5S6S7S8S10S11S12S13S
  16116. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  16117. Rename Stationery
  16118. xxTitle
  16119. Rename Stationery
  16120.     0S0E
  16121. xxPrompt
  16122. Please enter new stationery name.
  16123. MailStationeryName
  16124. xxTitle
  16125. xxPrompt
  16126. MailStationeryName
  16127.     0R1S
  16128.     0RS>
  16129. IsMailStationery
  16130.     2S3S4S5S
  16131. act_RENAME.GIF|act_RENAME?
  16132. Address...T
  16133. EnterSendTo
  16134. EnterCopyTo
  16135. EnterBlindCopyTo
  16136.     0S0E
  16137. PostedDateh
  16138. IsMailStationery
  16139.     5S6S7S8S10S11S12S13S
  16140. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  16141. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  16142. '++LotusScript Development Environment:2:5:(Forward):0:1
  16143. Declare Sub Click(Source As Button)
  16144. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16145. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16146. Private Sub BindEvents(Byval Objectname_ As String)
  16147.     Static Source As BUTTON
  16148.     Set Source = Bind(Objectname_)
  16149.     On Event Click From Source Call Click
  16150. End Sub
  16151. '++LotusScript Development Environment:2:2:Click:1:12
  16152. Sub Click(Source As Button)
  16153.     Call cMemoObject.ReplyToAll()
  16154. End Sub
  16155. PostedDateh
  16156. IsMailStationery
  16157.     5S6S7S8S10S11S12S13S
  16158. act_REPLY.GIF|act_REPLY?
  16159. Tools\Preferences...2
  16160. (Preferences)
  16161.     0S0E
  16162. act_TOOLS.GIF|act_TOOLS?
  16163. Tools\Out of Office...8
  16164. (EditOfficeProfile)
  16165.     0S0E
  16166. act_TOOLS.GIF|act_TOOLS?
  16167. Tools\Delivery Information...
  16168. xxTitle
  16169. Delivery Information
  16170.     0S0E
  16171. DeliveryInfo
  16172. xxTitle
  16173.     0RR4S5S6S7S8S9S10S11S12S14S
  16174. act_TOOLS.GIF|act_TOOLS?
  16175. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  16176. '++LotusScript Development Environment:2:5:(Forward):0:1
  16177. Declare Sub Click(Source As Button)
  16178. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16179. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16180. Private Sub BindEvents(Byval Objectname_ As String)
  16181.     Static Source As BUTTON
  16182.     Set Source = Bind(Objectname_)
  16183.     On Event Click From Source Call Click
  16184. End Sub
  16185. '++LotusScript Development Environment:2:2:Click:1:12
  16186. Sub Click(Source As Button)
  16187.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  16188.     Call cMemoObject.noteUIMemo.save()
  16189.     Call cMemoObject.noteUIMemo.close()
  16190. End Sub
  16191. PostedDateh
  16192. IsMailStationery
  16193.     5S6S7S8S10S11S12S13S
  16194. act_TOOLS.GIF|act_TOOLS?
  16195. Tools\Add Sender to Address Book<
  16196. (AddSenderToAddressBook)
  16197.     0S0E
  16198. act_TOOLS.GIF|act_TOOLS?
  16199. Tools\New Memo - Using Stationery
  16200. '++LotusScript Development Environment:2:5:(Options):0:66
  16201. '++LotusScript Development Environment:2:5:(Forward):0:1
  16202. Declare Sub Click(Source As Button)
  16203. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16204. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16205. Private Sub BindEvents(Byval Objectname_ As String)
  16206.     Static Source As BUTTON
  16207.     Set Source = Bind(Objectname_)
  16208.     On Event Click From Source Call Click
  16209. End Sub
  16210. '++LotusScript Development Environment:2:2:Click:1:12
  16211. Sub Click(Source As Button)
  16212.     Dim session As New notessession
  16213.     Dim uiws As New notesuiworkspace
  16214.     Dim collection As notesdocumentcollection
  16215.     Dim noteUIEditDocument As notesuidocument
  16216.     Dim database As NotesDatabase
  16217.     Set noteCursorDoc = session.currentdatabase.createdocument
  16218.     Set database = session.currentdatabase
  16219.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  16220.     Set noteCursorDoc = collection.getfirstdocument
  16221.     If Not noteCursorDoc Is Nothing Then
  16222.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  16223.     End If
  16224. End Sub
  16225. act_TOOLS.GIF|act_TOOLS?
  16226. Tools\Send Tracking RequestK:
  16227. (SendTrackingRequest)
  16228.     0S0E
  16229. act_TOOLS.GIF|act_TOOLS?
  16230. Tools\Insert Signature...
  16231. '++LotusScript Development Environment:2:5:(Options):0:66
  16232. '++LotusScript Development Environment:2:5:(Forward):0:1
  16233. Declare Sub Click(Source As Button)
  16234. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16235. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16236. Private Sub BindEvents(Byval Objectname_ As String)
  16237.     Static Source As BUTTON
  16238.     Set Source = Bind(Objectname_)
  16239.     On Event Click From Source Call Click
  16240. End Sub
  16241. '++LotusScript Development Environment:2:2:Click:1:12
  16242. Sub Click(Source As Button)
  16243.     Call cMemoObject.InsertSignature(False)
  16244. End Sub
  16245. PostedDateh
  16246.     5S6S7S8S
  16247. act_TOOLS.GIF|act_TOOLS?
  16248. Delivery Options...K~
  16249. DeliveryOptions
  16250. Delivery Options
  16251.     0R4S10S
  16252. PostedDateh
  16253.     5S6S7S8S
  16254. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  16255. New Memo(
  16256.     0S0E
  16257. act_NEWMEMO.GIF|act_NEWMEMO?
  16258. Reply\ReplyK0
  16259. Reply
  16260.     0S0E
  16261. act_REPLY.GIF|act_REPLY?
  16262. Reply\Reply with History
  16263. Reply with History
  16264. This document is truncated.
  16265.     4S8S10S13S
  16266. Reply with history
  16267. act_REPLY.GIF|act_REPLY?
  16268. Reply\Reply to AllX
  16269. MailStEd
  16270.     0S0E
  16271. Reply
  16272. act_REPLY.GIF|act_REPLY?
  16273. Reply\Reply to All with HistoryK
  16274. MailStEd
  16275.     0S0E
  16276. Reply with History
  16277. This document is truncated.
  16278.     0R4S8S10S13S
  16279. Reply with history
  16280. act_REPLY.GIF|act_REPLY?
  16281. New\AppointmentK'++LotusScript Development Environment:2:5:(Options):0:74
  16282. Use "CSUIViewClass"
  16283. '++LotusScript Development Environment:2:5:(Forward):0:1
  16284. Declare Sub Click(Source As Button)
  16285. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16286. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16287. Private Sub BindEvents(Byval Objectname_ As String)
  16288. Static Source As BUTTON
  16289. Set Source = Bind(Objectname_)
  16290. On Event Click From Source Call Click
  16291. End Sub
  16292. '++LotusScript Development Environment:2:2:Click:1:12
  16293. Sub Click(Source As Button)
  16294.     Call ViewNewCalendarEntry("0")
  16295. End Sub
  16296. act_csnew.GIF|act_CSNEWDOC
  16297. New\Meeting Invitation'++LotusScript Development Environment:2:5:(Options):0:74
  16298. Use "CSUIViewClass"
  16299. '++LotusScript Development Environment:2:5:(Forward):0:1
  16300. Declare Sub Click(Source As Button)
  16301. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16302. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16303. Private Sub BindEvents(Byval Objectname_ As String)
  16304. Static Source As BUTTON
  16305. Set Source = Bind(Objectname_)
  16306. On Event Click From Source Call Click
  16307. End Sub
  16308. '++LotusScript Development Environment:2:2:Click:1:12
  16309. Sub Click(Source As Button)
  16310.     Call ViewNewCalendarEntry("3")
  16311. End Sub
  16312. act_csnew.GIF|act_CSNEWDOC
  16313. New\AnniversaryK'++LotusScript Development Environment:2:5:(Options):0:74
  16314. Use "CSUIViewClass"
  16315. '++LotusScript Development Environment:2:5:(Forward):0:1
  16316. Declare Sub Click(Source As Button)
  16317. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16318. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16319. Private Sub BindEvents(Byval Objectname_ As String)
  16320. Static Source As BUTTON
  16321. Set Source = Bind(Objectname_)
  16322. On Event Click From Source Call Click
  16323. End Sub
  16324. '++LotusScript Development Environment:2:2:Click:1:12
  16325. Sub Click(Source As Button)
  16326.     Call ViewNewCalendarEntry("1")
  16327. End Sub
  16328. act_csnew.GIF|act_CSNEWDOC
  16329. New\Reminder'++LotusScript Development Environment:2:5:(Options):0:74
  16330. Use "CSUIViewClass"
  16331. '++LotusScript Development Environment:2:5:(Forward):0:1
  16332. Declare Sub Click(Source As Button)
  16333. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16334. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16335. Private Sub BindEvents(Byval Objectname_ As String)
  16336. Static Source As BUTTON
  16337. Set Source = Bind(Objectname_)
  16338. On Event Click From Source Call Click
  16339. End Sub
  16340. '++LotusScript Development Environment:2:2:Click:1:12
  16341. Sub Click(Source As Button)
  16342.     Call ViewNewCalendarEntry("4")
  16343. End Sub
  16344. act_csnew.GIF|act_CSNEWDOC
  16345. New\Event
  16346. '++LotusScript Development Environment:2:5:(Options):0:74
  16347. Use "CSUIViewClass"
  16348. '++LotusScript Development Environment:2:5:(Forward):0:1
  16349. Declare Sub Click(Source As Button)
  16350. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16351. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16352. Private Sub BindEvents(Byval Objectname_ As String)
  16353. Static Source As BUTTON
  16354. Set Source = Bind(Objectname_)
  16355. On Event Click From Source Call Click
  16356. End Sub
  16357. '++LotusScript Development Environment:2:2:Click:1:12
  16358. Sub Click(Source As Button)
  16359.     Call ViewNewCalendarEntry("2")
  16360. End Sub
  16361. act_csnew.GIF|act_CSNEWDOC
  16362. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  16363. Use "CSUIViewClass"
  16364. '++LotusScript Development Environment:2:5:(Forward):0:1
  16365. Declare Sub Click(Source As Button)
  16366. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16367. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16368. Private Sub BindEvents(Byval Objectname_ As String)
  16369. Static Source As BUTTON
  16370. Set Source = Bind(Objectname_)
  16371. On Event Click From Source Call Click
  16372. End Sub
  16373. '++LotusScript Development Environment:2:2:Click:1:12
  16374. Sub Click(Source As Button)
  16375.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  16376. End Sub
  16377. act_csowneractions.GIF|act_CSOWNERACTIONS?
  16378. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  16379. Use "CSUIViewClass"
  16380. '++LotusScript Development Environment:2:5:(Forward):0:1
  16381. Declare Sub Click(Source As Button)
  16382. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16383. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16384. Private Sub BindEvents(Byval Objectname_ As String)
  16385. Static Source As BUTTON
  16386. Set Source = Bind(Objectname_)
  16387. On Event Click From Source Call Click
  16388. End Sub
  16389. '++LotusScript Development Environment:2:2:Click:1:12
  16390. Sub Click(Source As Button)
  16391.     Call ProcessViewCommand(ACTION_CANCEL)
  16392. End Sub
  16393. act_csowneractions.GIF|act_CSOWNERACTIONS?
  16394. Owner Actions\Confirm
  16395. '++LotusScript Development Environment:2:5:(Options):0:74
  16396. Use "CSUIViewClass"
  16397. '++LotusScript Development Environment:2:5:(Forward):0:1
  16398. Declare Sub Click(Source As Button)
  16399. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16400. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16401. Private Sub BindEvents(Byval Objectname_ As String)
  16402. Static Source As BUTTON
  16403. Set Source = Bind(Objectname_)
  16404. On Event Click From Source Call Click
  16405. End Sub
  16406. '++LotusScript Development Environment:2:2:Click:1:12
  16407. Sub Click(Source As Button)
  16408.     Call ProcessViewCommand(ACTION_CONFIRM)
  16409. End Sub
  16410. act_csowneractions.GIF|act_CSOWNERACTIONS?
  16411. Owner Actions\View Participant Status
  16412. '++LotusScript Development Environment:2:5:(Options):0:74
  16413. Use "CSUIViewClass"
  16414. '++LotusScript Development Environment:2:5:(Forward):0:1
  16415. Declare Sub Click(Source As Button)
  16416. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16417. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16418. Private Sub BindEvents(Byval Objectname_ As String)
  16419. Static Source As BUTTON
  16420. Set Source = Bind(Objectname_)
  16421. On Event Click From Source Call Click
  16422. End Sub
  16423. '++LotusScript Development Environment:2:2:Click:1:12
  16424. Sub Click(Source As Button)
  16425.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  16426. End Sub
  16427. act_csowneractions.GIF|act_CSOWNERACTIONS?
  16428. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  16429. Use "CSUIViewClass"
  16430. '++LotusScript Development Environment:2:5:(Forward):0:1
  16431. Declare Sub Click(Source As Button)
  16432. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16433. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16434. Private Sub BindEvents(Byval Objectname_ As String)
  16435. Static Source As BUTTON
  16436. Set Source = Bind(Objectname_)
  16437. On Event Click From Source Call Click
  16438. End Sub
  16439. '++LotusScript Development Environment:2:2:Click:1:12
  16440. Sub Click(Source As Button)
  16441.     Call ProcessViewCommand(ACTION_SENDMEMO)
  16442. End Sub
  16443. act_csowneractions.GIF|act_CSOWNERACTIONS?
  16444. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  16445. Use "CSUIViewClass"
  16446. '++LotusScript Development Environment:2:5:(Forward):0:1
  16447. Declare Sub Click(Source As Button)
  16448. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16449. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16450. Private Sub BindEvents(Byval Objectname_ As String)
  16451. Static Source As BUTTON
  16452. Set Source = Bind(Objectname_)
  16453. On Event Click From Source Call Click
  16454. End Sub
  16455. '++LotusScript Development Environment:2:2:Click:1:12
  16456. Sub Click(Source As Button)
  16457.     Call ProcessViewCommand(ACTION_ACCEPT)
  16458. End Sub
  16459. act_participantactions.GIF|act_CSPARTACTIONS
  16460. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  16461. Use "CSUIViewClass"
  16462. '++LotusScript Development Environment:2:5:(Forward):0:1
  16463. Declare Sub Click(Source As Button)
  16464. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16465. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16466. Private Sub BindEvents(Byval Objectname_ As String)
  16467. Static Source As BUTTON
  16468. Set Source = Bind(Objectname_)
  16469. On Event Click From Source Call Click
  16470. End Sub
  16471. '++LotusScript Development Environment:2:2:Click:1:12
  16472. Sub Click(Source As Button)
  16473.     Call ProcessViewCommand(ACTION_DECLINE)
  16474. End Sub
  16475. act_participantactions.GIF|act_CSPARTACTIONS
  16476. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  16477. Use "CSUIViewClass"
  16478. '++LotusScript Development Environment:2:5:(Forward):0:1
  16479. Declare Sub Click(Source As Button)
  16480. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16481. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16482. Private Sub BindEvents(Byval Objectname_ As String)
  16483. Static Source As BUTTON
  16484. Set Source = Bind(Objectname_)
  16485. On Event Click From Source Call Click
  16486. End Sub
  16487. '++LotusScript Development Environment:2:2:Click:1:12
  16488. Sub Click(Source As Button)
  16489.     Call ProcessViewCommand(ACTION_DELEGATE)
  16490. End Sub
  16491. act_participantactions.GIF|act_CSPARTACTIONS
  16492. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  16493. Use "CSUIViewClass"
  16494. '++LotusScript Development Environment:2:5:(Forward):0:1
  16495. Declare Sub Click(Source As Button)
  16496. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16497. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16498. Private Sub BindEvents(Byval Objectname_ As String)
  16499. Static Source As BUTTON
  16500. Set Source = Bind(Objectname_)
  16501. On Event Click From Source Call Click
  16502. End Sub
  16503. '++LotusScript Development Environment:2:2:Click:1:12
  16504. Sub Click(Source As Button)
  16505.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  16506. End Sub
  16507. act_participantactions.GIF|act_CSPARTACTIONS
  16508. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  16509. Use "CommonUI"
  16510. '++LotusScript Development Environment:2:5:(Forward):0:1
  16511. Declare Sub Click(Source As Button)
  16512. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16513. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16514. Private Sub BindEvents(Byval Objectname_ As String)
  16515. Static Source As BUTTON
  16516. Set Source = Bind(Objectname_)
  16517. On Event Click From Source Call Click
  16518. End Sub
  16519. '++LotusScript Development Environment:2:2:Click:1:12
  16520. Sub Click(Source As Button)
  16521.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  16522. End Sub
  16523. act_COPYINTO.GIF|act_COPYINTO?
  16524. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  16525. Use "CommonUI"
  16526. '++LotusScript Development Environment:2:5:(Forward):0:1
  16527. Declare Sub Click(Source As Button)
  16528. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16529. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16530. Private Sub BindEvents(Byval Objectname_ As String)
  16531. Static Source As BUTTON
  16532. Set Source = Bind(Objectname_)
  16533. On Event Click From Source Call Click
  16534. End Sub
  16535. '++LotusScript Development Environment:2:2:Click:1:12
  16536. Sub Click(Source As Button)
  16537.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  16538. End Sub
  16539. act_COPYINTO.GIF|act_COPYINTO?
  16540. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  16541. Use "CommonUI"
  16542. '++LotusScript Development Environment:2:5:(Forward):0:1
  16543. Declare Sub Click(Source As Button)
  16544. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16545. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16546. Private Sub BindEvents(Byval Objectname_ As String)
  16547.     Static Source As BUTTON
  16548.     Set Source = Bind(Objectname_)
  16549.     On Event Click From Source Call Click
  16550. End Sub
  16551. '++LotusScript Development Environment:2:2:Click:1:12
  16552. Sub Click(Source As Button)
  16553.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  16554. End Sub
  16555. act_COPYINTO.GIF|act_COPYINTO?
  16556. Folder\Move To Folder... 
  16557.     0S0E
  16558. act_FOLDER.GIF|act_FOLDER?
  16559. Folder\Remove From Folder
  16560.     0S0E
  16561. act_FOLDER.GIF|act_FOLDER?
  16562. Save As Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  16563. '++LotusScript Development Environment:2:5:(Forward):0:1
  16564. Declare Sub Click(Source As Button)
  16565. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16566. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16567. Private Sub BindEvents(Byval Objectname_ As String)
  16568.     Static Source As BUTTON
  16569.     Set Source = Bind(Objectname_)
  16570.     On Event Click From Source Call Click
  16571. End Sub
  16572. '++LotusScript Development Environment:2:2:Click:1:12
  16573. Sub Click(Source As Button)
  16574.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  16575.     Call cMemoObject.noteUIMemo.save()
  16576.     Call cMemoObject.noteUIMemo.close()
  16577. End Sub
  16578. IsMailStationery
  16579.     1S2S
  16580. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  16581. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  16582. '++LotusScript Development Environment:2:5:(Forward):0:1
  16583. Declare Sub Click(Source As Button)
  16584. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16585. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16586. Private Sub BindEvents(Byval Objectname_ As String)
  16587.     Static Source As BUTTON
  16588.     Set Source = Bind(Objectname_)
  16589.     On Event Click From Source Call Click
  16590. End Sub
  16591. '++LotusScript Development Environment:2:2:Click:1:12
  16592. Sub Click(Source As Button)
  16593.     Call cMemoObject.InsertSignature(False)
  16594. End Sub
  16595. act_INSERTSIG.GIF|act_INSERTSIG?
  16596. Address...
  16597. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  16598. var pathname = (window.location.pathname);
  16599. if (navigator.appName =='Netscape') {
  16600. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=440');
  16601.     } else {
  16602. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=420');
  16603. Reply...\Reply*
  16604. Reply
  16605.     0S0E
  16606. act_REPLY.GIF|act_REPLY?
  16607. Reply...\Reply with HistoryK
  16608. act_REPLY.GIF|act_REPLY?
  16609. alert('Feature in Progress')
  16610. Submit>
  16611.     0S0E
  16612.     0S0E
  16613. ForwardK
  16614.     1S10S14S16S23S
  16615. path"
  16616. /Memo?OpenForm&UNID="
  16617. &forward"
  16618. act_FORWARD.GIF|act_FORWARD?
  16619. Delivery Options...K
  16620. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  16621. var pathname = (window.location.pathname);
  16622. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=110');
  16623. Inbox
  16624. _self
  16625. New Memo(
  16626.     0S0E
  16627. act_NEW.GIF|act_NEW?
  16628. Folder...\Move to Folder...K&
  16629.     0S0E
  16630. act_FOLDER.GIF|act_FOLDER?
  16631. Folder...\Remove from Folder 
  16632.     0S0E
  16633. act_FOLDER.GIF|act_FOLDER?
  16634. Delete...\Delete 
  16635.     0S0E
  16636. act_DELETE.GIF|act_DELETE?
  16637. Delete...\Empty Trash
  16638.     0S0E
  16639. act_DELETE.GIF|act_DELETE?
  16640. New Task(
  16641.     0S0E
  16642. Send...\Send`
  16643. tmpSendOptions
  16644. act_SEND.GIF|act_SEND?
  16645. Send...\Send and Save
  16646. tmpSendOptions
  16647. act_SEND.GIF|act_SEND?
  16648. Send...\Save as Draft
  16649. act_SEND.GIF|act_SEND?
  16650. alert('Feature in Progress')
  16651. Folder...\Create FolderK
  16652. act_FOLDER.GIF|act_FOLDER?
  16653. alert('Feature in Progress')
  16654. Tools...\Preferences4
  16655. CalendarProfile
  16656.     0S0E
  16657. act_TOOLS.GIF|act_TOOLS?
  16658. Tools...\Archiving
  16659. act_TOOLS.GIF|act_TOOLS?
  16660. alert('Feature in Progress')
  16661. Tools...\Out of Office
  16662. act_TOOLS.GIF|act_TOOLS?
  16663. alert('Feature in Progress')
  16664. Edit 
  16665.     0S0E
  16666. act_EDIT.GIF|act_EDIT?
  16667. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  16668. '++LotusScript Development Environment:2:5:(Forward):0:1
  16669. Declare Sub Click(Source As Button)
  16670. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16671. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16672. Private Sub BindEvents(Byval Objectname_ As String)
  16673.     Static Source As BUTTON
  16674.     Set Source = Bind(Objectname_)
  16675.     On Event Click From Source Call Click
  16676. End Sub
  16677. '++LotusScript Development Environment:2:2:Click:1:12
  16678. Sub Click(Source As Button)
  16679.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  16680.     Call cMemoObject.noteUIMemo.save()
  16681.     Call cMemoObject.noteUIMemo.close()
  16682. End Sub
  16683. IsMailStationery
  16684.     1S2S3S
  16685. Close
  16686. '++LotusScript Development Environment:2:5:(Options):0:66
  16687. '++LotusScript Development Environment:2:5:(Forward):0:1
  16688. Declare Sub Click(Source As Button)
  16689. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16690. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16691. Private Sub BindEvents(Byval Objectname_ As String)
  16692.     Static Source As BUTTON
  16693.     Set Source = Bind(Objectname_)
  16694.     On Event Click From Source Call Click
  16695. End Sub
  16696. '++LotusScript Development Environment:2:2:Click:1:12
  16697. Sub Click(Source As Button)
  16698.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  16699.     Call cMemoObject.noteUIMemo.save()
  16700.     Call cMemoObject.noteUIMemo.close()
  16701. End Sub
  16702. IsMailStationery
  16703.     0S1S2S
  16704. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  16705. '++LotusScript Development Environment:2:5:(Forward):0:1
  16706. Declare Sub Click(Source As Button)
  16707. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16708. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16709. Private Sub BindEvents(Byval Objectname_ As String)
  16710.     Static Source As BUTTON
  16711.     Set Source = Bind(Objectname_)
  16712.     On Event Click From Source Call Click
  16713. End Sub
  16714. '++LotusScript Development Environment:2:2:Click:1:12
  16715. Sub Click(Source As Button)
  16716.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  16717.     Call cMemoObject.noteUIMemo.save()
  16718.     Call cMemoObject.noteUIMemo.close()
  16719. End Sub
  16720. PostedDateh
  16721. IsMailStationery
  16722.     7S8S9S10S13S14S15S16S
  16723. ForwardK 
  16724.     0S0E
  16725. ISMAILSTATIONERYh
  16726.     0S0E
  16727. Delete 
  16728.     0S0E
  16729. Send'++LotusScript Development Environment:2:5:(Options):0:66
  16730. '++LotusScript Development Environment:2:5:(Forward):0:1
  16731. Declare Sub Click(Source As Button)
  16732. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16733. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16734. Private Sub BindEvents(Byval Objectname_ As String)
  16735.     Static Source As BUTTON
  16736.     Set Source = Bind(Objectname_)
  16737.     On Event Click From Source Call Click
  16738. End Sub
  16739. '++LotusScript Development Environment:2:2:Click:1:12
  16740. Sub Click(Source As Button)
  16741.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  16742.     Call cMemoObject.noteUIMemo.save()
  16743.     Call cMemoObject.noteUIMemo.close()    
  16744. End Sub
  16745. PostedDateh
  16746. IsMailStationery
  16747.     5S6S7S8S10S11S12S13S
  16748. Send and File
  16749. '++LotusScript Development Environment:2:5:(Options):0:66
  16750. '++LotusScript Development Environment:2:5:(Forward):0:1
  16751. Declare Sub Click(Source As Button)
  16752. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16753. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16754. Private Sub BindEvents(Byval Objectname_ As String)
  16755.     Static Source As BUTTON
  16756.     Set Source = Bind(Objectname_)
  16757.     On Event Click From Source Call Click
  16758. End Sub
  16759. '++LotusScript Development Environment:2:2:Click:1:12
  16760. Sub Click(Source As Button)
  16761.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  16762.     Call cMemoObject.noteUIMemo.save()
  16763.     Call cMemoObject.noteUIMemo.close()    
  16764. End Sub
  16765. PostedDateh
  16766. IsMailStationery
  16767.     5S6S7S8S12S13S
  16768. Save'++LotusScript Development Environment:2:5:(Options):0:66
  16769. '++LotusScript Development Environment:2:5:(Forward):0:1
  16770. Declare Sub Click(Source As Button)
  16771. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16772. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16773. Private Sub BindEvents(Byval Objectname_ As String)
  16774.     Static Source As BUTTON
  16775.     Set Source = Bind(Objectname_)
  16776.     On Event Click From Source Call Click
  16777. End Sub
  16778. '++LotusScript Development Environment:2:2:Click:1:12
  16779. Sub Click(Source As Button)
  16780.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  16781.     Call cMemoObject.noteUIMemo.save()
  16782.     Call cMemoObject.noteUIMemo.close()
  16783. End Sub
  16784. IsMailStationery
  16785.     2S3S
  16786. Save As Draft
  16787. '++LotusScript Development Environment:2:5:(Options):0:66
  16788. '++LotusScript Development Environment:2:5:(Forward):0:1
  16789. Declare Sub Click(Source As Button)
  16790. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16791. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16792. Private Sub BindEvents(Byval Objectname_ As String)
  16793.     Static Source As BUTTON
  16794.     Set Source = Bind(Objectname_)
  16795.     On Event Click From Source Call Click
  16796. End Sub
  16797. '++LotusScript Development Environment:2:2:Click:1:12
  16798. Sub Click(Source As Button)
  16799.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  16800.     Call cMemoObject.noteUIMemo.save()
  16801.     Call cMemoObject.noteUIMemo.close()
  16802. End Sub
  16803. PostedDateh
  16804. IsMailStationery
  16805.     5S6S7S8S10S11S12S13S
  16806. Rename Stationery
  16807. xxTitle
  16808. Rename Stationery
  16809.     0S0E
  16810. xxPrompt
  16811. Please enter new stationery name.
  16812. MailStationeryName
  16813. xxTitle
  16814. xxPrompt
  16815. MailStationeryName
  16816.     0R1S
  16817.     0RS>
  16818. IsMailStationery
  16819.     2S3S4S5S
  16820. Address...T
  16821. EnterSendTo
  16822. EnterCopyTo
  16823. EnterBlindCopyTo
  16824.     0S0E
  16825. PostedDateh
  16826. IsMailStationery
  16827.     5S6S7S8S10S11S12S13S
  16828. Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
  16829. '++LotusScript Development Environment:2:5:(Forward):0:1
  16830. Declare Sub Click(Source As Button)
  16831. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16832. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16833. Private Sub BindEvents(Byval Objectname_ As String)
  16834.     Static Source As BUTTON
  16835.     Set Source = Bind(Objectname_)
  16836.     On Event Click From Source Call Click
  16837. End Sub
  16838. '++LotusScript Development Environment:2:2:Click:1:12
  16839. Sub Click(Source As Button)
  16840.     Call cMemoObject.ReplyToAll()
  16841. End Sub
  16842. PostedDateh
  16843. IsMailStationery
  16844.     5S6S7S8S10S11S12S13S
  16845. Tools\Preferences...2
  16846. (Preferences)
  16847.     0S0E
  16848. Tools\Out of Office...8
  16849. (EditOfficeProfile)
  16850.     0S0E
  16851. Tools\Delivery Information...
  16852. xxTitle
  16853. Delivery Information
  16854.     0S0E
  16855. DeliveryInfo
  16856. xxTitle
  16857.     0RR4S5S6S7S8S9S10S11S12S14S
  16858. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  16859. '++LotusScript Development Environment:2:5:(Forward):0:1
  16860. Declare Sub Click(Source As Button)
  16861. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16862. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16863. Private Sub BindEvents(Byval Objectname_ As String)
  16864.     Static Source As BUTTON
  16865.     Set Source = Bind(Objectname_)
  16866.     On Event Click From Source Call Click
  16867. End Sub
  16868. '++LotusScript Development Environment:2:2:Click:1:12
  16869. Sub Click(Source As Button)
  16870.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  16871.     Call cMemoObject.noteUIMemo.save()
  16872.     Call cMemoObject.noteUIMemo.close()
  16873. End Sub
  16874. PostedDateh
  16875. IsMailStationery
  16876.     5S6S7S8S10S11S12S13S
  16877. Tools\Add Sender to Address Book<
  16878. (AddSenderToAddressBook)
  16879.     0S0E
  16880. Tools\New Memo - Using Stationery
  16881. '++LotusScript Development Environment:2:5:(Options):0:66
  16882. '++LotusScript Development Environment:2:5:(Forward):0:1
  16883. Declare Sub Click(Source As Button)
  16884. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16885. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16886. Private Sub BindEvents(Byval Objectname_ As String)
  16887.     Static Source As BUTTON
  16888.     Set Source = Bind(Objectname_)
  16889.     On Event Click From Source Call Click
  16890. End Sub
  16891. '++LotusScript Development Environment:2:2:Click:1:12
  16892. Sub Click(Source As Button)
  16893.     Dim session As New notessession
  16894.     Dim uiws As New notesuiworkspace
  16895.     Dim collection As notesdocumentcollection
  16896.     Dim noteUIEditDocument As notesuidocument
  16897.     Dim database As NotesDatabase
  16898.     Set noteCursorDoc = session.currentdatabase.createdocument
  16899.     Set database = session.currentdatabase
  16900.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  16901.     Set noteCursorDoc = collection.getfirstdocument
  16902.     If Not noteCursorDoc Is Nothing Then
  16903.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  16904.     End If
  16905. End Sub
  16906. Tools\Send Tracking RequestK:
  16907. (SendTrackingRequest)
  16908.     0S0E
  16909. Tools\Insert Signature...
  16910. '++LotusScript Development Environment:2:5:(Options):0:66
  16911. '++LotusScript Development Environment:2:5:(Forward):0:1
  16912. Declare Sub Click(Source As Button)
  16913. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16914. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16915. Private Sub BindEvents(Byval Objectname_ As String)
  16916.     Static Source As BUTTON
  16917.     Set Source = Bind(Objectname_)
  16918.     On Event Click From Source Call Click
  16919. End Sub
  16920. '++LotusScript Development Environment:2:2:Click:1:12
  16921. Sub Click(Source As Button)
  16922.     Call cMemoObject.InsertSignature(False)
  16923. End Sub
  16924. PostedDateh
  16925.     5S6S7S8S
  16926. Delivery Options...K~
  16927. DeliveryOptions
  16928. Delivery Options
  16929.     0R4S10S
  16930. PostedDateh
  16931.     5S6S7S8S
  16932. New Memo(
  16933.     0S0E
  16934. Reply\ReplyK0
  16935. Reply
  16936.     0S0E
  16937. Reply\Reply with History
  16938. Reply with History
  16939. This document is truncated.
  16940.     4S8S10S13S
  16941. Reply with history
  16942. Reply\Reply to AllX
  16943. MailStEd
  16944.     0S0E
  16945. Reply
  16946. Reply\Reply to All with HistoryK
  16947. MailStEd
  16948.     0S0E
  16949. Reply with History
  16950. This document is truncated.
  16951.     0R4S8S10S13S
  16952. Reply with history
  16953. New\AppointmentK'++LotusScript Development Environment:2:5:(Options):0:74
  16954. Use "CSUIViewClass"
  16955. '++LotusScript Development Environment:2:5:(Forward):0:1
  16956. Declare Sub Click(Source As Button)
  16957. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16958. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16959. Private Sub BindEvents(Byval Objectname_ As String)
  16960. Static Source As BUTTON
  16961. Set Source = Bind(Objectname_)
  16962. On Event Click From Source Call Click
  16963. End Sub
  16964. '++LotusScript Development Environment:2:2:Click:1:12
  16965. Sub Click(Source As Button)
  16966.     Call ViewNewCalendarEntry("0")
  16967. End Sub
  16968. New\Meeting Invitation'++LotusScript Development Environment:2:5:(Options):0:74
  16969. Use "CSUIViewClass"
  16970. '++LotusScript Development Environment:2:5:(Forward):0:1
  16971. Declare Sub Click(Source As Button)
  16972. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16973. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16974. Private Sub BindEvents(Byval Objectname_ As String)
  16975. Static Source As BUTTON
  16976. Set Source = Bind(Objectname_)
  16977. On Event Click From Source Call Click
  16978. End Sub
  16979. '++LotusScript Development Environment:2:2:Click:1:12
  16980. Sub Click(Source As Button)
  16981.     Call ViewNewCalendarEntry("3")
  16982. End Sub
  16983. New\AnniversaryK'++LotusScript Development Environment:2:5:(Options):0:74
  16984. Use "CSUIViewClass"
  16985. '++LotusScript Development Environment:2:5:(Forward):0:1
  16986. Declare Sub Click(Source As Button)
  16987. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16988. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16989. Private Sub BindEvents(Byval Objectname_ As String)
  16990. Static Source As BUTTON
  16991. Set Source = Bind(Objectname_)
  16992. On Event Click From Source Call Click
  16993. End Sub
  16994. '++LotusScript Development Environment:2:2:Click:1:12
  16995. Sub Click(Source As Button)
  16996.     Call ViewNewCalendarEntry("1")
  16997. End Sub
  16998. New\Reminder'++LotusScript Development Environment:2:5:(Options):0:74
  16999. Use "CSUIViewClass"
  17000. '++LotusScript Development Environment:2:5:(Forward):0:1
  17001. Declare Sub Click(Source As Button)
  17002. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17003. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17004. Private Sub BindEvents(Byval Objectname_ As String)
  17005. Static Source As BUTTON
  17006. Set Source = Bind(Objectname_)
  17007. On Event Click From Source Call Click
  17008. End Sub
  17009. '++LotusScript Development Environment:2:2:Click:1:12
  17010. Sub Click(Source As Button)
  17011.     Call ViewNewCalendarEntry("4")
  17012. End Sub
  17013. New\Event
  17014. '++LotusScript Development Environment:2:5:(Options):0:74
  17015. Use "CSUIViewClass"
  17016. '++LotusScript Development Environment:2:5:(Forward):0:1
  17017. Declare Sub Click(Source As Button)
  17018. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17019. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17020. Private Sub BindEvents(Byval Objectname_ As String)
  17021. Static Source As BUTTON
  17022. Set Source = Bind(Objectname_)
  17023. On Event Click From Source Call Click
  17024. End Sub
  17025. '++LotusScript Development Environment:2:2:Click:1:12
  17026. Sub Click(Source As Button)
  17027.     Call ViewNewCalendarEntry("2")
  17028. End Sub
  17029. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  17030. Use "CSUIViewClass"
  17031. '++LotusScript Development Environment:2:5:(Forward):0:1
  17032. Declare Sub Click(Source As Button)
  17033. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17034. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17035. Private Sub BindEvents(Byval Objectname_ As String)
  17036. Static Source As BUTTON
  17037. Set Source = Bind(Objectname_)
  17038. On Event Click From Source Call Click
  17039. End Sub
  17040. '++LotusScript Development Environment:2:2:Click:1:12
  17041. Sub Click(Source As Button)
  17042.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  17043. End Sub
  17044. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  17045. Use "CSUIViewClass"
  17046. '++LotusScript Development Environment:2:5:(Forward):0:1
  17047. Declare Sub Click(Source As Button)
  17048. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17049. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17050. Private Sub BindEvents(Byval Objectname_ As String)
  17051. Static Source As BUTTON
  17052. Set Source = Bind(Objectname_)
  17053. On Event Click From Source Call Click
  17054. End Sub
  17055. '++LotusScript Development Environment:2:2:Click:1:12
  17056. Sub Click(Source As Button)
  17057.     Call ProcessViewCommand(ACTION_CANCEL)
  17058. End Sub
  17059. Owner Actions\Confirm
  17060. '++LotusScript Development Environment:2:5:(Options):0:74
  17061. Use "CSUIViewClass"
  17062. '++LotusScript Development Environment:2:5:(Forward):0:1
  17063. Declare Sub Click(Source As Button)
  17064. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17065. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17066. Private Sub BindEvents(Byval Objectname_ As String)
  17067. Static Source As BUTTON
  17068. Set Source = Bind(Objectname_)
  17069. On Event Click From Source Call Click
  17070. End Sub
  17071. '++LotusScript Development Environment:2:2:Click:1:12
  17072. Sub Click(Source As Button)
  17073.     Call ProcessViewCommand(ACTION_CONFIRM)
  17074. End Sub
  17075. Owner Actions\View Participant Status
  17076. '++LotusScript Development Environment:2:5:(Options):0:74
  17077. Use "CSUIViewClass"
  17078. '++LotusScript Development Environment:2:5:(Forward):0:1
  17079. Declare Sub Click(Source As Button)
  17080. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17081. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17082. Private Sub BindEvents(Byval Objectname_ As String)
  17083. Static Source As BUTTON
  17084. Set Source = Bind(Objectname_)
  17085. On Event Click From Source Call Click
  17086. End Sub
  17087. '++LotusScript Development Environment:2:2:Click:1:12
  17088. Sub Click(Source As Button)
  17089.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  17090. End Sub
  17091. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  17092. Use "CSUIViewClass"
  17093. '++LotusScript Development Environment:2:5:(Forward):0:1
  17094. Declare Sub Click(Source As Button)
  17095. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17096. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17097. Private Sub BindEvents(Byval Objectname_ As String)
  17098. Static Source As BUTTON
  17099. Set Source = Bind(Objectname_)
  17100. On Event Click From Source Call Click
  17101. End Sub
  17102. '++LotusScript Development Environment:2:2:Click:1:12
  17103. Sub Click(Source As Button)
  17104.     Call ProcessViewCommand(ACTION_SENDMEMO)
  17105. End Sub
  17106. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  17107. Use "CSUIViewClass"
  17108. '++LotusScript Development Environment:2:5:(Forward):0:1
  17109. Declare Sub Click(Source As Button)
  17110. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17111. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17112. Private Sub BindEvents(Byval Objectname_ As String)
  17113. Static Source As BUTTON
  17114. Set Source = Bind(Objectname_)
  17115. On Event Click From Source Call Click
  17116. End Sub
  17117. '++LotusScript Development Environment:2:2:Click:1:12
  17118. Sub Click(Source As Button)
  17119.     Call ProcessViewCommand(ACTION_ACCEPT)
  17120. End Sub
  17121. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  17122. Use "CSUIViewClass"
  17123. '++LotusScript Development Environment:2:5:(Forward):0:1
  17124. Declare Sub Click(Source As Button)
  17125. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17126. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17127. Private Sub BindEvents(Byval Objectname_ As String)
  17128. Static Source As BUTTON
  17129. Set Source = Bind(Objectname_)
  17130. On Event Click From Source Call Click
  17131. End Sub
  17132. '++LotusScript Development Environment:2:2:Click:1:12
  17133. Sub Click(Source As Button)
  17134.     Call ProcessViewCommand(ACTION_DECLINE)
  17135. End Sub
  17136. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  17137. Use "CSUIViewClass"
  17138. '++LotusScript Development Environment:2:5:(Forward):0:1
  17139. Declare Sub Click(Source As Button)
  17140. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17141. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17142. Private Sub BindEvents(Byval Objectname_ As String)
  17143. Static Source As BUTTON
  17144. Set Source = Bind(Objectname_)
  17145. On Event Click From Source Call Click
  17146. End Sub
  17147. '++LotusScript Development Environment:2:2:Click:1:12
  17148. Sub Click(Source As Button)
  17149.     Call ProcessViewCommand(ACTION_DELEGATE)
  17150. End Sub
  17151. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  17152. Use "CSUIViewClass"
  17153. '++LotusScript Development Environment:2:5:(Forward):0:1
  17154. Declare Sub Click(Source As Button)
  17155. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17156. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17157. Private Sub BindEvents(Byval Objectname_ As String)
  17158. Static Source As BUTTON
  17159. Set Source = Bind(Objectname_)
  17160. On Event Click From Source Call Click
  17161. End Sub
  17162. '++LotusScript Development Environment:2:2:Click:1:12
  17163. Sub Click(Source As Button)
  17164.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  17165. End Sub
  17166. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  17167. Use "CommonUI"
  17168. '++LotusScript Development Environment:2:5:(Forward):0:1
  17169. Declare Sub Click(Source As Button)
  17170. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17171. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17172. Private Sub BindEvents(Byval Objectname_ As String)
  17173. Static Source As BUTTON
  17174. Set Source = Bind(Objectname_)
  17175. On Event Click From Source Call Click
  17176. End Sub
  17177. '++LotusScript Development Environment:2:2:Click:1:12
  17178. Sub Click(Source As Button)
  17179.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  17180. End Sub
  17181. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  17182. Use "CommonUI"
  17183. '++LotusScript Development Environment:2:5:(Forward):0:1
  17184. Declare Sub Click(Source As Button)
  17185. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17186. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17187. Private Sub BindEvents(Byval Objectname_ As String)
  17188. Static Source As BUTTON
  17189. Set Source = Bind(Objectname_)
  17190. On Event Click From Source Call Click
  17191. End Sub
  17192. '++LotusScript Development Environment:2:2:Click:1:12
  17193. Sub Click(Source As Button)
  17194.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  17195. End Sub
  17196. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  17197. Use "CommonUI"
  17198. '++LotusScript Development Environment:2:5:(Forward):0:1
  17199. Declare Sub Click(Source As Button)
  17200. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17201. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17202. Private Sub BindEvents(Byval Objectname_ As String)
  17203.     Static Source As BUTTON
  17204.     Set Source = Bind(Objectname_)
  17205.     On Event Click From Source Call Click
  17206. End Sub
  17207. '++LotusScript Development Environment:2:2:Click:1:12
  17208. Sub Click(Source As Button)
  17209.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  17210. End Sub
  17211. Folder\Move To Folder... 
  17212.     0S0E
  17213. Folder\Remove From Folder
  17214.     0S0E
  17215. Save As Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  17216. '++LotusScript Development Environment:2:5:(Forward):0:1
  17217. Declare Sub Click(Source As Button)
  17218. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17219. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17220. Private Sub BindEvents(Byval Objectname_ As String)
  17221.     Static Source As BUTTON
  17222.     Set Source = Bind(Objectname_)
  17223.     On Event Click From Source Call Click
  17224. End Sub
  17225. '++LotusScript Development Environment:2:2:Click:1:12
  17226. Sub Click(Source As Button)
  17227.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  17228.     Call cMemoObject.noteUIMemo.save()
  17229.     Call cMemoObject.noteUIMemo.close()
  17230. End Sub
  17231. IsMailStationery
  17232.     1S2S
  17233. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  17234. '++LotusScript Development Environment:2:5:(Forward):0:1
  17235. Declare Sub Click(Source As Button)
  17236. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17237. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17238. Private Sub BindEvents(Byval Objectname_ As String)
  17239.     Static Source As BUTTON
  17240.     Set Source = Bind(Objectname_)
  17241.     On Event Click From Source Call Click
  17242. End Sub
  17243. '++LotusScript Development Environment:2:2:Click:1:12
  17244. Sub Click(Source As Button)
  17245.     Call cMemoObject.InsertSignature(False)
  17246. End Sub
  17247. Reply...\Reply*
  17248. Reply
  17249.     0S0E
  17250. Submit>
  17251.     0S0E
  17252.     0S0E
  17253. ForwardK
  17254.     1S10S14S16S23S
  17255. path"
  17256. /Memo?OpenForm&UNID="
  17257. &forward"
  17258. Inbox
  17259. New Memo(
  17260.     0S0E
  17261. Folder...\Move to Folder...K&
  17262.     0S0E
  17263. Folder...\Remove from Folder 
  17264.     0S0E
  17265. Delete...\Delete 
  17266.     0S0E
  17267. Delete...\Empty Trash
  17268.     0S0E
  17269. New Task(
  17270.     0S0E
  17271. Send...\Send`
  17272. tmpSendOptions
  17273. Send...\Send and Save
  17274. tmpSendOptions
  17275. Tools...\Preferences4
  17276. CalendarProfile
  17277.     0S0E
  17278. Edit 
  17279.     0S0E
  17280. Lotus Product
  17281. OBJECT
  17282. Lotus Product8    +V0.0
  17283.     K8    -
  17284. Lotus Product
  17285. OBJECT
  17286. Lotus Product8    +V0.0
  17287.     K8    -
  17288. Lotus Product8    +V0.0
  17289.     K8    -
  17290. Lotus Product
  17291. OBJECT
  17292. Lotus ProductLP
  17293. S+(SI
  17294. ^$U+(SJ
  17295. ^4U+(SJ
  17296. l#K4U-
  17297. m#K4U-
  17298. Lotus ProductLP
  17299. S+(SI
  17300. ^$U+(SJ
  17301. ^4U+(SJ
  17302. l#K4U-
  17303. m#K4U-
  17304. Lotus ProductLP
  17305. S+(SI
  17306. ^$U+(SJ
  17307. ^4U+(SJ
  17308. l#K4U-
  17309. m#K4U-
  17310. Lotus ProductLP
  17311. S+(SI
  17312. ^$U+(SJ
  17313. ^4U+(SJ
  17314. l#K4U-
  17315. m#K4U-
  17316. Lotus ProductLP
  17317. S+(SI
  17318. ^$U+(SJ
  17319. ^4U+(SJ
  17320. l#K4U-
  17321. m#K4U-
  17322. Lotus ProductLP
  17323. S+(SI
  17324. l#}TW
  17325. l#}TW
  17326. ^$U+(SJ
  17327. ^4U+(SJ
  17328. l#K4U-
  17329. Lotus ProductLP
  17330. S+(SI
  17331. l#}TW
  17332. l#}TW
  17333. ^$U+(SJ
  17334. ^4U+(SJ
  17335. l#K4U-
  17336. Lotus ProductLP
  17337. S+(SI
  17338. l#}TW
  17339. l#}TW
  17340. ^$U+(SJ
  17341. ^4U+(SJ
  17342. l#K4U-
  17343. Lotus ProductLP
  17344. S+(SI
  17345. l#}TW
  17346. l#}TW
  17347. ^$U+(SJ
  17348. ^4U+(SJ
  17349. l#K4U-
  17350. Lotus Product
  17351. OBJECT
  17352. Lotus Product
  17353. OBJECT
  17354. Lotus Product
  17355. OBJECT
  17356. O=Lotus Notes
  17357. O=Lotus Notes
  17358. PURSAFO
  17359. |.:#U
  17360. O=Lotus Notes
  17361. CN=Lotus Notes Template Development/O=Lotus Notes
  17362. PURSAFO
  17363. Z2{pc
  17364. $Info
  17365. $Body
  17366. $V5ACTIONS
  17367. $ACTIONS
  17368. $SCRIPTOBJ_17
  17369. $SCRIPTOBJ_26
  17370. $SCRIPTOBJ_27
  17371. $SCRIPTOBJ_28
  17372. $SCRIPTOBJ_29
  17373. $SCRIPTOBJ_30
  17374. $SCRIPTOBJ_31
  17375. $SCRIPTOBJ_32
  17376. $SCRIPTOBJ_33
  17377. $SCRIPTOBJ_34
  17378. $SCRIPTOBJ_35
  17379. $SCRIPTOBJ_36
  17380. $SCRIPTOBJ_37
  17381. $SCRIPTOBJ_38
  17382. $SCRIPTOBJ_39
  17383. $SCRIPTOBJ_40
  17384. $SCRIPTOBJ_41
  17385. $SCRIPTOBJ_42
  17386.  Moods
  17387. SenderTag
  17388. SenderTag
  17389.     1S2S3S4S5S6S
  17390. SenderTag
  17391.     0S0E
  17392. @___@
  17393. <a>7`^
  17394. `!bb!R
  17395. SenderTag
  17396.     0S0E
  17397. @___@
  17398. <a>7`^
  17399. `!bb!R
  17400. SenderTag
  17401.     0S0E
  17402. @___@
  17403. <a>7`^
  17404. `!bb!R
  17405. SenderTag
  17406.     0S0E
  17407. @___@
  17408. <a>7`^
  17409. `!bb!R
  17410. SenderTag
  17411.     0S0E
  17412. @___@
  17413. <a>7`^
  17414. `!bb!R
  17415. SenderTag
  17416.     0S0E
  17417. %12-/H
  17418. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  17419. WC9iB.xC-iF8wH8jT>zR<rd?
  17420. 2L3;FK=Dj=C:FQ8Qp<b
  17421. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  17422. SenderTag
  17423.     0S0E
  17424. SenderTag
  17425.     0S0E
  17426. @___@
  17427. <a>7`^
  17428. `!bb!R
  17429. SenderTag
  17430.     0S0E
  17431. SenderTag
  17432.     0S0E
  17433. SenderTag
  17434. SenderTag
  17435. SenderTag
  17436.     4S5S8S9S10S11S
  17437. @___@
  17438. <a>7`^
  17439. `!bb!R
  17440. O=Lotus Notes
  17441. O=Lotus Notes
  17442. PURSAFO
  17443. |.:#U
  17444. O=Lotus Notes
  17445. CN=Lotus Notes Template Development/O=Lotus Notes
  17446. PURSAFO
  17447.  >Ww/]
  17448. $TITLE
  17449. $Info
  17450. $$Script_O
  17451. $$ScriptName
  17452. $Body
  17453. '++LotusScript Development Environment:2:5:(Options):0:74
  17454. Use "Common"
  17455. Option Declare
  17456. '++LotusScript Development Environment:2:5:(Forward):0:1
  17457. Declare Class NameHelperLauncher As BaseApplication
  17458. Declare Sub Initialize
  17459. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17460. 'Launch_Name_Helper
  17461. Class NameHelperLauncher As BaseApplication
  17462.     Private uiws As notesuiworkspace
  17463.     Private m_collection As notesdocumentcollection
  17464.     Private noteOptions As notesdocument    
  17465.     Private noteCandidate As notesdocument        
  17466.     Private AddressStringTable As MailToolsStringTable
  17467.     Private m_vMailDomain As Variant    
  17468.     Private strTrimmedList As Variant                
  17469.     Private strTrimmedDomains As Variant
  17470.     Private m_strNoteID() As String
  17471.     Private m_vNoteID As Variant
  17472.     Private m_strFromArray() As String
  17473.     Private m_strDomainArray() As String
  17474.     Private m_CurrentUser As String
  17475.     Private nSuccess As Integer        
  17476.     Private nEntryNumber As Integer        
  17477.     Private nUserWasInList As Integer
  17478. '//Public Subs and Functions
  17479. Declare Public Sub Init()
  17480. Declare Public Function ProcessCandidates()
  17481. Declare Private Function RemoveDuplicates(strArray() As String) As Variant
  17482. '//Init//
  17483.     Sub Init()
  17484.         Set Me.m_collection = NameHelperLauncher..DocumentsToProcess
  17485.         If Not Me.m_collection.count > 0 Then
  17486.             Exit Sub
  17487.         End If        
  17488.         Set AddressStringTable = New MailToolsStringTable
  17489.         Me.m_CurrentUser = Me.m_session.UserName
  17490.         Me.m_vMailDomain = Evaluate(|@Domain|)
  17491.         Redim m_strFromArray(Me.m_collection.count)
  17492.         Redim m_strNoteID(Me.m_collection.count)
  17493.         Redim m_strDomainArray(Me.m_collection.count)
  17494.         Set Me.uiws = New notesuiworkspace
  17495.         Set noteOptions = m_db.CreateDocument
  17496.     End Sub
  17497.     Function ProcessCandidates()
  17498.         Set noteCandidate = m_collection.getfirstdocument
  17499.         While Not noteCandidate Is Nothing
  17500.             nEntryNumber = nEntryNumber + 1            
  17501.             If noteCandidate.hasitem("From") Then
  17502.                 If Not NAMECompare(Cstr(noteCandidate.From(0)), Me.m_CurrentUser) Then
  17503.                     m_strFromArray(nEntryNumber) = noteCandidate.From(0)
  17504.                     m_strNoteID(nEntryNumber) = noteCandidate.NoteID
  17505.                     If m_vMailDomain(0) <> noteCandidate.FromDomain(0) Then
  17506.                         m_strDomainArray(nEntryNumber) = noteCandidate.FromDomain(0)
  17507.                     End If
  17508.                 Else
  17509.                     Me.nUserWasInList = True
  17510.                 End If
  17511.             End If
  17512.             Set noteCandidate = m_collection.getnextDocument(noteCandidate)        
  17513.         Wend
  17514.         strTrimmedList = RemoveDuplicates(Me.m_strFromArray)
  17515.         Call noteOptions.replaceitemvalue("AllAddresses",strTrimmedList)
  17516.         Call noteOptions.replaceitemvalue("AllDomains",strTrimmedDomains)
  17517.         Call noteOptions.replaceitemvalue("AllNoteIDs",m_vNoteID)
  17518.         'remember to test for valid number of elements
  17519.         If Ubound(strTrimmedList) = 0 And strTrimmedList(0) = "" Then        
  17520.         'error message                        
  17521.             Call DisplayWarn(Me.AddressStringTable.GetString(TOOL_STRING+63,Null),_
  17522.             MB_OK, Me.AddressStringTable.GetString(TOOL_STRING+62,Null))
  17523.         Else
  17524.             nSuccess = uiws.dialogbox("(NameHelper)",True,True,False,False,False,False,_
  17525.             Me.AddressStringTable.GetString(TOOL_STRING+62,Null)_
  17526.             ,noteOptions,True,False)            
  17527.         End If
  17528.     End Function
  17529.     Function RemoveDuplicates(strArray() As String) As Variant
  17530.         Dim x As Integer        
  17531.         Dim y As Integer        
  17532.         Dim tmpstrArray() As String        
  17533.         Dim tmpstrDomainArray() As String
  17534.         Dim tmpstrNoteID() As String
  17535.         Redim tmpstrArray(0)
  17536.         Redim tmpstrDomainArray(0)
  17537.         Redim tmpstrNoteID(0)
  17538.         For x = 0 To Ubound(strArray())        
  17539.             If Isnull(Arraygetindex(tmpstrArray,strArray(x),1)) Then    
  17540.                 tmpstrArray(y) = strArray(x)
  17541.                 tmpstrNoteID(y) = Me.m_strNoteID(x)
  17542.                 tmpstrDomainArray(y) = m_strDomainArray(x)
  17543.                 y = y+1                
  17544.                 Redim Preserve tmpstrArray(y)
  17545.                 Redim Preserve tmpstrNoteID(y)
  17546.                 Redim Preserve tmpstrDomainArray(y)
  17547.             End If
  17548.         Next
  17549.         RemoveDuplicates = Fulltrim(tmpstrArray)
  17550.         strTrimmedDomains = tmpstrDomainArray
  17551.         m_vNoteID = tmpstrNoteID
  17552.     End Function
  17553. End Class
  17554. '++LotusScript Development Environment:2:2:Initialize:1:10
  17555. Sub Initialize
  17556.     Dim copyfunction As New NameHelperLauncher
  17557.     Call copyfunction.init()
  17558.     Call copyfunction.ProcessCandidates()
  17559. End Sub
  17560. Lotus Product
  17561. O=Lotus Notes
  17562. O=Lotus Notes
  17563. PURSAFO
  17564. |.:#U
  17565. O=Lotus Notes
  17566. CN=Lotus Notes Template Development/O=Lotus Notes
  17567. PURSAFO
  17568. $TITLE
  17569. $AssistType
  17570. $AssistLastRun
  17571. $AssistDocCount
  17572. $AssistFlags
  17573. $AssistTrigger
  17574. $AssistInfo
  17575. $AssistQuery
  17576. $AssistAction
  17577. $AssistAction_Ex
  17578. '++LotusScript Development Environment:2:5:(Options):0:66
  17579. Option Public
  17580. '++LotusScript Development Environment:2:5:(Forward):0:1
  17581. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17582. Dim note As NotesDocument
  17583. Dim uidoc As notesuidocument
  17584.  AlarmOptions'++LotusScript Development Environment:2:5:(Options):0:66
  17585. '++LotusScript Development Environment:2:5:(Forward):0:1
  17586. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  17587. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17588. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17589. Private Sub BindEvents(Byval Objectname_ As String)
  17590. Static Source As NOTESUIDOCUMENT
  17591. Set Source = Bind(Objectname_)
  17592. On Event Queryopen From Source Call Queryopen
  17593. End Sub
  17594. '++LotusScript Development Environment:2:2:Queryopen:1:12
  17595. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  17596.     Dim ws As New NotesUIWorkspace
  17597.     Set uidoc = source
  17598.     Set note = source.document
  17599.     source.autoreload = False
  17600.     Call note.ReplaceItemValue("tmpAlarmFiles",ws.GetListOfTunes)
  17601.     If (note.hasitem("$AlarmSound")) Then
  17602.         Set item = note.getfirstitem("tmpAlarmFiles")
  17603.         Call item.appendtotextlist(note.getitemvalue("$AlarmSound")(0))
  17604.     End If
  17605. End Sub
  17606. Lotus Product
  17607. Kl7,p;^(
  17608. S(<N<
  17609. O4<S@<~
  17610. O4<S@<~
  17611. tmpAlarmFiles
  17612.     Under Construction
  17613.     When:
  17614. $AlarmOffset
  17615. $AlarmOffseth
  17616. $AlarmOffset
  17617. $AlarmTimeh
  17618. $AlarmTime
  17619. StartDateTime
  17620.     1S2S3S10S12S17S18S19S21S
  17621. Current
  17622. $AlarmOffseth
  17623. $AlarmOffset
  17624. CalendarProfile
  17625. AppointmentLead
  17626.     0R1S2S9S11S15S
  17627. FixedCurrent
  17628. Current
  17629. Current
  17630.     0R1S2S5S6S8S10S
  17631. FixedCurrent
  17632. FixedCurrent
  17633. FixedCurrent
  17634. FixedCurrent
  17635. FixedCurrent
  17636.     0R3S4S6S7S8S10S11S12S14S15S16S18S19S
  17637. tmpOffset
  17638. $AlarmUnith
  17639. $AlarmUnit
  17640.     7S9S
  17641. $AlarmUnit
  17642. Minutes|MHours|HDays|D
  17643. $AlarmOffseth
  17644. $AlarmOffset
  17645.     7S10S11S13S15S18StmpOffsetDir
  17646. Before|1After|2
  17647. tmpTriggerType
  17648.     Message box text to display:
  17649. $AlarmDescription
  17650. $AlarmDescription
  17651.     0S0E
  17652. tmpAlarmPopup
  17653.     Sound to play:
  17654. $AlarmSound
  17655. $AlarmSound
  17656. Calendarprofile
  17657. AlarmSound
  17658.     7S9S13StmpAlarmPath
  17659. tmpAlarmFiles
  17660. '++LotusScript Development Environment:2:5:(Options):0:66
  17661. '++LotusScript Development Environment:2:5:(Forward):0:1
  17662. Declare Sub Click(Source As Button)
  17663. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17664. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17665. Private Sub BindEvents(Byval Objectname_ As String)
  17666. Static Source As BUTTON
  17667. Set Source = Bind(Objectname_)
  17668. On Event Click From Source Call Click
  17669. End Sub
  17670. '++LotusScript Development Environment:2:2:Click:1:12
  17671. Sub Click(Source As Button)
  17672.     Dim item As NotesItem
  17673.     Dim vfiles As Variant
  17674.     Dim ws As New notesuiworkspace
  17675.     vFiles = ws.OpenFileDialog(False, "Alarm Sound", "Sound files|*.wav|All files|*.*|")
  17676.     If Not(Isempty(vFiles)) Then
  17677.         Set item = note.GetFirstItem("tmpAlarmFiles")
  17678.         Call item.AppendToTextList(vFiles(0))
  17679.         Call uidoc.reload  
  17680.         Call uidoc.refresh  
  17681.         Call note.replaceitemvalue("tmpAlarmPath",vFiles(0))
  17682.         Call uidoc.reload  
  17683.     End If
  17684. End Sub
  17685. Lotus Product
  17686. OBJECT
  17687. New Button
  17688. Need a newer version of Notes to execute this button.
  17689.     0S0E
  17690. '++LotusScript Development Environment:2:5:(Options):0:66
  17691. '++LotusScript Development Environment:2:5:(Forward):0:1
  17692. Declare Sub Click(Source As Button)
  17693. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17694. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17695. Private Sub BindEvents(Byval Objectname_ As String)
  17696. Static Source As BUTTON
  17697. Set Source = Bind(Objectname_)
  17698. On Event Click From Source Call Click
  17699. End Sub
  17700. '++LotusScript Development Environment:2:2:Click:1:12
  17701. Sub Click(Source As Button)
  17702. Set ws = New notesuiworkspace
  17703.     Call ws.PlayTune(note.GetItemValue("tmpAlarmPath")(0))
  17704. End Sub
  17705. Lotus Product
  17706. OBJECT
  17707. '++LotusScript Development Environment:2:5:(Options):0:66
  17708. '++LotusScript Development Environment:2:5:(Forward):0:1
  17709. Declare Sub Click(Source As Button)
  17710. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17711. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17712. Private Sub BindEvents(Byval Objectname_ As String)
  17713. Static Source As BUTTON
  17714. Set Source = Bind(Objectname_)
  17715. On Event Click From Source Call Click
  17716. End Sub
  17717. '++LotusScript Development Environment:2:2:Click:1:12
  17718. Sub Click(Source As Button)
  17719.     Set ws = New notesuiworkspace
  17720.     Call ws.PlayTune(note.GetItemValue("tmpAlarmPath")(0))
  17721. End Sub
  17722. Lotus Product
  17723. OBJECT
  17724. New Button
  17725. Need a newer version of Notes to execute this button.
  17726.     0S0E
  17727.     Send mail message:
  17728. $AlarmMemoOptions
  17729. $AlarmMemoOptions
  17730. $AlarmMemoOptions
  17731. xxCommon
  17732. -None-|0
  17733. Send mail to following list|2
  17734.     1S2S
  17735. xxWorkflow
  17736. xxCommon
  17737. Send mail to participants|1
  17738.     0R1S2S3S4S
  17739. AppointmentType
  17740. TaskType
  17741. xxWorkflow
  17742. xxCommon
  17743.     0R3S4S5S6S7S8S10S12S
  17744. $AlarmMemoOptions
  17745.     1S2S
  17746. $AlarmSendTo
  17747. $AlarmY
  17748. tmpDisable
  17749. Disable|1
  17750. O=Lotus Notes
  17751. O=Lotus Notes
  17752. PURSAFO
  17753. |.:#U
  17754. O=Lotus Notes
  17755. CN=Lotus Notes Template Development/O=Lotus Notes
  17756. PURSAFO
  17757. tmpAlarmValue
  17758. tmpAlarmOnDate
  17759. tmpAlarmOnTime
  17760. $Info
  17761. $Script
  17762. $$Script_O
  17763. $$ScriptName
  17764. $$FormScript
  17765. $$$FormScript_O
  17766. tmpOffset
  17767. $Body
  17768. $PublicAccess
  17769. Lotus Product
  17770. (RepeatOpenList)
  17771.     Which instance would you like to open?
  17772. tmpDateList
  17773. StartDateTime
  17774.     0S0E
  17775. tmpDateList
  17776.     0S0E
  17777. tmpDateSelected
  17778. O=Lotus Notes
  17779. O=Lotus Notes
  17780. PURSAFO
  17781. |.:#U
  17782. O=Lotus Notes
  17783. CN=Lotus Notes Template Development/O=Lotus Notes
  17784. PURSAFO
  17785. bT'oh
  17786. -*FO%~
  17787. $TITLE
  17788. $Info
  17789. $$Script_O
  17790. $$ScriptName
  17791. tmpDateSelected
  17792. $Body
  17793. $PublicAccess
  17794. (Calendar Profile)CalendarProfileFL
  17795. $CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailTaskFollowAllowBusyAccessPreventRepliesFromInboxAutoRemoveFromInboxAutoprocessForwardAutoprocessUserListAutoprocessLevelCalendarTimeSlotDurationCalendarTimeSlotEndCalendarTimeSlotStartUserCategoriesConflictAnnivConflictEventConflictMeetingPreventSentPreventAllAutoAnniversaryRepeatDefaultDurationCalEntryTypeAlarmSoundTaskLeadSetAlarmTaskAnniversaryLeadSetAlarmAnniversaryEventLeadSetAlarmEventReminderLeadSetAlarmReminderAppointmentLeadSetAlarmAppointmentEnableAlarms$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundaySignatureSignature_1Signature_2SignatureOptionEnableSignatureDefaultLogoMIMEFormatEncryptSavedMailEncryptSentMailSignMailOffSetCharFormatRepliesSpellCheck$AttachmentOptionDefaultMailOptOwnertmpAlarmSounds1
  17796. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  17797. (DelegateUsingAdminP)
  17798. EH4f3
  17799. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  17800. (DeleteSentDlg)CUA3
  17801. tmpDontAskAction
  17802. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  17803. tmpFromInfo_1tmpPostedDateInfo_1
  17804. (Delivery Info)DeliveryInfoCDU31
  17805. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
  17806. (Delivery Options)DeliveryOptionsCDU3w
  17807. SenderTagMIMEMailCharsetSMTPEncodingMIMEFormatReplyToExpireDateReplyDatetmpSenderTagUpdateProfileNoteEncryptSign$AutoSpellDeliveryPriority$KeepPrivateDeliveryReportReturnReceiptImportance$Moods1
  17808. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  17809. (Delivery Report)Delivery Report
  17810. BodyDeliveryDateSubject
  17811. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  17812. (EditOfficeProfile)
  17813. EH4f3L
  17814. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
  17815. (GroupCalendarDlg)CUA3
  17816. MembersSubject1
  17817. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  17818. (GroupCalendarOptions)CUA3
  17819. DurationSelStartTimeStartDate
  17820. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
  17821. (GroupCalendar)(GroupCalendar)CD
  17822. GroupCalendarFSGroupCalendarCtl
  17823. DurationStartDateTimeSaveOptions1
  17824. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  17825. (GroupHelper)CD
  17826. SelectedGroupMembersDescriptionGroupTypeGroupName
  17827. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  17828. /(InviteeReplyDlg)CUA3
  17829. tmpIncludeCommentstmpKeepPostedNewEndTimeNewEndDateNewStartTimeNewStartDateDelegeetmpPencilIn1
  17830. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################################
  17831. (ListResource)(ListResource)CU3
  17832. SelectedItems
  17833. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
  17834. (NameHelper)CD
  17835. tmpConflictActionIncludeX509tmpDomaintmpEmailAddresstmpSuffixtmpLastNametmpMiddleNametmpFirstNametmpTitleServerDBName
  17836. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  17837. (NonDelivery Report)DeliveryReportNonDelivery Report
  17838. BodySubjectCopyToSendToIntendedRecipient
  17839. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  17840. ?^pP\
  17841. (Notice)Notice
  17842. StatusUpdateBodyForm1
  17843. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  17844. ##########################################################
  17845. (Out Of Office Profile)OutOfOfficeProfile
  17846. dateFirstDayBackdateFirstDayOutIgnoreSubjectPhraseIgnoreSendIgnoreFromExcludeInternetEmailSpecialMessageSpecialSubjectSpecialPeopleGeneralMessageDaysOutGeneralSubjectBookBusyTimeFirstDayBackFirstDayOutCurrentStatusSaveOptionsDialogStatusTab_ViewIconExcludeFromViewSubjectFromSenderNotified
  17847. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
  17848. (OwnerDlg)CUA3
  17849. tmpIncludeCommentstmpDeleteEntryEndTimeEndDateStartTimeStartDate1
  17850. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  17851. (ParticipantTable)ParticipantTable
  17852. tmpSortTypetmpOriginalStatustmpOriginalRoletmpOriginalPeople1
  17853. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  17854. ##########################################################
  17855. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
  17856. (Personal Stationery)Personal Stationeryw
  17857. FooterBodyHEADERSubjectBlindCopyToEnterBlindCopyToCopyToEnterCopyToSendToEnterSendTo$KeepPrivateBGTableColorLogoDefaultMailSaveOptionsAltFromFrom
  17858. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  17859. (Preferences)
  17860. EH4f3L
  17861. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  17862. @(RepeatForm)CUA3
  17863. RepeatWeekendsRepeatFromEndRepeatCustomRepeatAdjustRepeatUntilRepeatForUnitRepeatForRepeatHowRepeatIntervalRepeatUnitRepeatStartDatetmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP1
  17864. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
  17865. (RepeatOpenList)CUA3
  17866. tmpDateSelectedtmpDateList1
  17867. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  17868. (ReplyNotice)(ReplyNotice)
  17869. StatusUpdateSaveOptionsMailOptionsForm1
  17870. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  17871. (Return Receipt)Return Receipt
  17872. DeliveryDateSubject
  17873. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  17874. (ReturnNonReceipt)ReturnNonReceipt
  17875. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  17876. (Room Resource Scheduler)CUA3
  17877. dStartDatedEndTimedStartTimeResourceNameMultiResourceNameSingleResourceCategoryCapacitySiteNABsEndTimeStartTimeStartDateResourceRoomToReserveFindResourceStyletmpCategorytmpSiteAddressBooksResourceNameResourceType1
  17878. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
  17879. (RulesDlg)MailruleCD
  17880. OrderNumActionListDisplayimportancecondfolderactionConditionListDisplaydomainlistimportancestringLogicconditionOperatorTypeEnabletokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormula
  17881. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
  17882. z(SendTrackingRequest)
  17883. EH4fL3
  17884. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  17885. (subOption)CUA3
  17886. TraceTypeSelectedOptions
  17887. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  17888. wPreferencesSave
  17889. wPreferencesOpen
  17890. (Help)
  17891. MAIL_F_CALENDARPROFILE
  17892.     0S0E
  17893. Times New Roman
  17894. &Arial
  17895. 5Courier New
  17896. '++LotusScript Development Environment:2:5:(Options):0:74
  17897. '++LotusScript Development Environment:2:5:(Forward):0:1
  17898. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17899. Lotus Product
  17900.  CalendarProfile'++LotusScript Development Environment:2:5:(Options):0:66
  17901. '++LotusScript Development Environment:2:5:(Forward):0:1
  17902. Declare Sub Exiting(Source As Field)
  17903. Declare Sub Entering(Source As Field)
  17904. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17905. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17906. Private Sub BindEvents(Byval Objectname_ As String)
  17907.     Static Source As FIELD
  17908.     Set Source = Bind(Objectname_)
  17909.     On Event Exiting From Source Call Exiting
  17910.     On Event Entering From Source Call Entering
  17911. End Sub
  17912. '++LotusScript Development Environment:2:2:Exiting:1:12
  17913. Sub Exiting(Source As Field)
  17914.     'Should I clear the Signature location field here if I sense that the Option has been changed?
  17915.     Dim uiws As New notesuiworkspace
  17916.     Dim noteUIDoc As notesuidocument
  17917.     Set noteUIDoc = uiws.currentdocument
  17918.     If strSignatureOption <> noteUIDoc.FieldGetText("SignatureOption") Then
  17919.         Call noteUIDoc.FieldSetText("Signature","")
  17920.     End If
  17921. End Sub
  17922. '++LotusScript Development Environment:2:2:Entering:1:12
  17923. Sub Entering(Source As Field)
  17924.     Dim uiws As New notesuiworkspace
  17925.     Dim noteUIDoc As notesuidocument
  17926.     Set noteUIDoc = uiws.currentdocument
  17927.     strSignatureOption = noteUIDoc.FieldGetText("SignatureOption")
  17928. End Sub
  17929. Lotus Product
  17930. OBJECT
  17931. '++LotusScript Development Environment:2:5:(Options):0:66
  17932. '++LotusScript Development Environment:2:5:(Forward):0:1
  17933. Declare Sub Entering(Source As Field)
  17934. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17935. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17936. Private Sub BindEvents(Byval Objectname_ As String)
  17937.     Static Source As FIELD
  17938.     Set Source = Bind(Objectname_)
  17939.     On Event Entering From Source Call Entering
  17940. End Sub
  17941. '++LotusScript Development Environment:2:2:Entering:1:12
  17942. Sub Entering(Source As Field)
  17943. End Sub
  17944. Lotus Product
  17945. '++LotusScript Development Environment:2:5:(Options):0:66
  17946. '++LotusScript Development Environment:2:5:(Forward):0:1
  17947. Declare Sub Entering(Source As Field)
  17948. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17949. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17950. Private Sub BindEvents(Byval Objectname_ As String)
  17951.     Static Source As FIELD
  17952.     Set Source = Bind(Objectname_)
  17953.     On Event Entering From Source Call Entering
  17954. End Sub
  17955. '++LotusScript Development Environment:2:2:Entering:1:12
  17956. Sub Entering(Source As Field)
  17957. End Sub
  17958. Lotus Product
  17959. '++LotusScript Development Environment:2:5:(Options):0:66
  17960. '++LotusScript Development Environment:2:5:(Forward):0:1
  17961. Declare Sub Entering(Source As Field)
  17962. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17963. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17964. Private Sub BindEvents(Byval Objectname_ As String)
  17965.     Static Source As FIELD
  17966.     Set Source = Bind(Objectname_)
  17967.     On Event Entering From Source Call Entering
  17968. End Sub
  17969. '++LotusScript Development Environment:2:2:Entering:1:12
  17970. Sub Entering(Source As Field)
  17971. End Sub
  17972. Lotus Product
  17973. FromPerson memo is from.z
  17974. FromDomain
  17975. FromDomain
  17976. FromDomain
  17977. FromDomain
  17978.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  17979. FromName
  17980.     0RR1S2S6S
  17981. FromStops
  17982.     0R1S2S6S
  17983. FromName
  17984. FromStops
  17985.     0RR1S2S3S4S8StmpDisplayFrom_Previewz
  17986. tmpDisplayFrom_Preview
  17987. .,$ //:
  17988. PostedDateh
  17989. PostedDate
  17990.     7S9S
  17991. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  17992. tmpDisplayDate_Preview
  17993. tmpAlarmSounds
  17994. Path_Info
  17995. Path_Info
  17996. Query_String
  17997. Query_String
  17998. DialogMode
  17999. Calendar
  18000.     0S0E
  18001. DialogMode
  18002. DialogMode
  18003. SignatureOption
  18004. Preference
  18005. SignatureOption
  18006.     User configuration
  18007. SignatureOption
  18008.     Owner of this mail file:
  18009. SignatureOption
  18010. SignatureOption
  18011. Owner
  18012. Owner
  18013.     Default Mail:
  18014. DefaultMailOpt
  18015. Send Only|1Send and Save|2Save as Draft|3
  18016. SignatureOption
  18017.     Exclude attachments on:
  18018. $AttachmentOption
  18019. Reply with History|1Forwarded documents|2
  18020. SpellCheck
  18021. Automatic Spell Checking|1z
  18022. SpellCheck
  18023. FormatReplies
  18024. Formatted Replies with an offset character|1
  18025. FormatReplies
  18026. OffSetChar
  18027. >|1<|2<<|3>>|4z
  18028. OffSetChar
  18029. Preferences
  18030.     Default Security
  18031. SignMail
  18032. Sign|1z
  18033. SignMail
  18034. EncryptSentMail
  18035. Encrypt Sent Mail|1z
  18036. EncryptSentMail
  18037. EncryptSavedMail
  18038. Encrypt Saved Mail|1z
  18039. EncryptSavedMail
  18040. SignatureOption
  18041.     Internet message format
  18042. SignatureOption
  18043. SignatureOption
  18044.     Message format for email sent to internet recipients not listed in the Domino directory.
  18045. MIMEFormat
  18046. HTML Only|0Plain Text Only|1HTML and Plain Text|2
  18047. MIMEFormat
  18048.     The settings in this panel specify delivery defaults. You can over-ride these defaults when you create a new memo by choosing 'Delivery options' in the new memo.
  18049. Security
  18050. DefaultLogo%
  18051. 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 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|StdNotesLtr26Three Dimensional Relief|StdNotesLtr27Torn Paper|StdNotesLtr28Triangle with Dots 1|StdNotesLtr29Triangle with Dots 2|StdNotesLtr30Triangles | StdNotesLtr35Waves | StdNotesLtr39Wild Confetti|StdNotesLtr32Yellow Gradient|StdNotesLtr33z
  18052. LetterHeadChoices
  18053. SignatureOption
  18054. tmpDisplayFrom_Preview
  18055. DisplayFrom_Preview
  18056. DisplayFrom_Preview
  18057. PostedDateh
  18058. PostedDate
  18059.     7S9S
  18060. tmpDisplayDate_Preview_1Time/date memo was created or mailed.
  18061. tmpDisplayDate_Preview_1
  18062. DefaultLogo
  18063. Letterhead
  18064. EnableSignature
  18065. Automatically append signature to my outgoing e-mail messages|1z
  18066. EnableSignature
  18067. SignatureOption
  18068. Text|1File|2
  18069. SignatureOption
  18070.     2S3S
  18071.     File: 
  18072. Signature_2
  18073. SignatureOption
  18074.     2S3S
  18075. '++LotusScript Development Environment:2:5:(Options):0:66
  18076. '++LotusScript Development Environment:2:5:(Forward):0:1
  18077. Declare Sub Click(Source As Button)
  18078. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18079. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18080. Private Sub BindEvents(Byval Objectname_ As String)
  18081.     Static Source As BUTTON
  18082.     Set Source = Bind(Objectname_)
  18083.     On Event Click From Source Call Click
  18084. End Sub
  18085. '++LotusScript Development Environment:2:2:Click:1:12
  18086. Sub Click(Source As Button)
  18087.     Dim uiws As New notesuiworkspace
  18088.     Dim noteUIDoc As notesuidocument
  18089.     Dim nSignatureOption As Integer
  18090.     Dim vSignatureLocation As Variant
  18091.     Dim vSignatureBody As Variant
  18092.     Dim nSuccess As Integer
  18093.     Set noteUIDoc = uiws.currentdocument
  18094.     vSignatureLocation = uiws.openfiledialog(False,"Title","Text Files|*.txt|HTML Files|*.htm|Bitmap|*.BMP||","","")
  18095.     If Isempty(vSignatureLocation) Then
  18096.         Redim vSignatureLocation(0)
  18097.     End If
  18098.     Call noteUIDoc.FieldSetText("Signature_2",Cstr(vSignatureLocation(0)))
  18099. End Sub
  18100. Lotus Product
  18101. New Button
  18102. Need a newer version of Notes to execute this button.
  18103.     0S0E
  18104.     Browse...
  18105. SignatureOption
  18106.     2S3S
  18107. SignatureOption
  18108.     2S3S
  18109.     Signature:
  18110. SignatureOption
  18111.     2S3S
  18112. Signature_1
  18113. SignatureOption
  18114. Signature_1
  18115. Signature_2
  18116.     3S4S
  18117. Signature
  18118. Signature
  18119. Preference_1
  18120. SignatureOption
  18121.     Availability
  18122. Sunday
  18123. Sunday|1
  18124. Sunday
  18125.     1S2S
  18126. Size=40
  18127.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
  18128. Monday
  18129. Monday|2
  18130. Monday
  18131.     1S2S
  18132. Size=40
  18133.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
  18134. Tuesday
  18135. Tuesday|3
  18136. Tuesday
  18137.     1S2S
  18138. Size=40
  18139.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
  18140. Wednesday
  18141. Wednesday|4
  18142. Wednesday
  18143.     1S2S
  18144. Size=40
  18145.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
  18146. Thursday
  18147. Thursday|5
  18148. Thursday
  18149.     1S2S
  18150. Size=40
  18151.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
  18152. Friday
  18153. Friday|6
  18154. Friday
  18155.     1S2S
  18156. Size=40
  18157.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
  18158. Saturday
  18159. Saturday|7
  18160. Saturday
  18161.     1S2S
  18162. Size=40
  18163.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
  18164. Freetime
  18165. EnableAlarms
  18166. Enable alarm notifications|1
  18167. EnableAlarms
  18168.     1S2S
  18169.     Default Alarms
  18170. SetAlarmAppointment
  18171. Appointments/Meetings|1
  18172. EnableAlarms
  18173. SetAlarmAppointment
  18174.     1S2S3S4S5S6S
  18175. AppointmentLead
  18176. AppointmentLead
  18177.     3S4S
  18178. AppointmentLead
  18179.      minute(s) in advance
  18180. SetAlarmReminder
  18181. Reminders|1
  18182. EnableAlarms
  18183. SetAlarmReminder
  18184.     1S2S3S2E4S5S6S
  18185. ReminderLead
  18186. ReminderLead
  18187.     3S4S
  18188. ReminderLead
  18189.      minute(s) in advance
  18190. SetAlarmEvent
  18191. Events|1
  18192. EnableAlarms
  18193. SetAlarmEvent
  18194.     1S2S3S2E4S5S6S
  18195. EventLead
  18196. EventLead
  18197.     3S4S
  18198. EventLead
  18199.      day(s) in advance
  18200. SetAlarmAnniversary
  18201. Anniversaries|1
  18202. EnableAlarms
  18203. SetAlarmAnniversary
  18204.     1S2S3S2E4S5S6S
  18205. AnniversaryLead
  18206. AnniversaryLead
  18207.     3S4S
  18208. AnniversaryLead
  18209.      day(s) in advance
  18210. SetAlarmTask
  18211. Tasks|1
  18212. EnableAlarms
  18213. SetAlarmTask
  18214.     1S2S3S2E4S5S6S
  18215. .,$///:
  18216. TaskLead
  18217. TaskLead
  18218.     3S4S
  18219. TaskLead
  18220.      day(s) in advance of due date
  18221.     Default sound:
  18222. AlarmSound
  18223. tmpAlarmSounds
  18224. Alarms
  18225. SignatureOption
  18226.     Defaults
  18227.     Calendar Entry type:
  18228. SignatureOption
  18229. CalEntryType
  18230. CalEntryType
  18231.     3S4S
  18232. CalEntryType
  18233. Appointment|0Meeting Invitation|3Event|2Reminder|4Anniversary|1
  18234.     Appointment/Meeting time duration:
  18235. DefaultDuration
  18236. DefaultDuration
  18237. DefaultDuration
  18238.     3S4S5S6S7S8S9S10S12S
  18239. DefaultDuration
  18240.      (minutes)
  18241.     Anniversary yearly repeat:
  18242. .,$///:
  18243. AutoAnniversaryRepeat
  18244. AutoAnniversaryRepeat
  18245. AutoAnniversaryRepeat
  18246.     3S4S5S6S7S8S10S12S
  18247. AutoAnniversaryRepeat
  18248.      years
  18249. SignatureOption
  18250. SignatureOption
  18251. PreventAll
  18252. Display calendar entries in All Documents view|1
  18253. PreventSent
  18254. Display meeting invitations in Sent view|1
  18255.     Conflict Checking
  18256. ConflictMeeting
  18257. Enable for Appointments/Meetings|1
  18258. ConflictEvent
  18259. Enable for Events|1
  18260. ConflictAnniv
  18261. Enable for Anniversaries|1
  18262.     Personal Categories
  18263. UserCategories
  18264. Entries
  18265. SignatureOption
  18266.     Calendar View Display
  18267.     Time Slot Start:
  18268. .,$ //:
  18269. CalendarTimeSlotStart
  18270.     Time Slot End:
  18271. .,$ //:
  18272. CalendarTimeSlotEnd
  18273.     Time Slow Interval:
  18274. CalendarTimeSlotDuration
  18275. 15 minutes|1530 minutes|3060 minutes|60
  18276. Views
  18277. AutoProcessMeetings
  18278.     1S2S
  18279. AutoprocessLevel
  18280. AutoProcessLevel
  18281.     3S4S6S8S
  18282. AutoprocessLevel
  18283. 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
  18284. AutoprocessLevel
  18285.     1S2S
  18286. AutoprocessUserList
  18287. AutoprocessLevel
  18288.     1S2S
  18289. Size=40
  18290. AutoprocessForward
  18291. AutoRemoveFromInbox
  18292. Remove event requests from my Inbox after I respond to them|1
  18293. PreventRepliesFromInbox
  18294. Prevent event replies from appearing in my Inbox|1
  18295. Autoprocess
  18296.     Only the following users can request my free time information:
  18297. AllowBusyAccess
  18298. TaskFollow
  18299. Tasks display on my calendar from day-to-day|1
  18300. Calendar
  18301. Calendar
  18302.     The following people/groups can:
  18303.     Read my mail and read my calendar:
  18304. ReadMailz
  18305. ReadMail
  18306.     Read and send mail on my behalf and read my calendar:
  18307. WriteMail
  18308. WriteMail
  18309.     Read, send, and edit any document in my mail file:
  18310. EditMailz
  18311. EditMail
  18312.     Delete mail and calendar entries (allowed for those who can send or edit mail)
  18313. DeleteMailz
  18314. DeleteMail
  18315. *Other (Designer or Manager)
  18316. .,$,  , :
  18317. OtherUsers
  18318.     0S0E
  18319. OtherUsers
  18320.         *These entries cannot be modified from this dialog
  18321. Mail Delegation
  18322.     Calendar Read Accesss
  18323. PublicRead
  18324.     3S4S
  18325. PublicRead
  18326. Everyone can read my calendar|1Only the following people/groups can read my calendar|0
  18327. PublicRead
  18328.     1S2S
  18329. ReadCalendar
  18330.     Calendar Create/Edit Access
  18331. PublicWrite
  18332.     3S4S
  18333. PublicWrite
  18334. Everyone can manage my calendar|1Only the following people/groups can manage my calendar|0
  18335. PublicWrite
  18336.     1S2S
  18337. WriteCalendar
  18338. Calendar Delegation
  18339. Delegation
  18340. Owner
  18341. $BusyName
  18342. $NoPurge
  18343. $NoPurge
  18344. Sunday
  18345. Monday
  18346. Tuesday
  18347. Wednesday
  18348. Thursday
  18349. Friday
  18350. Saturday
  18351.     0S0E
  18352. $AvailableDays
  18353. $PublicAccess
  18354. $CSVersion
  18355. Categori_zeK
  18356. _Edit Document
  18357. Send Docu_ment
  18358. _Forward
  18359. _Move To Folder...
  18360. _Remove From FolderK
  18361. Save & Close<
  18362.     0S0E
  18363. Discard ChangesKF
  18364. SaveOptions
  18365.     1S2S3S
  18366. Categori_zeK
  18367. _Edit Document
  18368. Send Docu_ment
  18369. _Forward
  18370. _Move To Folder...
  18371. _Remove From FolderK
  18372. Save & Close<
  18373.     0S0E
  18374. Discard ChangesKF
  18375. SaveOptions
  18376.     1S2S3S
  18377. O=Lotus Notes
  18378. O=Lotus Notes
  18379. PURSAFO
  18380. |.:#U
  18381. O=Lotus Notes
  18382. CN=Lotus Notes Template Development/O=Lotus Notes
  18383. PURSAFO
  18384. $HTMLDocumentStyles
  18385. $Info
  18386. $WEBQuerySave
  18387. $WEBQueryOpen
  18388. $AppHelpFormula
  18389. $WebFlags
  18390. $Script
  18391. $$Script_O
  18392. $$ScriptName
  18393. $$SignatureOption
  18394. $SignatureOption_O
  18395. $$Signature_2
  18396. $Signature_2_O
  18397. $$Signature_1
  18398. $Signature_1_O
  18399. $$Signature
  18400. $Signature_O
  18401. $Times1
  18402. $Times2
  18403. $Times3
  18404. $Times4
  18405. $Times5
  18406. $Times6
  18407. $Times7
  18408. AppointmentLead
  18409. ReminderLead
  18410. EventLead
  18411. AnniversaryLead
  18412. TaskLead
  18413. DefaultDuration
  18414. AutoAnniversaryRepeat
  18415. CalendarTimeSlotStart
  18416. CalendarTimeSlotEnd
  18417. $NoPurge
  18418. $Body
  18419. $V5ACTIONS
  18420. $ACTIONS
  18421. $PublicAccess
  18422. Lotus Product
  18423. OBJECT
  18424. (C&S DeliveryOptions)
  18425. Broadcast
  18426. I do not want to receive replies from participants|1
  18427. Sign|1
  18428. PreventCounter
  18429. Prevent counter-proposing|1
  18430. Encrypt
  18431. Encrypt|1
  18432. PreventDelegate
  18433. Prevent delegating|1
  18434. O=Lotus Notes
  18435. O=Lotus Notes
  18436. PURSAFO
  18437. |.:#U
  18438. O=Lotus Notes
  18439. CN=Lotus Notes Template Development/O=Lotus Notes
  18440. PURSAFO
  18441. $TITLE
  18442. $Info
  18443. $$Script_O
  18444. $$ScriptName
  18445. $Body
  18446. $PublicAccess
  18447. synch
  18448.     0S0E
  18449. AdminFileName
  18450. admin4.nsf
  18451. CurrentServer
  18452. AdminPExist
  18453. CurrentServer
  18454. AdminFileName
  18455. AdminPAccess
  18456. CurrentServer
  18457. AdminFileName
  18458. AdminPAccessLevel
  18459. AdminPAccess
  18460. AdminPCreateAccess
  18461. AdminPAccess
  18462. CurrentServer
  18463. AdminFileName
  18464. CalendarProfile
  18465. PublicRead
  18466. CalendarProfile
  18467. ReadCalendar
  18468. CalendarProfile
  18469. PublicWrite
  18470. CalendarProfile
  18471. WriteCalendar
  18472. CalendarProfile
  18473. ReadMail
  18474. CalendarProfile
  18475. WriteMail
  18476. CalendarProfile
  18477. EditMail
  18478. CalendarProfile
  18479. DeleteMail
  18480. CalendarProfile
  18481. Owner
  18482.     0R16R23R30R37R44R51R58R65S68R72S80S
  18483. O=Lotus Notes
  18484. O=Lotus Notes
  18485. PURSAFO
  18486. |.:#U
  18487. O=Lotus Notes
  18488. CN=Lotus Notes Template Development/O=Lotus Notes
  18489. PURSAFO
  18490. $TITLE
  18491. $AssistType
  18492. $AssistLastRun
  18493. $AssistDocCount
  18494. $AssistFlags
  18495. $AssistTrigger
  18496. $AssistInfo
  18497. $AssistQuery
  18498. $AssistAction
  18499. $AssistAction_Ex
  18500. Lotus Product
  18501. (DeleteSentDlg) 
  18502.     0S0E
  18503. Cancel
  18504. Action
  18505.     You are about to delete the selected document(s) from the Sent view. This action will delete the selected document(s) from 
  18506.      folders they belong to. 
  18507.     Would you like to continue deleting these documents or remove them from the Sent view instead?
  18508. Action
  18509. Delete
  18510.     1S2S3S
  18511.     Delete
  18512. Action
  18513. Remove
  18514.     1S2S3S
  18515.     Remove
  18516. Action
  18517. Cancel
  18518.     1S2S3S
  18519.     Cancel
  18520. tmpDontAsk
  18521. Don't ask this question again|1
  18522. O=Lotus Notes
  18523. O=Lotus Notes
  18524. PURSAFO
  18525. |.:#U
  18526. O=Lotus Notes
  18527. CN=Lotus Notes Template Development/O=Lotus Notes
  18528. PURSAFO
  18529. "^ng*
  18530. $TITLE
  18531. $Info
  18532. $$Script_O
  18533. $$ScriptName
  18534. $$FormAction2
  18535. $Body
  18536. Lotus Product
  18537. OBJECT
  18538.  DeliveryInfo
  18539.     From:
  18540. FromDomain
  18541. FromDomain"
  18542.     1S2S5S6S8S10S11S12StmpFromInfo
  18543.     Signed:
  18544.     3S4S6S8S
  18545. tmpSignedInfo
  18546.     Return receipt:
  18547. ReturnReceipt
  18548.     3S4S6S8S
  18549. tmpReceiptInfo
  18550.     Encrypted:
  18551. Encrypt
  18552.     3S4S6S8S
  18553. tmpEncryptInfo
  18554.     Importance:
  18555. Importance
  18556. Importance
  18557. Normal
  18558.     3S4S6S8S9S10S12S14StmpImportanceInfo
  18559.     Delivery information:
  18560. $KeepPrivate
  18561. Do not forward, copy or print!
  18562.     3S4S6S8S
  18563. tmpKeepPrivateInfo
  18564. PostedDate
  18565. Not sent yet
  18566. PostedDate
  18567. D1T1V
  18568.  Sent
  18569. DeliveredDate
  18570. DeliveredDate
  18571. D1T1V
  18572.  Delivered"
  18573. $AdditionalHeaders
  18574. -------- Additional  Header  ------
  18575. $AdditionalHeaders
  18576. SMTPHeaders
  18577. -------- Additional  Header  ------
  18578. SMTPHeaders
  18579. DeliveredDate
  18580. -------- Routing Information ------
  18581. DeliveredDate
  18582. RouteTimes
  18583. D1T1V
  18584.  at server 
  18585. RouteServers
  18586.     2R5S6S7S8RS8E10S16S17S20R23S24S26RS8E28S34S35S38R41S42S44RS8E46S49R50S51R54S55S57RS8E59S62R63S64R67S68S70RS8E72S75R78S79S81RS7E83S91S99S2E101RStmpPostedDateInfo
  18587. O=Lotus Notes
  18588. O=Lotus Notes
  18589. PURSAFO
  18590. |.:#U
  18591. O=Lotus Notes
  18592. CN=Lotus Notes Template Development/O=Lotus Notes
  18593. PURSAFO
  18594. ExpireDate
  18595. ReplyDate
  18596. $Phone_O
  18597. $Info
  18598. $$Script_O
  18599. $$ScriptName
  18600. $Body
  18601. $PublicAccess
  18602. FComic Sans MS
  18603. Lotus Product
  18604.  DeliveryOptions
  18605. UpdateProfileNote
  18606. CalendarProfile
  18607. CalendarProfile
  18608. Encrypt
  18609. Encrypt
  18610.     2RT3S4S6RTT8RTTT17RTTT25RTT27RT28R
  18611. SenderTag
  18612. SenderTag
  18613.     0RRR1S
  18614. _ViewIcon
  18615. SenderTag
  18616. SenderTag
  18617. SenderTag
  18618. SenderTag
  18619. SenderTag
  18620. SenderTag
  18621. SenderTag
  18622. SenderTag
  18623. SenderTag
  18624. SenderTag
  18625. SenderTag
  18626.     0R1S2S3S5RS3E6S7S8S9S11S13RS3E14S15S17S19RS3E20S21S23S25RS3E26S27S29S31RS3E32S33S35S37RS3E38S39S41S43RS3E44S45S47S49RS3E50S51S53S55RS3E56S57S59S61RS3E62S63S65S67RS3E68S69S71S73RS3E
  18627. SenderTag
  18628. SenderTag
  18629. SenderTag
  18630. SenderTag
  18631.     0RR6RS3E7S8S9S10S12R
  18632. tmpSenderTag
  18633. tmpSenderTag
  18634.     0S0E
  18635. $Moodsz
  18636. $Moods
  18637.     Delivery options
  18638.     Importance:
  18639. Importance
  18640. Normal|2High|1Low|3
  18641. Importance
  18642. ReturnReceipt
  18643. Return receipt|1
  18644. ReturnReceipt
  18645.     Delivery report:
  18646. DeliveryReport
  18647. Only on failure|BConfirm delivery|CTrace entire path|TNone|Nz
  18648. DeliveryReport
  18649. $KeepPrivate
  18650. Prevent copying|1
  18651. $KeepPrivate
  18652.     Delivery priority:
  18653. DeliveryPriority
  18654. High|HNormal|NLow|L
  18655. DeliveryPriority
  18656. $AutoSpell
  18657. Auto spellcheck|1
  18658.     Security Options
  18659. Mood stamp
  18660.     0S0E
  18661. Sign|1z
  18662. Encrypt
  18663. Encrypt
  18664. Encrypt
  18665.     0S0E
  18666. Encrypt
  18667. Encrypt|1z
  18668. Encrypt
  18669. UpdateProfileNote
  18670. UpdateProfileNote
  18671. Save these security options as the default for future messages|1
  18672. UpdateProfileNote
  18673. SenderTag
  18674. SenderTag
  18675.     0S0E
  18676. tmpSenderTag
  18677. Normal|NPersonal|PConfidential|CPrivate|RThank You!|TFlame|FGood Job!|GJoke|JFYI|YQuestion|QReminder|Mz
  18678. SenderTag
  18679. Moods
  18680. SenderTag
  18681.     0S0E
  18682. @___@
  18683. <a>7`^
  18684. `!bb!R
  18685. SenderTag
  18686.     0S0E
  18687. @___@
  18688. <a>7`^
  18689. `!bb!R
  18690. SenderTag
  18691.     0S0E
  18692. @___@
  18693. <a>7`^
  18694. `!bb!R
  18695. SenderTag
  18696.     0S0E
  18697. @___@
  18698. <a>7`^
  18699. `!bb!R
  18700. SenderTag
  18701.     0S0E
  18702. @___@
  18703. <a>7`^
  18704. `!bb!R
  18705. SenderTag
  18706.     0S0E
  18707. %12-/H
  18708. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  18709. WC9iB.xC-iF8wH8jT>zR<rd?
  18710. 2L3;FK=Dj=C:FQ8Qp<b
  18711. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  18712. SenderTag
  18713.     0S0E
  18714. SenderTag
  18715.     0S0E
  18716. @___@
  18717. <a>7`^
  18718. `!bb!R
  18719. SenderTag
  18720.     0S0E
  18721. SenderTag
  18722.     0S0E
  18723. Basic
  18724.     Workflow administation
  18725.     Stamp message with a 'Please reply by' date:
  18726.     (Places message in recipients 'Todo' list)
  18727. .,$ //:
  18728. ReplyDate
  18729. ReplyDate
  18730.     Expiration date (after this date it is safe to archive or delete this document)
  18731. .,$ //:
  18732. ExpireDatez
  18733. ExpireDate
  18734.     Replies to this memo should be addressed to:
  18735. ReplyTo
  18736. ReplyTo
  18737.     Internet message format
  18738.     Message format for email sent to internet recipients not listed in the Domino directory.
  18739. MIMEFormat
  18740. HTML Only|0Plain Text Only|1HTML and Plain Text|2
  18741. MIMEFormat
  18742.     Encoding for attachments:
  18743. SMTPEncoding
  18744. Accept Administrator's default|MIME (Base64)|BQuoted Printable|QUUencode|U
  18745.     MIME Character Set:
  18746. MIMEMailCharset
  18747.     0S0E
  18748. Advanced
  18749. tmpSenderTag
  18750. SenderTag
  18751. @CharSetInfo([EncodingList]) to "return" the text list.
  18752. Also, I think I would prefer the field name to be "MIMEMailCharset".
  18753. SMTPEncoding
  18754. Accept Administrator's default|
  18755. MIME (Base64)|B
  18756. Quoted Printable|Q
  18757. UUencode|U
  18758. O=Lotus Notes
  18759. O=Lotus Notes
  18760. PURSAFO
  18761. |.:#U
  18762. O=Lotus Notes
  18763. CN=Lotus Notes Template Development/O=Lotus Notes
  18764. PURSAFO
  18765. DueDateTime
  18766. $Info
  18767. $$Script_O
  18768. $$ScriptName
  18769. $$FormAction2
  18770. ReplyDate
  18771. ExpireDate
  18772. $Body
  18773. $PublicAccess
  18774. *** Message Successfully Delivered ***
  18775. (Help)
  18776. MAIL_F_DELIVERY-REPORT
  18777.     0S0E
  18778.  Delivery Report
  18779. Delivery Confirmation Report
  18780.     Your document:
  18781. Subject
  18782. Subject
  18783.     was delivered to:
  18784. IntendedRecipient
  18785. IntendedRecipient
  18786. DeliveryDate
  18787. BodyBody of memo.
  18788. Categori_zeK
  18789. Close
  18790.     0S0E
  18791. _Edit Document
  18792. Send Docu_ment
  18793. _Forward
  18794. _Move to Folder...
  18795. _Remove from Folder...
  18796. Categori_zeK
  18797. Close
  18798.     0S0E
  18799. _Edit Document
  18800. Send Docu_ment
  18801. _Forward
  18802. _Move to Folder...
  18803. _Remove from Folder...
  18804. O=Lotus Notes
  18805. O=Lotus Notes
  18806. PURSAFO
  18807. |.:#U
  18808. O=Lotus Notes
  18809. CN=Lotus Notes Template Development/O=Lotus Notes
  18810. PURSAFO
  18811. $Info
  18812. $WINDOWTITLE
  18813. $AppHelpFormula
  18814. $$ScriptName
  18815. DeliveryDate
  18816. $Body
  18817. $V5ACTIONS
  18818. $ACTIONS
  18819. '++LotusScript Development Environment:2:5:(Options):0:66
  18820. Option Public
  18821. '++LotusScript Development Environment:2:5:(Forward):0:1
  18822. Declare Sub Initialize
  18823. '++LotusScript Development Environment:2:5:(Declarations):0:10
  18824. Const strWindowTitle = "Out of Office"
  18825. '++LotusScript Development Environment:2:2:Initialize:1:10
  18826. Sub Initialize
  18827.     Dim session As notessession    
  18828.     Dim uiws As New notesuiworkspace    
  18829.     Dim m_officeprofile As notesdocument
  18830.     Dim nSuccess As Integer        
  18831.     Set session = New notessession
  18832.     Set m_officeprofile = session.CurrentDatabase.GetProfileDocument("OutOfOfficeProfile")
  18833.     nSuccess = uiws.dialogbox("OutOfOfficeProfile",True,True,True,False,False,False,strWindowTitle,m_officeprofile,True,True)
  18834. End Sub
  18835. Lotus Product
  18836. OBJECT
  18837. O=Lotus Notes
  18838. O=Lotus Notes
  18839. PURSAFO
  18840. |.:#U
  18841. O=Lotus Notes
  18842. CN=Lotus Notes Template Development/O=Lotus Notes
  18843. PURSAFO
  18844. "VO:;
  18845. joD~E
  18846. $TITLE
  18847. $AssistType
  18848. $AssistLastRun
  18849. $AssistDocCount
  18850. $AssistFlags
  18851. $AssistTrigger
  18852. $AssistInfo
  18853. $AssistQuery
  18854. $AssistAction
  18855. $AssistAction_Ex
  18856. Lotus Product
  18857. (GroupCalendarDlg) 
  18858.     0S0E
  18859.     Title:     
  18860. Subject
  18861.     Members: 
  18862. Members
  18863. Action
  18864. ViewNow
  18865.     1S2S3S
  18866.     View now
  18867. Action
  18868.     1S2S3S
  18869.     Save
  18870. Action
  18871. Cancel
  18872.     1S2S3S
  18873.     Cancel
  18874. O=Lotus Notes
  18875. O=Lotus Notes
  18876. PURSAFO
  18877. |.:#U
  18878. O=Lotus Notes
  18879. CN=Lotus Notes Template Development/O=Lotus Notes
  18880. PURSAFO
  18881. $Info
  18882. $$Script_O
  18883. $$ScriptName
  18884. $$FormAction2
  18885. $Body
  18886. $PublicAccess
  18887. (GroupCalendarOptions)
  18888.     Starting Day:
  18889.     Starting Time:
  18890.     Duration:
  18891. StartDateTime
  18892. StartDateTime
  18893. StartDate
  18894. StartDateTime
  18895. StartDateTime
  18896. StartTime
  18897. DurationSel
  18898. 1|12|23|34|45|56|67|78|89|910|1011|1112|12
  18899. O=Lotus Notes
  18900. O=Lotus Notes
  18901. PURSAFO
  18902. |.:#U
  18903. O=Lotus Notes
  18904. CN=Lotus Notes Template Development/O=Lotus Notes
  18905. PURSAFO
  18906. $Info
  18907. $$ScriptName
  18908. StartDate
  18909. StartTime
  18910. $Body
  18911. xxNoSubject
  18912. Group Calendar
  18913.     1S2E2S
  18914. Subject
  18915. Subject
  18916. xxNoSubject
  18917.     0RR7S9S
  18918. Lotus Product
  18919. OBJECT
  18920.  (GroupCalendar)'++LotusScript Development Environment:2:5:(Options):0:66
  18921. '++LotusScript Development Environment:2:5:(Forward):0:1
  18922. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18923. Declare Sub Postopen(Source As Notesuidocument)
  18924. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  18925. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18926. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18927. Private Sub BindEvents(Byval Objectname_ As String)
  18928.     Static Source As NOTESUIDOCUMENT
  18929.     Set Source = Bind(Objectname_)
  18930.     On Event Queryclose From Source Call Queryclose
  18931.     On Event Postopen From Source Call Postopen
  18932.     On Event Querymodechange From Source Call Querymodechange
  18933. End Sub
  18934. '++LotusScript Development Environment:2:2:Queryclose:1:12
  18935. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18936.     Call source.save
  18937. End Sub
  18938. '++LotusScript Development Environment:2:2:Postopen:1:12
  18939. Sub Postopen(Source As Notesuidocument)
  18940.     source.fieldhelp = False
  18941.     source.horzscrollbar = False
  18942. End Sub
  18943. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  18944. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  18945.     ' If we are in edit mode, prevent them from going to read mode
  18946.     If (source.editmode) Then continue = False
  18947. End Sub
  18948. Lotus Product
  18949. OBJECT
  18950. SaveOptions
  18951. StartDateTime
  18952. Duration
  18953. CalendarView
  18954. StartDateTime
  18955. Duration
  18956. Members
  18957. Categori_zeK
  18958. _Edit Document
  18959. Send Docu_ment
  18960. _Forward
  18961. _Move To Folder...
  18962. _Remove From FolderK
  18963. Add MembersK
  18964. MembersToAdd
  18965.     1S2S
  18966. Members
  18967. Members
  18968. MembersToAdd
  18969.     0R1S2S3S6S7S
  18970. SaveOptions
  18971.     0R1S2S3S
  18972. $GroupScheduleRefreshMode
  18973.     0R1S2S3S
  18974. act_participantactions.GIF|act_CSPARTACTIONS
  18975. Remove Members
  18976. AbbrevList
  18977. Members
  18978.     1S2S
  18979. MembersToRemove
  18980. Remove Members
  18981. Select the member(s) you wish to remove from the group calendar
  18982. AbbrevList
  18983.     0R1S2S6S8S
  18984. Members
  18985. AbbrevList
  18986. MembersToRemove
  18987.     0R1S2S3S7S
  18988. SaveOptions
  18989.     0R1S2S3S
  18990. $GroupScheduleRefreshMode
  18991.     0R1S2S3S
  18992. act_csowneractions.GIF|act_CSOWNERACTIONS?
  18993. Options...f
  18994. (GroupCalendarOptions)
  18995. Options
  18996.     0S0E
  18997. StartDateTime
  18998. Startdate
  18999. StartTime
  19000.     0RR1S2S3S12S13S14S15S
  19001. Duration
  19002. DurationSel
  19003.     0R1S2S3S
  19004. $GroupScheduleRefreshMode
  19005.     0R1S2S3S
  19006. act_TOOLS.GIF|act_TOOLS?
  19007. Show LegendK
  19008. $GroupScheduleShowLegend
  19009.     1S2S3S
  19010. $GroupScheduleRefreshMode
  19011.     0R1S2S3S
  19012. $GroupScheduleShowLegend
  19013.     1S2S
  19014. Hide LegendK
  19015. $GroupScheduleShowLegend
  19016.     1S2S3S
  19017. $GroupScheduleRefreshMode
  19018.     0R1S2S3S
  19019. $GroupScheduleShowLegend
  19020.     1S2S
  19021. Categori_zeK
  19022. _Edit Document
  19023. Send Docu_ment
  19024. _Forward
  19025. _Move To Folder...
  19026. _Remove From FolderK
  19027. Add MembersK
  19028. MembersToAdd
  19029.     1S2S
  19030. Members
  19031. Members
  19032. MembersToAdd
  19033.     0R1S2S3S6S7S
  19034. SaveOptions
  19035.     0R1S2S3S
  19036. $GroupScheduleRefreshMode
  19037.     0R1S2S3S
  19038. Remove Members
  19039. AbbrevList
  19040. Members
  19041.     1S2S
  19042. MembersToRemove
  19043. Remove Members
  19044. Select the member(s) you wish to remove from the group calendar
  19045. AbbrevList
  19046.     0R1S2S6S8S
  19047. Members
  19048. AbbrevList
  19049. MembersToRemove
  19050.     0R1S2S3S7S
  19051. SaveOptions
  19052.     0R1S2S3S
  19053. $GroupScheduleRefreshMode
  19054.     0R1S2S3S
  19055. Options...f
  19056. (GroupCalendarOptions)
  19057. Options
  19058.     0S0E
  19059. StartDateTime
  19060. Startdate
  19061. StartTime
  19062.     0RR1S2S3S12S13S14S15S
  19063. Duration
  19064. DurationSel
  19065.     0R1S2S3S
  19066. $GroupScheduleRefreshMode
  19067.     0R1S2S3S
  19068. Show LegendK
  19069. $GroupScheduleShowLegend
  19070.     1S2S3S
  19071. $GroupScheduleRefreshMode
  19072.     0R1S2S3S
  19073. $GroupScheduleShowLegend
  19074.     1S2S
  19075. Hide LegendK
  19076. $GroupScheduleShowLegend
  19077.     1S2S3S
  19078. $GroupScheduleRefreshMode
  19079.     0R1S2S3S
  19080. $GroupScheduleShowLegend
  19081.     1S2S
  19082. O=Lotus Notes
  19083. O=Lotus Notes
  19084. PURSAFO
  19085. |.:#U
  19086. O=Lotus Notes
  19087. CN=Lotus Notes Template Development/O=Lotus Notes
  19088. PURSAFO
  19089. $HTMLDocumentStyles
  19090. StartDate
  19091. StartTime
  19092. $Info
  19093. $WINDOWTITLE
  19094. $FrameInfo
  19095. $$Script_O
  19096. $$ScriptName
  19097. $$FormScript
  19098. $$$FormScript_O
  19099. STARTDATETIME
  19100. Duration
  19101. $Body
  19102. $V5ACTIONS
  19103. $ACTIONS
  19104. $PublicAccess
  19105. &Arial
  19106. '++LotusScript Development Environment:2:5:(Options):0:74
  19107. Option Public
  19108. Use "Common"
  19109. '++LotusScript Development Environment:2:5:(Forward):0:1
  19110. Declare Type PersonRecordStruct
  19111. Declare Class UIAddressHelper As BaseApplication 
  19112. Declare Function WriteInfo(note As notesdocument, names As notesname) 
  19113. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19114. Dim AddressControl As UIAddressHelper
  19115. Type PersonRecordStruct
  19116.     Title As String
  19117.     First  As String
  19118.     Middle As String
  19119.     Last As String
  19120.     Suffix As String
  19121.     Email As String
  19122.     ConflictInNAB As Integer
  19123.     ConflictAction As Integer
  19124. End Type
  19125. Class UIAddressHelper As BaseApplication 
  19126.     Private uiws As notesuiworkspace    
  19127.     Private uinoteDialog As notesuidocument
  19128.     Private noteDialog As notesdocument
  19129.     Private PersonalNAB As notesdatabase
  19130.     Private viewPeople As notesview
  19131.     Private nameCurrentName As notesname
  19132.     Private PersonRecord() As PersonRecordStruct    
  19133.     Private AllAddressList As Variant
  19134.     Private NABKey As Variant
  19135.     Private nMAX As Integer
  19136.     Private nBottom As Integer
  19137.     Private nCurrentSelection As Integer
  19138. Declare Public Sub Init(Source As notesuidocument)
  19139. Declare Public Sub Next()
  19140. Declare Public Sub Previous()
  19141. Declare Private Sub BuildMemoryStructure()
  19142. Declare Private Sub LoadDisplay()
  19143. Declare Private Sub WriteUIToStack()
  19144. Declare Private Function HasConflict(Key As String) As Integer
  19145. Declare Private Function GetCommonPart(CommonName As String, PART As Integer) As String
  19146. Declare Private Function FindTitleInString(StringName As String) As String
  19147. Declare Private Function FindSuffixInString(StringName As String) As String
  19148.     Sub New()
  19149.         Set Me.uiws = New notesuiworkspace
  19150.         Set Me.PersonalNAB = UIAddressHelper..LocalAddressBook
  19151.         Set Me.viewPeople = Me.PersonalNAB.GetView("($Users)")
  19152.     End Sub
  19153.     Sub Init(Source As notesuidocument)
  19154.         Set Me.uinoteDialog = Source
  19155.         Set Me.noteDialog = Source.document
  19156.         AllAddressList = Me.noteDialog.getitemvalue("AllAddresses")
  19157.         Me.nBOTTOM = 0
  19158.         Me.nMAX = Ubound(AllAddressList)
  19159.         Redim Me.PersonRecord(Me.nMAX)    
  19160.         Me.uinoteDialog.autoreload = False
  19161.         Call noteDialog.ReplaceItemValue("TotalRecords",Me.nMAX+1) 'makes it look like it's not base0
  19162.         Call BuildMemoryStructure()    'build list
  19163.         Call LoadDisplay()
  19164.     End Sub
  19165.     Sub Next()
  19166.         If Me.nCurrentSelection < Me.nMAX Then
  19167.             Call WriteUIToStack()
  19168.             Me.nCurrentSelection = Me.nCurrentSelection + 1            
  19169.             Call LoadDisplay()                
  19170.         Else 
  19171.             Beep
  19172.         End If
  19173.     End Sub    
  19174.     Sub Previous()
  19175.         If Me.nCurrentSelection > 0 Then
  19176.             Call WriteUIToStack()            
  19177.             Me.nCurrentSelection = Me.nCurrentSelection - 1            
  19178.             Call LoadDisplay()                
  19179.         Else 
  19180.             Beep
  19181.         End If
  19182.     End Sub
  19183.     Sub BuildMemoryStructure()
  19184.         For x = 0 To Me.nMAX
  19185.             Set Me.nameCurrentName = New notesname(AllAddressList(x))
  19186.             PersonRecord(x).Title = FindTitleInString(Me.nameCurrentName.Abbreviated)
  19187.             PersonRecord(x).First = GetCommonPart(Me.nameCurrentName.Common, 1)
  19188.             PersonRecord(x).Middle = GetCommonPart(Me.nameCurrentName.Common, 2)
  19189.             PersonRecord(x).Last = GetCommonPart(Me.nameCurrentName.Common, 3)
  19190.             PersonRecord(x).Suffix = FindSuffixInString(PersonRecord(x).Email)
  19191.             PersonRecord(x).Email = Me.nameCurrentName.Abbreviated
  19192.             PersonRecord(x).ConflictInNAB = HasConflict(PersonRecord(x).Email)
  19193.             If PersonRecord(x).ConflictInNAB Then
  19194.                 PersonRecord(x).ConflictAction = 1
  19195.             Else
  19196.                 PersonRecord(x).ConflictAction = 0
  19197.             End If
  19198.         Next
  19199.     End Sub
  19200.     Sub LoadDisplay()
  19201.         Call noteDialog.ReplaceItemValue("tmpTitle",PersonRecord(Me.nCurrentSelection).Title)
  19202.         Call noteDialog.ReplaceItemValue("tmpFirstName",PersonRecord(Me.nCurrentSelection).First)
  19203.         Call noteDialog.ReplaceItemValue("tmpMiddleName",PersonRecord(Me.nCurrentSelection).Middle)
  19204.         Call noteDialog.ReplaceItemValue("tmpLastName",PersonRecord(Me.nCurrentSelection).Last)
  19205.         Call noteDialog.ReplaceItemValue("tmpSuffix",PersonRecord(Me.nCurrentSelection).Suffix)
  19206.         Call noteDialog.ReplaceItemValue("tmpEmailAddress",PersonRecord(Me.nCurrentSelection).Email)
  19207.         Call noteDialog.ReplaceItemValue("CurrentRecord",(Me.nCurrentSelection + 1))
  19208.         Call noteDialog.ReplaceItemValue("tmpConflictInNAB",Cstr(PersonRecord(Me.nCurrentSelection).ConflictInNAB))
  19209.         If PersonRecord(Me.nCurrentSelection).ConflictInNAB Then
  19210.             Call noteDialog.ReplaceItemValue("ConflictMessage","There is already an entry in your addressbook")
  19211.         Else
  19212.             Call noteDialog.ReplaceItemValue("ConflictMessage","")
  19213.         End If
  19214.         Call noteDialog.ReplaceItemValue("tmpConflictAction",Cstr(PersonRecord(Me.nCurrentSelection).ConflictAction))
  19215.         Call uinoteDialog.Reload()
  19216.         Call uinoteDialog.Refreshhideformulas()
  19217.     End Sub
  19218.     Sub WriteUIToStack()
  19219.         PersonRecord(Me.nCurrentSelection).Title = noteDialog.GetItemValue("tmpTitle")(0)
  19220.         PersonRecord(Me.nCurrentSelection).First = noteDialog.GetItemValue("tmpFirstName")(0)
  19221.         PersonRecord(Me.nCurrentSelection).Middle = noteDialog.GetItemValue("tmpMiddleName")(0)
  19222.         PersonRecord(Me.nCurrentSelection).Last = noteDialog.GetItemValue("tmpLastName")(0)
  19223.         PersonRecord(Me.nCurrentSelection).Suffix = noteDialog.GetItemValue("tmpSuffix")(0)
  19224.         PersonRecord(Me.nCurrentSelection).Email = noteDialog.GetItemValue("tmpEmailAddress")(0)
  19225.         If Isnumeric(noteDialog.getitemvalue("tmpConflictAction")(0)) Then
  19226.             PersonRecord(Me.nCurrentSelection).ConflictAction = noteDialog.GetItemValue("tmpConflictAction")(0)
  19227.         Else
  19228.             PersonRecord(Me.nCurrentSelection).ConflictAction = 0
  19229.         End If            
  19230.     End Sub
  19231.     Function GetCommonPart(CommonName As String, PART As Integer) As String
  19232.         Dim nNumberOfSpaces As Integer        
  19233.         Dim nCounter As Integer
  19234.         Dim nLength As Integer
  19235.         Dim P1,P2,P3 As String
  19236.         Dim strWORKINGSTRING As String
  19237.         strWORKINGSTRING = Trim(CommonName)
  19238.         nLength = Len(strWORKINGSTRING)
  19239.         Do While Instr(strWORKINGSTRING," ")
  19240.             nNumberOfSpaces = nNumberOfSpaces + 1
  19241.             nCounter = Instr(strWORKINGSTRING," ")
  19242.             Select Case nNumberOfSpaces
  19243.             Case 1
  19244.                 P1 = Left(strWORKINGSTRING, (nCounter - 1))
  19245.                 P2 = Right(strWORKINGSTRING, nLength - nCounter)
  19246.             Case 2
  19247.                 P2 = Left(strWORKINGSTRING, (nCounter - 1))
  19248.                 P3 = Right(strWORKINGSTRING, nLength - nCounter)
  19249.             Case 3
  19250.                 P3 =  strWORKINGSTRING
  19251.             End Select
  19252.             strWORKINGSTRING = Right(strWORKINGSTRING, nLength - nCounter)
  19253.             nLength = Len(strWORKINGSTRING)
  19254.         Loop
  19255.         Select Case PART    
  19256.         Case 1
  19257.             GetCommonPart = P1    
  19258.         Case 2
  19259.             Select Case nNumberOfSpaces
  19260.             Case 1
  19261.                 GetCommonPart = ""
  19262.             Case 2
  19263.                 GetCommonPart = P2
  19264.             End Select
  19265.         Case 3
  19266.             Select Case nNumberOfSpaces
  19267.             Case 0
  19268.                 GetCommonPart = P1
  19269.             Case 1
  19270.                 GetCommonPart = P2
  19271.             Case 2,3,4,5,6,7,8
  19272.                 GetCommonPart = P3
  19273.             End Select
  19274.         End Select
  19275.     End Function
  19276.     Function FindTitleInString(StringName As String) As String
  19277.         If Instr(StringName,"Dr.") Then
  19278.             FindTitleInString = "Dr."
  19279.         Elseif Instr(StringName,"Prof") Then
  19280.             FindTitleInString = "Prof"
  19281.         Elseif Instr(StringName,"Mr.") Then
  19282.             FindTitleInString = "Mr."
  19283.         Elseif Instr(StringName,"Ms.") Then
  19284.             FindTitleInString = "Ms."
  19285.         Elseif Instr(StringName,"Miss.") Then
  19286.             FindTitleInString = "Miss."
  19287.         Elseif Instr(StringName,"Mrs.") Then
  19288.             FindTitleInString = "Mrs."
  19289.         Else
  19290.             FindTitleInString = "-None-"
  19291.         End If
  19292.     End Function
  19293.     Function FindSuffixInString(StringName As String) As String
  19294.         If Instr(StringName,"Jr.") Then
  19295.             FindSuffixInString = "Jr."
  19296.         Elseif Instr(StringName,"Sr.") Then
  19297.             FindSuffixInString = "Sr."
  19298.         Elseif  Instr(StringName,"III") Then
  19299.             FindSuffixInString = "III"
  19300.         Elseif  Instr(StringName,"II") Then
  19301.             FindSuffixInString = "II"
  19302.         Elseif  Instr(StringName,"I") Then
  19303.             FindSuffixInString = "I"
  19304.         Else
  19305.             FindSuffixInString = "-None-"
  19306.         End If
  19307.     End Function        
  19308.     Function HasConflict(key As String)As Integer
  19309.         HasConflict = False
  19310.         Call Me.viewPeople.refresh()
  19311.         Set noteKeyFound = Me.viewPeople.GetDocumentByKey(Trim(Lcase(key)),True)    
  19312.         If Not noteKeyFound Is Nothing Then HasConflict = True
  19313.     End Function
  19314. End Class
  19315. Class PersonalNABManagement As BaseApplication   '//uses contructor of superclass//
  19316.     Private noteOptions As notesdocument
  19317.     Private uiws As notesuiworkspace
  19318.     Private m_collection As notesdocumentcollection
  19319.     Private m_strFromArray() As String
  19320.     Private noteCandidate As notesdocument    
  19321.     Private namFrom As notesname
  19322.     Private viewPeople As notesview    
  19323.     Private noteKeyFound As notesdocument
  19324.     Private PersonalNAB As NotesDatabase
  19325.     Private m_NABKey As Variant
  19326.     Private Domain As String    
  19327.     Private ItemBeingProcessed As String
  19328.     Private NumberOfCandidates As Integer
  19329.     Private NumberProcessed As Integer
  19330.     Private ItemsCreated As Integer
  19331.     Private fSuccess As Integer    
  19332.     Private nDuplicateAction As Integer
  19333. '//Public Subs and Functions
  19334. Declare Public Sub Init(collection As notesdocumentcollection)
  19335. Declare Public Function ProcessCandidates(Prompt As Integer)
  19336. '//Init//
  19337.     Sub Init(collection As notesdocumentcollection)
  19338.         If Not collection.count > 0 Then
  19339.             Print "DEBUG Nothing to do"
  19340.             Exit Sub
  19341.         End If
  19342.         Set Me.m_collection = collection
  19343.         Redim m_strFromArray(Me.m_collection.count)
  19344.         Set Me.uiws = New notesuiworkspace
  19345.         Set Me.PersonalNAB = PersonalNABManagement..LocalAddressBook
  19346.         Set Me.viewPeople = Me.PersonalNAB.GetView("($Users)")
  19347.         Set noteOptions = PersonalNAB.CreateDocument
  19348.     End Sub
  19349.     Function ProcessCandidates(Prompt As Integer)
  19350.         Dim nSuccess As Integer        
  19351.         Dim nEntryNumber As Integer        
  19352.         Dim strTrimmedList As Variant        
  19353.         Set noteCandidate = m_collection.getfirstdocument
  19354.         While Not noteCandidate Is Nothing
  19355.             nEntryNumber = nEntryNumber + 1            
  19356.             If noteCandidate.hasitem("From") Then
  19357.                 m_strFromArray(nEntryNumber) = noteCandidate.From(0)
  19358. '                Set namFrom = New notesname(noteCandidate.From(0))                
  19359. '                fSuccess = CreateEntry(namFrom)
  19360.             Else
  19361.                 Print ("Skipping " & noteCandidate.Universalid & " Field FROM not found!")
  19362.             End If
  19363.             Set noteCandidate = m_collection.getnextDocument(noteCandidate)        
  19364.         Wend
  19365.         Stop    
  19366.         strTrimmedList = Fulltrim(m_strFromArray)
  19367.         Call noteOptions.replaceitemvalue("AllAddresses",strTrimmedList)
  19368.         nSuccess = uiws.dialogbox("(NameHelper)",True,True,True,False,False,False,"Add sender to local addressbook",noteOptions,True,True)
  19369.     End Function
  19370.     Function CreateEntry(names As notesname) As Integer
  19371.         Call Me.viewPeople.refresh()
  19372.         Set noteKeyFound = Me.viewPeople.GetDocumentByKey(Trim(Lcase(names.abbreviated)),True)    
  19373.         If noteKeyFound Is Nothing Then
  19374.             Set noteKeyFound = PersonalNAB.CreateDocument()
  19375.             Call WriteInfo(noteKeyFound,names)
  19376.         Else
  19377.             If Not names.Canonical = notekeyfound.MailAddress(0) Then
  19378.                 If Not EnumeratePeople(names) Then 'try to find another document with same commonname and test email address
  19379.                     Call noteOptions.replaceItemValue("OptionLabel",m_OptionLabel & Chr(13) & names.common)
  19380.                     fSuccess = uiws.DialogBox("(SubOption)",True,True,False,False,False,False,"Lotus Notes",noteOptions,True)
  19381.                     If fSuccess Then
  19382.                         nDuplicateAction = Cint(Right(noteOptions.Options(0), (Len(noteOptions.Options(0)) - Instr(noteOptions.Options(0),"|"))))
  19383.                         Select Case nDuplicateAction
  19384.                         Case 1'Skip this record
  19385.                             
  19386.                         Case 2'Update existing record
  19387.                             Set noteKeyFound = Me.viewPeople.GetDocumentByKey(Trim(Lcase(names.common)),True)    
  19388.                             If Not noteKeyFound Is Nothing Then
  19389.                                 Call WriteInfo(noteKeyFound,names)
  19390.                             Else
  19391.                                 Messagebox("An error occured while attempting to update record.")
  19392.                             End If
  19393.                             
  19394.                         Case 3'Create a new entry
  19395.                             Set noteKeyFound = PersonalNAB.CreateDocument()
  19396.                             Call WriteInfo(noteKeyFound,names)
  19397.                         End Select
  19398.                     Else
  19399.                         End
  19400.                     End If 
  19401.                 End If
  19402.             Else
  19403.                 Print("Found item in address book, skipping document.")
  19404.             End If
  19405.         End If
  19406.         'add or update the x.509 signature
  19407.         If noteKeyFound.hasitem("$Signature") Then
  19408.             Dim nSuccess As Integer
  19409.             Dim strNoteID As String
  19410.             strNoteID = noteKeyFound.NoteID
  19411.             nSuccess = Evaluate(|@X509Certificates([AddSignersCerts];| & |;| & Cstr(PersonalNAB.FileName) & |;| & strNoteID & |)|)
  19412.         End If 
  19413.         CreateEntry = True
  19414. End Function
  19415. End Class
  19416. %END REM
  19417. '++LotusScript Development Environment:2:1:WriteInfo:1:8
  19418. Function WriteInfo(note As notesdocument, names As notesname) 
  19419. %REM        
  19420.         Call note.ReplaceItemValue("Form" , "Person" )
  19421.         Call note.ReplaceItemValue("FullName" , names.Canonical )
  19422.         Call note.ReplaceItemValue("LastName", GetCommonPart(names.common,LASTNAME))
  19423.         Call note.ReplaceItemValue("FirstName", GetCommonPart(names.common,FIRSTNAME))
  19424.         Call note.ReplaceItemValue("MailAddress" , names.Canonical )
  19425. '            Call note.ReplaceItemValue("MailSystem" ,  )
  19426.         Call note.ReplaceItemValue("Type" , "Person" )
  19427.         Call note.Save(True,True,True)
  19428.         Me.ItemsCreated = Me.ItemsCreated + 1        
  19429. %END REM
  19430. End Function
  19431. Lotus Product
  19432. (GroupHelper)'++LotusScript Development Environment:2:5:(Options):0:66
  19433. '++LotusScript Development Environment:2:5:(Forward):0:1
  19434. Declare Sub Postopen(Source As Notesuidocument)
  19435. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  19436. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  19437. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19438. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19439. Private Sub BindEvents(Byval Objectname_ As String)
  19440.     Static Source As NOTESUIDOCUMENT
  19441.     Set Source = Bind(Objectname_)
  19442.     On Event Postopen From Source Call Postopen
  19443.     On Event Queryopen From Source Call Queryopen
  19444.     On Event Queryclose From Source Call Queryclose
  19445. End Sub
  19446. '++LotusScript Development Environment:2:2:Postopen:1:12
  19447. Sub Postopen(Source As Notesuidocument)
  19448.     Call AddressControl.Init(Source) 
  19449. End Sub
  19450. '++LotusScript Development Environment:2:2:Queryopen:1:12
  19451. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  19452.     Set AddressControl = New UIAddressHelper
  19453. End Sub
  19454. '++LotusScript Development Environment:2:2:Queryclose:1:12
  19455. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  19456.     If Source.document.SelectedGroupMembers(0) = "" Then
  19457.         Messagebox("none selected, error x?!?")
  19458.     End If
  19459. End Sub
  19460. Lotus Product
  19461. OBJECT
  19462. William Edward Zircher
  19463. Fred VanSmidt
  19464. "travelzoo.com" <news@travelzoo.com>
  19465.     0S0E
  19466. AllAddresses
  19467. .,$///:
  19468. tmpConflictInNAB
  19469. tmpConflictInNAB
  19470.     Group name:
  19471. -Untitled-
  19472. GroupName
  19473. ExistsingGroups
  19474.     Group type:
  19475. GroupTypeChoose the appropriate type for this group.  
  19476. Multi-purpose|0Access Control List only|2Mail only|1
  19477.     Description:
  19478. DescriptionDescription or purpose of the group.
  19479.     Members:
  19480. AllAddresses
  19481.     0S0E
  19482. SelectedGroupMembers
  19483. AllAddresses
  19484. AllAddresses"
  19485.     6S8S9S
  19486. O=Lotus Notes
  19487. O=Lotus Notes
  19488. PURSAFO
  19489. |.:#U
  19490. O=Lotus Notes
  19491. CN=Lotus Notes Template Development/O=Lotus Notes
  19492. PURSAFO
  19493. $Info
  19494. $Script
  19495. $$Script_O
  19496. $$ScriptName
  19497. $$FormScript
  19498. $$$FormScript_O
  19499. $Body
  19500. Times New Roman
  19501. '++LotusScript Development Environment:2:5:(Options):0:74
  19502. Option Public
  19503. Use "Common"
  19504. '++LotusScript Development Environment:2:5:(Forward):0:1
  19505. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19506. Dim note As notesdocument
  19507. Dim uidoc As notesuidocument
  19508. Lotus Product
  19509. OBJECT
  19510. (InviteeReplyDlg)'++LotusScript Development Environment:2:5:(Options):0:66
  19511. '++LotusScript Development Environment:2:5:(Forward):0:1
  19512. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  19513. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19514. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19515. Private Sub BindEvents(Byval Objectname_ As String)
  19516. Static Source As NOTESUIDOCUMENT
  19517. Set Source = Bind(Objectname_)
  19518. On Event Queryopen From Source Call Queryopen
  19519. End Sub
  19520. '++LotusScript Development Environment:2:2:Queryopen:1:12
  19521. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  19522.     Set uidoc = source
  19523.     Set note = source.document
  19524. End Sub
  19525. Lotus Product
  19526. THIS DIALOG IS IN PROGRESS!!!!
  19527. NoticeType
  19528.     1S2S
  19529.         You have previously delegated this request. A message will be sent to 
  19530. Delegee
  19531. tmpDelegee
  19532.      informing them of your change in status.
  19533. tmpActionType
  19534.     Accepting this request will automatically update your calendar. 
  19535. dk+blue+circle(1).gif
  19536.          You can tentatively accept this request which will not book busy time. 
  19537. tmpPencilIn
  19538. Tentatively accept|1
  19539. tmpActionType
  19540.  @  @@ @` @
  19541. @@ @@@@@`@@
  19542. `@ `@@`@``@
  19543.          Who would you like to delegate this request to?
  19544. Delegee
  19545. tmpActionType
  19546.  @  @@ @` @
  19547. @@ @@@@@`@@
  19548. `@ `@@`@``@
  19549.          When would you like this meeting to be held?
  19550. .,$ //:
  19551. NewStartDAte
  19552. StartDateTime
  19553. NewStartDate
  19554.     3S4S6S8S
  19555. NewStartDate
  19556. .,$ //:
  19557. NewStartTIme
  19558. NewTimeRange
  19559. StartDateTime
  19560. NewTimeRangeV
  19561. NewStartTime
  19562.     3S4S6S9S10S12S14S23S28SNewStartTime
  19563. .,$ //:
  19564. NewEndDate
  19565. EndDateTime
  19566. NewEndDate
  19567.     3S4S6S8S
  19568. NewEndDate
  19569. .,$ //:
  19570. NewEndTime
  19571. NewTimeRAnge
  19572. EndDateTime
  19573. NewTimeRangeV
  19574. NewEndTime
  19575.     3S4S6S9S10S12S14S23S28SNewEndTime
  19576. '++LotusScript Development Environment:2:5:(Options):0:66
  19577. '++LotusScript Development Environment:2:5:(Forward):0:1
  19578. Declare Sub Click(Source As Button)
  19579. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19580. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19581. Private Sub BindEvents(Byval Objectname_ As String)
  19582. Static Source As BUTTON
  19583. Set Source = Bind(Objectname_)
  19584. On Event Click From Source Call Click
  19585. End Sub
  19586. '++LotusScript Development Environment:2:2:Click:1:12
  19587. Sub Click(Source As Button)
  19588.     Dim dt As notesdatetime
  19589.     Call TIMEGetComponents("NewStartDate", "StartTime", note, dt)
  19590.     Call note.replaceitemvalue("StartDateTime", dt)
  19591.     Call TIMEGetComponents("NewEndDate", "EndTime", note, dt)
  19592.     Call note.replaceitemvalue("EndDateTime", dt)
  19593.     If (uidoc.FindFreeTimeDialogEx("Delegee", "","","","","","","StartDateTime", "EndDateTime")) Then
  19594.         ' The user might have changed the times
  19595.         Call TIMEGetFromitem( "StartDateTime", note, dt)
  19596.         Call note.replaceitemvalue("NewStartDate", dt)
  19597.         Call note.replaceitemvalue("NewStartTime", dt)
  19598.         Call TIMEGetFromitem( "EndDateTime", note, dt)
  19599.         Call note.replaceitemvalue("NewEndDate", dt)
  19600.         Call note.replaceitemvalue("NewEndTime", dt)
  19601.     End If
  19602. End Sub
  19603. Lotus Product
  19604. OBJECT
  19605. New Button
  19606. Need a newer version of Notes to execute this button.
  19607.     0S0E
  19608.     Search...
  19609. tmpActionType
  19610.     1S2S3S4S
  19611. dk+blue+circle(1).gif
  19612.         You can continue receiving update notices from the owner if you wish.
  19613. tmpKeepPosted
  19614. Keep me informed of meeting updates|1
  19615. dk+blue+circle(1).gif
  19616.         A message will be sent to the owner of this request.
  19617. tmpIncludeComments
  19618. Include comments on the reply message|1
  19619. tmpActionType
  19620.     If you had previously accepted this request, your calendar and busy time will be updated. 
  19621. O=Lotus Notes
  19622. O=Lotus Notes
  19623. PURSAFO
  19624. |.:#U
  19625. O=Lotus Notes
  19626. CN=Lotus Notes Template Development/O=Lotus Notes
  19627. PURSAFO
  19628. v    ?|o
  19629. $Info
  19630. $Script
  19631. $$Script_O
  19632. $$ScriptName
  19633. $$FormScript
  19634. $$$FormScript_O
  19635. NewStartDate
  19636. NewStartTime
  19637. NewEndDate
  19638. NewEndTime
  19639. $Body
  19640. $PublicAccess
  19641. Lotus Product
  19642.  (ListResource)
  19643. ServerName
  19644. ServerName
  19645. PublicNABFileName
  19646. PublicNABFileName
  19647. ViewName
  19648. ViewName
  19649. tmpCategories
  19650. NoCache
  19651. ServerName
  19652. PublicNABFileName
  19653. ViewName
  19654.     1S2S5S6S8S9S10S12S14S
  19655. tmpCategories
  19656. tmpCategories
  19657. tmpCategories
  19658.     0R6S7S8S9S11S13S
  19659. CategoryChoices
  19660. greygirl.GIF
  19661. ListLabel
  19662. ListLabel
  19663. CategoryChoices
  19664. SelectedItems
  19665. tmpCategories
  19666. CategoryChoices
  19667. tmpCategories
  19668. tmpCategories
  19669. tmpCategories
  19670. O=Lotus Notes
  19671. O=Lotus Notes
  19672. PURSAFO
  19673. |.:#U
  19674. O=Lotus Notes
  19675. CN=Lotus Notes Template Development/O=Lotus Notes
  19676. PURSAFO
  19677. +q[QG
  19678. $Info
  19679. $$Script_O
  19680. $$ScriptName
  19681. $Body
  19682. &Arial
  19683. '++LotusScript Development Environment:2:5:(Options):0:74
  19684. Option Public
  19685. Use "Common"
  19686. '++LotusScript Development Environment:2:5:(Forward):0:1
  19687. Declare Type PersonRecordStruct
  19688. Declare Class UIAddressHelper As BaseApplication 
  19689. '++LotusScript Development Environment:2:5:(Declarations):0:10
  19690. '(Globals): 
  19691. Const NOTES% = 1
  19692. Const CCMAIL% = 2
  19693. Const INTERNET% = 5
  19694. Const X400% = 4
  19695. Dim AddressControl As UIAddressHelper
  19696. Type PersonRecordStruct
  19697.     Title As String
  19698.     First  As String
  19699.     Middle As String
  19700.     Last As String
  19701.     Suffix As String
  19702.     Email As String
  19703.     Domain As String
  19704.     NoteID As String
  19705.     EmailType As Integer    
  19706.     ConflictInNAB As Integer
  19707.     ConflictAction As Integer
  19708. End Type
  19709. Class UIAddressHelper As BaseApplication 
  19710.     Private uiws As notesuiworkspace    
  19711.     Private uinoteDialog As notesuidocument
  19712.     Private noteDialog As notesdocument
  19713.     Private noteNewPersonRecord As notesdocument
  19714.     Private PersonalNAB As notesdatabase
  19715.     Private viewPeople As notesview
  19716.     Private nameCurrentName As notesname
  19717.     Private PersonRecord() As PersonRecordStruct    
  19718.     Private AllAddressList As Variant
  19719.     Private AllNoteIDs As Variant
  19720.     Private AllDomainList As Variant
  19721.     Private NABKey As Variant
  19722.     Private nMAX As Integer
  19723.     Private nBottom As Integer
  19724.     Private nCurrentSelection As Integer
  19725.     Private nSkipped As Integer
  19726.     Private nResult As Variant
  19727. Declare Public Sub Init(Source As notesuidocument)
  19728. Declare Public Function WriteRecords() As Integer
  19729. Declare Public Sub Next()
  19730. Declare Public Sub Previous()
  19731. Declare Private Sub BuildMemoryStructure()
  19732. Declare Private Sub LoadDisplay()
  19733. Declare Private Sub WriteUIToStack()
  19734. Declare Private Function GetMailType(FromName As String) As Integer
  19735. Declare Private Function GetAttribute(theString As String, theAttribute As String) As String
  19736. Declare Private Function HasConflict(Key As String) As Integer
  19737. Declare Private Function GetCommonPart(CommonName As String, PART As Integer) As String
  19738. Declare Private Function FindTitleInString(StringName As String) As String
  19739. Declare Private Function FindSuffixInString(StringName As String) As String
  19740. Declare Private Function WriteStackToNAB() As Integer
  19741.     Sub New()
  19742.         Set Me.uiws = New notesuiworkspace
  19743.         Set Me.PersonalNAB = UIAddressHelper..LocalAddressBook
  19744.         Set Me.viewPeople = Me.PersonalNAB.GetView("($Users)")
  19745.     End Sub
  19746.     Sub Init(Source As notesuidocument)
  19747.         Set Me.uinoteDialog = Source
  19748.         Set Me.noteDialog = Source.document
  19749.         AllAddressList = Me.noteDialog.getitemvalue("AllAddresses")
  19750.         AllDomainList = Me.noteDialog.getitemvalue("AllDomains")
  19751.         AllNoteIDs = Me.noteDialog.getitemvalue("AllNoteIDs")        
  19752.         Me.nBOTTOM = 0
  19753.         Me.nMAX = Ubound(AllAddressList)
  19754.         Redim Me.PersonRecord(Me.nMAX)    
  19755.         Me.uinoteDialog.autoreload = False
  19756.         Call noteDialog.ReplaceItemValue("TotalRecords",Me.nMAX+1) 'makes it look like it's not base0
  19757.         Call BuildMemoryStructure()    'build list
  19758.         Call LoadDisplay()
  19759.     End Sub
  19760.     Public Function WriteRecords() As Integer
  19761.         Call WriteUIToStack()
  19762.         Call WriteStackToNAB()    
  19763.         WriteRecords = True
  19764.     End Function
  19765.     Private Function WriteStackToNAB() As Integer
  19766.         For x = 0 To Ubound(Me.PersonRecord)
  19767.             Select Case PersonRecord(x).ConflictAction
  19768.             Case "1"    'skip
  19769.                 Goto Skip
  19770.             Case "2"    'update
  19771.                 Set Me.noteNewPersonRecord = Me.viewPeople.getdocumentbykey(Fulltrim(PersonRecord(x).First & " " & PersonRecord(x).Middle & " " & PersonRecord(x).Last))
  19772.             Case Else    'new                
  19773.                 Set Me.noteNewPersonRecord = Me.PersonalNAB.createdocument()                            
  19774.             End Select
  19775.             With Me.noteNewPersonRecord
  19776.                 Call .replaceitemvalue("Title",PersonRecord(x).Title)
  19777.                 Call .replaceitemvalue("FirstName",PersonRecord(x).First)
  19778.                 Call .replaceitemvalue("MiddleInitial",PersonRecord(x).Middle)
  19779.                 Call .replaceitemvalue("LastName",PersonRecord(x).Last)
  19780.                 Call .replaceitemvalue("Suffix",PersonRecord(x).Suffix)
  19781.                 Call .replaceitemvalue("FullName", Fulltrim(PersonRecord(x).First & " " & PersonRecord(x).Middle & " " & PersonRecord(x).Last))
  19782.                 Call .replaceitemvalue("MailAddress",PersonRecord(x).Email)
  19783.                 Call .replaceitemvalue("MailDomain",PersonRecord(x).Domain)
  19784.                 Call .replaceitemvalue("MailSystem",Cstr(PersonRecord(x).EmailType))
  19785.                 Call .replaceitemvalue("Type","Person")
  19786.                 Call .save(True,True,True)
  19787.                 If Len(noteDialog.IncludeX509(0)) Then
  19788.                     tmpFullName = Trim(PersonRecord(x).First & " " & PersonRecord(x).Middle &  PersonRecord(x).Last)
  19789.                     Me.nResult = Evaluate(|@X509Certificates([AddSignersCerts];NULL;"| & _
  19790.                     Me.PersonalNAB.filename & |";"| & tmpFullName & |";"| & GetServerFileString() & |";"|_
  19791.                     & PersonRecord(x).NoteID & |")|)
  19792.                 End If
  19793.             End With
  19794. Skip:            
  19795.         Next
  19796.     End Function
  19797.     Sub Next()
  19798.         If Me.nCurrentSelection < Me.nMAX Then
  19799.             Call WriteUIToStack()
  19800.             Me.nCurrentSelection = Me.nCurrentSelection + 1            
  19801.             Call LoadDisplay()                
  19802.         Else 
  19803.             Beep
  19804.         End If
  19805.     End Sub    
  19806.     Sub Previous()
  19807.         If Me.nCurrentSelection > 0 Then
  19808.             Call WriteUIToStack()            
  19809.             Me.nCurrentSelection = Me.nCurrentSelection - 1            
  19810.             Call LoadDisplay()                
  19811.         Else 
  19812.             Beep
  19813.         End If
  19814.     End Sub
  19815.     Sub BuildMemoryStructure()
  19816.         For x = 0 To Me.nMAX
  19817.             Set Me.nameCurrentName = New notesname(AllAddressList(x))
  19818.             PersonRecord(x).NoteID = AllNoteIDs(x)
  19819.             PersonRecord(x).Title = FindTitleInString(Me.nameCurrentName.Abbreviated)
  19820.             PersonRecord(x).First = GetCommonPart(Me.nameCurrentName.Common, 1)
  19821.             PersonRecord(x).Middle = GetCommonPart(Me.nameCurrentName.Common, 2)
  19822.             PersonRecord(x).Last = GetCommonPart(Me.nameCurrentName.Common, 3)
  19823.             PersonRecord(x).Suffix = FindSuffixInString(PersonRecord(x).Email)
  19824.             PersonRecord(x).Email = Me.nameCurrentName.Abbreviated
  19825.             PersonRecord(x).Domain = AllDomainList(x)
  19826.             PersonRecord(x).EmailType = GetMailType(AllAddressList(x))
  19827.             PersonRecord(x).ConflictInNAB = HasConflict(Me.nameCurrentName.Common)'PersonRecord(x).Email)
  19828.             If PersonRecord(x).ConflictInNAB Then
  19829.                 PersonRecord(x).ConflictAction = 1
  19830.             Else
  19831.                 PersonRecord(x).ConflictAction = 0
  19832.             End If
  19833.         Next
  19834.     End Sub
  19835.     Sub LoadDisplay()
  19836.         Call noteDialog.ReplaceItemValue("tmpTitle",PersonRecord(Me.nCurrentSelection).Title)
  19837.         Call noteDialog.ReplaceItemValue("tmpFirstName",PersonRecord(Me.nCurrentSelection).First)
  19838.         Call noteDialog.ReplaceItemValue("tmpMiddleName",PersonRecord(Me.nCurrentSelection).Middle)
  19839.         Call noteDialog.ReplaceItemValue("tmpLastName",PersonRecord(Me.nCurrentSelection).Last)
  19840.         Call noteDialog.ReplaceItemValue("tmpSuffix",PersonRecord(Me.nCurrentSelection).Suffix)
  19841.         Call noteDialog.ReplaceItemValue("tmpEmailAddress",PersonRecord(Me.nCurrentSelection).Email)
  19842.         Call noteDialog.ReplaceItemValue("tmpDomain",PersonRecord(Me.nCurrentSelection).Domain)
  19843.         Call noteDialog.ReplaceItemValue("CurrentRecord",(Me.nCurrentSelection + 1))
  19844.         Call noteDialog.ReplaceItemValue("tmpConflictInNAB",Cstr(PersonRecord(Me.nCurrentSelection).ConflictInNAB))
  19845.         If PersonRecord(Me.nCurrentSelection).ConflictInNAB Then
  19846.             Call noteDialog.ReplaceItemValue("ConflictMessage","There is already an entry in your addressbook")
  19847.         Else
  19848.             Call noteDialog.ReplaceItemValue("ConflictMessage","")
  19849.         End If
  19850.         If Me.nSkipped Then
  19851.             Call noteDialog.ReplaceItemValue("Skipped", Chr(9) & |(| & Cstr(Me.nSkipped) & | skipped)|)
  19852.         End If
  19853.         Call noteDialog.ReplaceItemValue("tmpConflictAction",Cstr(PersonRecord(Me.nCurrentSelection).ConflictAction))
  19854.         Call uinoteDialog.Reload()
  19855.         Call uinoteDialog.Refreshhideformulas()
  19856.     End Sub
  19857.     Sub WriteUIToStack()
  19858.         PersonRecord(Me.nCurrentSelection).Title = noteDialog.GetItemValue("tmpTitle")(0)
  19859.         PersonRecord(Me.nCurrentSelection).First = noteDialog.GetItemValue("tmpFirstName")(0)
  19860.         PersonRecord(Me.nCurrentSelection).Middle = noteDialog.GetItemValue("tmpMiddleName")(0)
  19861.         PersonRecord(Me.nCurrentSelection).Last = noteDialog.GetItemValue("tmpLastName")(0)
  19862.         PersonRecord(Me.nCurrentSelection).Suffix = noteDialog.GetItemValue("tmpSuffix")(0)
  19863.         PersonRecord(Me.nCurrentSelection).Email = noteDialog.GetItemValue("tmpEmailAddress")(0)
  19864.         PersonRecord(Me.nCurrentSelection).Domain = noteDialog.GetItemValue("tmpDomain")(0)
  19865.         If Isnumeric(noteDialog.getitemvalue("tmpConflictAction")(0)) Then
  19866.             PersonRecord(Me.nCurrentSelection).ConflictAction = noteDialog.GetItemValue("tmpConflictAction")(0)
  19867.             If noteDialog.getitemvalue("tmpConflictAction")(0) = "2" Then
  19868.                 nSkipped = nSkipped - 1    
  19869.             End If
  19870.         Else
  19871.             PersonRecord(Me.nCurrentSelection).ConflictAction = 0
  19872.         End If            
  19873.     End Sub
  19874.     Function GetCommonPart(CommonName As String, PART As Integer) As String
  19875.         Dim nNumberOfSpaces As Integer        
  19876.         Dim nCounter As Integer
  19877.         Dim nLength As Integer
  19878.         Dim P1,P2,P3 As String
  19879.         Dim strWORKINGSTRING As String
  19880.         strWORKINGSTRING = Trim(CommonName)
  19881.         nLength = Len(strWORKINGSTRING)
  19882.         Do While Instr(strWORKINGSTRING," ")
  19883.             nNumberOfSpaces = nNumberOfSpaces + 1
  19884.             nCounter = Instr(strWORKINGSTRING," ")
  19885.             Select Case nNumberOfSpaces
  19886.             Case 1
  19887.                 P1 = Left(strWORKINGSTRING, (nCounter - 1))
  19888.                 P2 = Right(strWORKINGSTRING, nLength - nCounter)
  19889.             Case 2
  19890.                 P2 = Left(strWORKINGSTRING, (nCounter - 1))
  19891.                 P3 = Right(strWORKINGSTRING, nLength - nCounter)
  19892.             Case 3
  19893.                 P3 =  strWORKINGSTRING
  19894.             End Select
  19895.             strWORKINGSTRING = Right(strWORKINGSTRING, nLength - nCounter)
  19896.             nLength = Len(strWORKINGSTRING)
  19897.         Loop
  19898.         Select Case PART    
  19899.         Case 1
  19900.             GetCommonPart = P1    
  19901.         Case 2
  19902.             Select Case nNumberOfSpaces
  19903.             Case 1
  19904.                 GetCommonPart = ""
  19905.             Case 2
  19906.                 GetCommonPart = P2
  19907.             End Select
  19908.         Case 3
  19909.             Select Case nNumberOfSpaces
  19910.             Case 0
  19911.                 GetCommonPart = P1
  19912.             Case 1
  19913.                 GetCommonPart = P2
  19914.             Case 2,3,4,5,6,7,8
  19915.                 GetCommonPart = P3
  19916.             End Select
  19917.         End Select
  19918.     End Function
  19919.     Private Function GetMailType(FromName As String) As Integer
  19920.                 'wez
  19921.         GetMailType = 0
  19922.         If Instr(FromName, " at ") Then
  19923.             GetMailType = CCMAIL
  19924.             Exit Function
  19925.         End If
  19926.         If FromName Like "*@*[! ].[! ]*" Then
  19927.             GetMailType = INTERNET
  19928.             Exit Function
  19929.         End If
  19930.         If Instr(FromName, "/") Then
  19931.             If  (GetAttribute(FromName, "/P") = "")  And (GetAttribute(FromName, "/A") = "") Then
  19932.                 GetMailType = NOTES
  19933.                 Exit Function    
  19934.             Else
  19935.                 GetMailType = X400
  19936.                 Exit Function    
  19937.             End If
  19938.         Else
  19939.             GetMailType = NOTES
  19940.             Exit Function
  19941.         End If
  19942.         addressType = X400
  19943.         first = GetAttribute(fromItem(0), "/G")
  19944.         last = GetAttribute(fromItem(0), "/S")
  19945. %END REM
  19946.     End Function
  19947.     Private Function GetAttribute(theString As String, theAttribute As String) As String
  19948.         Dim startpos, endpos As Integer
  19949.         startpos = Instr(theString, theAttribute+"=")
  19950.         If (startpos<>0) Then
  19951.             startpos = startpos + Len(theAttribute+"=")
  19952.             endpos = Instr(startpos, theString, "/")
  19953.             If endpos = 0 Then
  19954.                 endpos = Len(theString) + 1
  19955.             End If
  19956.             GetAttribute = Trim(Mid(theString, startpos, endpos - startpos))
  19957.         Else
  19958.             GetAttribute = ""
  19959.         End If
  19960.     End Function
  19961.     Function FindTitleInString(StringName As String) As String
  19962.         If Instr(StringName,"Dr.") Then
  19963.             FindTitleInString = "Dr."
  19964.         Elseif Instr(StringName,"Prof") Then
  19965.             FindTitleInString = "Prof"
  19966.         Elseif Instr(StringName,"Mr.") Then
  19967.             FindTitleInString = "Mr."
  19968.         Elseif Instr(StringName,"Ms.") Then
  19969.             FindTitleInString = "Ms."
  19970.         Elseif Instr(StringName,"Miss.") Then
  19971.             FindTitleInString = "Miss."
  19972.         Elseif Instr(StringName,"Mrs.") Then
  19973.             FindTitleInString = "Mrs."
  19974.         Else
  19975.             FindTitleInString = "-None-"
  19976.         End If
  19977.     End Function
  19978.     Function FindSuffixInString(StringName As String) As String
  19979.         If Instr(StringName,"Jr.") Then
  19980.             FindSuffixInString = "Jr."
  19981.         Elseif Instr(StringName,"Sr.") Then
  19982.             FindSuffixInString = "Sr."
  19983.         Elseif  Instr(StringName,"III") Then
  19984.             FindSuffixInString = "III"
  19985.         Elseif  Instr(StringName,"II") Then
  19986.             FindSuffixInString = "II"
  19987.         Elseif  Instr(StringName,"I") Then
  19988.             FindSuffixInString = "I"
  19989.         Else
  19990.             FindSuffixInString = "-None-"
  19991.         End If
  19992.     End Function        
  19993.     Function HasConflict(key As String)As Integer
  19994.         HasConflict = False
  19995.         Call Me.viewPeople.refresh()
  19996.         Set noteKeyFound = Me.viewPeople.GetDocumentByKey(Trim(Lcase(key)),True)    
  19997.         If Not noteKeyFound Is Nothing Then
  19998.             HasConflict = True
  19999.             nSkipped = nSkipped + 1
  20000.         End If
  20001.     End Function
  20002.     Private Function GetServerFileString() As String
  20003.         Dim databasestring As String
  20004.         Dim serverstring As String
  20005.         Dim l As Integer
  20006.         Dim x As Integer
  20007.         databasestring = session.currentdatabase.Filepath
  20008.         serverstring = session.Currentdatabase.Server
  20009.         Dim LeftPart As String        
  20010.         Dim RightPart As String
  20011.         l = Len(databasestring)
  20012.         Do While Instr(databasestring,"\")
  20013.             x= Instr(databasestring,"\")    
  20014.             LeftPart = Left(databasestring,(x-1))
  20015.             RightPart = Right(databasestring,(l-x))
  20016.             databasestring = LeftPart & "~" & RightPart
  20017.         Loop
  20018.         Do While Instr(databasestring,"~")
  20019.             l = Len(databasestring)
  20020.             x= Instr(databasestring,"~")    
  20021.             LeftPart = Left(databasestring,(x-1))
  20022.             RightPart = Right(databasestring,(l-x))
  20023.             databasestring = LeftPart & "\\" & RightPart
  20024.         Loop
  20025.         If serverstring = "" Then
  20026.             GetServerFileString = databasestring
  20027.         Else
  20028.             GetServerFileString = serverstring & ":" & databasestring
  20029.         End If
  20030.     End Function
  20031. End Class
  20032. Lotus Product
  20033. }h    }x    #1
  20034. }h    }x    #1
  20035. (NameHelper)'++LotusScript Development Environment:2:5:(Options):0:66
  20036. '++LotusScript Development Environment:2:5:(Forward):0:1
  20037. Declare Sub Postopen(Source As Notesuidocument)
  20038. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20039. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  20040. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20041. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20042. Private Sub BindEvents(Byval Objectname_ As String)
  20043.     Static Source As NOTESUIDOCUMENT
  20044.     Set Source = Bind(Objectname_)
  20045.     On Event Postopen From Source Call Postopen
  20046.     On Event Queryopen From Source Call Queryopen
  20047.     On Event Queryclose From Source Call Queryclose
  20048. End Sub
  20049. '++LotusScript Development Environment:2:2:Postopen:1:12
  20050. Sub Postopen(Source As Notesuidocument)
  20051.     Call AddressControl.Init(Source) 
  20052. End Sub
  20053. '++LotusScript Development Environment:2:2:Queryopen:1:12
  20054. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20055.     Set AddressControl = New UIAddressHelper
  20056. End Sub
  20057. '++LotusScript Development Environment:2:2:Queryclose:1:12
  20058. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  20059.     If Not Source.DialogBoxCanceled Then
  20060.         Continue = AddressControl.WriteRecords() 
  20061.     End If
  20062. End Sub
  20063. Lotus Product
  20064. OBJECT
  20065. Joe Test Guy
  20066. AllAddresses
  20067. .,$///:
  20068. tmpConflictInNAB
  20069. tmpConflictInNAB
  20070.     4S13SServerDBName
  20071. AllAddressesj
  20072.     4S5S
  20073. AllAddressesj
  20074.     4S5S
  20075.     Add 
  20076. .,$///:
  20077. TotalRecords
  20078. TotalRecords
  20079.      people to your address book
  20080. Skipped
  20081. Skipped
  20082.     Person # 
  20083. .,$///:
  20084. CurrentRecord
  20085. CurrentRecord
  20086.  @  @@ @` @
  20087. @@ @@@@@`@@
  20088. `@ `@@`@``@
  20089. Previous
  20090. '++LotusScript Development Environment:2:5:(Options):0:66
  20091. '++LotusScript Development Environment:2:5:(Forward):0:1
  20092. Declare Sub Click(Source As Button)
  20093. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20094. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20095. Private Sub BindEvents(Byval Objectname_ As String)
  20096.     Static Source As BUTTON
  20097.     Set Source = Bind(Objectname_)
  20098.     On Event Click From Source Call Click
  20099. End Sub
  20100. '++LotusScript Development Environment:2:2:Click:1:12
  20101. Sub Click(Source As Button)
  20102.     Call AddressControl.Previous()
  20103. End Sub
  20104. Lotus Product
  20105. OBJECT
  20106. HotspotRectangle10
  20107. '++LotusScript Development Environment:2:5:(Options):0:66
  20108. '++LotusScript Development Environment:2:5:(Forward):0:1
  20109. Declare Sub Click(Source As Button)
  20110. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20111. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20112. Private Sub BindEvents(Byval Objectname_ As String)
  20113.     Static Source As BUTTON
  20114.     Set Source = Bind(Objectname_)
  20115.     On Event Click From Source Call Click
  20116. End Sub
  20117. '++LotusScript Development Environment:2:2:Click:1:12
  20118. Sub Click(Source As Button)
  20119.     Call AddressControl.Next()
  20120. End Sub
  20121. Lotus Product
  20122. OBJECT
  20123.     Title:
  20124. tmpTitle
  20125. -None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
  20126.     First name:
  20127. tmpFirstName
  20128.     Middle name:
  20129. tmpMiddleName
  20130.     Last name:
  20131. tmpLastName
  20132.     Suffix:
  20133. tmpSuffix
  20134. -None-|Jr.|Jr.Sr.|Sr.IIIIII
  20135.     Email address:
  20136. tmpEmailAddress
  20137. tmpEmailAddress
  20138.     Email domain:
  20139. tmpDomain
  20140. IncludeX509
  20141. Include X.509 certificates when encountered|1
  20142. ConflictMessage
  20143. ConflictMessage
  20144. ConflictMessage
  20145.     1S2S
  20146. tmpConflictAction
  20147. tmpConflictAction
  20148. Skip|1Update|2
  20149. O=Lotus Notes
  20150. O=Lotus Notes
  20151. PURSAFO
  20152. |.:#U
  20153. O=Lotus Notes
  20154. CN=Lotus Notes Template Development/O=Lotus Notes
  20155. PURSAFO
  20156. $Info
  20157. $Script
  20158. $$Script_O
  20159. $$ScriptName
  20160. $$FormScript
  20161. $$$FormScript_O
  20162. $Body
  20163. *** Message Not Delivered ***
  20164. &Arial
  20165. Lotus Product
  20166.  NonDelivery Report
  20167. Delivery Failure Report
  20168.     Your document:
  20169. Subject
  20170. OriginalSubject
  20171.     was not delivered to
  20172. IntendedRecipient
  20173. IntendedRecipient
  20174.     0S0E
  20175. IntendedRecipient
  20176.     because:
  20177. FailureReason
  20178. FailureReason
  20179. $HideMailHeader
  20180.     0S0E
  20181.     What should you do?
  20182.     You can resend the undeliverable document to the recipients listed above by choosing the Resend button or the Resend command on the Actions menu.  
  20183.     Once you have resent the document you may delete this Delivery Failure Report.
  20184.     If resending the document is not successful you will receive a new failure report
  20185.     Unless you receive other Delivery Failure Reports, the document was successfully delivered to all other recipients.
  20186. Routing path
  20187. RouteServers
  20188. RouteServersServers along route.
  20189.     ________________________
  20190. NamePreference
  20191. AltSendTo
  20192. AltSendTo
  20193. SendTo
  20194.     5S6S
  20195. SendToList of primary people to send memo.z
  20196. EnterSendTo
  20197. NamePreference
  20198. AltCopyTo
  20199. AltCopyTo
  20200. CopyTo
  20201.     5S6S7S
  20202. CopyToList of people to send a copy of the memo.
  20203. EnterCopyTo
  20204.     0S0E
  20205.     Date:
  20206. .,$ //:
  20207. PostedDateY
  20208. PostedDateJ
  20209. DateTime/date memo was created or mailed.
  20210.     Subject:
  20211. Subject
  20212. SubjectSubject of memo.
  20213. Subject_1
  20214. BodyBody of document.
  20215. Categori_zeK
  20216. Close
  20217.     0S0E
  20218. Edit Document
  20219. Resend
  20220. Resend
  20221. $AutoSpell(
  20222.     1S3S
  20223.     0R7S9S
  20224. SaveOptions
  20225.     0R1S2S3S
  20226. _Forward
  20227. _Move to Folder...
  20228. _Remove from Folder...
  20229. Categori_zeK
  20230. Close
  20231.     0S0E
  20232. Edit Document
  20233. Resend
  20234. Resend
  20235. $AutoSpell(
  20236.     1S3S
  20237.     0R7S9S
  20238. SaveOptions
  20239.     0R1S2S3S
  20240. _Forward
  20241. _Move to Folder...
  20242. _Remove from Folder...
  20243. O=Lotus Notes
  20244. O=Lotus Notes
  20245. PURSAFO
  20246. |.:#U
  20247. O=Lotus Notes
  20248. CN=Lotus Notes Template Development/O=Lotus Notes
  20249. PURSAFO
  20250. t    ep+`
  20251. $Info
  20252. $WINDOWTITLE
  20253. $$Script_O
  20254. $$ScriptName
  20255. $Body
  20256. $V5ACTIONS
  20257. $ACTIONS
  20258. tmpNoticeType
  20259. NoticeType
  20260. Broadcast
  20261. (Help)
  20262. MAIL_F_APPOINTMENT_INV_REC_BRD
  20263. (Help)
  20264. MAIL_F_APPOINTMENT_INV_REC
  20265.     3S4S6RTRTTT9S10S12RTTTTT23RTTTTT35RRT'++LotusScript Development Environment:2:5:(Options):0:74
  20266. Option Public  
  20267. Option Explicit
  20268. Use "CSUIDocClass"
  20269. '++LotusScript Development Environment:2:5:(Forward):0:1
  20270. '++LotusScript Development Environment:2:5:(Declarations):0:10
  20271. Dim uinoticedoc As BaseUIEventDocument 
  20272. Lotus Product
  20273. OBJECT
  20274.  Notice'++LotusScript Development Environment:2:5:(Options):0:66
  20275. '++LotusScript Development Environment:2:5:(Forward):0:1
  20276. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20277. Declare Sub Postopen(Source As Notesuidocument)
  20278. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  20279. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  20280. Declare Sub Postsave(Source As Notesuidocument)
  20281. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  20282. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20283. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20284. Private Sub BindEvents(Byval Objectname_ As String)
  20285. Static Source As NOTESUIDOCUMENT
  20286. Set Source = Bind(Objectname_)
  20287. On Event Queryopen From Source Call Queryopen
  20288. On Event Postopen From Source Call Postopen
  20289. On Event Querysave From Source Call Querysave
  20290. On Event Queryclose From Source Call Queryclose
  20291. On Event Postsave From Source Call Postsave
  20292. On Event Querymodechange From Source Call Querymodechange
  20293. End Sub
  20294. '++LotusScript Development Environment:2:2:Queryopen:1:12
  20295. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  20296.     Dim note As NotesDocument
  20297.     Dim bOwner As Integer
  20298.     If (source.InPreviewPane) Then Exit Sub
  20299.     Set note = source.document
  20300.     bOwner = NOTEUserIsCreator(note)
  20301.     Set uinoticedoc = New BaseUIEventDocument(source, 1, bOwner)
  20302.     Call uinoticedoc.QueryOpen(mode, isnewdoc, continue)
  20303. End Sub
  20304. '++LotusScript Development Environment:2:2:Postopen:1:12
  20305. Sub Postopen(Source As Notesuidocument)
  20306.     If (source.InPreviewPane) Then Exit Sub
  20307.     Call uinoticedoc.Postopen()
  20308. End Sub
  20309. '++LotusScript Development Environment:2:2:Querysave:1:12
  20310. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  20311.     If (source.InPreviewPane) Then Exit Sub
  20312.     Call uinoticedoc.QuerySave(continue)
  20313.     Call source.reload
  20314. End Sub
  20315. '++LotusScript Development Environment:2:2:Queryclose:1:12
  20316. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  20317.     Dim note As NotesDocument
  20318.     Dim ws As notesuiworkspace
  20319.     If (source.InPreviewPane) Then Exit Sub
  20320.     If (uinoticedoc.WasSaved) Then
  20321.         Call uinoticedoc.QueryClose(continue)
  20322.         If (Continue) Then
  20323.             Set ws = New notesuiworkspace
  20324.             Call ws.ViewRefresh
  20325.         End If    
  20326.     End If
  20327. End Sub
  20328. '++LotusScript Development Environment:2:2:Postsave:1:12
  20329. Sub Postsave(Source As Notesuidocument)
  20330.     If (source.InPreviewPane) Then Exit Sub
  20331.     Call uinoticedoc.PostSave()
  20332. End Sub
  20333. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  20334. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  20335.     If (source.InPreviewPane) Then continue = False
  20336. End Sub
  20337. Lotus Product
  20338. ^tV0.0P4C
  20339. Kt8-`F#8
  20340. S(C~49
  20341. S(C~T9~
  20342. Kt8,|D}
  20343. Kt8,|D}
  20344. C} !#
  20345. S(C~T9~
  20346. I~T9~
  20347. Kt8,|D}
  20348. d    d    @
  20349. Kd    ,x
  20350. Notice
  20351. .,$,  , :
  20352. Path_Info
  20353. Path_Info
  20354. .,$,  , :
  20355. Query_String
  20356. Query_String
  20357. ChairName
  20358. Chair
  20359.     1S2S
  20360. PrincipalName
  20361. Principal
  20362.     0R1S2S
  20363. xxInvitation
  20364. New meeting request from 
  20365. ChairName
  20366.     0RR1S2S3S4S
  20367. xxReschedule
  20368. ChairName
  20369.  has rescheduled this meeting
  20370.     0R1S2S3S4S
  20371. xxCancellation
  20372. ChairName
  20373.  has cancelled this meeting
  20374.     0R1S2S3S4S
  20375. xxConfirmation
  20376. ChairName
  20377.  has confirmed this meeting
  20378.     0R1S2S3S4S
  20379. xxAccept
  20380. tmpowner
  20381. chair
  20382. PrincipalName
  20383.  has accepted your meeting request"
  20384. You have accepted this request
  20385.     0R1S2S5S6S8S9S10S12S
  20386. xxDecline
  20387. tmpOwner
  20388. chair
  20389. PrincipalName
  20390.  has declined your meeting request"
  20391. You have declined this request
  20392.     0R1S2S5S6S8S9S10S12S
  20393. xxCounter
  20394. tmpOwner
  20395. chair
  20396. PrincipalName
  20397.  has proposed changes to your meeting request
  20398. You have countered this request
  20399.     0R1S2S5S6S8S9S10S12S
  20400. xxDelegate
  20401. tmpOwner
  20402. chair
  20403. PrincipalName
  20404.  has delegated your meeting request
  20405. You have delegated this request
  20406.     0R1S2S5S6S8S9S10S12S
  20407. xxDeleInvite
  20408. PrincipalName
  20409.  has delegated this request to you.
  20410.     0R1S2S3S4S
  20411. xxDeclineCounter
  20412. ChairName
  20413.  has declined your proposed changes
  20414.     0R1S2S3S4S
  20415. xxReserved
  20416. PrincipalName
  20417.  has been reserved"
  20418.     0R1S2S3S4S
  20419. xxUnavail
  20420. PrincipalName
  20421.  is unavailable
  20422.     0R1S2S3S4S
  20423. xxRefreshInfo
  20424. $CSFlags
  20425. PrincipalName
  20426.  is requesting updated information"
  20427. Updated information from 
  20428. PrincipalName
  20429.     0R1S2S8S11S12S13S15RTTT16S17S
  20430. OrgStateh
  20431. NoticeType
  20432. xxReserved
  20433. xxUnavail
  20434. NoticeType
  20435. xxInvitation
  20436. xxReschedule
  20437. xxCancellation
  20438. xxConfirmation
  20439. xxAccept
  20440. xxDecline
  20441. xxCounter
  20442. xxDelegate
  20443. xxDeleInvite
  20444. xxRefreshInfo
  20445. xxDeclineCounter
  20446.     0RR7RT11S15S16S17S20RTRT24S46S47S48STT49S50S51S52S53S54S55S56S57S58S59S60STT62S63S64StmpNoticeType
  20447.     Begins:     
  20448. xxDays
  20449. Thurs
  20450.     1S2S
  20451. DateItem
  20452. NoticeType
  20453. NewStartDate
  20454. StartDateTime
  20455.     0R1S2S5S6S8S10S
  20456. nDayOfWeek
  20457. DateItemT
  20458.     0R1S2S
  20459. xxDays
  20460. nDayOfWeekk
  20461. tmpStartDOW
  20462. .,$ //:
  20463. NoticeType
  20464. NewStartDate
  20465. StartDateTime
  20466.     3S4S6S8S
  20467. tmpStartDateTime
  20468.     Local Time
  20469.     Ends:
  20470. xxDays
  20471. Thurs
  20472.     1S2S
  20473. DateItem
  20474. NoticeType
  20475. NewEndDate
  20476. EndDateTime
  20477.     0R1S2S5S6S8S10S
  20478. nDayOfWeek
  20479. DateItemT
  20480.     0R1S2S
  20481. xxDays
  20482. nDayOfWeekk
  20483. tmpEndDOW
  20484. .,$ //:
  20485. NoticeType
  20486. NewEndDate
  20487. EndDateTime
  20488.     3S4S6S8S
  20489. tmpEndDateTime
  20490.     Local Time
  20491. NoticeType
  20492.     1S2S
  20493.     Original Start:     
  20494. xxDays
  20495. Thurs
  20496.     1S2S
  20497. nDayOfWeek
  20498. StartDateTime
  20499.     0R1S2S
  20500. xxDays
  20501. nDayOfWeekk
  20502. tmpOrigStartDOW
  20503. .,$ //:
  20504. StartDateTime
  20505. tmpOrigStartDateTime
  20506.     Local Time
  20507.     Original End:
  20508. xxDays
  20509. Thurs
  20510.     1S2S
  20511. nDayOfWeek
  20512. EndDateTime
  20513.     0R1S2S
  20514. xxDays
  20515. nDayOfWeekk
  20516. tmpOrigEndDOW
  20517. .,$ //:
  20518. EndDateTime
  20519. tmpOrigEndDateTime
  20520.     Local Time
  20521.     Title:
  20522. Topic
  20523. tmpTopic
  20524.     Location:
  20525. Location
  20526. Location
  20527. -No room information available-
  20528.     7S14S16S2E
  20529. tmpRoom
  20530.     Chair:
  20531. Chair
  20532. Chair
  20533. Principal
  20534. tmpChair
  20535. NoticeType
  20536.     1S2S
  20537.     Delegated To:
  20538. Delegee
  20539. tmpDelegee
  20540. Basics
  20541.     Required:    
  20542. RequiredAttendees
  20543.     0S0E
  20544. tmpRequired
  20545.     Optional:    
  20546. OptionalAttendees
  20547.     0S0E
  20548. tmpOptional
  20549. Participants
  20550. OrgRepeat
  20551.     0S0E
  20552.     Starting:     
  20553. .,$ //:
  20554. RepeatStartDate
  20555. RepeatStartDate
  20556. OriginalStartDate
  20557.     7S9S
  20558. tmpRepeatStart
  20559. OrgRepeat
  20560. RepeatDates
  20561.     4S5S
  20562.     Repeat:     
  20563. RepeatInterval
  20564. tmpRepeatInterval
  20565. 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
  20566. RepeatUnit
  20567. tmpRepeatUnit
  20568. day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
  20569. RepeatAdjust
  20570. tmpRepeatAdjust
  20571. RepeatUnit
  20572. on Sunday|0
  20573. on Monday|1
  20574. on Tuesday|2
  20575. on Wednesday|3
  20576. on Thursday|4
  20577. on Friday|5
  20578. on Saturday|6
  20579. RepeatUnit
  20580. on the 1st Sunday|1.0
  20581. on the 1st Monday|1.1
  20582. on the 1st Tuesday|1.2
  20583. on the 1st Wednesday|1.3
  20584. on the 1st Thursday|1.4
  20585. on the 1st Friday|1.5
  20586. on the 1st Saturday|1.6
  20587. on the 2nd Sunday|2.0
  20588. on the 2nd Monday|2.1
  20589. on the 2nd Tuesday|2.2
  20590. on the 2nd Wednesday|2.3
  20591. on the 2nd Thursday|2.4
  20592. on the 2nd Friday|2.5
  20593. on the 2nd Saturday|2.6
  20594. on the 3rd Sunday|3.0
  20595. on the 3rd Monday|3.1
  20596. on the 3rd Tuesday|3.2
  20597. on the 3rd Wednesday|3.3
  20598. on the 3rd Thursday|3.4
  20599. on the 3rd Friday|3.5
  20600. on the 3rd Saturday|3.6
  20601. on the 4th Sunday|4.0
  20602. on the 4th Monday|4.1
  20603. on the 4th Tuesday|4.2
  20604. on the 4th Wednesday|4.3
  20605. on the 4th Thursday|4.4
  20606. on the 4th Friday|4.5
  20607. on the 4th Saturday|4.6
  20608. on the Last Sunday|5.0
  20609. on the Last Monday|5.1
  20610. on the Last Tuesday|5.2
  20611. on the Last Wednesday|5.3
  20612. on the Last Thursday|5.4
  20613. on the Last Friday|5.5
  20614. on the Last Saturday|5.6
  20615. RepeatUnit
  20616. on the 1st day|1
  20617. on the 2nd day|2
  20618. on the 3rd day|3
  20619. on the 4th day|4
  20620. on the 5th day|5
  20621. on the 6th day|6
  20622. on the 7th day|7
  20623. on the 8th day|8
  20624. on the 9th day|9
  20625. on the 10th day|10
  20626. on the 11th day|11
  20627. on the 12th day|12
  20628. on the 13th day|13
  20629. on the 14th day|14
  20630. on the 15th day|15
  20631. on the 16th day|16
  20632. on the 17th day|17
  20633. on the 18th day|18
  20634. on the 19th day|19
  20635. on the 20th day|20
  20636. on the 21st day|21
  20637. on the 22nd day|22
  20638. on the 23rd day|23
  20639. on the 24th day|24
  20640. on the 25th day|25
  20641. on the 26th day|26
  20642. on the 27th day|27
  20643. on the 28th day|28
  20644. on the 29th day|29
  20645. on the 30th day|30
  20646. on the 31st day|31
  20647.     3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
  20648. RepeatHow
  20649. tmpRepeatHow
  20650. until|Ufor|F
  20651. RepeatFor
  20652. tmpRepeatUnit
  20653.     7S9S
  20654. RepeatHow
  20655. RepeatUntil
  20656. RepeatFor
  20657. RepeatForUnit
  20658. RepeatFor
  20659. RepeatForUnit
  20660. RepeatFor
  20661. RepeatForUnit
  20662. RepeatFor
  20663. month
  20664. RepeatForUnit
  20665. RepeatFor
  20666. RepeatFor
  20667. RepeatForUnit
  20668. RepeatFor
  20669. RepeatForUnit
  20670. weeks
  20671. RepeatFor
  20672. RepeatForUnit
  20673. months
  20674. RepeatFor
  20675. RepeatForUnit
  20676. years
  20677.     0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
  20678. tmpRepeatUntil
  20679. RepeatUnit
  20680. (if the date occurs on a weekend the meeting 
  20681. RepeatWeekends
  20682. occurs anyway
  20683. RepeatWeekends
  20684. is moved to Friday
  20685. RepeatWeekends
  20686. is moved to Monday
  20687. RepeatWeekends
  20688. is moved to Nearest Weekday
  20689. RepeatWeekends
  20690. is deleted
  20691.     3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
  20692. tmpRepeatWeekends
  20693. OrgRepeat
  20694. RepeatDates
  20695.     4S5S
  20696.     Applies to:    
  20697. RescheduleWhich
  20698. tmpAppliesTo
  20699. This instance only|0All instances|1This instance and all previous instances|2This instance and all future instances|3
  20700. Repeat Info
  20701. tmpowner
  20702. chair
  20703. Comments
  20704. Description
  20705.     3S4S
  20706. StatusUpdate
  20707. Comments
  20708.     4S5S
  20709.     Comments
  20710. Comments
  20711. Comments
  20712. Categori_zeK
  20713. _Edit Document
  20714. Send Docu_ment
  20715. _Forward
  20716. _Move To Folder...
  20717. _Remove From FolderK
  20718. Accept'++LotusScript Development Environment:2:5:(Options):0:66
  20719. '++LotusScript Development Environment:2:5:(Forward):0:1
  20720. Declare Sub Click(Source As Button)
  20721. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20722. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20723. Private Sub BindEvents(Byval Objectname_ As String)
  20724. Static Source As BUTTON
  20725. Set Source = Bind(Objectname_)
  20726. On Event Click From Source Call Click
  20727. End Sub
  20728. '++LotusScript Development Environment:2:2:Click:1:12
  20729. Sub Click(Source As Button)
  20730.     Dim uidoc As NotesUIDocument
  20731.     Dim uiobject As Variant
  20732.     Dim nResult As Integer
  20733.     Set uiobject = uinoticedoc.UIObject
  20734.     Set uidoc = uinoticedoc.UIDocument     
  20735.     If (uiobject.OkToAccept) Then
  20736.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  20737.         Call uidoc.save
  20738.         Call uidoc.close
  20739.     End If    
  20740. End Sub
  20741. tmpDonotprocess
  20742. tmpOwner
  20743. Chair
  20744. NoticeType
  20745. Broadcast
  20746.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  20747. DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
  20748. '++LotusScript Development Environment:2:5:(Forward):0:1
  20749. Declare Sub Click(Source As Button)
  20750. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20751. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20752. Private Sub BindEvents(Byval Objectname_ As String)
  20753. Static Source As BUTTON
  20754. Set Source = Bind(Objectname_)
  20755. On Event Click From Source Call Click
  20756. End Sub
  20757. '++LotusScript Development Environment:2:2:Click:1:12
  20758. Sub Click(Source As Button)
  20759.     Dim uidoc As NotesUIDocument
  20760.     Dim uiobject As Variant
  20761.     Dim nResult As Integer
  20762.     Set uiobject = uinoticedoc.UIObject
  20763.     Set uidoc = uinoticedoc.UIDocument     
  20764.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  20765.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  20766.         Call uidoc.save
  20767.         Call uidoc.close
  20768.     End If 
  20769. End Sub
  20770. tmpDonotprocess
  20771. tmpOwner
  20772. Chair
  20773. NoticeType
  20774. Broadcast
  20775.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  20776. Delegate...K'++LotusScript Development Environment:2:5:(Options):0:66
  20777. '++LotusScript Development Environment:2:5:(Forward):0:1
  20778. Declare Sub Click(Source As Button)
  20779. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20780. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20781. Private Sub BindEvents(Byval Objectname_ As String)
  20782. Static Source As BUTTON
  20783. Set Source = Bind(Objectname_)
  20784. On Event Click From Source Call Click
  20785. End Sub
  20786. '++LotusScript Development Environment:2:2:Click:1:12
  20787. Sub Click(Source As Button)
  20788.     Dim uidoc As NotesUIDocument
  20789.     Dim uiobject As Variant
  20790.     Dim nResult As Integer
  20791.     Set uiobject = uinoticedoc.UIObject
  20792.     Set uidoc = uinoticedoc.UIDocument     
  20793.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  20794.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  20795.         Call uidoc.save
  20796.         Call uidoc.close
  20797.     End If 
  20798. End Sub
  20799. tmpDonotprocess
  20800. tmpOwner
  20801. Chair
  20802. NoticeType
  20803. Broadcast
  20804. PreventDelegate
  20805. Propose New Time'++LotusScript Development Environment:2:5:(Options):0:66
  20806. '++LotusScript Development Environment:2:5:(Forward):0:1
  20807. Declare Sub Click(Source As Button)
  20808. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20809. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20810. Private Sub BindEvents(Byval Objectname_ As String)
  20811. Static Source As BUTTON
  20812. Set Source = Bind(Objectname_)
  20813. On Event Click From Source Call Click
  20814. End Sub
  20815. '++LotusScript Development Environment:2:2:Click:1:12
  20816. Sub Click(Source As Button)
  20817.     Dim uidoc As NotesUIDocument
  20818.     Dim uiobject As Variant
  20819.     Dim nResult As Integer
  20820.     Set uiobject = uinoticedoc.UIObject
  20821.     Set uidoc = uinoticedoc.UIDocument     
  20822.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  20823.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  20824.         Call uidoc.save
  20825.         Call uidoc.close
  20826.     End If 
  20827. End Sub
  20828. tmpDonotprocess
  20829. tmpOwner
  20830. Chair
  20831. NoticeType
  20832. Broadcast
  20833. PreventCounter
  20834. Respond...\Accept
  20835. '++LotusScript Development Environment:2:5:(Options):0:66
  20836. '++LotusScript Development Environment:2:5:(Forward):0:1
  20837. Declare Sub Click(Source As Button)
  20838. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20839. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20840. Private Sub BindEvents(Byval Objectname_ As String)
  20841. Static Source As BUTTON
  20842. Set Source = Bind(Objectname_)
  20843. On Event Click From Source Call Click
  20844. End Sub
  20845. '++LotusScript Development Environment:2:2:Click:1:12
  20846. Sub Click(Source As Button)
  20847.     Dim uidoc As NotesUIDocument
  20848.     Dim uiobject As Variant
  20849.     Dim nResult As Integer
  20850.     Set uiobject = uinoticedoc.UIObject
  20851.     Set uidoc = uinoticedoc.UIDocument     
  20852.     If (uiobject.OkToAccept(False)) Then
  20853.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  20854.         Call uidoc.save
  20855.         Call uidoc.close
  20856.     End If    
  20857. End Sub
  20858. tmpDonotprocess
  20859. tmpOwner
  20860. Chair
  20861. NoticeType
  20862. Broadcast
  20863.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  20864. Respond...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  20865. '++LotusScript Development Environment:2:5:(Forward):0:1
  20866. Declare Sub Click(Source As Button)
  20867. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20868. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20869. Private Sub BindEvents(Byval Objectname_ As String)
  20870. Static Source As BUTTON
  20871. Set Source = Bind(Objectname_)
  20872. On Event Click From Source Call Click
  20873. End Sub
  20874. '++LotusScript Development Environment:2:2:Click:1:12
  20875. Sub Click(Source As Button)
  20876.     Dim uidoc As NotesUIDocument
  20877.     Dim uiobject As Variant
  20878.     Dim nResult As Integer
  20879.     Set uiobject = uinoticedoc.UIObject
  20880.     Set uidoc = uinoticedoc.UIDocument     
  20881.     uiobject.SendComments = False
  20882.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  20883.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  20884.         Call uidoc.save
  20885.         Call uidoc.close
  20886.     End If 
  20887. End Sub
  20888. tmpDonotprocess
  20889. tmpOwner
  20890. Chair
  20891. NoticeType
  20892. Broadcast
  20893.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  20894. Respond...\DelegateK'++LotusScript Development Environment:2:5:(Options):0:66
  20895. '++LotusScript Development Environment:2:5:(Forward):0:1
  20896. Declare Sub Click(Source As Button)
  20897. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20898. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20899. Private Sub BindEvents(Byval Objectname_ As String)
  20900. Static Source As BUTTON
  20901. Set Source = Bind(Objectname_)
  20902. On Event Click From Source Call Click
  20903. End Sub
  20904. '++LotusScript Development Environment:2:2:Click:1:12
  20905. Sub Click(Source As Button)
  20906.     Dim uidoc As NotesUIDocument
  20907.     Dim uiobject As Variant
  20908.     Dim nResult As Integer
  20909.     Set uiobject = uinoticedoc.UIObject
  20910.     Set uidoc = uinoticedoc.UIDocument     
  20911.     uiobject.SendComments = False
  20912.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  20913.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  20914.         Call uidoc.save
  20915.         Call uidoc.close
  20916.     End If 
  20917. End Sub
  20918. tmpDonotprocess
  20919. tmpOwner
  20920. Chair
  20921. NoticeType
  20922. Broadcast
  20923. PreventDelegate
  20924.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  20925. Respond...\Propose new timeK'++LotusScript Development Environment:2:5:(Options):0:66
  20926. '++LotusScript Development Environment:2:5:(Forward):0:1
  20927. Declare Sub Click(Source As Button)
  20928. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20929. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20930. Private Sub BindEvents(Byval Objectname_ As String)
  20931. Static Source As BUTTON
  20932. Set Source = Bind(Objectname_)
  20933. On Event Click From Source Call Click
  20934. End Sub
  20935. '++LotusScript Development Environment:2:2:Click:1:12
  20936. Sub Click(Source As Button)
  20937.     Dim uidoc As NotesUIDocument
  20938.     Dim uiobject As Variant
  20939.     Set uiobject = uinoticedoc.UIObject
  20940.     Set uidoc = uinoticedoc.UIDocument     
  20941.     uiobject.SendComments = False
  20942.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  20943.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  20944.         Call uidoc.save
  20945.         Call uidoc.close
  20946.     End If 
  20947. End Sub
  20948. tmpDonotprocess
  20949. tmpOwner
  20950. Chair
  20951. NoticeType
  20952. Broadcast
  20953. PreventCounter
  20954.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  20955. Respond...\Tentatively Accept
  20956. '++LotusScript Development Environment:2:5:(Options):0:66
  20957. '++LotusScript Development Environment:2:5:(Forward):0:1
  20958. Declare Sub Click(Source As Button)
  20959. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20960. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20961. Private Sub BindEvents(Byval Objectname_ As String)
  20962. Static Source As BUTTON
  20963. Set Source = Bind(Objectname_)
  20964. On Event Click From Source Call Click
  20965. End Sub
  20966. '++LotusScript Development Environment:2:2:Click:1:12
  20967. Sub Click(Source As Button)
  20968.     Dim uidoc As NotesUIDocument
  20969.     Dim note As notesdocument
  20970.     Dim uiobject As Variant
  20971.     Set uiobject = uinoticedoc.UIObject
  20972.     Set uidoc = uinoticedoc.UIDocument     
  20973.     uiobject.SendComments = False
  20974.     uiobject.ActionInProgress = ACTION_ACCEPT
  20975.     Set note = uidoc.document
  20976.     Call note.replaceitemvalue("tmpPencilIn","1")
  20977.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  20978.     Call uidoc.save
  20979.     Call uidoc.close
  20980. End Sub
  20981. tmpDonotprocess
  20982. tmpOwner
  20983. Chair
  20984. NoticeType
  20985. Broadcast
  20986.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  20987. Respond with Comments...\AcceptK'++LotusScript Development Environment:2:5:(Options):0:66
  20988. '++LotusScript Development Environment:2:5:(Forward):0:1
  20989. Declare Sub Click(Source As Button)
  20990. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20991. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20992. Private Sub BindEvents(Byval Objectname_ As String)
  20993. Static Source As BUTTON
  20994. Set Source = Bind(Objectname_)
  20995. On Event Click From Source Call Click
  20996. End Sub
  20997. '++LotusScript Development Environment:2:2:Click:1:12
  20998. Sub Click(Source As Button)
  20999.     Dim uidoc As NotesUIDocument
  21000.     Dim uiobject As Variant
  21001.     Dim nResult As Integer
  21002.     Set uiobject = uinoticedoc.UIObject
  21003.     Set uidoc = uinoticedoc.UIDocument     
  21004.     If (uiobject.OkToAccept(True)) Then
  21005.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  21006.         Call uidoc.save
  21007.         Call uidoc.close
  21008.     End If    
  21009. End Sub
  21010. tmpDonotprocess
  21011. tmpOwner
  21012. Chair
  21013. NoticeType
  21014. Broadcast
  21015.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21016. Respond with Comments...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  21017. '++LotusScript Development Environment:2:5:(Forward):0:1
  21018. Declare Sub Click(Source As Button)
  21019. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21020. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21021. Private Sub BindEvents(Byval Objectname_ As String)
  21022. Static Source As BUTTON
  21023. Set Source = Bind(Objectname_)
  21024. On Event Click From Source Call Click
  21025. End Sub
  21026. '++LotusScript Development Environment:2:2:Click:1:12
  21027. Sub Click(Source As Button)
  21028.     Dim uidoc As NotesUIDocument
  21029.     Dim uiobject As Variant
  21030.     Dim nResult As Integer
  21031.     Set uiobject = uinoticedoc.UIObject
  21032.     Set uidoc = uinoticedoc.UIDocument     
  21033.     uiobject.SendComments = True
  21034.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  21035.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21036.         Call uidoc.save
  21037.         Call uidoc.close
  21038.     End If 
  21039. End Sub
  21040. tmpDonotprocess
  21041. tmpOwner
  21042. Chair
  21043. NoticeType
  21044. Broadcast
  21045.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21046. Respond with Comments...\Delegate
  21047. '++LotusScript Development Environment:2:5:(Options):0:66
  21048. '++LotusScript Development Environment:2:5:(Forward):0:1
  21049. Declare Sub Click(Source As Button)
  21050. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21051. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21052. Private Sub BindEvents(Byval Objectname_ As String)
  21053. Static Source As BUTTON
  21054. Set Source = Bind(Objectname_)
  21055. On Event Click From Source Call Click
  21056. End Sub
  21057. '++LotusScript Development Environment:2:2:Click:1:12
  21058. Sub Click(Source As Button)
  21059.     Dim uidoc As NotesUIDocument
  21060.     Dim uiobject As Variant
  21061.     Dim nResult As Integer
  21062.     Set uiobject = uinoticedoc.UIObject
  21063.     Set uidoc = uinoticedoc.UIDocument   
  21064.     uiobject.SendComments = True  
  21065.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  21066.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21067.         Call uidoc.save
  21068.         Call uidoc.close
  21069.     End If 
  21070. End Sub
  21071. tmpDonotprocess
  21072. tmpOwner
  21073. Chair
  21074. NoticeType
  21075. Broadcast
  21076. PreventDelegate
  21077.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  21078. Respond with Comments...\Propose new time
  21079. '++LotusScript Development Environment:2:5:(Options):0:66
  21080. '++LotusScript Development Environment:2:5:(Forward):0:1
  21081. Declare Sub Click(Source As Button)
  21082. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21083. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21084. Private Sub BindEvents(Byval Objectname_ As String)
  21085. Static Source As BUTTON
  21086. Set Source = Bind(Objectname_)
  21087. On Event Click From Source Call Click
  21088. End Sub
  21089. '++LotusScript Development Environment:2:2:Click:1:12
  21090. Sub Click(Source As Button)
  21091.     Dim uidoc As NotesUIDocument
  21092.     Dim uiobject As Variant
  21093.     Set uiobject = uinoticedoc.UIObject
  21094.     Set uidoc = uinoticedoc.UIDocument     
  21095.     uiobject.SendComments = True
  21096.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  21097.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21098.         Call uidoc.save
  21099.         Call uidoc.close
  21100.     End If 
  21101. End Sub
  21102. tmpDonotprocess
  21103. tmpOwner
  21104. Chair
  21105. NoticeType
  21106. Broadcast
  21107. PreventCounter
  21108.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  21109. Respond with Comments...\Tentatively AcceptK'++LotusScript Development Environment:2:5:(Options):0:66
  21110. '++LotusScript Development Environment:2:5:(Forward):0:1
  21111. Declare Sub Click(Source As Button)
  21112. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21113. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21114. Private Sub BindEvents(Byval Objectname_ As String)
  21115. Static Source As BUTTON
  21116. Set Source = Bind(Objectname_)
  21117. On Event Click From Source Call Click
  21118. End Sub
  21119. '++LotusScript Development Environment:2:2:Click:1:12
  21120. Sub Click(Source As Button)
  21121.     Dim uidoc As NotesUIDocument
  21122.     Dim note As notesdocument
  21123.     Dim uiobject As Variant
  21124.     Set uiobject = uinoticedoc.UIObject
  21125.     Set uidoc = uinoticedoc.UIDocument     
  21126.     uiobject.SendComments = True
  21127.     uiobject.ActionInProgress = ACTION_ACCEPT
  21128.     Set note = uidoc.document
  21129.     Call note.replaceitemvalue("tmpPencilIn","1")
  21130.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  21131.     Call uidoc.save
  21132.     Call uidoc.close
  21133. End Sub
  21134. tmpDonotprocess
  21135. tmpOwner
  21136. Chair
  21137. NoticeType
  21138. Broadcast
  21139.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  21140. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  21141. '++LotusScript Development Environment:2:5:(Forward):0:1
  21142. Declare Sub Click(Source As Button)
  21143. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21144. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21145. Private Sub BindEvents(Byval Objectname_ As String)
  21146.     Static Source As BUTTON
  21147.     Set Source = Bind(Objectname_)
  21148.     On Event Click From Source Call Click
  21149. End Sub
  21150. '++LotusScript Development Environment:2:2:Click:1:12
  21151. Sub Click(Source As Button)
  21152.     Dim uievent As UIEventObject
  21153.     Set uievent = uinoticedoc.UIObject
  21154.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)") Then
  21155.         Call uievent.RefreshInfoRequest()
  21156.     End If
  21157. End Sub
  21158. tmpOwner
  21159. chair
  21160.     1S2S
  21161. Check Calendar2
  21162. Check Calendar
  21163.     0S0E
  21164. tmpowner
  21165. chair
  21166.     1S2S
  21167. Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
  21168. '++LotusScript Development Environment:2:5:(Forward):0:1
  21169. Declare Sub Click(Source As Button)
  21170. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21171. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21172. Private Sub BindEvents(Byval Objectname_ As String)
  21173. Static Source As BUTTON
  21174. Set Source = Bind(Objectname_)
  21175. On Event Click From Source Call Click
  21176. End Sub
  21177. '++LotusScript Development Environment:2:2:Click:1:12
  21178. Sub Click(Source As Button)
  21179.     Dim uidoc As NotesUIDocument
  21180.     Dim uiobject As Variant
  21181.     Set uiobject = uinoticedoc.UIObject
  21182.     Set uidoc = uinoticedoc.UIDocument     
  21183.     If (uiobject.OkToPerformAction(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)")) Then
  21184.         Call uidoc.save
  21185.         Call uidoc.close
  21186.     End If 
  21187. End Sub
  21188. tmpowner
  21189. chair
  21190. NoticeType
  21191.     1S2S3S4S5S6S
  21192. Decline CounterK'++LotusScript Development Environment:2:5:(Options):0:66
  21193. '++LotusScript Development Environment:2:5:(Forward):0:1
  21194. Declare Sub Click(Source As Button)
  21195. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21196. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21197. Private Sub BindEvents(Byval Objectname_ As String)
  21198. Static Source As BUTTON
  21199. Set Source = Bind(Objectname_)
  21200. On Event Click From Source Call Click
  21201. End Sub
  21202. '++LotusScript Development Environment:2:2:Click:1:12
  21203. Sub Click(Source As Button)
  21204.     Dim uidoc As NotesUIDocument
  21205.     Dim uiobject As Variant
  21206.     Set uiobject = uinoticedoc.UIObject
  21207.     Set uidoc = uinoticedoc.UIDocument     
  21208.     If (uiobject.OkToPerformAction(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)")) Then
  21209.         Call uidoc.save
  21210.         Call uidoc.close
  21211.     End If 
  21212. End Sub
  21213. tmpowner
  21214. chair
  21215. NoticeType
  21216.     1S2S3S4S5S6S
  21217. Add to CalendarK'++LotusScript Development Environment:2:5:(Options):0:66
  21218. '++LotusScript Development Environment:2:5:(Forward):0:1
  21219. Declare Sub Click(Source As Button)
  21220. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21221. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21222. Private Sub BindEvents(Byval Objectname_ As String)
  21223. Static Source As BUTTON
  21224. Set Source = Bind(Objectname_)
  21225. On Event Click From Source Call Click
  21226. End Sub
  21227. '++LotusScript Development Environment:2:2:Click:1:12
  21228. Sub Click(Source As Button)
  21229.     Dim uidoc As NotesUIDocument
  21230.     Dim uiobject As Variant
  21231.     Dim nResult As Integer
  21232.     Set uiobject = uinoticedoc.UIObject
  21233.     Set uidoc = uinoticedoc.UIDocument     
  21234.     If Not(uidoc.editmode) Then uidoc.editmode = True  
  21235.     uiobject.ActionInProgress = ACTION_ADDTOCALENDAR
  21236.     Call uidoc.save
  21237.     Call uidoc.close
  21238. End Sub
  21239. Broadcast
  21240.     1S2S
  21241. Send Updated Information...K:
  21242. UnderConstruction
  21243.     0S0E
  21244. NoticeType
  21245. $CSFlags
  21246.     1S2S3S4S9S
  21247. Update Information...
  21248. UnderConstruction
  21249.     0S0E
  21250. NoticeType
  21251. $CSFlags
  21252.     1S2S3S4S9S
  21253. Categori_zeK
  21254. _Edit Document
  21255. Send Docu_ment
  21256. _Forward
  21257. _Move To Folder...
  21258. _Remove From FolderK
  21259. Accept'++LotusScript Development Environment:2:5:(Options):0:66
  21260. '++LotusScript Development Environment:2:5:(Forward):0:1
  21261. Declare Sub Click(Source As Button)
  21262. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21263. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21264. Private Sub BindEvents(Byval Objectname_ As String)
  21265. Static Source As BUTTON
  21266. Set Source = Bind(Objectname_)
  21267. On Event Click From Source Call Click
  21268. End Sub
  21269. '++LotusScript Development Environment:2:2:Click:1:12
  21270. Sub Click(Source As Button)
  21271.     Dim uidoc As NotesUIDocument
  21272.     Dim uiobject As Variant
  21273.     Dim nResult As Integer
  21274.     Set uiobject = uinoticedoc.UIObject
  21275.     Set uidoc = uinoticedoc.UIDocument     
  21276.     If (uiobject.OkToAccept) Then
  21277.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  21278.         Call uidoc.save
  21279.         Call uidoc.close
  21280.     End If    
  21281. End Sub
  21282. tmpDonotprocess
  21283. tmpOwner
  21284. Chair
  21285. NoticeType
  21286. Broadcast
  21287.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  21288. DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
  21289. '++LotusScript Development Environment:2:5:(Forward):0:1
  21290. Declare Sub Click(Source As Button)
  21291. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21292. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21293. Private Sub BindEvents(Byval Objectname_ As String)
  21294. Static Source As BUTTON
  21295. Set Source = Bind(Objectname_)
  21296. On Event Click From Source Call Click
  21297. End Sub
  21298. '++LotusScript Development Environment:2:2:Click:1:12
  21299. Sub Click(Source As Button)
  21300.     Dim uidoc As NotesUIDocument
  21301.     Dim uiobject As Variant
  21302.     Dim nResult As Integer
  21303.     Set uiobject = uinoticedoc.UIObject
  21304.     Set uidoc = uinoticedoc.UIDocument     
  21305.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  21306.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21307.         Call uidoc.save
  21308.         Call uidoc.close
  21309.     End If 
  21310. End Sub
  21311. tmpDonotprocess
  21312. tmpOwner
  21313. Chair
  21314. NoticeType
  21315. Broadcast
  21316.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21317. Delegate...K'++LotusScript Development Environment:2:5:(Options):0:66
  21318. '++LotusScript Development Environment:2:5:(Forward):0:1
  21319. Declare Sub Click(Source As Button)
  21320. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21321. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21322. Private Sub BindEvents(Byval Objectname_ As String)
  21323. Static Source As BUTTON
  21324. Set Source = Bind(Objectname_)
  21325. On Event Click From Source Call Click
  21326. End Sub
  21327. '++LotusScript Development Environment:2:2:Click:1:12
  21328. Sub Click(Source As Button)
  21329.     Dim uidoc As NotesUIDocument
  21330.     Dim uiobject As Variant
  21331.     Dim nResult As Integer
  21332.     Set uiobject = uinoticedoc.UIObject
  21333.     Set uidoc = uinoticedoc.UIDocument     
  21334.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  21335.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21336.         Call uidoc.save
  21337.         Call uidoc.close
  21338.     End If 
  21339. End Sub
  21340. tmpDonotprocess
  21341. tmpOwner
  21342. Chair
  21343. NoticeType
  21344. Broadcast
  21345. PreventDelegate
  21346. Propose New Time'++LotusScript Development Environment:2:5:(Options):0:66
  21347. '++LotusScript Development Environment:2:5:(Forward):0:1
  21348. Declare Sub Click(Source As Button)
  21349. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21350. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21351. Private Sub BindEvents(Byval Objectname_ As String)
  21352. Static Source As BUTTON
  21353. Set Source = Bind(Objectname_)
  21354. On Event Click From Source Call Click
  21355. End Sub
  21356. '++LotusScript Development Environment:2:2:Click:1:12
  21357. Sub Click(Source As Button)
  21358.     Dim uidoc As NotesUIDocument
  21359.     Dim uiobject As Variant
  21360.     Dim nResult As Integer
  21361.     Set uiobject = uinoticedoc.UIObject
  21362.     Set uidoc = uinoticedoc.UIDocument     
  21363.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  21364.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21365.         Call uidoc.save
  21366.         Call uidoc.close
  21367.     End If 
  21368. End Sub
  21369. tmpDonotprocess
  21370. tmpOwner
  21371. Chair
  21372. NoticeType
  21373. Broadcast
  21374. PreventCounter
  21375. Respond...\Accept
  21376. '++LotusScript Development Environment:2:5:(Options):0:66
  21377. '++LotusScript Development Environment:2:5:(Forward):0:1
  21378. Declare Sub Click(Source As Button)
  21379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21381. Private Sub BindEvents(Byval Objectname_ As String)
  21382. Static Source As BUTTON
  21383. Set Source = Bind(Objectname_)
  21384. On Event Click From Source Call Click
  21385. End Sub
  21386. '++LotusScript Development Environment:2:2:Click:1:12
  21387. Sub Click(Source As Button)
  21388.     Dim uidoc As NotesUIDocument
  21389.     Dim uiobject As Variant
  21390.     Dim nResult As Integer
  21391.     Set uiobject = uinoticedoc.UIObject
  21392.     Set uidoc = uinoticedoc.UIDocument     
  21393.     If (uiobject.OkToAccept(False)) Then
  21394.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  21395.         Call uidoc.save
  21396.         Call uidoc.close
  21397.     End If    
  21398. End Sub
  21399. tmpDonotprocess
  21400. tmpOwner
  21401. Chair
  21402. NoticeType
  21403. Broadcast
  21404.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21405. Respond...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  21406. '++LotusScript Development Environment:2:5:(Forward):0:1
  21407. Declare Sub Click(Source As Button)
  21408. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21409. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21410. Private Sub BindEvents(Byval Objectname_ As String)
  21411. Static Source As BUTTON
  21412. Set Source = Bind(Objectname_)
  21413. On Event Click From Source Call Click
  21414. End Sub
  21415. '++LotusScript Development Environment:2:2:Click:1:12
  21416. Sub Click(Source As Button)
  21417.     Dim uidoc As NotesUIDocument
  21418.     Dim uiobject As Variant
  21419.     Dim nResult As Integer
  21420.     Set uiobject = uinoticedoc.UIObject
  21421.     Set uidoc = uinoticedoc.UIDocument     
  21422.     uiobject.SendComments = False
  21423.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  21424.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21425.         Call uidoc.save
  21426.         Call uidoc.close
  21427.     End If 
  21428. End Sub
  21429. tmpDonotprocess
  21430. tmpOwner
  21431. Chair
  21432. NoticeType
  21433. Broadcast
  21434.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21435. Respond...\DelegateK'++LotusScript Development Environment:2:5:(Options):0:66
  21436. '++LotusScript Development Environment:2:5:(Forward):0:1
  21437. Declare Sub Click(Source As Button)
  21438. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21439. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21440. Private Sub BindEvents(Byval Objectname_ As String)
  21441. Static Source As BUTTON
  21442. Set Source = Bind(Objectname_)
  21443. On Event Click From Source Call Click
  21444. End Sub
  21445. '++LotusScript Development Environment:2:2:Click:1:12
  21446. Sub Click(Source As Button)
  21447.     Dim uidoc As NotesUIDocument
  21448.     Dim uiobject As Variant
  21449.     Dim nResult As Integer
  21450.     Set uiobject = uinoticedoc.UIObject
  21451.     Set uidoc = uinoticedoc.UIDocument     
  21452.     uiobject.SendComments = False
  21453.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  21454.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21455.         Call uidoc.save
  21456.         Call uidoc.close
  21457.     End If 
  21458. End Sub
  21459. tmpDonotprocess
  21460. tmpOwner
  21461. Chair
  21462. NoticeType
  21463. Broadcast
  21464. PreventDelegate
  21465.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  21466. Respond...\Propose new timeK'++LotusScript Development Environment:2:5:(Options):0:66
  21467. '++LotusScript Development Environment:2:5:(Forward):0:1
  21468. Declare Sub Click(Source As Button)
  21469. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21470. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21471. Private Sub BindEvents(Byval Objectname_ As String)
  21472. Static Source As BUTTON
  21473. Set Source = Bind(Objectname_)
  21474. On Event Click From Source Call Click
  21475. End Sub
  21476. '++LotusScript Development Environment:2:2:Click:1:12
  21477. Sub Click(Source As Button)
  21478.     Dim uidoc As NotesUIDocument
  21479.     Dim uiobject As Variant
  21480.     Set uiobject = uinoticedoc.UIObject
  21481.     Set uidoc = uinoticedoc.UIDocument     
  21482.     uiobject.SendComments = False
  21483.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  21484.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21485.         Call uidoc.save
  21486.         Call uidoc.close
  21487.     End If 
  21488. End Sub
  21489. tmpDonotprocess
  21490. tmpOwner
  21491. Chair
  21492. NoticeType
  21493. Broadcast
  21494. PreventCounter
  21495.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  21496. Respond...\Tentatively Accept
  21497. '++LotusScript Development Environment:2:5:(Options):0:66
  21498. '++LotusScript Development Environment:2:5:(Forward):0:1
  21499. Declare Sub Click(Source As Button)
  21500. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21501. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21502. Private Sub BindEvents(Byval Objectname_ As String)
  21503. Static Source As BUTTON
  21504. Set Source = Bind(Objectname_)
  21505. On Event Click From Source Call Click
  21506. End Sub
  21507. '++LotusScript Development Environment:2:2:Click:1:12
  21508. Sub Click(Source As Button)
  21509.     Dim uidoc As NotesUIDocument
  21510.     Dim note As notesdocument
  21511.     Dim uiobject As Variant
  21512.     Set uiobject = uinoticedoc.UIObject
  21513.     Set uidoc = uinoticedoc.UIDocument     
  21514.     uiobject.SendComments = False
  21515.     uiobject.ActionInProgress = ACTION_ACCEPT
  21516.     Set note = uidoc.document
  21517.     Call note.replaceitemvalue("tmpPencilIn","1")
  21518.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  21519.     Call uidoc.save
  21520.     Call uidoc.close
  21521. End Sub
  21522. tmpDonotprocess
  21523. tmpOwner
  21524. Chair
  21525. NoticeType
  21526. Broadcast
  21527.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  21528. Respond with Comments...\AcceptK'++LotusScript Development Environment:2:5:(Options):0:66
  21529. '++LotusScript Development Environment:2:5:(Forward):0:1
  21530. Declare Sub Click(Source As Button)
  21531. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21532. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21533. Private Sub BindEvents(Byval Objectname_ As String)
  21534. Static Source As BUTTON
  21535. Set Source = Bind(Objectname_)
  21536. On Event Click From Source Call Click
  21537. End Sub
  21538. '++LotusScript Development Environment:2:2:Click:1:12
  21539. Sub Click(Source As Button)
  21540.     Dim uidoc As NotesUIDocument
  21541.     Dim uiobject As Variant
  21542.     Dim nResult As Integer
  21543.     Set uiobject = uinoticedoc.UIObject
  21544.     Set uidoc = uinoticedoc.UIDocument     
  21545.     If (uiobject.OkToAccept(True)) Then
  21546.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  21547.         Call uidoc.save
  21548.         Call uidoc.close
  21549.     End If    
  21550. End Sub
  21551. tmpDonotprocess
  21552. tmpOwner
  21553. Chair
  21554. NoticeType
  21555. Broadcast
  21556.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21557. Respond with Comments...\Decline'++LotusScript Development Environment:2:5:(Options):0:66
  21558. '++LotusScript Development Environment:2:5:(Forward):0:1
  21559. Declare Sub Click(Source As Button)
  21560. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21561. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21562. Private Sub BindEvents(Byval Objectname_ As String)
  21563. Static Source As BUTTON
  21564. Set Source = Bind(Objectname_)
  21565. On Event Click From Source Call Click
  21566. End Sub
  21567. '++LotusScript Development Environment:2:2:Click:1:12
  21568. Sub Click(Source As Button)
  21569.     Dim uidoc As NotesUIDocument
  21570.     Dim uiobject As Variant
  21571.     Dim nResult As Integer
  21572.     Set uiobject = uinoticedoc.UIObject
  21573.     Set uidoc = uinoticedoc.UIDocument     
  21574.     uiobject.SendComments = True
  21575.     If (uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)")) Then
  21576.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21577.         Call uidoc.save
  21578.         Call uidoc.close
  21579.     End If 
  21580. End Sub
  21581. tmpDonotprocess
  21582. tmpOwner
  21583. Chair
  21584. NoticeType
  21585. Broadcast
  21586.     1S2S3S4S5S6S7S8S9S10S13S14S15S16S
  21587. Respond with Comments...\Delegate
  21588. '++LotusScript Development Environment:2:5:(Options):0:66
  21589. '++LotusScript Development Environment:2:5:(Forward):0:1
  21590. Declare Sub Click(Source As Button)
  21591. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21592. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21593. Private Sub BindEvents(Byval Objectname_ As String)
  21594. Static Source As BUTTON
  21595. Set Source = Bind(Objectname_)
  21596. On Event Click From Source Call Click
  21597. End Sub
  21598. '++LotusScript Development Environment:2:2:Click:1:12
  21599. Sub Click(Source As Button)
  21600.     Dim uidoc As NotesUIDocument
  21601.     Dim uiobject As Variant
  21602.     Dim nResult As Integer
  21603.     Set uiobject = uinoticedoc.UIObject
  21604.     Set uidoc = uinoticedoc.UIDocument   
  21605.     uiobject.SendComments = True  
  21606.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)")) Then
  21607.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21608.         Call uidoc.save
  21609.         Call uidoc.close
  21610.     End If 
  21611. End Sub
  21612. tmpDonotprocess
  21613. tmpOwner
  21614. Chair
  21615. NoticeType
  21616. Broadcast
  21617. PreventDelegate
  21618.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S
  21619. Respond with Comments...\Propose new time
  21620. '++LotusScript Development Environment:2:5:(Options):0:66
  21621. '++LotusScript Development Environment:2:5:(Forward):0:1
  21622. Declare Sub Click(Source As Button)
  21623. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21624. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21625. Private Sub BindEvents(Byval Objectname_ As String)
  21626. Static Source As BUTTON
  21627. Set Source = Bind(Objectname_)
  21628. On Event Click From Source Call Click
  21629. End Sub
  21630. '++LotusScript Development Environment:2:2:Click:1:12
  21631. Sub Click(Source As Button)
  21632.     Dim uidoc As NotesUIDocument
  21633.     Dim uiobject As Variant
  21634.     Set uiobject = uinoticedoc.UIObject
  21635.     Set uidoc = uinoticedoc.UIDocument     
  21636.     uiobject.SendComments = True
  21637.     If (uiobject.OkToPerformAction(Null, DELE_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  21638.         If Not(uidoc.editmode) Then uidoc.editmode = True  
  21639.         Call uidoc.save
  21640.         Call uidoc.close
  21641.     End If 
  21642. End Sub
  21643. tmpDonotprocess
  21644. tmpOwner
  21645. Chair
  21646. NoticeType
  21647. Broadcast
  21648. PreventCounter
  21649.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S
  21650. Respond with Comments...\Tentatively AcceptK'++LotusScript Development Environment:2:5:(Options):0:66
  21651. '++LotusScript Development Environment:2:5:(Forward):0:1
  21652. Declare Sub Click(Source As Button)
  21653. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21654. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21655. Private Sub BindEvents(Byval Objectname_ As String)
  21656. Static Source As BUTTON
  21657. Set Source = Bind(Objectname_)
  21658. On Event Click From Source Call Click
  21659. End Sub
  21660. '++LotusScript Development Environment:2:2:Click:1:12
  21661. Sub Click(Source As Button)
  21662.     Dim uidoc As NotesUIDocument
  21663.     Dim note As notesdocument
  21664.     Dim uiobject As Variant
  21665.     Set uiobject = uinoticedoc.UIObject
  21666.     Set uidoc = uinoticedoc.UIDocument     
  21667.     uiobject.SendComments = True
  21668.     uiobject.ActionInProgress = ACTION_ACCEPT
  21669.     Set note = uidoc.document
  21670.     Call note.replaceitemvalue("tmpPencilIn","1")
  21671.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  21672.     Call uidoc.save
  21673.     Call uidoc.close
  21674. End Sub
  21675. tmpDonotprocess
  21676. tmpOwner
  21677. Chair
  21678. NoticeType
  21679. Broadcast
  21680.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  21681. Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
  21682. '++LotusScript Development Environment:2:5:(Forward):0:1
  21683. Declare Sub Click(Source As Button)
  21684. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21685. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21686. Private Sub BindEvents(Byval Objectname_ As String)
  21687.     Static Source As BUTTON
  21688.     Set Source = Bind(Objectname_)
  21689.     On Event Click From Source Call Click
  21690. End Sub
  21691. '++LotusScript Development Environment:2:2:Click:1:12
  21692. Sub Click(Source As Button)
  21693.     Dim uievent As UIEventObject
  21694.     Set uievent = uinoticedoc.UIObject
  21695.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)") Then
  21696.         Call uievent.RefreshInfoRequest()
  21697.     End If
  21698. End Sub
  21699. tmpOwner
  21700. chair
  21701.     1S2S
  21702. Check Calendar2
  21703. Check Calendar
  21704.     0S0E
  21705. tmpowner
  21706. chair
  21707.     1S2S
  21708. Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
  21709. '++LotusScript Development Environment:2:5:(Forward):0:1
  21710. Declare Sub Click(Source As Button)
  21711. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21712. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21713. Private Sub BindEvents(Byval Objectname_ As String)
  21714. Static Source As BUTTON
  21715. Set Source = Bind(Objectname_)
  21716. On Event Click From Source Call Click
  21717. End Sub
  21718. '++LotusScript Development Environment:2:2:Click:1:12
  21719. Sub Click(Source As Button)
  21720.     Dim uidoc As NotesUIDocument
  21721.     Dim uiobject As Variant
  21722.     Set uiobject = uinoticedoc.UIObject
  21723.     Set uidoc = uinoticedoc.UIDocument     
  21724.     If (uiobject.OkToPerformAction(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)")) Then
  21725.         Call uidoc.save
  21726.         Call uidoc.close
  21727.     End If 
  21728. End Sub
  21729. tmpowner
  21730. chair
  21731. NoticeType
  21732.     1S2S3S4S5S6S
  21733. Decline CounterK'++LotusScript Development Environment:2:5:(Options):0:66
  21734. '++LotusScript Development Environment:2:5:(Forward):0:1
  21735. Declare Sub Click(Source As Button)
  21736. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21737. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21738. Private Sub BindEvents(Byval Objectname_ As String)
  21739. Static Source As BUTTON
  21740. Set Source = Bind(Objectname_)
  21741. On Event Click From Source Call Click
  21742. End Sub
  21743. '++LotusScript Development Environment:2:2:Click:1:12
  21744. Sub Click(Source As Button)
  21745.     Dim uidoc As NotesUIDocument
  21746.     Dim uiobject As Variant
  21747.     Set uiobject = uinoticedoc.UIObject
  21748.     Set uidoc = uinoticedoc.UIDocument     
  21749.     If (uiobject.OkToPerformAction(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)")) Then
  21750.         Call uidoc.save
  21751.         Call uidoc.close
  21752.     End If 
  21753. End Sub
  21754. tmpowner
  21755. chair
  21756. NoticeType
  21757.     1S2S3S4S5S6S
  21758. Add to CalendarK'++LotusScript Development Environment:2:5:(Options):0:66
  21759. '++LotusScript Development Environment:2:5:(Forward):0:1
  21760. Declare Sub Click(Source As Button)
  21761. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21762. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21763. Private Sub BindEvents(Byval Objectname_ As String)
  21764. Static Source As BUTTON
  21765. Set Source = Bind(Objectname_)
  21766. On Event Click From Source Call Click
  21767. End Sub
  21768. '++LotusScript Development Environment:2:2:Click:1:12
  21769. Sub Click(Source As Button)
  21770.     Dim uidoc As NotesUIDocument
  21771.     Dim uiobject As Variant
  21772.     Dim nResult As Integer
  21773.     Set uiobject = uinoticedoc.UIObject
  21774.     Set uidoc = uinoticedoc.UIDocument     
  21775.     If Not(uidoc.editmode) Then uidoc.editmode = True  
  21776.     uiobject.ActionInProgress = ACTION_ADDTOCALENDAR
  21777.     Call uidoc.save
  21778.     Call uidoc.close
  21779. End Sub
  21780. Broadcast
  21781.     1S2S
  21782. Send Updated Information...K:
  21783. UnderConstruction
  21784.     0S0E
  21785. NoticeType
  21786. $CSFlags
  21787.     1S2S3S4S9S
  21788. Update Information...
  21789. UnderConstruction
  21790.     0S0E
  21791. NoticeType
  21792. $CSFlags
  21793.     1S2S3S4S9S
  21794. Lotus Product
  21795. Lotus Product
  21796. OBJECT
  21797. Lotus Product
  21798. Lotus Product
  21799. OBJECT
  21800. Lotus Product
  21801. OBJECT
  21802. Lotus Product
  21803. OBJECT
  21804. Lotus Product
  21805. OBJECT
  21806. Lotus Product
  21807. Lotus Product
  21808. OBJECT
  21809. Lotus Product
  21810. OV0.0
  21811. #O8 UD 
  21812. T0!^l
  21813. Lotus Product
  21814. Lotus Product
  21815. OBJECT
  21816. Lotus Product
  21817. OV0.0
  21818. #O8 UD 
  21819. T0!^l
  21820. Lotus Product
  21821. OV0.0
  21822. #O8 UD 
  21823. T0!^l
  21824. Lotus Product
  21825. OBJECT
  21826. Lotus Product
  21827. OV0.0
  21828. #O8 UD 
  21829. T0!^l
  21830. Lotus Product
  21831. OBJECT
  21832. Lotus Product
  21833. OV0.0
  21834. #O8 UD 
  21835. T0!^l
  21836. O=Lotus Notes
  21837. O=Lotus Notes
  21838. PURSAFO
  21839. |.:#U
  21840. O=Lotus Notes
  21841. CN=Lotus Notes Template Development/O=Lotus Notes
  21842. PURSAFO
  21843. NewStartDate
  21844. NewStartTime
  21845. NewEndDate
  21846. NewEndTime
  21847. $HTMLDocumentStyles
  21848. $Info
  21849. $WINDOWTITLE
  21850. $AppHelpFormula
  21851. $Script
  21852. $$Script_O
  21853. $$ScriptName
  21854. $$FormScript
  21855. $$$FormScript_O
  21856. $Body
  21857. $V5ACTIONS
  21858. $ACTIONS
  21859. $SCRIPTOBJ_6
  21860. $SCRIPTOBJ_7
  21861. $SCRIPTOBJ_8
  21862. $SCRIPTOBJ_9
  21863. $SCRIPTOBJ_10
  21864. $SCRIPTOBJ_11
  21865. $SCRIPTOBJ_12
  21866. $SCRIPTOBJ_13
  21867. $SCRIPTOBJ_14
  21868. $SCRIPTOBJ_15
  21869. $SCRIPTOBJ_16
  21870. $SCRIPTOBJ_17
  21871. $SCRIPTOBJ_18
  21872. $SCRIPTOBJ_19
  21873. $SCRIPTOBJ_20
  21874. $SCRIPTOBJ_22
  21875. $SCRIPTOBJ_23
  21876. $SCRIPTOBJ_24
  21877. $PublicAccess
  21878. *** Message Successfully Received ***
  21879. (Help)
  21880. MAIL_F_RETURN-RECEIPT
  21881.     0S0E
  21882.  Return Receipt
  21883. Return Receipt
  21884.         Your document:
  21885. Subject
  21886. Subject
  21887.         was received by:
  21888. IntendedRecipient
  21889. IntendedRecipient
  21890.         at:
  21891. DeliveryDate
  21892. Categori_zeK
  21893. Close
  21894.     0S0E
  21895. _Edit Document
  21896. Send Docu_ment
  21897. _Forward
  21898. _Move to Folder...
  21899. _Remove from Folder...
  21900. Categori_zeK
  21901. Close
  21902.     0S0E
  21903. _Edit Document
  21904. Send Docu_ment
  21905. _Forward
  21906. _Move to Folder...
  21907. _Remove from Folder...
  21908. O=Lotus Notes
  21909. O=Lotus Notes
  21910. PURSAFO
  21911. |.:#U
  21912. O=Lotus Notes
  21913. CN=Lotus Notes Template Development/O=Lotus Notes
  21914. PURSAFO
  21915. $Info
  21916. $WINDOWTITLE
  21917. $AppHelpFormula
  21918. $$ScriptName
  21919. DeliveryDate
  21920. $Body
  21921. $V5ACTIONS
  21922. $ACTIONS
  21923. *** Message Not Delivered ***
  21924. (Help)
  21925. MAIL_F_RETURNNONRECEIPT
  21926.     0S0E
  21927.  ReturnNonReceipt
  21928. Return Receipt Failure
  21929.     Your document:
  21930. Subject
  21931. OriginalSubject
  21932.     was not received by:
  21933. IntendedRecipient
  21934. IntendedRecipient
  21935.     because:
  21936. FailureReason
  21937. FailureReason
  21938. Categori_zeK
  21939. Close
  21940.     0S0E
  21941. Edit Document
  21942. Resend
  21943. Resend>
  21944.     7S12S
  21945. _Forward
  21946. _Move to Folder...
  21947. _Remove from Folder...
  21948. Categori_zeK
  21949. Close
  21950.     0S0E
  21951. Edit Document
  21952. Resend
  21953. Resend>
  21954.     7S12S
  21955. _Forward
  21956. _Move to Folder...
  21957. _Remove from Folder...
  21958. O=Lotus Notes
  21959. O=Lotus Notes
  21960. PURSAFO
  21961. |.:#U
  21962. O=Lotus Notes
  21963. CN=Lotus Notes Template Development/O=Lotus Notes
  21964. PURSAFO
  21965. $Info
  21966. $WINDOWTITLE
  21967. $AppHelpFormula
  21968. $$ScriptName
  21969. $Body
  21970. $V5ACTIONS
  21971. $ACTIONS
  21972. Times New Roman
  21973. (Help)
  21974. MAIL_F_OUTOFOFFICEPROFILE
  21975.     0S0E
  21976. '++LotusScript Development Environment:2:5:(Options):0:74
  21977. Option Public
  21978. Use "Common"
  21979. '++LotusScript Development Environment:2:5:(Forward):0:1
  21980. Declare Class OutOfOfficeControl
  21981. '++LotusScript Development Environment:2:5:(Declarations):0:10
  21982. Dim OfficeControl As OutOfOfficeControl
  21983. Class OutOfOfficeControl
  21984.     Private session As notessession    
  21985.     Private uiws As notesuiworkspace    
  21986.     Private dbCurrentDatabase As notesdatabase
  21987.     Public agentOutOfOffice As notesagent
  21988.     Private NoteUIDoc As notesuidocument
  21989.     Private dtFirstDayOut As notesdatetime
  21990.     Private dtFirstDayBack As notesdatetime
  21991.     Private dtNow As notesdatetime
  21992.     Private namHomeServer As notesname
  21993.     Private StringTable As MailToolsStringTable
  21994.     Private nSuccess As Integer
  21995.     Private nResult As Integer    
  21996. Declare    Public Function ToggleEnableDisable()
  21997. Declare    Public Function ValidateSettings() As Integer
  21998. Declare Public Function BookBusyTime()
  21999. Declare Public Function PostOpen()
  22000.     Sub New()
  22001.         Set session = New notessession
  22002.         Set uiws = New notesuiworkspace
  22003.         Set noteUIDoc = uiws.currentdocument
  22004.         Set dbCurrentDatabase = session.currentdatabase
  22005.         Set agentOutOfOffice = dbCurrentDatabase.GetAgent("OutOfOffice")
  22006.         Set StringTable = New MailToolsStringTable
  22007.     End Sub
  22008.     Function PostOpen()
  22009.         If agentOutOfOffice.IsEnabled Then
  22010.             Call noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
  22011.             Call noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","1")
  22012.         Else
  22013.             Call noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
  22014.             Call noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","0")
  22015.         End If
  22016.         Call noteUIDoc.reload()
  22017.     End Function
  22018.     Public Function ToggleEnableDisable()
  22019.         If agentOutOfOffice.IsEnabled Then'
  22020.             nResult = Messagebox(StringTable.GetString(TOOL_STRING + 47,Null) & Chr(13) & _
  22021.             StringTable.GetString(TOOL_STRING + 48,Null),MB_YESNO,StringTable.GetString(TOOL_STRING + 46,Null))        
  22022.             If nResult = IDYES Then
  22023.                 agentOutOfOffice.IsEnabled = False
  22024.                 Call agentOutOfOffice.save()
  22025.                 If agentOutOfOffice.IsEnabled Then
  22026.                     nResult = Messagebox(StringTable.GetString(TOOL_STRING + 44,Null) _
  22027.                     & Chr(13) & StringTable.GetString(TOOL_STRING + 45,Null), _
  22028.                     MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))        
  22029.                 Else
  22030.                     Call NoteUIDoc.document.replaceitemvalue("CurrentStatus","1")
  22031.                     Call NoteUIDoc.document.save(True,True,True)
  22032.                     nResult = Messagebox(StringTable.GetString(TOOL_STRING + 49,Null), _
  22033.                     MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))        
  22034.                     
  22035.                     'call look for calendar entry and ask if I should disable busy time only if date is less than return date?
  22036.                     
  22037.                 End If
  22038.             End If
  22039.             Exit Function
  22040.         Else
  22041.             If ValidateSettings() Then
  22042.                 If dbCurrentDatabase.Currentaccesslevel < 5 Then    
  22043.                     nSuccess = Messagebox(StringTable.GetString(TOOL_STRING + 50,Null), _
  22044.                     MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))
  22045.                     Exit Function
  22046.                 End If
  22047.                 Dim varHomeServer As Variant
  22048.                 varHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)
  22049.                 Set namHomeServer = New notesname(varHomeServer(0))
  22050.                 If varHomeServer(0) = "" Then
  22051.                     nSuccess = Messagebox(StringTable.GetString(TOOL_STRING + 51,Null) & Chr(13) & _
  22052.                     StringTable.GetString(TOOL_STRING + 52,Null), _
  22053.                     MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))
  22054.                     Exit Function
  22055.                 End If
  22056.                 agentOutOfOffice.Servername = Cstr(varHomeServer(0))        
  22057.                 agentOutOfOffice.IsEnabled = True            
  22058.                 Call agentOutOfOffice.save
  22059.                 If agentOutOfOffice.IsEnabled Then
  22060.                     Call BookBusyTime()
  22061.                     Call NoteUIDoc.document.replaceitemvalue("DialogStatus","1")
  22062.                     Call NoteUIDoc.document.replaceitemvalue("CurrentStatus","0")
  22063.                     Call NoteUIDoc.document.save(True,True,True)
  22064.                     nResult = Messagebox(StringTable.GetString(TOOL_STRING + 53,Null)  & _
  22065.                     namHomeServer.Abbreviated & Chr(13) & StringTable.GetString(TOOL_STRING + 54,Null) & _
  22066.                     noteUIDoc.FieldGetText("FirstDayOut") & StringTable.GetString(TOOL_STRING + 55,noteUIDoc.FieldGetText("FirstDayBack")),MB_OK, _
  22067.                     StringTable.GetString(TOOL_STRING + 46,Null))
  22068.                 Else
  22069.                     nResult = Messagebox(StringTable.GetString(TOOL_STRING + 56,Null) & Chr(13) & _
  22070.                     StringTable.GetString(TOOL_STRING + 50,Null) ,MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))
  22071.                 End If
  22072.             End If
  22073.         End If            
  22074.     End Function
  22075.     Public Function ValidateSettings() As Integer
  22076.         ValidateSettings = False
  22077.         If (noteUIDoc.FieldGetText("FirstDayOut") = "") Or _
  22078.         (noteUIDoc.FieldGetText("FirstDayBack") = "") Then
  22079.             nSuccess = Messagebox(StringTable.GetString(TOOL_STRING + 57,Null), _
  22080.             MB_OK, StringTable.GetString(TOOL_STRING + 46,Null))
  22081.             Exit Function
  22082.         End If
  22083.         Set dtFirstDayOut = New notesdatetime(noteUIDoc.FieldGetText("FirstDayOut"))
  22084.         Set dtFirstDayBack = New notesdatetime(noteUIDoc.FieldGetText("FirstDayBack"))
  22085.         Set dtNow = New notesdatetime(Now())
  22086.         If dtFirstDayBack.Timedifferencedouble(dtNow)  < 0 Then
  22087.             nSuccess = Messagebox( StringTable.GetString(TOOL_STRING + 58,Null), _
  22088.             MB_OK, StringTable.GetString(TOOL_STRING + 46,Null))
  22089.             Exit Function    
  22090.         End If
  22091.         If dtFirstDayBack.Timedifferencedouble(dtFirstDayOut)  < 0 Then
  22092.             nSuccess = Messagebox(StringTable.GetString(TOOL_STRING + 59,Null), _
  22093.             MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))
  22094.             Exit Function    
  22095.         End If
  22096.         If dtFirstDayBack.Timedifferencedouble(dtFirstDayOut)  = 0 Then
  22097.             nSuccess = Messagebox(StringTable.GetString(TOOL_STRING + 60,Null), _
  22098.             MB_OK,StringTable.GetString(TOOL_STRING + 46,Null))
  22099.             Exit Function    
  22100.         End If
  22101.         ValidateSettings = True
  22102.     End Function
  22103.     Public Function BookBusyTime()
  22104.         If noteUIDoc.document.BookBusyTime(0) = "1" Then
  22105.             Dim noteCalendarEntry As NotesDocument
  22106.             Set noteCalendarEntry = dbCurrentDatabase.CreateDocument()
  22107.             With noteCalendarEntry        
  22108.                 Call .ReplaceItemValue("Form","Appointment")
  22109.                 Call .ReplaceItemValue("StartDate", noteUIDoc.document.FirstDayOut)
  22110.                 Call .ReplaceItemValue("StartDateTime", noteUIDoc.document.FirstDayOut)
  22111.                 Call .ReplaceItemValue("EndDate", noteUIDoc.document.FirstDayBack)
  22112.                 Call .ReplaceItemValue("EndDateTime", noteUIDoc.document.FirstDayBack)
  22113.                 Call .ReplaceItemValue("$BusyName", session.username)
  22114.                 Call .ReplaceItemValue("$BusyPriority", "1")
  22115.                 Call .ReplaceItemValue("BookFreeTime", "1")                
  22116.                 Call .ReplaceItemValue("$PublicAccess","1")
  22117.                 Call .ReplaceItemValue("AppointmentType","2")
  22118.                 Call .ReplaceItemValue("ApptUNID",.UniversialID)
  22119.                 Call .ReplaceItemValue("ExcludeFromView","D")
  22120.                 Call .ReplaceItemValue("Subject","Out Of Office")
  22121.                 Call .ReplaceItemValue("_ViewIcon",9)
  22122.                 Call .ReplaceItemValue("CreatedByAgent","1")
  22123.                 Call .Save(True,True,True)
  22124.             End With
  22125.         End If
  22126.     End Function
  22127. End Class    
  22128. @    @    `    `    
  22129. Lotus Product*
  22130. V0.0A
  22131.     0    0    
  22132. ~p    K(
  22133.     },    #1
  22134. }4    K<
  22135.     0S0E
  22136.  OutOfOfficeProfile'++LotusScript Development Environment:2:5:(Options):0:66
  22137. '++LotusScript Development Environment:2:5:(Forward):0:1
  22138. Declare Sub Postopen(Source As Notesuidocument)
  22139. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  22140. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  22141. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  22142. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22143. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22144. Private Sub BindEvents(Byval Objectname_ As String)
  22145.     Static Source As NOTESUIDOCUMENT
  22146.     Set Source = Bind(Objectname_)
  22147.     On Event Postopen From Source Call Postopen
  22148.     On Event Queryopen From Source Call Queryopen
  22149.     On Event Queryclose From Source Call Queryclose
  22150.     On Event Querysave From Source Call Querysave
  22151. End Sub
  22152. '++LotusScript Development Environment:2:2:Postopen:1:12
  22153. Sub Postopen(Source As Notesuidocument)
  22154.     Set OfficeControl = New OutOfOfficeControl
  22155.     Call OfficeControl.PostOpen()
  22156. End Sub
  22157. '++LotusScript Development Environment:2:2:Queryopen:1:12
  22158. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  22159. End Sub
  22160. '++LotusScript Development Environment:2:2:Queryclose:1:12
  22161. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  22162. End Sub
  22163. '++LotusScript Development Environment:2:2:Querysave:1:12
  22164. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  22165.     strTitle="Lotus Notes"
  22166.     strNotEnabled="Are you sure you wish to exit without enabling your Out of Office agent?"
  22167.     If Not Source.document.SaveOptions(0) = "0" Then
  22168.         If OfficeControl.ValidateSettings() Then
  22169.             If (Source.document.CurrentStatus(0) ="1") And Not (Source.document.AgentEnableOnOpen(0) = "1") Then
  22170.                 nResult = Messagebox(strNotEnabled,MB_YESNO,"Out Of Office")        
  22171.                 If nResult = IDYES Then
  22172.                     Call Source.document.replaceitemvalue("DialogStatus","1")                
  22173.                     Continue = True        
  22174.                 Else
  22175.                     Continue = False            
  22176.                 End If
  22177.             End If
  22178.         Else
  22179.             Continue = False        
  22180.         End If
  22181.     Else
  22182.         Call Source.document.replaceitemvalue("DialogStatus","0")                    
  22183.     End If    
  22184. End Sub
  22185. Lotus Product
  22186. OBJECT
  22187. Lotus Product
  22188. OBJECT
  22189. '++LotusScript Development Environment:2:5:(Options):0:66
  22190. '++LotusScript Development Environment:2:5:(Forward):0:1
  22191. Declare Sub Exiting(Source As Field)
  22192. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22193. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22194. Private Sub BindEvents(Byval Objectname_ As String)
  22195.      Static Source As FIELD
  22196.      Set Source = Bind(Objectname_)
  22197.      On Event Exiting From Source Call Exiting
  22198. End Sub
  22199. '++LotusScript Development Environment:2:2:Exiting:1:12
  22200. Sub Exiting(Source As Field)
  22201.  ' can't rely on this since exit event won't fire if we directly exit or save profile
  22202.  '    Call ExpandGroupNames ( "SpecialPeople" )
  22203.      
  22204. End Sub
  22205. Lotus Product
  22206. '++LotusScript Development Environment:2:5:(Options):0:66
  22207. '++LotusScript Development Environment:2:5:(Forward):0:1
  22208. Declare Sub Exiting(Source As Field)
  22209. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22210. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22211. Private Sub BindEvents(Byval Objectname_ As String)
  22212.      Static Source As FIELD
  22213.      Set Source = Bind(Objectname_)
  22214.      On Event Exiting From Source Call Exiting
  22215. End Sub
  22216. '++LotusScript Development Environment:2:2:Exiting:1:12
  22217. Sub Exiting(Source As Field)
  22218.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  22219. '     Call ExpandGroupNames ( "IgnoreFrom" )
  22220.      
  22221. End Sub
  22222. Lotus Product
  22223. OBJECT
  22224. '++LotusScript Development Environment:2:5:(Options):0:66
  22225. '++LotusScript Development Environment:2:5:(Forward):0:1
  22226. Declare Sub Exiting(Source As Field)
  22227. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22228. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22229. Private Sub BindEvents(Byval Objectname_ As String)
  22230.      Static Source As FIELD
  22231.      Set Source = Bind(Objectname_)
  22232.      On Event Exiting From Source Call Exiting
  22233. End Sub
  22234. '++LotusScript Development Environment:2:2:Exiting:1:12
  22235. Sub Exiting(Source As Field)
  22236.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  22237. '     Call ExpandGroupNames ( "IgnoreFrom" )
  22238.      
  22239. End Sub
  22240. Lotus Product
  22241. OBJECT
  22242. Action
  22243. Profile
  22244.     1S2S
  22245.     Always Hidden: 
  22246. .,$///:
  22247. AgentEnableOnOpen
  22248. AgentEnableOnOpen
  22249. Notified
  22250. Notifiedz
  22251. Notified
  22252. Princ
  22253. CalendarProfile
  22254. Owner
  22255.     1S2S6S
  22256. Princ
  22257. Princ
  22258.     0R3S4S6S8S
  22259. Senderz
  22260. Sender
  22261. System
  22262. Fromz
  22263. Please do not delete - Out of Office Profile
  22264. Subject
  22265. Subject
  22266. ExcludeFromView
  22267. ExcludeFromView
  22268. _ViewIcon
  22269. _ViewIcon
  22270.     0S0E
  22271. DialogStatus
  22272. .,$,  , :
  22273. Path_Info
  22274. Path_Info
  22275. .,$,  , :
  22276. Query_String
  22277. Query_String
  22278. SaveOptions
  22279. Out of Office
  22280.     Status: 
  22281. CurrentStatus
  22282. CurrentStatus
  22283.     3S4S6S8S
  22284. CurrentStatus
  22285. Enabled | 0Disabled | 1z
  22286. CurrentStatus
  22287.     0S0E
  22288.     I will be out of the office:
  22289.     Leaving:
  22290.     0S0E
  22291. .,$ //:
  22292. pcDate
  22293. FirstDayOut
  22294.     1S2S
  22295. TodayInt,
  22296.     0R1S2S
  22297. ConNext
  22298. pcDate
  22299. nextG
  22300.     0R1S2S8S11S13S
  22301. AdjustAmount
  22302. pcDate
  22303. pcDate
  22304. pcDate
  22305. pcDate
  22306. pcDate
  22307. pcDate
  22308. pcDate
  22309.     0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
  22310. AdjustAmount
  22311. pcDateW
  22312. AdjustAmount
  22313. ConNext
  22314. TodayInt#
  22315.     0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayOut
  22316. FirstDayOut
  22317.     Returning:
  22318. .,$ //:
  22319. FirstDayBack
  22320. pcDate
  22321. FirstDayBacka
  22322.     1S2S
  22323. TodayInt,
  22324.     0R1S2S
  22325. ConNext
  22326. pcDate
  22327. nextG
  22328.     0R1S2S8S11S13S
  22329. AdjustAmount
  22330. pcDate
  22331. pcDate
  22332. pcDate
  22333. pcDate
  22334. pcDate
  22335. pcDate
  22336. pcDate
  22337.     0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
  22338. AdjustAmount
  22339. pcDateW
  22340. AdjustAmount
  22341. ConNext
  22342. TodayInt#
  22343.     0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBackz
  22344. FirstDayBack
  22345. BookBusyTime
  22346. Book Busytime for these dates|1
  22347. BookBusyTime
  22348.     0S0E
  22349. Dates
  22350.     Standard Out of Office message for most people/groups:
  22351.     Whomever
  22352.     Subject:
  22353.  is out of the office."
  22354.     1S2S
  22355. GeneralSubjectz
  22356. GeneralSubject
  22357. FirstDayOut
  22358. FirstDayBack
  22359. I will be out of the office starting  
  22360. FirstDayOut
  22361.  and will not return until 
  22362. FirstDayBackK
  22363.     3S4S5S6S7S8S10S12S13S14S21S22S23S24S31S32S
  22364. DaysOut
  22365. DaysOut
  22366. I will respond to your message when I return.
  22367. GeneralMessagez
  22368. GeneralMessage
  22369. Basic Message
  22370.     Special Out of Office message for special people/groups:
  22371. SpecialPeople
  22372. SpecialPeople
  22373. SpecialPeople
  22374.     Subject:
  22375.  is out of the office."
  22376.     1S2S
  22377. SpecialSubjectz
  22378. SpecialSubject
  22379. FirstDayOut
  22380. FirstDayBack
  22381. I will be out of the office starting 
  22382. FirstDayOut
  22383.  and will be returning on "
  22384. FirstDayBackV
  22385.     3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
  22386. DaysOut_1
  22387. DaysOut_1
  22388. SpecialMessage
  22389. SpecialMessagez
  22390. SpecialMessage
  22391. Special Message
  22392. .,$///:
  22393. ExcludeInternetEmail
  22394. Don't send notices to Internet Addresses|1
  22395.     Do not send an Out of Office notification to the following people/groups
  22396. IgnoreFrom
  22397. IgnoreFromz
  22398. IgnoreFrom
  22399.     Do not send an Out of Office notification in response to documents addressed to the following group(s).
  22400. IgnoreSend
  22401. IgnoreSendz
  22402. IgnoreSend
  22403.     Do not send an Out of Office notification If the subject contains this exact phrase(s). (note: case sensitive)
  22404. IgnoreFrom
  22405. IgnoreSubjectPhrase
  22406. IgnoreFrom_1
  22407. Exclusions
  22408. SaveOptions
  22409.     OK    
  22410. SaveOptions
  22411. Cancel
  22412. '++LotusScript Development Environment:2:5:(Options):0:66
  22413. '++LotusScript Development Environment:2:5:(Forward):0:1
  22414. Declare Sub Click(Source As Button)
  22415. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22416. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22417. Private Sub BindEvents(Byval Objectname_ As String)
  22418.     Static Source As BUTTON
  22419.     Set Source = Bind(Objectname_)
  22420.     On Event Click From Source Call Click
  22421. End Sub
  22422. '++LotusScript Development Environment:2:2:Click:1:12
  22423. Sub Click(Source As Button)
  22424.     Call OfficeControl.ToggleEnableDisable()
  22425. End Sub
  22426. Lotus Product
  22427. New Button
  22428. Need a newer version of Notes to execute this button.
  22429.     0S0E
  22430. Enable/Disable
  22431. FirstDayOut can be entered as a date or a day of the week.
  22432. It is then converted to a text string containing a date, which 
  22433.     0R1S
  22434. @TextToTime does not always recognize as Text so it is 
  22435.     0R1S
  22436. converted to Text then to Time
  22437.     0R1S
  22438. DateValue
  22439. FirstDayOut
  22440.     0R1S2S
  22441. DateValue
  22442. DateValue
  22443. DateValue
  22444.     0R7S12S17S19S21S
  22445. dateFirstDayOut
  22446. dateFirstDayOut
  22447. FirstDayBack can be entered as a date or a day of the week.
  22448. It is then converted to a text string containing a date, which 
  22449.     0R1S
  22450. @TextToTime does not always recognize as Text so it is 
  22451.     0R1S
  22452. converted to Text then to Time
  22453.     0R1S
  22454.  MUST SET THE TIME COMPONENT TO 12:00:00AM in order for
  22455.     0R1S
  22456. an calendar entry to be properly added..
  22457.     0R1S
  22458. DateValue
  22459. FirstDayBackV
  22460.     0R1S2S
  22461. DateValue
  22462. DateValue
  22463. DateValue
  22464.     0R7S12S17S19S21S
  22465. dateFirstDayBackz
  22466. dateFirstDayBack
  22467. Categori_zeK
  22468. _Edit Document
  22469. Send Docu_ment
  22470. _Forward
  22471. _Move To Folder...
  22472. _Remove From FolderK
  22473.     7S12S
  22474. CancelB
  22475. SaveOptions
  22476. Enable agent
  22477. CurrentStatus
  22478. CurrentStatus
  22479.     1S3S
  22480. Notified
  22481.     0RR1S
  22482. FirstDayOut
  22483. FirstDayOut
  22484.     0R1S
  22485. FirstDayBack
  22486. FirstDayBack
  22487.     0R1S
  22488. title
  22489. Lotus Notes Out of Office
  22490.     0R2S
  22491. You must indicate when you are leaving and when you will be back.
  22492.     0R2S
  22493. Your return date must be after today's date.
  22494.     0R2S
  22495. Your return date cannot be earlier than the leave date.
  22496.     0R2S
  22497. Please ask a Manager or Designer of this database to enable the agent for you.
  22498.     0R2S
  22499. The Out of Office agent was not enabled.
  22500.     0R2S
  22501. The Out of Office agent is now enabled.  When people send you mail between 
  22502. FirstDayOut
  22503.  and 
  22504. FirstDayBackV
  22505.  it will inform them of your absence.
  22506.     0R2S3S4S8S9S10S11S15S16S
  22507. Please ask a Manager or Designer of this database to disable the agent for you.
  22508.     0R2S
  22509. Your Out of Office agent is still enabled.
  22510.     0R2S
  22511. msg10
  22512. 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.
  22513.     0R2S
  22514. msg11
  22515. Your Out of Office has been disabled.
  22516.     0R2S
  22517. CurrentStatus
  22518. FirstDayOut
  22519. FirstDayBack
  22520. Validation Error
  22521. You must indicate when you are leaving and when you will be back.
  22522. DateFirstDayBack-
  22523. Validation Error
  22524. Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
  22525. DateFirstDayBack-
  22526. msg10
  22527. OutOfOffice
  22528. title
  22529. msgX"
  22530. title
  22531. OutOfOffice
  22532. title
  22533. msgX"
  22534. title
  22535. msg11
  22536.     0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
  22537. Categori_zeK
  22538. _Edit Document
  22539. Send Docu_ment
  22540. _Forward
  22541. _Move To Folder...
  22542. _Remove From FolderK
  22543.     7S12S
  22544. CancelB
  22545. SaveOptions
  22546. Enable agent
  22547. CurrentStatus
  22548. CurrentStatus
  22549.     1S3S
  22550. Notified
  22551.     0RR1S
  22552. FirstDayOut
  22553. FirstDayOut
  22554.     0R1S
  22555. FirstDayBack
  22556. FirstDayBack
  22557.     0R1S
  22558. title
  22559. Lotus Notes Out of Office
  22560.     0R2S
  22561. You must indicate when you are leaving and when you will be back.
  22562.     0R2S
  22563. Your return date must be after today's date.
  22564.     0R2S
  22565. Your return date cannot be earlier than the leave date.
  22566.     0R2S
  22567. Please ask a Manager or Designer of this database to enable the agent for you.
  22568.     0R2S
  22569. The Out of Office agent was not enabled.
  22570.     0R2S
  22571. The Out of Office agent is now enabled.  When people send you mail between 
  22572. FirstDayOut
  22573.  and 
  22574. FirstDayBackV
  22575.  it will inform them of your absence.
  22576.     0R2S3S4S8S9S10S11S15S16S
  22577. Please ask a Manager or Designer of this database to disable the agent for you.
  22578.     0R2S
  22579. Your Out of Office agent is still enabled.
  22580.     0R2S
  22581. msg10
  22582. 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.
  22583.     0R2S
  22584. msg11
  22585. Your Out of Office has been disabled.
  22586.     0R2S
  22587. CurrentStatus
  22588. FirstDayOut
  22589. FirstDayBack
  22590. Validation Error
  22591. You must indicate when you are leaving and when you will be back.
  22592. DateFirstDayBack-
  22593. Validation Error
  22594. Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
  22595. DateFirstDayBack-
  22596. msg10
  22597. OutOfOffice
  22598. title
  22599. msgX"
  22600. title
  22601. OutOfOffice
  22602. title
  22603. msgX"
  22604. title
  22605. msg11
  22606.     0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
  22607. O=Lotus Notes
  22608. O=Lotus Notes
  22609. PURSAFO
  22610. |.:#U
  22611. O=Lotus Notes
  22612. CN=Lotus Notes Template Development/O=Lotus Notes
  22613. PURSAFO
  22614. $Info
  22615. $AppHelpFormula
  22616. $Script
  22617. $$Script_O
  22618. $$ScriptName
  22619. $$FormScript
  22620. $$$FormScript_O
  22621. $$GeneralMessage
  22622. $GeneralMessage_O
  22623. $$SpecialPeople
  22624. $SpecialPeople_O
  22625. $$IgnoreFrom
  22626. $IgnoreFrom_O
  22627. $$IgnoreSubjectPhrase
  22628. $IgnoreSubjectPhrase_O
  22629. _ViewIcon
  22630. FirstDayOut
  22631. FirstDayBack
  22632. dateFirstDayOut
  22633. dateFirstDayBack
  22634. $Body
  22635. $V5ACTIONS
  22636. $ACTIONS
  22637. '++LotusScript Development Environment:2:5:(Options):0:74
  22638. Option Public
  22639. Use "Common"
  22640. '++LotusScript Development Environment:2:5:(Forward):0:1
  22641. '++LotusScript Development Environment:2:5:(Declarations):0:10
  22642. Dim uidoc As notesuidocument
  22643. Dim note As notesdocument
  22644. Lotus Product
  22645. OBJECT
  22646. (OwnerDlg)'++LotusScript Development Environment:2:5:(Options):0:66
  22647. '++LotusScript Development Environment:2:5:(Forward):0:1
  22648. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  22649. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22650. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22651. Private Sub BindEvents(Byval Objectname_ As String)
  22652. Static Source As NOTESUIDOCUMENT
  22653. Set Source = Bind(Objectname_)
  22654. On Event Queryopen From Source Call Queryopen
  22655. End Sub
  22656. '++LotusScript Development Environment:2:2:Queryopen:1:12
  22657. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  22658.     Set uidoc = source
  22659.     Set note = source.document
  22660. End Sub
  22661. Lotus Product
  22662. OBJECT
  22663. tmpActionType
  22664.  @  @@ @` @
  22665. @@ @@@@@`@@
  22666. `@ `@@`@``@
  22667.         When would you like this meeting to be held?
  22668. .,$ //:
  22669. NewStartDAte
  22670. NewDate
  22671. NewStartDate
  22672. StartDate
  22673. .,$ //:
  22674. NewStartTIme
  22675. NewTimeRangeV
  22676. NewStartTime
  22677. StartTime
  22678. .,$ //:
  22679. NewEndDate
  22680. NewDate
  22681. NewEndDate
  22682. EndDate
  22683. .,$ //:
  22684. NewEndTime
  22685. NewTimeRangeV
  22686. NewEndTime
  22687. EndTime
  22688. '++LotusScript Development Environment:2:5:(Options):0:66
  22689. '++LotusScript Development Environment:2:5:(Forward):0:1
  22690. Declare Sub Click(Source As Button)
  22691. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22692. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22693. Private Sub BindEvents(Byval Objectname_ As String)
  22694. Static Source As BUTTON
  22695. Set Source = Bind(Objectname_)
  22696. On Event Click From Source Call Click
  22697. End Sub
  22698. '++LotusScript Development Environment:2:2:Click:1:12
  22699. Sub Click(Source As Button)
  22700.     Dim dt As notesdatetime
  22701.     Dim vRequired(1) As String
  22702.     vRequired(0) = "Chair"
  22703.     vRequired(1) = "RequiredAttendees"
  22704.     Call TIMEGetComponents("StartDate", "StartTime", note, dt)
  22705.     Call note.replaceitemvalue("StartDateTime", dt)
  22706.     Call TIMEGetComponents("EndDate", "EndTime", note, dt)
  22707.     Call note.replaceitemvalue("EndDateTime", dt)
  22708.     If (uidoc.FindFreeTimeDialogEx(vRequired, "OptionalAttendees","Room","","RequiredResources","","","StartDateTime", "EndDateTime")) Then
  22709.         ' The user might have changed the times
  22710.         Call TIMEGetFromitem( "StartDateTime", note, dt)
  22711.         Call note.replaceitemvalue("StartDate", dt)
  22712.         Call note.replaceitemvalue("StartTime", dt)
  22713.         Call TIMEGetFromitem( "EndDateTime", note, dt)
  22714.         Call note.replaceitemvalue("EndDate", dt)
  22715.         Call note.replaceitemvalue("EndTime", dt)
  22716.     End If
  22717. End Sub
  22718. Lotus Product
  22719. New Button
  22720. Need a newer version of Notes to execute this button.
  22721.     0S0E
  22722.     Check Schedules...
  22723. tmpActionType
  22724. GIF89a
  22725.         Notes can clean up all documents related to this meeting.
  22726. tmpDeleteEntry
  22727. Delete all responses|1
  22728. dk+blue+circle(1).gif
  22729.         A notice will be sent to all participants informing them the meeting has been cancelled. 
  22730. tmpActionType
  22731.     1S2S
  22732. dk+blue+circle(1).gif
  22733.         A notice will be sent to all participants informing them the meeting has been rescheduled. 
  22734. tmpActionType
  22735. dk+blue+circle(1).gif
  22736.         A notice will be sent to all participants informing them the meeting has been confirmed. 
  22737. tmpActionType
  22738.     1S2S
  22739. dk+blue+circle(1).gif
  22740.     A notice will be sent to the participant informing them the time proposed has been declined.
  22741. tmpIncludeComments
  22742. Include additional comments on notice|1
  22743. tmpActionType
  22744.     Any room/resource reservations for this meeting will also be removed.
  22745.     Any room/resource reservations for this meeting will also be rescheduled.
  22746. O=Lotus Notes
  22747. O=Lotus Notes
  22748. PURSAFO
  22749. |.:#U
  22750. O=Lotus Notes
  22751. CN=Lotus Notes Template Development/O=Lotus Notes
  22752. PURSAFO
  22753. QG=r]E
  22754. tmpNewStartDate
  22755. tmpNewStartTime
  22756. tmpNewEndDate
  22757. tmpNewEndTime
  22758. $Info
  22759. $Script
  22760. $$Script_O
  22761. $$ScriptName
  22762. $$FormScript
  22763. $$$FormScript_O
  22764. StartDate
  22765. StartTime
  22766. EndDate
  22767. EndTime
  22768. $Body
  22769. $PublicAccess
  22770. (Help)
  22771. MAIL_F_PARTICIPANTTABLE_MEET
  22772.     0S0E
  22773. '++LotusScript Development Environment:2:5:(Options):0:74
  22774. Option Public 
  22775. Option Explicit
  22776. Use "CSEventClass"
  22777. '++LotusScript Development Environment:2:5:(Forward):0:1
  22778. '++LotusScript Development Environment:2:5:(Declarations):0:10
  22779. Dim table As NotesCSParticipantTable
  22780. Lotus ProductLP
  22781. S+(SI
  22782. ^$U+(SJ
  22783. ^4U+(SJ
  22784. l#K4U-
  22785. m#K4U-
  22786.  ParticipantTable'++LotusScript Development Environment:2:5:(Options):0:66
  22787. '++LotusScript Development Environment:2:5:(Forward):0:1
  22788. Declare Sub Postopen(Source As Notesuidocument)
  22789. Declare Sub Postrecalc(Source As Notesuidocument)
  22790. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  22791. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22792. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22793. Private Sub BindEvents(Byval Objectname_ As String)
  22794. Static Source As NOTESUIDOCUMENT
  22795. Set Source = Bind(Objectname_)
  22796. On Event Postopen From Source Call Postopen
  22797. On Event Postrecalc From Source Call Postrecalc
  22798. On Event Queryclose From Source Call Queryclose
  22799. End Sub
  22800. '++LotusScript Development Environment:2:2:Postopen:1:12
  22801. Sub Postopen(Source As Notesuidocument)
  22802.     Dim namePerson As NotesName    
  22803.     Dim nrole As Integer
  22804.     Dim nstatus As Integer
  22805.     Dim vPeople As Variant
  22806.     Dim vRole As Variant
  22807.     Dim vStatus As Variant
  22808.     Set note = source.document
  22809.     Set uidoc = source
  22810.     source.autoreload = False
  22811.     vPeople = note.GetItemValue("tmporiginalpeople")
  22812.     vRole = note.GetItemValue("tmporiginalrole")
  22813.     vStatus = note.GetItemValue("tmporiginalstatus")
  22814.     Set table = New NotesCSParticipantTable(2)
  22815.     ' build the sorted table
  22816.     For i = 0 To Ubound(vPeople)
  22817.         Set namePerson = New notesname(vPeople(i))
  22818.         nrole = Cint(vRole(i))
  22819.         nstatus = Cint(vStatus(i))
  22820.         Call table.AddInstance(namePerson.Common, nrole, nstatus)
  22821.     Next
  22822. End Sub
  22823. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  22824. Sub Postrecalc(Source As Notesuidocument)
  22825.     Dim stype As String
  22826.     Dim i As Integer
  22827.     Dim Instance As NotesCSParticipantInstance
  22828.     Dim itemPeople As Notesitem
  22829.     Dim itemRole As notesitem
  22830.     Dim itemStatus As NotesItem
  22831.     Dim sformtype As String
  22832.     Dim note As NotesDocument
  22833.     Set note = source.document
  22834.     If Not(note.HasItem("tmpReDisplay")) Then Exit Sub
  22835.     stype = note.GetItemValue("tmpSortType")(0)
  22836.     Call table.Resort(Cint(stype))
  22837.     Call CSTableAppendStatus(table, note, False)
  22838.     Call note.removeitem("tmpReDisplay")
  22839.     Call source.reload
  22840. End Sub
  22841. '++LotusScript Development Environment:2:2:Queryclose:1:12
  22842. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  22843.     If Not(table Is Nothing) Then Delete table
  22844. End Sub
  22845. Lotus ProductLP
  22846. S+(SI
  22847. ^$U+(SJ
  22848. ^4U+(SJ
  22849. l#K4U-
  22850. m#K4U-
  22851. tmpOriginalPeople
  22852. tmpOriginalRole
  22853. tmpOriginalStatus
  22854. tmpSortType
  22855. tmpSortType
  22856.     0S1S2S
  22857. tmpSortType
  22858.     1S2S3S
  22859. tmpReDisplay
  22860.     0R1S2S3S
  22861.  @  @@ @` @
  22862. @@ @@@@@`@@
  22863. `@ `@@`@``@
  22864. tmpSortType
  22865.     0S2E1S2S
  22866.  @  @@ @` @
  22867. @@ @@@@@`@@
  22868. `@ `@@`@``@
  22869. tmpSortType
  22870.     0S1S2S
  22871. tmpSortType
  22872.     1S2S3S
  22873. tmpReDisplay
  22874.     0R1S2S3S
  22875.  @  @@ @` @
  22876. @@ @@@@@`@@
  22877. `@ `@@`@``@
  22878. tmpSortType
  22879.     0S1S2S
  22880.  @  @@ @` @
  22881. @@ @@@@@`@@
  22882. `@ `@@`@``@
  22883. tmpSortType
  22884.     0S2E1S2S
  22885. tmpSortType
  22886.     1S2S3S
  22887. tmpReDisplay
  22888.     0R1S2S3S
  22889.  @  @@ @` @
  22890. @@ @@@@@`@@
  22891. `@ `@@`@``@
  22892. tmpSortType
  22893.     0S2E1S2S
  22894.  @  @@ @` @
  22895. @@ @@@@@`@@
  22896. `@ `@@`@``@
  22897. tmpShow
  22898.     1S2S
  22899. tmpParticipantList
  22900. tmpParticipantList
  22901. tmpRoleList
  22902. tmpRoleList
  22903. tmpStatusList
  22904. tmpStatusList
  22905. tmpDelegationHistory^
  22906.     4S5S
  22907. GIF89a
  22908.         Delegation History:
  22909. tmpDelegationHistory
  22910. tmpDelegationHistory
  22911.     0S0E
  22912.     Done
  22913. O=Lotus Notes
  22914. O=Lotus Notes
  22915. PURSAFO
  22916. |.:#U
  22917. O=Lotus Notes
  22918. CN=Lotus Notes Template Development/O=Lotus Notes
  22919. PURSAFO
  22920. $HTMLDocumentStyles
  22921. $Info
  22922. $AppHelpFormula
  22923. $Script
  22924. $$Script_O
  22925. $$ScriptName
  22926. $$FormScript
  22927. $$$FormScript_O
  22928. $Body
  22929. $PublicAccess
  22930. VersionOpt|
  22931.     6S7S9S14S
  22932. $VersionOpt
  22933.     0R1S2S3S
  22934. SavedOnce
  22935.     0R1S2S3S
  22936. PostedDate(
  22937.     0R1S2S3S
  22938. DeliveredDate
  22939.     0R1S2S3S
  22940. $AutoEditMode
  22941.     0R1S2S3S
  22942. MailSaveOptions
  22943.     0R1S2S3S
  22944. VersionOpt
  22945.     0R4S
  22946. HeaderRegion
  22947. BodyRegion
  22948. Personal Stationery
  22949. Subject
  22950. Subject
  22951. Subject
  22952.     4S6S12S13S14S15S17S21S23S25S26S28S
  22953. (Help)
  22954. MAIL_F_PERSONAL-STATIONERY
  22955.     0S0E
  22956. &Arial
  22957. '++LotusScript Development Environment:2:5:(Options):0:74
  22958. Option Public
  22959. Option Explicit
  22960. 'Use "UIMailDocumentClasses"
  22961. Use "CoreEmailClasses"
  22962. '++LotusScript Development Environment:2:5:(Forward):0:1
  22963. '++LotusScript Development Environment:2:5:(Declarations):0:10
  22964. Dim uimemodoc As Variant
  22965. Dim cMemoObject As Variant
  22966. Lotus Product~
  22967. V0.01
  22968.  Personal Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  22969. '++LotusScript Development Environment:2:5:(Forward):0:1
  22970. Declare Sub Postopen(Source As Notesuidocument)
  22971. Declare Sub Postmodechange(Source As Notesuidocument)
  22972. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  22973. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  22974. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  22975. Declare Sub Postsave(Source As Notesuidocument)
  22976. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  22977. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22978. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22979. Private Sub BindEvents(Byval Objectname_ As String)
  22980.     Static Source As NOTESUIDOCUMENT
  22981.     Set Source = Bind(Objectname_)
  22982.     On Event Postopen From Source Call Postopen
  22983.     On Event Postmodechange From Source Call Postmodechange
  22984.     On Event Querysave From Source Call Querysave
  22985.     On Event Queryclose From Source Call Queryclose
  22986.     On Event Queryopen From Source Call Queryopen
  22987.     On Event Postsave From Source Call Postsave
  22988.     On Event Querymodechange From Source Call Querymodechange
  22989. End Sub
  22990. '++LotusScript Development Environment:2:2:Postopen:1:12
  22991. Sub Postopen(Source As Notesuidocument)
  22992.     Call cMemoObject.PostOpen(Source)    
  22993. End Sub
  22994. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  22995. Sub Postmodechange(Source As Notesuidocument)
  22996. End Sub
  22997. '++LotusScript Development Environment:2:2:Querysave:1:12
  22998. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  22999.     Call cMemoObject.QuerySave(Continue)
  23000. End Sub
  23001. '++LotusScript Development Environment:2:2:Queryclose:1:12
  23002. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  23003.  '        Call uimemodoc.QueryClose(source, continue)
  23004. End Sub
  23005. '++LotusScript Development Environment:2:2:Queryopen:1:12
  23006. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  23007.     Set cMemoObject = New UIMemoDocument        
  23008.     Call cMemoObject.Init(Source,Isnewdoc) 
  23009. End Sub
  23010. '++LotusScript Development Environment:2:2:Postsave:1:12
  23011. Sub Postsave(Source As Notesuidocument)
  23012.     Call cMemoObject.PostSave()
  23013. End Sub
  23014. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  23015. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  23016.     Continue = cMemoObject.QueryModeChange(Source)
  23017. End Sub
  23018. Lotus Product~
  23019. V0.01
  23020. Th    ]x
  23021. ISMAILSTATIONERYh
  23022.     0S0E
  23023.     Always Hidden:
  23024.     0S0E
  23025. NamePreferencez
  23026. NamePreference
  23027. Principal
  23028. CalendarProfile
  23029. Owner
  23030.     1S2S3S7S
  23031. FromPerson memo is from.z
  23032. AltFrom
  23033.     10SAltFrom
  23034. MailSaveOptions
  23035.     1S2S3S
  23036. MailSaveOptions
  23037. DefaultMailSaveOptionsz
  23038. DefaultMailSaveOptions
  23039. Principal
  23040. Principal
  23041. Principal
  23042. NamePreference
  23043. AltFrom
  23044. AltFrom
  23045.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S24RTTTT26RTTT27RTTT
  23046.     0R1S2S8S
  23047.     0R1S2S5S6S8S14S18S
  23048.     0R1S2S5S6S8S14S18S
  23049. SentBy
  23050. X400FreeForm^
  23051.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  23052. SentBy
  23053. FromDomain
  23054. FromDomain
  23055. FromDomain
  23056. FromDomain
  23057.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  23058. FromName
  23059. Principal
  23060. Principal
  23061. Principal
  23062.     0RR1S2S8S9S14S16S20S
  23063. FromStops
  23064.     0R1S2S6S
  23065. FromName
  23066. FromStops
  23067. FromStops
  23068. FromStops
  23069.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  23070. tmpDisplayFrom_Preview
  23071. .,$,  , :
  23072. Path_Info
  23073. Path_Info
  23074. .,$,  , :
  23075. Query_String
  23076. Query_String
  23077. CalendarProfile
  23078. DefaultLogo
  23079. stdNotesLtr0
  23080. CalendarProfile
  23081. DefaultLogo
  23082. StdNotesLtrGateway
  23083.     4S13S24R25S29S32S34S
  23084. Logoz
  23085. Black
  23086. BGTableColor
  23087. $KeepPrivate
  23088. $KeepPrivate
  23089. $KeepPrivate
  23090.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  23091. PrintingMailGraphic
  23092. $tempfoo
  23093.     From:
  23094. tmpDisplayFrom_Preview
  23095. tmpDisplayFrom_NoLogo
  23096. tmpDisplayFrom_NoLogo
  23097. NamesList
  23098. NamePreference
  23099. AltSendTo
  23100. AltSendTo
  23101. SendTo
  23102.     11S12S
  23103. ImplodedNamesList
  23104. NamesList
  23105. ImplodedNamesList
  23106. ImplodedNamesList
  23107. ImplodedNamesList
  23108. tmpDisplaySendTo
  23109.     Subject:
  23110. Subject
  23111. Subject
  23112. Subject
  23113.     0S0E
  23114. TmpDisplaySubject
  23115. CC_Content
  23116. NamePreference
  23117. AltCopyTo
  23118. AltCopyTo
  23119. CopyTo
  23120.     7S8S9S
  23121. BCC_Content
  23122. DeliveredDate
  23123. BlindCopyTo
  23124.  (bcc: 
  23125. BlindCopyTo
  23126.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  23127. NamesList
  23128. CC_Content
  23129. BCC_Content
  23130.     0R9S10S
  23131. ImplodedNamesList
  23132. NamesList
  23133. ImplodedNamesList
  23134. ImplodedNamesList
  23135. ImplodedNamesList
  23136. tmpDisplayCC
  23137. SendTo
  23138. CopyTo
  23139.   cc:  
  23140. CopyTo
  23141.     1S2S8S13S14S2E17S18S21S22S28S31S
  23142. tmpDisplayFrom_Preview
  23143. DisplayFrom_Preview
  23144. DisplayFrom_Preview
  23145. $HideMailHeader
  23146. Principal
  23147. Principal
  23148. Principal
  23149. Principal
  23150. Principal
  23151.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  23152.     Sent by: 
  23153. FromDomain
  23154. FromDomain
  23155. FromDomain
  23156. FromDomain
  23157.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  23158. FromName
  23159.     0RR1S2S6S
  23160. FromStops
  23161.     0R1S2S6S
  23162. FromName
  23163. FromStops
  23164. FromStops
  23165. FromStops
  23166.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  23167. tmpDisplaySentBy_1
  23168. PostedDateh
  23169. PostedDate
  23170.     4S5S10S12S
  23171. tmpDisplayDate_PreviewTime/date memo was created or mailed.
  23172. tmpDisplayDate_Preview_1
  23173. ReplyDate
  23174. ReplyTo
  23175. $HideMailHeader
  23176.     2S3S4S5S6S7S9S10S14S15R
  23177. Please respond
  23178. ReplyTo
  23179. ReplyTo
  23180. ReplyDate
  23181. ReplyDate
  23182.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  23183. tmpDisplayReplyInfo_1
  23184. IsMailStationery
  23185.     0S0E
  23186.     Stationery name: 
  23187. MAILSTATIONERYNAME
  23188. -Untitled-
  23189. MAILSTATIONERYNAME
  23190.     0S0E
  23191. StationeryNamez
  23192. stationaryName
  23193. $HideMailHeader
  23194. StdNotesLtr16
  23195.     7S9S10S11S13S15S
  23196. NamePreference
  23197. AltSendTo
  23198. AltSendTo
  23199. SendTo
  23200.     5S6S
  23201. EnterSendTo
  23202.     0S0E
  23203. EnterSendTo
  23204. No names found to send mail.{
  23205.     1S6S7S8S9S11S16S
  23206. EnterSendToList of primary people to send memo.
  23207. EnterSendTo
  23208. SendTo
  23209. NamePreference
  23210. AltCopyTo
  23211. AltCopyTo
  23212. CopyTo
  23213.     5S6S7S
  23214. EnterCopyTo
  23215.     0S0E
  23216. EnterCopyToList of people to send a copy of the memo.
  23217. EnterCopyTo
  23218. CC_Content
  23219. NamePreference
  23220. AltCopyTo
  23221. AltCopyTo
  23222. CopyTo
  23223.     7S8S9S
  23224. BCC_Content
  23225. DeliveredDate
  23226. BlindCopyTo
  23227.  (bcc: 
  23228. BlindCopyTo
  23229.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  23230. CC_Content
  23231. BCC_Content
  23232.     0R3S4S
  23233. tmpEnterCopyToList of people to send a copy of the memo.z
  23234. tmpEnterCopyTo
  23235. CopyTo
  23236.     bcc:
  23237. NamePreference
  23238. AltBlindCopyTo
  23239. AltBlindCopyTo
  23240. BlindCopyTo
  23241.     5S6S7S
  23242. EnterBlindCopyTo}
  23243.     0S0E
  23244. EnterBlindCopyToList of undisclosed people to send copies of memo.z
  23245. EnterBlindCopyTo
  23246. BlindCopyTo
  23247.     Subject:
  23248. PhoneCaller
  23249. Phone Call: 
  23250. PhoneCaller
  23251. Subject
  23252.     7S8S9S11SSubjectSubject of memo.
  23253. Subject
  23254. BGTableColor
  23255. $HideMailHeader
  23256.     0S0E
  23257. $HideMailHeader
  23258. Moods
  23259. PostedDate
  23260. SenderTag
  23261. Moods
  23262.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  23263.     Header:
  23264. HEADER
  23265. Bodyz
  23266. Footerz
  23267. Footer
  23268.     Always Hidden: 
  23269.     0S0E
  23270. DueDateTime
  23271. ReplyDate
  23272. ReplyDate
  23273.     0R1S2S3S6S7S9S11S
  23274. Importance
  23275. Importance
  23276. Importance
  23277.     0R1S3S
  23278. DeliveryReport
  23279. DeliveryReport
  23280. DeliveryReport
  23281.     0R1S3S
  23282. DeliveryPriority
  23283. DeliveryPriority
  23284. DeliveryPriority
  23285.     0R1S3S
  23286. UpdateProfileNote
  23287. UpdateProfileNote
  23288. UpdateProfileNote
  23289.     0R1S3S
  23290. ReturnReceipt
  23291. ReturnReceipt
  23292. ReturnReceipt
  23293.     0R1S3S
  23294. $KeepPrivate
  23295. $KeepPrivate
  23296. $KeepPrivate
  23297.     0R1S3S
  23298. ReplyDate
  23299. ReplyDate
  23300. ReplyDate
  23301.     0R1S3S
  23302. ExpireDate
  23303. ExpireDate
  23304. ExpireDate
  23305.     0R1S3S
  23306. ReplyTo
  23307. ReplyTo
  23308. ReplyTo
  23309.     0R1S3S
  23310. MimeFormat
  23311. MimeFormat
  23312. MimeFormat
  23313.     0R1S3S
  23314. SMTPEncoding
  23315. SMTPEncoding
  23316. SMTPEncoding
  23317.     0R1S3S
  23318. UpdateProfileNote
  23319. UpdateProfileNote
  23320. UpdateProfileNote
  23321.     0R1S
  23322. MIMEMailCharset
  23323. MIMEMailCharset
  23324. MIMEMailCharset
  23325.     0R1S
  23326. StripItemsIfDocIsBeingMailed
  23327. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  23328. '++LotusScript Development Environment:2:5:(Forward):0:1
  23329. Declare Sub Click(Source As Button)
  23330. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23331. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23332. Private Sub BindEvents(Byval Objectname_ As String)
  23333.     Static Source As BUTTON
  23334.     Set Source = Bind(Objectname_)
  23335.     On Event Click From Source Call Click
  23336. End Sub
  23337. '++LotusScript Development Environment:2:2:Click:1:12
  23338. Sub Click(Source As Button)
  23339.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  23340.     Call cMemoObject.noteUIMemo.save()
  23341.     Call cMemoObject.noteUIMemo.close()
  23342. End Sub
  23343. IsMailStationery
  23344.     1S2S3S
  23345. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  23346. '++LotusScript Development Environment:2:5:(Forward):0:1
  23347. Declare Sub Click(Source As Button)
  23348. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23349. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23350. Private Sub BindEvents(Byval Objectname_ As String)
  23351.     Static Source As BUTTON
  23352.     Set Source = Bind(Objectname_)
  23353.     On Event Click From Source Call Click
  23354. End Sub
  23355. '++LotusScript Development Environment:2:2:Click:1:12
  23356. Sub Click(Source As Button)
  23357.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  23358.     Call cMemoObject.noteUIMemo.save()
  23359.     Call cMemoObject.noteUIMemo.close()
  23360. End Sub
  23361. PostedDateh
  23362. IsMailStationery
  23363.     7S8S9S10S13S14S15S16S
  23364. Save And File
  23365. '++LotusScript Development Environment:2:5:(Options):0:66
  23366. '++LotusScript Development Environment:2:5:(Forward):0:1
  23367. Declare Sub Click(Source As Button)
  23368. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23369. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23370. Private Sub BindEvents(Byval Objectname_ As String)
  23371.     Static Source As BUTTON
  23372.     Set Source = Bind(Objectname_)
  23373.     On Event Click From Source Call Click
  23374. End Sub
  23375. '++LotusScript Development Environment:2:2:Click:1:12
  23376. Sub Click(Source As Button)
  23377.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  23378.     Call cMemoObject.noteUIMemo.save()
  23379.     Call cMemoObject.noteUIMemo.close()
  23380. End Sub
  23381. PostedDateh
  23382. IsMailStationery
  23383.     7S8S9S10S13S14S15S16S
  23384. Close
  23385. '++LotusScript Development Environment:2:5:(Options):0:66
  23386. '++LotusScript Development Environment:2:5:(Forward):0:1
  23387. Declare Sub Click(Source As Button)
  23388. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23389. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23390. Private Sub BindEvents(Byval Objectname_ As String)
  23391.     Static Source As BUTTON
  23392.     Set Source = Bind(Objectname_)
  23393.     On Event Click From Source Call Click
  23394. End Sub
  23395. '++LotusScript Development Environment:2:2:Click:1:12
  23396. Sub Click(Source As Button)
  23397.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  23398.     Call cMemoObject.noteUIMemo.save()
  23399.     Call cMemoObject.noteUIMemo.close()
  23400. End Sub
  23401. IsMailStationery
  23402.     0S1S2S
  23403. New Memo(
  23404.     0S0E
  23405. act_NEWMEMO.GIF|act_NEWMEMO?
  23406. Reply\ReplyK0
  23407. Reply
  23408.     0S0E
  23409. act_REPLY.GIF|act_REPLY?
  23410. Reply\Reply with History
  23411. Reply with History
  23412. This document is truncated.
  23413.     4S8S10S13S
  23414. Reply with history
  23415. act_REPLY.GIF|act_REPLY?
  23416. Reply\Reply to AllX
  23417. MailStEd
  23418.     0S0E
  23419. Reply
  23420. act_REPLY.GIF|act_REPLY?
  23421. Reply\Reply to All with HistoryK
  23422. MailStEd
  23423.     0S0E
  23424. Reply with History
  23425. This document is truncated.
  23426.     0R4S8S10S13S
  23427. Reply with history
  23428. act_REPLY.GIF|act_REPLY?
  23429. _Forward
  23430. act_FORWARD.GIF|act_FORWARD?
  23431.     0S1S2S
  23432. act_EDIT.GIF|act_EDIT?
  23433. Delete 
  23434.     0S0E
  23435. act_DELETE.GIF|act_DELETE?
  23436. _Move To Folder...
  23437. act_FOLDER.GIF|act_FOLDER?
  23438. Remove From Folder
  23439. Categori_zeK
  23440. SSend
  23441. Send'++LotusScript Development Environment:2:5:(Options):0:66
  23442. '++LotusScript Development Environment:2:5:(Forward):0:1
  23443. Declare Sub Click(Source As Button)
  23444. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23445. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23446. Private Sub BindEvents(Byval Objectname_ As String)
  23447.     Static Source As BUTTON
  23448.     Set Source = Bind(Objectname_)
  23449.     On Event Click From Source Call Click
  23450. End Sub
  23451. '++LotusScript Development Environment:2:2:Click:1:12
  23452. Sub Click(Source As Button)
  23453.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  23454.     Call cMemoObject.noteUIMemo.save()
  23455.     Call cMemoObject.noteUIMemo.close()    
  23456. End Sub
  23457. PostedDateh
  23458. IsMailStationery
  23459.     5S6S7S8S10S11S12S13S
  23460. act_SEND.GIF|act_SEND?
  23461. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  23462. '++LotusScript Development Environment:2:5:(Forward):0:1
  23463. Declare Sub Click(Source As Button)
  23464. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23465. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23466. Private Sub BindEvents(Byval Objectname_ As String)
  23467.     Static Source As BUTTON
  23468.     Set Source = Bind(Objectname_)
  23469.     On Event Click From Source Call Click
  23470. End Sub
  23471. '++LotusScript Development Environment:2:2:Click:1:12
  23472. Sub Click(Source As Button)
  23473.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  23474.     Call cMemoObject.noteUIMemo.save()
  23475.     Call cMemoObject.noteUIMemo.close()    
  23476. End Sub
  23477. PostedDateh
  23478. IsMailStationery
  23479.     5S6S7S8S12S13S
  23480. Send and File
  23481. '++LotusScript Development Environment:2:5:(Options):0:66
  23482. '++LotusScript Development Environment:2:5:(Forward):0:1
  23483. Declare Sub Click(Source As Button)
  23484. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23485. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23486. Private Sub BindEvents(Byval Objectname_ As String)
  23487.     Static Source As BUTTON
  23488.     Set Source = Bind(Objectname_)
  23489.     On Event Click From Source Call Click
  23490. End Sub
  23491. '++LotusScript Development Environment:2:2:Click:1:12
  23492. Sub Click(Source As Button)
  23493.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  23494.     Call cMemoObject.noteUIMemo.save()
  23495.     Call cMemoObject.noteUIMemo.close()    
  23496. End Sub
  23497. PostedDateh
  23498. IsMailStationery
  23499.     5S6S7S8S12S13S
  23500. act_SEND.GIF|act_SEND?
  23501. Save As Draft
  23502. '++LotusScript Development Environment:2:5:(Options):0:66
  23503. '++LotusScript Development Environment:2:5:(Forward):0:1
  23504. Declare Sub Click(Source As Button)
  23505. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23506. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23507. Private Sub BindEvents(Byval Objectname_ As String)
  23508.     Static Source As BUTTON
  23509.     Set Source = Bind(Objectname_)
  23510.     On Event Click From Source Call Click
  23511. End Sub
  23512. '++LotusScript Development Environment:2:2:Click:1:12
  23513. Sub Click(Source As Button)
  23514.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  23515.     Call cMemoObject.noteUIMemo.save()
  23516.     Call cMemoObject.noteUIMemo.close()
  23517. End Sub
  23518. PostedDateh
  23519. IsMailStationery
  23520.     5S6S7S8S10S11S12S13S
  23521. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  23522. Save'++LotusScript Development Environment:2:5:(Options):0:66
  23523. '++LotusScript Development Environment:2:5:(Forward):0:1
  23524. Declare Sub Click(Source As Button)
  23525. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23526. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23527. Private Sub BindEvents(Byval Objectname_ As String)
  23528.     Static Source As BUTTON
  23529.     Set Source = Bind(Objectname_)
  23530.     On Event Click From Source Call Click
  23531. End Sub
  23532. '++LotusScript Development Environment:2:2:Click:1:12
  23533. Sub Click(Source As Button)
  23534.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  23535.     Call cMemoObject.noteUIMemo.save()
  23536.     Call cMemoObject.noteUIMemo.close()
  23537. End Sub
  23538. IsMailStationery
  23539.     2S3S
  23540. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  23541. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  23542. '++LotusScript Development Environment:2:5:(Forward):0:1
  23543. Declare Sub Click(Source As Button)
  23544. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23545. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23546. Private Sub BindEvents(Byval Objectname_ As String)
  23547.     Static Source As BUTTON
  23548.     Set Source = Bind(Objectname_)
  23549.     On Event Click From Source Call Click
  23550. End Sub
  23551. '++LotusScript Development Environment:2:2:Click:1:12
  23552. Sub Click(Source As Button)
  23553.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  23554.     Call cMemoObject.noteUIMemo.save()
  23555.     Call cMemoObject.noteUIMemo.close()
  23556. End Sub
  23557. IsMailStationery
  23558.     1S2S
  23559. Rename Stationery
  23560. xxTitle
  23561. Rename Stationery
  23562.     0S0E
  23563. xxPrompt
  23564. Please enter new stationery name.
  23565. MailStationeryName
  23566. xxTitle
  23567. xxPrompt
  23568. MailStationeryName
  23569.     0R1S
  23570.     0RS>
  23571. IsMailStationery
  23572.     2S3S4S5S
  23573. act_RENAME.GIF|act_RENAME?
  23574. Address...T
  23575. EnterSendTo
  23576. EnterCopyTo
  23577. EnterBlindCopyTo
  23578.     0S0E
  23579. PostedDateh
  23580. IsMailStationery
  23581.     5S6S7S8S10S11S12S13S
  23582. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  23583. Delivery Options...K~
  23584. DeliveryOptions
  23585. Delivery Options
  23586.     0R4S10S
  23587. PostedDateh
  23588.     5S6S7S8S
  23589. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  23590. Tools\Insert Signature...
  23591. '++LotusScript Development Environment:2:5:(Options):0:66
  23592. '++LotusScript Development Environment:2:5:(Forward):0:1
  23593. Declare Sub Click(Source As Button)
  23594. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23595. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23596. Private Sub BindEvents(Byval Objectname_ As String)
  23597.     Static Source As BUTTON
  23598.     Set Source = Bind(Objectname_)
  23599.     On Event Click From Source Call Click
  23600. End Sub
  23601. '++LotusScript Development Environment:2:2:Click:1:12
  23602. Sub Click(Source As Button)
  23603.     Call cMemoObject.InsertSignature(False)
  23604. End Sub
  23605. PostedDateh
  23606.     5S6S7S8S
  23607. act_TOOLS.GIF|act_TOOLS?
  23608. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  23609. '++LotusScript Development Environment:2:5:(Forward):0:1
  23610. Declare Sub Click(Source As Button)
  23611. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23612. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23613. Private Sub BindEvents(Byval Objectname_ As String)
  23614.     Static Source As BUTTON
  23615.     Set Source = Bind(Objectname_)
  23616.     On Event Click From Source Call Click
  23617. End Sub
  23618. '++LotusScript Development Environment:2:2:Click:1:12
  23619. Sub Click(Source As Button)
  23620.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  23621.     Call cMemoObject.noteUIMemo.save()
  23622.     Call cMemoObject.noteUIMemo.close()
  23623. End Sub
  23624. PostedDateh
  23625. IsMailStationery
  23626.     5S6S7S8S10S11S12S13S
  23627. act_TOOLS.GIF|act_TOOLS?
  23628. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  23629. Use "CommonUI"
  23630. '++LotusScript Development Environment:2:5:(Forward):0:1
  23631. Declare Sub Click(Source As Button)
  23632. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23633. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23634. Private Sub BindEvents(Byval Objectname_ As String)
  23635. Static Source As BUTTON
  23636. Set Source = Bind(Objectname_)
  23637. On Event Click From Source Call Click
  23638. End Sub
  23639. '++LotusScript Development Environment:2:2:Click:1:12
  23640. Sub Click(Source As Button)
  23641.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  23642. End Sub
  23643. act_COPYINTO.GIF|act_COPYINTO?
  23644. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  23645. Use "CommonUI"
  23646. '++LotusScript Development Environment:2:5:(Forward):0:1
  23647. Declare Sub Click(Source As Button)
  23648. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23649. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23650. Private Sub BindEvents(Byval Objectname_ As String)
  23651. Static Source As BUTTON
  23652. Set Source = Bind(Objectname_)
  23653. On Event Click From Source Call Click
  23654. End Sub
  23655. '++LotusScript Development Environment:2:2:Click:1:12
  23656. Sub Click(Source As Button)
  23657.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  23658. End Sub
  23659. act_COPYINTO.GIF|act_COPYINTO?
  23660. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  23661. Use "CommonUI"
  23662. '++LotusScript Development Environment:2:5:(Forward):0:1
  23663. Declare Sub Click(Source As Button)
  23664. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23665. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23666. Private Sub BindEvents(Byval Objectname_ As String)
  23667.     Static Source As BUTTON
  23668.     Set Source = Bind(Objectname_)
  23669.     On Event Click From Source Call Click
  23670. End Sub
  23671. '++LotusScript Development Environment:2:2:Click:1:12
  23672. Sub Click(Source As Button)
  23673.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  23674. End Sub
  23675. act_COPYINTO.GIF|act_COPYINTO?
  23676. Tools\Delivery Information...
  23677. xxTitle
  23678. Delivery Information
  23679.     0S0E
  23680. DeliveryInfo
  23681. xxTitle
  23682.     0RR4S5S6S7S8S9S10S11S12S14S
  23683. act_TOOLS.GIF|act_TOOLS?
  23684. Tools\Preferences...2
  23685. (Preferences)
  23686.     0S0E
  23687. act_TOOLS.GIF|act_TOOLS?
  23688. Tools\New Memo - Using Stationery
  23689. '++LotusScript Development Environment:2:5:(Options):0:66
  23690. '++LotusScript Development Environment:2:5:(Forward):0:1
  23691. Declare Sub Click(Source As Button)
  23692. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23693. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23694. Private Sub BindEvents(Byval Objectname_ As String)
  23695.     Static Source As BUTTON
  23696.     Set Source = Bind(Objectname_)
  23697.     On Event Click From Source Call Click
  23698. End Sub
  23699. '++LotusScript Development Environment:2:2:Click:1:12
  23700. Sub Click(Source As Button)
  23701.     Dim session As New notessession
  23702.     Dim uiws As New notesuiworkspace
  23703.     Dim collection As notesdocumentcollection
  23704.     Dim noteUIEditDocument As notesuidocument
  23705.     Dim database As NotesDatabase
  23706.     Set noteCursorDoc = session.currentdatabase.createdocument
  23707.     Set database = session.currentdatabase
  23708.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  23709.     Set noteCursorDoc = collection.getfirstdocument
  23710.     If Not noteCursorDoc Is Nothing Then
  23711.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  23712.     End If
  23713. End Sub
  23714. act_TOOLS.GIF|act_TOOLS?
  23715. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  23716. '++LotusScript Development Environment:2:5:(Forward):0:1
  23717. Declare Sub Click(Source As Button)
  23718. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23719. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23720. Private Sub BindEvents(Byval Objectname_ As String)
  23721.     Static Source As BUTTON
  23722.     Set Source = Bind(Objectname_)
  23723.     On Event Click From Source Call Click
  23724. End Sub
  23725. '++LotusScript Development Environment:2:2:Click:1:12
  23726. Sub Click(Source As Button)
  23727.     Call cMemoObject.InsertSignature(False)
  23728. End Sub
  23729. act_INSERTSIG.GIF|act_INSERTSIG?
  23730. Save As Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  23731. '++LotusScript Development Environment:2:5:(Forward):0:1
  23732. Declare Sub Click(Source As Button)
  23733. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23734. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23735. Private Sub BindEvents(Byval Objectname_ As String)
  23736.     Static Source As BUTTON
  23737.     Set Source = Bind(Objectname_)
  23738.     On Event Click From Source Call Click
  23739. End Sub
  23740. '++LotusScript Development Environment:2:2:Click:1:12
  23741. Sub Click(Source As Button)
  23742.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  23743.     Call cMemoObject.noteUIMemo.save()
  23744.     Call cMemoObject.noteUIMemo.close()
  23745. End Sub
  23746. IsMailStationery
  23747.     1S2S
  23748. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  23749. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  23750. '++LotusScript Development Environment:2:5:(Forward):0:1
  23751. Declare Sub Click(Source As Button)
  23752. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23753. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23754. Private Sub BindEvents(Byval Objectname_ As String)
  23755.     Static Source As BUTTON
  23756.     Set Source = Bind(Objectname_)
  23757.     On Event Click From Source Call Click
  23758. End Sub
  23759. '++LotusScript Development Environment:2:2:Click:1:12
  23760. Sub Click(Source As Button)
  23761.     Dim session As New notessession
  23762.     Dim uiws As New notesuiworkspace
  23763.     Dim collection As notesdocumentcollection
  23764.     Dim noteUIEditDocument As notesuidocument
  23765.     Dim database As NotesDatabase
  23766.     Set noteCursorDoc = session.currentdatabase.createdocument
  23767.     Set database = session.currentdatabase
  23768.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  23769.     Set noteCursorDoc = collection.getfirstdocument
  23770.     If Not noteCursorDoc Is Nothing Then
  23771.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  23772.     End If
  23773. End Sub
  23774. IsMailStationery
  23775.     1S2S
  23776. Discard ChangesK'++LotusScript Development Environment:2:5:(Options):0:66
  23777. '++LotusScript Development Environment:2:5:(Forward):0:1
  23778. Declare Sub Click(Source As Button)
  23779. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23780. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23781. Private Sub BindEvents(Byval Objectname_ As String)
  23782.     Static Source As BUTTON
  23783.     Set Source = Bind(Objectname_)
  23784.     On Event Click From Source Call Click
  23785. End Sub
  23786. '++LotusScript Development Environment:2:2:Click:1:12
  23787. Sub Click(Source As Button)
  23788.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)
  23789.     Call cMemoObject.noteUIMemo.save()
  23790.     Call cMemoObject.noteUIMemo.close()
  23791. End Sub
  23792. IsMailStationery
  23793.     1S2S3S
  23794. Save And Close'++LotusScript Development Environment:2:5:(Options):0:66
  23795. '++LotusScript Development Environment:2:5:(Forward):0:1
  23796. Declare Sub Click(Source As Button)
  23797. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23798. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23799. Private Sub BindEvents(Byval Objectname_ As String)
  23800.     Static Source As BUTTON
  23801.     Set Source = Bind(Objectname_)
  23802.     On Event Click From Source Call Click
  23803. End Sub
  23804. '++LotusScript Development Environment:2:2:Click:1:12
  23805. Sub Click(Source As Button)
  23806.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  23807.     Call cMemoObject.noteUIMemo.save()
  23808.     Call cMemoObject.noteUIMemo.close()
  23809. End Sub
  23810. PostedDateh
  23811. IsMailStationery
  23812.     7S8S9S10S13S14S15S16S
  23813. Save And File
  23814. '++LotusScript Development Environment:2:5:(Options):0:66
  23815. '++LotusScript Development Environment:2:5:(Forward):0:1
  23816. Declare Sub Click(Source As Button)
  23817. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23818. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23819. Private Sub BindEvents(Byval Objectname_ As String)
  23820.     Static Source As BUTTON
  23821.     Set Source = Bind(Objectname_)
  23822.     On Event Click From Source Call Click
  23823. End Sub
  23824. '++LotusScript Development Environment:2:2:Click:1:12
  23825. Sub Click(Source As Button)
  23826.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  23827.     Call cMemoObject.noteUIMemo.save()
  23828.     Call cMemoObject.noteUIMemo.close()
  23829. End Sub
  23830. PostedDateh
  23831. IsMailStationery
  23832.     7S8S9S10S13S14S15S16S
  23833. Close
  23834. '++LotusScript Development Environment:2:5:(Options):0:66
  23835. '++LotusScript Development Environment:2:5:(Forward):0:1
  23836. Declare Sub Click(Source As Button)
  23837. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23838. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23839. Private Sub BindEvents(Byval Objectname_ As String)
  23840.     Static Source As BUTTON
  23841.     Set Source = Bind(Objectname_)
  23842.     On Event Click From Source Call Click
  23843. End Sub
  23844. '++LotusScript Development Environment:2:2:Click:1:12
  23845. Sub Click(Source As Button)
  23846.     Call cMemoObject.SetActionInProgress(MEMO_CANCEL)'must alter constant meaning
  23847.     Call cMemoObject.noteUIMemo.save()
  23848.     Call cMemoObject.noteUIMemo.close()
  23849. End Sub
  23850. IsMailStationery
  23851.     0S1S2S
  23852. New Memo(
  23853.     0S0E
  23854. Reply\ReplyK0
  23855. Reply
  23856.     0S0E
  23857. Reply\Reply with History
  23858. Reply with History
  23859. This document is truncated.
  23860.     4S8S10S13S
  23861. Reply with history
  23862. Reply\Reply to AllX
  23863. MailStEd
  23864.     0S0E
  23865. Reply
  23866. Reply\Reply to All with HistoryK
  23867. MailStEd
  23868.     0S0E
  23869. Reply with History
  23870. This document is truncated.
  23871.     0R4S8S10S13S
  23872. Reply with history
  23873. _Forward
  23874.     0S1S2S
  23875. Delete 
  23876.     0S0E
  23877. _Move To Folder...
  23878. Remove From Folder
  23879. Categori_zeK
  23880. SSend
  23881. Send'++LotusScript Development Environment:2:5:(Options):0:66
  23882. '++LotusScript Development Environment:2:5:(Forward):0:1
  23883. Declare Sub Click(Source As Button)
  23884. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23885. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23886. Private Sub BindEvents(Byval Objectname_ As String)
  23887.     Static Source As BUTTON
  23888.     Set Source = Bind(Objectname_)
  23889.     On Event Click From Source Call Click
  23890. End Sub
  23891. '++LotusScript Development Environment:2:2:Click:1:12
  23892. Sub Click(Source As Button)
  23893.     Call cMemoObject.SetActionInProgress(MEMO_SEND)
  23894.     Call cMemoObject.noteUIMemo.save()
  23895.     Call cMemoObject.noteUIMemo.close()    
  23896. End Sub
  23897. PostedDateh
  23898. IsMailStationery
  23899.     5S6S7S8S10S11S12S13S
  23900. Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
  23901. '++LotusScript Development Environment:2:5:(Forward):0:1
  23902. Declare Sub Click(Source As Button)
  23903. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23904. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23905. Private Sub BindEvents(Byval Objectname_ As String)
  23906.     Static Source As BUTTON
  23907.     Set Source = Bind(Objectname_)
  23908.     On Event Click From Source Call Click
  23909. End Sub
  23910. '++LotusScript Development Environment:2:2:Click:1:12
  23911. Sub Click(Source As Button)
  23912.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  23913.     Call cMemoObject.noteUIMemo.save()
  23914.     Call cMemoObject.noteUIMemo.close()    
  23915. End Sub
  23916. PostedDateh
  23917. IsMailStationery
  23918.     5S6S7S8S12S13S
  23919. Send and File
  23920. '++LotusScript Development Environment:2:5:(Options):0:66
  23921. '++LotusScript Development Environment:2:5:(Forward):0:1
  23922. Declare Sub Click(Source As Button)
  23923. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23924. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23925. Private Sub BindEvents(Byval Objectname_ As String)
  23926.     Static Source As BUTTON
  23927.     Set Source = Bind(Objectname_)
  23928.     On Event Click From Source Call Click
  23929. End Sub
  23930. '++LotusScript Development Environment:2:2:Click:1:12
  23931. Sub Click(Source As Button)
  23932.     Call cMemoObject.SetActionInProgress(MEMO_SEND_FILE)
  23933.     Call cMemoObject.noteUIMemo.save()
  23934.     Call cMemoObject.noteUIMemo.close()    
  23935. End Sub
  23936. PostedDateh
  23937. IsMailStationery
  23938.     5S6S7S8S12S13S
  23939. Save As Draft
  23940. '++LotusScript Development Environment:2:5:(Options):0:66
  23941. '++LotusScript Development Environment:2:5:(Forward):0:1
  23942. Declare Sub Click(Source As Button)
  23943. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23944. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23945. Private Sub BindEvents(Byval Objectname_ As String)
  23946.     Static Source As BUTTON
  23947.     Set Source = Bind(Objectname_)
  23948.     On Event Click From Source Call Click
  23949. End Sub
  23950. '++LotusScript Development Environment:2:2:Click:1:12
  23951. Sub Click(Source As Button)
  23952.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  23953.     Call cMemoObject.noteUIMemo.save()
  23954.     Call cMemoObject.noteUIMemo.close()
  23955. End Sub
  23956. PostedDateh
  23957. IsMailStationery
  23958.     5S6S7S8S10S11S12S13S
  23959. Save'++LotusScript Development Environment:2:5:(Options):0:66
  23960. '++LotusScript Development Environment:2:5:(Forward):0:1
  23961. Declare Sub Click(Source As Button)
  23962. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23963. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23964. Private Sub BindEvents(Byval Objectname_ As String)
  23965.     Static Source As BUTTON
  23966.     Set Source = Bind(Objectname_)
  23967.     On Event Click From Source Call Click
  23968. End Sub
  23969. '++LotusScript Development Environment:2:2:Click:1:12
  23970. Sub Click(Source As Button)
  23971.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT)
  23972.     Call cMemoObject.noteUIMemo.save()
  23973.     Call cMemoObject.noteUIMemo.close()
  23974. End Sub
  23975. IsMailStationery
  23976.     2S3S
  23977. Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
  23978. '++LotusScript Development Environment:2:5:(Forward):0:1
  23979. Declare Sub Click(Source As Button)
  23980. '++LotusScript Development Environment:2:5:(Declarations):0:2
  23981. '++LotusScript Development Environment:2:2:BindEvents:1:129
  23982. Private Sub BindEvents(Byval Objectname_ As String)
  23983.     Static Source As BUTTON
  23984.     Set Source = Bind(Objectname_)
  23985.     On Event Click From Source Call Click
  23986. End Sub
  23987. '++LotusScript Development Environment:2:2:Click:1:12
  23988. Sub Click(Source As Button)
  23989.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  23990.     Call cMemoObject.noteUIMemo.save()
  23991.     Call cMemoObject.noteUIMemo.close()
  23992. End Sub
  23993. IsMailStationery
  23994.     1S2S
  23995. Rename Stationery
  23996. xxTitle
  23997. Rename Stationery
  23998.     0S0E
  23999. xxPrompt
  24000. Please enter new stationery name.
  24001. MailStationeryName
  24002. xxTitle
  24003. xxPrompt
  24004. MailStationeryName
  24005.     0R1S
  24006.     0RS>
  24007. IsMailStationery
  24008.     2S3S4S5S
  24009. Address...T
  24010. EnterSendTo
  24011. EnterCopyTo
  24012. EnterBlindCopyTo
  24013.     0S0E
  24014. PostedDateh
  24015. IsMailStationery
  24016.     5S6S7S8S10S11S12S13S
  24017. Delivery Options...K~
  24018. DeliveryOptions
  24019. Delivery Options
  24020.     0R4S10S
  24021. PostedDateh
  24022.     5S6S7S8S
  24023. Tools\Insert Signature...
  24024. '++LotusScript Development Environment:2:5:(Options):0:66
  24025. '++LotusScript Development Environment:2:5:(Forward):0:1
  24026. Declare Sub Click(Source As Button)
  24027. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24028. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24029. Private Sub BindEvents(Byval Objectname_ As String)
  24030.     Static Source As BUTTON
  24031.     Set Source = Bind(Objectname_)
  24032.     On Event Click From Source Call Click
  24033. End Sub
  24034. '++LotusScript Development Environment:2:2:Click:1:12
  24035. Sub Click(Source As Button)
  24036.     Call cMemoObject.InsertSignature(False)
  24037. End Sub
  24038. PostedDateh
  24039.     5S6S7S8S
  24040. Tools\Save as Stationery...K'++LotusScript Development Environment:2:5:(Options):0:66
  24041. '++LotusScript Development Environment:2:5:(Forward):0:1
  24042. Declare Sub Click(Source As Button)
  24043. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24044. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24045. Private Sub BindEvents(Byval Objectname_ As String)
  24046.     Static Source As BUTTON
  24047.     Set Source = Bind(Objectname_)
  24048.     On Event Click From Source Call Click
  24049. End Sub
  24050. '++LotusScript Development Environment:2:2:Click:1:12
  24051. Sub Click(Source As Button)
  24052.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  24053.     Call cMemoObject.noteUIMemo.save()
  24054.     Call cMemoObject.noteUIMemo.close()
  24055. End Sub
  24056. PostedDateh
  24057. IsMailStationery
  24058.     5S6S7S8S10S11S12S13S
  24059. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  24060. Use "CommonUI"
  24061. '++LotusScript Development Environment:2:5:(Forward):0:1
  24062. Declare Sub Click(Source As Button)
  24063. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24064. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24065. Private Sub BindEvents(Byval Objectname_ As String)
  24066. Static Source As BUTTON
  24067. Set Source = Bind(Objectname_)
  24068. On Event Click From Source Call Click
  24069. End Sub
  24070. '++LotusScript Development Environment:2:2:Click:1:12
  24071. Sub Click(Source As Button)
  24072.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  24073. End Sub
  24074. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  24075. Use "CommonUI"
  24076. '++LotusScript Development Environment:2:5:(Forward):0:1
  24077. Declare Sub Click(Source As Button)
  24078. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24079. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24080. Private Sub BindEvents(Byval Objectname_ As String)
  24081. Static Source As BUTTON
  24082. Set Source = Bind(Objectname_)
  24083. On Event Click From Source Call Click
  24084. End Sub
  24085. '++LotusScript Development Environment:2:2:Click:1:12
  24086. Sub Click(Source As Button)
  24087.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  24088. End Sub
  24089. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  24090. Use "CommonUI"
  24091. '++LotusScript Development Environment:2:5:(Forward):0:1
  24092. Declare Sub Click(Source As Button)
  24093. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24094. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24095. Private Sub BindEvents(Byval Objectname_ As String)
  24096.     Static Source As BUTTON
  24097.     Set Source = Bind(Objectname_)
  24098.     On Event Click From Source Call Click
  24099. End Sub
  24100. '++LotusScript Development Environment:2:2:Click:1:12
  24101. Sub Click(Source As Button)
  24102.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  24103. End Sub
  24104. Tools\Delivery Information...
  24105. xxTitle
  24106. Delivery Information
  24107.     0S0E
  24108. DeliveryInfo
  24109. xxTitle
  24110.     0RR4S5S6S7S8S9S10S11S12S14S
  24111. Tools\Preferences...2
  24112. (Preferences)
  24113.     0S0E
  24114. Tools\New Memo - Using Stationery
  24115. '++LotusScript Development Environment:2:5:(Options):0:66
  24116. '++LotusScript Development Environment:2:5:(Forward):0:1
  24117. Declare Sub Click(Source As Button)
  24118. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24119. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24120. Private Sub BindEvents(Byval Objectname_ As String)
  24121.     Static Source As BUTTON
  24122.     Set Source = Bind(Objectname_)
  24123.     On Event Click From Source Call Click
  24124. End Sub
  24125. '++LotusScript Development Environment:2:2:Click:1:12
  24126. Sub Click(Source As Button)
  24127.     Dim session As New notessession
  24128.     Dim uiws As New notesuiworkspace
  24129.     Dim collection As notesdocumentcollection
  24130.     Dim noteUIEditDocument As notesuidocument
  24131.     Dim database As NotesDatabase
  24132.     Set noteCursorDoc = session.currentdatabase.createdocument
  24133.     Set database = session.currentdatabase
  24134.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  24135.     Set noteCursorDoc = collection.getfirstdocument
  24136.     If Not noteCursorDoc Is Nothing Then
  24137.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  24138.     End If
  24139. End Sub
  24140. Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
  24141. '++LotusScript Development Environment:2:5:(Forward):0:1
  24142. Declare Sub Click(Source As Button)
  24143. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24144. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24145. Private Sub BindEvents(Byval Objectname_ As String)
  24146.     Static Source As BUTTON
  24147.     Set Source = Bind(Objectname_)
  24148.     On Event Click From Source Call Click
  24149. End Sub
  24150. '++LotusScript Development Environment:2:2:Click:1:12
  24151. Sub Click(Source As Button)
  24152.     Call cMemoObject.InsertSignature(False)
  24153. End Sub
  24154. Save As Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  24155. '++LotusScript Development Environment:2:5:(Forward):0:1
  24156. Declare Sub Click(Source As Button)
  24157. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24158. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24159. Private Sub BindEvents(Byval Objectname_ As String)
  24160.     Static Source As BUTTON
  24161.     Set Source = Bind(Objectname_)
  24162.     On Event Click From Source Call Click
  24163. End Sub
  24164. '++LotusScript Development Environment:2:2:Click:1:12
  24165. Sub Click(Source As Button)
  24166.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  24167.     Call cMemoObject.noteUIMemo.save()
  24168.     Call cMemoObject.noteUIMemo.close()
  24169. End Sub
  24170. IsMailStationery
  24171.     1S2S
  24172. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  24173. '++LotusScript Development Environment:2:5:(Forward):0:1
  24174. Declare Sub Click(Source As Button)
  24175. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24176. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24177. Private Sub BindEvents(Byval Objectname_ As String)
  24178.     Static Source As BUTTON
  24179.     Set Source = Bind(Objectname_)
  24180.     On Event Click From Source Call Click
  24181. End Sub
  24182. '++LotusScript Development Environment:2:2:Click:1:12
  24183. Sub Click(Source As Button)
  24184.     Dim session As New notessession
  24185.     Dim uiws As New notesuiworkspace
  24186.     Dim collection As notesdocumentcollection
  24187.     Dim noteUIEditDocument As notesuidocument
  24188.     Dim database As NotesDatabase
  24189.     Set noteCursorDoc = session.currentdatabase.createdocument
  24190.     Set database = session.currentdatabase
  24191.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  24192.     Set noteCursorDoc = collection.getfirstdocument
  24193.     If Not noteCursorDoc Is Nothing Then
  24194.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  24195.     End If
  24196. End Sub
  24197. IsMailStationery
  24198.     1S2S
  24199. Lotus Product
  24200. OBJECT
  24201. Lotus Product(
  24202. #V0.0/8
  24203. }d    #8l
  24204. Lotus Product(
  24205. #V0.0/8
  24206. }d    #8l
  24207. Lotus Producte,
  24208. V0.0#
  24209. e,0sJ
  24210. f,lm}
  24211. f,lm}
  24212. f,ll}
  24213. KXg,lm}
  24214. h}`i#1
  24215. h,lm}
  24216. K@k,lm}
  24217. h}|l#1
  24218. k,`sX
  24219. Lotus Product(
  24220. #V0.0/8
  24221. }d    #8l
  24222. Lotus Producte,
  24223. V0.0#
  24224. e,0sJ
  24225. f,lm}
  24226. f,lm}
  24227. f,ll}
  24228. KXg,lm}
  24229. h}`i#1
  24230. h,lm}
  24231. K@k,lm}
  24232. h}|l#1
  24233. k,`sX
  24234. Lotus Product
  24235. }HV0.0'
  24236. Lotus Product
  24237. OBJECT
  24238. Lotus Product(
  24239. #V0.0/8
  24240. }d    #8l
  24241. Lotus Product
  24242. }HV0.0'
  24243. Lotus Product
  24244. OBJECT
  24245. Lotus Product
  24246. OBJECT
  24247. Lotus Product
  24248. OBJECT
  24249. Lotus Product
  24250. Lotus Product
  24251. OBJECT
  24252. Lotus Product
  24253. Lotus Product
  24254. OBJECT
  24255. Lotus Product
  24256. OBJECT
  24257. Lotus Product
  24258. OBJECT
  24259. O=Lotus Notes
  24260. O=Lotus Notes
  24261. PURSAFO
  24262. |.:#U
  24263. O=Lotus Notes
  24264. CN=Lotus Notes Template Development/O=Lotus Notes
  24265. PURSAFO
  24266. $$FormPostOpenAction
  24267. $TypeIcon
  24268. ExpireDate
  24269. ReplyDate
  24270. ComposedDate
  24271. $HeaderArea
  24272. $RegionFrameset
  24273. $Info
  24274. $WINDOWTITLE
  24275. $AppHelpFormula
  24276. $Script
  24277. $$Script_O
  24278. $$ScriptName
  24279. $$FormScript
  24280. $$$FormScript_O
  24281. $Body
  24282. $V5ACTIONS
  24283. $ACTIONS
  24284. $SCRIPTOBJ_0
  24285. $SCRIPTOBJ_1
  24286. $SCRIPTOBJ_2
  24287. $SCRIPTOBJ_3
  24288. $SCRIPTOBJ_16
  24289. $SCRIPTOBJ_17
  24290. $SCRIPTOBJ_18
  24291. $SCRIPTOBJ_19
  24292. $SCRIPTOBJ_20
  24293. $SCRIPTOBJ_21
  24294. $SCRIPTOBJ_25
  24295. $SCRIPTOBJ_26
  24296. $SCRIPTOBJ_27
  24297. $SCRIPTOBJ_28
  24298. $SCRIPTOBJ_29
  24299. $SCRIPTOBJ_32
  24300. $SCRIPTOBJ_33
  24301. $SCRIPTOBJ_34
  24302. $SCRIPTOBJ_35
  24303. '++LotusScript Development Environment:2:5:(Options):0:74
  24304. Option Public
  24305. Use "Common"
  24306. '++LotusScript Development Environment:2:5:(Forward):0:1
  24307. Declare Class ACLManager
  24308. Declare Class INIPreference
  24309. Declare Sub Initialize
  24310. Declare Sub UpdateAgentsAndOptions(note As NotesDocument)
  24311. '++LotusScript Development Environment:2:5:(Declarations):0:10
  24312. 'Preferences: 
  24313. Const READWRITE=&h010&
  24314. Const CANDELETE = &h100&
  24315. Const READPUBLIC= &h200&
  24316. Const WRITEPUBLIC= &h400&
  24317. Const NO_UPDATE_MANAGER = 37
  24318. Const NO_UPDATE_ACL = 42
  24319. Const WINDOW_TITLE = 61
  24320. Dim PreferenceControl As INIPreference
  24321. Dim DelagationControl As ACLManager
  24322. Class ACLManager
  24323.     Public StringTable As MailToolsStringTable
  24324.     Public MustDelegate As Integer    
  24325.     Private uiws As notesuiworkspace    
  24326.     Private session As notessession
  24327.     Private note As notesdocument    
  24328.     Private acl As notesacl
  24329.     Private aclentry As notesaclentry
  24330.     Private nam As notesname
  24331.     Private agentDelegateAgent As notesagent
  24332.     Private DefaultPublicReader As Integer
  24333.     Private DefaultPublicWriter As Integer
  24334.     Private DoNotEdit As Integer
  24335.     Private ACLIsDirty As Integer
  24336.     Private nSuccess As Integer
  24337.     Private x As Integer
  24338.     Private ReadCal() As String
  24339.     Private WriteCal() As String
  24340.     Private ReadMail() As String
  24341.     Private WriteMail() As String
  24342.     Private EditMail() As String
  24343.     Private DeleteMail() As String
  24344.     Private OtherUsers() As String
  24345.     Private AddedUsers() As String        
  24346. Declare Public Function Init()    
  24347. Declare Public Function Close(DiscardChanges As Integer)
  24348. Declare Public Function InvokeAgent()
  24349. Declare Private Function GetDefaultAccess()
  24350. Declare Private Function SetDefaultAccess()
  24351. Declare Private Function GetAclEntries()
  24352. Declare Private Function AddedUser()
  24353. Declare Private Function IsNameInACL(ACLName As String) As Integer    
  24354. Declare Private Function IsNameDesignerManager() As Integer
  24355. Declare Private Function UpdateACL(CurrentEntries As Variant,InitialEntries As Variant,LEVEL As Integer) As Integer
  24356. Declare Private Function ACLHasChanged(CurrentEntries As Variant,InitialEntries As Variant) As Integer
  24357. Declare Private Function IsPublicReader()
  24358. Declare Private Function IsPublicWriter()
  24359. Declare Private Sub RaiseUIError(nStringID As Integer)
  24360.     Sub New(note As notesdocument)
  24361.         Set Me.StringTable = New MailToolsStringTable            
  24362.         Set Me.session = New notessession        
  24363.         Set Me.uiws = New notesuiworkspace        
  24364.         Set Me.acl = note.parentdatabase.ACL
  24365.         Set Me.note = note        
  24366.         Me.note.autoreload = False
  24367.         Set Me.aclentry = Me.acl.GetEntry(Me.session.Username)
  24368.         If Me.aclentry Is Nothing Then
  24369.             Set Me.nam = New NotesName(Me.session.Username)
  24370.             Set Me.aclentry = Me.acl.GetEntry(Me.nam.Common)
  24371.         End If
  24372.         If Me.aclentry Is Nothing Then
  24373.         Elseif Me.aclentry.level < ACLLEVEL_MANAGER Then
  24374.             Me.DoNotEdit = True
  24375.         End If     
  24376.     End Sub
  24377.     Public Function Init()
  24378.         Call GetDefaultAccess()    
  24379.         Call GetAclEntries()
  24380.     End Function
  24381.     Public Function InvokeAgent()
  24382.         Set Me.agentDelegateAgent = Me.session.currentdatabase.getagent("DelegateUsingAdminP")
  24383.         Me.nSuccess = Me.agentDelegateAgent.Runonserver()
  24384.         If Not Me.nSuccess Then Messagebox("The agent didn't run!!")
  24385.     End Function
  24386.     Private Function IsPublicReader()
  24387.         If Me.aclentry.IsPublicReader Then
  24388.             x = Ubound(Me.ReadCal)
  24389.             Me.ReadCal(x) = Me.aclentry.Name
  24390.             Redim Preserve Me.ReadCal(x + 1)
  24391.         End If
  24392.     End Function
  24393.     Private Function IsPublicWriter()
  24394.         If Me.aclentry.IsPublicWriter Then
  24395.             x = Ubound(Me.WriteCal)
  24396.             Me.WriteCal(x) = Me.aclentry.Name
  24397.             Redim Preserve Me.WriteCal(x + 1)
  24398.         End If
  24399.     End Function
  24400.     Private Function AddedUser()
  24401.         x = Ubound(Me.AddedUsers)
  24402.         Me.AddedUsers(x) = Me.aclentry.Name
  24403.         Redim Preserve Me.AddedUsers(x+1)
  24404.     End Function
  24405.     Function IsNameDesignerManager() As Integer
  24406.         IsNameDesignerManager = False
  24407.         If Me.aclentry.level => ACLLEVEL_DESIGNER Then
  24408.             IsNameDesignerManager = True
  24409.         End If
  24410.     End Function
  24411.     Public Function Close(DiscardChanges As Integer)
  24412.         If DiscardChanges Then 
  24413.             Exit Function
  24414.         Else
  24415.             Call SetDefaultAccess()            
  24416.             If Me.DoNotEdit Then                            
  24417.                 If Me.ACLIsDirty Then
  24418.                     Me.MustDelegate = True                
  24419.                 End If
  24420.             End If
  24421.             If ACLHasChanged(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail)) Then
  24422.                 If Not Me.DoNotEdit Then                
  24423.                     Call UpdateACL(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail),ACLLEVEL_READER)                                
  24424.                 Else
  24425.                     Me.MustDelegate = True                
  24426.                 End If
  24427.             End If
  24428.             If ACLHasChanged(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail)) Then
  24429.                 If Not Me.DoNotEdit Then                                
  24430.                     Call UpdateACL(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail),READWRITE)             
  24431.                 Else
  24432.                     Me.MustDelegate = True                
  24433.                 End If                
  24434.             End If
  24435.             If ACLHasChanged(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail)) Then
  24436.                 If Not Me.DoNotEdit Then                                
  24437.                     Call UpdateACL(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail),ACLLEVEL_EDITOR)            
  24438.                 Else
  24439.                     Me.MustDelegate = True                
  24440.                 End If                
  24441.             End If
  24442.             If ACLHasChanged(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail)) Then
  24443.                 If Not Me.DoNotEdit Then                                
  24444.                     Call UpdateACL(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail),CANDELETE)             
  24445.                 Else
  24446.                     Me.MustDelegate = True                
  24447.                 End If                
  24448.             End If
  24449.             If ACLHasChanged(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal)) Then
  24450.                 If Not Me.DoNotEdit Then                                
  24451.                     Call UpdateACL(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal),READPUBLIC)     
  24452.                 Else
  24453.                     Me.MustDelegate = True                
  24454.                 End If                
  24455.             End If
  24456.             If ACLHasChanged(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal)) Then
  24457.                 If Not Me.DoNotEdit Then                                
  24458.                     Call UpdateACL(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal),WRITEPUBLIC)            
  24459.                 Else
  24460.                     Me.MustDelegate = True                
  24461.                 End If                
  24462.             End If
  24463.             If Me.ACLIsDirty Then
  24464.                 If Me.MustDelegate Then
  24465. '//we will catch this before destroying this object
  24466.                 Else
  24467.                     Call Me.ACL.SAVE()                
  24468.                 End If
  24469.             End If
  24470.         End If
  24471.     End Function
  24472.     Private Function ACLHasChanged(CurrentEntries As Variant,InitialEntries As Variant) As Integer
  24473.         ACLHasChanged = False
  24474.         If Ubound(CurrentEntries) <> Ubound(InitialEntries) Then
  24475.             Me.ACLIsDirty = True
  24476.             ACLHasChanged = True
  24477.             Exit Function
  24478.         Else
  24479.             For x = 0 To Ubound(InitialEntries)
  24480.                 If Not CurrentEntries(x) = InitialEntries(x) Then
  24481.                     Me.ACLIsDirty = True
  24482.                     ACLHasChanged = True
  24483.                     Exit Function
  24484.                 End If
  24485.             Next
  24486.         End If 
  24487.     End Function
  24488.     Private Function GetDefaultAccess()
  24489.         Set Me.aclentry = Me.acl.getentry("-Default-")
  24490.         If Me.aclentry Is Nothing Then
  24491.             Set Me.aclentry = Me.acl.createACLEntry("-Default-",ACLLEVEL_NOACCESS)            
  24492.         End If
  24493.         If Me.aclentry.ispublicreader Then
  24494.             Me.DefaultPublicReader = True
  24495.         Else
  24496.             Me.DefaultPublicReader = False
  24497.         End If
  24498.         If Me.aclentry.ispublicwriter Then
  24499.             Me.DefaultPublicWriter = True
  24500.         Else
  24501.             Me.DefaultPublicWriter = False
  24502.         End If
  24503.     End Function
  24504.     Private Function SetDefaultAccess()
  24505.         Set Me.aclentry = Me.acl.getentry("-Default-")
  24506.         If  Not Val(Me.note.getitemvalue("PublicRead")(0)) = Me.DefaultPublicReader Then
  24507.             If (0 - Val(Me.note.getitemvalue("PublicRead")(0))) Then
  24508.                 aclentry.ispublicreader = True
  24509.             Else
  24510.                 aclentry.ispublicreader = False
  24511.             End If
  24512.             Me.ACLIsDirty = True
  24513.         End If
  24514.         If Not Val(note.getitemvalue("PublicWrite")(0)) = Me.DefaultPublicWriter Then
  24515.             If (0 - Val(note.getitemvalue("PublicWrite")(0)))    Then        
  24516.                 aclentry.ispublicwriter = True
  24517.             Else
  24518.                 aclentry.ispublicwriter = False                
  24519.             End If
  24520.             Me.ACLIsDirty = True
  24521.         End If            
  24522.     End Function
  24523.     Private Function IsNameInACL(ACLName As Variant) As Integer
  24524.         IsNameInACL = False
  24525.         Set Me.aclentry = Me.acl.getentry(ACLName)
  24526.         If Not aclentry Is Nothing Then IsNameInACL = True
  24527.     End Function
  24528.     Private Function UpdateACL(CurrentEntries As Variant,InitialEntries As Variant,LEVEL As Integer) As Integer
  24529.         UpdateACL = False        
  24530.         Forall ACLName In InitialEntries
  24531.             If ACLName <> "" Then
  24532.                 If Arraygetindex(CurrentEntries,ACLName) => 0 Then
  24533.                 'we keep it as it was
  24534.                 Else
  24535.                     Set Me.aclentry = Me.acl.getentry(ACLName)
  24536.                     If Not Me.aclentry Is Nothing Then
  24537.                         If IsNameInACL(ACLName) Then
  24538.                             If IsNameDesignerManager() Then
  24539.                                 Call RaiseUIError(NO_UPDATE_MANAGER)                            
  24540.                             Else
  24541.                                 Select Case LEVEL
  24542.                                 Case CANDELETE
  24543.                                     Me.aclentry.candeletedocuments = False
  24544.                                 Case READPUBLIC
  24545.                                     Me.aclentry.ispublicreader = False                        
  24546.                                     Me.aclentry.ispublicwriter = False
  24547.                                 Case WRITEPUBLIC
  24548.                                     Me.aclentry.ispublicwriter = False
  24549.                                 Case Else
  24550.                                     If Isnull(Arraygetindex(Me.AddedUsers,ACLName)) Then
  24551.                                         Call Me.aclentry.remove()
  24552.                                     End If
  24553.                                 End Select
  24554.                             End If 
  24555.                         End If
  24556.                     End If
  24557.                 End If
  24558.             End If
  24559.         End Forall
  24560.         Forall ACLName In CurrentEntries
  24561.             If ACLName <> "" Then
  24562.                 If Arraygetindex(InitialEntries,ACLName) => 0 Then
  24563.                 'it's there so leave it alone
  24564.                 Else
  24565.                     If IsNameInACL(ACLName) Then
  24566.                         If IsNameDesignerManager() Then
  24567.                             Call RaiseUIError(NO_UPDATE_MANAGER)                                                    
  24568.                             Exit Function
  24569.                         End If
  24570.                     End If    
  24571.                     Select Case LEVEL
  24572.                     Case ACLLEVEL_READER
  24573.                         If IsNameInACL(ACLName) Then
  24574.                             Me.aclentry.level = Acllevel_reader
  24575.                         Else
  24576.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_reader)
  24577.                         End If
  24578.                         Call AddedUser()
  24579.                     Case READWRITE
  24580.                         If IsNameInACL(ACLName) Then
  24581.                             Me.aclentry.level = Acllevel_author
  24582.                         Else                    
  24583.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_author)
  24584.                         End If                        
  24585.                         Call AddedUser()
  24586.                         Me.aclentry.cancreatedocuments = True
  24587.                         Me.aclentry.candeletedocuments = False
  24588.                     Case ACLLEVEL_EDITOR                    
  24589.                         If IsNameInACL(ACLName) Then
  24590.                             Me.aclentry.level = Acllevel_editor
  24591.                         Else
  24592.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_editor)
  24593.                         End If 
  24594.                         Call AddedUser()
  24595.                         Me.aclentry.cancreatedocuments = True
  24596.                         Me.aclentry.candeletedocuments = False
  24597.                     Case READPUBLIC
  24598.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  24599.                         If Not Me.aclentry Is Nothing Then
  24600.                             Me.aclentry.ispublicreader = True
  24601.                         Else
  24602.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
  24603.                             Call AddedUser()
  24604.                             Me.aclentry.ispublicreader = True
  24605.                         End If
  24606.                     Case WRITEPUBLIC
  24607.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  24608.                         If Not Me.aclentry Is Nothing Then
  24609.                             Me.aclentry.ispublicreader = True
  24610.                             Me.aclentry.ispublicwriter = True
  24611.                         Else
  24612.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
  24613.                             Call AddedUser()
  24614.                             Me.aclentry.ispublicreader = True
  24615.                             Me.aclentry.ispublicwriter = True
  24616.                         End If
  24617.                         
  24618.                     Case CANDELETE
  24619.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  24620.                         If Not Me.aclentry Is Nothing Then
  24621.                             If Me.aclentry.level < ACLENTRY_AUTHOR Then
  24622.                                 Me.aclentry.level = ACLENTRY_AUTHOR
  24623.                             End If
  24624.                             Me.aclentry.candeletedocuments = True
  24625.                         Else
  24626.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_AUTHOR)
  24627.                             Call AddedUser()
  24628.                             Me.aclentry.candeletedocuments = True
  24629.                         End If
  24630.                     End Select
  24631.                 End If
  24632.             End If                
  24633.         End Forall
  24634.     End Function
  24635.     Sub RaiseUIError(nStringID As Integer)
  24636.         Call uiws.Prompt(Prompt_ok, Me.StringTable.GetString(TOOL_STRING+63,Null),_
  24637.         Me.StringTable.GetString(TOOL_STRING+nStringID,Null),,)
  24638.     End Sub
  24639.     Private Function GetAclEntries()    
  24640. 'clear current ui values        
  24641.         Me.note.ReadCalendar = ""
  24642.         Me.note.WriteCalendar = ""
  24643.         Me.note.ReadMail = ""
  24644.         Me.note.WriteMail = ""
  24645.         Me.note.EditMail = ""
  24646.         Me.note.DeleteMail = ""
  24647. 'initialize dynamic array
  24648.         Redim Me.ReadCal(0)
  24649.         Redim Me.WriteCal(0)
  24650.         Redim Me.ReadMail(0)
  24651.         Redim Me.WriteMail(0)
  24652.         Redim Me.EditMail(0) 
  24653.         Redim Me.DeleteMail(0) 
  24654.         Redim Me.OtherUsers(0)
  24655.         Redim Me.AddedUsers(0)
  24656.         Set Me.aclentry = Me.acl.GetFirstEntry
  24657.         Do Until Me.aclentry Is Nothing
  24658.             Select Case Me.aclentry.Level
  24659.             Case ACLLEVEL_NOACCESS
  24660.                 If Me.aclentry.Name = "-Default-" Then
  24661.                     If Me.aclentry.IsPublicReader Then
  24662.                         Me.note.PublicRead = "1"
  24663.                     Else
  24664.                         Me.note.PublicRead = "0"
  24665.                     End If
  24666.                     If Me.aclentry.IsPublicWriter Then
  24667.                         Me.note.PublicWrite = "1"
  24668.                     Else
  24669.                         Me.note.PublicWrite = "0"
  24670.                     End If
  24671.                 Else
  24672.                     If Me.aclentry.IsPublicReader Or Me.aclentry.IsPublicWriter Then
  24673.                         Call IsPublicReader()
  24674.                         Call IsPublicWriter()
  24675.                     Else
  24676. 'These are other NoAccess people and we don't want to change them
  24677.                         x = Ubound(Me.OtherUsers)
  24678.                         Me.OtherUsers(x) = Me.aclentry.Name
  24679.                         Redim Preserve Me.OtherUsers(x+1)
  24680.                     End If
  24681.                 End If
  24682.             Case ACLLEVEL_READER
  24683.                 x = Ubound(Me.ReadMail)
  24684.                 Me.ReadMail(x) = Me.aclentry.Name
  24685.                 Redim Preserve Me.ReadMail(x+1)
  24686.                 Call IsPublicReader()
  24687.                 Call IsPublicWriter()
  24688.             Case ACLLEVEL_AUTHOR
  24689.                 If Me.aclentry.CanCreateDocuments Then
  24690.                     x = Ubound(Me.WriteMail)
  24691.                     Me.WriteMail(x) = Me.aclentry.Name
  24692.                     Redim Preserve Me.WriteMail(x+1)
  24693.                 Else
  24694.                     x = Ubound(Me.ReadMail)
  24695.                     Me.ReadMail(x) = Me.aclentry.Name
  24696.                     Redim Preserve Me.ReadMail(x+1)
  24697.                 End If
  24698.                 If Me.aclentry.CanDeleteDocuments Then
  24699.                     x = Ubound(Me.DeleteMail)
  24700.                     Me.DeleteMail(x) = Me.aclentry.Name
  24701.                     Redim Preserve Me.DeleteMail(x+1)
  24702.                 End If
  24703.                 Call IsPublicReader()
  24704.                 Call IsPublicWriter()
  24705.             Case ACLLEVEL_EDITOR
  24706.                 x = Ubound(Me.EditMail)
  24707.                 Me.EditMail(x) = Me.aclentry.Name
  24708.                 Redim Preserve Me.EditMail(x+1)
  24709.                 If Me.aclentry.CanDeleteDocuments Then
  24710.                     x = Ubound(Me.DeleteMail)
  24711.                     Me.DeleteMail(x) = Me.aclentry.Name
  24712.                     Redim Preserve Me.DeleteMail(x+1)
  24713.                 End If
  24714.                 Call IsPublicReader()
  24715.                 Call IsPublicWriter()
  24716.             Case Else
  24717.                 'These are Manager and Designers and we don't want to change them
  24718.                 x = Ubound(Me.OtherUsers)
  24719.                 Me.OtherUsers(x) = aclentry.Name
  24720.                 Redim Preserve Me.OtherUsers(x+1)
  24721.             End Select
  24722.             Set Me.aclentry = Me.acl.GetNextEntry(Me.aclentry)
  24723.         Loop
  24724.         Me.note.ReadCalendar = Fulltrim(Me.ReadCal)
  24725.         Me.note.WriteCalendar = Fulltrim(Me.WriteCal)
  24726.         Me.note.ReadMail = Fulltrim(Me.ReadMail)
  24727.         Me.note.WriteMail = Fulltrim(Me.WriteMail)
  24728.         Me.note.EditMail = Fulltrim(Me.EditMail)
  24729.         Me.note.DeleteMail = Fulltrim(Me.DeleteMail)
  24730.         Me.note.OtherUsers = Fulltrim(Me.OtherUsers)
  24731.     End Function
  24732. End Class
  24733. Class INIPreference
  24734.     Private session As notessession
  24735.     Private note As notesdocument
  24736.     Private lngCurrentINISettings As Long
  24737.     Private nINISignSentMail As Integer
  24738.     Private nINIEncryptSentMail As Integer
  24739.     Private nINIEncryptSavedMail As Integer
  24740.     Private nUpdateINI As Integer    
  24741.     Private SIGN_SENT_MAIL As Long
  24742.     Private ENCRYPT_SENT_MAIL As Long
  24743.     Private ENCRYPT_SAVED_MAIL As Long
  24744. Declare Public Function Close()
  24745.     Sub New(hNote As notesdocument)
  24746.         Set Me.session = New notessession
  24747.         Set Me.note = hNote
  24748.         Me.SIGN_SENT_MAIL             = &h1000&        ' 4096
  24749.         Me.ENCRYPT_SENT_MAIL     = &h2000&        '  8192
  24750.         Me.ENCRYPT_SAVED_MAIL     = &h100000&    ' 1048576
  24751.         Me.lngCurrentINISettings = Me.session.Getenvironmentvalue("Preferences", True)
  24752.         If Me.lngCurrentINISettings And Me.SIGN_SENT_MAIL Then
  24753.             Call Me.note.replaceitemvalue("SignMail","1")
  24754.             Me.nINISignSentMail = 1
  24755.         Else
  24756.             Call Me.note.replaceitemvalue("SignMail","")
  24757.             Me.nINISignSentMail = 0
  24758.         End If
  24759.         If Me.lngCurrentINISettings And Me.ENCRYPT_SENT_MAIL Then
  24760.             Call Me.note.replaceitemvalue("EncryptSentMail","1")
  24761.             Me.nINIEncryptSentMail = 1
  24762.         Else
  24763.             Call Me.note.replaceitemvalue("EncryptSentMail","")
  24764.             Me.nINIEncryptSentMail = 0
  24765.         End If
  24766.         If Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL Then
  24767.             Call Me.note.replaceitemvalue("EncryptSavedMail","1")
  24768.             Me.nINIEncryptSavedMail = 1
  24769.         Else        
  24770.             Call Me.note.replaceitemvalue("EncryptSavedMail","")
  24771.             Me.nINIEncryptSavedMail = 0
  24772.         End If
  24773.     End Sub    
  24774.     Public Function Close()
  24775.         If Val(Me.note.getitemvalue("SignMail")(0)) <> Me.nINISignSentMail Then
  24776.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.SIGN_SENT_MAIL
  24777.             Me.nUpdateINI = True    
  24778.         End If
  24779.         If Val(Me.note.getitemvalue("EncryptSentMail")(0)) <> Me.nINIEncryptSentMail Then
  24780.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SENT_MAIL
  24781.             Me.nUpdateINI = True        
  24782.         End If
  24783.         If Val(Me.note.getitemvalue("EncryptSavedMail")(0)) <> Me.nINIEncryptSavedMail Then
  24784.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SAVED_MAIL
  24785.             Me.nUpdateINI = True        
  24786.         End If
  24787.         If Me.nUpdateINI Then    
  24788.             Call Me.session.setenvironmentvar("Preferences", Cstr(Me.lngCurrentINISettings),True)
  24789.         End If
  24790.     End Function
  24791. End Class    
  24792.     #define DEFAULTPUBREADER    4
  24793.     #define OTHERPUBREADERS        5
  24794.     #define DEFAULTPUBWRITER    6
  24795.     #define OTHERPUBWRITERS        7
  24796.     #define OTHERREADERS        8
  24797.     #define OTHERAUTHORS        9
  24798.     #define OTHEREDITORS        10
  24799.     #define OTHERDELETORS        11
  24800. %END REM
  24801. '++LotusScript Development Environment:2:2:Initialize:1:10
  24802. Sub Initialize
  24803.     Dim session As notessession    
  24804.     Dim db As notesdatabase
  24805.     Dim uiws As New notesuiworkspace    
  24806.     Dim m_calprofile As notesdocument
  24807.     Dim nSuccess As Integer        
  24808.     Set session = New notessession
  24809.     Set db = session.currentdatabase
  24810.     If db.currentaccesslevel < ACLLEVEL_AUTHOR Then
  24811.         Msgbox "You do not have sufficient rights to edit preferences for this database"
  24812.         Exit Sub
  24813.     End If
  24814.     Set m_calprofile = db.GetProfileDocument("CalendarProfile")
  24815.     Set PreferenceControl = New INIPreference(m_calprofile)    
  24816.     Set DelagationControl = New ACLManager(m_calprofile)
  24817.     Call DelagationControl.Init()
  24818.     Call m_calprofile.replaceitemvalue("$DialogMode","Mail")
  24819.     nSuccess = uiws.dialogbox("CalendarProfile",True,True,False,False,False,False,_
  24820.     DelagationControl.StringTable.GetString(TOOL_STRING+WINDOW_TITLE,Null),m_calprofile,True)
  24821.     If nSuccess Then
  24822.         Call m_calprofile.removeitem("$DialogMode")
  24823.         Call DelagationControl.Close(False)    
  24824.         Call PreferenceControl.Close()
  24825.         Call m_calprofile.save(True,True,True)
  24826.         If DelagationControl.MustDelegate Then
  24827. '//may change this to the destructor of the derived class            
  24828.             Call DelagationControl.InvokeAgent()        
  24829.         End If
  24830.         Call UpdateAgentsAndOptions(m_calprofile)
  24831.     End If
  24832. End Sub
  24833. '++LotusScript Development Environment:2:2:UpdateAgentsAndOptions:1:8
  24834. Sub UpdateAgentsAndOptions(note As NotesDocument)
  24835.     ' See if we need to update any of the agents
  24836.     Dim agent As notesagent
  24837.     Dim db As notesdatabase
  24838.     Dim session As New notessession
  24839.     Dim strHomeServer As String
  24840.     Set db = session.currentdatabase
  24841.     ' enable/disable to do's 
  24842.     If (note.GetItemValue("TaskFollow")(0) = "1") Then
  24843.         ' The user wants to do's to follow them around
  24844.         Set agent = db.GetAgent("Update Tasks")
  24845.         If Not(agent Is Nothing) Then
  24846.             If Not(agent.IsEnabled) Then
  24847.                 agent.IsEnabled = True
  24848.                 strHomeServer = session.getenvironmentstring("MailServer", True)
  24849.                 If Len(strHomeServer) = 0 Then
  24850.                     ' the location is local; check the current database
  24851.                     strHomeServer = db.Server
  24852.                     If Len(strHomeServer) = 0 Then
  24853.                         strHomeServer = session.UserName
  24854.                         Msgbox "You will need to enable agents locally in order for to do's do be updated daily"
  24855.                     End If
  24856.                 End If
  24857.                 agent.ServerName = strHomeServer
  24858.                 Call agent.save()
  24859.             End If
  24860.         End If
  24861.     Else
  24862.         ' The user does not want to do's to follow them around
  24863.         Set agent = db.GetAgent("Update Tasks")
  24864.         If Not(agent Is Nothing) Then
  24865.             If (agent.IsEnabled) Then
  24866.                 agent.IsEnabled = False
  24867.                 Call agent.save()
  24868.             End If
  24869.         End If
  24870.     End If
  24871.     ' enable/disable autoprocessing
  24872.     If (note.GetItemValue("AutoProcessLevel")(0) = "D") Then
  24873.         Call db.EnableDbOptions(2, False)
  24874.     Else
  24875.         Call db.EnableDbOptions(2, True)
  24876.     End If
  24877. End Sub
  24878. Lotus Product
  24879. V0.0a
  24880. \X    rX    
  24881. mD    K`
  24882. \D    rD    
  24883. mX    K`
  24884. \X    rX    
  24885. ~ ##K
  24886. \D    qD    
  24887. \X    qX    
  24888. \l    ql    
  24889. ml    K`
  24890. \l    rl    
  24891. ml    K`
  24892. \l    rl    
  24893. ~h##Jp
  24894. .h"Jh
  24895. O=Lotus Notes
  24896. O=Lotus Notes
  24897. PURSAFO
  24898. |.:#U
  24899. O=Lotus Notes
  24900. CN=Lotus Notes Template Development/O=Lotus Notes
  24901. PURSAFO
  24902. $TITLE
  24903. $AssistType
  24904. $AssistLastRun
  24905. $AssistDocCount
  24906. $AssistFlags
  24907. $AssistTrigger
  24908. $AssistInfo
  24909. $AssistQuery
  24910. $AssistAction
  24911. $AssistAction_Ex
  24912. Lotus Product
  24913. OBJECT
  24914. (subOption)
  24915. UserOptions
  24916. UserOptions
  24917. OptionLabel
  24918. OptionLabel
  24919. SelectedOptions
  24920. UserOptions
  24921. UserOptions
  24922.     0S0E
  24923. TraceType
  24924. Delivery status only|0Trace entire path|1
  24925. O=Lotus Notes
  24926. O=Lotus Notes
  24927. PURSAFO
  24928. |.:#U
  24929. O=Lotus Notes
  24930. CN=Lotus Notes Template Development/O=Lotus Notes
  24931. PURSAFO
  24932. [Cf-x*
  24933. $Info
  24934. $$Script_O
  24935. $$ScriptName
  24936. $Body
  24937. Lotus Product
  24938. (RepeatForm)
  24939. Every month on the|1
  24940. Every other month on the|2
  24941. Every 3rd month on the|3
  24942. Every 4th month on the|4
  24943. Every 5th month on the|5
  24944. Every 6th month on the|6
  24945. Every 7th month on the|7
  24946. Every 8th month on the|8
  24947. Every 9th month on the|9
  24948. Every 10th month on the|10
  24949. Every 11th month on the|11
  24950. Every 12th month on the|12
  24951.     8R16RtmpRIMDMP
  24952. Every year|1
  24953. Every other year|2
  24954. Every 3rd year|3
  24955. Every 4th year|4
  24956. Every 5th year|5
  24957. Every 6th year|6
  24958. Every 7th year|7
  24959. Every 8th year|8
  24960. Every 9th year|9
  24961. Every 10th year|10
  24962.     10RtmpRIY
  24963. Every|1
  24964. Every 2nd|2
  24965. Every 3rd|3
  24966. Every 4th|4
  24967. Every 5th|5
  24968. Every 6th|6
  24969. Every 7th|7
  24970. Every 8th|8
  24971. tmpRIW
  24972. Every day|1
  24973. Every 2nd day|2
  24974. Every 3rd day|3
  24975. Every 4th day|4
  24976. Every 5th day|5
  24977. Every 6th day|6
  24978. Every 7th day|7
  24979. Every 8th day|8
  24980. Every 9th day|9
  24981. Every 10th day|10
  24982. Every 11th day|11
  24983. Every 12th day|12
  24984. Every 13th day|13
  24985. Every 14th day|14
  24986. Every 15th day|15
  24987. Every 16th day|16
  24988. Every 17th day|17
  24989. Every 18th day|18
  24990. Every 19th day|19
  24991. Every 20th day|20
  24992. Every 21st day|21
  24993. Every 22nd day|22
  24994. Every 23rd day|23
  24995. Every 24th day|24
  24996. Every 25th day|25
  24997. Every 26th day|26
  24998. Every 27th day|27
  24999. Every 28th day|28
  25000. Every 29th day|29
  25001. Every 30th day|30
  25002. Every 31st day|31
  25003.     10R20R30R40R50R60R
  25004. tmpRID
  25005. 1st day|1
  25006. 2nd day|2
  25007. 3rd day|3
  25008. 4th day|4
  25009. 5th day|5
  25010. 6th day|6
  25011. 7th day|7
  25012. 8th day|8
  25013. 9th day|9
  25014. 10th day|10
  25015. 11th day|11
  25016. 12th day|12
  25017. 13th day|13
  25018. 14th day|14
  25019. 15th day|15
  25020. 16th day|16
  25021. 17th day|17
  25022. 18th day|18
  25023. 19th day|19
  25024. 20th day|20
  25025. 21st day|21
  25026. 22nd day|22
  25027. 23rd day|23
  25028. 24th day|24
  25029. 25th day|25
  25030. 26th day|26
  25031. 27th day|27
  25032. 28th day|28
  25033. 29th day|29
  25034. 30th day|30
  25035. 31st day|31
  25036.     20R38R56RtmpRAMD
  25037. Sunday|0
  25038. Monday|1
  25039. Tuesday|2
  25040. Wednesday|3
  25041. Thursday|4
  25042. Friday|5
  25043. Saturday|6
  25044.     0S0E
  25045. tmpRAW
  25046. 1st Sunday|1.0
  25047. 1st Monday|1.1
  25048. 1st Tuesday|1.2
  25049. 1st Wednesday|1.3
  25050. 1st Thursday|1.4
  25051. 1st Friday|1.5
  25052. 1st Saturday|1.6
  25053. 2nd Sunday|2.0
  25054. 2nd Monday|2.1
  25055. 2nd Tuesday|2.2
  25056. 2nd Wednesday|2.3
  25057. 2nd Thursday|2.4
  25058. 2nd Friday|2.5
  25059. 2nd Saturday|2.6
  25060. 3rd Sunday|3.0
  25061. 3rd Monday|3.1
  25062. 3rd Tuesday|3.2
  25063. 3rd Wednesday|3.3
  25064. 3rd Thursday|3.4
  25065. 3rd Friday|3.5
  25066. 3rd Saturday|3.6
  25067. 4th Sunday|4.0
  25068. 4th Monday|4.1
  25069. 4th Tuesday|4.2
  25070. 4th Wednesday|4.3
  25071. 4th Thursday|4.4
  25072. 4th Friday|4.5
  25073. 4th Saturday|4.6
  25074. Last Sunday|5.0
  25075. Last Monday|5.1
  25076. Last Tuesday|5.2
  25077. Last Wednesday|5.3
  25078. Last Thursday|5.4
  25079. Last Friday|5.5
  25080. Last Saturday|5.6
  25081.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
  25082. RepeatUnit
  25083. RepeatHow
  25084.     Under Construction
  25085.     Starting: 
  25086. StartDateTime
  25087. StartDateTime
  25088. RepeatStartDate
  25089. You must enter a value for start date.{
  25090. RepeatStartDate
  25091.     Repeat: 
  25092. RepeatUnit
  25093. AppointmentType
  25094. RepeatUnit
  25095. RepeatUnit
  25096. Daily|DWeekly|WMonthly by Date|MDMonthly by Day|MPYearly|YCustom|C
  25097. RepeatInterval
  25098. RepeatUnit
  25099. tmpRID
  25100. RepeatUNit
  25101. tmpRIMDMP
  25102. RepeatUNit
  25103. tmpRIY
  25104. RepeatUnit
  25105. tmpRIW
  25106. RepeatUnit
  25107.     1S2S
  25108.     Continuing: 
  25109. RepeatHow
  25110. Until|UFor|F
  25111. RepeatUnit
  25112. RepeatHow
  25113.     1S2S3S4S5S6S
  25114. RepeatFor
  25115. RepeatForUnit
  25116. Days|D
  25117. Weeks
  25118. Weeks|W
  25119. Months
  25120. Months|M
  25121. Years
  25122. Years|Y
  25123. RepeatUnit
  25124. Weeks
  25125. Months
  25126. Years
  25127. RepeatUnit
  25128. Weeks
  25129. Months
  25130. Years
  25131. RepeatUnit
  25132. Months
  25133. Years
  25134. Years
  25135. RepeatUnit
  25136. RepeatHow
  25137.     1S2S3S4S5S6S
  25138. StartDate
  25139. RepeatStartDate
  25140. RepeatUnit
  25141. StartDate
  25142. RepeatUnit
  25143. StartDate
  25144. RepeatUnit
  25145. StartDate
  25146. RepeatUnit
  25147. StartDate
  25148. StartDate
  25149. RepeatUntil
  25150. RepeatUnit
  25151.     1S2S
  25152. RepeatUnit
  25153. RepeatStartDate
  25154.     3S4S6S16S
  25155. RepeatUnit
  25156. RepeatAdjust
  25157. You must select at least one adjustment.{
  25158.     3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
  25159. RepeatUnit
  25160. RepeatUnit
  25161. tmpRAMD
  25162. RepeatUnit
  25163. tmpRAMP
  25164. RepeatUnit
  25165. tmpRAW
  25166. RepeatUnit
  25167. RepeatCustom
  25168. RepeatUnit
  25169.     1S2S
  25170. RepeatFromEnd
  25171. Start from the end of the month|1
  25172. RepeatUnit
  25173.     1S2S3S4S5S6S
  25174.     If the date occurs on a weekend: 
  25175. RepeatWeekends
  25176. Don't Move|DMove to Friday|FMove to Monday|MMove to Nearest Weekday|NDelete|X
  25177. O=Lotus Notes
  25178. O=Lotus Notes
  25179. PURSAFO
  25180. |.:#U
  25181. O=Lotus Notes
  25182. CN=Lotus Notes Template Development/O=Lotus Notes
  25183. PURSAFO
  25184. $Info
  25185. $$Script_O
  25186. $$ScriptName
  25187. RepeatStartDate
  25188. RepeatFor
  25189. RepeatUntil
  25190. RepeatCustom
  25191. $Body
  25192. $PublicAccess
  25193.  (ReplyNotice)
  25194. (ReplyNotice)
  25195. MailOptions
  25196. SaveOptions
  25197. tmpDocHeader
  25198. tmpDocHeader
  25199.     Send To: 
  25200. SendTo^
  25201.     0S0E
  25202. tmpSendTo
  25203.     Subject: 
  25204. Subject
  25205. tmpSubject
  25206.     Comments
  25207. StatusUpdate
  25208. Categori_zeK
  25209. _Edit Document
  25210. Send Docu_ment
  25211. _Forward
  25212. _Move To Folder...
  25213. _Remove From FolderK
  25214. Send'++LotusScript Development Environment:2:5:(Options):0:66
  25215. '++LotusScript Development Environment:2:5:(Forward):0:1
  25216. Declare Sub Click(Source As Button)
  25217. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25218. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25219. Private Sub BindEvents(Byval Objectname_ As String)
  25220.     Static Source As BUTTON
  25221.     Set Source = Bind(Objectname_)
  25222.     On Event Click From Source Call Click
  25223. End Sub
  25224. '++LotusScript Development Environment:2:2:Click:1:12
  25225. Sub Click(Source As Button)
  25226.     Dim ws As NotesUIWorkspace
  25227.     Dim uidoc As NotesUIDocument
  25228.     Dim note As NotesDocument
  25229.     Dim sFormname As String
  25230.     Set ws = New NotesUIworkspace
  25231.     Set uidoc = ws.CurrentDocument
  25232.     Set note = uidoc.Document
  25233.     sformname = note.getitemvalue("FormToUse")(0)
  25234.     Call note.ReplaceItemValue("Form", sFormname)
  25235.     Call note.RemoveItem("$MessageType")    
  25236.     uidoc.Reload
  25237.     uidoc.send
  25238.     uidoc.close
  25239. End Sub
  25240. Categori_zeK
  25241. _Edit Document
  25242. Send Docu_ment
  25243. _Forward
  25244. _Move To Folder...
  25245. _Remove From FolderK
  25246. Send'++LotusScript Development Environment:2:5:(Options):0:66
  25247. '++LotusScript Development Environment:2:5:(Forward):0:1
  25248. Declare Sub Click(Source As Button)
  25249. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25250. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25251. Private Sub BindEvents(Byval Objectname_ As String)
  25252.     Static Source As BUTTON
  25253.     Set Source = Bind(Objectname_)
  25254.     On Event Click From Source Call Click
  25255. End Sub
  25256. '++LotusScript Development Environment:2:2:Click:1:12
  25257. Sub Click(Source As Button)
  25258.     Dim ws As NotesUIWorkspace
  25259.     Dim uidoc As NotesUIDocument
  25260.     Dim note As NotesDocument
  25261.     Dim sFormname As String
  25262.     Set ws = New NotesUIworkspace
  25263.     Set uidoc = ws.CurrentDocument
  25264.     Set note = uidoc.Document
  25265.     sformname = note.getitemvalue("FormToUse")(0)
  25266.     Call note.ReplaceItemValue("Form", sFormname)
  25267.     Call note.RemoveItem("$MessageType")    
  25268.     uidoc.Reload
  25269.     uidoc.send
  25270.     uidoc.close
  25271. End Sub
  25272. Lotus Product
  25273. OBJECT
  25274. O=Lotus Notes
  25275. O=Lotus Notes
  25276. PURSAFO
  25277. |.:#U
  25278. O=Lotus Notes
  25279. CN=Lotus Notes Template Development/O=Lotus Notes
  25280. PURSAFO
  25281. BC=r^
  25282. $HTMLDocumentStyles
  25283. $Info
  25284. $$ScriptName
  25285. $Body
  25286. $V5ACTIONS
  25287. $ACTIONS
  25288. $SCRIPTOBJ_6
  25289. $PublicAccess
  25290. '++LotusScript Development Environment:2:5:(Options):0:74
  25291. Option Public
  25292. Option Explicit
  25293. Use "CSUIDocClass"
  25294. Use "Common"
  25295. '++LotusScript Development Environment:2:5:(Forward):0:1
  25296. Declare Sub Initialize
  25297. Declare Sub BuildList(source As Notesuidocument)  
  25298. '++LotusScript Development Environment:2:5:(Declarations):0:10
  25299. Dim uicsdoc As BaseUIEventDocument    
  25300. Dim vbooks As Variant
  25301. Dim currentnab As String   
  25302. '++LotusScript Development Environment:2:2:Initialize:1:10
  25303. Sub Initialize
  25304. End Sub
  25305. '++LotusScript Development Environment:2:2:BuildList:1:8
  25306. Sub BuildList(source As Notesuidocument)  
  25307.     Dim doc As NotesDocument
  25308.     Dim servername As String
  25309.     Dim filename As String    
  25310.     Dim vResultSite As Variant
  25311.     Dim vResultCategory As Variant    
  25312.     Dim dbname As Variant
  25313.     Dim l,b,e As Integer
  25314.     Dim resourcetype As Variant
  25315.     Set doc=source.document    
  25316.     'get current selected NAB
  25317.     dbname = doc.getItemValue("NABs")
  25318.     resourcetype=doc.getitemValue("ResourceType")
  25319.     If currentnab<> dbname(0)Then
  25320.         l=Len(dbname(0))    
  25321.         b=Instr(dbname(0),"|")
  25322.         e=Instr(dbname(0),"*")
  25323.         servername=Mid(dbname(0), b+1, (e-b-1))
  25324.         filename=Right(dbname(0),(l-e))
  25325.         vResultSite=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Rooms)';1 )|)    
  25326.         Call doc.ReplaceitemValue("tmpSite", vResultSite)
  25327.         If vResultSite(0)="" Then Msgbox "no Site entry found"             
  25328.         If resourcetype(0)="2" Then
  25329.             vResultCategory=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Resources)';3 )|)    
  25330.             Call doc.ReplaceitemValue("tmpCategory", vResultCategory)
  25331.             If vResultCategory(0)="" Then Msgbox "no Category entry found"                         
  25332.         End If
  25333.         Call source.reload
  25334.         currentnab=dbname(0)    
  25335.     End If    
  25336. End Sub
  25337. Lotus Product
  25338. OBJECT
  25339. (Room Resource Scheduler)'++LotusScript Development Environment:2:5:(Options):0:66
  25340. '++LotusScript Development Environment:2:5:(Forward):0:1
  25341. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  25342. Declare Sub Postopen(Source As Notesuidocument)
  25343. Declare Sub Postrecalc(Source As Notesuidocument)
  25344. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25345. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25346. Private Sub BindEvents(Byval Objectname_ As String)
  25347.     Static Source As NOTESUIDOCUMENT
  25348.     Set Source = Bind(Objectname_)
  25349.     On Event Queryopen From Source Call Queryopen
  25350.     On Event Postopen From Source Call Postopen
  25351.     On Event Postrecalc From Source Call Postrecalc
  25352. End Sub
  25353. '++LotusScript Development Environment:2:2:Queryopen:1:12
  25354. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  25355.     Dim s As New NotesSession
  25356.     Dim item As NotesItem
  25357.     Dim doc As NotesDocument
  25358.     Dim nabentry As String
  25359.     Dim hasbooks As Integer
  25360.     Set doc=source.document
  25361.     vbooks=s.AddressBooks
  25362.     Set item = doc.getfirstitem("AddressBooks")
  25363.     'need to put public address books into the Addressbooks field
  25364.     Forall v In vbooks
  25365.         If v.IsPublicAddressBook Then 
  25366.             If Len(v.filename) > 0 Then
  25367.                 hasbooks=True
  25368.                 If v.isopen Then
  25369.                     nabentry = v.title + "|"+v.server+"*" + v.filename
  25370.                 Else
  25371.                     Call  v.open("", "")                    
  25372.                     nabentry = v.title +  "|"+v.server+"*" + v.filename
  25373.                 End If
  25374.                 Call item.AppendToTextList (nabentry)
  25375.             End If
  25376.         End If        
  25377.     End Forall
  25378.     If Not(hasbooks) Then 
  25379.         Msgbox "No Name and Address books were found."
  25380.         continue=False
  25381.     End If
  25382. End Sub
  25383. '++LotusScript Development Environment:2:2:Postopen:1:12
  25384. Sub Postopen(Source As Notesuidocument)
  25385.     Call BuildList(source)    
  25386.     Call source.refresh
  25387. End Sub
  25388. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  25389. Sub Postrecalc(Source As Notesuidocument)
  25390.     Call BuildList(source)        
  25391. End Sub
  25392. Lotus Product
  25393. choices
  25394. ResourceNamej
  25395. ResourceNameSingle
  25396. ResourceNamej
  25397. ResourceNameMulti
  25398.     0S0E
  25399. RoomToReserve
  25400. ResourceType
  25401. choices
  25402. choices
  25403. RoomToReserve
  25404.     0R1S15S
  25405. Resources
  25406. ResourceType
  25407. choices
  25408. choices
  25409. Resources
  25410.     0R1S15S
  25411. RoomToReserve
  25412. '++LotusScript Development Environment:2:5:(Options):0:66
  25413. '++LotusScript Development Environment:2:5:(Forward):0:1
  25414. Declare Sub Entering(Source As Field)
  25415. Declare Sub Exiting(Source As Field)
  25416. '++LotusScript Development Environment:2:5:(Declarations):0:10
  25417. Dim dtStart As NotesDateTime
  25418. Dim dtEnd As NotesDateTime
  25419. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25420. Private Sub BindEvents(Byval Objectname_ As String)
  25421. Static Source As FIELD
  25422. Set Source = Bind(Objectname_)
  25423. On Event Entering From Source Call Entering
  25424. On Event Exiting From Source Call Exiting
  25425. End Sub
  25426. '++LotusScript Development Environment:2:2:Entering:1:12
  25427. Sub Entering(Source As Field)
  25428.     Dim note As NotesDocument
  25429.     Set note = uicsdoc.UIDocument.Document
  25430.     Call TIMEGetFromItem("EndDate", note, dtEnd)
  25431.     Call TIMEGetFromItem("StartDate", note, dtStart)
  25432. End Sub
  25433. '++LotusScript Development Environment:2:2:Exiting:1:12
  25434. Sub Exiting(Source As Field)
  25435.     Dim note As NotesDocument
  25436.     Dim dtNewStart As NotesDateTime
  25437.     Dim dtNewEnd As NotesDateTime
  25438.     Dim lDifference As Long
  25439.     Set note = uicsdoc.UIDocument.Document
  25440.     Call TIMEGetFromItem("StartDate", note, dtNewStart)
  25441.     lDifference = TIMECompareDates(dtNewStart, dtStart)
  25442.     If (lDifference = 0) Then Exit Sub
  25443.     ' If the new day is beyond the enddate, adjust the enddate
  25444.     If (dtNewStart.TimeDifference(dtEnd) > 0) Then
  25445.         Call dtEnd.AdjustDay(lDifference, True)
  25446.         Call note.ReplaceItemValue("EndDate", dtEnd)
  25447.         Call uicsdoc.UIDocument.Reload
  25448.     End If
  25449. End Sub
  25450. Lotus Product
  25451. OBJECT
  25452. -<    #-t    #
  25453. -<    #-t    #
  25454. -<    #,,
  25455. ResourceType
  25456. Reserve a Room|1Reserve a Resource|2
  25457. ResourceName
  25458. ResourceName
  25459. AddressBooks
  25460. tmpSite
  25461. tmpCategory
  25462. FindResourceStyle
  25463.     0S0E
  25464.     How would you like search:
  25465. FindResourceStyle
  25466.     0S0E
  25467. FindResourceStyle
  25468. ResourceType
  25469. room(s)
  25470. resource(s)
  25471.     0S0E
  25472. find an available 
  25473.  at a specific time|1
  25474. find an available time for a specific 
  25475.     0R8R
  25476. FindResourceStyle
  25477.     0S0E
  25478. FindResourceStyle
  25479.     0S0E
  25480. FindResourceStyle
  25481.     Specific 
  25482. ResourceType
  25483. room(s)
  25484. resource(s)
  25485.     6S8S
  25486. ResourceType
  25487. FindResourceStyle
  25488.     0S0E
  25489. RoomToReserve
  25490. RoomToReserve
  25491. ResourceType
  25492. FindResourceStyle
  25493.     0S0E
  25494. Resources
  25495. Resource
  25496. FindResourceStyle
  25497.     0S0E
  25498.     Specific time:
  25499.     Date:
  25500. .,$ //:
  25501. StartDate
  25502. StartDateTime
  25503. StartDateTime
  25504. StartDate
  25505.     3S4S6S15S18S
  25506. xxFailed
  25507. You must enter a value for the Start Date.
  25508. StartDate
  25509. xxFailed{
  25510.     0R3S4S6S11SStartDate
  25511.     Start at:
  25512. .,$ //:
  25513. StartTime
  25514. StartDateTime
  25515. StartDateTime
  25516. StartTime
  25517.     3S4S6S15S18S
  25518. xxFailed
  25519. You must enter a value for the Start Time.
  25520. StartTime
  25521. AppointmentType
  25522. AppointmentType
  25523. xxFailed{
  25524.     0R3S4S5S6S7S8S9S10S11S12S14S19SStartTime
  25525.     End at:
  25526. .,$ //:
  25527. EndTime
  25528. EndDateTime
  25529. EndDateTime
  25530. EndTime
  25531.     3S4S6S15S
  25532. xxFailed
  25533. You must enter a value for the End Time.
  25534. EndTime
  25535. AppointmentType
  25536. AppointmentType
  25537. AppointmentType
  25538. xxFailed{
  25539.     0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTime
  25540.     Address Books: 
  25541. AddressBooks
  25542.     0S0E
  25543. Addressbooks
  25544.     0S0E
  25545.     Site:
  25546. tmpSite
  25547. ResourceType
  25548. FindResourceStyle
  25549.     3S4S
  25550.     # of attendees:
  25551. ResourceType
  25552. FindResourceStyle
  25553.     3S4S
  25554. .,$///:
  25555. SendToj
  25556. CopyToj
  25557.     0S0E
  25558. Capacity
  25559. ResourceType
  25560. FindResourceStyle
  25561.     3S4S
  25562.     Category:
  25563. ResourceType
  25564. FindResourceStyle
  25565.     3S4S
  25566. ResourceCategory
  25567. ResourceCategory
  25568. tmpCategory
  25569. StartTime
  25570. EndTime
  25571. Error
  25572. Start time should be prior to End time.
  25573.     3S4S6S12S14S
  25574. tmpStartDateTime
  25575. StartDate
  25576. StartTime
  25577. tmpEndDateTime
  25578. StartDate
  25579. EndTime
  25580. StartDate
  25581. Error
  25582. You cannot reserve a room for a date which has already occurred.
  25583.     0R7S8S14S
  25584. Keyarg
  25585. CN=*/
  25586. ResourceType
  25587. Site"
  25588. ResourceCategory"
  25589. Site"
  25590. ResNameCheck
  25591. ResourceType
  25592. Keyarg
  25593. ResourceType
  25594. tmpStartDateTime
  25595. tmpEndDateTime
  25596. Capacity
  25597. Keyarg
  25598. ResourceType
  25599. tmpStartDateTime
  25600. tmpEndDateTime
  25601. ResNameCheckZ
  25602. Error
  25603. You received the following error when trying to find a room: 
  25604. ResNameCheck"
  25605. ResourceNameSingle
  25606. ResNameCheck
  25607.     0R1S
  25608. ResourceName
  25609. ResNameCheck
  25610. No resource/room found for times and/or capacity requirements.
  25611. ResNameCheck
  25612.     0R1S
  25613. Search
  25614. '++LotusScript Development Environment:2:5:(Options):0:66
  25615. '++LotusScript Development Environment:2:5:(Forward):0:1
  25616. Declare Sub Click(Source As Button)
  25617. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25618. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25619. Private Sub BindEvents(Byval Objectname_ As String)
  25620.     Static Source As BUTTON
  25621.     Set Source = Bind(Objectname_)
  25622.     On Event Click From Source Call Click
  25623. End Sub
  25624. '++LotusScript Development Environment:2:2:Click:1:12
  25625. Sub Click(Source As Button)
  25626.     Dim ws As New NotesUiWorkspace
  25627.     Dim note As notesDocument
  25628.     Dim beobject As Variant
  25629.     Dim dt As notesdatetime
  25630.     Dim uidoc As NotesUIDocument
  25631.     Dim bOwner As Integer
  25632.     Set uidoc=ws.CurrentDocument
  25633.     Set uicsdoc = New BaseUIEventDocument(uidoc, 1, bOwner)
  25634.     Set beobject = uicsdoc.uiobject.beobject
  25635.     Call beobject.Init(uidoc.document)
  25636.     Set note = beobject.Document
  25637.     Call beobject.UpdateDateTimeItems()
  25638.     If (uicsdoc.FreeTimeDlg()) Then
  25639.         ' The user might have changed the times
  25640.         Call TIMEGetFromitem( "StartDateTime", note, dt)
  25641.         Call note.replaceitemvalue("StartDate", dt)
  25642.         Call note.replaceitemvalue("dStartDate", dt)        
  25643.         Call note.replaceitemvalue("StartTime", dt)
  25644.         Call note.replaceitemvalue("dStartTime", dt)
  25645.         Call TIMEGetFromitem( "EndDateTime", note, dt)
  25646.         Call note.replaceitemvalue("EndDate", dt)
  25647.         Call note.replaceitemvalue("EndTime", dt)
  25648.         Call note.replaceitemvalue("dEndTime", dt)
  25649.         Call uicsdoc.UIDocument.Reload
  25650.         Call uicsdoc.UIDocument.Refresh
  25651.     End If
  25652. End Sub
  25653. Lotus Product
  25654. OBJECT
  25655. <    <    |
  25656. -<    #'
  25657. New Button
  25658. Need a newer version of Notes to execute this button.
  25659.     0S0E
  25660. Search
  25661. ResourceName
  25662. FindResourceStyle
  25663.     3S4S
  25664.     Search results:
  25665. ResourceType
  25666. FindResourceStyle
  25667. ResourceName
  25668.     3S4S7S8S
  25669. Available room(s):
  25670. ResourceType
  25671. FindResourceStyle
  25672. ResourceName
  25673.     3S4S7S8S
  25674. Available resource(s):
  25675. ResourceName
  25676. FindResourceStyle
  25677. ResourceNamej
  25678.     3S4S9S10S
  25679. ResourceNameSingle
  25680. ResourceNameSingle
  25681. ResourceName
  25682. FindResourceStyle
  25683. ResourceNamej
  25684.     3S4S9S10S
  25685. ResourceNameMulti
  25686. ResourceName
  25687.     0S0E
  25688. FindResourceStyle
  25689. dStartTimeV
  25690.     3S4S
  25691.     Available time:
  25692. .,$ //:
  25693. dstarttime
  25694. dStartTime
  25695.      -  
  25696. .,$ //:
  25697. dendtime
  25698. dEndTime
  25699.      on 
  25700. .,$ //:
  25701. dstartdate
  25702. dStartDate
  25703. O=Lotus Notes
  25704. O=Lotus Notes
  25705. PURSAFO
  25706. |.:#U
  25707. O=Lotus Notes
  25708. CN=Lotus Notes Template Development/O=Lotus Notes
  25709. PURSAFO
  25710.  66NP
  25711. $Info
  25712. $Script
  25713. $$Script_O
  25714. $$ScriptName
  25715. $$FormScript
  25716. $$$FormScript_O
  25717. $$FormAction2
  25718. $$StartDate
  25719. $StartDate_O
  25720. StartDate
  25721. StartTime
  25722. EndTime
  25723. Capacity
  25724. dStartTime
  25725. dEndTime
  25726. dStartDate
  25727. $Body
  25728. $PublicAccess
  25729. Mail Rule
  25730. '++LotusScript Development Environment:2:5:(Options):0:66
  25731. Option Public
  25732. '++LotusScript Development Environment:2:5:(Forward):0:1
  25733. Declare Function FieldString(itmfield As Variant) As String
  25734. Declare Function LogicString(vlogic As Variant, vcondition As Variant) As String
  25735. Declare Function ActionString(vaction As Variant, note As notesdocument) As String
  25736. Declare Sub ProcessConditions
  25737. Declare Sub ProcessActions
  25738. Declare Sub ProcessExceptions
  25739. Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  25740. Declare Sub ActionParser(strAction As String, strFolder As String, strstring As String)
  25741. Declare Sub AddCondition
  25742. Declare Sub AddException
  25743. Declare Sub GetValues
  25744. Declare Function OperatorString(voperator As Variant)
  25745. Declare Function GetString ( StringType As Variant) As String
  25746. '++LotusScript Development Environment:2:5:(Declarations):0:10
  25747. Dim session As notessession
  25748. Dim db As notesdatabase
  25749. Dim uidoc As notesuidocument
  25750. Dim note As notesdocument
  25751. Dim bnewdoc As Variant
  25752. Dim strformula As String
  25753. Dim strlogic As String
  25754. Dim strstring As String
  25755. Dim stroperator As String
  25756. Dim straction As String
  25757. Dim strfolder As String
  25758. Dim vstring As Variant
  25759. Dim vlogic As Variant
  25760. Dim vcondlogic As Variant
  25761. Dim voperator As Variant
  25762. Dim strcondition As String
  25763. Dim vexception As Variant
  25764. Dim vexceptionlist As notesitem
  25765. Dim vtokexceptionlist As notesitem
  25766. Dim vimportance As Variant
  25767. Dim vdomains As Variant    
  25768. Dim vcondition As Variant
  25769. Dim vconditionlist As notesitem
  25770. Dim vtokconditionlist As notesitem
  25771. '++LotusScript Development Environment:2:1:FieldString:1:8
  25772. Function FieldString(itmfield As Variant) As String
  25773. 'This function tells you which field action to perform
  25774.     Select Case itmfield
  25775.     Case "1"
  25776.         'Sender
  25777.         FieldString = GetString(itmfield)
  25778.     Case "2"
  25779.         'Subject
  25780.         FieldString =  GetString(itmfield)
  25781.     Case "3"
  25782.         'Body
  25783.         FieldString = GetString(itmfield)
  25784.     Case "4"
  25785.         'Importance
  25786.         FieldString = GetString(itmfield)
  25787.     Case "5"
  25788.         'Delivery Priority
  25789.         FieldString = GetString(itmfield)
  25790.     Case "6"
  25791.         'To
  25792.         FieldString =GetString(itmfield)
  25793.     Case "7"
  25794.         'CC
  25795.         FieldString=GetString(itmfield)
  25796.     Case "8"
  25797.         'To or CC
  25798.         FieldString = GetString(itmfield)
  25799.     Case "9"
  25800.         'body or subject
  25801.         FieldString = GetString(itmfield)
  25802.     Case "A"
  25803.         'BCC
  25804.         FieldString=GetString(itmfield)
  25805.     Case "B"
  25806.         'Internet Domain
  25807.         FieldString = GetString(itmfield)
  25808.     Case "C"
  25809.         'size
  25810.         FieldString = GetString(itmfield)
  25811.     End Select
  25812. End Function
  25813. '++LotusScript Development Environment:2:1:LogicString:1:8
  25814. Function LogicString(vlogic As Variant, vcondition As Variant) As String
  25815.     Select Case vlogic
  25816.     Case "1"
  25817.         If vcondition<>"C" Then
  25818.         'contains
  25819.             logicstring = GetString("D")
  25820.         Else
  25821.             logicstring = GetString ("E")
  25822.         End If
  25823.     Case "2"
  25824.         'does not contain
  25825.         If vcondition<>"C" Then
  25826.             logicstring = GetString ("F")
  25827.         Else
  25828.             logicstring = GetString ("G")
  25829.         End If
  25830.     Case "3"
  25831.         'is
  25832.         logicstring = GetString("H")
  25833.     Case "4"
  25834.         'is not
  25835.         logicstring = GetString ("I")
  25836.     End Select
  25837. End Function
  25838. '++LotusScript Development Environment:2:1:ActionString:1:8
  25839. Function ActionString(vaction As Variant, note As notesdocument) As String
  25840.     Dim strImportance As String    
  25841.     Select Case vaction
  25842.     Case "1"
  25843.         ActionString = GetSTring ("J")+ note.getitemvalue("folder")(0)
  25844.     Case "2"    
  25845.         Select Case note.getitemvalue("Importancecond")(0)
  25846.         Case "1"
  25847.             strImportance = GetString("K")
  25848.         Case "2"
  25849.             strImportance = GetString("L")
  25850.         Case "3"
  25851.             strImportance =GetString("M")
  25852.         End Select
  25853.         ActionString = GetString("N")+strImportance
  25854.     Case "3"
  25855.         ActionString = GetString("O")
  25856.     Case "4"
  25857.         ActionString =GetString("P")+note.getitemvalue("folder")(0)
  25858.     End Select
  25859. End Function
  25860. '++LotusScript Development Environment:2:2:ProcessConditions:1:8
  25861. Sub ProcessConditions
  25862.     Dim vtokconditionlist As Variant
  25863.     vtokconditionlist = note.getitemvalue("tokconditionlist")
  25864.     If vtokconditionlist(0)="" Then Exit Sub
  25865.     strformula="@If(("
  25866.     For  x = 0 To Ubound(vtokconditionlist)
  25867.         'Seperate the four elements in their individual items
  25868.         strcondition = Left(vtokconditionlist(x),1)
  25869.         strlogic = Mid(vtokconditionlist(x), 3,1)
  25870.         strstring = Mid(vtokconditionlist(x), 5,(Instr(5,vtokconditionlist(x),":")-5))
  25871.         If x=0 Then Goto continue
  25872.         stroperator = Right(vtokconditionlist(x),(Len(vtokconditionlist(x))-Instr(5,vtokconditionlist(x),":")))
  25873. continue:    
  25874.         If x<>0 Then            
  25875.             If stroperator="0" Then            
  25876.                 strformula=strformula+" & "
  25877.             Elseif stroperator="1" Then
  25878.                 strformula=strformula+"|"
  25879.             End If            
  25880.         End If
  25881.         Call ConditionParser(strcondition, strlogic, strstring)
  25882.     Next
  25883.     strformula=strformula+")"
  25884. End Sub
  25885. '++LotusScript Development Environment:2:2:ProcessActions:1:8
  25886. Sub ProcessActions
  25887.     Dim vtokactionlist As Variant
  25888.     vtokactionlist = note.getitemvalue("tokactionlist")
  25889.     If vtokactionlist(0)="" Then Exit Sub
  25890.     strformula=strformula+"; ("
  25891.     For  x = 0 To Ubound(vtokactionlist)    
  25892.         'Seperate the three elements in their individual items
  25893.         straction = Left(vtokactionlist(x),1)
  25894.         strstring = Mid(vtokactionlist(x), 3,1)
  25895.         strfolder = Right(vtokactionlist(x),Len(vtokactionlist(x))-4)
  25896.         Call ActionParser(straction, strfolder, strstring)
  25897.         If x<> Ubound(vtokactionlist) Then strformula=strformula+" & "
  25898.     Next
  25899.     strformula=strformula+|);"")|
  25900. End Sub
  25901. '++LotusScript Development Environment:2:2:ProcessExceptions:1:8
  25902. Sub ProcessExceptions
  25903.     Dim vtokexceptionlist As Variant
  25904.     vtokexceptionlist = note.getitemvalue("tokexceptionlist")
  25905.     If vtokexceptionlist(0)="" Then    Exit Sub
  25906.     strformula=strformula+" | ("
  25907.     For  x = 0 To Ubound(vtokexceptionlist)        
  25908.         'Seperate the three elements in their individual items
  25909.         strcondition = Left(vtokexceptionlist(x),1)
  25910.         strlogic = Mid(vtokexceptionlist(x), 3,1)
  25911.         strstring = Right(vtokexceptionlist(x),Len(vtokexceptionlist(x))-4)
  25912.         Call ConditionParser(strcondition, strlogic, strstring)
  25913.         If x<> Ubound(vtokexceptionlist) Then strformula=strformula+" | "
  25914.     Next
  25915.     strformula=strformula+")"
  25916. End Sub
  25917. '++LotusScript Development Environment:2:2:ConditionParser:1:8
  25918. Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  25919.     Dim fieldstring As String
  25920.     Dim fieldstring1 As String
  25921.     Dim fieldstring2 As String
  25922.     Dim logicstring As String
  25923.     Select Case strcondition
  25924.     Case "1"
  25925.         'Sender
  25926.         Fieldstring="From"
  25927.     Case "2"
  25928.         'Subject
  25929.         FieldString = "Subject"
  25930.     Case "3"
  25931.         'Body
  25932.         FieldString = "@Abstract([TextOnly];64,994;"""";""Body"")"
  25933.     Case "4"
  25934.         'Importance
  25935.         FieldString = "Importance"
  25936.     Case "5"
  25937.         'Delivery Priority
  25938.         FieldString = "Priority"
  25939.     Case "6"
  25940.         'To
  25941.         FieldString = "SendTo"
  25942.     Case "7"
  25943.         'CC
  25944.         FieldString="CopyTo"
  25945.     Case "8"
  25946.         'To or CC
  25947.         FieldString1 = "BlindCopyTo"
  25948.         FieldSTring2="CopyTo"
  25949.     Case "9"
  25950.         'body or subject
  25951.         FieldString1 = "@Abstract([TextOnly];64,994;"""";""Body"")"
  25952.         FieldSTring2="subject"
  25953.     Case "A"
  25954.         'BCC
  25955.         FieldString=" BlindCopyTo"
  25956.     Case "B"
  25957.         'Internet Domain
  25958.         FieldString = "SMTPOriginator"
  25959.     Case "C"
  25960.         'size
  25961.         FieldSTring="@DocLength"
  25962.     End Select
  25963.     Select Case strlogic
  25964.     Case "1"
  25965.         If strcondition<>"C" Then
  25966.         'contains
  25967.             logicstring = "@Contains("
  25968.         Else
  25969.             logicstring = "@DocLength<"
  25970.         End If
  25971.     Case "2"
  25972.         'does not contain
  25973.         If strcondition<>"C" Then
  25974.             logicstring = "!@Contains("
  25975.         Else
  25976.             logicstring = "@DocLength>"
  25977.         End If
  25978.     Case "3"
  25979.         'is
  25980.         logicstring = "="
  25981.     Case "4"
  25982.         'is not
  25983.         logicstring = "!="
  25984.     End Select
  25985.     'We need to special case three conditions, multiple fields, searching body and document size
  25986.     Select Case strcondition
  25987.     Case "8" , "9"
  25988.         Select Case strlogic
  25989.         Case "1" , "2"
  25990.             strformula=strformula+logicstring+fieldstring1+";"""+strstring+""") | "+logicstring+fieldstring2+";"""+strstring+""")"
  25991.         Case "3" , "4"
  25992.             strformula=strformula+fieldstring1+logicstring+strstring +" | "+fieldstring2+logicstring+strstring
  25993.         End Select
  25994.     Case Else
  25995.         Select Case strlogic
  25996.         Case "1" , "2"
  25997.             strformula=strformula+logicstring+fieldstring+";"""+strstring+""")"
  25998.         Case "3" , "4"
  25999.             strformula=strformula+fieldstring+logicstring+"""+strstring+""" 
  26000.         End Select
  26001.     End Select
  26002. End Sub
  26003. '++LotusScript Development Environment:2:2:ActionParser:1:8
  26004. Sub ActionParser(strAction As String, strFolder As String, strstring As String)
  26005.     Dim strImportance As String    
  26006.     Select Case straction
  26007.     Case "1"
  26008.         strformula = strformula+"(@MailFilterAddtofolder("""+strfolder+"""; @True))"
  26009.     Case "2"    
  26010.         Select Case strstring
  26011.         Case "1"
  26012.             strImportance = "1"
  26013.         Case "2"
  26014.             strImportance = "2"
  26015.         Case "3"
  26016.             strImportance ="3"
  26017.         End Select
  26018.         strformula = "FIELD Importance:=Importance;"+strformula+"(@setfield(""Importance"";"""+strImportance+"""))"
  26019.     Case "3"
  26020.         strformula = strformula+"(@deletedocument)"
  26021.     Case "4"
  26022.         strformula = strformula+"(@MailFilterAddtofolder("""+strfolder+"""))"
  26023.     End Select
  26024. End Sub
  26025. '++LotusScript Development Environment:2:2:AddCondition:1:8
  26026. Sub AddCondition
  26027.     GetValues
  26028.     Set vconditionlist = note.getfirstitem("ConditionList")
  26029.     Set vtokconditionlist = note.getfirstitem("tokConditionList")
  26030.     If vconditionlist.values(0) = "" Then 
  26031.         strcondition ="  "+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  26032.     Else    
  26033.         strcondition = "    "+OperatorString(voperator)+FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  26034.     End If
  26035.     Call vconditionlist.appendtotextlist(strcondition)
  26036.     Call vtokconditionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring+":"+voperator)
  26037.     uidoc.refresh
  26038. End Sub
  26039. '++LotusScript Development Environment:2:2:AddException:1:8
  26040. Sub AddException
  26041.     GetValues
  26042.     Set vexceptionlist = note.getfirstitem("ExceptionList")
  26043.     Set vtokexceptionlist = note.getfirstitem("tokExceptionList")
  26044.     If vexceptionlist.values(0) = "" Then     
  26045.         strcondition ="  "+  FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  26046.     Else    
  26047.         strcondition = "    "+OperatorString(voperator)+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  26048.     End If
  26049.     Call vexceptionlist.appendtotextlist(strcondition)
  26050.     Call vtokexceptionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring)
  26051.     uidoc.refresh
  26052. End Sub
  26053. '++LotusScript Development Environment:2:2:GetValues:1:8
  26054. Sub GetValues
  26055.     vcondition = note.getitemvalue("condition")(0)
  26056.     vlogic = note.getitemvalue("logic")(0)
  26057.     voperator = note.getitemvalue("Operator")(0)
  26058.     If vcondition = "4" Or vcondition="5"Then
  26059.         vimportance = note.getitemvalue("importance")(0)
  26060.         Select Case vimportance
  26061.         Case "1"
  26062.             vstring="High"
  26063.         Case "2"
  26064.             vstring="Normal"
  26065.         Case "3"
  26066.             vstring="Low"
  26067.         End Select
  26068.     Elseif vcondition="B" Then
  26069.         vdomains = note.getitemvalue("domainlist")
  26070.         Forall x In vdomains
  26071.             vstring=vstring+x+":"
  26072.         End Forall
  26073.         vstring=Left(vstring, Len(vstring)-1)
  26074.     Else
  26075.         vstring = note.getitemvalue("string")(0)
  26076.     End If
  26077. End Sub
  26078. '++LotusScript Development Environment:2:1:OperatorString:1:8
  26079. Function OperatorString(voperator As Variant)
  26080.     'This function converts the operator to it's translated value
  26081.     Select Case voperator
  26082.     Case "0"
  26083.         OperatorString=GetString("Q")
  26084.     Case "1"
  26085.         OperatorString=GetString("R")
  26086.     End Select
  26087. End Function
  26088. '++LotusScript Development Environment:2:1:GetString:1:8
  26089. Function GetString ( StringType As Variant) As String
  26090.     GetString = ""
  26091.     Select Case StringType
  26092.     Case "1"  
  26093.         GetString = " Sender "
  26094.     Case "2"
  26095.         GetString = " Subject "
  26096.     Case "3"
  26097.         GetString = " Body "
  26098.     Case "4"
  26099.         GetString =  " Importance "
  26100.     Case "5"
  26101.         GetString = " Delivery Priority "
  26102.     Case "6"
  26103.         GetString = " To "
  26104.     Case "7"
  26105.         GetString = " CC "
  26106.     Case "8"
  26107.         GetString = " To or CC "
  26108.     Case "9"
  26109.         GetString = " body or subject "
  26110.     Case "A"
  26111.         GetString = " BCC "
  26112.     Case "B"
  26113.         GetString = " Internet Domain "
  26114.     Case "C"
  26115.         GetString = " Size "
  26116.     Case "D"
  26117.         GetString = " contains "
  26118.     Case "E"
  26119.         GetString = " is less than "
  26120.     Case "F"
  26121.         GetString = " does not contain "
  26122.     Case "G"
  26123.         GetString = " is more than "
  26124.     Case "H"
  26125.         GetString = " is "
  26126.     Case "I"
  26127.         GetString = " is not "
  26128.     Case "J"
  26129.         GetString = " move to folder " 
  26130.     Case "K"
  26131.         GetString = "High"
  26132.     Case "L"
  26133.         GetString = "Medium"
  26134.     Case "M"
  26135.         GetString = "Low"
  26136.     Case "N"
  26137.         GetString = " change importance to "
  26138.     Case "O"
  26139.         GetString = " delete the incoming message "
  26140.     Case "P"
  26141.         GetString =  " copy to folder "
  26142.     Case "Q"
  26143.         GetString = "AND"
  26144.     Case "R"
  26145.         GetString = "OR"
  26146.     Case "S"
  26147.         GetString = "You cannot include Delete Document in multiple actions.  Would you like to remove the Delete action from the actions list?"
  26148.     End Select
  26149. End Function
  26150. Lotus Product
  26151. OBJECT
  26152.  Mailrule'++LotusScript Development Environment:2:5:(Options):0:66
  26153. '++LotusScript Development Environment:2:5:(Forward):0:1
  26154. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  26155. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  26156. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26157. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26158. Private Sub BindEvents(Byval Objectname_ As String)
  26159.     Static Source As NOTESUIDOCUMENT
  26160.     Set Source = Bind(Objectname_)
  26161.     On Event Queryopen From Source Call Queryopen
  26162.     On Event Queryclose From Source Call Queryclose
  26163. End Sub
  26164. '++LotusScript Development Environment:2:2:Queryopen:1:12
  26165. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  26166.     Set uidoc = source
  26167.     Set note = uidoc.document
  26168. End Sub
  26169. '++LotusScript Development Environment:2:2:Queryclose:1:12
  26170. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  26171. End Sub
  26172. Lotus Product
  26173. OBJECT
  26174. $FilterFormula
  26175. $FilterFormula
  26176. ConditionList
  26177. tokConditionList
  26178. ExceptionList
  26179. tokExceptionList
  26180. ActionList
  26181. tokActionList
  26182.     Rule is:  
  26183. Enable
  26184. On|1Off|0
  26185.     Specify Conditions:
  26186. ConditionList
  26187.     0S0E
  26188.     Create condition:
  26189. ConditionList
  26190.     0S0E
  26191.     Create: 
  26192. Condition|0Exception|1
  26193. Operator
  26194. AND|0OR|1
  26195. condition
  26196. sender|1subject|2body|3importance|4delivery priority|5To|6CC|7BCC|ATo or CC|8body or subject|9Internet Domain|BSize (in Kbytes) |C
  26197. Logic
  26198. Condition
  26199. is less than|1
  26200. is greater than|2
  26201. is not|4
  26202. contains|1
  26203. does not contain|2
  26204. is not|4
  26205.     0S0E
  26206. condition
  26207.     0S0E
  26208. string
  26209. condition
  26210.     0S0E
  26211. importance
  26212. High|1Normal|2Low|3
  26213. condition
  26214.     0S0E
  26215. domainlist
  26216.     When mail messages arrive that meet these conditions:
  26217. '++LotusScript Development Environment:2:5:(Options):0:66
  26218. '++LotusScript Development Environment:2:5:(Forward):0:1
  26219. Declare Sub Click(Source As Button)
  26220. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26221. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26222. Private Sub BindEvents(Byval Objectname_ As String)
  26223.     Static Source As BUTTON
  26224.     Set Source = Bind(Objectname_)
  26225.     On Event Click From Source Call Click
  26226. End Sub
  26227. '++LotusScript Development Environment:2:2:Click:1:12
  26228. Sub Click(Source As Button)
  26229.     If (note.getitemvalue("ConditionList")(0)="") Then
  26230.         'This is the first time so add a condition
  26231.         AddCondition
  26232.     Else
  26233.         'There already is a condition so check the type
  26234.         If (note.getitemvalue("Type")(0) = "0") Then
  26235.             AddCondition
  26236.         Else
  26237.             AddException
  26238.         End If
  26239.     End If
  26240. End Sub
  26241. Lotus Product
  26242. OBJECT
  26243. New Button
  26244. Need a newer version of Notes to execute this button.
  26245.     0S0E
  26246.             Add        
  26247. '++LotusScript Development Environment:2:5:(Options):0:66
  26248. '++LotusScript Development Environment:2:5:(Forward):0:1
  26249. Declare Sub Click(Source As Button)
  26250. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26251. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26252. Private Sub BindEvents(Byval Objectname_ As String)
  26253.     Static Source As BUTTON
  26254.     Set Source = Bind(Objectname_)
  26255.     On Event Click From Source Call Click
  26256. End Sub
  26257. '++LotusScript Development Environment:2:2:Click:1:12
  26258. Sub Click(Source As Button)
  26259.     Dim vcondtoremove As Variant
  26260.     Dim vconditionlist As Variant
  26261.     Dim vtokconditionlist As Variant
  26262.     Dim vexceptionlist As Variant
  26263.     Dim vtokexceptionlist As Variant
  26264.     vcondtoremove = note.getitemvalue("conditionlistdisplay")(0)
  26265.     vconditionlist = note.getitemvalue("ConditionList")
  26266.     vexceptionlist = note.getitemvalue("ExceptionList")
  26267.     For  x = 0 To Ubound(vconditionlist)
  26268.         If vconditionlist(x) = vcondtoremove Then
  26269.             vconditionlist(x) = ""
  26270.             Call note.replaceitemvalue("conditionlist",vconditionlist)
  26271.             vtokconditionlist = note.getitemvalue("tokConditionList")
  26272.             vtokconditionlist(x) = ""
  26273.             Call note.replaceitemvalue("tokConditionList", vtokconditionlist)
  26274.             Goto done
  26275.         End If
  26276.     Next
  26277.     For  x = 0 To Ubound(vexceptionlist)
  26278.         If vexceptionlist(x) = vcondtoremove Then
  26279.             vexceptionlist(x) = ""
  26280.             Call note.replaceitemvalue("exceptionlist",vexceptionlist)
  26281.             vtokexceptionlist=note.getitemvalue("tokExceptionList")
  26282.             vtokexceptionlist(x)=""
  26283.             Call note.replaceitemvalue("tokexceptionlist",vtokexceptionlist)
  26284.             Goto done
  26285.         End If
  26286.     Next
  26287. done:
  26288.     uidoc.refresh
  26289. End Sub
  26290. Lotus Product
  26291. OBJECT
  26292. New Button
  26293. Need a newer version of Notes to execute this button.
  26294.     0S0E
  26295.         Remove      
  26296. ConditionListDisplay
  26297. ConditionList
  26298. When:
  26299. conditionlist
  26300. conditionlist
  26301. ExceptionList
  26302. Except when:
  26303. exceptionlist
  26304. exceptionlist
  26305.     0S0E
  26306. '++LotusScript Development Environment:2:5:(Options):0:66
  26307. '++LotusScript Development Environment:2:5:(Forward):0:1
  26308. Declare Sub Click(Source As Button)
  26309. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26310. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26311. Private Sub BindEvents(Byval Objectname_ As String)
  26312.     Static Source As BUTTON
  26313.     Set Source = Bind(Objectname_)
  26314.     On Event Click From Source Call Click
  26315. End Sub
  26316. '++LotusScript Development Environment:2:2:Click:1:12
  26317. Sub Click(Source As Button)
  26318.     Dim vconditionlist As Variant
  26319.     Dim vexceptionlist As Variant
  26320.     Dim vtokconditionlist As Variant
  26321.     Dim vtokexceptionlist As Variant
  26322.     vconditionlist = note.getitemvalue("ConditionList")
  26323.     vexceptionlist = note.getitemvalue("ExceptionList")
  26324.     For  x = 0 To Ubound(vconditionlist)
  26325.         vconditionlist(x) = ""
  26326.         vtokconditionlist(x) = ""
  26327.     Next
  26328.     For  x = 0 To Ubound(vexceptionlist)
  26329.         vexceptionlist(x) = ""
  26330.         vtokexceptionlist(x)=""
  26331.     Next
  26332.     'Set all values back to initial values
  26333.     Call note.replaceitemvalue("Condition", "1")
  26334.     Call note.replaceitemvalue("Logic","1")
  26335.     Call note.replaceitemvalue("String", "")
  26336.     Call note.replaceitemvalue("conditionlist",vconditionlist)
  26337.     Call note.replaceitemvalue("tokconditionlist", vtokconditionlist)
  26338.     Call note.replaceitemvalue("exceptionlist", vexceptionlist)
  26339.     Call note.replaceitemvalue("tokexceptionlist", vtokexceptionlist)
  26340.     'Call note.save(True,True)
  26341.     uidoc.refresh
  26342. End Sub
  26343. Lotus Product
  26344. OBJECT
  26345. New Button
  26346. Need a newer version of Notes to execute this button.
  26347.     0S0E
  26348.       Remove All   
  26349.     Specify Actions:
  26350. action
  26351. move to folder|1copy to folder|4change importance to|2delete|3
  26352. action
  26353.     0S0E
  26354. folder
  26355. action
  26356.     0S0E
  26357. importancecond
  26358. High|1Normal|2Low|3
  26359. action
  26360.     0S0E
  26361. action
  26362.     0S0E
  26363. folder
  26364.     4S8S
  26365.     Choose Folder
  26366.     Perform the following actions:
  26367. '++LotusScript Development Environment:2:5:(Options):0:66
  26368. '++LotusScript Development Environment:2:5:(Forward):0:1
  26369. Declare Sub Click(Source As Button)
  26370. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26371. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26372. Private Sub BindEvents(Byval Objectname_ As String)
  26373.     Static Source As BUTTON
  26374.     Set Source = Bind(Objectname_)
  26375.     On Event Click From Source Call Click
  26376. End Sub
  26377. '++LotusScript Development Environment:2:2:Click:1:12
  26378. Sub Click(Source As Button)
  26379.     Dim vaction As Variant
  26380.     Dim itmactionlist As NotesItem
  26381.     Dim itmtokactionlist As notesitem
  26382.     Dim vimportance As Variant
  26383.     Dim vfolder As Variant
  26384.     Dim vactiondisplay As Variant
  26385.     Dim straction As String
  26386.     Set itmactionlist = note.getfirstitem("ActionList")
  26387.     Set itmtokactionlist =note.getfirstitem("TokActionList")
  26388.     vaction = note.getitemvalue("action")(0)
  26389.     If itmactionlist.values(0) = "" Then 
  26390.         straction = actionstring(vaction, note)
  26391.     Elseif itmtokactionlist.contains("3:1:") Then
  26392.         If Messagebox (GetString("S"), 36, "Rules Error")  <> 6 Then Exit Sub
  26393.         itmtokactionlist.remove
  26394.         itmactionlist.remove
  26395.         Set itmtokactionlist=New notesitem(note, "tokactionlist","")
  26396.         Set itmactionlist = New notesitem(note,"actionlist","")
  26397.         straction = actionstring(vaction,note)
  26398.     Else
  26399.         straction = " "+GetString("Q")+actionstring(vaction, note)
  26400.     End If
  26401.     Call itmactionlist.appendtotextlist(straction)
  26402.     Call itmtokactionlist.appendtotextlist(vaction+":"+note.importancecond(0)+":"+note.folder(0))    
  26403.     uidoc.refresh
  26404. End Sub
  26405. Lotus Product
  26406. OBJECT
  26407. New Button
  26408. Need a newer version of Notes to execute this button.
  26409.     0S0E
  26410.        Add Action   
  26411. '++LotusScript Development Environment:2:5:(Options):0:66
  26412. '++LotusScript Development Environment:2:5:(Forward):0:1
  26413. Declare Sub Click(Source As Button)
  26414. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26415. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26416. Private Sub BindEvents(Byval Objectname_ As String)
  26417.     Static Source As BUTTON
  26418.     Set Source = Bind(Objectname_)
  26419.     On Event Click From Source Call Click
  26420. End Sub
  26421. '++LotusScript Development Environment:2:2:Click:1:12
  26422. Sub Click(Source As Button)
  26423.     Dim vactiontoremove As Variant
  26424.     Dim vactionlist As Variant
  26425.     Dim vtokactionlist As Variant
  26426.     vactiontoremove = note.getitemvalue("actionlistdisplay")(0)
  26427.     vactionlist = note.getitemvalue("actionList")
  26428.     vtokactionlist = note.getitemvalue("tokactionList")
  26429.     For  x = 0 To Ubound(vactionlist)
  26430.         If vactionlist(x) = vactiontoremove Then
  26431.             vactionlist(x) = ""
  26432.             Call note.replaceitemvalue("actionlist",vactionlist)
  26433.             vtokactionlist(x)=""
  26434.             Call note.replaceitemvalue("tokactionlist",vtokactionlist)
  26435.             Goto done
  26436.         End If
  26437.     Next
  26438. done:
  26439.     uidoc.refresh
  26440. End Sub
  26441. Lotus Product
  26442. OBJECT
  26443. New Button
  26444. Need a newer version of Notes to execute this button.
  26445.     0S0E
  26446.           Remove    
  26447. ActionListDisplay
  26448. ActionList
  26449. '++LotusScript Development Environment:2:5:(Options):0:66
  26450. '++LotusScript Development Environment:2:5:(Forward):0:1
  26451. Declare Sub Click(Source As Button)    
  26452. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26453. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26454. Private Sub BindEvents(Byval Objectname_ As String)
  26455.     Static Source As BUTTON
  26456.     Set Source = Bind(Objectname_)
  26457.     On Event Click From Source Call Click
  26458. End Sub
  26459. '++LotusScript Development Environment:2:2:Click:1:12
  26460. Sub Click(Source As Button)    
  26461.     Dim vactionlist As Variant
  26462.     Dim vtokactionlist As Variant
  26463.     vactionlist = note.getitemvalue("actionlist")
  26464.     vtokactionlist = note.getitemvalue("tokactionlist")
  26465.     For  x = 0 To Ubound(vactionlist)
  26466.         vactionlist(x) = ""
  26467.         vtokactionlist(x)=""
  26468.     Next
  26469.     Call note.replaceitemvalue("action", "1")
  26470.     Call note.replaceitemvalue("folder","")
  26471.     Call note.replaceitemvalue("actionlist",vactionlist)
  26472.     Call note.replaceitemvalue("tokactionlist", vtokactionlist)
  26473.     uidoc.refresh
  26474. End Sub
  26475. Lotus Product
  26476. OBJECT
  26477. New Button
  26478. Need a newer version of Notes to execute this button.
  26479.     0S0E
  26480.        Remove All  
  26481. v    '++LotusScript Development Environment:2:5:(Options):0:66
  26482. '++LotusScript Development Environment:2:5:(Forward):0:1
  26483. Declare Sub Click(Source As Button)
  26484. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26485. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26486. Private Sub BindEvents(Byval Objectname_ As String)
  26487.     Static Source As BUTTON
  26488.     Set Source = Bind(Objectname_)
  26489.     On Event Click From Source Call Click
  26490. End Sub
  26491. '++LotusScript Development Environment:2:2:Click:1:12
  26492. Sub Click(Source As Button)
  26493.     'This code creates the filter action formula to be used by the mail router and puts it in a field called $FilterFormul
  26494.     Dim uiws As New notesuiworkspace
  26495.     Dim dbmail As notesdatabase
  26496.     Dim session As New notessession
  26497.     Dim viewcollection As notesviewentrycollection
  26498.     Dim view As notesview
  26499.     Dim profile As notesdocument
  26500.     Dim item As notesitem
  26501.     Dim bprofilesave As Integer    
  26502.     Dim bmovetofolder As Integer
  26503.     Dim nrulenum As Integer
  26504.     Dim strfilteritem As String
  26505.     Set dbmail = session.currentdatabase
  26506.     Set profile= dbmail.GetProfileDocument("CalendarProfile")
  26507.     Set view = dbmail.getview("Rules")
  26508.     'Check to see if the profile already existed
  26509.     If Not(profile.HasItem("Owner")) Then
  26510.         profile.Form = "CalendarProfile"
  26511.         Call profile.ComputeWithForm(False,False)
  26512.     End If      
  26513.         'First give the rule a sequence number if it's a new rule    
  26514.     If note.isnewnote Then
  26515.         Set viewcollection = view.allentries
  26516.         nrulenum = viewcollection.count
  26517.         Call note.replaceitemvalue("OrderNum", nrulenum)
  26518.         Call profile.replaceitemvalue("$FilterFormulaCount",Cstr(nrulenum+1))
  26519.         bmovetofolder=True    
  26520.     Else
  26521.         nrulenum = note.getitemvalue("ordernum")(0)
  26522.     End If        
  26523.     strfilteritem = "$FilterFormula_"+Cstr(nrulenum)
  26524.     If note.getitemvalue("Enable")(0)="1" Then            
  26525.         Call dbmail.enabledboptions(1,True)        
  26526.         ProcessConditions
  26527.         ProcessExceptions
  26528.         ProcessActions
  26529.         Set item=note.getfirstitem("$FilterFormula")
  26530.         item.values=strformula        
  26531.         bprofilesave=True        
  26532.     Else        
  26533.         bprofilesave = profile.hasitem(strfilteritem)
  26534.     End If
  26535.     If profile.hasitem(strfilteritem) Then
  26536.         Call profile.removeitem(strfilteritem)
  26537.     End If
  26538.     Call note.computewithform(False,False)
  26539.     If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
  26540.     Call note.save(True,False,True)
  26541.     If bmovetofolder Then Call note.putinfolder("Rules")
  26542.     If bprofilesave Then Call profile.save(True, True, False)
  26543.     uidoc.close    
  26544.     uiws.viewrefresh
  26545. End Sub
  26546. Lotus Product
  26547. OBJECT
  26548. New Button
  26549. Need a newer version of Notes to execute this button.
  26550.     0S0E
  26551.        OK   
  26552.     0S0E
  26553.     Cancel
  26554.     This field is used for Ordering the Filter documents in the folder
  26555. OrderNum
  26556. OrderNum
  26557. Categori_zeK
  26558. _Edit Document
  26559. Send Docu_ment
  26560. _Forward
  26561. _Move To Folder...
  26562. _Remove From FolderK
  26563. Categori_zeK
  26564. _Edit Document
  26565. Send Docu_ment
  26566. _Forward
  26567. _Move To Folder...
  26568. _Remove From FolderK
  26569. O=Lotus Notes
  26570. O=Lotus Notes
  26571. PURSAFO
  26572. |.:#U
  26573. O=Lotus Notes
  26574. CN=Lotus Notes Template Development/O=Lotus Notes
  26575. PURSAFO
  26576. #v+b?J_
  26577. $Info
  26578. $WINDOWTITLE
  26579. $Script
  26580. $$Script_O
  26581. $$ScriptName
  26582. $$FormScript
  26583. $$$FormScript_O
  26584. $Body
  26585. $V5ACTIONS
  26586. $ACTIONS
  26587. $92AlarmTime
  26588. $AlarmTimeh
  26589. $AlarmTime
  26590. CalendarDateTime
  26591. $AlarmOffset
  26592.     7S9S13S15S17S19S21S23S
  26593. CalendarDateTimeCalendarDateTime$AlarmOffsetOffset$93Descriptiond
  26594. $AlarmDescription
  26595. $AlarmDescription
  26596. Subject
  26597.     7S9S
  26598. $AlarmSoundAlarmSound$94AlarmMailT
  26599. Participants
  26600. AssignedTo
  26601. OptionalAssignees
  26602. RequriedAttendees
  26603. OptionalAttendees
  26604.     1S2S5S6S8S2E12S
  26605. $AlarmMemoOptions
  26606. $AlarmMemoOptions
  26607. Participants
  26608. $AlarmSendTo
  26609.     0R3S4S9S10S12S14S&
  26610. _Forward
  26611. Categori_zeK
  26612. _Edit Document
  26613. _Move To Folder...
  26614. _Remove From Folder...
  26615. _Forward
  26616. Categori_zeK
  26617. _Edit Document
  26618. _Move To Folder...
  26619. _Remove From Folder...
  26620. O=Lotus Notes
  26621. O=Lotus Notes
  26622. PURSAFO
  26623. |.:#U
  26624. O=Lotus Notes
  26625. CN=Lotus Notes Template Development/O=Lotus Notes
  26626. PURSAFO
  26627. $TITLE
  26628. $PublicAccess
  26629. $Name
  26630. $Index
  26631. $Formula
  26632. $FormulaClass
  26633. $VIEWFORMAT
  26634. $Comment
  26635. $V5ACTIONS
  26636. $ACTIONS
  26637. New Memo.
  26638.     0S0E
  26639. Delete 
  26640.     0S0E
  26641. Move To Folder...
  26642.     0S0E
  26643. _Forward
  26644. Reply
  26645. Reply
  26646.     0S0E
  26647. Reply With History@
  26648. Reply with history
  26649.     0S0E
  26650. Categori_zeK
  26651. _Edit Document
  26652. Send    
  26653. Resend
  26654. NonDelivery Report
  26655. Not a Delivery Failure Report
  26656. You cannot Resend a message unless it is a Delivery Failure Report.
  26657.     6S12S17S23S
  26658. Convert To TaskK0
  26659. ConvertToTask
  26660. _Move To Folder...
  26661. _Remove From Folder...
  26662. O=Lotus Notes
  26663. O=Lotus Notes
  26664. PURSAFO
  26665. |.:#U
  26666. O=Lotus Notes
  26667. CN=Lotus Notes Template Development/O=Lotus Notes
  26668. PURSAFO
  26669. $Name
  26670. $TITLE
  26671. $Index
  26672. $Formula
  26673. $FormulaClass
  26674. $VIEWFORMAT
  26675. $Comment
  26676. $ACTIONS
  26677. !(Rules)|Rules(Rules)|Rules
  26678. Enable
  26679.     0S0E
  26680. When 
  26681. ConditionList
  26682. ActionList
  26683.     0S0E
  26684. $108OrderNum$109$Conflict
  26685. OrderNum
  26686.  $108P
  26687. Enable
  26688.     0S0E
  26689. OrderNum$109NameV
  26690. When 
  26691. ConditionList
  26692. ActionList
  26693.     0S0E
  26694. (Help)
  26695. MAIL_V_RULES
  26696.     0S0E
  26697. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26698. ##############
  26699. (SignatureOption)CU3
  26700. SignatureSignatureOption
  26701. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  26702. (Stationery)|Stationery(Stationery)|Stationery1$
  26703. $65$59$55
  26704. $66$66
  26705. (Help)
  26706. MAIL_V_STATIONERY
  26707.     0S0E
  26708. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26709. #################################################
  26710. (subTrackMessage)CUA3
  26711. tmpDontShow
  26712. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  26713.     $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)}(To do's\By Category)|TodoByCategory1/P=3601.
  26714. $189$186DueDateTimeD
  26715. (Help)
  26716. MAIL_V_TASKS
  26717.     0S0E
  26718. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  26719.     $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)}(To do's\By Status)|TodoByStatus1/P=3601.
  26720. $189$186DueDateTimeD
  26721. (Help)
  26722. MAIL_V_TASKS
  26723.     0S0E
  26724. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  26725. (Trace Report)Trace ReportCD
  26726. DeliveryDateSubject
  26727. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  26728. (Tracking Request)Tracking RequestTracking Response
  26729. DispStat
  26730. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  26731. (wAddressOpen)
  26732. fL3Pu
  26733. CN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes=7G
  26734. #########
  26735. (wAddress)wAddressCDF    
  26736. AddressBookstmpNextIndextmpCurIndexEntryListtmpBlindCopyTotmpCopyTotmpSendToFindTextNABs
  26737. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  26738. (wCommand)
  26739. EH41fL3uP
  26740. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
  26741. (wDelivery Options)DeliveryOptionsCD
  26742. tmpDeliveryPrioritytmpDeliveryReporttmpReturnReceipttmpImportance
  26743. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26744. (WebArchiveOpen)
  26745. StdR50DiscfL3u
  26746. CN=Debbie Branco/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26747. ##########################################################
  26748. (WebArchiveSaveSettings)
  26749. CN=Debbie Branco/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesStdR50DiscfL3u
  26750. #####################################################
  26751. (WebArchProfile)WebArchProfileF
  26752. ArchiveLogDBPathArchiveLogArchivePathEnableArchivingOnlyDeleteDocumentsExpiredLifeArchiveExpiredModifiedLifeArchiveModifiedDocumentLifeArchiveInactiveEnabledIgnoreChildrenJustDeleteSaveOptionsArchiveServerArchivingServerArchiveLocationProfileFormNameSubjectStdR50Disc
  26753. CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  26754. (wForwardOpen)
  26755. EH41fL3u
  26756. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  26757. (wMailRuleSubmit)
  26758. EH4fL3u
  26759. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  26760. (wMemoOpen)
  26761. CN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26762. #############
  26763. (wMemo)
  26764. EH4fL3uP
  26765. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
  26766. (wPreferencesOpen)
  26767. EH41fL3u
  26768. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  26769. (wPreferencesSave)
  26770. EH41fL3u
  26771. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  26772. (wRulesDlg)wMailRulesCDF
  26773. OrderNumActionListDisplayNewImportanceFolderActionExceptionListDisplayConditionListDisplayDomainListImportanceStringLogicConditionOperatorEnabletokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormulaActionValuesImportanceValuesLogic2ValuesLogic1ValuesConditionValuesOperatorValues
  26774. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  26775. ($Alarms)|$Alarms1($Alarms)|$Alarms
  26776. $AlarmTimeh
  26777. $AlarmTime
  26778. CalendarDateTime
  26779. $AlarmOffset
  26780.     7S9S13S15S17S19S21S23S
  26781. $AlarmDescription
  26782. $AlarmDescription
  26783. Subject
  26784.     7S9S
  26785. Participants
  26786. AssignedTo
  26787. OptionalAssignees
  26788. RequriedAttendees
  26789. OptionalAttendees
  26790.     1S2S5S6S8S2E12S
  26791. $AlarmMemoOptions
  26792. $AlarmMemoOptions
  26793. Participants
  26794. $AlarmSendTo
  26795.     0R3S4S9S10S12S14S
  26796. $92CalendarDateTime$AlarmOffset$93$AlarmSound$94$Conflict
  26797. $92CalendarDateTime3FY
  26798. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26799. D$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
  26800. $68$106
  26801. $102$68
  26802. $106YdB
  26803. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  26804. \($Calendar)|Calendar11'
  26805. $134$126$144
  26806. (Help)
  26807. MAIL_V_CALENDAR
  26808.     0S0E
  26809. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
  26810.  ($Drafts)/P=3601$
  26811. $65$59$55
  26812. $66$66
  26813. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  26814. ##########################################################
  26815. $FolderInfo
  26816. ($FolderInfo)1
  26817. $103Y8
  26818. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
  26819.     $FolderRefInfo($FolderRefInfo)
  26820. $FolderRefV
  26821.     0S0E
  26822. $105$FolderRefID$FolderRefFlags$Conflict
  26823. $FolderRefh
  26824.     L1S1
  26825. $105$
  26826. $105$FolderRefID
  26827. $105Folder UNID*
  26828. $FolderRefV
  26829.     0S0E
  26830. $FolderRefIDFolder Reference ID$FolderRefFlagsFolder Reference Flags&
  26831. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  26832. ##########################################################
  26833. ##########################################################
  26834. _Forward
  26835. New Rule...K'++LotusScript Development Environment:2:5:(Options):0:66
  26836. '++LotusScript Development Environment:2:5:(Forward):0:1
  26837. Declare Sub Click(Source As Button)
  26838. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26839. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26840. Private Sub BindEvents(Byval Objectname_ As String)
  26841.     Static Source As BUTTON
  26842.     Set Source = Bind(Objectname_)
  26843.     On Event Click From Source Call Click
  26844. End Sub
  26845. '++LotusScript Development Environment:2:2:Click:1:12
  26846. Sub Click(Source As Button)
  26847.     Dim newdoc As notesdocument
  26848.     Dim maildb As notesdatabase
  26849.     Dim session As New notessession
  26850.     Dim ws As New notesuiworkspace
  26851.     Set maildb = session.currentdatabase
  26852.     Set newdoc = New notesdocument(maildb)
  26853.     Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "New Rule", newdoc, True, True) 
  26854. End Sub
  26855. act_NEW.GIF|act_NEW?
  26856. Edit Rule...'++LotusScript Development Environment:2:5:(Options):0:66
  26857. '++LotusScript Development Environment:2:5:(Forward):0:1
  26858. Declare Sub Click(Source As Button)
  26859. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26860. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26861. Private Sub BindEvents(Byval Objectname_ As String)
  26862.     Static Source As BUTTON
  26863.     Set Source = Bind(Objectname_)
  26864.     On Event Click From Source Call Click
  26865. End Sub
  26866. '++LotusScript Development Environment:2:2:Click:1:12
  26867. Sub Click(Source As Button)
  26868.     Dim maildb As notesdatabase
  26869.     Dim session As New notessession
  26870.     Dim ruledocs As notesdocumentcollection
  26871.     Dim oldrule As notesdocument
  26872.     Dim ws As New notesuiworkspace
  26873.     Dim dt As New notesdatetime("")
  26874.     Set maildb = session.currentdatabase
  26875.     Set ruledocs = maildb.unprocesseddocuments
  26876.     If (ruledocs.count = 1) Then
  26877.         Set oldrule = ruledocs.getfirstdocument
  26878.         Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "New Rule", oldrule, True, True)
  26879.     Else
  26880.         'More than one document is selected
  26881.         Messagebox "You must select one document",16,"Error"         
  26882.     End If
  26883. End Sub
  26884. act_EDIT.GIF|act_EDIT?
  26885. Delete RuleK
  26886. act_DELETE.GIF|act_DELETE?
  26887. Move UpK'++LotusScript Development Environment:2:5:(Options):0:66
  26888. '++LotusScript Development Environment:2:5:(Forward):0:1
  26889. Declare Sub Click(Source As Button)
  26890. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26891. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26892. Private Sub BindEvents(Byval Objectname_ As String)
  26893.     Static Source As BUTTON
  26894.     Set Source = Bind(Objectname_)
  26895.     On Event Click From Source Call Click
  26896. End Sub
  26897. '++LotusScript Development Environment:2:2:Click:1:12
  26898. Sub Click(Source As Button)
  26899.     Dim note As NotesDocument
  26900.     Dim othernote As NotesDocument
  26901.     Set docselected = db.UnprocessedDocuments
  26902.     On Error Resume Next     
  26903.     If (docselected.Count <> 1) Then
  26904.         Messagebox "You must select one document",16,"Error"
  26905.         Exit Sub          
  26906.     End If
  26907.     Set note = docselected.GetFirstDocument()
  26908.     Set othernote = view.GetPrevDocument(note)
  26909.     If (othernote Is Nothing) Then
  26910.         Messagebox "You cannot promote the top-level document.",32,"Error"
  26911.         Exit Sub
  26912.     End If
  26913.     Call SwapDocuments(othernote,note)
  26914.     ws.ViewRefresh
  26915.     uiview.SelectDocument(note)
  26916. End Sub
  26917. act_MOVEUP.GIF|act_MOVEUP?
  26918. Move Down
  26919. '++LotusScript Development Environment:2:5:(Options):0:66
  26920. '++LotusScript Development Environment:2:5:(Forward):0:1
  26921. Declare Sub Click(Source As Button)
  26922. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26923. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26924. Private Sub BindEvents(Byval Objectname_ As String)
  26925.     Static Source As BUTTON
  26926.     Set Source = Bind(Objectname_)
  26927.     On Event Click From Source Call Click
  26928. End Sub
  26929. '++LotusScript Development Environment:2:2:Click:1:12
  26930. Sub Click(Source As Button)
  26931.     Dim note As NotesDocument
  26932.     Dim othernote As NotesDocument
  26933.     On Error Resume Next
  26934.     Set docselected = db.UnprocessedDocuments
  26935.     If (docselected.Count <> 1) Then
  26936.         Messagebox "You must select one document",16,"Error"
  26937.         Exit Sub          
  26938.     End If
  26939.     Set note = docselected.GetFirstDocument()
  26940.     Set othernote = view.GetNextDocument(note)
  26941.     If (othernote Is Nothing) Then
  26942.         Messagebox "You cannot demote the bottom-level document.",32,"Error"
  26943.         Exit Sub
  26944.     End If
  26945.     Call SwapDocuments(othernote,note)
  26946.     ws.ViewRefresh
  26947.     uiview.SelectDocument(note)
  26948. End Sub
  26949. act_MOVEDOWN.GIF|act_MOVEDOWN?
  26950. Categori_zeK
  26951. _Edit Document
  26952. Send    
  26953. _Move To Folder...
  26954. _Remove From Folder...
  26955. Tools\Preferences...2
  26956. (Preferences)
  26957.     0S0E
  26958. act_TOOLS.GIF|act_TOOLS?
  26959. Tools\Out of Office...8
  26960. (EditOfficeProfile)
  26961.     0S0E
  26962. act_TOOLS.GIF|act_TOOLS?
  26963. New Rule.
  26964. wMailRules
  26965.     0S0E
  26966. Edit Rule
  26967.     0S0E
  26968. Delete 
  26969.     0S0E
  26970. Delete...\Empty Trash
  26971.     0S0E
  26972. act_DELETE.GIF|act_DELETE?
  26973. _Forward
  26974. New Rule...K'++LotusScript Development Environment:2:5:(Options):0:66
  26975. '++LotusScript Development Environment:2:5:(Forward):0:1
  26976. Declare Sub Click(Source As Button)
  26977. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26978. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26979. Private Sub BindEvents(Byval Objectname_ As String)
  26980.     Static Source As BUTTON
  26981.     Set Source = Bind(Objectname_)
  26982.     On Event Click From Source Call Click
  26983. End Sub
  26984. '++LotusScript Development Environment:2:2:Click:1:12
  26985. Sub Click(Source As Button)
  26986.     Dim newdoc As notesdocument
  26987.     Dim maildb As notesdatabase
  26988.     Dim session As New notessession
  26989.     Dim ws As New notesuiworkspace
  26990.     Set maildb = session.currentdatabase
  26991.     Set newdoc = New notesdocument(maildb)
  26992.     Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "New Rule", newdoc, True, True) 
  26993. End Sub
  26994. Edit Rule...'++LotusScript Development Environment:2:5:(Options):0:66
  26995. '++LotusScript Development Environment:2:5:(Forward):0:1
  26996. Declare Sub Click(Source As Button)
  26997. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26998. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26999. Private Sub BindEvents(Byval Objectname_ As String)
  27000.     Static Source As BUTTON
  27001.     Set Source = Bind(Objectname_)
  27002.     On Event Click From Source Call Click
  27003. End Sub
  27004. '++LotusScript Development Environment:2:2:Click:1:12
  27005. Sub Click(Source As Button)
  27006.     Dim maildb As notesdatabase
  27007.     Dim session As New notessession
  27008.     Dim ruledocs As notesdocumentcollection
  27009.     Dim oldrule As notesdocument
  27010.     Dim ws As New notesuiworkspace
  27011.     Dim dt As New notesdatetime("")
  27012.     Set maildb = session.currentdatabase
  27013.     Set ruledocs = maildb.unprocesseddocuments
  27014.     If (ruledocs.count = 1) Then
  27015.         Set oldrule = ruledocs.getfirstdocument
  27016.         Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "New Rule", oldrule, True, True)
  27017.     Else
  27018.         'More than one document is selected
  27019.         Messagebox "You must select one document",16,"Error"         
  27020.     End If
  27021. End Sub
  27022. Delete RuleK
  27023. Move UpK'++LotusScript Development Environment:2:5:(Options):0:66
  27024. '++LotusScript Development Environment:2:5:(Forward):0:1
  27025. Declare Sub Click(Source As Button)
  27026. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27027. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27028. Private Sub BindEvents(Byval Objectname_ As String)
  27029.     Static Source As BUTTON
  27030.     Set Source = Bind(Objectname_)
  27031.     On Event Click From Source Call Click
  27032. End Sub
  27033. '++LotusScript Development Environment:2:2:Click:1:12
  27034. Sub Click(Source As Button)
  27035.     Dim note As NotesDocument
  27036.     Dim othernote As NotesDocument
  27037.     Set docselected = db.UnprocessedDocuments
  27038.     On Error Resume Next     
  27039.     If (docselected.Count <> 1) Then
  27040.         Messagebox "You must select one document",16,"Error"
  27041.         Exit Sub          
  27042.     End If
  27043.     Set note = docselected.GetFirstDocument()
  27044.     Set othernote = view.GetPrevDocument(note)
  27045.     If (othernote Is Nothing) Then
  27046.         Messagebox "You cannot promote the top-level document.",32,"Error"
  27047.         Exit Sub
  27048.     End If
  27049.     Call SwapDocuments(othernote,note)
  27050.     ws.ViewRefresh
  27051.     uiview.SelectDocument(note)
  27052. End Sub
  27053. Move Down
  27054. '++LotusScript Development Environment:2:5:(Options):0:66
  27055. '++LotusScript Development Environment:2:5:(Forward):0:1
  27056. Declare Sub Click(Source As Button)
  27057. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27058. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27059. Private Sub BindEvents(Byval Objectname_ As String)
  27060.     Static Source As BUTTON
  27061.     Set Source = Bind(Objectname_)
  27062.     On Event Click From Source Call Click
  27063. End Sub
  27064. '++LotusScript Development Environment:2:2:Click:1:12
  27065. Sub Click(Source As Button)
  27066.     Dim note As NotesDocument
  27067.     Dim othernote As NotesDocument
  27068.     On Error Resume Next
  27069.     Set docselected = db.UnprocessedDocuments
  27070.     If (docselected.Count <> 1) Then
  27071.         Messagebox "You must select one document",16,"Error"
  27072.         Exit Sub          
  27073.     End If
  27074.     Set note = docselected.GetFirstDocument()
  27075.     Set othernote = view.GetNextDocument(note)
  27076.     If (othernote Is Nothing) Then
  27077.         Messagebox "You cannot demote the bottom-level document.",32,"Error"
  27078.         Exit Sub
  27079.     End If
  27080.     Call SwapDocuments(othernote,note)
  27081.     ws.ViewRefresh
  27082.     uiview.SelectDocument(note)
  27083. End Sub
  27084. Categori_zeK
  27085. _Edit Document
  27086. Send    
  27087. _Move To Folder...
  27088. _Remove From Folder...
  27089. Tools\Preferences...2
  27090. (Preferences)
  27091.     0S0E
  27092. Tools\Out of Office...8
  27093. (EditOfficeProfile)
  27094.     0S0E
  27095. New Rule.
  27096. wMailRules
  27097.     0S0E
  27098. Edit Rule
  27099.     0S0E
  27100. Delete 
  27101.     0S0E
  27102. Delete...\Empty Trash
  27103.     0S0E
  27104. Lotus Product]
  27105. Lotus Product
  27106. OBJECT
  27107. Lotus Product
  27108. OBJECT
  27109. Lotus Product
  27110. OBJECT
  27111. '++LotusScript Development Environment:2:5:(Options):0:74
  27112. Option Public
  27113. Option Explicit
  27114. '++LotusScript Development Environment:2:5:(Forward):0:1
  27115. Declare Sub SwapDocuments(SourceDoc As NotesDocument,DestDoc As NotesDocument)
  27116. '++LotusScript Development Environment:2:5:(Declarations):0:10
  27117. Dim db As notesdatabase
  27118. Dim s As notessession
  27119. Dim view As notesview
  27120. Dim ws As notesuiworkspace
  27121. Dim uiview As notesuiview
  27122. '++LotusScript Development Environment:2:2:SwapDocuments:1:8
  27123. Sub SwapDocuments(SourceDoc As NotesDocument,DestDoc As NotesDocument)
  27124.     Dim ssort As Integer
  27125.     Dim dsort As Integer
  27126.     ssort = sourcedoc.OrderNum(0)
  27127.     dsort = destdoc.OrderNum(0)
  27128.     If ssort=dsort Then dsort=dsort+1
  27129.     SourceDoc.OrderNum = dsort
  27130.     DestDoc.OrderNum = ssort
  27131.     Call SourceDoc.Save(True,False,True)
  27132.     Call DestDoc.Save(True,False,True)
  27133. End Sub
  27134. '++LotusScript Development Environment:2:5:(Options):0:66
  27135. '++LotusScript Development Environment:2:5:(Forward):0:1
  27136. Declare Sub Postopen(Source As Notesuiview)
  27137. Declare Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
  27138. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27139. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27140. Private Sub BindEvents(Byval Objectname_ As String)
  27141.     Static Source As NOTESUIVIEW
  27142.     Set Source = Bind(Objectname_)
  27143.     On Event Postopen From Source Call Postopen
  27144.     On Event Queryopendocument From Source Call Queryopendocument
  27145. End Sub
  27146. '++LotusScript Development Environment:2:2:Postopen:1:12
  27147. Sub Postopen(Source As Notesuiview)
  27148.     Set s=New notessession
  27149.     Set db = s.currentdatabase
  27150.     Set ws= New notesuiworkspace
  27151.     Set view=source.view
  27152.     Set uiview = source
  27153. End Sub
  27154. '++LotusScript Development Environment:2:2:Queryopendocument:1:12
  27155. Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
  27156.     Dim oldrule As notesdocument
  27157.     Dim uidoc As notesuidocument
  27158.     Dim ruledocs As notesdocumentcollection
  27159.     Set ruledocs = source.documents
  27160.     Set oldrule = ruledocs.getfirstdocument
  27161.     If (ws.dialogbox("Mailrule", True, True,False, False, False, False,"New Rule",oldrule)) Then
  27162.         'The user clicked on OK, process their information in the form of a new filter document
  27163.         Call oldrule.save(True, False,True)
  27164.         'Call oldrule.putinfolder("Rules")
  27165.         ws.viewrefresh
  27166.     End If
  27167.     continue = False
  27168. End Sub
  27169. Lotus Product
  27170. OBJECT
  27171. O=Lotus Notes
  27172. O=Lotus Notes
  27173. PURSAFO
  27174. |.:#U
  27175. O=Lotus Notes
  27176. CN=Lotus Notes Template Development/O=Lotus Notes
  27177. PURSAFO
  27178. $TITLE
  27179. $Name
  27180. $Index
  27181. $Formula
  27182. $FormulaClass
  27183. $VIEWFORMAT
  27184. $AppHelpFormula
  27185. $Comment
  27186. $WebFlags
  27187. $V5ACTIONS
  27188. $ACTIONS
  27189. $SCRIPTOBJ_1
  27190. $SCRIPTOBJ_2
  27191. $SCRIPTOBJ_4
  27192. $SCRIPTOBJ_5
  27193. $ViewGlobalScript
  27194. $ViewScript
  27195. $ViewScript_O
  27196. '++LotusScript Development Environment:2:5:(Options):0:74
  27197. Option Public 
  27198. Option Declare
  27199. Use "Common"
  27200. '++LotusScript Development Environment:2:5:(Forward):0:1
  27201. Declare Class TrackingApp As BaseApplication
  27202. Declare Sub Initialize
  27203. '++LotusScript Development Environment:2:5:(Declarations):0:10
  27204. 'Mail Tools \ Tracking Information: 
  27205. Class TrackingApp As BaseApplication
  27206.     Private uiws As notesuiworkspace    
  27207.     Private collectionAgentContext As notesdocumentcollection
  27208.     Private note As notesdocument
  27209.     Private noteCursorDoc As notesdocument
  27210.     Private noteTrackingRequest As NotesDocument
  27211.     Private nameRecipient As notesname
  27212.     Private vTargetNames As Variant    
  27213.     Private TrackingStringTable As MessageTrackStringTable
  27214.     Private vSelectTargetNames As Variant
  27215.     Private vMailServer As Variant
  27216.     Private strUNID As String
  27217.     Private nCollectionCount As Integer
  27218.     Private nItemsTrimmed As Integer    
  27219.     Private nSuccess As Integer
  27220.     Private nNoShowInstruction As Integer
  27221.     Private strWindowTitle As String
  27222.     Private strSelectionPrompt As String
  27223. Declare Public Sub new()
  27224. Declare Public Function Init() As Integer
  27225.     Public Sub new()
  27226.     'build local objects        
  27227.         Set Me.collectionAgentContext = TrackingApp..DocumentsToProcess
  27228.         Set Me.TrackingStringTable = New MessageTrackStringTable
  27229.         Set Me.uiws = New notesuiworkspace
  27230.         Set Me.note = Me.collectionAgentContext.getfirstdocument
  27231.         Me.vMailServer = Evaluate(|@LocationGetInfo([HOMESERVER])|)
  27232.         Set Me.noteTrackingRequest = New NotesDocument(Me.session.CurrentDatabase)
  27233.         Set Me.noteCursorDoc = New NotesDocument(Me.session.CurrentDatabase)
  27234.         Me.vTargetNames =  Arrayappend(Me.note.SendTo,Me.note.CopyTo)
  27235.         Me.vTargetNames =  Arrayappend(Me.vTargetNames ,Me.note.BlindCopyTo)
  27236.         Me.vTargetNames = Fulltrim(Me.vTargetNames)
  27237.         Me.nNoShowInstruction = 0 - Cint(Me.session.Getenvironmentvalue("NoShowTrackMessage",False))
  27238.     End Sub
  27239.     Public Function Init() As Integer
  27240.         Call noteCursorDoc.replaceitemvalue("OptionLabel",Me.TrackingStringTable .GetString(TRACKING_STRING+66,Null))
  27241.         Call noteCursorDoc.replaceitemvalue("UserOptions",vTargetNames)
  27242.         Me.nSuccess = uiws.dialogbox("(subOption)",True,True,False,False,False,False,_
  27243.         Me.TrackingStringTable .GetString(TRACKING_STRING+65,Null)_
  27244.         ,noteCursorDoc,True,False)                    
  27245.         vSelectTargetNames =  noteCursorDoc.SelectedOptions        
  27246.         If Isempty(Me.vSelectTargetNames) Or Me.vSelectTargetNames(0) = "" Then
  27247.             End
  27248.         End If
  27249.         Me.strUNID = "OF" + Mid(Me.note.UniversalID, 1,8) + ":" + Mid(Me.note.UniversalID, 9,8) + " ON" _
  27250.         + Mid(Me.note.UniversalID, 17,8) + ":" + Mid(Me.note.UniversalID, 25, 8)
  27251.         With Me.noteTrackingRequest
  27252.             Call .Makeresponse(note)        
  27253.             Call .ReplaceItemValue("Form", "Tracking Request")            
  27254.             Call .ReplaceItemValue("$MTINMSGID", Me.note.~$MessageID(0))
  27255.             Call .ReplaceItemValue("$MTINRCP",Me.vSelectTargetNames)
  27256.             Select Case noteCursorDoc.TraceType(0)
  27257.             Case "0"
  27258.                 Call .ReplaceItemValue("DeliveryReport", "D")
  27259.             Case "1"
  27260.                 Call .ReplaceItemValue("DeliveryReport", "R")
  27261.             End Select
  27262.             Call .ReplaceItemValue("$MTNEXTMTA", Me.vMailServer(0))    
  27263.             Call .ReplaceItemValue("$MTREPORTID", Me.noteTrackingRequest.UniversalID)    
  27264.             Call .Save(True,True,True)
  27265.             Call .Send(False, Me.vSelectTargetNames)
  27266.         End With
  27267.         If Not Me.nNoShowInstruction Then
  27268.             Me.nSuccess = uiws.dialogbox("(subTrackMessage)",True,True,True,False,False,False,_
  27269.             Me.TrackingStringTable .GetString(TRACKING_STRING+65,Null)_
  27270.             ,noteCursorDoc,True,False)                    
  27271.             If noteCursorDoc.tmpDontShow(0) = "1" Then
  27272.                 Call Me.Session.Setenvironmentvar("NoShowTrackMessage","1",False)                
  27273.             End If
  27274.         End If
  27275.     End Function
  27276. End Class
  27277. '++LotusScript Development Environment:2:2:Initialize:1:10
  27278. Sub Initialize
  27279.     Dim MessageTrackingApplication As New TrackingApp
  27280.     Call MessageTrackingApplication.Init()
  27281. End Sub
  27282. Lotus Product
  27283. V0.0_
  27284.     0S0E
  27285. O=Lotus Notes
  27286. O=Lotus Notes
  27287. PURSAFO
  27288. |.:#U
  27289. O=Lotus Notes
  27290. CN=Lotus Notes Template Development/O=Lotus Notes
  27291. PURSAFO
  27292. $TITLE
  27293. $AssistType
  27294. $AssistLastRun
  27295. $AssistDocCount
  27296. $AssistFlags
  27297. $AssistTrigger
  27298. $AssistInfo
  27299. $AssistQuery
  27300. $AssistAction
  27301. $AssistAction_Ex
  27302. Lotus Product
  27303. OBJECT
  27304. (SignatureOption)'++LotusScript Development Environment:2:5:(Options):0:66
  27305. '++LotusScript Development Environment:2:5:(Forward):0:1
  27306. Declare Sub Exiting(Source As Field)
  27307. Declare Sub Entering(Source As Field)
  27308. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27309. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27310. Private Sub BindEvents(Byval Objectname_ As String)
  27311.     Static Source As FIELD
  27312.     Set Source = Bind(Objectname_)
  27313.     On Event Exiting From Source Call Exiting
  27314.     On Event Entering From Source Call Entering
  27315. End Sub
  27316. '++LotusScript Development Environment:2:2:Exiting:1:12
  27317. Sub Exiting(Source As Field)
  27318.     'Should I clear the Signature location field here if I sense that the Option has been changed?
  27319.     Dim uiws As New notesuiworkspace
  27320.     Dim noteUIDoc As notesuidocument
  27321.     Set noteUIDoc = uiws.currentdocument
  27322.     If strSignatureOption <> noteUIDoc.FieldGetText("SignatureOption") Then
  27323.         Call noteUIDoc.FieldSetText("Signature","")
  27324.     End If
  27325. End Sub
  27326. '++LotusScript Development Environment:2:2:Entering:1:12
  27327. Sub Entering(Source As Field)
  27328.     Dim uiws As New notesuiworkspace
  27329.     Dim noteUIDoc As notesuidocument
  27330.     Set noteUIDoc = uiws.currentdocument
  27331.     strSignatureOption = noteUIDoc.FieldGetText("SignatureOption")
  27332. End Sub
  27333. Lotus Product
  27334. OBJECT
  27335. '++LotusScript Development Environment:2:5:(Options):0:66
  27336. '++LotusScript Development Environment:2:5:(Forward):0:1
  27337. Declare Sub Entering(Source As Field)
  27338. Declare Function ReadFileContents(Byval strPathandFile As String) As Variant
  27339. Declare Function WriteToProfile(note As notesdocument , Byval FieldName As String, ItemArray As Variant) As Integer
  27340. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27341. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27342. Private Sub BindEvents(Byval Objectname_ As String)
  27343.     Static Source As FIELD
  27344.     Set Source = Bind(Objectname_)
  27345.     On Event Entering From Source Call Entering
  27346. End Sub
  27347. '++LotusScript Development Environment:2:2:Entering:1:12
  27348. Sub Entering(Source As Field)
  27349.     Dim uiws As New notesuiworkspace
  27350.     Dim noteUIDoc As notesuidocument
  27351.     Dim noteBEDoc As notesdocument
  27352.     Dim nSignatureOption As Integer
  27353.     Dim vSignatureLocation As Variant
  27354.     Dim vSignatureBody As Variant
  27355.     Dim nSuccess As Integer
  27356.     Set noteUIDoc = uiws.currentdocument
  27357.     Set noteBEDoc = NoteUIDoc.Document
  27358.     If noteUIDoc.FieldGetText("Signature") <> "" Then
  27359.         Exit Sub
  27360.     End If
  27361.     nSignatureOption = Cint(noteBEDoc.SignatureOption(0))
  27362.     Select Case nSignatureOption
  27363.     Case 1
  27364.         'Do nothing
  27365.     Case 2 
  27366.         vSignatureLocation = uiws.openfiledialog(False,"Title","Text Files|*.txt|HTML Files|*.htm|Bitmap|BMP||","","")
  27367.         If Isempty(vSignatureLocation) Then
  27368.             Redim vSignatureLocation(0)
  27369.         End If
  27370.         Call noteUIDoc.FieldSetText("Signature",Cstr(vSignatureLocation(0)))
  27371.     Case 3
  27372.         'Calling program has handle to Mail & Calander Profile
  27373.     End Select
  27374. End Sub
  27375. '++LotusScript Development Environment:2:1:ReadFileContents:1:8
  27376. Function ReadFileContents(Byval strPathandFile As String) As Variant
  27377.     On Error Goto IOError    
  27378.     Redim strBody(0)  As String
  27379.     Dim nfilehandle As Integer
  27380.     Dim nIndex As Integer
  27381.     nFileHandle = Freefile()
  27382.     Open strPathandFile For Input As nFileHandle
  27383.     Do While Not Eof(nFileHandle)
  27384.         Line Input #nFileHandle, strBody(nIndex)
  27385.         nIndex = nIndex + 1
  27386.         Redim Preserve strBody(nIndex)
  27387.     Loop
  27388.     Close # nFileHandle 
  27389.     ReadFileContents = strBody
  27390.     Exit Function    
  27391. IOError:    
  27392. End Function
  27393. '++LotusScript Development Environment:2:1:WriteToProfile:1:8
  27394. Function WriteToProfile(note As notesdocument , Byval FieldName As String, ItemArray As Variant) As Integer
  27395.     On Error Goto Trap
  27396.     Dim nCounter As Integer
  27397.     Dim nIndex As Integer    
  27398.     Dim rtItem As notesrichtextitem
  27399.     If FieldName = "" Then
  27400.         Messagebox("Target fieldname not supplied.")
  27401.         End
  27402.     End If
  27403.     If Not (Isarray(ItemArray)) Then ' Or (Cstr(ItemArray) <> "") Then
  27404.         Dim strTempItem As String
  27405.         strTempItem = Cstr(ItemArray)
  27406.         Redim ItemArray(0)
  27407.         ItemArray(0) = strTempString
  27408.     End If
  27409.     Set rtItem =  New NotesRichTextItem( note , FieldName )    
  27410.     nIndex = Ubound(ItemArray)
  27411.     For nCounter = 0 To nIndex    
  27412.         Call rtItem.appendText(ItemArray(nCounter))
  27413.     Next
  27414.     Call note.save(True,True,True)
  27415.     WriteToProfile = True
  27416.     Exit Function
  27417. Trap:
  27418.     WriteToProfile = False
  27419.     Resume GetOut
  27420. GetOut:
  27421. End Function
  27422. Lotus Product
  27423. V0.0i
  27424. ,$    }X
  27425.     Select Option:
  27426. SignatureOption
  27427. Import from File|2Select from 'Mail Preference'|1
  27428. SignatureOption
  27429.     0S0E
  27430.     Signature: 
  27431. Signature
  27432. SignatureOption
  27433.     0S0E
  27434. SignatureGraphic
  27435.     You can 
  27436.     Automatically
  27437.      append a signature to your emails by choosing 
  27438.     Enable Auto Signature
  27439.      in the Mail and Calendar preferences dialog. 
  27440. O=Lotus Notes
  27441. O=Lotus Notes
  27442. PURSAFO
  27443. |.:#U
  27444. O=Lotus Notes
  27445. CN=Lotus Notes Template Development/O=Lotus Notes
  27446. PURSAFO
  27447. $Info
  27448. $$Script_O
  27449. $$ScriptName
  27450. $$SignatureOption
  27451. $SignatureOption_O
  27452. $$Signature
  27453. $Signature_O
  27454. $Body
  27455. Memo Stationery
  27456. Personal Stationery
  27457.     6S8S
  27458. IsMailStationeryh
  27459.     7S9S
  27460. SendTo
  27461.     1S2S6S
  27462.     0R1S2S8S
  27463.     0R1S2S15S16S17S18S25S
  27464. SendTo
  27465.     0R1S2S5S6S8S12S16S20S
  27466. SendTo
  27467.     0R1S2S5S6S8S12S16S20S
  27468. Person
  27469.     0R1S2S5S6S8S10S11S12S13S14S
  27470. Person
  27471. Person
  27472. Person
  27473. Person
  27474.     0R10S11S20S32S
  27475. $ContentIconh
  27476. $ContentIcon
  27477. Froma
  27478.  pager 
  27479. SendToa
  27480.  pager 
  27481. message.wav
  27482. vmsg_hdr.wav
  27483. .wavG
  27484. .tifG
  27485. $ContentIconh
  27486. $ContentIcon
  27487.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  27488. IsMailStationeryh
  27489. MailStationeryName
  27490. Subject
  27491.     7S9S
  27492. $65$59$66$55$62$60$Conflict
  27493. Memo Stationery
  27494. Personal Stationery
  27495.     6S8S
  27496. IsMailStationeryh
  27497.     7S9S
  27498. $66Whol
  27499. SendTo
  27500.     1S2S6S
  27501.     0R1S2S8S
  27502.     0R1S2S15S16S17S18S25S
  27503. SendTo
  27504.     0R1S2S5S6S8S12S16S20S
  27505. SendTo
  27506.     0R1S2S5S6S8S12S16S20S
  27507. Person
  27508.     0R1S2S5S6S8S10S11S12S13S14S
  27509. Person
  27510. Person
  27511. Person
  27512. Person
  27513.     0R10S11S20S32S
  27514. $55Date
  27515. $ContentIconh
  27516. $ContentIcon
  27517. Froma
  27518.  pager 
  27519. SendToa
  27520.  pager 
  27521. message.wav
  27522. vmsg_hdr.wav
  27523. .wavG
  27524. .tifG
  27525. $ContentIconh
  27526. $ContentIcon
  27527.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Stationeryb
  27528. IsMailStationeryh
  27529. MailStationeryName
  27530. Subject
  27531.     7S9S
  27532. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  27533. '++LotusScript Development Environment:2:5:(Forward):0:1
  27534. Declare Sub Click(Source As Button)
  27535. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27536. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27537. Private Sub BindEvents(Byval Objectname_ As String)
  27538.     Static Source As BUTTON
  27539.     Set Source = Bind(Objectname_)
  27540.     On Event Click From Source Call Click
  27541. End Sub
  27542. '++LotusScript Development Environment:2:2:Click:1:12
  27543. Sub Click(Source As Button)
  27544.     Dim session As New notessession
  27545.     Dim uiws As New notesuiworkspace
  27546.     Dim collection As notesdocumentcollection
  27547.     Dim noteUIEditDocument As notesuidocument
  27548.     Dim database As NotesDatabase
  27549.     Set noteCursorDoc = session.currentdatabase.createdocument
  27550.     Set database = session.currentdatabase
  27551.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  27552.     Set noteCursorDoc = collection.getfirstdocument
  27553.     If Not noteCursorDoc Is Nothing Then
  27554.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  27555.     End If
  27556. End Sub
  27557. IsMailStationery
  27558.     1S2S
  27559. act_NEWMAIL.GIF|act_NEWMAIL?
  27560. New Memo\New Memo
  27561.     0S0E
  27562. act_NEWMAIL.GIF|act_NEWMAIL?
  27563. New Memo\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  27564. '++LotusScript Development Environment:2:5:(Forward):0:1
  27565. Declare Sub Click(Source As Button)
  27566. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27567. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27568. Private Sub BindEvents(Byval Objectname_ As String)
  27569.     Static Source As BUTTON
  27570.     Set Source = Bind(Objectname_)
  27571.     On Event Click From Source Call Click
  27572. End Sub
  27573. '++LotusScript Development Environment:2:2:Click:1:12
  27574. Sub Click(Source As Button)
  27575.     Dim session As New notessession
  27576.     Dim uiws As New notesuiworkspace
  27577.     Dim collection As notesdocumentcollection
  27578.     Dim noteUIEditDocument As notesuidocument
  27579.     Dim database As NotesDatabase
  27580.     Set noteCursorDoc = session.currentdatabase.createdocument
  27581.     Set database = session.currentdatabase
  27582.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  27583.     Set noteCursorDoc = collection.getfirstdocument
  27584.     If Not noteCursorDoc Is Nothing Then
  27585.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  27586.     End If
  27587. End Sub
  27588. act_NEWMAIL.GIF|act_NEWMAIL?
  27589. _Forward
  27590. ForwardK 
  27591.     0S0E
  27592. ISMAILSTATIONERYh
  27593.     0S0E
  27594. act_FORWARD.GIF|act_FORWARD?
  27595. New Stationery\Memo StationeryL
  27596. MailStEd
  27597.     1S2S3S
  27598.     0R4S
  27599. act_NEWSTATIONERY.GIF|act_NEWSTATIONERY?
  27600. New Stationery\Personal Stationery\
  27601. MailStEd
  27602.     1S2S3S
  27603. Personal Stationery
  27604.     0R4S
  27605. act_NEWSTATIONERY.GIF|act_NEWSTATIONERY?
  27606. 00000000
  27607. Lotus Notes Stationery
  27608. Please select one document before executing this command.
  27609.     11S12S14S16S
  27610. MailStEd
  27611.     0R1S2S3S
  27612. act_EDIT.GIF|act_EDIT?
  27613. Rename'++LotusScript Development Environment:2:5:(Options):0:66
  27614. '++LotusScript Development Environment:2:5:(Forward):0:1
  27615. Declare Sub Click(Source As Button)
  27616. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27617. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27618. Private Sub BindEvents(Byval Objectname_ As String)
  27619.      Static Source As BUTTON
  27620.      Set Source = Bind(Objectname_)
  27621.      On Event Click From Source Call Click
  27622. End Sub
  27623. '++LotusScript Development Environment:2:2:Click:1:12
  27624. Sub Click(Source As Button)
  27625.      
  27626.      Dim workspace As New NotesUIWorkspace
  27627.      Dim uidoc As NotesUIDocument
  27628.      Dim doc As NotesDocument
  27629.      Dim sName As String
  27630.      
  27631.      Set uidoc = workspace.CurrentDocument
  27632.      If uidoc Is Nothing Then
  27633.           
  27634.           Dim db As NotesDatabase
  27635.           Dim collection As NotesDocumentCollection
  27636.           Dim session As New NotesSession
  27637.           
  27638.           Set db = session.CurrentDatabase
  27639.           Set collection = db.UnprocessedDocuments
  27640.           If collection.Count <> 1 Then
  27641.                Messagebox "Please select one document before executing this command.", MB_ICONSTOP+MB_OK,"Lotus Notes Stationery"
  27642.                Exit Sub
  27643.           End If
  27644.           Set doc = collection.GetFirstDocument
  27645.      Else
  27646.           Set doc = uidoc.Document
  27647.      End If
  27648.      
  27649.      sName = Inputbox$("What would you like to call this Stationery?", "Lotus Notes Stationery", doc.MailStationeryName(0))
  27650.      If sName <> "" Then
  27651.           doc.MailStationeryName = sName
  27652.           Call doc.Save(True,True)
  27653.           If Not (uidoc Is Nothing) Then
  27654.                If uidoc.InPreviewPane Then
  27655.                     Call workspace.viewRefresh
  27656.                Else
  27657.                     Call uidoc.Reload 
  27658.                End If
  27659.           Else
  27660.                Call workspace.viewRefresh
  27661.           End If
  27662.      End If
  27663.      
  27664. End Sub
  27665. act_RENAME.GIF|act_RENAME?
  27666. Delete
  27667. 00000000
  27668. Lotus Notes Stationery
  27669. Please select one document before executing this command.
  27670.     11S12S14S16S
  27671. act_DELETE.GIF|act_DELETE?
  27672. Categori_zeK
  27673. _Move To Folder...
  27674. _Remove From Folder...
  27675. Tools...\Preferences...K2
  27676. (Preferences)
  27677.     0S0E
  27678. act_TOOLS.GIF|act_TOOLS?
  27679. Tools...\Out of Office...
  27680. (EditOfficeProfile)
  27681.     0S0E
  27682. act_TOOLS.GIF|act_TOOLS?
  27683. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  27684. '++LotusScript Development Environment:2:5:(Forward):0:1
  27685. Declare Sub Click(Source As Button)
  27686. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27687. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27688. Private Sub BindEvents(Byval Objectname_ As String)
  27689.     Static Source As BUTTON
  27690.     Set Source = Bind(Objectname_)
  27691.     On Event Click From Source Call Click
  27692. End Sub
  27693. '++LotusScript Development Environment:2:2:Click:1:12
  27694. Sub Click(Source As Button)
  27695.     Dim session As New notessession
  27696.     Dim uiws As New notesuiworkspace
  27697.     Dim collection As notesdocumentcollection
  27698.     Dim noteUIEditDocument As notesuidocument
  27699.     Dim database As NotesDatabase
  27700.     Set noteCursorDoc = session.currentdatabase.createdocument
  27701.     Set database = session.currentdatabase
  27702.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  27703.     Set noteCursorDoc = collection.getfirstdocument
  27704.     If Not noteCursorDoc Is Nothing Then
  27705.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  27706.     End If
  27707. End Sub
  27708. IsMailStationery
  27709.     1S2S
  27710. New Memo\New Memo
  27711.     0S0E
  27712. New Memo\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  27713. '++LotusScript Development Environment:2:5:(Forward):0:1
  27714. Declare Sub Click(Source As Button)
  27715. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27716. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27717. Private Sub BindEvents(Byval Objectname_ As String)
  27718.     Static Source As BUTTON
  27719.     Set Source = Bind(Objectname_)
  27720.     On Event Click From Source Call Click
  27721. End Sub
  27722. '++LotusScript Development Environment:2:2:Click:1:12
  27723. Sub Click(Source As Button)
  27724.     Dim session As New notessession
  27725.     Dim uiws As New notesuiworkspace
  27726.     Dim collection As notesdocumentcollection
  27727.     Dim noteUIEditDocument As notesuidocument
  27728.     Dim database As NotesDatabase
  27729.     Set noteCursorDoc = session.currentdatabase.createdocument
  27730.     Set database = session.currentdatabase
  27731.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  27732.     Set noteCursorDoc = collection.getfirstdocument
  27733.     If Not noteCursorDoc Is Nothing Then
  27734.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  27735.     End If
  27736. End Sub
  27737. _Forward
  27738. ForwardK 
  27739.     0S0E
  27740. ISMAILSTATIONERYh
  27741.     0S0E
  27742. New Stationery\Memo StationeryL
  27743. MailStEd
  27744.     1S2S3S
  27745.     0R4S
  27746. New Stationery\Personal Stationery\
  27747. MailStEd
  27748.     1S2S3S
  27749. Personal Stationery
  27750.     0R4S
  27751. 00000000
  27752. Lotus Notes Stationery
  27753. Please select one document before executing this command.
  27754.     11S12S14S16S
  27755. MailStEd
  27756.     0R1S2S3S
  27757. Rename'++LotusScript Development Environment:2:5:(Options):0:66
  27758. '++LotusScript Development Environment:2:5:(Forward):0:1
  27759. Declare Sub Click(Source As Button)
  27760. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27761. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27762. Private Sub BindEvents(Byval Objectname_ As String)
  27763.      Static Source As BUTTON
  27764.      Set Source = Bind(Objectname_)
  27765.      On Event Click From Source Call Click
  27766. End Sub
  27767. '++LotusScript Development Environment:2:2:Click:1:12
  27768. Sub Click(Source As Button)
  27769.      
  27770.      Dim workspace As New NotesUIWorkspace
  27771.      Dim uidoc As NotesUIDocument
  27772.      Dim doc As NotesDocument
  27773.      Dim sName As String
  27774.      
  27775.      Set uidoc = workspace.CurrentDocument
  27776.      If uidoc Is Nothing Then
  27777.           
  27778.           Dim db As NotesDatabase
  27779.           Dim collection As NotesDocumentCollection
  27780.           Dim session As New NotesSession
  27781.           
  27782.           Set db = session.CurrentDatabase
  27783.           Set collection = db.UnprocessedDocuments
  27784.           If collection.Count <> 1 Then
  27785.                Messagebox "Please select one document before executing this command.", MB_ICONSTOP+MB_OK,"Lotus Notes Stationery"
  27786.                Exit Sub
  27787.           End If
  27788.           Set doc = collection.GetFirstDocument
  27789.      Else
  27790.           Set doc = uidoc.Document
  27791.      End If
  27792.      
  27793.      sName = Inputbox$("What would you like to call this Stationery?", "Lotus Notes Stationery", doc.MailStationeryName(0))
  27794.      If sName <> "" Then
  27795.           doc.MailStationeryName = sName
  27796.           Call doc.Save(True,True)
  27797.           If Not (uidoc Is Nothing) Then
  27798.                If uidoc.InPreviewPane Then
  27799.                     Call workspace.viewRefresh
  27800.                Else
  27801.                     Call uidoc.Reload 
  27802.                End If
  27803.           Else
  27804.                Call workspace.viewRefresh
  27805.           End If
  27806.      End If
  27807.      
  27808. End Sub
  27809. Delete
  27810. 00000000
  27811. Lotus Notes Stationery
  27812. Please select one document before executing this command.
  27813.     11S12S14S16S
  27814. Categori_zeK
  27815. _Move To Folder...
  27816. _Remove From Folder...
  27817. Tools...\Preferences...K2
  27818. (Preferences)
  27819.     0S0E
  27820. Tools...\Out of Office...
  27821. (EditOfficeProfile)
  27822.     0S0E
  27823. Lotus Product
  27824. OBJECT
  27825. Lotus Product
  27826. Lotus Product
  27827. OBJECT
  27828. '++LotusScript Development Environment:2:5:(Options):0:74
  27829. Option Public
  27830. '++LotusScript Development Environment:2:5:(Forward):0:1
  27831. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27832. O=Lotus Notes
  27833. O=Lotus Notes
  27834. PURSAFO
  27835. |.:#U
  27836. O=Lotus Notes
  27837. CN=Lotus Notes Template Development/O=Lotus Notes
  27838. PURSAFO
  27839. mG{#b
  27840. $TITLE
  27841. $Name
  27842. $Index
  27843. $Formula
  27844. $FormulaClass
  27845. $VIEWFORMAT
  27846. $FormFormula
  27847. $AppHelpFormula
  27848. $Comment
  27849. $WebFlags
  27850. $V5ACTIONS
  27851. $ACTIONS
  27852. $SCRIPTOBJ_0
  27853. $SCRIPTOBJ_2
  27854. $SCRIPTOBJ_8
  27855. $ViewGlobalScript
  27856. &Arial
  27857. (subTrackMessage)
  27858.     A tracking request has been issued.
  27859.     You will receive response emails your inbox. 
  27860.     These messages will display the routing status of the email you have traced.
  27861. tmpDontShow
  27862. Don't show this message again|1
  27863. O=Lotus Notes
  27864. O=Lotus Notes
  27865. PURSAFO
  27866. |.:#U
  27867. O=Lotus Notes
  27868. CN=Lotus Notes Template Development/O=Lotus Notes
  27869. PURSAFO
  27870. $Info
  27871. $$ScriptName
  27872. $Body
  27873. xxNotesCats
  27874. Holiday
  27875. Vacation
  27876. Projects
  27877. Clients
  27878. Phone Calls
  27879. Travel
  27880.     1S2S
  27881. Categories
  27882. xxNotesCats
  27883.     0R16S
  27884. AssignState
  27885. Importance
  27886. Importance
  27887. Importance
  27888.     3S4S6S8R14R20R26R
  27889. Subject
  27890. Subject
  27891. Status
  27892. Not Started
  27893. In Progress
  27894. On hold
  27895. Completed
  27896. DueDateTime
  27897. DueDateTime
  27898. DueState
  27899. Overdue
  27900. DueState
  27901. Future
  27902. DueState
  27903. Rejected
  27904. DueState
  27905. Complete
  27906. Current
  27907.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  27908. $189$186Subject$188DueDateTime$187$Conflict
  27909. DueDateTime
  27910. ExcludeFromView
  27911. OrgRepeat
  27912.     L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S
  27913. xxNotesCats
  27914. Holiday
  27915. Vacation
  27916. Projects
  27917. Clients
  27918. Phone Calls
  27919. Travel
  27920.     1S2S
  27921. Categories
  27922. xxNotesCats
  27923.     0R16S$186
  27924. AssignState
  27925. Importance
  27926. Importance
  27927. Importance
  27928.     3S4S6S8R14R20R26RSubjectTo do
  27929. Subject
  27930. Subject
  27931. $188Status
  27932. Status
  27933. Not Started
  27934. In Progress
  27935. On hold
  27936. Completed
  27937.     12SDueDateTimeDue&
  27938. DueDateTime
  27939. DueDateTime
  27940. DueState
  27941. Overdue
  27942. DueState
  27943. Future
  27944. DueState
  27945. Rejected
  27946. DueState
  27947. Complete
  27948. Current
  27949.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S&
  27950. New...\Personal To Do
  27951. '++LotusScript Development Environment:2:5:(Options):0:74
  27952. Use "CSUIViewClass"
  27953. '++LotusScript Development Environment:2:5:(Forward):0:1
  27954. Declare Sub Click(Source As Button)
  27955. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27956. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27957. Private Sub BindEvents(Byval Objectname_ As String)
  27958. Static Source As BUTTON
  27959. Set Source = Bind(Objectname_)
  27960. On Event Click From Source Call Click
  27961. End Sub
  27962. '++LotusScript Development Environment:2:2:Click:1:12
  27963. Sub Click(Source As Button)
  27964.     Call ViewNewTask("1")
  27965. End Sub
  27966. act_csnew.GIF|act_CSNEWDOC
  27967. New...\Group To Do'++LotusScript Development Environment:2:5:(Options):0:74
  27968. Use "CSUIViewClass"
  27969. '++LotusScript Development Environment:2:5:(Forward):0:1
  27970. Declare Sub Click(Source As Button)
  27971. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27972. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27973. Private Sub BindEvents(Byval Objectname_ As String)
  27974. Static Source As BUTTON
  27975. Set Source = Bind(Objectname_)
  27976. On Event Click From Source Call Click
  27977. End Sub
  27978. '++LotusScript Development Environment:2:2:Click:1:12
  27979. Sub Click(Source As Button)
  27980.     Call ViewNewTask("2")
  27981. End Sub
  27982. act_csnew.GIF|act_CSNEWDOC
  27983. Categori_zeK
  27984. _Forward
  27985. _Edit Document
  27986. Send Docu_ment
  27987. _Move to Folder...
  27988. _Remove from Folder...
  27989. Delete
  27990. DueState
  27991. Task Not Completed
  27992. This Task is not yet completed, are you sure you want to delete it?
  27993.     3S4S5S6S7S8S10R21S23S29S
  27994. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  27995. Use "CSUIViewClass"
  27996. '++LotusScript Development Environment:2:5:(Forward):0:1
  27997. Declare Sub Click(Source As Button)
  27998. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27999. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28000. Private Sub BindEvents(Byval Objectname_ As String)
  28001. Static Source As BUTTON
  28002. Set Source = Bind(Objectname_)
  28003. On Event Click From Source Call Click
  28004. End Sub
  28005. '++LotusScript Development Environment:2:2:Click:1:12
  28006. Sub Click(Source As Button)
  28007.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  28008. End Sub
  28009. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28010. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  28011. Use "CSUIViewClass"
  28012. '++LotusScript Development Environment:2:5:(Forward):0:1
  28013. Declare Sub Click(Source As Button)
  28014. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28015. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28016. Private Sub BindEvents(Byval Objectname_ As String)
  28017. Static Source As BUTTON
  28018. Set Source = Bind(Objectname_)
  28019. On Event Click From Source Call Click
  28020. End Sub
  28021. '++LotusScript Development Environment:2:2:Click:1:12
  28022. Sub Click(Source As Button)
  28023.     Call ProcessViewCommand(ACTION_CANCEL)
  28024. End Sub
  28025. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28026. Owner Actions\Confirm
  28027. '++LotusScript Development Environment:2:5:(Options):0:74
  28028. Use "CSUIViewClass"
  28029. '++LotusScript Development Environment:2:5:(Forward):0:1
  28030. Declare Sub Click(Source As Button)
  28031. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28032. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28033. Private Sub BindEvents(Byval Objectname_ As String)
  28034. Static Source As BUTTON
  28035. Set Source = Bind(Objectname_)
  28036. On Event Click From Source Call Click
  28037. End Sub
  28038. '++LotusScript Development Environment:2:2:Click:1:12
  28039. Sub Click(Source As Button)
  28040.     Call ProcessViewCommand(ACTION_CONFIRM)
  28041. End Sub
  28042. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28043. Owner Actions\View Participant Status
  28044. '++LotusScript Development Environment:2:5:(Options):0:74
  28045. Use "CSUIViewClass"
  28046. '++LotusScript Development Environment:2:5:(Forward):0:1
  28047. Declare Sub Click(Source As Button)
  28048. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28049. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28050. Private Sub BindEvents(Byval Objectname_ As String)
  28051. Static Source As BUTTON
  28052. Set Source = Bind(Objectname_)
  28053. On Event Click From Source Call Click
  28054. End Sub
  28055. '++LotusScript Development Environment:2:2:Click:1:12
  28056. Sub Click(Source As Button)
  28057.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  28058. End Sub
  28059. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28060. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  28061. Use "CSUIViewClass"
  28062. '++LotusScript Development Environment:2:5:(Forward):0:1
  28063. Declare Sub Click(Source As Button)
  28064. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28065. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28066. Private Sub BindEvents(Byval Objectname_ As String)
  28067. Static Source As BUTTON
  28068. Set Source = Bind(Objectname_)
  28069. On Event Click From Source Call Click
  28070. End Sub
  28071. '++LotusScript Development Environment:2:2:Click:1:12
  28072. Sub Click(Source As Button)
  28073.     Call ProcessViewCommand(ACTION_SENDMEMO)
  28074. End Sub
  28075. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28076. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  28077. Use "CSUIViewClass"
  28078. '++LotusScript Development Environment:2:5:(Forward):0:1
  28079. Declare Sub Click(Source As Button)
  28080. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28081. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28082. Private Sub BindEvents(Byval Objectname_ As String)
  28083. Static Source As BUTTON
  28084. Set Source = Bind(Objectname_)
  28085. On Event Click From Source Call Click
  28086. End Sub
  28087. '++LotusScript Development Environment:2:2:Click:1:12
  28088. Sub Click(Source As Button)
  28089.     Call ProcessViewCommand(ACTION_ACCEPT)
  28090. End Sub
  28091. act_participantactions.GIF|act_CSPARTACTIONS
  28092. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  28093. Use "CSUIViewClass"
  28094. '++LotusScript Development Environment:2:5:(Forward):0:1
  28095. Declare Sub Click(Source As Button)
  28096. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28097. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28098. Private Sub BindEvents(Byval Objectname_ As String)
  28099. Static Source As BUTTON
  28100. Set Source = Bind(Objectname_)
  28101. On Event Click From Source Call Click
  28102. End Sub
  28103. '++LotusScript Development Environment:2:2:Click:1:12
  28104. Sub Click(Source As Button)
  28105.     Call ProcessViewCommand(ACTION_DECLINE)
  28106. End Sub
  28107. act_participantactions.GIF|act_CSPARTACTIONS
  28108. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  28109. Use "CSUIViewClass"
  28110. '++LotusScript Development Environment:2:5:(Forward):0:1
  28111. Declare Sub Click(Source As Button)
  28112. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28113. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28114. Private Sub BindEvents(Byval Objectname_ As String)
  28115. Static Source As BUTTON
  28116. Set Source = Bind(Objectname_)
  28117. On Event Click From Source Call Click
  28118. End Sub
  28119. '++LotusScript Development Environment:2:2:Click:1:12
  28120. Sub Click(Source As Button)
  28121.     Call ProcessViewCommand(ACTION_DELEGATE)
  28122. End Sub
  28123. act_participantactions.GIF|act_CSPARTACTIONS
  28124. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  28125. Use "CSUIViewClass"
  28126. '++LotusScript Development Environment:2:5:(Forward):0:1
  28127. Declare Sub Click(Source As Button)
  28128. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28129. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28130. Private Sub BindEvents(Byval Objectname_ As String)
  28131. Static Source As BUTTON
  28132. Set Source = Bind(Objectname_)
  28133. On Event Click From Source Call Click
  28134. End Sub
  28135. '++LotusScript Development Environment:2:2:Click:1:12
  28136. Sub Click(Source As Button)
  28137.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  28138. End Sub
  28139. act_participantactions.GIF|act_CSPARTACTIONS
  28140. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  28141. Use "CommonUI"
  28142. '++LotusScript Development Environment:2:5:(Forward):0:1
  28143. Declare Sub Click(Source As Button)
  28144. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28145. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28146. Private Sub BindEvents(Byval Objectname_ As String)
  28147. Static Source As BUTTON
  28148. Set Source = Bind(Objectname_)
  28149. On Event Click From Source Call Click
  28150. End Sub
  28151. '++LotusScript Development Environment:2:2:Click:1:12
  28152. Sub Click(Source As Button)
  28153.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  28154. End Sub
  28155. act_COPYINTO.GIF|act_COPYINTO?
  28156. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  28157. Use "CommonUI"
  28158. '++LotusScript Development Environment:2:5:(Forward):0:1
  28159. Declare Sub Click(Source As Button)
  28160. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28161. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28162. Private Sub BindEvents(Byval Objectname_ As String)
  28163. Static Source As BUTTON
  28164. Set Source = Bind(Objectname_)
  28165. On Event Click From Source Call Click
  28166. End Sub
  28167. '++LotusScript Development Environment:2:2:Click:1:12
  28168. Sub Click(Source As Button)
  28169.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  28170. End Sub
  28171. act_COPYINTO.GIF|act_COPYINTO?
  28172. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  28173. Use "CommonUI"
  28174. '++LotusScript Development Environment:2:5:(Forward):0:1
  28175. Declare Sub Click(Source As Button)
  28176. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28177. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28178. Private Sub BindEvents(Byval Objectname_ As String)
  28179.     Static Source As BUTTON
  28180.     Set Source = Bind(Objectname_)
  28181.     On Event Click From Source Call Click
  28182. End Sub
  28183. '++LotusScript Development Environment:2:2:Click:1:12
  28184. Sub Click(Source As Button)
  28185.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  28186. End Sub
  28187. act_COPYINTO.GIF|act_COPYINTO?
  28188. New...\Personal To Do
  28189. '++LotusScript Development Environment:2:5:(Options):0:74
  28190. Use "CSUIViewClass"
  28191. '++LotusScript Development Environment:2:5:(Forward):0:1
  28192. Declare Sub Click(Source As Button)
  28193. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28194. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28195. Private Sub BindEvents(Byval Objectname_ As String)
  28196. Static Source As BUTTON
  28197. Set Source = Bind(Objectname_)
  28198. On Event Click From Source Call Click
  28199. End Sub
  28200. '++LotusScript Development Environment:2:2:Click:1:12
  28201. Sub Click(Source As Button)
  28202.     Call ViewNewTask("1")
  28203. End Sub
  28204. New...\Group To Do'++LotusScript Development Environment:2:5:(Options):0:74
  28205. Use "CSUIViewClass"
  28206. '++LotusScript Development Environment:2:5:(Forward):0:1
  28207. Declare Sub Click(Source As Button)
  28208. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28209. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28210. Private Sub BindEvents(Byval Objectname_ As String)
  28211. Static Source As BUTTON
  28212. Set Source = Bind(Objectname_)
  28213. On Event Click From Source Call Click
  28214. End Sub
  28215. '++LotusScript Development Environment:2:2:Click:1:12
  28216. Sub Click(Source As Button)
  28217.     Call ViewNewTask("2")
  28218. End Sub
  28219. Categori_zeK
  28220. _Forward
  28221. _Edit Document
  28222. Send Docu_ment
  28223. _Move to Folder...
  28224. _Remove from Folder...
  28225. Delete
  28226. DueState
  28227. Task Not Completed
  28228. This Task is not yet completed, are you sure you want to delete it?
  28229.     3S4S5S6S7S8S10R21S23S29S
  28230. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  28231. Use "CSUIViewClass"
  28232. '++LotusScript Development Environment:2:5:(Forward):0:1
  28233. Declare Sub Click(Source As Button)
  28234. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28235. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28236. Private Sub BindEvents(Byval Objectname_ As String)
  28237. Static Source As BUTTON
  28238. Set Source = Bind(Objectname_)
  28239. On Event Click From Source Call Click
  28240. End Sub
  28241. '++LotusScript Development Environment:2:2:Click:1:12
  28242. Sub Click(Source As Button)
  28243.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  28244. End Sub
  28245. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  28246. Use "CSUIViewClass"
  28247. '++LotusScript Development Environment:2:5:(Forward):0:1
  28248. Declare Sub Click(Source As Button)
  28249. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28250. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28251. Private Sub BindEvents(Byval Objectname_ As String)
  28252. Static Source As BUTTON
  28253. Set Source = Bind(Objectname_)
  28254. On Event Click From Source Call Click
  28255. End Sub
  28256. '++LotusScript Development Environment:2:2:Click:1:12
  28257. Sub Click(Source As Button)
  28258.     Call ProcessViewCommand(ACTION_CANCEL)
  28259. End Sub
  28260. Owner Actions\Confirm
  28261. '++LotusScript Development Environment:2:5:(Options):0:74
  28262. Use "CSUIViewClass"
  28263. '++LotusScript Development Environment:2:5:(Forward):0:1
  28264. Declare Sub Click(Source As Button)
  28265. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28266. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28267. Private Sub BindEvents(Byval Objectname_ As String)
  28268. Static Source As BUTTON
  28269. Set Source = Bind(Objectname_)
  28270. On Event Click From Source Call Click
  28271. End Sub
  28272. '++LotusScript Development Environment:2:2:Click:1:12
  28273. Sub Click(Source As Button)
  28274.     Call ProcessViewCommand(ACTION_CONFIRM)
  28275. End Sub
  28276. Owner Actions\View Participant Status
  28277. '++LotusScript Development Environment:2:5:(Options):0:74
  28278. Use "CSUIViewClass"
  28279. '++LotusScript Development Environment:2:5:(Forward):0:1
  28280. Declare Sub Click(Source As Button)
  28281. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28282. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28283. Private Sub BindEvents(Byval Objectname_ As String)
  28284. Static Source As BUTTON
  28285. Set Source = Bind(Objectname_)
  28286. On Event Click From Source Call Click
  28287. End Sub
  28288. '++LotusScript Development Environment:2:2:Click:1:12
  28289. Sub Click(Source As Button)
  28290.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  28291. End Sub
  28292. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  28293. Use "CSUIViewClass"
  28294. '++LotusScript Development Environment:2:5:(Forward):0:1
  28295. Declare Sub Click(Source As Button)
  28296. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28297. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28298. Private Sub BindEvents(Byval Objectname_ As String)
  28299. Static Source As BUTTON
  28300. Set Source = Bind(Objectname_)
  28301. On Event Click From Source Call Click
  28302. End Sub
  28303. '++LotusScript Development Environment:2:2:Click:1:12
  28304. Sub Click(Source As Button)
  28305.     Call ProcessViewCommand(ACTION_SENDMEMO)
  28306. End Sub
  28307. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  28308. Use "CSUIViewClass"
  28309. '++LotusScript Development Environment:2:5:(Forward):0:1
  28310. Declare Sub Click(Source As Button)
  28311. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28312. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28313. Private Sub BindEvents(Byval Objectname_ As String)
  28314. Static Source As BUTTON
  28315. Set Source = Bind(Objectname_)
  28316. On Event Click From Source Call Click
  28317. End Sub
  28318. '++LotusScript Development Environment:2:2:Click:1:12
  28319. Sub Click(Source As Button)
  28320.     Call ProcessViewCommand(ACTION_ACCEPT)
  28321. End Sub
  28322. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  28323. Use "CSUIViewClass"
  28324. '++LotusScript Development Environment:2:5:(Forward):0:1
  28325. Declare Sub Click(Source As Button)
  28326. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28327. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28328. Private Sub BindEvents(Byval Objectname_ As String)
  28329. Static Source As BUTTON
  28330. Set Source = Bind(Objectname_)
  28331. On Event Click From Source Call Click
  28332. End Sub
  28333. '++LotusScript Development Environment:2:2:Click:1:12
  28334. Sub Click(Source As Button)
  28335.     Call ProcessViewCommand(ACTION_DECLINE)
  28336. End Sub
  28337. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  28338. Use "CSUIViewClass"
  28339. '++LotusScript Development Environment:2:5:(Forward):0:1
  28340. Declare Sub Click(Source As Button)
  28341. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28342. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28343. Private Sub BindEvents(Byval Objectname_ As String)
  28344. Static Source As BUTTON
  28345. Set Source = Bind(Objectname_)
  28346. On Event Click From Source Call Click
  28347. End Sub
  28348. '++LotusScript Development Environment:2:2:Click:1:12
  28349. Sub Click(Source As Button)
  28350.     Call ProcessViewCommand(ACTION_DELEGATE)
  28351. End Sub
  28352. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  28353. Use "CSUIViewClass"
  28354. '++LotusScript Development Environment:2:5:(Forward):0:1
  28355. Declare Sub Click(Source As Button)
  28356. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28357. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28358. Private Sub BindEvents(Byval Objectname_ As String)
  28359. Static Source As BUTTON
  28360. Set Source = Bind(Objectname_)
  28361. On Event Click From Source Call Click
  28362. End Sub
  28363. '++LotusScript Development Environment:2:2:Click:1:12
  28364. Sub Click(Source As Button)
  28365.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  28366. End Sub
  28367. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  28368. Use "CommonUI"
  28369. '++LotusScript Development Environment:2:5:(Forward):0:1
  28370. Declare Sub Click(Source As Button)
  28371. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28372. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28373. Private Sub BindEvents(Byval Objectname_ As String)
  28374. Static Source As BUTTON
  28375. Set Source = Bind(Objectname_)
  28376. On Event Click From Source Call Click
  28377. End Sub
  28378. '++LotusScript Development Environment:2:2:Click:1:12
  28379. Sub Click(Source As Button)
  28380.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  28381. End Sub
  28382. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  28383. Use "CommonUI"
  28384. '++LotusScript Development Environment:2:5:(Forward):0:1
  28385. Declare Sub Click(Source As Button)
  28386. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28387. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28388. Private Sub BindEvents(Byval Objectname_ As String)
  28389. Static Source As BUTTON
  28390. Set Source = Bind(Objectname_)
  28391. On Event Click From Source Call Click
  28392. End Sub
  28393. '++LotusScript Development Environment:2:2:Click:1:12
  28394. Sub Click(Source As Button)
  28395.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  28396. End Sub
  28397. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  28398. Use "CommonUI"
  28399. '++LotusScript Development Environment:2:5:(Forward):0:1
  28400. Declare Sub Click(Source As Button)
  28401. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28402. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28403. Private Sub BindEvents(Byval Objectname_ As String)
  28404.     Static Source As BUTTON
  28405.     Set Source = Bind(Objectname_)
  28406.     On Event Click From Source Call Click
  28407. End Sub
  28408. '++LotusScript Development Environment:2:2:Click:1:12
  28409. Sub Click(Source As Button)
  28410.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  28411. End Sub
  28412. Lotus ProductLP
  28413. S+(SI
  28414. ^$U+(SJ
  28415. ^4U+(SJ
  28416. l#K4U-
  28417. m#K4U-
  28418. Lotus ProductLP
  28419. S+(SI
  28420. ^$U+(SJ
  28421. ^4U+(SJ
  28422. l#K4U-
  28423. m#K4U-
  28424. Lotus ProductLP
  28425. S+(SI
  28426. ^$U+(SJ
  28427. ^4U+(SJ
  28428. l#K4U-
  28429. m#K4U-
  28430. Lotus ProductLP
  28431. S+(SI
  28432. ^$U+(SJ
  28433. ^4U+(SJ
  28434. l#K4U-
  28435. m#K4U-
  28436. Lotus ProductLP
  28437. S+(SI
  28438. ^$U+(SJ
  28439. ^4U+(SJ
  28440. l#K4U-
  28441. m#K4U-
  28442. Lotus ProductLP
  28443. S+(SI
  28444. ^$U+(SJ
  28445. ^4U+(SJ
  28446. l#K4U-
  28447. m#K4U-
  28448. Lotus ProductLP
  28449. S+(SI
  28450. ^$U+(SJ
  28451. ^4U+(SJ
  28452. l#K4U-
  28453. m#K4U-
  28454. Lotus ProductLP
  28455. S+(SI
  28456. ^$U+(SJ
  28457. ^4U+(SJ
  28458. l#K4U-
  28459. m#K4U-
  28460. Lotus Product8    +V0.0
  28461.     K(    -
  28462.     K8    -
  28463. Lotus Product
  28464. OBJECT
  28465. Lotus Product8    +V0.0
  28466.     K(    -
  28467.     K8    -
  28468. Lotus Product
  28469. OBJECT
  28470. #,`    #
  28471. Lotus Product
  28472. OBJECT
  28473. #,`    #
  28474. Lotus Product
  28475. OBJECT
  28476. #,`    #
  28477. '++LotusScript Development Environment:2:5:(Options):0:74
  28478. Option Public
  28479. Option Explicit
  28480. '++LotusScript Development Environment:2:5:(Forward):0:1
  28481. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28482. O=Lotus Notes
  28483. O=Lotus Notes
  28484. PURSAFO
  28485. |.:#U
  28486. O=Lotus Notes
  28487. CN=Lotus Notes Template Development/O=Lotus Notes
  28488. PURSAFO
  28489. $TABLEFORMAT
  28490. $TITLE
  28491. $PublicAccess
  28492. $Index
  28493. $Formula
  28494. $FormulaClass
  28495. $VIEWFORMAT
  28496. $AppHelpFormula
  28497. $Comment
  28498. $WebFlags
  28499. $V5ACTIONS
  28500. $ACTIONS
  28501. $SCRIPTOBJ_0
  28502. $SCRIPTOBJ_1
  28503. $SCRIPTOBJ_9
  28504. $SCRIPTOBJ_10
  28505. $SCRIPTOBJ_11
  28506. $SCRIPTOBJ_12
  28507. $SCRIPTOBJ_13
  28508. $SCRIPTOBJ_14
  28509. $SCRIPTOBJ_15
  28510. $SCRIPTOBJ_16
  28511. $SCRIPTOBJ_17
  28512. $SCRIPTOBJ_18
  28513. $SCRIPTOBJ_19
  28514. $SCRIPTOBJ_20
  28515. $ViewGlobalScript
  28516. Status
  28517. Not Started
  28518. In Progress
  28519. On hold
  28520. Completed
  28521. AssignState
  28522. Importance
  28523. Importance
  28524. Importance
  28525.     3S4S6S8R14R20R26R
  28526. Subject
  28527. Subject
  28528. DueDateTime
  28529. DueDateTime
  28530. xxNotesCats
  28531. Holiday
  28532. Vacation
  28533. Projects
  28534. Clients
  28535. Phone Calls
  28536. Travel
  28537.     1S2S
  28538. Categories
  28539. xxNotesCats
  28540.     0R16S
  28541. DueState
  28542. Overdue
  28543. DueState
  28544. Future
  28545. DueState
  28546. Rejected
  28547. DueState
  28548. Complete
  28549. Current
  28550.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  28551. $189$186SubjectDueDateTime$190$187$Conflict
  28552. DueDateTime
  28553. ExcludeFromView
  28554. OrgRepeat
  28555.     L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S
  28556. Status
  28557. Not Started
  28558. In Progress
  28559. On hold
  28560. Completed
  28561.     12S$186
  28562. AssignState
  28563. Importance
  28564. Importance
  28565. Importance
  28566.     3S4S6S8R14R20R26RSubjectTo do
  28567. Subject
  28568. Subject
  28569. DueDateTimeDue&
  28570. DueDateTime
  28571. DueDateTime
  28572. $190Category
  28573. xxNotesCats
  28574. Holiday
  28575. Vacation
  28576. Projects
  28577. Clients
  28578. Phone Calls
  28579. Travel
  28580.     1S2S
  28581. Categories
  28582. xxNotesCats
  28583.     0R16S$187
  28584. DueState
  28585. Overdue
  28586. DueState
  28587. Future
  28588. DueState
  28589. Rejected
  28590. DueState
  28591. Complete
  28592. Current
  28593.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S&
  28594. New...\Personal To Do
  28595. '++LotusScript Development Environment:2:5:(Options):0:74
  28596. Use "CSUIViewClass"
  28597. '++LotusScript Development Environment:2:5:(Forward):0:1
  28598. Declare Sub Click(Source As Button)
  28599. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28600. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28601. Private Sub BindEvents(Byval Objectname_ As String)
  28602. Static Source As BUTTON
  28603. Set Source = Bind(Objectname_)
  28604. On Event Click From Source Call Click
  28605. End Sub
  28606. '++LotusScript Development Environment:2:2:Click:1:12
  28607. Sub Click(Source As Button)
  28608.     Call ViewNewTask("1")
  28609. End Sub
  28610. act_csnew.GIF|act_CSNEWDOC
  28611. New...\Group To Do'++LotusScript Development Environment:2:5:(Options):0:74
  28612. Use "CSUIViewClass"
  28613. '++LotusScript Development Environment:2:5:(Forward):0:1
  28614. Declare Sub Click(Source As Button)
  28615. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28616. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28617. Private Sub BindEvents(Byval Objectname_ As String)
  28618. Static Source As BUTTON
  28619. Set Source = Bind(Objectname_)
  28620. On Event Click From Source Call Click
  28621. End Sub
  28622. '++LotusScript Development Environment:2:2:Click:1:12
  28623. Sub Click(Source As Button)
  28624.     Call ViewNewTask("2")
  28625. End Sub
  28626. act_csnew.GIF|act_CSNEWDOC
  28627. Categori_zeK
  28628. _Forward
  28629. _Edit Document
  28630. Send Docu_ment
  28631. _Move to Folder...
  28632. _Remove from Folder...
  28633. Delete
  28634. DueState
  28635. Task Not Completed
  28636. This Task is not yet completed, are you sure you want to delete it?
  28637.     3S4S5S6S7S8S10R21S23S29S
  28638. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  28639. Use "CSUIViewClass"
  28640. '++LotusScript Development Environment:2:5:(Forward):0:1
  28641. Declare Sub Click(Source As Button)
  28642. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28643. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28644. Private Sub BindEvents(Byval Objectname_ As String)
  28645. Static Source As BUTTON
  28646. Set Source = Bind(Objectname_)
  28647. On Event Click From Source Call Click
  28648. End Sub
  28649. '++LotusScript Development Environment:2:2:Click:1:12
  28650. Sub Click(Source As Button)
  28651.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  28652. End Sub
  28653. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28654. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  28655. Use "CSUIViewClass"
  28656. '++LotusScript Development Environment:2:5:(Forward):0:1
  28657. Declare Sub Click(Source As Button)
  28658. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28659. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28660. Private Sub BindEvents(Byval Objectname_ As String)
  28661. Static Source As BUTTON
  28662. Set Source = Bind(Objectname_)
  28663. On Event Click From Source Call Click
  28664. End Sub
  28665. '++LotusScript Development Environment:2:2:Click:1:12
  28666. Sub Click(Source As Button)
  28667.     Call ProcessViewCommand(ACTION_CANCEL)
  28668. End Sub
  28669. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28670. Owner Actions\Confirm
  28671. '++LotusScript Development Environment:2:5:(Options):0:74
  28672. Use "CSUIViewClass"
  28673. '++LotusScript Development Environment:2:5:(Forward):0:1
  28674. Declare Sub Click(Source As Button)
  28675. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28676. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28677. Private Sub BindEvents(Byval Objectname_ As String)
  28678. Static Source As BUTTON
  28679. Set Source = Bind(Objectname_)
  28680. On Event Click From Source Call Click
  28681. End Sub
  28682. '++LotusScript Development Environment:2:2:Click:1:12
  28683. Sub Click(Source As Button)
  28684.     Call ProcessViewCommand(ACTION_CONFIRM)
  28685. End Sub
  28686. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28687. Owner Actions\View Participant Status
  28688. '++LotusScript Development Environment:2:5:(Options):0:74
  28689. Use "CSUIViewClass"
  28690. '++LotusScript Development Environment:2:5:(Forward):0:1
  28691. Declare Sub Click(Source As Button)
  28692. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28693. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28694. Private Sub BindEvents(Byval Objectname_ As String)
  28695. Static Source As BUTTON
  28696. Set Source = Bind(Objectname_)
  28697. On Event Click From Source Call Click
  28698. End Sub
  28699. '++LotusScript Development Environment:2:2:Click:1:12
  28700. Sub Click(Source As Button)
  28701.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  28702. End Sub
  28703. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28704. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  28705. Use "CSUIViewClass"
  28706. '++LotusScript Development Environment:2:5:(Forward):0:1
  28707. Declare Sub Click(Source As Button)
  28708. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28709. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28710. Private Sub BindEvents(Byval Objectname_ As String)
  28711. Static Source As BUTTON
  28712. Set Source = Bind(Objectname_)
  28713. On Event Click From Source Call Click
  28714. End Sub
  28715. '++LotusScript Development Environment:2:2:Click:1:12
  28716. Sub Click(Source As Button)
  28717.     Call ProcessViewCommand(ACTION_SENDMEMO)
  28718. End Sub
  28719. act_csowneractions.GIF|act_CSOWNERACTIONS?
  28720. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  28721. Use "CSUIViewClass"
  28722. '++LotusScript Development Environment:2:5:(Forward):0:1
  28723. Declare Sub Click(Source As Button)
  28724. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28725. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28726. Private Sub BindEvents(Byval Objectname_ As String)
  28727. Static Source As BUTTON
  28728. Set Source = Bind(Objectname_)
  28729. On Event Click From Source Call Click
  28730. End Sub
  28731. '++LotusScript Development Environment:2:2:Click:1:12
  28732. Sub Click(Source As Button)
  28733.     Call ProcessViewCommand(ACTION_ACCEPT)
  28734. End Sub
  28735. act_participantactions.GIF|act_CSPARTACTIONS
  28736. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  28737. Use "CSUIViewClass"
  28738. '++LotusScript Development Environment:2:5:(Forward):0:1
  28739. Declare Sub Click(Source As Button)
  28740. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28741. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28742. Private Sub BindEvents(Byval Objectname_ As String)
  28743. Static Source As BUTTON
  28744. Set Source = Bind(Objectname_)
  28745. On Event Click From Source Call Click
  28746. End Sub
  28747. '++LotusScript Development Environment:2:2:Click:1:12
  28748. Sub Click(Source As Button)
  28749.     Call ProcessViewCommand(ACTION_DECLINE)
  28750. End Sub
  28751. act_participantactions.GIF|act_CSPARTACTIONS
  28752. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  28753. Use "CSUIViewClass"
  28754. '++LotusScript Development Environment:2:5:(Forward):0:1
  28755. Declare Sub Click(Source As Button)
  28756. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28757. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28758. Private Sub BindEvents(Byval Objectname_ As String)
  28759. Static Source As BUTTON
  28760. Set Source = Bind(Objectname_)
  28761. On Event Click From Source Call Click
  28762. End Sub
  28763. '++LotusScript Development Environment:2:2:Click:1:12
  28764. Sub Click(Source As Button)
  28765.     Call ProcessViewCommand(ACTION_DELEGATE)
  28766. End Sub
  28767. act_participantactions.GIF|act_CSPARTACTIONS
  28768. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  28769. Use "CSUIViewClass"
  28770. '++LotusScript Development Environment:2:5:(Forward):0:1
  28771. Declare Sub Click(Source As Button)
  28772. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28773. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28774. Private Sub BindEvents(Byval Objectname_ As String)
  28775. Static Source As BUTTON
  28776. Set Source = Bind(Objectname_)
  28777. On Event Click From Source Call Click
  28778. End Sub
  28779. '++LotusScript Development Environment:2:2:Click:1:12
  28780. Sub Click(Source As Button)
  28781.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  28782. End Sub
  28783. act_participantactions.GIF|act_CSPARTACTIONS
  28784. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  28785. Use "CommonUI"
  28786. '++LotusScript Development Environment:2:5:(Forward):0:1
  28787. Declare Sub Click(Source As Button)
  28788. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28789. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28790. Private Sub BindEvents(Byval Objectname_ As String)
  28791. Static Source As BUTTON
  28792. Set Source = Bind(Objectname_)
  28793. On Event Click From Source Call Click
  28794. End Sub
  28795. '++LotusScript Development Environment:2:2:Click:1:12
  28796. Sub Click(Source As Button)
  28797.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  28798. End Sub
  28799. act_COPYINTO.GIF|act_COPYINTO?
  28800. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  28801. Use "CommonUI"
  28802. '++LotusScript Development Environment:2:5:(Forward):0:1
  28803. Declare Sub Click(Source As Button)
  28804. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28805. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28806. Private Sub BindEvents(Byval Objectname_ As String)
  28807. Static Source As BUTTON
  28808. Set Source = Bind(Objectname_)
  28809. On Event Click From Source Call Click
  28810. End Sub
  28811. '++LotusScript Development Environment:2:2:Click:1:12
  28812. Sub Click(Source As Button)
  28813.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  28814. End Sub
  28815. act_COPYINTO.GIF|act_COPYINTO?
  28816. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  28817. Use "CommonUI"
  28818. '++LotusScript Development Environment:2:5:(Forward):0:1
  28819. Declare Sub Click(Source As Button)
  28820. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28821. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28822. Private Sub BindEvents(Byval Objectname_ As String)
  28823.     Static Source As BUTTON
  28824.     Set Source = Bind(Objectname_)
  28825.     On Event Click From Source Call Click
  28826. End Sub
  28827. '++LotusScript Development Environment:2:2:Click:1:12
  28828. Sub Click(Source As Button)
  28829.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  28830. End Sub
  28831. act_COPYINTO.GIF|act_COPYINTO?
  28832. New...\Personal To Do
  28833. '++LotusScript Development Environment:2:5:(Options):0:74
  28834. Use "CSUIViewClass"
  28835. '++LotusScript Development Environment:2:5:(Forward):0:1
  28836. Declare Sub Click(Source As Button)
  28837. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28838. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28839. Private Sub BindEvents(Byval Objectname_ As String)
  28840. Static Source As BUTTON
  28841. Set Source = Bind(Objectname_)
  28842. On Event Click From Source Call Click
  28843. End Sub
  28844. '++LotusScript Development Environment:2:2:Click:1:12
  28845. Sub Click(Source As Button)
  28846.     Call ViewNewTask("1")
  28847. End Sub
  28848. New...\Group To Do'++LotusScript Development Environment:2:5:(Options):0:74
  28849. Use "CSUIViewClass"
  28850. '++LotusScript Development Environment:2:5:(Forward):0:1
  28851. Declare Sub Click(Source As Button)
  28852. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28853. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28854. Private Sub BindEvents(Byval Objectname_ As String)
  28855. Static Source As BUTTON
  28856. Set Source = Bind(Objectname_)
  28857. On Event Click From Source Call Click
  28858. End Sub
  28859. '++LotusScript Development Environment:2:2:Click:1:12
  28860. Sub Click(Source As Button)
  28861.     Call ViewNewTask("2")
  28862. End Sub
  28863. Categori_zeK
  28864. _Forward
  28865. _Edit Document
  28866. Send Docu_ment
  28867. _Move to Folder...
  28868. _Remove from Folder...
  28869. Delete
  28870. DueState
  28871. Task Not Completed
  28872. This Task is not yet completed, are you sure you want to delete it?
  28873.     3S4S5S6S7S8S10R21S23S29S
  28874. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  28875. Use "CSUIViewClass"
  28876. '++LotusScript Development Environment:2:5:(Forward):0:1
  28877. Declare Sub Click(Source As Button)
  28878. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28879. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28880. Private Sub BindEvents(Byval Objectname_ As String)
  28881. Static Source As BUTTON
  28882. Set Source = Bind(Objectname_)
  28883. On Event Click From Source Call Click
  28884. End Sub
  28885. '++LotusScript Development Environment:2:2:Click:1:12
  28886. Sub Click(Source As Button)
  28887.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  28888. End Sub
  28889. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  28890. Use "CSUIViewClass"
  28891. '++LotusScript Development Environment:2:5:(Forward):0:1
  28892. Declare Sub Click(Source As Button)
  28893. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28894. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28895. Private Sub BindEvents(Byval Objectname_ As String)
  28896. Static Source As BUTTON
  28897. Set Source = Bind(Objectname_)
  28898. On Event Click From Source Call Click
  28899. End Sub
  28900. '++LotusScript Development Environment:2:2:Click:1:12
  28901. Sub Click(Source As Button)
  28902.     Call ProcessViewCommand(ACTION_CANCEL)
  28903. End Sub
  28904. Owner Actions\Confirm
  28905. '++LotusScript Development Environment:2:5:(Options):0:74
  28906. Use "CSUIViewClass"
  28907. '++LotusScript Development Environment:2:5:(Forward):0:1
  28908. Declare Sub Click(Source As Button)
  28909. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28910. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28911. Private Sub BindEvents(Byval Objectname_ As String)
  28912. Static Source As BUTTON
  28913. Set Source = Bind(Objectname_)
  28914. On Event Click From Source Call Click
  28915. End Sub
  28916. '++LotusScript Development Environment:2:2:Click:1:12
  28917. Sub Click(Source As Button)
  28918.     Call ProcessViewCommand(ACTION_CONFIRM)
  28919. End Sub
  28920. Owner Actions\View Participant Status
  28921. '++LotusScript Development Environment:2:5:(Options):0:74
  28922. Use "CSUIViewClass"
  28923. '++LotusScript Development Environment:2:5:(Forward):0:1
  28924. Declare Sub Click(Source As Button)
  28925. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28926. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28927. Private Sub BindEvents(Byval Objectname_ As String)
  28928. Static Source As BUTTON
  28929. Set Source = Bind(Objectname_)
  28930. On Event Click From Source Call Click
  28931. End Sub
  28932. '++LotusScript Development Environment:2:2:Click:1:12
  28933. Sub Click(Source As Button)
  28934.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  28935. End Sub
  28936. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  28937. Use "CSUIViewClass"
  28938. '++LotusScript Development Environment:2:5:(Forward):0:1
  28939. Declare Sub Click(Source As Button)
  28940. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28941. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28942. Private Sub BindEvents(Byval Objectname_ As String)
  28943. Static Source As BUTTON
  28944. Set Source = Bind(Objectname_)
  28945. On Event Click From Source Call Click
  28946. End Sub
  28947. '++LotusScript Development Environment:2:2:Click:1:12
  28948. Sub Click(Source As Button)
  28949.     Call ProcessViewCommand(ACTION_SENDMEMO)
  28950. End Sub
  28951. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  28952. Use "CSUIViewClass"
  28953. '++LotusScript Development Environment:2:5:(Forward):0:1
  28954. Declare Sub Click(Source As Button)
  28955. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28956. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28957. Private Sub BindEvents(Byval Objectname_ As String)
  28958. Static Source As BUTTON
  28959. Set Source = Bind(Objectname_)
  28960. On Event Click From Source Call Click
  28961. End Sub
  28962. '++LotusScript Development Environment:2:2:Click:1:12
  28963. Sub Click(Source As Button)
  28964.     Call ProcessViewCommand(ACTION_ACCEPT)
  28965. End Sub
  28966. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  28967. Use "CSUIViewClass"
  28968. '++LotusScript Development Environment:2:5:(Forward):0:1
  28969. Declare Sub Click(Source As Button)
  28970. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28971. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28972. Private Sub BindEvents(Byval Objectname_ As String)
  28973. Static Source As BUTTON
  28974. Set Source = Bind(Objectname_)
  28975. On Event Click From Source Call Click
  28976. End Sub
  28977. '++LotusScript Development Environment:2:2:Click:1:12
  28978. Sub Click(Source As Button)
  28979.     Call ProcessViewCommand(ACTION_DECLINE)
  28980. End Sub
  28981. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  28982. Use "CSUIViewClass"
  28983. '++LotusScript Development Environment:2:5:(Forward):0:1
  28984. Declare Sub Click(Source As Button)
  28985. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28986. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28987. Private Sub BindEvents(Byval Objectname_ As String)
  28988. Static Source As BUTTON
  28989. Set Source = Bind(Objectname_)
  28990. On Event Click From Source Call Click
  28991. End Sub
  28992. '++LotusScript Development Environment:2:2:Click:1:12
  28993. Sub Click(Source As Button)
  28994.     Call ProcessViewCommand(ACTION_DELEGATE)
  28995. End Sub
  28996. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  28997. Use "CSUIViewClass"
  28998. '++LotusScript Development Environment:2:5:(Forward):0:1
  28999. Declare Sub Click(Source As Button)
  29000. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29001. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29002. Private Sub BindEvents(Byval Objectname_ As String)
  29003. Static Source As BUTTON
  29004. Set Source = Bind(Objectname_)
  29005. On Event Click From Source Call Click
  29006. End Sub
  29007. '++LotusScript Development Environment:2:2:Click:1:12
  29008. Sub Click(Source As Button)
  29009.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  29010. End Sub
  29011. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  29012. Use "CommonUI"
  29013. '++LotusScript Development Environment:2:5:(Forward):0:1
  29014. Declare Sub Click(Source As Button)
  29015. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29016. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29017. Private Sub BindEvents(Byval Objectname_ As String)
  29018. Static Source As BUTTON
  29019. Set Source = Bind(Objectname_)
  29020. On Event Click From Source Call Click
  29021. End Sub
  29022. '++LotusScript Development Environment:2:2:Click:1:12
  29023. Sub Click(Source As Button)
  29024.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  29025. End Sub
  29026. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  29027. Use "CommonUI"
  29028. '++LotusScript Development Environment:2:5:(Forward):0:1
  29029. Declare Sub Click(Source As Button)
  29030. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29031. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29032. Private Sub BindEvents(Byval Objectname_ As String)
  29033. Static Source As BUTTON
  29034. Set Source = Bind(Objectname_)
  29035. On Event Click From Source Call Click
  29036. End Sub
  29037. '++LotusScript Development Environment:2:2:Click:1:12
  29038. Sub Click(Source As Button)
  29039.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  29040. End Sub
  29041. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  29042. Use "CommonUI"
  29043. '++LotusScript Development Environment:2:5:(Forward):0:1
  29044. Declare Sub Click(Source As Button)
  29045. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29046. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29047. Private Sub BindEvents(Byval Objectname_ As String)
  29048.     Static Source As BUTTON
  29049.     Set Source = Bind(Objectname_)
  29050.     On Event Click From Source Call Click
  29051. End Sub
  29052. '++LotusScript Development Environment:2:2:Click:1:12
  29053. Sub Click(Source As Button)
  29054.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  29055. End Sub
  29056. Lotus ProductLP
  29057. S+(SI
  29058. ^$U+(SJ
  29059. ^4U+(SJ
  29060. l#K4U-
  29061. m#K4U-
  29062. Lotus ProductLP
  29063. S+(SI
  29064. ^$U+(SJ
  29065. ^4U+(SJ
  29066. l#K4U-
  29067. m#K4U-
  29068. Lotus ProductLP
  29069. S+(SI
  29070. ^$U+(SJ
  29071. ^4U+(SJ
  29072. l#K4U-
  29073. m#K4U-
  29074. Lotus ProductLP
  29075. S+(SI
  29076. ^$U+(SJ
  29077. ^4U+(SJ
  29078. l#K4U-
  29079. m#K4U-
  29080. Lotus ProductLP
  29081. S+(SI
  29082. ^$U+(SJ
  29083. ^4U+(SJ
  29084. l#K4U-
  29085. m#K4U-
  29086. Lotus ProductLP
  29087. S+(SI
  29088. ^$U+(SJ
  29089. ^4U+(SJ
  29090. l#K4U-
  29091. m#K4U-
  29092. Lotus ProductLP
  29093. S+(SI
  29094. ^$U+(SJ
  29095. ^4U+(SJ
  29096. l#K4U-
  29097. m#K4U-
  29098. Lotus ProductLP
  29099. S+(SI
  29100. ^$U+(SJ
  29101. ^4U+(SJ
  29102. l#K4U-
  29103. m#K4U-
  29104. Lotus Product8    +V0.0
  29105.     K(    -
  29106.     K8    -
  29107. Lotus Product
  29108. OBJECT
  29109. Lotus Product8    +V0.0
  29110.     K(    -
  29111.     K8    -
  29112. Lotus Product
  29113. OBJECT
  29114. #,`    #
  29115. Lotus Product
  29116. OBJECT
  29117. #,`    #
  29118. Lotus Product
  29119. OBJECT
  29120. #,`    #
  29121. '++LotusScript Development Environment:2:5:(Options):0:74
  29122. Option Public
  29123. Option Explicit
  29124. '++LotusScript Development Environment:2:5:(Forward):0:1
  29125. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29126. O=Lotus Notes
  29127. O=Lotus Notes
  29128. PURSAFO
  29129. |.:#U
  29130. O=Lotus Notes
  29131. CN=Lotus Notes Template Development/O=Lotus Notes
  29132. PURSAFO
  29133. $TABLEFORMAT
  29134. $TITLE
  29135. $PublicAccess
  29136. $Index
  29137. $Formula
  29138. $FormulaClass
  29139. $VIEWFORMAT
  29140. $AppHelpFormula
  29141. $Comment
  29142. $WebFlags
  29143. $V5ACTIONS
  29144. $ACTIONS
  29145. $SCRIPTOBJ_0
  29146. $SCRIPTOBJ_1
  29147. $SCRIPTOBJ_9
  29148. $SCRIPTOBJ_10
  29149. $SCRIPTOBJ_11
  29150. $SCRIPTOBJ_12
  29151. $SCRIPTOBJ_13
  29152. $SCRIPTOBJ_14
  29153. $SCRIPTOBJ_15
  29154. $SCRIPTOBJ_16
  29155. $SCRIPTOBJ_17
  29156. $SCRIPTOBJ_18
  29157. $SCRIPTOBJ_19
  29158. $SCRIPTOBJ_20
  29159. $ViewGlobalScript
  29160. *** Message Successfully Delivered ***
  29161. (Help)
  29162. MAIL_F_TRACE_REPORT
  29163.     0S0E
  29164. Lotus Product
  29165. OBJECT
  29166.  Trace Report'++LotusScript Development Environment:2:5:(Options):0:66
  29167. '++LotusScript Development Environment:2:5:(Forward):0:1
  29168. Declare Sub Postopen(Source As Notesuidocument)
  29169. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29170. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29171. Private Sub BindEvents(Byval Objectname_ As String)
  29172.     Static Source As NOTESUIDOCUMENT
  29173.     Set Source = Bind(Objectname_)
  29174.     On Event Postopen From Source Call Postopen
  29175. End Sub
  29176. '++LotusScript Development Environment:2:2:Postopen:1:12
  29177. Sub Postopen(Source As Notesuidocument)
  29178.     On Error Goto Trap
  29179.     If Not Source.EditMode Then
  29180.         Dim noteParent As notesdocument
  29181.         Set noteParent = Source.document.Parentdatabase.Getdocumentbyunid(Cstr(Source.document.Parentdocumentunid))
  29182.         If Not noteParent Is Nothing Then
  29183.             If noteParent.GetItemValue("Form")(0) = "Tracking Request" Then
  29184.                 Dim uiws As New notesuiworkspace
  29185.                 Dim uinote As notesuidocument
  29186.                 Set uinote =  uiws.Editdocument(False, noteParent, False)
  29187.                 Call Source.Close()
  29188.             End If
  29189.         End If
  29190.     End If
  29191.     Goto    Complete
  29192. Trap:
  29193.     If Err = 4091 Then
  29194.         Resume Next
  29195.     Else
  29196.         Print("Notes error: " & Cstr(Err) & " " &  Error$)
  29197.         Resume Next
  29198.     End If 
  29199. Complete:
  29200. End Sub
  29201. Lotus Product
  29202. OBJECT
  29203. Trace Report
  29204.     Your trace:
  29205. Subject
  29206. Subject
  29207.     has reached:
  29208. IntendedRecipient
  29209. MailServer
  29210. DeliveryDate
  29211. Trace Information
  29212. RouteServers
  29213. RouteServers
  29214. RouteTimes
  29215. RouteTimes
  29216. Categori_zeK
  29217. _Edit Document
  29218. Send Docu_ment
  29219. _Forward
  29220. _Move to Folder...
  29221. _Remove from Folder...
  29222. Categori_zeK
  29223. _Edit Document
  29224. Send Docu_ment
  29225. _Forward
  29226. _Move to Folder...
  29227. _Remove from Folder...
  29228. O=Lotus Notes
  29229. O=Lotus Notes
  29230. PURSAFO
  29231. |.:#U
  29232. O=Lotus Notes
  29233. CN=Lotus Notes Template Development/O=Lotus Notes
  29234. PURSAFO
  29235. $Info
  29236. $WINDOWTITLE
  29237. $AppHelpFormula
  29238. $$Script_O
  29239. $$ScriptName
  29240. $$FormScript
  29241. $$$FormScript_O
  29242. DeliveryDate
  29243. $Body
  29244. $V5ACTIONS
  29245. $ACTIONS
  29246. ***Tracking Request***
  29247. '++LotusScript Development Environment:2:5:(Options):0:66
  29248. Option Public
  29249. '++LotusScript Development Environment:2:5:(Forward):0:1
  29250. Declare Class MessageTrackStringTable
  29251. '++LotusScript Development Environment:2:5:(Declarations):0:10
  29252. Class MessageTrackStringTable
  29253.     Function GetString(nIndex As Integer, vData As Variant) As String
  29254.         Select Case nIndex
  29255.         Case 1
  29256.             GetString = "UNKNOWN "
  29257.         Case 2
  29258.             GetString = "In Que "
  29259.         Case 4
  29260.             GetString = "DELIVERED "
  29261.         Case 8
  29262.             GetString = "DELIVERY FAILED "
  29263.         Case 16
  29264.             GetString = "TRANSFERED "
  29265.         Case 32 
  29266.             GetString = "TRANSER FAILED "
  29267.         Case  64
  29268.             GetString = "GROUP EXPANDED "
  29269.         End Select
  29270.     End Function        
  29271. End Class
  29272. Lotus Product
  29273.  Tracking Response'++LotusScript Development Environment:2:5:(Options):0:66
  29274. '++LotusScript Development Environment:2:5:(Forward):0:1
  29275. Declare Sub Postopen(Source As Notesuidocument)
  29276. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29277. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29278. Private Sub BindEvents(Byval Objectname_ As String)
  29279.     Static Source As NOTESUIDOCUMENT
  29280.     Set Source = Bind(Objectname_)
  29281.     On Event Postopen From Source Call Postopen
  29282. End Sub
  29283. '++LotusScript Development Environment:2:2:Postopen:1:12
  29284. Sub Postopen(Source As Notesuidocument)
  29285.     On Error Goto Trap
  29286.     If Not Source.EditMode Then
  29287.         Dim noteParent As notesdocument
  29288.         Set noteParent = Source.document.Parentdatabase.Getdocumentbyunid(Cstr(Source.document.Parentdocumentunid))
  29289.         If Not noteParent Is Nothing Then
  29290.             If noteParent.GetItemValue("Form")(0) = "Tracking Request" Then
  29291.                 Dim uiws As New notesuiworkspace
  29292.                 Dim uinote As notesuidocument
  29293.                 Set uinote =  uiws.Editdocument(False, noteParent, False)
  29294.                 Call Source.Close()
  29295.                 Goto Complete
  29296.             End If
  29297.         End If
  29298.     End If
  29299.     Goto    OpenToUI
  29300. Trap:
  29301.     If Err = 4091 Then
  29302.         Resume Next
  29303.     Else
  29304.         Print("Notes error: " & Cstr(Err) & " " &  Error$)
  29305.         Resume Next
  29306.     End If 
  29307. OpenToUI:
  29308.     Dim StringTable As New MessageTrackStringTable
  29309.     Dim dbThis As notesdatabase
  29310.     Dim DebugMessageTracking As Integer
  29311.     Dim t1 As Variant
  29312.     Dim strMTErrStat As String
  29313.     Dim strMTNextMTA As String
  29314.     Dim collectionTraces As notesdocumentcollection
  29315.     Dim noteTrace As notesdocument
  29316.     DebugMessageTracking = True
  29317.     Set dbThis = Source.document.parentdatabase
  29318.     Source.editmode=True
  29319.     Set noteTrackingRequest = Source.document
  29320.     t1 = Timer()
  29321.     If Not noteTrackingRequest Is Nothing Then
  29322.         Set collectionTraces = noteTrackingRequest.responses
  29323.         If collectionTraces.count Then
  29324.             If DebugMessageTracking Then Print "Found " & Cint(collectionTraces.count) & " document(s) to parse"
  29325.             Redim strTraceReport(0 To (collectionTraces.count-1)) As String
  29326.             Dim strResponseDetail As String
  29327.             Set noteTrace = collectionTraces.GetFirstDocument()
  29328.             For x = 0 To (collectionTraces.count-1)        
  29329.                 Select Case noteTrace.Form(0)
  29330.                 Case "Tracking Response"
  29331.                     If noteTrace.HasItem("$MTErrStat") Then                    
  29332.                         If Len(noteTrace.~$MTErrStat(0)) > 0 Then
  29333.                             strMTErrStat = noteTrace.getitemvalue("$MTErrStat")(0)
  29334.                         End If
  29335.                     End If
  29336.                     For y = 0 To Ubound(noteTrace.~$MTDISPSTAT)
  29337. 'build detail for each user being track in this response                        
  29338.                         strMTNextMTA = Cstr(noteTrace.~$MTNEXTMTA(y))
  29339.                         If Cint(noteTrace.~$MTMAILBOXSTAT(y)) Then
  29340.                             strResponseDetail = strResponseDetail & Chr(13) & Chr(9) & Chr(9) & _
  29341.                             "Message to : " & noteTrace.~$MTOUTRCP(y) & " Mail Viewing Status: " & Cstr(noteTrace.~$MTMAILBOXSTAT(y)) & " at: " & _
  29342.                             noteTrace.~$MTDispTM(y)
  29343.                         Elseif Cint(noteTrace.~$MTDISPSTAT(y)) = 16 Then
  29344.                             strResponseDetail = strResponseDetail & Chr(13) & Chr(9) & Chr(9) & _
  29345.                             "Message to : " & noteTrace.~$MTOUTRCP(y) & StringTable.GetString(Cint(noteTrace.~$MTDISPSTAT(y)),Null) & strMTNextMTA & " at: " & _
  29346.                             noteTrace.~$MTDispTM(y)
  29347.                         Elseif Cint(noteTrace.~$MTDISPSTAT(y)) = 1 Then
  29348.                             strResponseDetail = strResponseDetail & Chr(13) & Chr(9) & Chr(9) & _
  29349.                             "Message to : " & noteTrace.~$MTOUTRCP(y) & " Status unknown"
  29350.                         Else
  29351.                             strResponseDetail = strResponseDetail & Chr(13) & Chr(9) & Chr(9) & _
  29352.                             "Message to : " & noteTrace.~$MTOUTRCP(y) & " is " & StringTable.GetString(Cint(noteTrace.~$MTDISPSTAT(y)),Null) & "on " & noteTrace.MailServer(0) & " at: " & _
  29353.                             noteTrace.~$MTDispTM(y)
  29354.                         End If
  29355.                     Next
  29356.                     strTraceReport(x) = noteTrace.Form(0) & " - " &  Cstr(noteTrace.getitemvalue("MailServer")(0)) &_
  29357.                     " - " & Cstr(noteTrace.getitemvalue("DeliveredDate")(0))  & strMTErrStat  & Chr(9) &_
  29358.                     strResponseDetail 
  29359.                 Case "Trace Report"
  29360.                     strTraceReport(x) = noteTrace.Form(0) & " - " & noteTrace.MailServer(0) & " - " & noteTrace.RouteTimes(0) & "|" & noteTrace.UniversalId
  29361.                 Case "Delivery Report"
  29362.                     strTraceReport(x) = noteTrace.Form(0) & " - " & noteTrace.IntendedRecipient(0) & " - " & Cstr(noteTrace.DeliveryDate(0)) & "|" & noteTrace.UniversalId
  29363.                 Case "Return Receipt"
  29364.                     strTraceReport(x) = noteTrace.Form(0) & " - " & noteTrace.From(0) & " - " & Cstr(noteTrace.DeliveryDate(0))  & "|" & noteTrace.UniversalId                                            
  29365.                 Case Else
  29366.                     strTraceReport(x) = noteTrace.Form(0) & " - " & Cstr(noteTrace.DeliveryDate(0)) & "|" & noteTrace.UniversalId                                             
  29367.                 End Select
  29368.                 Set noteTrace = collectionTraces.GetNextDocument(noteTrace)                
  29369.                 strResponseDetail = ""
  29370.             Next x            
  29371.         Else
  29372.         End If 
  29373.     End If
  29374.     If DebugMessageTracking Then Print(Cstr(Timer() -(t1)))
  29375.     Call Source.document.replaceitemvalue("DispStat",strTraceReport)
  29376. Complete:
  29377. End Sub
  29378. Lotus Product
  29379. OBJECT
  29380. Sl    ^P    %
  29381. Sx    ^P    %
  29382.     ^P    %
  29383. Sx    ^P    %
  29384.     ^P    %
  29385. S`    ^P    %
  29386.     ^P    %
  29387. S`    ^P    %
  29388.     ^P    %
  29389. S`    ^P    %
  29390.     ^P    %
  29391.     ^P    %
  29392. S`    ^P    %
  29393.     ^P    %
  29394. Tracking Request
  29395.         Target recipient(s):
  29396. \)S^U
  29397. $MTINRCP
  29398.     0S0E
  29399. MTINRCP
  29400. MTINRCP
  29401.         Request date:
  29402. \)S^U
  29403. Created
  29404. Created
  29405.         Responses:
  29406. \)S^U
  29407.     0S0E
  29408. Responses
  29409. Responses
  29410.         Tracking Information:
  29411. \)S^U
  29412. DispStat
  29413. DispStat
  29414. Categori_zeK
  29415. Close
  29416.     0S0E
  29417. _Edit Document
  29418. Send Docu_ment
  29419. _Forward
  29420. _Move to Folder...
  29421. _Remove from Folder...
  29422. Categori_zeK
  29423. Close
  29424.     0S0E
  29425. _Edit Document
  29426. Send Docu_ment
  29427. _Forward
  29428. _Move to Folder...
  29429. _Remove from Folder...
  29430. O=Lotus Notes
  29431. O=Lotus Notes
  29432. PURSAFO
  29433. |.:#U
  29434. O=Lotus Notes
  29435. CN=Lotus Notes Template Development/O=Lotus Notes
  29436. PURSAFO
  29437. lqxY+
  29438. DeliveryDate
  29439. $Info
  29440. $WINDOWTITLE
  29441. $Script
  29442. $$Script_O
  29443. $$ScriptName
  29444. $$FormScript
  29445. $$$FormScript_O
  29446. $Body
  29447. $V5ACTIONS
  29448. $ACTIONS
  29449. '++LotusScript Development Environment:2:5:(Options):0:74
  29450. Option Public
  29451. Use "WebLib"
  29452. '++LotusScript Development Environment:2:5:(Forward):0:1
  29453. Declare Sub Initialize
  29454. Declare Function NABEntry(NABFilename As String) As String
  29455. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29456. '++LotusScript Development Environment:2:2:Initialize:1:10
  29457. Sub Initialize
  29458.     On Error Goto ErrorRoutine
  29459.     IsWebClient = True 
  29460.     Call wInstantiateObjectVariables
  29461.     Call agentlog.logaction("inside addressopen")
  29462.     Set item = note.getfirstitem("AddressBooks")
  29463.     vbooks = session.addressbooks
  29464.     Forall v In vbooks
  29465. 'need to put addressbooks into the tmpNABs field
  29466.         item.appendtotextlist(NABEntry(v.filename))        
  29467.     End Forall
  29468.   'There has to be something in the address lookup field so if the addressbooks call returned nothing, we'll default to names.nsf
  29469.     If (note.getitemvalue("AddressBooks")(0) = "") Then
  29470.         Call note.replaceitemvalue("AddressBooks",NABEntry("names.nsf"))        
  29471.     End If
  29472. ErrorRoutine:
  29473.     Call agentlog.logaction( Error & " (AddressOpen)")
  29474.     Exit Sub
  29475. End Sub
  29476. '++LotusScript Development Environment:2:1:NABEntry:1:8
  29477. Function NABEntry(NABFilename As String) As String
  29478.        'pull the title of the address book and put it as the display string in the field     
  29479.     Dim newnab As notesdatabase
  29480.     Call agentlog.logaction("Inside NABEntry")
  29481.     If NABFilename <> "" Then
  29482.         Set newnab = New notesdatabase("", NABFilename)
  29483.         If newnab.isopen Then
  29484.             NABEntry = newnab.title + "|" + NABFilename
  29485.         Elseif newnab.open("","") Then
  29486.             NABEntry = newnab.title + "|"+NABFilename
  29487.         Else
  29488.             NABEntry = NABFilename+"|"+NABFilename
  29489.             Call agentlog.logaction("nabentry is "+nabentry)
  29490.         End If
  29491.     End If
  29492. End Function
  29493. O=Lotus Notes
  29494. O=Lotus Notes
  29495. PURSAFO
  29496. |.:#U
  29497. O=Lotus Notes
  29498. CN=Lotus Notes Template Development/O=Lotus Notes
  29499. PURSAFO
  29500. >vkLT
  29501. $TITLE
  29502. $AssistType
  29503. $AssistLastRun
  29504. $AssistDocCount
  29505. $AssistFlags
  29506. $AssistTrigger
  29507. $AssistInfo
  29508. $AssistQuery
  29509. $AssistAction
  29510. $AssistAction_Ex
  29511. $PublicAccess
  29512. wAddressOpen
  29513.  wAddress'++LotusScript Development Environment:2:5:(Options):0:66
  29514. '++LotusScript Development Environment:2:5:(Forward):0:1
  29515. Declare Sub Initialize
  29516. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29517. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29518. Private Sub BindEvents(Byval Objectname_ As String)
  29519.     Static Source As FIELD
  29520.     Set Source = Bind(Objectname_)
  29521. End Sub
  29522. '++LotusScript Development Environment:2:2:Initialize:1:10
  29523. Sub Initialize
  29524. End Sub
  29525. Lotus Product
  29526. <NOSCRIPT><H2>
  29527. This page requires JavaScript 1.1 or higher
  29528. </H2><HR></NOSCRIPT>
  29529. <SCRIPT LANGUAGE="JavaScript"><!--
  29530.     _version_=10 //--></SCRIPT>
  29531. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  29532.     _version_=11 //--></SCRIPT>
  29533. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  29534.     _version_=12 //--></SCRIPT>
  29535. <SCRIPT LANGUAGE="JavaScript"><!--
  29536.     if(_version_<11)
  29537.         document.write('<H2>
  29538. This page requires JavaScript 1.1 or higher
  29539. </H2><HR>');
  29540.         document.close();
  29541. //--></SCRIPT>
  29542.     Look in:
  29543. names.nsf
  29544. Addressbooks
  29545.     0S0E
  29546.     <BR>
  29547.     Starts with:  
  29548. size=27
  29549. FindTextz
  29550. FindTextSIZE="20"
  29551. tmpCurIndex
  29552. Domino
  29553. LoadAddressListByName
  29554. EntryList
  29555. FindText
  29556.     1S2S3S7S9S11S13S15S
  29557. tmpNextIndex
  29558. tmpCurIndex
  29559.     0R1S2S3S5S9S10S11S
  29560.       Find  z
  29561. FONT Size=2
  29562. New Button
  29563. Need a newer version of Notes to execute this button.
  29564.     0S0E
  29565. AddClick(fieldSendTo)
  29566.      To >> 
  29567. FONT Size=2
  29568. tmpSendTo
  29569. 12345678901234567890123456789012
  29570. tmpSendToFONT Size=2SIZE=4 
  29571. New Button
  29572. Need a newer version of Notes to execute this button.
  29573.     0S0E
  29574. AddClick(tmpCopyTo)
  29575.      cc >> 
  29576. FONT Size=2
  29577. tmpCopyTo
  29578. 12345678901234567890123456789012
  29579. tmpCopyToFONT Size=2SIZE=4
  29580. New Button
  29581. Need a newer version of Notes to execute this button.
  29582.     0S0E
  29583. AddClick(tmpBlindCopyTo)
  29584.     bcc >>z
  29585. FONT Size=2
  29586. tmpBlindCopyTo
  29587. 12345678901234567890123456789012z
  29588. tmpBlindCopyToFONT Size=2SIZE=4
  29589. EntryList
  29590. EntryList
  29591. EntryListFONT Size=2Size=15
  29592. New Button
  29593. Need a newer version of Notes to execute this button.
  29594.     0S0E
  29595. RemoveClick(tmpSendTo);
  29596. RemoveClick(tmpBlindCopyTo);
  29597. RemoveClick(tmpCopyTo);
  29598.       Remove  z
  29599. FONT Size=2
  29600. New Button
  29601. Need a newer version of Notes to execute this button.
  29602.     0S0E
  29603. RemoveAllClick()
  29604.     Remove Allz
  29605. FONT Size=2
  29606. tmpMax
  29607.     1S2S
  29608. tmpIndexStr
  29609. tmpCurIndex
  29610. tmpMax#
  29611.     0R1S2S8S9S
  29612. tmpCurIndex
  29613. Domino
  29614. LoadAddressListByIndex
  29615. EntryList
  29616. tmpIndexStr
  29617.     0R1S2S3S7S9S11S13S15S
  29618. tmpNextIndex
  29619. tmpCurIndex
  29620. tmpMax"
  29621.     0R1S2S3S5S9S10S11S
  29622. GIF89a    
  29623.     Previous
  29624. GIF89a
  29625. >0P,$
  29626. tmpCurIndex
  29627. Domino
  29628. LoadAddressListByIndex
  29629. EntryList
  29630. tmpNextIndex
  29631.     1S2S3S7S9S11S13S15S
  29632. tmpNextIndex
  29633. tmpCurIndex
  29634.     0R1S2S3S5S9S10S11S
  29635.     Next 
  29636. GIF89a    
  29637. New Button
  29638. Need a newer version of Notes to execute this button.
  29639.     0S0E
  29640. OKClick();
  29641.       OK  z
  29642. FONT Size=2
  29643. New Button
  29644. Need a newer version of Notes to execute this button.
  29645.     0S0E
  29646. CancelClick()
  29647.     Cancelz
  29648. FONT Size=2
  29649. Domino
  29650. LoadAddressListByIndex
  29651. EntryList
  29652.     4S6S8S10S12S
  29653. tmpCurIndex[<TYPE=hidden >]
  29654. tmpCurIndex
  29655. tmpCurIndex
  29656.     2S6S7S8S
  29657. tmpNextIndex[<TYPE=hidden >]z
  29658. tmpNextIndex
  29659. AddressBooks[<TYPE=hidden >]z
  29660. AddressBooks
  29661. <SCRIPT LANGUAGE="JavaScript1.1">
  29662. // For convenience
  29663. var fieldSendTo = document.forms[0].tmpSendTo;
  29664. var fieldCopyTo = document.forms[0].tmpCopyTo;
  29665. var fieldBlindCopyTo = document.forms[0].tmpBlindCopyTo;
  29666. var fieldEntryList = document.forms[0].EntryList;
  29667. function OKClick()
  29668.     // put the values back in the underlying form in the right format
  29669.     if(window.opener)
  29670.         window.opener.document.forms[0].SendTo.value = selectToString(fieldSendTo);
  29671.         window.opener.document.forms[0].CopyTo.value = selectToString(fieldCopyTo);
  29672.         window.opener.document.forms[0].BlindCopyTo.value = selectToString(fieldBlindCopyTo);
  29673.     self.close();
  29674. function CancelClick() 
  29675.     self.close();
  29676. function AddClick(field)
  29677.     if(fieldEntryList.selectedIndex != -1)
  29678.         for (var i=0; i < fieldEntryList.options.length; ++i)
  29679.         if (fieldEntryList.options[i].selected)
  29680.             {        
  29681.                 var selection = FixName(fieldEntryList.options[i].value);
  29682.                 field.options[field.options.length] = new Option(selection);
  29683. function substring2(string, start, length){
  29684.     return string.substring(start,start+length);
  29685. function FixName(name)
  29686.     if (name.indexOf("CN=")!= -1)
  29687.             tmpstring=name.substring(3)
  29688.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  29689.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  29690.             strpos = tmpstring.indexOf("=")+1;
  29691.             tmpstring=substring2(tmpstring,strpos,tmpstring.length);
  29692.             while (strpos != -1)
  29693.                 if (tmpstring.indexOf("/")!= -1)
  29694.                 {
  29695.                 restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  29696.                 if (restofname.length!=0)
  29697.                     {                      
  29698.                     fullname=fullname+"/"+restofname;
  29699.                     }
  29700.                 strpos=tmpstring.indexOf("=");
  29701.                 } else {
  29702.                     fullname=fullname+"/"+tmpstring;
  29703.                     strpos=-1;
  29704.                     }        
  29705.             return fullname;
  29706.         } else return name;
  29707. function RemoveClick(field)
  29708.     if (field.length != 0){ 
  29709.     if (field.selectedIndex != -1)
  29710.         for(var i=0;i<field.options.length ; ++i)
  29711.                 if (field.options[i].selected)
  29712.                     {
  29713.                         field.options[i] = null;
  29714.                     }
  29715. function RemoveAllClick()
  29716.     fieldSendTo.options.length=0;
  29717.     fieldCopyTo.options.length=0;
  29718.     fieldBlindCopyTo.options.length=0;
  29719. function trim(str)
  29720.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  29721.     return str.substring(i,str.length); 
  29722. function stringToSelect(str,field)
  29723.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  29724.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  29725.         var entry = trim(str.substring(beg,end));
  29726.         if(entry!="") field.options[field.options.length++].text = entry;
  29727. function selectToString(field)
  29728.     if (field.length!=0)
  29729.     var str = "";
  29730.     for(i=0 ; i < field.options.length-1 ; i++)
  29731.         str += field.options[i].text + ",";
  29732.     return str += field.options[i].text;
  29733.     } else return "";
  29734. // Grab original values from underlying document
  29735. var OrigSendTo;
  29736. var OrigCopyTo;
  29737. var OrigBlindCopyTo;
  29738. if(window.opener)
  29739.     OrigSendTo = window.opener.document.forms[0].SendTo.value;
  29740.     OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
  29741.     OrigBlindCopyTo = window.opener.document.forms[0].BlindCopyTo.value;
  29742. else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
  29743. // Initialize fields
  29744. RemoveAllClick();
  29745. stringToSelect(OrigSendTo,fieldSendTo);
  29746. stringToSelect(OrigCopyTo,fieldCopyTo);
  29747. stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
  29748. //-->
  29749. </SCRIPT>
  29750. O=Lotus Notes
  29751. O=Lotus Notes
  29752. PURSAFO
  29753. |.:#U
  29754. O=Lotus Notes
  29755. CN=Lotus Notes Template Development/O=Lotus Notes
  29756. PURSAFO
  29757. Y6cUw/
  29758. $Info
  29759. $WEBQueryOpen
  29760. $WebFlags
  29761. $$ScriptName
  29762. $$AddressBooks
  29763. $AddressBooks_O
  29764. $Body
  29765. '++LotusScript Development Environment:2:5:(Options):0:74
  29766. Option Public 
  29767. Use "WebLib"
  29768. '++LotusScript Development Environment:2:5:(Forward):0:1
  29769. Declare Sub Initialize
  29770. '++LotusScript Development Environment:2:5:(Declarations):0:10
  29771. Const fromstr = "From"
  29772. Const tostr = "To"
  29773. Const intrash = "IN TRASH - "
  29774. Const openagent = "OpenAgent&"
  29775. Dim srcFolder As NotesView
  29776. Dim destFolder As NotesView
  29777. Dim curNote As NotesDocument
  29778. Dim nextNote As NotesDocument
  29779. Dim arg0name, arg0, arg1name, arg1, arg2name, arg2 As String
  29780. Dim arg0found, arg1found, arg2found As Integer
  29781. Dim MessageString As String
  29782. Dim uview As Variant
  29783. Dim QueryString As String
  29784. Dim FileAndPath As String
  29785. Dim PathInfo As String
  29786. Dim viewarguments As String
  29787. Dim  tmpNote As notesdocument
  29788. Dim trashfolder As notesview
  29789. '++LotusScript Development Environment:2:2:Initialize:1:10
  29790. Sub Initialize
  29791. 'Expected URL syntax ...
  29792. 'Delete all documents in the trash folder
  29793. '?OpenAgent&EmptyTrash
  29794. '?OpenAgent&EmptyTrash=viewname
  29795. 'Move/copy document to trash folder
  29796. '?OpenAgent&ToTrash=unid&From=viewunid
  29797. 'Delete a folder
  29798. '?OpenAgent&Destroy=viewname
  29799. 'Copy a document to a folder
  29800. '?OpenAgent&Copy=unid&To=viewname&From=viewname
  29801. 'Move a document from one folder to another folder
  29802. '?OpenAgent&Move=unid&To=viewname&From=viewname
  29803. 'Remove a document from a folder
  29804. '?OpenAgent&UnFile=unid&From=viewname
  29805. 'Scroll to the end of a view
  29806. '?OpenAgent&ViewEnd=viewname
  29807. 'Replace one document with another.
  29808. '?OpenAgent&FixUp=unid
  29809. 'Remove the RSVP document
  29810. '?OpenAgent&Remove=unid
  29811.     IsWebClient = True
  29812.     On Error Goto ErrorRoutine    
  29813.     MessageString = ""
  29814.     viewarguments = " "
  29815.     Call wInstantiateObjectVariables
  29816.     Call wGetCalendarProfile
  29817.     Call agentlog.logaction("Starting wCommand agent")
  29818.     Msgbox("starting wcommand")    
  29819.      'prep for response page
  29820.     PathInfo=note.getitemvalue("Path_Info")(0)
  29821.     FileAndPath=wGetDBPath
  29822.     Call agentlog.logaction("filepath is "+ fileandpath)
  29823.     InfoPathPos% = Instr (PathInfo, FileAndPath)
  29824.     Msgbox(fileandpath)
  29825.      'fetch query string & strip off "OpenAgent"
  29826.     QueryString = note.getitemvalue("Query_String")(0)    
  29827.     Call agentlog.logaction("query string is "+QueryString)
  29828.     pos% = Instr (QueryString, openagent)
  29829.     If (pos% = 0) Then Goto ArgumentError
  29830.     workstr$ = Right$(QueryString, Len (QueryString) - Len(openagent))
  29831. 'fetch all arguments before processing
  29832.     arg0found = False
  29833.     arg1found = False
  29834.     arg2found = False
  29835.      'fetch arg0 name
  29836.     pos% = Instr (workstr$, "=")
  29837.     If (pos% = 0) Then 
  29838.           'no value, just arg name
  29839.         If (Len(workstr$) = 0) Then Goto ArgumentError
  29840.         arg0name = workstr$
  29841.         Goto AllArgsCollected
  29842.     End If
  29843.     arg0name = Left$ (workstr$, pos% - 1)
  29844.     workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  29845.      'fetch arg0 value
  29846.     pos% = Instr (workstr$, "&")
  29847.     If (pos% = 0) Then 
  29848.           'last arg in list
  29849.         If (Len(workstr$) = 0) Then Goto ArgumentError
  29850.         arg0found = True
  29851.         arg0 = workstr$
  29852.         Goto AllArgsCollected
  29853.     End If
  29854.     arg0found = True
  29855.     arg0 = Left$ (workstr$, pos% - 1)
  29856.     workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  29857.      'fetch arg1 name
  29858.     pos% = Instr (workstr$, "=")
  29859.     If (pos% = 0) Then Goto ArgumentError
  29860.     arg1name = Left$ (workstr$, pos% - 1)
  29861.     workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  29862.      'fetch arg1 value
  29863.     pos% = Instr (workstr$, "&")
  29864.     If (pos% = 0) Then 
  29865.           'last arg in list
  29866.         If (Len(workstr$) = 0) Then Goto AllArgsCollected
  29867.         arg1found = True
  29868.         arg1 = workstr$
  29869.         Goto AllArgsCollected
  29870.     End If
  29871.     arg1found = True
  29872.     arg1 = Left$ (workstr$, pos% - 1)
  29873.     workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  29874.      'fetch arg2 name
  29875.     pos% = Instr (workstr$, "=")
  29876.     If (pos% = 0) Then Goto ArgumentError
  29877.     arg2name = Left$ (workstr$, pos% - 1)
  29878.     workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  29879.      'fetch arg2 value
  29880.     pos% = Instr (workstr$, "&")
  29881.     If (pos% = 0) Then 
  29882.           'last arg in list
  29883.         If (Len(workstr$) = 0) Then Goto AllArgsCollected
  29884.         arg2found = True
  29885.         arg2 = workstr$
  29886.         Goto AllArgsCollected
  29887.     End If
  29888.     arg2found = True
  29889.     arg2 = Left$ (workstr$, pos% - 1)
  29890.     workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
  29891. AllArgsCollected:
  29892. 'What command are we being issued?
  29893.     Select Case arg0name
  29894.     Case "EmptyTrash"
  29895.         Call agentlog.logaction("EmptyTrash")
  29896.      '?OpenAgent&EmptyTrash
  29897.      '?OpenAgent&EmptyTrash=viewname
  29898.           'Delete all documents in the trash folder
  29899.         Set destFolder = db.GetView( "($Trash)" )
  29900.         Set curNote = destFolder.GetFirstDocument
  29901.         While Not (curNote Is Nothing)
  29902.             Set nextNote = destFolder.GetNextDocument( curNote )
  29903.             curNote.Remove( True )
  29904.             Set curNote = nextNote
  29905.         Wend
  29906.         If arg0found Then
  29907.             srcFolderStr$ = arg0
  29908.             note.tmpFolderName = arg0
  29909.             sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", note) 
  29910.             Set srcFolder = db.GetView( sFolder(0) )
  29911.             If srcFolder Is Nothing Then srcFolderStr$ = "($Trash)"
  29912.         Else
  29913.             srcFolderStr$ = "($Trash)"
  29914.         End If
  29915.         Goto ReturnToFolder
  29916.     Case "ToTrash"
  29917.         Call agentlog.logaction("ToTrash")
  29918.         Msgbox("in totrash")
  29919.      '?OpenAgent&ToTrash=unid&From=viewunid
  29920.           'Move/copy document to trash folder
  29921.           '(The "from" argument is optional)
  29922.         If Not (arg0found) Goto ArgumentError
  29923.           'is this a valid document UNID?          
  29924.         On Error Resume Next
  29925.         Set curNote = db.GetDocumentByUNID( arg0 )
  29926.         On Error Goto ErrorRoutine
  29927.         If curNote Is Nothing Then Goto ReturnToInBox
  29928.         Msgbox("About to getview")
  29929.         Set destFolder = db.GetView( "($Trash)" )
  29930.         Msgbox("About to do put in folder")
  29931.         Call curNote.PutInFolderbyUNID( destFolder.Universalid )
  29932.         Msgbox("arg1 is "+arg1)
  29933.         If arg1found Then            
  29934.             If (arg1 <> destFolder.UniversalID) Then 
  29935.                 Msgbox("About to remove from folder")
  29936.                 curNote.removefromfolderbyUNID(arg1)
  29937.             End If
  29938.             srcFolderStr$ = arg1
  29939.         Else
  29940.                'If from argument not supplied (or complete) then return to inbox instead
  29941.             srcFolderStr$ = "($InBox)"
  29942.         End If
  29943.         If (curNote.HasItem( "Subject" ) ) Then
  29944.             If ( Left$( curNote.Subject(0), Len( intrash ) ) <> intrash ) Then
  29945.                 curNote.Subject = intrash & curNote.Subject(0)
  29946.                 Call curNote.Save(True, True, True)
  29947.             End If
  29948.         End If
  29949.         Goto ReturnToFolder
  29950.     Case "Destroy"
  29951.      '?OpenAgent&Destroy=viewUNID
  29952.           'Delete a folder
  29953.         If Not (arg0found) Goto ArgumentError
  29954.         uview = Strconv ( arg0, 1 )
  29955.         Set tmpNote=db.getdocumentbyUNID(uview)            
  29956.         If Not(tmpNote Is Nothing) Then
  29957.             Set srcFolder = db.getview(tmpNote.getitemvalue("$TITLE")(0))
  29958.         Else
  29959.             Goto ArgumentError
  29960.         End If
  29961.         If srcFolder Is Nothing Then Goto ArgumentError
  29962.         If Not ( srcFolder.IsFolder ) Then Goto ArgumentError
  29963.         Call srcFolder.Remove
  29964.         Goto ListAllViews
  29965.     Case "ViewEnd"
  29966.      '?OpenAgent&ViewEnd=viewname
  29967.           'Scroll to the end of a view
  29968.         If Not (arg0found) Goto ArgumentError
  29969.         If InfoPathPos% = 0 Then Goto InfoPathError
  29970.         srcFolderStr$ = arg0
  29971.         note.tmpFolderName = arg0
  29972.         sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", note)
  29973.         Set srcFolder = db.GetView( sFolder(0) )
  29974.         If srcFolder Is Nothing Then Goto ArgumentError
  29975.           'count the documents in this view
  29976.         NumDocs% = 0
  29977.         Set curNote = srcFolder.GetFirstDocument
  29978.         While Not curNote Is Nothing
  29979.             NumDocs% = NumDocs% + 1
  29980.             Set curNote = srcFolder.GetNextDocument(curNote)
  29981.         Wend
  29982.           'count number of top level the documents in this view
  29983.         NumTopDocs% = 0
  29984.         Set curNote = srcFolder.GetFirstDocument
  29985.         Dim lastTopNote As NotesDocument
  29986.         While Not curNote Is Nothing
  29987.             NumTopDocs% = NumTopDocs% + 1
  29988.             Set lastTopNote = curNote
  29989.             Set curNote = srcFolder.GetNextSibling(curNote)
  29990.         Wend
  29991.         num_to_list% = 15
  29992.         If (NumDocs% < num_to_list% And NumTopDocs% < num_to_list%) Then
  29993.                'end of view is already displayed
  29994.             Goto ReturnToFolder
  29995.         End If
  29996.           'if all documents in this view are NOT top level documents, then it's a hierarchical view
  29997.         If (NumDocs% = NumTopDocs%) Then
  29998.                'flat views need no further calcs.
  29999.             targetIndex% = (NumDocs% - num_to_list%) + 1
  30000.         Else
  30001.                'this is a hierarchical view, so we need to skip the responce docs when calcing the index
  30002.                'find a top level doc close to the end
  30003.             NumEndDocs% = 1
  30004.             LastTopDocNum% = NumTopDocs%
  30005.             targetIndex% = LastTopDocNum%
  30006.             Set curNote = srcFolder.GetLastDocument
  30007.             While Not curNote Is Nothing
  30008.                 If (NumEndDocs% > num_to_list%) Then 
  30009.                          'we've counted enough
  30010.                     targetIndex% = LastTopDocNum% + 1
  30011.                     Set curNote = Nothing
  30012.                 Else
  30013.                          'did we find a top doc?
  30014.                     If (curNote.UniversalID = lastTopNote.UniversalID) Then
  30015.                               'yes, then try to find the next one
  30016.                         Set lastTopNote = srcFolder.GetPrevSibling(lastTopNote)
  30017.                         LastTopDocNum% = LastTopDocNum% - 1
  30018.                     End If
  30019.                     NumEndDocs% = NumEndDocs% + 1
  30020.                     Set curNote = srcFolder.GetPrevDocument(curNote)
  30021.                 End If
  30022.             Wend
  30023.         End If
  30024.         Print "[" & FileAndPath$ & arg0 & "?OpenView&Start=" & Format$(targetIndex%) & "]"
  30025.         Exit Sub
  30026.     Case "UnFile"
  30027.         Call agentlog.logaction("Unfile")
  30028.      '?OpenAgent&UnFile=unid&From=viewUNID
  30029.         If Not (arg0found) Goto ArgumentError
  30030.         Set curNote = db.GetDocumentByUNID( arg0 )
  30031.         If curNote Is Nothing Then Goto ArgumentError
  30032.         If Not(arg1found) Goto argumenterror
  30033.         uview = Strconv ( arg1, 1 )
  30034.         Call curNote.RemoveFromFolderbyUNID( uview )
  30035.         Set trashFolder = db.GetView( "($Trash)" )
  30036.         If (trashFolder.Universalid = uview) Then
  30037.             If (curNote.HasItem( "Subject" ) ) Then
  30038.                 If ( Left$( curNote.Subject(0), Len( intrash ) ) = intrash ) Then
  30039.                     curNote.Subject = Right$( curNote.Subject(0), Len( curNote.Subject(0) ) - Len( intrash ) )
  30040.                     Call curNote.Save(True, True, True)
  30041.                 End If
  30042.             End If
  30043.         End If
  30044.         Goto ReturnToFolder
  30045.     Case "Remove"
  30046.         Call agentlog.logaction("Remove")
  30047.      '?OpenAgent&Remove=unid
  30048.         On Error Resume Next
  30049.         Set curNote = db.GetDocumentByUNID( arg0 )
  30050.         On Error Goto ErrorRoutine
  30051.         If curNote Is Nothing Then Goto ReturnToInBox
  30052.         MessageString = curNote.WebMessageString(0)
  30053.         Call curNote.Remove(False)     'destroy the RSVP document
  30054.           'determine return state
  30055.         If (MessageString = "") Then
  30056.             srcFolderStr$ = "($InBox)"
  30057.             Goto ReturnToFolder
  30058.         End If
  30059.         Goto DisplayMessage
  30060.     Case Else
  30061.         Call agentlog.logaction("Case else")
  30062.           '?OpenAgent&Copy=unid&To=viewUNID&From=viewUNID
  30063.           '?OpenAgent&Move=unid&To=viewUNID&From=viewUNID
  30064.         If Not (arg0name = "Copy" Or arg0name = "Move") Then Goto ArgumentError
  30065.         If Not (arg0found And arg1found And arg2found) Then Goto ArgumentError
  30066.         Set curNote = db.GetDocumentByUNID( arg0 )
  30067.         If curNote Is Nothing Then Goto ArgumentError
  30068.         uview = Strconv ( arg1, 1 )
  30069.         Set tmpNote=db.getdocumentbyUNID(uview)            
  30070.         If Not(tmpNote Is Nothing) Then
  30071.             Set destFolder = db.getview(tmpNote.getitemvalue("$TITLE")(0))
  30072.         Else
  30073.             Goto ArgumentError
  30074.         End If
  30075.         If destFolder Is Nothing Then Goto ArgumentError
  30076.         If Not ( destFolder.IsFolder ) Then Goto ArgumentError
  30077.         uview = Strconv ( arg2, 1 )
  30078.         Set tmpNote=db.getdocumentbyUNID(uview)            
  30079.         If Not(tmpNote Is Nothing) Then
  30080.             Set srcFolder = db.getview(tmpNote.getitemvalue("$TITLE")(0))
  30081.         Else
  30082.             Goto ArgumentError
  30083.         End If
  30084.         If srcFolder Is Nothing Then Goto ArgumentError
  30085.         If (arg0name = "Move") Then
  30086.                'Move a doc from a folder to a folder.
  30087.             If Not ( srcFolder.IsFolder ) Then Goto ArgumentError
  30088.             Call curNote.PutInFolder( destFolder.Name )
  30089.             Call curNote.RemoveFromFolder( srcFolder.Name )
  30090.         Else
  30091.                'Copy a doc from a view or folder to a folder
  30092.             Call curNote.PutInFolder( destFolder.Name )
  30093.         End If
  30094.         If (srcFolder.Name = "($Trash)" Or destFolder.Name = "($Trash)") Then
  30095.             If (curNote.HasItem( "Subject" ) ) Then
  30096.                 If (srcFolder.Name = "($Trash)") Then
  30097.                          'coming out of trash
  30098.                     If ( Left$( curNote.Subject(0), Len( intrash ) ) = intrash ) Then
  30099.                         curNote.Subject = Right$( curNote.Subject(0), Len( curNote.Subject(0) ) - Len( intrash ) )
  30100.                         Call curNote.Save(True, True, True)
  30101.                     End If        
  30102.                 Else
  30103.                          'going into trash
  30104.                     If ( Left$( curNote.Subject(0), Len( intrash ) ) <> intrash ) Then
  30105.                         curNote.Subject = intrash & curNote.Subject(0)
  30106.                         Call curNote.Save(True, True, True)
  30107.                     End If
  30108.                 End If
  30109.             End If
  30110.         End If
  30111.         Goto ReturnToFolder
  30112.     End Select
  30113. DisplayMessage:
  30114.     If viewarguments = " " Or viewarguments = "" Then
  30115.         viewarguments = "&Grid=" & profile.wCalGridType(0)
  30116.     End If
  30117.     If InfoPathPos% = 0 Then Goto InfoPathError
  30118.     Print |<BODY TEXT="000000" BGCOLOR="ffffff">| 
  30119.     Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  30120.     Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  30121.     Print |<TD><A HREF="| & FileAndPath$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  30122.     Print |<TD><A HREF="| & FileAndPath$ & |($Calendar)?OpenView| & viewarguments & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>| 
  30123.     Print |<TD><A HREF="| & FileAndPath$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  30124.     Print |<TD><A HREF="| & FileAndPath$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  30125.     Print |<TD><A HREF="| & FileAndPath$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD></TR>| 
  30126.     Print |</TABLE><HR><P><B>| & MessageString
  30127.     Exit Sub
  30128. ListAllViews:
  30129.     If InfoPathPos% = 0 Then Goto InfoPathError
  30130.     Print "[" & FileAndPath$ & "]"
  30131.     Exit Sub
  30132. ReturnToInBox:
  30133.     If InfoPathPos% = 0 Then Goto InfoPathError
  30134.     Print "[" & FileAndPath$ & "($InBox)?OpenView" & viewarguments$ & "]"
  30135.     Exit Sub
  30136. ReturnToFolder:
  30137.     If viewarguments = " " And srcFolderStr$ = "($Calendar)" Then
  30138.         viewarguments = "&Grid=" & profile.wCalGridType(0)
  30139.     End If
  30140.     If InfoPathPos% = 0 Then Goto InfoPathError
  30141.     Msgbox("about to bring up url")
  30142.     Print "[" & FileAndPath & srcFolderStr$ & "?OpenView" & viewarguments & "]"
  30143.     Call agentlog.close
  30144.     Exit Sub
  30145. ErrorRoutine:
  30146.     Print Error & " (wCommand)"
  30147.     Exit Sub
  30148. ArgumentError:
  30149.     If Len(QueryString) < 1 Then QueryString = " "
  30150.     Print "Invalid arguments were supplied to wCommand (" & QueryString & ")"
  30151.     Exit Sub
  30152. InfoPathError:
  30153.     Print "Info_Path error from wCommand"
  30154. End Sub
  30155. Lotus Product
  30156. OBJECT
  30157. ,,    KD
  30158. -\    ##
  30159. -\    #G
  30160. tmpFolderName
  30161. tmpFolderName
  30162. O=Lotus Notes
  30163. O=Lotus Notes
  30164. PURSAFO
  30165. |.:#U
  30166. O=Lotus Notes
  30167. CN=Lotus Notes Template Development/O=Lotus Notes
  30168. PURSAFO
  30169. 2 4E    }
  30170. $TITLE
  30171. $AssistType
  30172. $AssistLastRun
  30173. $AssistDocCount
  30174. $AssistFlags
  30175. $AssistTrigger
  30176. $AssistInfo
  30177. $AssistQuery
  30178. $AssistAction
  30179. $AssistAction_Ex
  30180. $PublicAccess
  30181. //to define values
  30182. var tmpImportance;
  30183. var tmpDeliveryReport;
  30184. var tmpDeliveryPriority;
  30185. var tmpReturnReceipt;
  30186. //...to get selected value of keyword field
  30187. function GetSelected(fieldname) {
  30188. //alert (fieldname);
  30189.     var selectedvalue="";    
  30190.     var sind=0;
  30191.         sind =fieldname.selectedIndex;
  30192.     //alert(sind);
  30193.         selectedvalue=fieldname.options[sind].value;
  30194. //alert(selectedvalue);
  30195. return(selectedvalue);
  30196. //...BUTTON handler for the OK click...
  30197. function OKClick() {
  30198.     // put the values back in the underlying form in the right format        
  30199.     window.opener.document.forms[0].Importance.value=GetSelected(tmpImportance);
  30200.     window.opener.document.forms[0].DeliveryReport.value=GetSelected(tmpDeliveryReport);
  30201.     window.opener.document.forms[0].DeliveryPriority.value=GetSelected(tmpDeliveryPriority);
  30202. if (tmpReturnReceipt.checked) 
  30203.     window.opener.document.forms[0].ReturnReceipt.value="1";
  30204.     window.opener.document.forms[0].ReturnReceipt.value="";
  30205. self.close();
  30206. //..button handler for cancell click
  30207. function CancelClick() {
  30208. self.close();
  30209. tmpImportance = document.forms[0].tmpImportance;
  30210. tmpDeliveryReport = document.forms[0].tmpDeliveryReport;
  30211. tmpDeliveryPriority = document.forms[0].tmpDeliveryPriority;
  30212. tmpSMTPEncoding = document.forms[0].tmpSMTPEncoding;
  30213. tmpMIMEFormat = document.forms[0].tmpMIMEFormat;
  30214. tmpReturnReceipt = document.forms[0].tmpReturnReceipt;
  30215.  DeliveryOptions
  30216. <FONT SIZE="2">Delivery options
  30217. <FONT SIZE="2">Importance:
  30218. .,$,  , :
  30219. tmpImportance
  30220. Normal|2High|1Low|3z
  30221. tmpImportanceFONT Size=2
  30222. tmpReturnReceipt
  30223. Return receipt|1z
  30224. tmpReturnReceipt
  30225. <FONT SIZE="2">Delivery report:
  30226. tmpDeliveryReport
  30227. Only on failure|BConfirm delivery|CTrace entire path|TNone|N
  30228. tmpDeliveryReportFONT Size=2
  30229. <FONT SIZE="2">Delivery priority:
  30230. tmpDeliveryPriority
  30231. High|HNormal|NLow|Lz
  30232. tmpDeliveryPriorityFONT Size=2
  30233. New Button
  30234. Need a newer version of Notes to execute this button.
  30235.     0S0E
  30236. OKClick()
  30237.        OK    
  30238. FONT Size=2
  30239. New Button
  30240. Need a newer version of Notes to execute this button.
  30241.     0S0E
  30242. CancelClick()
  30243.     Cancel 
  30244. FONT Size=2
  30245. O=Lotus Notes
  30246. O=Lotus Notes
  30247. PURSAFO
  30248. |.:#U
  30249. O=Lotus Notes
  30250. CN=Lotus Notes Template Development/O=Lotus Notes
  30251. PURSAFO
  30252. [aG"    }
  30253. $HTMLCode
  30254. $Info
  30255. $$ScriptName
  30256. $Body
  30257. '++LotusScript Development Environment:2:5:(Options):0:74
  30258. Option Public
  30259. Option Declare
  30260. '++LotusScript Development Environment:2:5:(Forward):0:1
  30261. Declare Sub Initialize
  30262. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30263. '++LotusScript Development Environment:2:2:Initialize:1:10
  30264. Sub Initialize
  30265.     Dim session As New notessession
  30266.     Dim db As notesdatabase
  30267.     Dim note As notesdocument
  30268.     Dim DbProfile As NotesDocument
  30269.     Dim getSetting As Variant
  30270.     Dim dbName As Variant
  30271.     Dim dbServer As Variant
  30272.     Dim dbFilename As Variant
  30273.     Dim abserver As Variant
  30274.     On Error Goto ErrorHere
  30275.     Dim dbug As New noteslog("WebArchiveOpen")    
  30276. 'logging is for debug purposes
  30277.     Set dbug = New NotesLog("WebArchiveOpen")
  30278. 'to turn off the debug log, set this to False     
  30279.     dbug.LogActions = True
  30280.     dbug.OpenAgentLog    
  30281.     Set db = session.currentdatabase
  30282.     Set note = session.documentcontext
  30283.     Set DbProfile = db.GetProfileDocument( "Archive Profile")
  30284.     dbServer = db.server
  30285.     Dim serverName As New NotesName( dbserver)
  30286.     abserver = servername.abbreviated
  30287.     dbFilename = db.Filename
  30288.     'check to see if Archive settings have ever been rendered
  30289.     'if not set up default settings
  30290.     If dbProfile.hasitem("Enabled") Then
  30291.         If dbprofile.ignorechildren(0) = "Yes" Then
  30292.             Call note.replaceitemvalue("OnlyDeleteDocuments", "")
  30293.         Else
  30294.             Call note.replaceitemvalue("OnlyDeleteDocuments", "Yes")
  30295.         End If
  30296.         If dbprofile.justdelete(0) = "Yes" Then
  30297.             Call note.replaceitemvalue("EnableArchiving", "")    
  30298.         Else
  30299.             Call note.replaceitemvalue("EnableArchiving", "Yes")    
  30300.         End If        
  30301.         Exit Sub
  30302.     Else
  30303.         dbProfile.Enabled = "Yes"
  30304.         dbProfile.ArchiveInactive = "Yes"
  30305.         dbProfile.ArchiveModified = "Yes"
  30306.         dbProfile.ArchiveExpired = ""
  30307.         dbProfile.IgnoreChildren = ""
  30308.         dbProfile.JustDelete = ""
  30309.         dbProfile.ArchivingServer= dbserver
  30310.         dbProfile.DocumentLife = 365    
  30311.         dbProfile.ModifiedLife = 365
  30312.         dbProfile.ExpiredLife = 5
  30313.         dbProfile.ArchiveServer = dbserver
  30314.         dbProfile.ArchiveLocation = "Server"   'DNT - this is hidden from the user
  30315.         dbProfile.ArchiveLog = "Yes"
  30316.         dbProfile.ArchivePath = "A_"  + dbFilename
  30317.         dbProfile.ArchiveLogDBPath = "L_"  + dbFilename
  30318.         'the first time the archive profile note is accessed via the web (and this WebQueryOpen event) 
  30319.         'we have to 'manually' set the fields on the form.  This is because the form's default values (which look to the profile note
  30320.         'for their default values) are interpreted *before* the WebQueryOpen event takes place.
  30321.         Call note.replaceitemvalue("Enabled", dbProfile.Enabled)
  30322.         Call note.replaceitemvalue("ArchiveInactive", dbProfile.ArchiveInactive)
  30323.         Call note.replaceitemvalue("ArchiveModified", dbProfile.ArchiveModified)
  30324.         Call note.replaceitemvalue("ArchiveExpired", dbProfile.ArchiveExpired)
  30325.         Call note.replaceitemvalue("IgnoreChildren", dbProfile.IgnoreChildren)
  30326.         Call note.replaceitemvalue("OnlyDeleteDocuments", "Yes")
  30327.         Call note.replaceitemvalue("JustDelete", dbProfile.JustDelete)
  30328.         Call note.replaceitemvalue("EnableArchiving", "Yes")
  30329.         Call note.replaceitemvalue("ArchivingServer", dbProfile.ArchivingServer)
  30330.         Call note.replaceitemvalue("dspArchivingServer", abServer)
  30331.         Call note.replaceitemvalue("DocumentLife", dbProfile.DocumentLife)
  30332.         Call note.replaceitemvalue("ModifiedLife", dbProfile.ModifiedLife)
  30333.         Call note.replaceitemvalue("ExpiredLife", dbProfile.ExpiredLife)
  30334.         Call note.replaceitemvalue("ArchiveServer", dbProfile.ArchiveServer)
  30335.         Call note.replaceitemvalue("dspArchiveServer", abServer)
  30336.         Call note.replaceitemvalue("ArchiveLocation", dbProfile.ArchiveLocation)
  30337.         Call note.replaceitemvalue("ArchiveLog", dbProfile.ArchiveLog)
  30338.         Call note.replaceitemvalue("ArchivePath", dbProfile.ArchivePath)
  30339.         Call note.replaceitemvalue("ArchiveLogDBPath", dbProfile.ArchiveLogDBPath)
  30340.         Call dbprofile.save(False,False,True)
  30341.     End If
  30342. ErrorHere:
  30343.     dbug.logaction(Err & " - " & Error)
  30344. End Sub
  30345. Lotus Product
  30346. OBJECT
  30347. O=Lotus Notes
  30348. O=Lotus Notes
  30349. PURSAFO
  30350. |.:#U
  30351. O=Lotus Notes
  30352. CN=Lotus Notes Template Development/O=Lotus Notes
  30353. PURSAFO
  30354. lq^J_
  30355. 1%w#n
  30356. $TITLE
  30357. $AssistType
  30358. $AssistLastRun
  30359. $AssistDocCount
  30360. $AssistFlags
  30361. $AssistTrigger
  30362. $AssistInfo
  30363. $AssistQuery
  30364. $AssistAction
  30365. $AssistAction_Ex
  30366. '++LotusScript Development Environment:2:5:(Options):0:74
  30367. Option Public
  30368. Option Declare
  30369. Use "DiscussionRoutines"
  30370. Use "wStringResource"
  30371. '++LotusScript Development Environment:2:5:(Forward):0:1
  30372. Declare Sub Initialize
  30373. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30374. '++LotusScript Development Environment:2:2:Initialize:1:10
  30375. Sub Initialize
  30376.     Dim session As New notessession
  30377.     Dim note As notesdocument
  30378.     Dim OnlyDeleteDocs As Variant
  30379.     Dim EnableArchiving As Variant
  30380.     Dim DbProfile As NotesDocument
  30381.     Dim dbName As Variant
  30382.     Dim dbServer As Variant
  30383.     Dim dbFilename As Variant
  30384.     Dim dbpath As String
  30385.     Dim LinkDone As String
  30386.     On Error Goto ErrorHere
  30387.     Dim dbug As New noteslog("WebArchiveSaveSettings")
  30388. 'logging is for debug purposes
  30389.     Set dbug = New NotesLog("WebArchiveSaveSettings")
  30390. 'to turn off the debug log, set this to False     
  30391.     dbug.LogActions = True
  30392.     dbug.OpenAgentLog    
  30393.     Set db = session.currentdatabase
  30394.     Set note = session.documentcontext
  30395.     Set DbProfile = db.GetProfileDocument( "Archive Profile")
  30396.     dbServer = db.server
  30397.     dbFilename = db.Filename
  30398.     dbpath = getdbpath
  30399.     dbProfile.Form = note.getItemValue("ProfileFormName")
  30400.     dbProfile.Enabled = note.getItemValue("Enabled")
  30401.     dbProfile.ArchiveInactive = note.getItemvalue("ArchiveInactive")
  30402.     dbProfile.ArchiveModified = note.getItemvalue("ArchiveModified")
  30403.     dbProfile.ArchiveExpired = note.getItemvalue("ArchiveExpired")
  30404.     dbProfile.ArchivingServer= note.getItemvalue("ArchivingServer")
  30405.     dbProfile.DocumentLife = note.getItemvalue("DocumentLife")
  30406.     dbProfile.ModifiedLife = note.getItemvalue("ModifiedLife")
  30407.     dbProfile.ExpiredLife = note.getItemvalue("ExpiredLife")
  30408.     dbProfile.ArchiveServer = note.getItemvalue("ArchiveServer")
  30409.     dbProfile.ArchiveLocation = note.getitemvalue("ArchiveLocation")
  30410.     dbProfile.ArchiveLog = note.getItemvalue("ArchiveLog")
  30411.     dbProfile.ArchivePath = note.getItemvalue("ArchivePath")
  30412.     dbProfile.ArchiveLogDBPath = note.getItemvalue("ArchiveLogDBPath")
  30413.     'the next two fields (Enabled and JustDelete) are a special case, as the field names mean the exact opposite from the field labels on the archive dialog box.
  30414.     'The item names in the note better reflect the functionality
  30415.     OnlyDeleteDocs = note.getItemvalue("OnlyDeleteDocuments")
  30416.     If OnlyDeleteDocs(0) = "Yes" Then
  30417.         dbProfile.IgnoreChildren = ""
  30418.     Else
  30419.         dbProfile.IgnoreChildren = "Yes"
  30420.     End If
  30421.     EnableArchiving = note.getItemValue("EnableArchiving")
  30422.     If EnableArchiving(0) = "Yes" Then
  30423.         dbug.logaction("enable archiving is yes")
  30424.         dbProfile.JustDelete = ""
  30425.     Else
  30426.         dbug.logaction("enable archiving is blank")
  30427.         dbProfile.JustDelete = "Yes"
  30428.     End If
  30429.     Call dbprofile.save(False,False,True)
  30430.     LinkDone =  |<a href="javascript: onClick=window.close(self)">| + getString(10) + |</a>|
  30431.     Print "<b>" + getString(9) + "</b><hr>" + LinkDone    
  30432. ErrorHere:
  30433.     dbug.logaction(Err & " - " & Error)
  30434. End Sub
  30435. Lotus Product
  30436. V0.0P
  30437. O=Lotus Notes
  30438. O=Lotus Notes
  30439. PURSAFO
  30440. |.:#U
  30441. O=Lotus Notes
  30442. CN=Lotus Notes Template Development/O=Lotus Notes
  30443. PURSAFO
  30444. ( t/]
  30445. $TITLE
  30446. $AssistType
  30447. $AssistLastRun
  30448. $AssistDocCount
  30449. $AssistFlags
  30450. $AssistTrigger
  30451. $AssistInfo
  30452. $AssistQuery
  30453. $AssistAction
  30454. $AssistAction_Ex
  30455. Database Archive Settings
  30456. (WebArchiveSaveSettings)
  30457. (WebArchiveOpen)
  30458. &Arial
  30459.  WebArchProfile
  30460.     Subject used for displaying the form name in the views
  30461. Archive Profile
  30462. Subject
  30463. Subject
  30464.     Name of profile form
  30465. DNT -- This is the name of the profile document, needed by the Notes code.
  30466. Archive Profile
  30467. ProfileFormName
  30468. ProfileFormName
  30469.     server or "" for local.  Set via the profile doc.  Defaults to server for web.
  30470. ProfileFormName
  30471. ArchiveLocation
  30472. ArchiveLocation
  30473. ArchiveLocation
  30474.     Archive docs. from the replica on this server.  On the web, this value is always the name of the server where the db resides (set via profile note; defaults to the name of the server, for web users)
  30475. ProfileFormName
  30476. ArchivingServer
  30477. ArchivingServer
  30478. ArchivingServer
  30479.     server-location of the archival database.  (set via profile note; defaults to the name of the server, for web users)
  30480. size = 35
  30481. ProfileFormName
  30482. ArchiveServer
  30483.     1S2S6S
  30484. ArchiveServer
  30485. ArchiveServer
  30486.     form never gets saved.  used only to set values in the profile note.
  30487. SaveOptions
  30488.     These two field names have the opposite meaning to their functionality.  The fields EnableArchiving and OnlyDeleteDocuments correspond to each of these fields, respectively.
  30489. ProfileFormName
  30490. JustDelete
  30491. JustDeletez
  30492. JustDelete
  30493. ProfileFormName
  30494. IgnoreChildren
  30495. IgnoreChildrenz
  30496. IgnoreChildren
  30497. ProfileFormName
  30498. Enabled
  30499. Enabled
  30500. Archive documents from the database on | Yes
  30501. Enabled
  30502. LocalTxt
  30503. Local
  30504.     1S2S
  30505. ArchivingServer
  30506.     0RR1S2S6S
  30507. LocalTxt
  30508.     0R3S4S6S8S
  30509. dspArchivingServer
  30510. Enabled
  30511.     1S2S
  30512.     ......
  30513. ProfileFormName
  30514. ArchiveInactive
  30515. ArchiveInactive
  30516. Archive documents which have no activity after | Yes
  30517. ArchiveInactive
  30518. Enabled
  30519.     1S2S
  30520.     ..... 
  30521. ?_?__
  30522. `!b`1
  30523. 7`^///?
  30524. ?b___
  30525. `bOOO
  30526. `<b!R
  30527.     Archive documents which have no activity after
  30528. size = 5
  30529. ProfileFormName
  30530. DocumentLife
  30531. DocumentLifez
  30532. DocumentLife
  30533.      days
  30534.     ......
  30535. ProfileFormName
  30536. ArchiveModified
  30537. ArchiveModified
  30538. Archive documents that have not been modified after | Yesz
  30539. ArchiveModified
  30540.     ......
  30541. ?_?__
  30542. `!b`1
  30543. 7`^///?
  30544. ?b___
  30545. `bOOO
  30546. `<b!R
  30547.     Archive documents that have not been modified after
  30548. size = 5
  30549. ProfileFormName
  30550. ModifiedLife
  30551. ModifiedLifez
  30552. ModifiedLife
  30553.      days
  30554.     ......
  30555. ProfileFormName
  30556. ArchiveExpired
  30557. ArchiveExpired
  30558. Archive documents that have expired after | Yes
  30559. ArchiveExpired
  30560.     ......
  30561. ?_?__
  30562. `!b`1
  30563. 7`^///?
  30564. ?b___
  30565. `bOOO
  30566. `<b!R
  30567.     Archive documents that have expired after
  30568. size = 5
  30569. ProfileFormName
  30570. ExpiredLife
  30571. ExpiredLife
  30572. ExpiredLife
  30573.      days
  30574.     ......
  30575. OnlyDeleteDocuments
  30576. Do not archive a document until all of its responses have been archived | Yes
  30577.     ......
  30578. ?_?__
  30579. `!b`1
  30580. 7`^///?
  30581. ?b___
  30582. `bOOO
  30583. `<b!R
  30584.     Do not archive a document until all of its responses have been archived
  30585.     ......
  30586. EnableArchiving
  30587. Archive documents to | Yes
  30588.     ......
  30589. ?_?__
  30590. `!b`1
  30591. 7`^///?
  30592. ?b___
  30593. `bOOO
  30594. `<b!R
  30595.     Archive documents to
  30596. Enabled
  30597.     1S2S
  30598.     .............
  30599.     Archve Location
  30600. Enabled
  30601.     1S2S
  30602.     .............
  30603.     Archive Location
  30604. LocalTxt
  30605. Local
  30606.     1S2S
  30607. ArchiveServer
  30608.     0RR1S2S6S
  30609. LocalTxt
  30610.     0R3S4S6S8S
  30611. dspArchiveServer
  30612.     .............
  30613.     Archive Database
  30614.     .............
  30615.     Archive Database
  30616. size = 35
  30617. ProfileFormName
  30618. ArchivePath
  30619. ArchivePath
  30620. ArchivePath
  30621. size = 35
  30622. ArchivePath
  30623. dspArchivePathz
  30624. dspArchivePath
  30625.     .............
  30626. ProfileFormName
  30627. ArchiveLog
  30628.     3S4S
  30629. ArchiveLog
  30630. Log Activity to | Yes
  30631. ArchiveLog
  30632.     .............
  30633. ?_?__
  30634. `!b`1
  30635. 7`^///?
  30636. ?b___
  30637. `bOOO
  30638. `<b!R
  30639.      Log Activity to
  30640. size=35
  30641. ProfileFormName
  30642. ArchiveLogDBPath
  30643.     3S4S
  30644. ArchiveLogDBPathz
  30645. ArchiveLogDBPath
  30646. size=35
  30647. ArchiveLogDBPath
  30648. dspArchiveLogDBPath
  30649. dspArchiveLogDBPath
  30650.     0S0E
  30651.     Save Settings
  30652. New Button
  30653. Need a newer version of Notes to execute this button.
  30654.     0S0E
  30655. window.close(self)
  30656.     Cancel
  30657. Categori_zeK
  30658. _Edit Document
  30659. Send Docu_ment
  30660. _Forward
  30661. _Move To Folder...
  30662. _Remove From FolderK
  30663. Categori_zeK
  30664. _Edit Document
  30665. Send Docu_ment
  30666. _Forward
  30667. _Move To Folder...
  30668. _Remove From FolderK
  30669. O=Lotus Notes
  30670. O=Lotus Notes
  30671. PURSAFO
  30672. |.:#U
  30673. O=Lotus Notes
  30674. CN=Lotus Notes Template Development/O=Lotus Notes
  30675. PURSAFO
  30676. $HTMLDocumentStyles
  30677. $Info
  30678. $WINDOWTITLE
  30679. $WEBQuerySave
  30680. $WEBQueryOpen
  30681. $WebFlags
  30682. $$ScriptName
  30683. DocumentLife
  30684. ModifiedLife
  30685. ExpiredLife
  30686. $Body
  30687. $V5ACTIONS
  30688. $ACTIONS
  30689. '++LotusScript Development Environment:2:5:(Options):0:74
  30690. Option Public
  30691. Use "WebLib"
  30692. '++LotusScript Development Environment:2:5:(Forward):0:1
  30693. Declare Sub Initialize
  30694. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30695. '++LotusScript Development Environment:2:2:Initialize:1:10
  30696. Sub Initialize
  30697.     IsWebClient = True 
  30698.     Call wInstantiateObjectVariables
  30699.     Call wGetCalendarProfile
  30700.     On Error Goto ErrorRoutine
  30701.     note.removeitem("Path_Info")
  30702.      'Just need to move the existing subject field value into this forwarded memo form
  30703.      'Get existing memo which we just came from -- memo to be forwarded
  30704.     UNID$ = Mid(note.Query_String(0), Instr(note.Query_String(0), "=")+1, 32)
  30705.      'if the UNID is missing or invalid, exit gracefully
  30706.     On Error Resume Next
  30707.     Dim forwardedNote As NotesDocument
  30708.     Set forwardedNote = db.GetDocumentByUNID( UNID$ )
  30709.     On Error Goto ErrorRoutine
  30710.     If forwardedNote Is Nothing Then 
  30711.         note.AbortGracefully = "1"
  30712.         Exit Sub
  30713.     End If
  30714.     note.AbortGracefully = "0"         
  30715.     note.subject = forwardedNote.subject(0)
  30716.     note.sendto=""
  30717.     note.copyto=""
  30718.     note.blindcopyto=""
  30719.     Exit Sub
  30720. ErrorRoutine:
  30721.     Messagebox Error & " (wMemoOpen)"
  30722.     Exit Sub
  30723. End Sub
  30724. Lotus Product
  30725. OBJECT
  30726. O=Lotus Notes
  30727. O=Lotus Notes
  30728. PURSAFO
  30729. |.:#U
  30730. O=Lotus Notes
  30731. CN=Lotus Notes Template Development/O=Lotus Notes
  30732. PURSAFO
  30733. |R@k|7U
  30734. $TITLE
  30735. $AssistType
  30736. $AssistLastRun
  30737. $AssistDocCount
  30738. $AssistFlags
  30739. $AssistTrigger
  30740. $AssistInfo
  30741. $AssistQuery
  30742. $AssistAction
  30743. $AssistAction_Ex
  30744. $PublicAccess
  30745. '++LotusScript Development Environment:2:5:(Options):0:74
  30746. Option Public
  30747. '++LotusScript Development Environment:2:5:(Forward):0:1
  30748. Declare Sub Initialize
  30749. Declare Sub ActionParser(strAction As String, strstring As String)
  30750. Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  30751. Declare Sub ProcessConditions
  30752. Declare Sub ProcessActions
  30753. Declare Sub ProcessConditionList(vtokconditionlist As Variant)
  30754. '++LotusScript Development Environment:2:5:(Declarations):0:10
  30755. Dim session As notessession
  30756. Dim db As notesdatabase
  30757. Dim note As notesdocument
  30758. Dim bnewdoc As Variant
  30759. Dim strformula As String
  30760. Dim strlogic As String
  30761. Dim strstring As String
  30762. Dim straction As String
  30763. Dim strfolder As String
  30764. Dim vstring As Variant
  30765. Dim vlogic As Variant
  30766. Dim vcondlogic As Variant
  30767. Dim voperator As Variant
  30768. Dim strcondition As String
  30769. Dim vexception As Variant
  30770. Dim vexceptionlist As notesitem
  30771. Dim vtokexceptionlist As notesitem
  30772. Dim vimportance As Variant
  30773. Dim vdomains As Variant    
  30774. Dim vcondition As Variant
  30775. Dim vconditionlist As notesitem
  30776. Dim vtokconditionlist As notesitem
  30777. '++LotusScript Development Environment:2:2:Initialize:1:10
  30778. Sub Initialize
  30779.     'This code creates the filter action formula to be used by the mail router and puts it in a field called $FilterFormul
  30780.     Dim dbmail As notesdatabase
  30781.     Dim session As New notessession
  30782.     Dim viewcollection As notesviewentrycollection
  30783.     Dim view As notesview
  30784.     Dim profile As notesdocument
  30785.     Dim item As notesitem
  30786.     Dim bprofilesave As Integer    
  30787.     Dim bmovetofolder As Integer
  30788.     Dim nrulenum As Integer
  30789.     Dim strfilteritem As String
  30790.     Set dbmail = session.currentdatabase
  30791.     Set note = session.Documentcontext
  30792.     Set profile= dbmail.GetProfileDocument("CalendarProfile")
  30793.     Set view = dbmail.getview("Rules")
  30794.     'Check to see if the profile already existed
  30795.     If Not(profile.HasItem("Owner")) Then
  30796.         profile.Form = "CalendarProfile"
  30797.         Call profile.ComputeWithForm(False,False)
  30798.     End If      
  30799.     'First give the rule a sequence number if it's a new rule    
  30800.     If note.isnewnote Then
  30801.         Set viewcollection = view.allentries
  30802.         nrulenum = viewcollection.count
  30803.         Call note.replaceitemvalue("OrderNum", nrulenum)
  30804.         Call profile.replaceitemvalue("$FilterFormulaCount",Cstr(nrulenum))
  30805.         bmovetofolder=True    
  30806.     Else
  30807.         nrulenum = note.getitemvalue("ordernum")(0)
  30808.     End If        
  30809.     strfilteritem = "$FilterFormula_"+Cstr(nrulenum)
  30810.     If note.getitemvalue("Enable")(0)="1" Then            
  30811.         ' Web agent stops here
  30812.         'Call dbmail.enabledboptions(1,True)        
  30813.         ProcessConditions
  30814.         ProcessActions
  30815.         Set item=note.getfirstitem("$FilterFormula")
  30816.         item.values=strformula        
  30817.         bprofilesave=True        
  30818.     Else        
  30819.         bprofilesave = profile.hasitem(strfilteritem)
  30820.     End If
  30821.     If profile.hasitem(strfilteritem) Then
  30822.         Call profile.removeitem(strfilteritem)
  30823.     End If
  30824.     Call note.computewithform(False,False)
  30825.     If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
  30826.     Call note.save(True,False,True)
  30827.     If bmovetofolder Then Call note.putinfolder("Rules")
  30828.     If bprofilesave Then Call profile.save(True, True, False)
  30829.     ' Provisional URL
  30830.     Print "["+db.filename+"/Rules?OpenView]"
  30831. End Sub
  30832. '++LotusScript Development Environment:2:2:ActionParser:1:8
  30833. Sub ActionParser(strAction As String, strstring As String)
  30834.     Dim strImportance As String    
  30835.     Select Case straction
  30836.     Case "0"
  30837.         strformula = strformula+"(@MailFilterAddtofolder("""+strstring+"""; @True))"
  30838.     Case "1"
  30839.         strformula = strformula+"(@MailFilterAddtofolder("""+strstring+"""))"
  30840.     Case "2"    
  30841.         strformula = "FIELD Importance:=Importance;"+strformula+"(@setfield(""Importance"";"""+strstring+"""))"
  30842.     Case "3"
  30843.         strformula = strformula+"(@deletedocument)"
  30844.     End Select
  30845. End Sub
  30846. '++LotusScript Development Environment:2:2:ConditionParser:1:8
  30847. Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  30848.     Dim fieldstring As String
  30849.     Dim fieldstring1 As String
  30850.     Dim fieldstring2 As String
  30851.     Dim logicstring As String
  30852.     Select Case strcondition
  30853.     Case "0"
  30854.         'Sender
  30855.         Fieldstring="From"
  30856.     Case "1"
  30857.         'Subject
  30858.         FieldString = "Subject"
  30859.     Case "2"
  30860.         'Body
  30861.         FieldString = "@Abstract([TextOnly];64,994;"""";""Body"")"
  30862.     Case "3"
  30863.         'Importance
  30864.         FieldString = "Importance"
  30865.     Case "4"
  30866.         'Delivery Priority
  30867.         FieldString = "Priority"
  30868.     Case "5"
  30869.         'To
  30870.         FieldString = "SendTo"
  30871.     Case "6"
  30872.         'CC
  30873.         FieldString="CopyTo"
  30874.     Case "7"
  30875.         'BCC
  30876.         FieldString=" BlindCopyTo"
  30877.     Case "8"
  30878.         'To or CC
  30879.         FieldString1 = "SendTo"
  30880.         FieldSTring2="CopyTo"
  30881.     Case "9"
  30882.         'body or subject
  30883.         FieldString1 = "@Abstract([TextOnly];64,994;"""";""Body"")"
  30884.         FieldSTring2="subject"
  30885.     Case "A"
  30886.         'Internet Domain
  30887.         FieldString = "SMTPDomain"
  30888.     Case "B"
  30889.         'size
  30890.         FieldSTring="@DocLength"
  30891.     End Select
  30892.     Select Case strlogic
  30893.     Case "0"
  30894.         If strcondition<>"B" Then
  30895.         'contains
  30896.             logicstring = "@Contains("
  30897.         Else
  30898.             logicstring = "@DocLength<"
  30899.         End If
  30900.     Case "1"
  30901.         'does not contain
  30902.         If strcondition<>"B" Then
  30903.             logicstring = "!@Contains("
  30904.         Else
  30905.             logicstring = "@DocLength>"
  30906.         End If
  30907.     Case "2"
  30908.         'is
  30909.         logicstring = "="
  30910.     Case "3"
  30911.         'is not
  30912.         logicstring = "!="
  30913.     End Select
  30914.     'We need to special case three conditions, multiple fields, searching body and document size
  30915.     Select Case strcondition
  30916.     Case "8" , "9"
  30917.         Select Case strlogic
  30918.         Case "0" , "1"
  30919.             strformula=strformula+logicstring+fieldstring1+";"""+strstring+""") | "+logicstring+fieldstring2+";"""+strstring+""")"
  30920.         Case "2" , "3"
  30921.             strformula=strformula+fieldstring1+logicstring+strstring +" | "+fieldstring2+logicstring+strstring
  30922.         End Select
  30923.     Case Else
  30924.         Select Case strlogic
  30925.         Case "0" , "1"
  30926.             strformula=strformula+logicstring+fieldstring+|;"|+strstring+|")|
  30927.         Case "2" , "3"
  30928.             strformula=strformula+fieldstring+logicstring+|"|+strstring+|"|
  30929.         End Select
  30930.     End Select
  30931. End Sub
  30932. '++LotusScript Development Environment:2:2:ProcessConditions:1:8
  30933. Sub ProcessConditions
  30934.     Dim vtoklist As Variant
  30935.     vtoklist = note.getitemvalue("tokconditionlist")
  30936.     If vtoklist(0)="" Then Exit Sub
  30937.     strformula="@If("
  30938.     Call ProcessConditionList(vtoklist)
  30939.     vtoklist = note.getitemvalue("tokexceptionlist")
  30940.     If vtoklist(0)="" Then    Exit Sub
  30941.     strformula=strformula+" & !"
  30942.     Call ProcessConditionList(vtoklist)
  30943. End Sub
  30944. '++LotusScript Development Environment:2:2:ProcessActions:1:8
  30945. Sub ProcessActions
  30946.     Dim vtokactionlist As Variant
  30947.     vtokactionlist = note.getitemvalue("tokactionlist")
  30948.     If vtokactionlist(0)="" Then Exit Sub
  30949.     strformula=strformula+"; ("
  30950.     For  x = 0 To Ubound(vtokactionlist)    
  30951.         'Seperate the elements in their individual items
  30952.         straction = Left(vtokactionlist(x),1)
  30953.         strstring = Right(vtokactionlist(x),Len(vtokactionlist(x))-2)
  30954.         Call ActionParser(straction, strstring)
  30955.         If x<> Ubound(vtokactionlist) Then strformula=strformula+" & "
  30956.     Next
  30957.     strformula=strformula+|);"")|
  30958. End Sub
  30959. '++LotusScript Development Environment:2:2:ProcessConditionList:1:8
  30960. Sub ProcessConditionList(vtokconditionlist As Variant)
  30961.     strformula = strformula + "("
  30962.     For  x = 0 To Ubound(vtokconditionlist)
  30963.         'Seperate the three elements in their individual items
  30964.         stroperator = Left(vtokconditionlist(x),1)    
  30965.         strcondition = Mid(vtokconditionlist(x),3,1)
  30966.         strlogic = Mid(vtokconditionlist(x), 5,1)
  30967.         strstring = Right(vtokconditionlist(x),Len(vtokconditionlist(x))-6)
  30968.         Call ConditionParser(strcondition, strlogic, strstring)
  30969.         If x<> Ubound(vtokconditionlist) Then 
  30970.             Select Case stroperator
  30971.             Case "0": strformula=strformula+" & "
  30972.             Case "1": strformula=strformula+" | "
  30973.             End Select
  30974.         End If
  30975.     Next
  30976.     strformula=strformula+")"
  30977. End Sub
  30978. Lotus Product
  30979. ^@    Kx
  30980.     ^@    #
  30981. ^@    Kx
  30982.     ^@    #
  30983. O=Lotus Notes
  30984. O=Lotus Notes
  30985. PURSAFO
  30986. |.:#U
  30987. O=Lotus Notes
  30988. CN=Lotus Notes Template Development/O=Lotus Notes
  30989. PURSAFO
  30990. $TITLE
  30991. $AssistType
  30992. $AssistLastRun
  30993. $AssistDocCount
  30994. $AssistFlags
  30995. $AssistTrigger
  30996. $AssistInfo
  30997. $AssistQuery
  30998. $AssistAction
  30999. $AssistAction_Ex
  31000. '++LotusScript Development Environment:2:5:(Options):0:74
  31001. Option Public
  31002. Use "WebLib"
  31003. '++LotusScript Development Environment:2:5:(Forward):0:1
  31004. Declare Sub Initialize
  31005. '++LotusScript Development Environment:2:5:(Declarations):0:10
  31006. Dim receipt As NotesDocument
  31007. '++LotusScript Development Environment:2:2:Initialize:1:10
  31008. Sub Initialize
  31009.     Call wInstantiateObjectVariables
  31010.     If (note.getitemvalue("ReturnReceipt")(0) = "1") Then
  31011.         Set receipt = New NotesDocument (db)
  31012.         Call receipt.replaceitemvalue("Form", "Return Receipt")
  31013.         Call receipt.replaceitemvalue("IntendedRecipient", note.getitemvalue("SendTo")(0))
  31014.         Call receipt.replaceitemvalue("DeliveryDate", note.getitemvalue("DeliveredDate")(0))
  31015.         Call receipt.replaceitemvalue("Path_Info", note.getitemvalue("RouteServers")(0))
  31016.         Call receipt.replaceitemvalue("Subject",note.getitemvalue("Subject")(0))
  31017.         Call receipt.MakeResponse(note)
  31018.         Call receipt.send (False, note.getitemvalue("From")(0))
  31019.         Call note.replaceitemvalue("ReturnReceipt", "0")
  31020.         Call note.Save (True, False)
  31021.     End If
  31022. End Sub
  31023. Lotus Product
  31024. OBJECT
  31025. O=Lotus Notes
  31026. O=Lotus Notes
  31027. PURSAFO
  31028. |.:#U
  31029. O=Lotus Notes
  31030. CN=Lotus Notes Template Development/O=Lotus Notes
  31031. PURSAFO
  31032. 0lk+$
  31033. $TITLE
  31034. $AssistType
  31035. $AssistLastRun
  31036. $AssistDocCount
  31037. $AssistFlags
  31038. $AssistTrigger
  31039. $AssistInfo
  31040. $AssistQuery
  31041. $AssistAction
  31042. $AssistAction_Ex
  31043. $PublicAccess
  31044. '++LotusScript Development Environment:2:5:(Options):0:74
  31045. Option Public
  31046. Use "WebLib"
  31047. '++LotusScript Development Environment:2:5:(Forward):0:1
  31048. Declare Sub Initialize
  31049. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31050. '++LotusScript Development Environment:2:2:Initialize:1:10
  31051. Sub Initialize
  31052.     Dim agentlog As New noteslog("Agent log")
  31053.     Call agentlog.openagentlog
  31054.     IsWebClient = True
  31055.     Call wInstantiateObjectVariables
  31056.     Call agentlog.logaction("In WebSend agent")
  31057.     If Not(wGetCalendarProfile ) Then Goto MustSetCalendarProfile
  31058.     On Error Goto ErrorRoutine
  31059. '    If (note.HasItem("MailSavedForm")) Then
  31060.           'we're doing a resend, which could be any kind of form
  31061. '        optionValue$ = "1"
  31062. '        note.Form = note.MailSavedForm
  31063. '        note.RemoveItem("MailSavedForm")
  31064. '        note.From = note.tmpFrom
  31065. '    Else
  31066.     optionValue$ = note.getitemvalue("tmpSendOptions")(0)
  31067.     Call agentlog.logaction("tmpSendOptions is "+optionValue$)
  31068.     Select Case note.getitemvalue("Form")(0)
  31069.     Case "Memo"
  31070.                'cool
  31071.     Case "Reply"
  31072.                'cool
  31073.     Case "Phone Message"
  31074.                'cool
  31075.     Case Else
  31076.                'we don't know what kind of form this is
  31077.         optionValue$ = "2"
  31078.     End Select
  31079. '    End If
  31080.     Dim datetime As New NotesDateTime( "Today" )
  31081.     Call datetime.SetNow
  31082.     Select Case optionValue$
  31083.     Case "1"
  31084.      'Send Only
  31085.         Call agentlog.logaction("send only")
  31086.         Call note.RemoveItem("$AutoEditMode")
  31087.         Call note.replaceitemvalue("PostedDate", datetime.LSLocalTime)
  31088.         Call note.replaceitemvalue("SaveOptions", "0")
  31089.         Call note.replaceitemvalue("MailOptions", "1")
  31090.         Call note.removeitem("EnterSendTo")
  31091.         Call note.removeitem("EnterCopyTo")
  31092.         Call note.removeitem("EnterBlindCopyTo")
  31093.         'Call note.replaceitemvalue("SendTo",note.EnterSendTo(0))
  31094.         'note.From = note.tmpFrom
  31095.     Case "2"
  31096.      'Send & Save
  31097.         Call agentlog.logaction("send &save")
  31098.         Call note.RemoveItem("$AutoEditMode")
  31099.         Call note.replaceitemvalue("PostedDate", datetime.LSLocalTime)
  31100.         Call note.replaceitemvalue("SaveOptions", "1")
  31101.         Call note.replaceitemvalue("MailOptions", "1")
  31102.         Call note.removeitem("EnterSendTo")
  31103.         Call note.removeitem("EnterCopyTo")
  31104.         Call note.removeitem("EnterBlindCopyTo")
  31105.     Case "3"
  31106.      'Save as draft
  31107.         Call agentlog.logaction("save as draft")
  31108.         Call note.AppendItemValue( "$AutoEditMode", "1" )
  31109.         Call note.RemoveItem("PostedDate")
  31110.         Call note.replaceitemvalue("SaveOptions", "1")
  31111.         Call note.replaceitemvalue("MailOptions", "0")
  31112.         Call note.removeitem("EnterSendTo")
  31113.         Call note.removeitem("EnterCopyTo")
  31114.         Call note.removeitem("EnterBlindCopyTo")
  31115.     End Select
  31116.     Call agentlog.logaction("saveoptions is "+note.saveoptions(0))
  31117.     Call agentlog.logaction("mailoptions is "+note.mailoptions(0))
  31118.     pathinfo$ = note.getitemvalue("Path_Info")(0)
  31119.     tmp1 = GetDBPath
  31120.     InfoPathPos% = Instr (pathinfo$, tmp1)
  31121.     Call agentlog.logaction("tmp1 is "+tmp1+ "and pathinfo is "+pathinfo$)
  31122.     Dim view As NotesView
  31123.     targetview$ = ""
  31124.     targetviewargs$ = ""
  31125.     tmppathinfo$ = note.tmpPath_Info(0)
  31126.     fromstr$ = "&From="
  31127.     pos%  = Instr (tmppathinfo$, fromstr$)
  31128.     If pos% <> 0 Then
  31129.           'locate the view to return to, which was passed in as a URL argument 
  31130.         targetview$ = Right$ ( tmppathinfo$, Len( tmppathinfo$) - pos% - Len(fromstr$) + 1)
  31131.         pos%  = Instr (targetview$, "&")
  31132.         If (pos% <> 0) Then
  31133.                'locate any arguments to pass to that view
  31134.             targetviewargs$ = Right$ (targetview$, Len (targetview$) - pos% + 1)
  31135.             targetview$ = Left$ (targetview$, pos% - 1)
  31136.         End If
  31137.     Else
  31138.           'the view name was not passed as an argument, so pull it out of the URL if possible
  31139.         workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.Filepath)))
  31140.         pos%  = Instr (workstr$, "/")
  31141.         Call agentlog.logaction("workstr is  "+workstr$)
  31142.         If (pos% <> 0 ) Then
  31143.             targetview$ = Left$ (workstr$, pos% - 1)
  31144.         Else
  31145.             Call agentlog.logaction("should be here")
  31146.             pos%  = Instr (workstr$, "?")
  31147.             If (pos% <> 0 ) Then
  31148.                 targetview$ = Left$ (workstr$, pos% - 1)
  31149.             Else
  31150.                 targetview$ = workstr$
  31151.             End If
  31152.                'is it a view name?
  31153.             On Error Resume Next
  31154.             Set view  = notesDatabase.GetView( viewName$ )
  31155.             On Error Goto ErrorRoutine
  31156.             If (view Is Nothing) Then 
  31157.                     'or is it a unid?
  31158.                 Set view = notesDatabase.getdocumentbyunid(targetview$)
  31159.                 If view Is Nothing Then targetview$ = ""     'no
  31160.             End If
  31161.         End If
  31162.     End If
  31163.     Call agentlog.logaction("targetview is "+targetview$)
  31164.     If InfoPathPos% <> 0 Then 
  31165.         tmp2 = Evaluate("@ReplaceSubstring(""" + Left$(pathinfo$, InfoPathPos% + Len (db.Filepath)) + """;"" "";""+"")")
  31166.         FileAndPath$ = tmp2(0)
  31167.         Call agentlog.logaction("tmp2 is "+fileandpath$)
  31168.         If note.tmpBackToTask(0) = "1" Then
  31169.             Print "[" & FileAndPath$ & "/ToDoFS?OpenFrameset]"
  31170.         Else
  31171.             If targetview$ <> "" Then
  31172.                 Print "[" & FileAndPath$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F"&targetview$ & "%3FOpenView]"
  31173.             Else
  31174.                 Call agentlog.logaction("url to open is " & fileandpath$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F($All)%3FOpenView")
  31175.                 Print "[" & fileandpath$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid & "%2F($All)%3FOpenView]"
  31176.             End If
  31177.         End If
  31178.     Else
  31179.         Print "The document has been processed."
  31180.     End If
  31181.     Call wMarkTempFields( note )
  31182.     Exit Sub
  31183. MustSetCalendarProfile:
  31184.     Print "You must set your user preferences before you can mail documents."
  31185.     Print "Select your Preferences options from the bottom left corner of the In Box view."
  31186.     Call note.replaceitemvalue("SaveOptions", "0")
  31187.     Call note.replaceitemvalue("MailOptions", "0")
  31188.     Exit Sub
  31189. ErrorRoutine:
  31190.     Print Error & " (wMemo)"
  31191.     note.SaveOptions = "0"
  31192.     note.MailOptions = "0"
  31193.     Exit Sub
  31194. End Sub
  31195. Lotus Product
  31196. OBJECT
  31197. N0    S@    ^L    %
  31198. N0    S\    ^
  31199. }(    Jx    
  31200. }`    Jx    
  31201. }`    Jx    
  31202. }`    Jx    
  31203. O=Lotus Notes
  31204. O=Lotus Notes
  31205. PURSAFO
  31206. |.:#U
  31207. O=Lotus Notes
  31208. CN=Lotus Notes Template Development/O=Lotus Notes
  31209. PURSAFO
  31210. $TITLE
  31211. $AssistType
  31212. $AssistLastRun
  31213. $AssistDocCount
  31214. $AssistFlags
  31215. $AssistTrigger
  31216. $AssistInfo
  31217. $AssistQuery
  31218. $AssistAction
  31219. $AssistAction_Ex
  31220. '++LotusScript Development Environment:2:5:(Options):0:74
  31221. Option Public 
  31222. Use "WebLib"
  31223. '++LotusScript Development Environment:2:5:(Forward):0:1
  31224. Declare Sub Initialize
  31225. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31226. '++LotusScript Development Environment:2:2:Initialize:1:10
  31227. Sub Initialize
  31228.     Dim agentlog As New noteslog("Agent log")
  31229.     Call agentlog.openagentlog
  31230.     IsWebClient = True
  31231.     Call wInstantiateObjectVariables
  31232.     Call wGetCalendarProfile
  31233.     Call agentlog.logaction("Inside pref open")
  31234.     On Error Goto ErrorRoutine
  31235.     Call CopyProfileValues(profile, note)    
  31236.     note.DefaultMailOpt = profile.DefaultMailOpt
  31237.     'note.CalGridType = profile.CalGridType
  31238.     Exit Sub
  31239. ErrorRoutine:
  31240.     Messagebox Error & " (wPreferences)" 
  31241.     Exit Sub
  31242. End Sub
  31243. Lotus Product
  31244. O=Lotus Notes
  31245. O=Lotus Notes
  31246. PURSAFO
  31247. |.:#U
  31248. O=Lotus Notes
  31249. CN=Lotus Notes Template Development/O=Lotus Notes
  31250. PURSAFO
  31251. F56uIT
  31252. XVL;Q
  31253. $TITLE
  31254. $AssistType
  31255. $AssistLastRun
  31256. $AssistDocCount
  31257. $AssistFlags
  31258. $AssistTrigger
  31259. $AssistInfo
  31260. $AssistQuery
  31261. $AssistAction
  31262. $AssistAction_Ex
  31263. $PublicAccess
  31264. '++LotusScript Development Environment:2:5:(Options):0:74
  31265. Option Public 
  31266. Use "WebLib" 
  31267. '++LotusScript Development Environment:2:5:(Forward):0:1
  31268. Declare Sub Initialize
  31269. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31270. '++LotusScript Development Environment:2:2:Initialize:1:10
  31271. Sub Initialize
  31272.     Dim agentlog As New noteslog("Agent log")
  31273.     Call agentlog.openagentlog
  31274.     IsWebClient = True
  31275.     Call wInstantiateObjectVariables
  31276.     Call wGetCalendarProfile
  31277.     Call agentlog.logaction("In wpref save")
  31278.     On Error Goto ErrorRoutine
  31279.     Call CopyProfileValues(note, profile)
  31280.     profile.DefaultMailOpt = note.DefaultMailOpt
  31281.     'Need to add this field
  31282. '    profile.wCalGridType = note.CalGridType
  31283.     Call profile.computewithform(False, False)
  31284.     Call profile.Save(True,True,True)
  31285.     pos% = Instr (note.getitemvalue("Path_Info")(0), db.FileName)
  31286.     If pos% = 0 Then 
  31287.         Print "The preference settings have been saved."
  31288.     Else
  31289.         tmp = Evaluate("@ReplaceSubstring(""" + Left$(note.getitemvalue("Path_Info")(0), pos% + Len (db.FileName)) + """;"" "";""+"")") 
  31290.         Print "[" + tmp(0) + "MailFS?OpenFrameset]"
  31291.     End If
  31292.     Exit Sub
  31293. ErrorRoutine:
  31294.     Print Error & " (wPreferences)" 
  31295.     Exit Sub
  31296. End Sub
  31297. Lotus Product
  31298. OBJECT
  31299. O=Lotus Notes
  31300. O=Lotus Notes
  31301. PURSAFO
  31302. |.:#U
  31303. O=Lotus Notes
  31304. CN=Lotus Notes Template Development/O=Lotus Notes
  31305. PURSAFO
  31306. uzx&n
  31307. AAM5a
  31308. $TITLE
  31309. $AssistType
  31310. $AssistLastRun
  31311. $AssistDocCount
  31312. $AssistFlags
  31313. $AssistTrigger
  31314. $AssistInfo
  31315. $AssistQuery
  31316. $AssistAction
  31317. $AssistAction_Ex
  31318. $PublicAccess
  31319. IconBitmap$UpdatedBy$DefaultFrameset$TITLE$UpdatedByLimit$DefaultWebFrameset$Flags$FlagsNoRefresh$Name$ACLDigest$Signature$ImagesWide$ImagesHigh$ImageData$ImageNames$ImagesColorize$PublicAccess$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$Background$Info$$Script_O$$ScriptName$Body$Fonts$SiteMapList$Comment$FrameSet$ScriptLib$ScriptLib_O$LeftToDo$DBScript$DBScript_O$Index$Formula$FormulaClass$Collation$Collation1$Collation2$VIEWFORMAT$WebFlags$V5ACTIONS$ACTIONS$SCRIPTOBJ_15$SCRIPTOBJ_16$SCRIPTOBJ_17$SCRIPTOBJ_21$ViewGlobalScript$ViewGlobalScript_O$Class$SCRIPTOBJ_6$SCRIPTOBJ_7$FolderObject$FolderIDTable$$FormPostOpenAction$TypeIconExpireDateReplyDateComposedDate$$XMB_2$$XMB_3$HTMLDocumentStyles$HeaderArea$RegionFrameset$NoBackgroundOverride$WINDOWTITLE$WEBQuerySave$WEBQueryOpen$AppHelpFormula$Script$$FormScript$$$FormScript_OFormFromAltFromLogoSignEncrypt$KeepPrivateDefaultMailSaveOptionsImportanceDeliveryReportDeliveryPrioritytmpSendOptionsReturnReceiptEnterSendToSendToEnterCopyToCopyToEnterBlindCopyToBlindCopyToSubjectBody$FIELDS$SCRIPTOBJ_0$SCRIPTOBJ_1$SCRIPTOBJ_2$SCRIPTOBJ_3$SCRIPTOBJ_18$SCRIPTOBJ_19$SCRIPTOBJ_20$SCRIPTOBJ_22$SCRIPTOBJ_26$SCRIPTOBJ_27$SCRIPTOBJ_28$SCRIPTOBJ_33$SCRIPTOBJ_34$SCRIPTOBJ_35$MachineNameInheritedSendToInheritedReplyToInheritedFromInheritedFromDomainReplyNumber$AUTOLAUNCH$SCRIPTOBJ_24$SCRIPTOBJ_25$SCRIPTOBJ_31$SCRIPTOBJ_32ASSIGNSTATESTARTDATETIMEDueDateTime$ExpandGroupsTaskTypeStartDateRepeatsDueDateStatusOrgConfidentialAlarmsCategories$SCRIPTOBJ_8$SCRIPTOBJ_10$SCRIPTOBJ_11$SCRIPTOBJ_12$SCRIPTOBJ_13$SCRIPTOBJ_14$SCRIPTOBJ_23$SCRIPTOBJ_29$SCRIPTOBJ_30$SCRIPTOBJ_36$SCRIPTOBJ_37$SCRIPTOBJ_38$SCRIPTOBJ_39$SCRIPTOBJ_40$SCRIPTOBJ_41$SCRIPTOBJ_42$BetaVersion$HeaderForwardedFromForwardedDatetmpAlarmValuetmpAlarmOnDatetmpAlarmOnTimetmpAlarmFilestmpOffset$AlarmUnittmpOffsetDirtmpAlarmPopuptmpAlarmPath$AlarmMemoOptions$AlarmSendTotmpDisable$$SignatureOption$SignatureOption_O$$Signature_2$Signature_2_O$$Signature_1$Signature_1_O$$Signature$Signature_OtmpAlarmSoundsOwnerDefaultMailOpt$AttachmentOptionSpellCheckFormatRepliesOffSetCharSignMailEncryptSentMailEncryptSavedMailMIMEFormatDefaultLogoEnableSignatureSignatureOptionSignature_2Signature_1SignatureSunday$Times1Monday$Times2Tuesday$Times3Wednesday$Times4Thursday$Times5Friday$Times6Saturday$Times7EnableAlarmsSetAlarmAppointmentAppointmentLeadSetAlarmReminderReminderLeadSetAlarmEventEventLeadSetAlarmAnniversaryAnniversaryLeadSetAlarmTaskTaskLeadAlarmSoundCalEntryTypeDefaultDurationAutoAnniversaryRepeatPreventAllPreventSentConflictMeetingConflictEventConflictAnnivUserCategoriesCalendarTimeSlotStartCalendarTimeSlotEndCalendarTimeSlotDurationAutoprocessLevelAutoprocessUserListAutoprocessForwardAutoRemoveFromInboxPreventRepliesFromInboxAllowBusyAccessTaskFollowReadMailWriteMailEditMailDeleteMailOtherUsersPublicReadReadCalendarPublicWriteWriteCalendar$BusyName$NoPurge$AvailableDays$CSVersiontmpChangeWhichBroadcastPreventCounterPreventDelegate$$FormAction2actiontmpDontAsk$Phone_O$Moods$AutoSpellUpdateProfileNotetmpSenderTagReplyToSMTPEncodingMIMEMailCharsetSenderTagDeliveryDateMembersStartTimeDurationSel$FrameInfoSaveOptionsDurationGroupNameGroupTypeDescriptionSelectedGroupMemberstmpPencilInDelegeeNewStartDateNewStartTimeNewEndDateNewEndTimetmpKeepPostedtmpIncludeCommentsSelectedItemsServerDBNametmpTitletmpFirstNametmpMiddleNametmpLastNametmpSuffixtmpEmailAddresstmpDomainIncludeX509tmpConflictActionIntendedRecipientStatusUpdate$SCRIPTOBJ_9$$GeneralMessage$GeneralMessage_O$$SpecialPeople$SpecialPeople_O$$IgnoreFrom$IgnoreFrom_O$$IgnoreSubjectPhrase$IgnoreSubjectPhrase_ONotifiedSenderExcludeFromView_ViewIconTabDialogStatusCurrentStatusFirstDayOutFirstDayBackBookBusyTimeGeneralSubjectDaysOutGeneralMessageSpecialPeopleSpecialSubjectSpecialMessageExcludeInternetEmailIgnoreFromIgnoreSendIgnoreSubjectPhrasedateFirstDayOutdateFirstDayBacktmpNewStartDatetmpNewStartTimetmpNewEndDatetmpNewEndTimeEndDateEndTimetmpDeleteEntrytmpOriginalPeopletmpOriginalRoletmpOriginalStatustmpSortType$$XMB$LicenseeBGTableColorHeaderFootertmpRIMDMPtmpRIYtmpRIWtmpRIDtmpRAMDtmpRAWtmpRAMPRepeatStartDateRepeatUnitRepeatIntervalRepeatHowRepeatForRepeatForUnitRepeatUntilRepeatAdjustRepeatCustomRepeatFromEndRepeatWeekendstmpDateListtmpDateSelectedMailOptions$$StartDate$StartDate_OResourceTypeResourceNameAddressBookstmpSitetmpCategoryFindResourceStyleRoomToReserveResourceNABsSiteCapacityResourceCategoryResourceNameSingleResourceNameMultidStartTimedEndTimedStartDate$FilterFormulaConditionListtokConditionListExceptionListtokExceptionListActionListTokActionListEnableTypeOperatorconditionlogicstringDomainListConditionListDisplayfolderimportancecondActionListDisplayOrderNum$SCRIPTOBJ_4$SCRIPTOBJ_5$ViewScript$ViewScript_O$FormFormulaSelectedOptionsTraceTypetmpDontShow$TYPE$TABLEFORMATDispStat$$AddressBooks$AddressBooks_OFindTexttmpSendTotmpCopyTotmpBlindCopyToEntryListtmpCurIndextmpNextIndex$HTMLCodetmpImportancetmpReturnReceipttmpDeliveryReporttmpDeliveryPriorityProfileFormNameArchiveLocationArchivingServerArchiveServerJustDeleteIgnoreChildrenEnabledArchiveInactiveDocumentLifeArchiveModifiedModifiedLifeArchiveExpiredExpiredLifeOnlyDeleteDocumentsEnableArchivingArchivePathArchiveLogArchiveLogDBPathOperatorValuesConditionValuesLogic1ValuesLogic2ValuesImportanceValuesActionValuesExceptionListDisplayNewImportance$Collation3$CalendarFormat$AuthortmpSorttmpShow$$EndDate$EndDate_OAppointmentTypeLocationBookFreeTimeResources$OLEObjField$OLEObjRichTextFieldOLEBodyPath_InfoInheritedDBTitleInheritedSubjectFlowStatusPhoneCallerCompanyNamePhoneNumberFAXNumberPhoneReason$DesignVersion$Version
  31320. refreshAllDisplays();
  31321. Mail Rule
  31322. wMailRuleSubmit
  31323. 5Courier New
  31324. Lotus Product
  31325. OBJECT
  31326.  wMailRules
  31327. Translate
  31328. OperatorValues
  31329. Translate
  31330. sender
  31331. subject
  31332. importance
  31333. delivery priority
  31334. To or CC
  31335. body or subject
  31336. Internet Domain
  31337. Size (in Kbytes)
  31338. ConditionValues
  31339. Translate
  31340. is less than
  31341. is more than
  31342. is not
  31343. Logic1Values
  31344. Translate
  31345. contains
  31346. does not contain
  31347. is not
  31348. Logic2Values
  31349. Translate
  31350. medium
  31351. ImportanceValues
  31352. move to folder
  31353. copy to folder
  31354. change importance to
  31355. delete
  31356.     0S0E
  31357. ActionValues
  31358. $FilterFormula
  31359. $FilterFormula
  31360. ConditionList
  31361. tokConditionList
  31362. ExceptionList
  31363. tokExceptionList
  31364. ActionList
  31365. tokActionList
  31366. <NOSCRIPT><H2>
  31367. Translate
  31368. This page requires JavaScript 1.1 or higher
  31369. </H2><HR></NOSCRIPT>
  31370. <SCRIPT LANGUAGE="JavaScript"><!--
  31371.     _version_=10 //--></SCRIPT>
  31372. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  31373.     _version_=11 //--></SCRIPT>
  31374. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  31375.     _version_=12 //--></SCRIPT>
  31376. <SCRIPT LANGUAGE="JavaScript"><!--
  31377.     if(_version_<11)
  31378.         document.write('<H2>
  31379. Translate
  31380. This page requires JavaScript 1.1 or higher
  31381. </H2><HR>');
  31382.         document.close();
  31383. //--></SCRIPT>
  31384. <A NAME="_RefreshKW_Condition"></A>
  31385. ConditionList
  31386.     0S0E
  31387. Rule is:  
  31388. Enable
  31389. On|1Off|0
  31390.   
  31391. Specify Conditions:
  31392.   
  31393. Operator
  31394. OperatorValues
  31395.     0S0E
  31396. Condition
  31397. ConditionValues
  31398.     0S0E
  31399. Logic
  31400. Condition
  31401. Logic1Values
  31402. Logic2Values
  31403.     0S0E
  31404. condition
  31405.     0S0E
  31406. String
  31407. condition
  31408.     0S0E
  31409. Importance
  31410. ImportanceValues
  31411.     1S2S
  31412. condition
  31413.     0S0E
  31414. DomainList
  31415.   
  31416. When mail messages arrive that meet these conditions:
  31417. ConditionListDisplay
  31418. 1234567890123456789012345678901234567890z
  31419. size=3
  31420. New Button
  31421. Need a newer version of Notes to execute this button.
  31422.     0S0E
  31423. addConditionLine("ConditionList"); refreshOperatorField();
  31424.         Add         z
  31425. {Font Size="2"}
  31426. New Button
  31427. Need a newer version of Notes to execute this button.
  31428.     0S0E
  31429. removeLine("ConditionList"); refreshOperatorField();
  31430.     Remove    z
  31431. {Font Size="2"}
  31432. New Button
  31433. Need a newer version of Notes to execute this button.
  31434.     0S0E
  31435. removeAllLines("ConditionList"); refreshOperatorField();
  31436.  Remove All z
  31437. {Font Size="2"}
  31438. Except when:
  31439. ExceptionListDisplay
  31440. 1234567890123456789012345678901234567890z
  31441. size=3
  31442. New Button
  31443. Need a newer version of Notes to execute this button.
  31444.     0S0E
  31445. addConditionLine("ExceptionList")
  31446.         Add         z
  31447. {Font Size="2"}
  31448. New Button
  31449. Need a newer version of Notes to execute this button.
  31450.     0S0E
  31451. removeLine("ExceptionList")
  31452.     Remove    z
  31453. {Font Size="2"}
  31454. New Button
  31455. Need a newer version of Notes to execute this button.
  31456.     0S0E
  31457. removeAllLines("ExceptionList")
  31458.  Remove All z
  31459. {Font Size="2"}
  31460.   
  31461. Specify Actions:
  31462.   
  31463. Action
  31464. ActionValues
  31465.     0S0E
  31466. Action
  31467.     1S2S
  31468. Folder
  31469. Action
  31470.     0S0E
  31471. NewImportance
  31472. ImportanceValues
  31473.     1S2S
  31474. action
  31475.     0S0E
  31476. action
  31477.     0S0E
  31478.   
  31479. Perform the following actions:
  31480. ActionListDisplay
  31481. 1234567890123456789012345678901234567890
  31482. size=3
  31483. New Button
  31484. Need a newer version of Notes to execute this button.
  31485.     0S0E
  31486. addAction()
  31487.          Add         
  31488. {Font Size="2"}
  31489. New Button
  31490. Need a newer version of Notes to execute this button.
  31491.     0S0E
  31492. removeLine("ActionList")
  31493.     Remove     
  31494. {Font Size="2"}
  31495. New Button
  31496. Need a newer version of Notes to execute this button.
  31497.     0S0E
  31498. removeAllLines("ActionList")
  31499.  Remove All  
  31500. {Font Size="2"}
  31501.   
  31502.     0S0E
  31503.     0S0E
  31504.    OK   z
  31505. {Font Size="2"}
  31506.     0S0E
  31507. Cancelz
  31508. {Font Size="2"}
  31509. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  31510. var TYPE_CONDITION = "0";
  31511. var COND_IMPORTANCE = 3;
  31512. var COND_DELIVERY = 4;
  31513. var COND_DOMAIN = 10;
  31514. var COND_SIZE = 11;
  31515. var LIST_SEP = "; ";
  31516. var form = document.forms[0];
  31517. form.ConditionListDisplay.options[0] = form.ExceptionListDisplay.options[0]
  31518.     = form.ActionListDisplay.options[0] = null;
  31519. function list_append(field,str)
  31520.     if(field.value.length) field.value += 
  31521. LIST_SEP;
  31522.     field.value += str;
  31523. function list_removeelem(field,index)
  31524.     var value = field.value;
  31525.     for(i=pos=0 ; i<index ; i++)
  31526.         pos = value.indexOf(LIST_SEP,++pos);
  31527.     field.value = value.substring(0,pos);
  31528.     pos = value.indexOf(LIST_SEP,++pos);
  31529.     if(pos != -1) field.value += value.substring(pos+(i?0:LIST_SEP.length),value.length);
  31530. function list_replaceinvalidsep(str)
  31531.     var newstr = "";
  31532.     for(last=0, pos=str.indexOf(LIST_SEP) ; pos != -1 ; last=pos, pos=str.indexOf(LIST_SEP,pos))
  31533.         newstr += str.substring(last,pos) + ", ";
  31534.         pos += LIST_SEP.length;
  31535.     return newstr += str.substring(last,str.length);
  31536. function refreshDisplay(field)
  31537.     var list = eval("form."+field).value;
  31538.     var toklist = eval("form.tok"+field).value;
  31539.     var display = eval("form."+field+"Display").options;
  31540.     var pos = list.indexOf(LIST_SEP);
  31541.     for(i=last=0 ; pos!=-1 ; last=++pos, pos=list.indexOf(
  31542. LIST_SEP,++pos), i++)
  31543. display[i] = new Option(list.substring(last,pos));
  31544.     display[i] = new Option(list.substring(
  31545. last,list.length));
  31546.     for(j=++i ; j<display.length ; j++) display[j] = null;
  31547.     display.length = i;
  31548. function refreshAllDisplays()
  31549.     refreshDisplay("ConditionList");
  31550.     refreshDisplay("ExceptionList");
  31551.     refreshDisplay("ActionList");
  31552.     refreshOperatorField();
  31553. function getANDOperator()
  31554.     var v = form.OperatorValues.value;
  31555.     return v.substring(0,v.indexOf(LIST_SEP));
  31556. function getOROperator()
  31557.     var v = form.OperatorValues.value;
  31558.     return v.substring(
  31559. v.indexOf(LIST_SEP)+LIST_SEP.length,v.length);
  31560. function refreshOperatorField()
  31561.     var op = form.Operator.options;
  31562.     if(form.ConditionList.value.length)
  31563.         if(op.length == 2) return;
  31564.         op[0] = new Option(getANDOperator(),0,true,true);        
  31565.         op[1] = new Option(getOROperator());
  31566.         op.length = 2;
  31567.     else
  31568.         if(op.length == 1) return;
  31569.         op[0] = new Option("
  31570. Translate
  31571. ",0,true,true);
  31572.         op[1] = null;
  31573.         op.length = 1;
  31574. function getKeyword(field)
  31575.     return eval("form."+field+".options[form."+field+".selectedIndex].text");
  31576. function getConditionString()
  31577.     var cond = form.Condition.selectedIndex;
  31578. cond == COND_IMPORTANCE || cond == COND_DELIVERY) return getKeyword("Importance");
  31579.     if(cond == COND_DOMAIN) return form.DomainList.value;
  31580.     return form.String.value;
  31581. function addConditionLine(field)
  31582.     var list = eval("form."+field);
  31583.     var toklist = eval("form.tok"+field);
  31584.     var condstr = 
  31585. list_replaceinvalidsep(getConditionString());
  31586.     var strcondition = (list.value.length ? getKeyword("Operator") + " " : "")
  31587.                 + getKeyword("Condition") + " "
  31588.                 + 
  31589. getKeyword("Logic") + " "
  31590. + condstr;
  31591.     var tokcondition =  Number(form.Operator.selectedIndex).toString() + ":"
  31592.                 + 
  31593. Number(form.Condition.selectedIndex).toString() + ":" 
  31594. Number(form.Logic.selectedIndex).toString() + ":" 
  31595. (form.Condition.selectedIndex == COND_IMPORTANCE || form.Condition.selectedIndex == COND_DELIVERY ? 
  31596.                     
  31597. Number(form.Importance.selectedIndex+1).toString() : condstr);
  31598.     list_append(
  31599. list,strcondition);
  31600.     list_append(
  31601. toklist,tokcondition);
  31602.     refreshDisplay(field);
  31603. function addAction()
  31604.     var list = form.ActionList;
  31605.     var toklist = form.tokActionList;
  31606.     if(toklist.value.indexOf("3:") != -1)
  31607.         alert("
  31608. Delete Document cannot be included in multiple actions.
  31609.         return;
  31610.     var straction = list.value.length ? 
  31611. getANDOperator() + " " : "";
  31612.     straction += getKeyword("Action");
  31613.     var tokaction = Number(form.Action.selectedIndex).toString() + ":";
  31614.     switch(form.Action.selectedIndex)
  31615.         case 0:
  31616.         case 1:
  31617.             var folder = list_replaceinvalidsep(form.Folder.value);
  31618.             straction += " " + folder;
  31619.             tokaction += folder;
  31620.             break;
  31621.         case 2:
  31622.             straction += " " + getKeyword("NewImportance");
  31623.             tokaction += Number(form.NewImportance.selectedIndex
  31624. +1).toString();
  31625.             break;
  31626.         case 3:
  31627.             break;
  31628.     list_append(list,straction);
  31629.     list_append(toklist
  31630. ,tokaction);
  31631.     refreshDisplay("ActionList");
  31632. function removeLine(field)
  31633.     var list = eval("form."+field);
  31634.     var toklist = eval("form.tok"+field);
  31635.     var display = eval("form."+field+"Display");
  31636.     list_removeelem(list,display.selectedIndex);
  31637.     list_removeelem(toklist,display.selectedIndex);
  31638.     if(!display.selectedIndex){ var v = list.value; list.value = v.substring(v.indexOf(" ")+1,v.length); }
  31639.     refreshDisplay(field);
  31640. function removeAllLines(field)
  31641.     var list = eval("form."+field);
  31642.     var toklist = eval("form.tok"+field);
  31643.     var display = eval("form."+field+"Display").options;
  31644.     list.value = "";
  31645.     toklist.value = "";
  31646.     for(i=0 ; i<display.length ; i++) display[i]=null;
  31647.     display.length = 0;
  31648. //--></SCRIPT>
  31649. This field is used for Ordering the Filter documents in the folder
  31650. &$@8U
  31651. OrderNum
  31652. OrderNum
  31653. Categori_zeK
  31654. _Edit Document
  31655. Send Docu_ment
  31656. _Forward
  31657. _Move To Folder...
  31658. _Remove From FolderK
  31659. Categori_zeK
  31660. _Edit Document
  31661. Send Docu_ment
  31662. _Forward
  31663. _Move To Folder...
  31664. _Remove From FolderK
  31665. O=Lotus Notes
  31666. O=Lotus Notes
  31667. PURSAFO
  31668. |.:#U
  31669. O=Lotus Notes
  31670. CN=Lotus Notes Template Development/O=Lotus Notes
  31671. PURSAFO
  31672. $HTMLCode
  31673. $Info
  31674. $WINDOWTITLE
  31675. $WEBQuerySave
  31676. $WebFlags
  31677. $$Script_O
  31678. $$ScriptName
  31679. $Body
  31680. $V5ACTIONS
  31681. $ACTIONS
  31682. DeliveredDate
  31683. PostedDate
  31684. PostedDateY
  31685. IsMailStationeryh
  31686. _ViewIcon
  31687. _ViewIcon
  31688. Importance
  31689. Importance
  31690. _ViewIcon
  31691. _ViewIcon
  31692. $TypeIcon
  31693.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  31694. SentBy
  31695. Principal
  31696. Principal
  31697.     1S2S5S6S8S10S
  31698. Attendees
  31699. RequiredAttendees
  31700. OptionalAttendees
  31701.     0R1S2S5S6S
  31702. DeliveredDate
  31703. SentBy
  31704. Attendees
  31705. Attendees
  31706. SendTo
  31707. SentBy
  31708. SendTo
  31709.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  31710.     0R1S2S8S
  31711.     0R1S2S15S16S
  31712.     0R1S2S5S6S8S14S18S
  31713.     0R1S2S5S6S8S14S18S
  31714. Person
  31715. X400FreeForm^
  31716.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  31717. Person2
  31718. Person
  31719. Person
  31720. Person
  31721. Person
  31722.     0R1S2S12S13S22S34S
  31723. Delivery Report
  31724. NonDelivery Report
  31725. Trace Report
  31726. Mail Router
  31727. Person2
  31728.     0R3S4S5S6S7S8S10S12S
  31729. DeliveredDate
  31730. DeliveredDate
  31731. PostedDate
  31732. PostedDate
  31733.     3S4S6S8S9S10S12S14S
  31734. _ViewIcon2h
  31735. _ViewIcon2
  31736. $ContentIconh
  31737. $ContentIcon
  31738. Froma
  31739.  pager 
  31740. SendToa
  31741.  pager 
  31742. message.wav
  31743. vmsg_hdr.wav
  31744. .wavG
  31745. .tifG
  31746. $ContentIconh
  31747. $ContentIcon
  31748.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  31749. NonDelivery Report
  31750. DELIVERY FAILURE: 
  31751. FailureReason
  31752. Delivery Report
  31753. DELIVERED: 
  31754. Subject
  31755. Return Receipt
  31756. RECEIVED: 
  31757. Subject
  31758. ReturnNonReceipt
  31759. NOT RECEIVED: 
  31760. Subject
  31761. Subject
  31762.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  31763. $93$102$68$106$105$74$Conflict
  31764. ExcludeFromView
  31765.     L1S2E
  31766. DeliveredDate
  31767. PostedDate
  31768. PostedDateY
  31769. IsMailStationeryh
  31770. _ViewIcon
  31771. _ViewIcon
  31772. Importance
  31773. Importance
  31774. _ViewIcon
  31775. _ViewIcon
  31776. $TypeIcon
  31777.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  31778. $102Who
  31779. SentBy
  31780. Principal
  31781. Principal
  31782.     1S2S5S6S8S10S
  31783. Attendees
  31784. RequiredAttendees
  31785. OptionalAttendees
  31786.     0R1S2S5S6S
  31787. DeliveredDate
  31788. SentBy
  31789. Attendees
  31790. Attendees
  31791. SendTo
  31792. SentBy
  31793. SendTo
  31794.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  31795.     0R1S2S8S
  31796.     0R1S2S15S16S
  31797.     0R1S2S5S6S8S14S18S
  31798.     0R1S2S5S6S8S14S18S
  31799. Person
  31800. X400FreeForm^
  31801.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  31802. Person2
  31803. Person
  31804. Person
  31805. Person
  31806. Person
  31807.     0R1S2S12S13S22S34S
  31808. Delivery Report
  31809. NonDelivery Report
  31810. Trace Report
  31811. Mail Router
  31812. Person2
  31813.     0R3S4S5S6S7S8S10S12S
  31814. $68Date
  31815. DeliveredDate
  31816. DeliveredDate
  31817. PostedDate
  31818. PostedDate
  31819.     3S4S6S8S9S10S12S14S$106Size
  31820. $105z
  31821. _ViewIcon2h
  31822. _ViewIcon2
  31823. $ContentIconh
  31824. $ContentIcon
  31825. Froma
  31826.  pager 
  31827. SendToa
  31828.  pager 
  31829. message.wav
  31830. vmsg_hdr.wav
  31831. .wavG
  31832. .tifG
  31833. $ContentIconh
  31834. $ContentIcon
  31835.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Subject
  31836. NonDelivery Report
  31837. DELIVERY FAILURE: 
  31838. FailureReason
  31839. Delivery Report
  31840. DELIVERED: 
  31841. Subject
  31842. Return Receipt
  31843. RECEIVED: 
  31844. Subject
  31845. ReturnNonReceipt
  31846. NOT RECEIVED: 
  31847. Subject
  31848. Subject
  31849.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  31850. Categori_zeS
  31851. _Move To Folder...
  31852. _Remove From Folder...
  31853. New Memo(
  31854.     0S0E
  31855. act_NEWMEMO.GIF|act_NEWMEMO?
  31856. Reply...\Reply0
  31857. Reply
  31858.     0S0E
  31859. act_REPLY.GIF|act_REPLY?
  31860. Reply...\Reply with Historyr
  31861. Reply with History
  31862. This document is truncated.
  31863.     4S8S10S13S
  31864. Reply with history
  31865. act_REPLY.GIF|act_REPLY?
  31866. Reply...\Reply to All
  31867. MailStEd
  31868.     0S0E
  31869. Reply
  31870. act_REPLY.GIF|act_REPLY?
  31871. Reply...\Reply to All with History
  31872. MailStEd
  31873.     0S0E
  31874. Reply with History
  31875. This document is truncated.
  31876.     0R4S8S10S13S
  31877. Reply with history
  31878. act_REPLY.GIF|act_REPLY?
  31879. Forwardv 
  31880.     0S0E
  31881. ISMAILSTATIONERYh
  31882.     0S0E
  31883. act_FORWARD.GIF|act_FORWARD?
  31884. _Forward
  31885. _Edit Document
  31886. Delete 
  31887.     0S0E
  31888. act_DELETE.GIF|act_DELETE?
  31889. Folder...\Move To Folder...c 
  31890.     0S0E
  31891. act_FOLDER.GIF|act_FOLDER?
  31892. Folder...\Remove From Folder 
  31893.     0S0E
  31894. act_FOLDER.GIF|act_FOLDER?
  31895. Copy into...\New MemoU'++LotusScript Development Environment:2:5:(Options):0:74
  31896. Use "CommonUI"
  31897. '++LotusScript Development Environment:2:5:(Forward):0:1
  31898. Declare Sub Click(Source As Button)
  31899. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31900. '++LotusScript Development Environment:2:2:BindEvents:1:129
  31901. Private Sub BindEvents(Byval Objectname_ As String)
  31902. Static Source As BUTTON
  31903. Set Source = Bind(Objectname_)
  31904. On Event Click From Source Call Click
  31905. End Sub
  31906. '++LotusScript Development Environment:2:2:Click:1:12
  31907. Sub Click(Source As Button)
  31908.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  31909. End Sub
  31910. act_COPYINTO.GIF|act_COPYINTO?
  31911. Copy into...\New Calendar Entrya'++LotusScript Development Environment:2:5:(Options):0:74
  31912. Use "CommonUI"
  31913. '++LotusScript Development Environment:2:5:(Forward):0:1
  31914. Declare Sub Click(Source As Button)
  31915. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31916. '++LotusScript Development Environment:2:2:BindEvents:1:129
  31917. Private Sub BindEvents(Byval Objectname_ As String)
  31918. Static Source As BUTTON
  31919. Set Source = Bind(Objectname_)
  31920. On Event Click From Source Call Click
  31921. End Sub
  31922. '++LotusScript Development Environment:2:2:Click:1:12
  31923. Sub Click(Source As Button)
  31924.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  31925. End Sub
  31926. act_COPYINTO.GIF|act_COPYINTO?
  31927. Copy into...\New Todo1'++LotusScript Development Environment:2:5:(Options):0:74
  31928. Use "CommonUI"
  31929. '++LotusScript Development Environment:2:5:(Forward):0:1
  31930. Declare Sub Click(Source As Button)
  31931. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31932. '++LotusScript Development Environment:2:2:BindEvents:1:129
  31933. Private Sub BindEvents(Byval Objectname_ As String)
  31934.     Static Source As BUTTON
  31935.     Set Source = Bind(Objectname_)
  31936.     On Event Click From Source Call Click
  31937. End Sub
  31938. '++LotusScript Development Environment:2:2:Click:1:12
  31939. Sub Click(Source As Button)
  31940.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  31941. End Sub
  31942. act_COPYINTO.GIF|act_COPYINTO?
  31943. Tools...\Preferences...u2
  31944. (Preferences)
  31945.     0S0E
  31946. act_TOOLS.GIF|act_TOOLS?
  31947. Tools...\Out of Office...
  31948. (EditOfficeProfile)
  31949.     0S0E
  31950. act_TOOLS.GIF|act_TOOLS?
  31951. Tools...\Add Sender to Address Book
  31952. (AddSenderToAddressBook)
  31953.     0S0E
  31954. act_TOOLS.GIF|act_TOOLS?
  31955. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  31956. '++LotusScript Development Environment:2:5:(Forward):0:1
  31957. Declare Sub Click(Source As Button)
  31958. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31959. '++LotusScript Development Environment:2:2:BindEvents:1:129
  31960. Private Sub BindEvents(Byval Objectname_ As String)
  31961.     Static Source As BUTTON
  31962.     Set Source = Bind(Objectname_)
  31963.     On Event Click From Source Call Click
  31964. End Sub
  31965. '++LotusScript Development Environment:2:2:Click:1:12
  31966. Sub Click(Source As Button)
  31967.     Dim session As New notessession
  31968.     Dim uiws As New notesuiworkspace
  31969.     Dim collection As notesdocumentcollection
  31970.     Dim noteUIEditDocument As notesuidocument
  31971.     Dim database As NotesDatabase
  31972.     Set noteCursorDoc = session.currentdatabase.createdocument
  31973.     Set database = session.currentdatabase
  31974.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  31975.     Set noteCursorDoc = collection.getfirstdocument
  31976.     If Not noteCursorDoc Is Nothing Then
  31977.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  31978.     End If
  31979. End Sub
  31980. act_TOOLS.GIF|act_TOOLS?
  31981. New Memo(
  31982.     0S0E
  31983. act_NEW.GIF|act_NEW?
  31984. Folder...\Create FolderO
  31985. act_FOLDER.GIF|act_FOLDER?
  31986. alert('Feature in Progress')
  31987. Folder...\Move to Folder...u&
  31988.     0S0E
  31989. act_FOLDER.GIF|act_FOLDER?
  31990. Delete...\Delete 
  31991.     0S0E
  31992. act_DELETE.GIF|act_DELETE?
  31993. Delete...\Empty Trash
  31994.     0S0E
  31995. act_DELETE.GIF|act_DELETE?
  31996. Tools...\Preferences4
  31997. CalendarProfile
  31998.     0S0E
  31999. act_TOOLS.GIF|act_TOOLS?
  32000. Tools...\Archiving
  32001. act_TOOLS.GIF|act_TOOLS?
  32002. var pathname = window.location.pathname
  32003. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  32004. //Generate a random number based on the current time  hr:min:sec
  32005. //we do this in case the user doesn't refresh the cache every time they load a page on their browser.
  32006. //If they don't refresh the cache, the Archive Profile keeps the original settings only, for each browser session.
  32007. now = new Date();
  32008. mins = now.getMinutes().toString()
  32009. secs = now.getSeconds().toString()
  32010. hrs = now.getHours().toString()
  32011. random = mins + secs + hrs
  32012. window.open(filename + 'WebArchProfile?openForm&' + random,'secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=465,width=600')
  32013. Tools...\Out of Office
  32014. act_TOOLS.GIF|act_TOOLS?
  32015. alert('Feature in Progress')
  32016. Categori_ze
  32017. _Move To Folder...
  32018. _Remove From Folder...
  32019. New Memo(
  32020.     0S0E
  32021. Reply...\Reply0
  32022. Reply
  32023.     0S0E
  32024. Reply...\Reply with History
  32025. Reply with History
  32026. This document is truncated.
  32027.     4S8S10S13S
  32028. Reply with history
  32029. Reply...\Reply to AlltX
  32030. MailStEd
  32031.     0S0E
  32032. Reply
  32033. Reply...\Reply to All with History
  32034. MailStEd
  32035.     0S0E
  32036. Reply with History
  32037. This document is truncated.
  32038.     0R4S8S10S13S
  32039. Reply with history
  32040. Forward
  32041.     0S0E
  32042. ISMAILSTATIONERYh
  32043.     0S0E
  32044. _Forward
  32045. _Edit Document
  32046. Delete 
  32047.     0S0E
  32048. Folder...\Move To Folder...
  32049.     0S0E
  32050. Folder...\Remove From Folder 
  32051.     0S0E
  32052. Copy into...\New Memo
  32053. '++LotusScript Development Environment:2:5:(Options):0:74
  32054. Use "CommonUI"
  32055. '++LotusScript Development Environment:2:5:(Forward):0:1
  32056. Declare Sub Click(Source As Button)
  32057. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32058. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32059. Private Sub BindEvents(Byval Objectname_ As String)
  32060. Static Source As BUTTON
  32061. Set Source = Bind(Objectname_)
  32062. On Event Click From Source Call Click
  32063. End Sub
  32064. '++LotusScript Development Environment:2:2:Click:1:12
  32065. Sub Click(Source As Button)
  32066.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  32067. End Sub
  32068. Copy into...\New Calendar Entry '++LotusScript Development Environment:2:5:(Options):0:74
  32069. Use "CommonUI"
  32070. '++LotusScript Development Environment:2:5:(Forward):0:1
  32071. Declare Sub Click(Source As Button)
  32072. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32073. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32074. Private Sub BindEvents(Byval Objectname_ As String)
  32075. Static Source As BUTTON
  32076. Set Source = Bind(Objectname_)
  32077. On Event Click From Source Call Click
  32078. End Sub
  32079. '++LotusScript Development Environment:2:2:Click:1:12
  32080. Sub Click(Source As Button)
  32081.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  32082. End Sub
  32083. Copy into...\New TodoO'++LotusScript Development Environment:2:5:(Options):0:74
  32084. Use "CommonUI"
  32085. '++LotusScript Development Environment:2:5:(Forward):0:1
  32086. Declare Sub Click(Source As Button)
  32087. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32088. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32089. Private Sub BindEvents(Byval Objectname_ As String)
  32090.     Static Source As BUTTON
  32091.     Set Source = Bind(Objectname_)
  32092.     On Event Click From Source Call Click
  32093. End Sub
  32094. '++LotusScript Development Environment:2:2:Click:1:12
  32095. Sub Click(Source As Button)
  32096.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  32097. End Sub
  32098. Tools...\Preferences...F2
  32099. (Preferences)
  32100.     0S0E
  32101. Tools...\Out of Office...?8
  32102. (EditOfficeProfile)
  32103.     0S0E
  32104. Tools...\Add Sender to Address BookU<
  32105. (AddSenderToAddressBook)
  32106.     0S0E
  32107. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  32108. '++LotusScript Development Environment:2:5:(Forward):0:1
  32109. Declare Sub Click(Source As Button)
  32110. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32111. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32112. Private Sub BindEvents(Byval Objectname_ As String)
  32113.     Static Source As BUTTON
  32114.     Set Source = Bind(Objectname_)
  32115.     On Event Click From Source Call Click
  32116. End Sub
  32117. '++LotusScript Development Environment:2:2:Click:1:12
  32118. Sub Click(Source As Button)
  32119.     Dim session As New notessession
  32120.     Dim uiws As New notesuiworkspace
  32121.     Dim collection As notesdocumentcollection
  32122.     Dim noteUIEditDocument As notesuidocument
  32123.     Dim database As NotesDatabase
  32124.     Set noteCursorDoc = session.currentdatabase.createdocument
  32125.     Set database = session.currentdatabase
  32126.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  32127.     Set noteCursorDoc = collection.getfirstdocument
  32128.     If Not noteCursorDoc Is Nothing Then
  32129.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  32130.     End If
  32131. End Sub
  32132. New Memo(
  32133.     0S0E
  32134. Folder...\Move to Folder...E&
  32135.     0S0E
  32136. Delete...\Delete 
  32137.     0S0E
  32138. Delete...\Empty TrashN 
  32139.     0S0E
  32140. Tools...\Preferences4
  32141. CalendarProfile
  32142.     0S0E
  32143. Lotus Product
  32144. OBJECT
  32145. Lotus Product
  32146. OBJECT
  32147. Lotus Product
  32148. OBJECT
  32149. Lotus Product
  32150. OBJECT
  32151. '++LotusScript Development Environment:2:5:(Options):0:74
  32152. Option Public
  32153. Option Explicit
  32154. '++LotusScript Development Environment:2:5:(Forward):0:1
  32155. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32156. Lotus Product
  32157. OBJECT
  32158. O=Lotus Notes
  32159. O=Lotus Notes
  32160. PURSAFO
  32161. |.:#U
  32162. O=Lotus Notes
  32163. CN=Lotus Notes Template Development/O=Lotus Notes
  32164. PURSAFO
  32165. Pkn*2<5
  32166. $TABLEFORMAT
  32167. $TITLE
  32168. $Index
  32169. $Formula
  32170. $FormulaClass
  32171. $VIEWFORMAT
  32172. $Comment
  32173. $WebFlags
  32174. $V5ACTIONS
  32175. $ACTIONS
  32176. $SCRIPTOBJ_15
  32177. $SCRIPTOBJ_16
  32178. $SCRIPTOBJ_17
  32179. $SCRIPTOBJ_21
  32180. $ViewGlobalScript
  32181. $ViewGlobalScript_O
  32182. StartTime
  32183. CalendarDateTimeL
  32184.     1S2S
  32185. DateList
  32186. CalendarDateTimeV
  32187. EndDateTime
  32188.     0R1S2S10S11S12S13S
  32189. $CSVersionh
  32190. AppointmentType
  32191. CalendarDateTime
  32192. DateList
  32193. StartTime
  32194.     0R6S7S8S9S10S11S12S13S14S15S17S19S25S26S27S28S
  32195. AppointmentType
  32196. EndDateTime
  32197. StartDateTime
  32198.     3S4S6S8S10S11S13S14S16S
  32199. section
  32200. OrgTable
  32201.     1S2S6S
  32202. section
  32203. section
  32204. section
  32205.     0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
  32206. _ViewIcon
  32207. _ViewIcon
  32208. AppointmentType
  32209. StartTime
  32210. StartTime
  32211. StartDateTime
  32212. StartDateTime
  32213.     3S4S5S6S7S8S10S17S19S24S
  32214. AppointmentType
  32215.     3S4S8S
  32216. AppointmentType
  32217. EndTime
  32218. EndTime
  32219. EndDateTime
  32220. EndDateTime
  32221.     3S4S5S6S8S15S17S22S
  32222. xxLocation
  32223. Location: 
  32224. Location
  32225. Location: 
  32226. Location"
  32227.     1S2S9S10S11S18S24S25S27S
  32228. xxChair
  32229. AppointmentType
  32230. Chair: 
  32231. Chair
  32232.     0R1S2S5S6S8S9S10S17S
  32233. Subject
  32234. xxLocation
  32235. xxChair
  32236.     0RR3S4S5S6S
  32237. $134$135$126_ViewIcon$144$145$146$147$Conflict
  32238. CalendarDateTimeh
  32239. @$134
  32240. StartTime
  32241. CalendarDateTimeL
  32242.     1S2S
  32243. DateList
  32244. CalendarDateTimeV
  32245. EndDateTime
  32246.     0R1S2S10S11S12S13S
  32247. $CSVersionh
  32248. AppointmentType
  32249. CalendarDateTime
  32250. DateList
  32251. StartTime
  32252.     0R6S7S8S9S10S11S12S13S14S15S17S19S25S26S27S28S
  32253. AppointmentType
  32254. EndDateTime
  32255. StartDateTime
  32256.     3S4S6S8S10S11S13S14S16S$126
  32257. section
  32258. OrgTable
  32259.     1S2S6S
  32260. section
  32261. section
  32262. section
  32263.     0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
  32264. _ViewIcon"
  32265. _ViewIcon
  32266. _ViewIcon
  32267. $144Start
  32268. AppointmentType
  32269. StartTime
  32270. StartTime
  32271. StartDateTime
  32272. StartDateTime
  32273.     3S4S5S6S7S8S10S17S19S24S
  32274. $145Z
  32275. AppointmentType
  32276.     3S4S8S
  32277. $146End
  32278. AppointmentType
  32279. EndTime
  32280. EndTime
  32281. EndDateTime
  32282. EndDateTime
  32283.     3S4S5S6S8S15S17S22S$147Description
  32284. xxLocation
  32285. Location: 
  32286. Location
  32287. Location: 
  32288. Location"
  32289.     1S2S9S10S11S18S24S25S27S
  32290. xxChair
  32291. AppointmentType
  32292. Chair: 
  32293. Chair
  32294.     0R1S2S5S6S8S9S10S17S
  32295. Subject
  32296. xxLocation
  32297. xxChair
  32298.     0RR3S4S5S6S&
  32299. _Forward
  32300. _Edit Document
  32301. _Move to Folder...
  32302. _Remove from Folder...
  32303. Categori_zeK
  32304. Send Docu_ment
  32305. New\AppointmentK'++LotusScript Development Environment:2:5:(Options):0:74
  32306. Use "CSUIViewClass"
  32307. '++LotusScript Development Environment:2:5:(Forward):0:1
  32308. Declare Sub Click(Source As Button)
  32309. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32310. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32311. Private Sub BindEvents(Byval Objectname_ As String)
  32312. Static Source As BUTTON
  32313. Set Source = Bind(Objectname_)
  32314. On Event Click From Source Call Click
  32315. End Sub
  32316. '++LotusScript Development Environment:2:2:Click:1:12
  32317. Sub Click(Source As Button)
  32318.     Call ViewNewCalendarEntry("0")
  32319. End Sub
  32320. act_csnew.GIF|act_CSNEWDOC
  32321. New\Meeting Invitation'++LotusScript Development Environment:2:5:(Options):0:74
  32322. Use "CSUIViewClass"
  32323. '++LotusScript Development Environment:2:5:(Forward):0:1
  32324. Declare Sub Click(Source As Button)
  32325. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32326. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32327. Private Sub BindEvents(Byval Objectname_ As String)
  32328. Static Source As BUTTON
  32329. Set Source = Bind(Objectname_)
  32330. On Event Click From Source Call Click
  32331. End Sub
  32332. '++LotusScript Development Environment:2:2:Click:1:12
  32333. Sub Click(Source As Button)
  32334.     Call ViewNewCalendarEntry("3")
  32335. End Sub
  32336. act_csnew.GIF|act_CSNEWDOC
  32337. New\AnniversaryK'++LotusScript Development Environment:2:5:(Options):0:74
  32338. Use "CSUIViewClass"
  32339. '++LotusScript Development Environment:2:5:(Forward):0:1
  32340. Declare Sub Click(Source As Button)
  32341. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32342. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32343. Private Sub BindEvents(Byval Objectname_ As String)
  32344. Static Source As BUTTON
  32345. Set Source = Bind(Objectname_)
  32346. On Event Click From Source Call Click
  32347. End Sub
  32348. '++LotusScript Development Environment:2:2:Click:1:12
  32349. Sub Click(Source As Button)
  32350.     Call ViewNewCalendarEntry("1")
  32351. End Sub
  32352. act_csnew.GIF|act_CSNEWDOC
  32353. New\Reminder'++LotusScript Development Environment:2:5:(Options):0:74
  32354. Use "CSUIViewClass"
  32355. '++LotusScript Development Environment:2:5:(Forward):0:1
  32356. Declare Sub Click(Source As Button)
  32357. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32358. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32359. Private Sub BindEvents(Byval Objectname_ As String)
  32360. Static Source As BUTTON
  32361. Set Source = Bind(Objectname_)
  32362. On Event Click From Source Call Click
  32363. End Sub
  32364. '++LotusScript Development Environment:2:2:Click:1:12
  32365. Sub Click(Source As Button)
  32366.     Call ViewNewCalendarEntry("4")
  32367. End Sub
  32368. act_csnew.GIF|act_CSNEWDOC
  32369. New\Event
  32370. '++LotusScript Development Environment:2:5:(Options):0:74
  32371. Use "CSUIViewClass"
  32372. '++LotusScript Development Environment:2:5:(Forward):0:1
  32373. Declare Sub Click(Source As Button)
  32374. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32375. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32376. Private Sub BindEvents(Byval Objectname_ As String)
  32377. Static Source As BUTTON
  32378. Set Source = Bind(Objectname_)
  32379. On Event Click From Source Call Click
  32380. End Sub
  32381. '++LotusScript Development Environment:2:2:Click:1:12
  32382. Sub Click(Source As Button)
  32383.     Call ViewNewCalendarEntry("2")
  32384. End Sub
  32385. act_csnew.GIF|act_CSNEWDOC
  32386. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  32387. Use "CSUIViewClass"
  32388. '++LotusScript Development Environment:2:5:(Forward):0:1
  32389. Declare Sub Click(Source As Button)
  32390. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32391. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32392. Private Sub BindEvents(Byval Objectname_ As String)
  32393. Static Source As BUTTON
  32394. Set Source = Bind(Objectname_)
  32395. On Event Click From Source Call Click
  32396. End Sub
  32397. '++LotusScript Development Environment:2:2:Click:1:12
  32398. Sub Click(Source As Button)
  32399.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  32400. End Sub
  32401. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32402. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  32403. Use "CSUIViewClass"
  32404. '++LotusScript Development Environment:2:5:(Forward):0:1
  32405. Declare Sub Click(Source As Button)
  32406. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32407. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32408. Private Sub BindEvents(Byval Objectname_ As String)
  32409. Static Source As BUTTON
  32410. Set Source = Bind(Objectname_)
  32411. On Event Click From Source Call Click
  32412. End Sub
  32413. '++LotusScript Development Environment:2:2:Click:1:12
  32414. Sub Click(Source As Button)
  32415.     Call ProcessViewCommand(ACTION_CANCEL)
  32416. End Sub
  32417. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32418. Owner Actions\Confirm
  32419. '++LotusScript Development Environment:2:5:(Options):0:74
  32420. Use "CSUIViewClass"
  32421. '++LotusScript Development Environment:2:5:(Forward):0:1
  32422. Declare Sub Click(Source As Button)
  32423. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32424. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32425. Private Sub BindEvents(Byval Objectname_ As String)
  32426. Static Source As BUTTON
  32427. Set Source = Bind(Objectname_)
  32428. On Event Click From Source Call Click
  32429. End Sub
  32430. '++LotusScript Development Environment:2:2:Click:1:12
  32431. Sub Click(Source As Button)
  32432.     Call ProcessViewCommand(ACTION_CONFIRM)
  32433. End Sub
  32434. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32435. Owner Actions\View Participant Status
  32436. '++LotusScript Development Environment:2:5:(Options):0:74
  32437. Use "CSUIViewClass"
  32438. '++LotusScript Development Environment:2:5:(Forward):0:1
  32439. Declare Sub Click(Source As Button)
  32440. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32441. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32442. Private Sub BindEvents(Byval Objectname_ As String)
  32443. Static Source As BUTTON
  32444. Set Source = Bind(Objectname_)
  32445. On Event Click From Source Call Click
  32446. End Sub
  32447. '++LotusScript Development Environment:2:2:Click:1:12
  32448. Sub Click(Source As Button)
  32449.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  32450. End Sub
  32451. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32452. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  32453. Use "CSUIViewClass"
  32454. '++LotusScript Development Environment:2:5:(Forward):0:1
  32455. Declare Sub Click(Source As Button)
  32456. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32457. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32458. Private Sub BindEvents(Byval Objectname_ As String)
  32459. Static Source As BUTTON
  32460. Set Source = Bind(Objectname_)
  32461. On Event Click From Source Call Click
  32462. End Sub
  32463. '++LotusScript Development Environment:2:2:Click:1:12
  32464. Sub Click(Source As Button)
  32465.     Call ProcessViewCommand(ACTION_SENDMEMO)
  32466. End Sub
  32467. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32468. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  32469. Use "CSUIViewClass"
  32470. '++LotusScript Development Environment:2:5:(Forward):0:1
  32471. Declare Sub Click(Source As Button)
  32472. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32473. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32474. Private Sub BindEvents(Byval Objectname_ As String)
  32475. Static Source As BUTTON
  32476. Set Source = Bind(Objectname_)
  32477. On Event Click From Source Call Click
  32478. End Sub
  32479. '++LotusScript Development Environment:2:2:Click:1:12
  32480. Sub Click(Source As Button)
  32481.     Call ProcessViewCommand(ACTION_DECLINE)
  32482. End Sub
  32483. act_participantactions.GIF|act_CSPARTACTIONS
  32484. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  32485. Use "CSUIViewClass"
  32486. '++LotusScript Development Environment:2:5:(Forward):0:1
  32487. Declare Sub Click(Source As Button)
  32488. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32489. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32490. Private Sub BindEvents(Byval Objectname_ As String)
  32491. Static Source As BUTTON
  32492. Set Source = Bind(Objectname_)
  32493. On Event Click From Source Call Click
  32494. End Sub
  32495. '++LotusScript Development Environment:2:2:Click:1:12
  32496. Sub Click(Source As Button)
  32497.     Call ProcessViewCommand(ACTION_DELEGATE)
  32498. End Sub
  32499. act_participantactions.GIF|act_CSPARTACTIONS
  32500. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  32501. Use "CSUIViewClass"
  32502. '++LotusScript Development Environment:2:5:(Forward):0:1
  32503. Declare Sub Click(Source As Button)
  32504. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32505. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32506. Private Sub BindEvents(Byval Objectname_ As String)
  32507. Static Source As BUTTON
  32508. Set Source = Bind(Objectname_)
  32509. On Event Click From Source Call Click
  32510. End Sub
  32511. '++LotusScript Development Environment:2:2:Click:1:12
  32512. Sub Click(Source As Button)
  32513.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  32514. End Sub
  32515. act_participantactions.GIF|act_CSPARTACTIONS
  32516. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  32517. Use "CommonUI"
  32518. '++LotusScript Development Environment:2:5:(Forward):0:1
  32519. Declare Sub Click(Source As Button)
  32520. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32521. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32522. Private Sub BindEvents(Byval Objectname_ As String)
  32523. Static Source As BUTTON
  32524. Set Source = Bind(Objectname_)
  32525. On Event Click From Source Call Click
  32526. End Sub
  32527. '++LotusScript Development Environment:2:2:Click:1:12
  32528. Sub Click(Source As Button)
  32529.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  32530. End Sub
  32531. act_COPYINTO.GIF|act_COPYINTO?
  32532. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  32533. Use "CommonUI"
  32534. '++LotusScript Development Environment:2:5:(Forward):0:1
  32535. Declare Sub Click(Source As Button)
  32536. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32537. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32538. Private Sub BindEvents(Byval Objectname_ As String)
  32539. Static Source As BUTTON
  32540. Set Source = Bind(Objectname_)
  32541. On Event Click From Source Call Click
  32542. End Sub
  32543. '++LotusScript Development Environment:2:2:Click:1:12
  32544. Sub Click(Source As Button)
  32545.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  32546. End Sub
  32547. act_COPYINTO.GIF|act_COPYINTO?
  32548. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  32549. Use "CommonUI"
  32550. '++LotusScript Development Environment:2:5:(Forward):0:1
  32551. Declare Sub Click(Source As Button)
  32552. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32553. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32554. Private Sub BindEvents(Byval Objectname_ As String)
  32555.     Static Source As BUTTON
  32556.     Set Source = Bind(Objectname_)
  32557.     On Event Click From Source Call Click
  32558. End Sub
  32559. '++LotusScript Development Environment:2:2:Click:1:12
  32560. Sub Click(Source As Button)
  32561.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  32562. End Sub
  32563. act_COPYINTO.GIF|act_COPYINTO?
  32564. Tools\Preferences...2
  32565. (Preferences)
  32566.     0S0E
  32567. act_TOOLS.GIF|act_TOOLS?
  32568. _Forward
  32569. _Edit Document
  32570. _Move to Folder...
  32571. _Remove from Folder...
  32572. Categori_zeK
  32573. Send Docu_ment
  32574. New\AppointmentK'++LotusScript Development Environment:2:5:(Options):0:74
  32575. Use "CSUIViewClass"
  32576. '++LotusScript Development Environment:2:5:(Forward):0:1
  32577. Declare Sub Click(Source As Button)
  32578. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32579. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32580. Private Sub BindEvents(Byval Objectname_ As String)
  32581. Static Source As BUTTON
  32582. Set Source = Bind(Objectname_)
  32583. On Event Click From Source Call Click
  32584. End Sub
  32585. '++LotusScript Development Environment:2:2:Click:1:12
  32586. Sub Click(Source As Button)
  32587.     Call ViewNewCalendarEntry("0")
  32588. End Sub
  32589. New\Meeting Invitation'++LotusScript Development Environment:2:5:(Options):0:74
  32590. Use "CSUIViewClass"
  32591. '++LotusScript Development Environment:2:5:(Forward):0:1
  32592. Declare Sub Click(Source As Button)
  32593. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32594. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32595. Private Sub BindEvents(Byval Objectname_ As String)
  32596. Static Source As BUTTON
  32597. Set Source = Bind(Objectname_)
  32598. On Event Click From Source Call Click
  32599. End Sub
  32600. '++LotusScript Development Environment:2:2:Click:1:12
  32601. Sub Click(Source As Button)
  32602.     Call ViewNewCalendarEntry("3")
  32603. End Sub
  32604. New\AnniversaryK'++LotusScript Development Environment:2:5:(Options):0:74
  32605. Use "CSUIViewClass"
  32606. '++LotusScript Development Environment:2:5:(Forward):0:1
  32607. Declare Sub Click(Source As Button)
  32608. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32609. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32610. Private Sub BindEvents(Byval Objectname_ As String)
  32611. Static Source As BUTTON
  32612. Set Source = Bind(Objectname_)
  32613. On Event Click From Source Call Click
  32614. End Sub
  32615. '++LotusScript Development Environment:2:2:Click:1:12
  32616. Sub Click(Source As Button)
  32617.     Call ViewNewCalendarEntry("1")
  32618. End Sub
  32619. New\Reminder'++LotusScript Development Environment:2:5:(Options):0:74
  32620. Use "CSUIViewClass"
  32621. '++LotusScript Development Environment:2:5:(Forward):0:1
  32622. Declare Sub Click(Source As Button)
  32623. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32624. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32625. Private Sub BindEvents(Byval Objectname_ As String)
  32626. Static Source As BUTTON
  32627. Set Source = Bind(Objectname_)
  32628. On Event Click From Source Call Click
  32629. End Sub
  32630. '++LotusScript Development Environment:2:2:Click:1:12
  32631. Sub Click(Source As Button)
  32632.     Call ViewNewCalendarEntry("4")
  32633. End Sub
  32634. New\Event
  32635. '++LotusScript Development Environment:2:5:(Options):0:74
  32636. Use "CSUIViewClass"
  32637. '++LotusScript Development Environment:2:5:(Forward):0:1
  32638. Declare Sub Click(Source As Button)
  32639. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32640. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32641. Private Sub BindEvents(Byval Objectname_ As String)
  32642. Static Source As BUTTON
  32643. Set Source = Bind(Objectname_)
  32644. On Event Click From Source Call Click
  32645. End Sub
  32646. '++LotusScript Development Environment:2:2:Click:1:12
  32647. Sub Click(Source As Button)
  32648.     Call ViewNewCalendarEntry("2")
  32649. End Sub
  32650. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  32651. Use "CSUIViewClass"
  32652. '++LotusScript Development Environment:2:5:(Forward):0:1
  32653. Declare Sub Click(Source As Button)
  32654. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32655. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32656. Private Sub BindEvents(Byval Objectname_ As String)
  32657. Static Source As BUTTON
  32658. Set Source = Bind(Objectname_)
  32659. On Event Click From Source Call Click
  32660. End Sub
  32661. '++LotusScript Development Environment:2:2:Click:1:12
  32662. Sub Click(Source As Button)
  32663.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  32664. End Sub
  32665. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  32666. Use "CSUIViewClass"
  32667. '++LotusScript Development Environment:2:5:(Forward):0:1
  32668. Declare Sub Click(Source As Button)
  32669. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32670. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32671. Private Sub BindEvents(Byval Objectname_ As String)
  32672. Static Source As BUTTON
  32673. Set Source = Bind(Objectname_)
  32674. On Event Click From Source Call Click
  32675. End Sub
  32676. '++LotusScript Development Environment:2:2:Click:1:12
  32677. Sub Click(Source As Button)
  32678.     Call ProcessViewCommand(ACTION_CANCEL)
  32679. End Sub
  32680. Owner Actions\Confirm
  32681. '++LotusScript Development Environment:2:5:(Options):0:74
  32682. Use "CSUIViewClass"
  32683. '++LotusScript Development Environment:2:5:(Forward):0:1
  32684. Declare Sub Click(Source As Button)
  32685. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32686. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32687. Private Sub BindEvents(Byval Objectname_ As String)
  32688. Static Source As BUTTON
  32689. Set Source = Bind(Objectname_)
  32690. On Event Click From Source Call Click
  32691. End Sub
  32692. '++LotusScript Development Environment:2:2:Click:1:12
  32693. Sub Click(Source As Button)
  32694.     Call ProcessViewCommand(ACTION_CONFIRM)
  32695. End Sub
  32696. Owner Actions\View Participant Status
  32697. '++LotusScript Development Environment:2:5:(Options):0:74
  32698. Use "CSUIViewClass"
  32699. '++LotusScript Development Environment:2:5:(Forward):0:1
  32700. Declare Sub Click(Source As Button)
  32701. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32702. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32703. Private Sub BindEvents(Byval Objectname_ As String)
  32704. Static Source As BUTTON
  32705. Set Source = Bind(Objectname_)
  32706. On Event Click From Source Call Click
  32707. End Sub
  32708. '++LotusScript Development Environment:2:2:Click:1:12
  32709. Sub Click(Source As Button)
  32710.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  32711. End Sub
  32712. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  32713. Use "CSUIViewClass"
  32714. '++LotusScript Development Environment:2:5:(Forward):0:1
  32715. Declare Sub Click(Source As Button)
  32716. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32717. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32718. Private Sub BindEvents(Byval Objectname_ As String)
  32719. Static Source As BUTTON
  32720. Set Source = Bind(Objectname_)
  32721. On Event Click From Source Call Click
  32722. End Sub
  32723. '++LotusScript Development Environment:2:2:Click:1:12
  32724. Sub Click(Source As Button)
  32725.     Call ProcessViewCommand(ACTION_SENDMEMO)
  32726. End Sub
  32727. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  32728. Use "CSUIViewClass"
  32729. '++LotusScript Development Environment:2:5:(Forward):0:1
  32730. Declare Sub Click(Source As Button)
  32731. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32732. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32733. Private Sub BindEvents(Byval Objectname_ As String)
  32734. Static Source As BUTTON
  32735. Set Source = Bind(Objectname_)
  32736. On Event Click From Source Call Click
  32737. End Sub
  32738. '++LotusScript Development Environment:2:2:Click:1:12
  32739. Sub Click(Source As Button)
  32740.     Call ProcessViewCommand(ACTION_DECLINE)
  32741. End Sub
  32742. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  32743. Use "CSUIViewClass"
  32744. '++LotusScript Development Environment:2:5:(Forward):0:1
  32745. Declare Sub Click(Source As Button)
  32746. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32747. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32748. Private Sub BindEvents(Byval Objectname_ As String)
  32749. Static Source As BUTTON
  32750. Set Source = Bind(Objectname_)
  32751. On Event Click From Source Call Click
  32752. End Sub
  32753. '++LotusScript Development Environment:2:2:Click:1:12
  32754. Sub Click(Source As Button)
  32755.     Call ProcessViewCommand(ACTION_DELEGATE)
  32756. End Sub
  32757. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  32758. Use "CSUIViewClass"
  32759. '++LotusScript Development Environment:2:5:(Forward):0:1
  32760. Declare Sub Click(Source As Button)
  32761. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32762. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32763. Private Sub BindEvents(Byval Objectname_ As String)
  32764. Static Source As BUTTON
  32765. Set Source = Bind(Objectname_)
  32766. On Event Click From Source Call Click
  32767. End Sub
  32768. '++LotusScript Development Environment:2:2:Click:1:12
  32769. Sub Click(Source As Button)
  32770.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  32771. End Sub
  32772. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  32773. Use "CommonUI"
  32774. '++LotusScript Development Environment:2:5:(Forward):0:1
  32775. Declare Sub Click(Source As Button)
  32776. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32777. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32778. Private Sub BindEvents(Byval Objectname_ As String)
  32779. Static Source As BUTTON
  32780. Set Source = Bind(Objectname_)
  32781. On Event Click From Source Call Click
  32782. End Sub
  32783. '++LotusScript Development Environment:2:2:Click:1:12
  32784. Sub Click(Source As Button)
  32785.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  32786. End Sub
  32787. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  32788. Use "CommonUI"
  32789. '++LotusScript Development Environment:2:5:(Forward):0:1
  32790. Declare Sub Click(Source As Button)
  32791. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32792. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32793. Private Sub BindEvents(Byval Objectname_ As String)
  32794. Static Source As BUTTON
  32795. Set Source = Bind(Objectname_)
  32796. On Event Click From Source Call Click
  32797. End Sub
  32798. '++LotusScript Development Environment:2:2:Click:1:12
  32799. Sub Click(Source As Button)
  32800.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  32801. End Sub
  32802. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  32803. Use "CommonUI"
  32804. '++LotusScript Development Environment:2:5:(Forward):0:1
  32805. Declare Sub Click(Source As Button)
  32806. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32807. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32808. Private Sub BindEvents(Byval Objectname_ As String)
  32809.     Static Source As BUTTON
  32810.     Set Source = Bind(Objectname_)
  32811.     On Event Click From Source Call Click
  32812. End Sub
  32813. '++LotusScript Development Environment:2:2:Click:1:12
  32814. Sub Click(Source As Button)
  32815.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  32816. End Sub
  32817. Tools\Preferences...2
  32818. (Preferences)
  32819.     0S0E
  32820. Lotus Product8    +V0.0
  32821.     K8    -
  32822. Lotus Product
  32823. OBJECT
  32824. Lotus Product8    +V0.0
  32825.     K8    -
  32826. Lotus Product8    +V0.0
  32827.     K8    -
  32828. Lotus Product
  32829. OBJECT
  32830. Lotus ProductLP
  32831. S+(SI
  32832. ^$U+(SJ
  32833. ^4U+(SJ
  32834. l#K4U-
  32835. m#K4U-
  32836. Lotus ProductLP
  32837. S+(SI
  32838. ^$U+(SJ
  32839. ^4U+(SJ
  32840. l#K4U-
  32841. m#K4U-
  32842. Lotus ProductLP
  32843. S+(SI
  32844. ^$U+(SJ
  32845. ^4U+(SJ
  32846. l#K4U-
  32847. m#K4U-
  32848. Lotus ProductLP
  32849. S+(SI
  32850. ^$U+(SJ
  32851. ^4U+(SJ
  32852. l#K4U-
  32853. m#K4U-
  32854. Lotus ProductLP
  32855. S+(SI
  32856. ^$U+(SJ
  32857. ^4U+(SJ
  32858. l#K4U-
  32859. m#K4U-
  32860. Lotus ProductLP
  32861. S+(SI
  32862. l#}TW
  32863. l#}TW
  32864. ^$U+(SJ
  32865. ^4U+(SJ
  32866. l#K4U-
  32867. Lotus ProductLP
  32868. S+(SI
  32869. l#}TW
  32870. l#}TW
  32871. ^$U+(SJ
  32872. ^4U+(SJ
  32873. l#K4U-
  32874. Lotus ProductLP
  32875. S+(SI
  32876. l#}TW
  32877. l#}TW
  32878. ^$U+(SJ
  32879. ^4U+(SJ
  32880. l#K4U-
  32881. Lotus Product
  32882. OBJECT
  32883. Lotus Product
  32884. OBJECT
  32885. Lotus Product
  32886. OBJECT
  32887. '++LotusScript Development Environment:2:5:(Options):0:74
  32888. Option Public
  32889. Option Explicit
  32890. Use "CSUIViewClass"
  32891. '++LotusScript Development Environment:2:5:(Forward):0:1
  32892. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32893. Lotus Product
  32894. '++LotusScript Development Environment:2:5:(Options):0:66
  32895. '++LotusScript Development Environment:2:5:(Forward):0:1
  32896. Declare Sub Regiondoubleclick(Source As Notesuiview)
  32897. Declare Sub Postdragdrop(Source As Notesuiview)
  32898. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32899. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32900. Private Sub BindEvents(Byval Objectname_ As String)
  32901. Static Source As NOTESUIVIEW
  32902. Set Source = Bind(Objectname_)
  32903. On Event Regiondoubleclick From Source Call Regiondoubleclick
  32904. On Event Postdragdrop From Source Call Postdragdrop
  32905. End Sub
  32906. '++LotusScript Development Environment:2:2:Regiondoubleclick:1:12
  32907. Sub Regiondoubleclick(Source As Notesuiview)
  32908.     Dim ws As New notesuiworkspace
  32909.     Call ws.composedocument(,,"Appointment")
  32910. End Sub
  32911. '++LotusScript Development Environment:2:2:Postdragdrop:1:12
  32912. Sub Postdragdrop(Source As Notesuiview)
  32913.     Dim ws As New notesuiworkspace
  32914.     Dim collection As NotesDocumentCollection
  32915.     Dim note As NotesDocument
  32916.     Dim dtCalDrop As NotesDateTime
  32917.     Dim dtCal As notesdatetime
  32918.     Dim dtStart As NotesDateTime
  32919.     Dim dtEnd As NotesDateTime
  32920.     Dim uiview As UIEVentObject
  32921.     Dim vBEObject As Variant
  32922.     Dim lDifference As Long
  32923.     Dim bRefresh As Integer
  32924.     Dim nChangeWhich As Integer
  32925.     Dim bSave As Integer
  32926.     Call TIMEGetNotesFromLS(source.calendardatetime, dtCalDrop)
  32927.     Set collection = source.documents
  32928.     Set note = collection.getfirstdocument
  32929.     While Not(note Is Nothing)
  32930.         Set uiview = InitEventObject(note)
  32931.         Set vBEObject = uiview.BEObject
  32932.         Set dtStart = vBEObject.OriginalStartDate
  32933.         Set dtEnd = vBEObject.OriginalEndDate
  32934.         ' set the new date/time values 
  32935.         Call TIMEGetNotesFromLS(source.CalendarDateTime, dtCal)
  32936.         ' If the document was dropped on a date but no time, use the existing time
  32937.         If (Hour(dtCalDrop.LSLocalTime) = 0) Then
  32938.             Set dtCal = New notesdatetime(dtCalDrop.DateOnly & " " & dtStart.TimeOnly)
  32939.         Else
  32940.             Call TIMEGetNotesFromLS(dtCalDrop.LSLocalTime, dtCal)
  32941.         End If
  32942.         lDifference = dtCal.TimeDifference(dtStart)
  32943.         Call TIMEAdjustByDifference(lDifference, dtStart)
  32944.         Call TIMEAdjustByDifference(lDifference, dtEnd)
  32945.         Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
  32946.         Call note.ReplaceItemValue("StartTime", dtStart.LSLocalTime)
  32947.         Call note.ReplaceItemValue("EndDate", dtEnd.LSLocalTime)        
  32948.         Call note.ReplaceItemValue("EndTime", dtEnd.LSLocalTime)
  32949.         If uiview.IsOwner Then
  32950.             If uiview.OkToReschedule() Then
  32951.                 Call vBEObject.UpdateDateTimeItems()
  32952.                 Call vBEObject.SetCalendarDateTime()
  32953.                 If (vBEObject.IsWorkflowEnabled()) Then
  32954.                     Call vBEobject.IncrementSequenceNum()
  32955.                     uiview.ActionInProgress = ACTION_RESCHEDULE
  32956.                     Call uiview.Reschedule()
  32957.                 End If
  32958.                 Call vBEObject.MarkTempItems()
  32959.                 bSave = True
  32960.                 bRefresh = True
  32961.             End If
  32962.         Else
  32963.             If (uiview.OkToPerformAction(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)")) Then
  32964.                 Call uiview.CounterPropose()
  32965.                 bSave = True
  32966.                 bRefresh = True
  32967.             End If
  32968.         End If
  32969.         If (bSave) Then
  32970.             If (vBEObject.Context = CTX_REPEAT_INST) Then
  32971.                 nChangeWhich = uiview.ChangeRepeatDialog()
  32972.                 If nChangeWhich <> REPEAT_CANCEL Then
  32973.                     If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
  32974.                     If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
  32975.                 Else
  32976.                     bSave = False
  32977.                 End If
  32978.                 If (bSave) Then Call note.save(True, True, True)
  32979.             Else
  32980.                 Call note.save(True, True, True)
  32981.             End If
  32982.         End If
  32983.         Set note = collection.GetNextDocument(note)
  32984.     Wend
  32985.     If bRefresh Then Call ws.viewrefresh
  32986. End Sub
  32987. Lotus Product
  32988. O=Lotus Notes
  32989. O=Lotus Notes
  32990. PURSAFO
  32991. |.:#U
  32992. O=Lotus Notes
  32993. CN=Lotus Notes Template Development/O=Lotus Notes
  32994. PURSAFO
  32995. $TITLE
  32996. $PublicAccess
  32997. $Index
  32998. $Formula
  32999. $FormulaClass
  33000. $VIEWFORMAT
  33001. $CalendarFormat
  33002. $AppHelpFormula
  33003. $Comment
  33004. $WebFlags
  33005. $V5ACTIONS
  33006. $ACTIONS
  33007. $SCRIPTOBJ_6
  33008. $SCRIPTOBJ_7
  33009. $SCRIPTOBJ_8
  33010. $SCRIPTOBJ_9
  33011. $SCRIPTOBJ_10
  33012. $SCRIPTOBJ_11
  33013. $SCRIPTOBJ_12
  33014. $SCRIPTOBJ_13
  33015. $SCRIPTOBJ_14
  33016. $SCRIPTOBJ_15
  33017. $SCRIPTOBJ_16
  33018. $SCRIPTOBJ_17
  33019. $SCRIPTOBJ_18
  33020. $SCRIPTOBJ_19
  33021. $SCRIPTOBJ_20
  33022. $SCRIPTOBJ_21
  33023. $ViewGlobalScript
  33024. $ViewGlobalScript_O
  33025. $ViewScript
  33026. $ViewScript_O
  33027. SchedState
  33028. ScheduleStat
  33029.     1S2S
  33030. SchedState
  33031. Scheduled
  33032. Mail Scheduled
  33033. SchedState
  33034. Mail Scheduled on Hold
  33035. Drafts
  33036.     0R3S4S6S8S9S10S12S14S
  33037. IsMailStationeryh
  33038.     7S9S
  33039. SendToh
  33040. SendTo
  33041. SendTo
  33042. EnterSendTo
  33043.     1S2S10S11S12S13S20S
  33044.     0R1S2S8S
  33045.     0R1S2S15S16S17S18S25S
  33046. SendTo
  33047.     0R1S2S5S6S8S12S16S20S
  33048. SendTo
  33049.     0R1S2S5S6S8S12S16S20S
  33050. Person
  33051.     0R1S2S5S6S8S10S11S12S13S14S
  33052. Person
  33053. Person
  33054. Person
  33055. Person
  33056.     0R10S11S20S32S
  33057. $ContentIconh
  33058. $ContentIcon
  33059. Froma
  33060.  pager 
  33061. SendToa
  33062.  pager 
  33063. message.wav
  33064. vmsg_hdr.wav
  33065. .wavG
  33066. .tifG
  33067. $ContentIconh
  33068. $ContentIcon
  33069.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  33070. IsMailStationeryh
  33071. MailStationeryName
  33072. Subject
  33073.     7S9S
  33074. $65$59$66$55$62$60$Conflict
  33075. PostedDate
  33076. $MessageType
  33077. ExcludeFromView
  33078. ISMAILSTATIONERY
  33079.     L1S2S3S4S5S6S7S8S9S15S16S17S18S
  33080. SchedState
  33081. ScheduleStat
  33082.     1S2S
  33083. SchedState
  33084. Scheduled
  33085. Mail Scheduled
  33086. SchedState
  33087. Mail Scheduled on Hold
  33088. Drafts
  33089.     0R3S4S6S8S9S10S12S14S$59T
  33090. IsMailStationeryh
  33091.     7S9S
  33092. $66Who
  33093. SendToh
  33094. SendTo
  33095. SendTo
  33096. EnterSendTo
  33097.     1S2S10S11S12S13S20S
  33098.     0R1S2S8S
  33099.     0R1S2S15S16S17S18S25S
  33100. SendTo
  33101.     0R1S2S5S6S8S12S16S20S
  33102. SendTo
  33103.     0R1S2S5S6S8S12S16S20S
  33104. Person
  33105.     0R1S2S5S6S8S10S11S12S13S14S
  33106. Person
  33107. Person
  33108. Person
  33109. Person
  33110.     0R10S11S20S32S
  33111. $55Date
  33112. $ContentIconh
  33113. $ContentIcon
  33114. Froma
  33115.  pager 
  33116. SendToa
  33117.  pager 
  33118. message.wav
  33119. vmsg_hdr.wav
  33120. .wavG
  33121. .tifG
  33122. $ContentIconh
  33123. $ContentIcon
  33124.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Subjectb
  33125. IsMailStationeryh
  33126. MailStationeryName
  33127. Subject
  33128.     7S9S
  33129. New Memo(
  33130.     0S0E
  33131. act_NEWMEMO.GIF|act_NEWMEMO?
  33132. _Forward
  33133. Forwarde 
  33134.     0S0E
  33135. ISMAILSTATIONERYh
  33136.     0S0E
  33137. act_FORWARD.GIF|act_FORWARD?
  33138. act_EDIT.GIF|act_EDIT?
  33139. Delete 
  33140.     0S0E
  33141. act_DELETE.GIF|act_DELETE?
  33142. Folder...\Move To Folder...
  33143.     0S0E
  33144. act_FOLDER.GIF|act_FOLDER?
  33145. Folder...\Remove From Folder 
  33146.     0S0E
  33147. act_FOLDER.GIF|act_FOLDER?
  33148. Categori_zeo
  33149. Send Document
  33150. _Move To Folder...
  33151. _Remove From Folder...
  33152. Retrieve mail
  33153. Database
  33154.     1S2S
  33155. Database
  33156. ($Inbox)
  33157.     0R4S6S
  33158.     4S5S
  33159. Copy into...\New Memoo'++LotusScript Development Environment:2:5:(Options):0:74
  33160. Use "CommonUI"
  33161. '++LotusScript Development Environment:2:5:(Forward):0:1
  33162. Declare Sub Click(Source As Button)
  33163. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33164. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33165. Private Sub BindEvents(Byval Objectname_ As String)
  33166. Static Source As BUTTON
  33167. Set Source = Bind(Objectname_)
  33168. On Event Click From Source Call Click
  33169. End Sub
  33170. '++LotusScript Development Environment:2:2:Click:1:12
  33171. Sub Click(Source As Button)
  33172.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  33173. End Sub
  33174. act_COPYINTO.GIF|act_COPYINTO?
  33175. Copy into...\New Calendar Entryt'++LotusScript Development Environment:2:5:(Options):0:74
  33176. Use "CommonUI"
  33177. '++LotusScript Development Environment:2:5:(Forward):0:1
  33178. Declare Sub Click(Source As Button)
  33179. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33180. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33181. Private Sub BindEvents(Byval Objectname_ As String)
  33182. Static Source As BUTTON
  33183. Set Source = Bind(Objectname_)
  33184. On Event Click From Source Call Click
  33185. End Sub
  33186. '++LotusScript Development Environment:2:2:Click:1:12
  33187. Sub Click(Source As Button)
  33188.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  33189. End Sub
  33190. act_COPYINTO.GIF|act_COPYINTO?
  33191. Copy into...\New Todoi'++LotusScript Development Environment:2:5:(Options):0:74
  33192. Use "CommonUI"
  33193. '++LotusScript Development Environment:2:5:(Forward):0:1
  33194. Declare Sub Click(Source As Button)
  33195. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33196. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33197. Private Sub BindEvents(Byval Objectname_ As String)
  33198.     Static Source As BUTTON
  33199.     Set Source = Bind(Objectname_)
  33200.     On Event Click From Source Call Click
  33201. End Sub
  33202. '++LotusScript Development Environment:2:2:Click:1:12
  33203. Sub Click(Source As Button)
  33204.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  33205. End Sub
  33206. act_COPYINTO.GIF|act_COPYINTO?
  33207. Tools...\Preferences...
  33208. (Preferences)
  33209.     0S0E
  33210. act_TOOLS.GIF|act_TOOLS?
  33211. Tools...\Out of Office...
  33212. (EditOfficeProfile)
  33213.     0S0E
  33214. act_TOOLS.GIF|act_TOOLS?
  33215. Tools...\Add Sender to Address Book
  33216. (AddSenderToAddressBook)
  33217.     0S0E
  33218. act_TOOLS.GIF|act_TOOLS?
  33219. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  33220. '++LotusScript Development Environment:2:5:(Forward):0:1
  33221. Declare Sub Click(Source As Button)
  33222. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33223. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33224. Private Sub BindEvents(Byval Objectname_ As String)
  33225.     Static Source As BUTTON
  33226.     Set Source = Bind(Objectname_)
  33227.     On Event Click From Source Call Click
  33228. End Sub
  33229. '++LotusScript Development Environment:2:2:Click:1:12
  33230. Sub Click(Source As Button)
  33231.     Dim session As New notessession
  33232.     Dim uiws As New notesuiworkspace
  33233.     Dim collection As notesdocumentcollection
  33234.     Dim noteUIEditDocument As notesuidocument
  33235.     Dim database As NotesDatabase
  33236.     Set noteCursorDoc = session.currentdatabase.createdocument
  33237.     Set database = session.currentdatabase
  33238.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  33239.     Set noteCursorDoc = collection.getfirstdocument
  33240.     If Not noteCursorDoc Is Nothing Then
  33241.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33242.     End If
  33243. End Sub
  33244. act_TOOLS.GIF|act_TOOLS?
  33245. New Memo(
  33246.     0S0E
  33247. act_NEW.GIF|act_NEW?
  33248. Folder...\Create Folder
  33249. act_FOLDER.GIF|act_FOLDER?
  33250. alert('Feature in Progress')
  33251. Folder...\Move to Folder...
  33252.     0S0E
  33253. act_FOLDER.GIF|act_FOLDER?
  33254. Delete...\Delete 
  33255.     0S0E
  33256. act_DELETE.GIF|act_DELETE?
  33257. Delete...\Empty Trashc 
  33258.     0S0E
  33259. act_DELETE.GIF|act_DELETE?
  33260. Tools...\Preferences4
  33261. CalendarProfile
  33262.     0S0E
  33263. act_TOOLS.GIF|act_TOOLS?
  33264. Tools...\Archiving
  33265. act_TOOLS.GIF|act_TOOLS?
  33266. var pathname = window.location.pathname
  33267. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  33268. //Generate a random number based on the current time  hr:min:sec
  33269. //we do this in case the user doesn't refresh the cache every time they load a page on their browser.
  33270. //If they don't refresh the cache, the Archive Profile keeps the original settings only, for each browser session.
  33271. now = new Date();
  33272. mins = now.getMinutes().toString()
  33273. secs = now.getSeconds().toString()
  33274. hrs = now.getHours().toString()
  33275. random = mins + secs + hrs
  33276. window.open(filename + 'WebArchProfile?openForm&' + random,'secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=465,width=600')
  33277. Tools...\Out of Office
  33278. act_TOOLS.GIF|act_TOOLS?
  33279. alert('Feature in Progress')
  33280. New Memo(
  33281.     0S0E
  33282. _Forward
  33283. ForwardM 
  33284.     0S0E
  33285. ISMAILSTATIONERYh
  33286.     0S0E
  33287. Delete 
  33288.     0S0E
  33289. Folder...\Move To Folder...
  33290.     0S0E
  33291. Folder...\Remove From Folder 
  33292.     0S0E
  33293. Categori_zeS
  33294. Send Document
  33295. _Move To Folder...
  33296. _Remove From Folder...
  33297. Retrieve mail
  33298. Database
  33299.     1S2S
  33300. Database
  33301. ($Inbox)
  33302.     0R4S6S
  33303.     4S5S
  33304. Copy into...\New Memoc'++LotusScript Development Environment:2:5:(Options):0:74
  33305. Use "CommonUI"
  33306. '++LotusScript Development Environment:2:5:(Forward):0:1
  33307. Declare Sub Click(Source As Button)
  33308. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33309. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33310. Private Sub BindEvents(Byval Objectname_ As String)
  33311. Static Source As BUTTON
  33312. Set Source = Bind(Objectname_)
  33313. On Event Click From Source Call Click
  33314. End Sub
  33315. '++LotusScript Development Environment:2:2:Click:1:12
  33316. Sub Click(Source As Button)
  33317.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  33318. End Sub
  33319. Copy into...\New Calendar Entry''++LotusScript Development Environment:2:5:(Options):0:74
  33320. Use "CommonUI"
  33321. '++LotusScript Development Environment:2:5:(Forward):0:1
  33322. Declare Sub Click(Source As Button)
  33323. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33324. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33325. Private Sub BindEvents(Byval Objectname_ As String)
  33326. Static Source As BUTTON
  33327. Set Source = Bind(Objectname_)
  33328. On Event Click From Source Call Click
  33329. End Sub
  33330. '++LotusScript Development Environment:2:2:Click:1:12
  33331. Sub Click(Source As Button)
  33332.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  33333. End Sub
  33334. Copy into...\New TodoO'++LotusScript Development Environment:2:5:(Options):0:74
  33335. Use "CommonUI"
  33336. '++LotusScript Development Environment:2:5:(Forward):0:1
  33337. Declare Sub Click(Source As Button)
  33338. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33339. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33340. Private Sub BindEvents(Byval Objectname_ As String)
  33341.     Static Source As BUTTON
  33342.     Set Source = Bind(Objectname_)
  33343.     On Event Click From Source Call Click
  33344. End Sub
  33345. '++LotusScript Development Environment:2:2:Click:1:12
  33346. Sub Click(Source As Button)
  33347.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  33348. End Sub
  33349. Tools...\Preferences...
  33350. (Preferences)
  33351.     0S0E
  33352. Tools...\Out of Office...
  33353. (EditOfficeProfile)
  33354.     0S0E
  33355. Tools...\Add Sender to Address BookD<
  33356. (AddSenderToAddressBook)
  33357.     0S0E
  33358. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  33359. '++LotusScript Development Environment:2:5:(Forward):0:1
  33360. Declare Sub Click(Source As Button)
  33361. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33362. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33363. Private Sub BindEvents(Byval Objectname_ As String)
  33364.     Static Source As BUTTON
  33365.     Set Source = Bind(Objectname_)
  33366.     On Event Click From Source Call Click
  33367. End Sub
  33368. '++LotusScript Development Environment:2:2:Click:1:12
  33369. Sub Click(Source As Button)
  33370.     Dim session As New notessession
  33371.     Dim uiws As New notesuiworkspace
  33372.     Dim collection As notesdocumentcollection
  33373.     Dim noteUIEditDocument As notesuidocument
  33374.     Dim database As NotesDatabase
  33375.     Set noteCursorDoc = session.currentdatabase.createdocument
  33376.     Set database = session.currentdatabase
  33377.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  33378.     Set noteCursorDoc = collection.getfirstdocument
  33379.     If Not noteCursorDoc Is Nothing Then
  33380.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33381.     End If
  33382. End Sub
  33383. New Memo(
  33384.     0S0E
  33385. Folder...\Move to Folder...u&
  33386.     0S0E
  33387. Delete...\Delete 
  33388.     0S0E
  33389. Delete...\Empty Trash
  33390.     0S0E
  33391. Tools...\Preferences4
  33392. CalendarProfile
  33393.     0S0E
  33394. Lotus Product
  33395. OBJECT
  33396. Lotus Product
  33397. OBJECT
  33398. Lotus Product
  33399. OBJECT
  33400. Lotus Product
  33401. OBJECT
  33402. '++LotusScript Development Environment:2:5:(Options):0:74
  33403. Option Public
  33404. '++LotusScript Development Environment:2:5:(Forward):0:1
  33405. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33406. O=Lotus Notes
  33407. O=Lotus Notes
  33408. PURSAFO
  33409. |.:#U
  33410. O=Lotus Notes
  33411. CN=Lotus Notes Template Development/O=Lotus Notes
  33412. PURSAFO
  33413. $TITLE
  33414. $Index
  33415. $Formula
  33416. $FormulaClass
  33417. $VIEWFORMAT
  33418. $FormFormula
  33419. $Comment
  33420. $WebFlags
  33421. $V5ACTIONS
  33422. $ACTIONS
  33423. $SCRIPTOBJ_12
  33424. $SCRIPTOBJ_13
  33425. $SCRIPTOBJ_14
  33426. $SCRIPTOBJ_18
  33427. $ViewGlobalScript
  33428. $ViewGlobalScript_O
  33429. Strip alternatives, parentheses, and a leading dollar sign from the $Title item
  33430. FolderName1
  33431. $Title
  33432.     0R1S2S10S15S16S18S
  33433. FolderName2
  33434. FolderName1
  33435. $Title
  33436. FolderName1
  33437. FolderName1
  33438. FolderName1
  33439.     0R1S2S6S7S9S10S15S17S18S21S25S28S
  33440. FolderName2
  33441.     0S0E
  33442. Set the folder flags in addition to those that are stored
  33443. FolderFlags1
  33444. $FolderFlagsh
  33445. $FolderFlags
  33446.     0R1S2S9S11S
  33447. Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
  33448.     0R1S
  33449. FolderFlags1
  33450. $Name
  33451. $Name
  33452.     0R1S2S8S10S11S13S19S21S22S24S26S29S
  33453. $106$103$107$Conflict
  33454. Select all folders, except private sore in desktop    
  33455. Select all folders, except shared-on-first-use folders
  33456.     0R1S
  33457. $Flags
  33458. $Flags
  33459.     0RL1S5S7S8S13S
  33460. $106Folder Name
  33461. Strip alternatives, parentheses, and a leading dollar sign from the $Title item
  33462. FolderName1
  33463. $Title
  33464.     0R1S2S10S15S16S18S
  33465. FolderName2
  33466. FolderName1
  33467. $Title
  33468. FolderName1
  33469. FolderName1
  33470. FolderName1
  33471.     0R1S2S6S7S9S10S15S17S18S21S25S28S
  33472. FolderName2
  33473. $103Folder UNID
  33474.     0S0E
  33475. $107Folder Flags
  33476. Set the folder flags in addition to those that are stored
  33477. FolderFlags1
  33478. $FolderFlagsh
  33479. $FolderFlags
  33480.     0R1S2S9S11S
  33481. Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
  33482.     0R1S
  33483. FolderFlags1
  33484. $Name
  33485. $Name
  33486.     0R1S2S8S10S11S13S19S21S22S24S26S29S&
  33487. New Memo.
  33488.     0S0E
  33489. Delete 
  33490.     0S0E
  33491. Move To Folder...
  33492.     0S0E
  33493. _Forward
  33494. Reply
  33495. Reply
  33496.     0S0E
  33497. Reply With History@
  33498. Reply with history
  33499.     0S0E
  33500. Categori_zeK
  33501. _Edit Document
  33502. Send    
  33503. Resend
  33504. NonDelivery Report
  33505. Not a Delivery Failure Report
  33506. You cannot Resend a message unless it is a Delivery Failure Report.
  33507.     6S12S17S23S
  33508. Convert To TaskK0
  33509. ConvertToTask
  33510. _Move To Folder...
  33511. _Remove From Folder...
  33512. New Memo.
  33513.     0S0E
  33514. Delete 
  33515.     0S0E
  33516. Move To Folder...
  33517.     0S0E
  33518. _Forward
  33519. Reply
  33520. Reply
  33521.     0S0E
  33522. Reply With History@
  33523. Reply with history
  33524.     0S0E
  33525. Categori_zeK
  33526. _Edit Document
  33527. Send    
  33528. Resend
  33529. NonDelivery Report
  33530. Not a Delivery Failure Report
  33531. You cannot Resend a message unless it is a Delivery Failure Report.
  33532.     6S12S17S23S
  33533. Convert To TaskK0
  33534. ConvertToTask
  33535. _Move To Folder...
  33536. _Remove From Folder...
  33537. O=Lotus Notes
  33538. O=Lotus Notes
  33539. PURSAFO
  33540. |.:#U
  33541. O=Lotus Notes
  33542. CN=Lotus Notes Template Development/O=Lotus Notes
  33543. PURSAFO
  33544. $Name
  33545. $WebFlags
  33546. $HTMLDocumentStyles
  33547. $TITLE
  33548. $PublicAccess
  33549. $Index
  33550. $Formula
  33551. $VIEWFORMAT
  33552. $Comment
  33553. $V5ACTIONS
  33554. $ACTIONS
  33555. $FormulaClass
  33556. $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)}($HeadlinesView)/T/M/B1
  33557. CN=Damien Katz/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  33558. h($Inbox)1($Inbox)1
  33559. $70$106
  33560. $93$70
  33561. $106Newly received mail messages.FYB
  33562. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  33563. #######################################################
  33564. )($Meetings)|Meetings1/P=3601
  33565. StartDateTime
  33566. StartDateTimeH
  33567. (Help)
  33568. MAIL_V_MEETINGS
  33569.     0S0E
  33570. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  33571. ($PermanentDelete)
  33572. EH4f3
  33573. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  33574. ($POP3UIDL)|($POP3UIDL)/P=240J
  33575. $RFC822MessageSize
  33576.     1S2S3S
  33577. $RFC822MessageSize
  33578. $POP3ExportSize
  33579.     1S2S3S
  33580. $POP3ExportSize
  33581. MailPop3UIDLDeliveredDate$32$30$Conflict
  33582. MailPop3UIDL
  33583.     1S2S3S
  33584. MailPop3UIDL
  33585.     0RL1S2S3S1-
  33586. MailPop3UIDLDeliveredDate
  33587. MailPop3UIDLMailPop3UIDLDeliveredDateDelivered Date$32$RFC822MessageSize`
  33588. $RFC822MessageSize
  33589.     1S2S3S
  33590. $RFC822MessageSize
  33591. $30$POP3ExportSize\
  33592. $POP3ExportSize
  33593.     1S2S3S
  33594. $POP3ExportSize
  33595. 553Courier NewY
  33596. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
  33597. ($POP3)/P=240@
  33598. $RFC822MessageSize
  33599.     1S2S3S
  33600. $RFC822MessageSize
  33601. $POP3ExportSize
  33602.     1S2S3S
  33603. $POP3ExportSize
  33604. DeliveredDate$32$30$Conflict
  33605. DeliveredDate
  33606.     1S2S3S
  33607. DeliveredDate
  33608.     0RL1S2S3S1
  33609. DeliveredDate
  33610. DeliveredDateDelivered Date$32$RFC822MessageSize`
  33611. $RFC822MessageSize
  33612.     1S2S3S
  33613. $RFC822MessageSize
  33614. $30$POP3ExportSize\
  33615. $POP3ExportSize
  33616.     1S2S3S
  33617. $POP3ExportSize
  33618. 553Courier NewY
  33619. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  33620. ($Profiles)/P=240H
  33621. Form$Conflict
  33622. Profile
  33623.     L1S5S1
  33624. FormType&
  33625. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
  33626. ($RepeatLookup)|($RepeatLookup)1r
  33627. APPTUNID
  33628. APPTUNID
  33629. RepeatInstanceDates
  33630. RepeatInstanceDates
  33631. OriginalStartDate
  33632.     7S9S
  33633. RescheduleWhich
  33634. RescheduleWhich
  33635. Principal
  33636. Principal
  33637. FromDomain
  33638. FromDomain
  33639. NoticeType
  33640. NoticeType
  33641. SequenceNum
  33642. SequenceNum
  33643. KeepPosted
  33644. KeepPosted
  33645. Delegee
  33646. Delegee
  33647. $CSFlags
  33648. $CSFlags
  33649. APPTUNID$3RescheduleWhich$2PrincipalFromDomainNoticeTypeSequenceNumOrgStateKeepPostedDelegee$CSFlags$Conflict
  33650. $CSFlagsh
  33651. OrgRepeat
  33652.     L1S5S6S10S11S1
  33653. APPTUNID$3Hidden - DNTY
  33654. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  33655. ($RestoreDocument)
  33656. EH4f3
  33657. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  33658. $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)}($Sent)1
  33659. $82$62
  33660. $62YB
  33661. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  33662. ($SoftDeletions)11
  33663. $68$106
  33664. $102$68
  33665. $106YlB
  33666. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  33667. ##########################################################
  33668. #$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)}
  33669. ($ToDo)|Tasks1<
  33670. DueStateh
  33671. DueState
  33672.     7S9S
  33673. DueState
  33674. Overdue
  33675. DueState
  33676. Future
  33677. DueState
  33678. Rejected
  33679. DueState
  33680. Complete
  33681. Current
  33682.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  33683. $186l
  33684. AssignState
  33685. Importance
  33686. Importance
  33687. Importance
  33688.     4S6R7S8S10S12R18R24R30R
  33689. Subject
  33690. Subject
  33691. $172$176$186SubjectSubjectDueDateTime$Conflict$REF
  33692. DueDateTime
  33693. ExcludeFromView
  33694.     L1S3S4S5S6S7S8S9S10S12S13S16S17S
  33695. $172$176$186DueDateTimeD
  33696. (Help)
  33697. MAIL_V_TASKS
  33698.     0S0E
  33699. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  33700. ($Trash)1($Trash)1
  33701. $87$64
  33702. $64FYB
  33703. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  33704. #####################
  33705. $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)}Brian Lambert($VIM100)/P=240B
  33706. DeliveredDate
  33707. DeliveredDate
  33708. PostedDate
  33709. PostedDatei
  33710. FromDomainh
  33711. FromDomain"
  33712. DeliveryPriority
  33713. DeliveryPriority
  33714. MessageType
  33715. MessageType
  33716. Delivery Report
  33717. VIM_DLR
  33718. NonDelivery Report
  33719. VIM_NDLR
  33720. Return Receipt
  33721. VIM_RTRC
  33722. VIM_MAILJ    
  33723. Subject
  33724. $53$47$48$50$51$52$Conflict
  33725. $MessageType
  33726.     L1S1$
  33727. $53$47$48
  33728. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  33729. $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)}Brian Lambert($VIM23)/P=240d
  33730. PostedDateY
  33731. VIMSEL_DRAFT
  33732. DeliveredDate
  33733. DeliveredDate
  33734. PostedDate
  33735. PostedDatei
  33736. FromDomainh
  33737. FromDomain"
  33738. DeliveryPriority
  33739. DeliveryPriority
  33740. MessageType
  33741. MessageType
  33742. Delivery Report
  33743. VIM_DLR
  33744. NonDelivery Report
  33745. VIM_NDLR
  33746. Return Receipt
  33747. VIM_RTRC
  33748. VIM_MAILJ    
  33749. Subject
  33750. $53$47$48$50$51$52$Conflict
  33751. $MessageType
  33752.     L1S1$
  33753. $53$47$48
  33754. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  33755. ##########################################################
  33756. $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)}Brian Lambert($VIM256)/P=240
  33757. Recipients
  33758. Categories
  33759. Categoriesb
  33760. (No Category)
  33761. DeliveredDate
  33762. DeliveredDate
  33763. PostedDate
  33764. PostedDatei
  33765. FromDomainh
  33766. FromDomain"
  33767. DeliveryPriority
  33768. DeliveryPriority
  33769. MessageType
  33770. MessageType
  33771. Delivery Report
  33772. VIM_DLR
  33773. NonDelivery Report
  33774. VIM_NDLR
  33775. Return Receipt
  33776. VIM_RTRC
  33777. VIM_MAILJ    
  33778. Subject
  33779. $53$47$48$50$51$52$Conflict
  33780. $MessageType
  33781.     L1S1$
  33782. $53$47$48T
  33783. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
  33784. $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)}Brian Lambert($VIM42)/P=240
  33785. Recipients
  33786. SenderCategorized
  33787. SenderCategorized
  33788. (No Category)
  33789. DeliveredDate
  33790. DeliveredDate
  33791. PostedDate
  33792. PostedDatei
  33793. FromDomainh
  33794. FromDomain"
  33795. DeliveryPriority
  33796. DeliveryPriority
  33797. MessageType
  33798. MessageType
  33799. Delivery Report
  33800. VIM_DLR
  33801. NonDelivery Report
  33802. VIM_NDLR
  33803. Return Receipt
  33804. VIM_RTRC
  33805. VIM_MAILJ    
  33806. Subject
  33807. $53$47$48$50$51$52$Conflict
  33808. $MessageType
  33809.     L1S1$
  33810. $53$47$48
  33811. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  33812. _Calendar EntryAppointment
  33813. BodyResourcesRoomToReserveBlindCopyToCopyToSendToCategoriesAlarmsOrgConfidentialBookFreeTimeLocationEndTimeEndDateRepeatsStartTimeStartDateSubjectAppointmentType$ExpandGroupsForm1
  33814. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################p
  33815. DeliveredDate
  33816. DeliveredDate
  33817. PostedDate
  33818. PostedDate
  33819.     3S4S6S8S9S10S12S14S
  33820. SentBy
  33821. Principal
  33822. Principal
  33823.     1S2S5S6S8S10S
  33824. Attendees
  33825. RequiredAttendees
  33826. OptionalAttendees
  33827.     0R1S2S5S6S
  33828. DeliveredDate
  33829. SentBy
  33830. Attendees
  33831. Attendees
  33832. SendTo
  33833. SentBy
  33834. SendTo
  33835.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  33836.     0R1S2S8S
  33837.     0R1S2S15S16S
  33838.     0R1S2S5S6S8S14S18S
  33839.     0R1S2S5S6S8S14S18S
  33840. Person
  33841. X400FreeForm^
  33842.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  33843. Person2
  33844. Person
  33845. Person
  33846. Person
  33847. Person
  33848.     0R1S2S12S13S22S34S
  33849. Delivery Report
  33850. NonDelivery Report
  33851. Trace Report
  33852. Mail Router
  33853. Person2
  33854.     0R3S4S5S6S7S8S10S12S
  33855. NonDelivery Report
  33856. DELIVERY FAILURE: 
  33857. FailureReason
  33858. Delivery Report
  33859. DELIVERED: 
  33860. Subject
  33861. Return Receipt
  33862. RECEIVED: 
  33863. Subject
  33864. ReturnNonReceipt
  33865. NOT RECEIVED: 
  33866. Subject
  33867. Subject
  33868.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  33869. $68$102$74$Conflict
  33870.     L1S2E
  33871. $68Date
  33872. DeliveredDate
  33873. DeliveredDate
  33874. PostedDate
  33875. PostedDate
  33876.     3S4S6S8S9S10S12S14S$102Who
  33877. SentBy
  33878. Principal
  33879. Principal
  33880.     1S2S5S6S8S10S
  33881. Attendees
  33882. RequiredAttendees
  33883. OptionalAttendees
  33884.     0R1S2S5S6S
  33885. DeliveredDate
  33886. SentBy
  33887. Attendees
  33888. Attendees
  33889. SendTo
  33890. SentBy
  33891. SendTo
  33892.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  33893.     0R1S2S8S
  33894.     0R1S2S15S16S
  33895.     0R1S2S5S6S8S14S18S
  33896.     0R1S2S5S6S8S14S18S
  33897. Person
  33898. X400FreeForm^
  33899.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  33900. Person2
  33901. Person
  33902. Person
  33903. Person
  33904. Person
  33905.     0R1S2S12S13S22S34S
  33906. Delivery Report
  33907. NonDelivery Report
  33908. Trace Report
  33909. Mail Router
  33910. Person2
  33911.     0R3S4S5S6S7S8S10S12S
  33912. $74Subject
  33913. NonDelivery Report
  33914. DELIVERY FAILURE: 
  33915. FailureReason
  33916. Delivery Report
  33917. DELIVERED: 
  33918. Subject
  33919. Return Receipt
  33920. RECEIVED: 
  33921. Subject
  33922. ReturnNonReceipt
  33923. NOT RECEIVED: 
  33924. Subject
  33925. Subject
  33926.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  33927. Categori_zeK
  33928. _Move To Folder...
  33929. _Remove From Folder...
  33930. New Memo(
  33931.     0S0E
  33932. Reply...\Reply0
  33933. Reply
  33934.     0S0E
  33935. Reply...\Reply with HistoryK
  33936. Reply with History
  33937. This document is truncated.
  33938.     4S8S10S13S
  33939. Reply with history
  33940. Reply...\Reply to All
  33941. MailStEd
  33942.     0S0E
  33943. Reply
  33944. Reply...\Reply to All with History
  33945. MailStEd
  33946.     0S0E
  33947. Reply with History
  33948. This document is truncated.
  33949.     0R4S8S10S13S
  33950. Reply with history
  33951. _Forward
  33952. _Edit Document
  33953. Delete 
  33954.     0S0E
  33955. Folder...\Move To Folder...K 
  33956.     0S0E
  33957. Folder...\Remove From Folder 
  33958.     0S0E
  33959. More...\Preferences...0
  33960. Preferences
  33961.     0S0E
  33962. More...\New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  33963. '++LotusScript Development Environment:2:5:(Forward):0:1
  33964. Declare Sub Click(Source As Button)
  33965. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33966. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33967. Private Sub BindEvents(Byval Objectname_ As String)
  33968.     Static Source As BUTTON
  33969.     Set Source = Bind(Objectname_)
  33970.     On Event Click From Source Call Click
  33971. End Sub
  33972. '++LotusScript Development Environment:2:2:Click:1:12
  33973. Sub Click(Source As Button)
  33974.     Dim session As New notessession
  33975.     Dim uiws As New notesuiworkspace
  33976.     Dim collection As notesdocumentcollection
  33977.     Dim noteUIEditDocument As notesuidocument
  33978.     Dim database As NotesDatabase
  33979.     Set noteCursorDoc = session.currentdatabase.createdocument
  33980.     Set database = session.currentdatabase
  33981.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  33982.     Set noteCursorDoc = collection.getfirstdocument
  33983.     If Not noteCursorDoc Is Nothing Then
  33984.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33985.     End If
  33986. End Sub
  33987. Copy into...\New Memo
  33988. '++LotusScript Development Environment:2:5:(Options):0:74
  33989. Use "CommonUI"
  33990. '++LotusScript Development Environment:2:5:(Forward):0:1
  33991. Declare Sub Click(Source As Button)
  33992. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33993. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33994. Private Sub BindEvents(Byval Objectname_ As String)
  33995. Static Source As BUTTON
  33996. Set Source = Bind(Objectname_)
  33997. On Event Click From Source Call Click
  33998. End Sub
  33999. '++LotusScript Development Environment:2:2:Click:1:12
  34000. Sub Click(Source As Button)
  34001.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34002. End Sub
  34003. Copy into...\New Calendar EntryK'++LotusScript Development Environment:2:5:(Options):0:74
  34004. Use "CommonUI"
  34005. '++LotusScript Development Environment:2:5:(Forward):0:1
  34006. Declare Sub Click(Source As Button)
  34007. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34008. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34009. Private Sub BindEvents(Byval Objectname_ As String)
  34010. Static Source As BUTTON
  34011. Set Source = Bind(Objectname_)
  34012. On Event Click From Source Call Click
  34013. End Sub
  34014. '++LotusScript Development Environment:2:2:Click:1:12
  34015. Sub Click(Source As Button)
  34016.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34017. End Sub
  34018. Copy into...\New Todo
  34019. '++LotusScript Development Environment:2:5:(Options):0:74
  34020. Use "CommonUI"
  34021. '++LotusScript Development Environment:2:5:(Forward):0:1
  34022. Declare Sub Click(Source As Button)
  34023. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34024. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34025. Private Sub BindEvents(Byval Objectname_ As String)
  34026.     Static Source As BUTTON
  34027.     Set Source = Bind(Objectname_)
  34028.     On Event Click From Source Call Click
  34029. End Sub
  34030. '++LotusScript Development Environment:2:2:Click:1:12
  34031. Sub Click(Source As Button)
  34032.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34033. End Sub
  34034. Copy into...\New Group CalendarK'++LotusScript Development Environment:2:5:(Options):0:74
  34035. Use "CommonUI"
  34036. '++LotusScript Development Environment:2:5:(Forward):0:1
  34037. Declare Sub Click(Source As Button)
  34038. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34039. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34040. Private Sub BindEvents(Byval Objectname_ As String)
  34041. Static Source As BUTTON
  34042. Set Source = Bind(Objectname_)
  34043. On Event Click From Source Call Click
  34044. End Sub
  34045. '++LotusScript Development Environment:2:2:Click:1:12
  34046. Sub Click(Source As Button)
  34047.     Dim newnote As notesdocument
  34048.     Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
  34049.     Call DisplayGroupCalendarDlg(newnote, True)    
  34050. End Sub
  34051. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  34052. '++LotusScript Development Environment:2:5:(Forward):0:1
  34053. Declare Sub Click(Source As Button)
  34054. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34055. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34056. Private Sub BindEvents(Byval Objectname_ As String)
  34057.     Static Source As BUTTON
  34058.     Set Source = Bind(Objectname_)
  34059.     On Event Click From Source Call Click
  34060. End Sub
  34061. '++LotusScript Development Environment:2:2:Click:1:12
  34062. Sub Click(Source As Button)
  34063.     Dim session As New notessession
  34064.     Dim uiws As New notesuiworkspace
  34065.     Dim collection As notesdocumentcollection
  34066.     Dim noteUIEditDocument As notesuidocument
  34067.     Dim database As NotesDatabase
  34068.     Set noteCursorDoc = session.currentdatabase.createdocument
  34069.     Set database = session.currentdatabase
  34070.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  34071.     Set noteCursorDoc = collection.getfirstdocument
  34072.     If Not noteCursorDoc Is Nothing Then
  34073.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34074.     End If
  34075. End Sub
  34076. IsMailStationery
  34077.     1S2S
  34078. Categori_zeK
  34079. _Move To Folder...
  34080. _Remove From Folder...
  34081. New Memo(
  34082.     0S0E
  34083. Reply...\Reply0
  34084. Reply
  34085.     0S0E
  34086. Reply...\Reply with HistoryK
  34087. Reply with History
  34088. This document is truncated.
  34089.     4S8S10S13S
  34090. Reply with history
  34091. Reply...\Reply to All
  34092. MailStEd
  34093.     0S0E
  34094. Reply
  34095. Reply...\Reply to All with History
  34096. MailStEd
  34097.     0S0E
  34098. Reply with History
  34099. This document is truncated.
  34100.     0R4S8S10S13S
  34101. Reply with history
  34102. _Forward
  34103. _Edit Document
  34104. Delete 
  34105.     0S0E
  34106. Folder...\Move To Folder...K 
  34107.     0S0E
  34108. Folder...\Remove From Folder 
  34109.     0S0E
  34110. More...\Preferences...0
  34111. Preferences
  34112.     0S0E
  34113. More...\New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  34114. '++LotusScript Development Environment:2:5:(Forward):0:1
  34115. Declare Sub Click(Source As Button)
  34116. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34117. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34118. Private Sub BindEvents(Byval Objectname_ As String)
  34119.     Static Source As BUTTON
  34120.     Set Source = Bind(Objectname_)
  34121.     On Event Click From Source Call Click
  34122. End Sub
  34123. '++LotusScript Development Environment:2:2:Click:1:12
  34124. Sub Click(Source As Button)
  34125.     Dim session As New notessession
  34126.     Dim uiws As New notesuiworkspace
  34127.     Dim collection As notesdocumentcollection
  34128.     Dim noteUIEditDocument As notesuidocument
  34129.     Dim database As NotesDatabase
  34130.     Set noteCursorDoc = session.currentdatabase.createdocument
  34131.     Set database = session.currentdatabase
  34132.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  34133.     Set noteCursorDoc = collection.getfirstdocument
  34134.     If Not noteCursorDoc Is Nothing Then
  34135.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34136.     End If
  34137. End Sub
  34138. Copy into...\New Memo
  34139. '++LotusScript Development Environment:2:5:(Options):0:74
  34140. Use "CommonUI"
  34141. '++LotusScript Development Environment:2:5:(Forward):0:1
  34142. Declare Sub Click(Source As Button)
  34143. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34144. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34145. Private Sub BindEvents(Byval Objectname_ As String)
  34146. Static Source As BUTTON
  34147. Set Source = Bind(Objectname_)
  34148. On Event Click From Source Call Click
  34149. End Sub
  34150. '++LotusScript Development Environment:2:2:Click:1:12
  34151. Sub Click(Source As Button)
  34152.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34153. End Sub
  34154. Copy into...\New Calendar EntryK'++LotusScript Development Environment:2:5:(Options):0:74
  34155. Use "CommonUI"
  34156. '++LotusScript Development Environment:2:5:(Forward):0:1
  34157. Declare Sub Click(Source As Button)
  34158. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34159. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34160. Private Sub BindEvents(Byval Objectname_ As String)
  34161. Static Source As BUTTON
  34162. Set Source = Bind(Objectname_)
  34163. On Event Click From Source Call Click
  34164. End Sub
  34165. '++LotusScript Development Environment:2:2:Click:1:12
  34166. Sub Click(Source As Button)
  34167.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34168. End Sub
  34169. Copy into...\New Todo
  34170. '++LotusScript Development Environment:2:5:(Options):0:74
  34171. Use "CommonUI"
  34172. '++LotusScript Development Environment:2:5:(Forward):0:1
  34173. Declare Sub Click(Source As Button)
  34174. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34175. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34176. Private Sub BindEvents(Byval Objectname_ As String)
  34177.     Static Source As BUTTON
  34178.     Set Source = Bind(Objectname_)
  34179.     On Event Click From Source Call Click
  34180. End Sub
  34181. '++LotusScript Development Environment:2:2:Click:1:12
  34182. Sub Click(Source As Button)
  34183.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34184. End Sub
  34185. Copy into...\New Group CalendarK'++LotusScript Development Environment:2:5:(Options):0:74
  34186. Use "CommonUI"
  34187. '++LotusScript Development Environment:2:5:(Forward):0:1
  34188. Declare Sub Click(Source As Button)
  34189. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34190. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34191. Private Sub BindEvents(Byval Objectname_ As String)
  34192. Static Source As BUTTON
  34193. Set Source = Bind(Objectname_)
  34194. On Event Click From Source Call Click
  34195. End Sub
  34196. '++LotusScript Development Environment:2:2:Click:1:12
  34197. Sub Click(Source As Button)
  34198.     Dim newnote As notesdocument
  34199.     Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
  34200.     Call DisplayGroupCalendarDlg(newnote, True)    
  34201. End Sub
  34202. New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
  34203. '++LotusScript Development Environment:2:5:(Forward):0:1
  34204. Declare Sub Click(Source As Button)
  34205. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34206. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34207. Private Sub BindEvents(Byval Objectname_ As String)
  34208.     Static Source As BUTTON
  34209.     Set Source = Bind(Objectname_)
  34210.     On Event Click From Source Call Click
  34211. End Sub
  34212. '++LotusScript Development Environment:2:2:Click:1:12
  34213. Sub Click(Source As Button)
  34214.     Dim session As New notessession
  34215.     Dim uiws As New notesuiworkspace
  34216.     Dim collection As notesdocumentcollection
  34217.     Dim noteUIEditDocument As notesuidocument
  34218.     Dim database As NotesDatabase
  34219.     Set noteCursorDoc = session.currentdatabase.createdocument
  34220.     Set database = session.currentdatabase
  34221.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  34222.     Set noteCursorDoc = collection.getfirstdocument
  34223.     If Not noteCursorDoc Is Nothing Then
  34224.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34225.     End If
  34226. End Sub
  34227. IsMailStationery
  34228.     1S2S
  34229. Lotus Product
  34230. OBJECT
  34231. Lotus Product
  34232. OBJECT
  34233. Lotus Product
  34234. OBJECT
  34235. Lotus Product
  34236. OBJECT
  34237. Lotus Product
  34238. OBJECT
  34239. '++LotusScript Development Environment:2:5:(Options):0:74
  34240. Option Public
  34241. Option Explicit
  34242. '++LotusScript Development Environment:2:5:(Forward):0:1
  34243. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34244. O=Lotus Notes
  34245. O=Lotus Notes
  34246. PURSAFO
  34247. |.:#U
  34248. O=Lotus Notes
  34249. CN=Lotus Notes Template Development/O=Lotus Notes
  34250. PURSAFO
  34251. ]mb]h
  34252. $TABLEFORMAT
  34253. $TITLE
  34254. $Index
  34255. $Formula
  34256. $FormulaClass
  34257. $VIEWFORMAT
  34258. $Comment
  34259. $WebFlags
  34260. $V5ACTIONS
  34261. $ACTIONS
  34262. $SCRIPTOBJ_15
  34263. $SCRIPTOBJ_16
  34264. $SCRIPTOBJ_17
  34265. $SCRIPTOBJ_18
  34266. $SCRIPTOBJ_19
  34267. $ViewGlobalScript
  34268. DeliveredDate
  34269. PostedDate
  34270. PostedDateY
  34271. IsMailStationeryh
  34272. _ViewIcon
  34273. _ViewIcon
  34274. Importance
  34275. Importance
  34276. _ViewIcon
  34277. _ViewIcon
  34278. $TypeIcon
  34279.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  34280. SentBy
  34281. Principal
  34282. Principal
  34283.     1S2S5S6S8S10S
  34284. DeliveredDate
  34285. SendTo
  34286. SentBy
  34287. SendTo
  34288.     0R1S2S5S6S7S8S9S10S12S14S18S
  34289.     0R1S2S8S
  34290.     0R1S2S15S16S
  34291. DeliveredDate
  34292. SendTo
  34293. SentBy
  34294. SendTo
  34295.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  34296. DeliveredDate
  34297. SendTo
  34298. SentBy
  34299. SendTo
  34300.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  34301. Person
  34302. X400FreeForm^
  34303.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  34304. Person2
  34305. Person
  34306. Person
  34307. Person
  34308. Person
  34309.     0R1S2S12S13S22S34S
  34310. Delivery Report
  34311. NonDelivery Report
  34312. Trace Report
  34313. Mail Router
  34314. Person2
  34315.     0R3S4S5S6S7S8S10S12S
  34316. DeliveredDate
  34317. DeliveredDate
  34318. PostedDate
  34319. PostedDate
  34320.     3S4S6S8S9S10S12S14S
  34321. _ViewIcon2h
  34322. _ViewIcon2
  34323. $ContentIconh
  34324. $ContentIcon
  34325. Froma
  34326.  pager 
  34327. SendToa
  34328.  pager 
  34329. message.wav
  34330. vmsg_hdr.wav
  34331. .wavG
  34332. .tifG
  34333. $ContentIconh
  34334. $ContentIcon
  34335.     6S7S9RRS4E16S18RS3E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  34336. NonDelivery Report
  34337. DELIVERY FAILURE: 
  34338. FailureReason
  34339. Delivery Report
  34340. DELIVERED: 
  34341. Subject
  34342. Return Receipt
  34343. RECEIVED: 
  34344. Subject
  34345. ReturnNonReceipt
  34346. NOT RECEIVED: 
  34347. Subject
  34348. Subject
  34349.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  34350. $86$93$70$106$97$73$Conflict
  34351. DeliveredDate
  34352. PostedDate
  34353. PostedDateY
  34354. IsMailStationeryh
  34355. _ViewIcon
  34356. _ViewIcon
  34357. Importance
  34358. Importance
  34359. _ViewIcon
  34360. _ViewIcon
  34361. $TypeIcon
  34362.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  34363. $93Who>
  34364. SentBy
  34365. Principal
  34366. Principal
  34367.     1S2S5S6S8S10S
  34368. DeliveredDate
  34369. SendTo
  34370. SentBy
  34371. SendTo
  34372.     0R1S2S5S6S7S8S9S10S12S14S18S
  34373.     0R1S2S8S
  34374.     0R1S2S15S16S
  34375. DeliveredDate
  34376. SendTo
  34377. SentBy
  34378. SendTo
  34379.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  34380. DeliveredDate
  34381. SendTo
  34382. SentBy
  34383. SendTo
  34384.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  34385. Person
  34386. X400FreeForm^
  34387.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  34388. Person2
  34389. Person
  34390. Person
  34391. Person
  34392. Person
  34393.     0R1S2S12S13S22S34S
  34394. Delivery Report
  34395. NonDelivery Report
  34396. Trace Report
  34397. Mail Router
  34398. Person2
  34399.     0R3S4S5S6S7S8S10S12S
  34400. $70Date
  34401. DeliveredDate
  34402. DeliveredDate
  34403. PostedDate
  34404. PostedDate
  34405.     3S4S6S8S9S10S12S14S$106Size
  34406. _ViewIcon2h
  34407. _ViewIcon2
  34408. $ContentIconh
  34409. $ContentIcon
  34410. Froma
  34411.  pager 
  34412. SendToa
  34413.  pager 
  34414. message.wav
  34415. vmsg_hdr.wav
  34416. .wavG
  34417. .tifG
  34418. $ContentIconh
  34419. $ContentIcon
  34420.     6S7S9RRS4E16S18RS3E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$73Subject
  34421. NonDelivery Report
  34422. DELIVERY FAILURE: 
  34423. FailureReason
  34424. Delivery Report
  34425. DELIVERED: 
  34426. Subject
  34427. Return Receipt
  34428. RECEIVED: 
  34429. Subject
  34430. ReturnNonReceipt
  34431. NOT RECEIVED: 
  34432. Subject
  34433. Subject
  34434.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  34435. New Memo(
  34436.     0S0E
  34437. act_NEWMEMO.GIF|act_NEWMEMO?
  34438. Reply...\Reply0
  34439. Reply
  34440.     0S0E
  34441. act_REPLY.GIF|act_REPLY?
  34442. Reply...\Reply with History
  34443. Reply with History
  34444. This document is truncated.
  34445.     4S8S10S13S
  34446. Reply with history
  34447. act_REPLY.GIF|act_REPLY?
  34448. Reply...\Reply to All
  34449. MailStEd
  34450.     0S0E
  34451. Reply
  34452. act_REPLY.GIF|act_REPLY?
  34453. Reply...\Reply to All with History
  34454. MailStEd
  34455.     0S0E
  34456. Reply with History
  34457. This document is truncated.
  34458.     0R4S8S10S13S
  34459. Reply with history
  34460. act_REPLY.GIF|act_REPLY?
  34461. _Forward
  34462. act_FORWARD.GIF|act_FORWARD?
  34463. Forward
  34464.     0S0E
  34465. ISMAILSTATIONERYh
  34466.     0S0E
  34467. act_FORWARD.GIF|act_FORWARD?
  34468. _Edit Document
  34469. Delete 
  34470.     0S0E
  34471. act_DELETE.GIF|act_DELETE?
  34472. Folder...\Move To Folder...e 
  34473.     0S0E
  34474. act_FOLDER.GIF|act_FOLDER?
  34475. Folder...\Remove From Folder 
  34476.     0S0E
  34477. act_FOLDER.GIF|act_FOLDER?
  34478. Categori_zet
  34479. Send Docu_ment
  34480. Resend
  34481. NonDelivery Report
  34482. Not a Delivery Failure Report
  34483. You cannot Resend a message unless it is a Delivery Failure Report.
  34484.     6S12S17S23S
  34485. _Move To Folder...
  34486. _Remove From Folder...
  34487. Retrieve mail
  34488. Database
  34489.     1S2S
  34490. Database
  34491. ($Inbox)
  34492.     0R4S6S
  34493.     4S5S
  34494. Copy into...\New Memo
  34495. '++LotusScript Development Environment:2:5:(Options):0:74
  34496. Use "CommonUI"
  34497. '++LotusScript Development Environment:2:5:(Forward):0:1
  34498. Declare Sub Click(Source As Button)
  34499. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34500. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34501. Private Sub BindEvents(Byval Objectname_ As String)
  34502. Static Source As BUTTON
  34503. Set Source = Bind(Objectname_)
  34504. On Event Click From Source Call Click
  34505. End Sub
  34506. '++LotusScript Development Environment:2:2:Click:1:12
  34507. Sub Click(Source As Button)
  34508.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34509. End Sub
  34510. act_COPYINTO.GIF|act_COPYINTO?
  34511. Copy into...\New Calendar Entry
  34512. '++LotusScript Development Environment:2:5:(Options):0:74
  34513. Use "CommonUI"
  34514. '++LotusScript Development Environment:2:5:(Forward):0:1
  34515. Declare Sub Click(Source As Button)
  34516. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34517. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34518. Private Sub BindEvents(Byval Objectname_ As String)
  34519. Static Source As BUTTON
  34520. Set Source = Bind(Objectname_)
  34521. On Event Click From Source Call Click
  34522. End Sub
  34523. '++LotusScript Development Environment:2:2:Click:1:12
  34524. Sub Click(Source As Button)
  34525.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34526. End Sub
  34527. act_COPYINTO.GIF|act_COPYINTO?
  34528. Copy into...\New Todo
  34529. '++LotusScript Development Environment:2:5:(Options):0:74
  34530. Use "CommonUI"
  34531. '++LotusScript Development Environment:2:5:(Forward):0:1
  34532. Declare Sub Click(Source As Button)
  34533. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34534. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34535. Private Sub BindEvents(Byval Objectname_ As String)
  34536.     Static Source As BUTTON
  34537.     Set Source = Bind(Objectname_)
  34538.     On Event Click From Source Call Click
  34539. End Sub
  34540. '++LotusScript Development Environment:2:2:Click:1:12
  34541. Sub Click(Source As Button)
  34542.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34543. End Sub
  34544. act_COPYINTO.GIF|act_COPYINTO?
  34545. New Memo(
  34546.     0S0E
  34547. act_NEW.GIF|act_NEW?
  34548. Tools...\Preferences...
  34549. (Preferences)
  34550.     0S0E
  34551. act_TOOLS.GIF|act_TOOLS?
  34552. Tools...\Out of Office...
  34553. (EditOfficeProfile)
  34554.     0S0E
  34555. act_TOOLS.GIF|act_TOOLS?
  34556. Tools...\Add Sender to Address Bookk<
  34557. (AddSenderToAddressBook)
  34558.     0S0E
  34559. act_TOOLS.GIF|act_TOOLS?
  34560. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  34561. '++LotusScript Development Environment:2:5:(Forward):0:1
  34562. Declare Sub Click(Source As Button)
  34563. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34564. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34565. Private Sub BindEvents(Byval Objectname_ As String)
  34566.     Static Source As BUTTON
  34567.     Set Source = Bind(Objectname_)
  34568.     On Event Click From Source Call Click
  34569. End Sub
  34570. '++LotusScript Development Environment:2:2:Click:1:12
  34571. Sub Click(Source As Button)
  34572.     Dim session As New notessession
  34573.     Dim uiws As New notesuiworkspace
  34574.     Dim collection As notesdocumentcollection
  34575.     Dim noteUIEditDocument As notesuidocument
  34576.     Dim database As NotesDatabase
  34577.     Set noteCursorDoc = session.currentdatabase.createdocument
  34578.     Set database = session.currentdatabase
  34579.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  34580.     Set noteCursorDoc = collection.getfirstdocument
  34581.     If Not noteCursorDoc Is Nothing Then
  34582.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34583.     End If
  34584. End Sub
  34585. act_TOOLS.GIF|act_TOOLS?
  34586. Folder...\Create Folderi
  34587. act_FOLDER.GIF|act_FOLDER?
  34588. alert('Feature in Progress')
  34589. Folder...\Move to Folder...m&
  34590.     0S0E
  34591. act_FOLDER.GIF|act_FOLDER?
  34592. Folder...\Remove from Folder 
  34593.     0S0E
  34594. act_FOLDER.GIF|act_FOLDER?
  34595. Delete...\Delete 
  34596.     0S0E
  34597. act_DELETE.GIF|act_DELETE?
  34598. Delete...\Empty Trash
  34599.     0S0E
  34600. act_DELETE.GIF|act_DELETE?
  34601. Tools...\Preferences4
  34602. CalendarProfile
  34603.     0S0E
  34604. act_TOOLS.GIF|act_TOOLS?
  34605. Tools...\Archiving
  34606. act_TOOLS.GIF|act_TOOLS?
  34607. var pathname = window.location.pathname
  34608. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  34609. //Generate a random number based on the current time  hr:min:sec
  34610. //we do this in case the user doesn't refresh the cache every time they load a page on their browser.
  34611. //If they don't refresh the cache, the Archive Profile keeps the original settings only, for each browser session.
  34612. now = new Date();
  34613. mins = now.getMinutes().toString()
  34614. secs = now.getSeconds().toString()
  34615. hrs = now.getHours().toString()
  34616. random = mins + secs + hrs
  34617. window.open(filename + 'WebArchProfile?openForm&' + random,'secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=465,width=600')
  34618. Tools...\Out of Office
  34619. act_TOOLS.GIF|act_TOOLS?
  34620. alert('Feature in Progress')
  34621. New Memo(
  34622.     0S0E
  34623. Reply...\Reply0
  34624. Reply
  34625.     0S0E
  34626. Reply...\Reply with History
  34627. Reply with History
  34628. This document is truncated.
  34629.     4S8S10S13S
  34630. Reply with history
  34631. Reply...\Reply to AlltX
  34632. MailStEd
  34633.     0S0E
  34634. Reply
  34635. Reply...\Reply to All with History
  34636. MailStEd
  34637.     0S0E
  34638. Reply with History
  34639. This document is truncated.
  34640.     0R4S8S10S13S
  34641. Reply with history
  34642. _Forward
  34643. Forward| 
  34644.     0S0E
  34645. ISMAILSTATIONERYh
  34646.     0S0E
  34647. _Edit Document
  34648. Delete 
  34649.     0S0E
  34650. Folder...\Move To Folder...
  34651.     0S0E
  34652. Folder...\Remove From Folder 
  34653.     0S0E
  34654. Categori_ze
  34655. Send Docu_ment
  34656. Resend
  34657. NonDelivery Report
  34658. Not a Delivery Failure Report
  34659. You cannot Resend a message unless it is a Delivery Failure Report.
  34660.     6S12S17S23S
  34661. _Move To Folder...
  34662. _Remove From Folder...
  34663. Retrieve mail 
  34664. Database
  34665.     1S2S
  34666. Database
  34667. ($Inbox)
  34668.     0R4S6S
  34669.     4S5S
  34670. Copy into...\New MemoF'++LotusScript Development Environment:2:5:(Options):0:74
  34671. Use "CommonUI"
  34672. '++LotusScript Development Environment:2:5:(Forward):0:1
  34673. Declare Sub Click(Source As Button)
  34674. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34675. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34676. Private Sub BindEvents(Byval Objectname_ As String)
  34677. Static Source As BUTTON
  34678. Set Source = Bind(Objectname_)
  34679. On Event Click From Source Call Click
  34680. End Sub
  34681. '++LotusScript Development Environment:2:2:Click:1:12
  34682. Sub Click(Source As Button)
  34683.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34684. End Sub
  34685. Copy into...\New Calendar Entrya'++LotusScript Development Environment:2:5:(Options):0:74
  34686. Use "CommonUI"
  34687. '++LotusScript Development Environment:2:5:(Forward):0:1
  34688. Declare Sub Click(Source As Button)
  34689. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34690. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34691. Private Sub BindEvents(Byval Objectname_ As String)
  34692. Static Source As BUTTON
  34693. Set Source = Bind(Objectname_)
  34694. On Event Click From Source Call Click
  34695. End Sub
  34696. '++LotusScript Development Environment:2:2:Click:1:12
  34697. Sub Click(Source As Button)
  34698.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34699. End Sub
  34700. Copy into...\New TodoE'++LotusScript Development Environment:2:5:(Options):0:74
  34701. Use "CommonUI"
  34702. '++LotusScript Development Environment:2:5:(Forward):0:1
  34703. Declare Sub Click(Source As Button)
  34704. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34705. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34706. Private Sub BindEvents(Byval Objectname_ As String)
  34707.     Static Source As BUTTON
  34708.     Set Source = Bind(Objectname_)
  34709.     On Event Click From Source Call Click
  34710. End Sub
  34711. '++LotusScript Development Environment:2:2:Click:1:12
  34712. Sub Click(Source As Button)
  34713.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34714. End Sub
  34715. New Memo(
  34716.     0S0E
  34717. Tools...\Preferences...E2
  34718. (Preferences)
  34719.     0S0E
  34720. Tools...\Out of Office...
  34721. (EditOfficeProfile)
  34722.     0S0E
  34723. Tools...\Add Sender to Address Booka<
  34724. (AddSenderToAddressBook)
  34725.     0S0E
  34726. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  34727. '++LotusScript Development Environment:2:5:(Forward):0:1
  34728. Declare Sub Click(Source As Button)
  34729. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34730. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34731. Private Sub BindEvents(Byval Objectname_ As String)
  34732.     Static Source As BUTTON
  34733.     Set Source = Bind(Objectname_)
  34734.     On Event Click From Source Call Click
  34735. End Sub
  34736. '++LotusScript Development Environment:2:2:Click:1:12
  34737. Sub Click(Source As Button)
  34738.     Dim session As New notessession
  34739.     Dim uiws As New notesuiworkspace
  34740.     Dim collection As notesdocumentcollection
  34741.     Dim noteUIEditDocument As notesuidocument
  34742.     Dim database As NotesDatabase
  34743.     Set noteCursorDoc = session.currentdatabase.createdocument
  34744.     Set database = session.currentdatabase
  34745.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  34746.     Set noteCursorDoc = collection.getfirstdocument
  34747.     If Not noteCursorDoc Is Nothing Then
  34748.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34749.     End If
  34750. End Sub
  34751. Folder...\Move to Folder...+&
  34752.     0S0E
  34753. Folder...\Remove from Folder 
  34754.     0S0E
  34755. Delete...\Delete 
  34756.     0S0E
  34757. Delete...\Empty Trashn 
  34758.     0S0E
  34759. Tools...\Preferences4
  34760. CalendarProfile
  34761.     0S0E
  34762. Lotus Product
  34763. OBJECT
  34764. Lotus Product
  34765. OBJECT
  34766. Lotus Product
  34767. OBJECT
  34768. Lotus Product
  34769. OBJECT
  34770. '++LotusScript Development Environment:2:5:(Options):0:74
  34771. Option Public 
  34772. Option Explicit
  34773. '++LotusScript Development Environment:2:5:(Forward):0:1
  34774. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34775. O=Lotus Notes
  34776. O=Lotus Notes
  34777. PURSAFO
  34778. |.:#U
  34779. O=Lotus Notes
  34780. CN=Lotus Notes Template Development/O=Lotus Notes
  34781. PURSAFO
  34782. [6V;HL
  34783. $TITLE
  34784. $PublicAccess
  34785. $Name
  34786. $Index
  34787. $Formula
  34788. $FormulaClass
  34789. $VIEWFORMAT
  34790. $Comment
  34791. $WebFlags
  34792. $V5ACTIONS
  34793. $ACTIONS
  34794. $SCRIPTOBJ_17
  34795. $SCRIPTOBJ_18
  34796. $SCRIPTOBJ_19
  34797. $SCRIPTOBJ_24
  34798. $ViewGlobalScript
  34799. $ViewGlobalScript_O
  34800. Appointment
  34801. _ViewIcon
  34802. _ViewIcon
  34803.     3S4S6S8S13S15S
  34804. _Viewicon2h
  34805. _ViewIcon2
  34806.     7S9S
  34807. Principal
  34808. Principal
  34809.     1S2S
  34810. OrgRepeat
  34811. Notice
  34812. Subject
  34813. Subject
  34814. StartDateTime
  34815. D0S2V
  34816. PostedDateh
  34817. NoticeType
  34818.  can meet at the suggested time
  34819. NoticeType
  34820.  would like to propose a change
  34821. NoticeType
  34822.  will not be attending"
  34823. NoticeType
  34824.  has asked someone else to attend instead
  34825. From 
  34826. Subject
  34827. Subject
  34828.     0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
  34829. $119$123$122StartDateTimeSubject$Conflict$REF
  34830. Appointment
  34831. Notice
  34832.     L1S2S3S6S7S
  34833.  $119
  34834. Appointment
  34835. _ViewIcon
  34836. _ViewIcon
  34837.     3S4S6S8S13S15S
  34838. $123R
  34839. _Viewicon2h
  34840. _ViewIcon2
  34841.     7S9S
  34842. $122x
  34843. Principal
  34844. Principal
  34845.     1S2S
  34846. OrgRepeat
  34847. Notice
  34848. Subject
  34849. Subject
  34850. StartDateTime
  34851. D0S2V
  34852. PostedDateh
  34853. NoticeType
  34854.  can meet at the suggested time
  34855. NoticeType
  34856.  would like to propose a change
  34857. NoticeType
  34858.  will not be attending"
  34859. NoticeType
  34860.  has asked someone else to attend instead
  34861. From 
  34862. Subject
  34863. Subject
  34864.     0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
  34865. StartDateTimeMeeting TimeSubjectSubject&
  34866. _Forward
  34867. _Edit Document
  34868. _Move to Folder...
  34869. _Remove from Folder...
  34870. Categori_zeK
  34871. Send Docu_ment
  34872. New\AppointmentK'++LotusScript Development Environment:2:5:(Options):0:74
  34873. Use "CSUIViewClass"
  34874. '++LotusScript Development Environment:2:5:(Forward):0:1
  34875. Declare Sub Click(Source As Button)
  34876. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34877. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34878. Private Sub BindEvents(Byval Objectname_ As String)
  34879. Static Source As BUTTON
  34880. Set Source = Bind(Objectname_)
  34881. On Event Click From Source Call Click
  34882. End Sub
  34883. '++LotusScript Development Environment:2:2:Click:1:12
  34884. Sub Click(Source As Button)
  34885.     Call ViewNewCalendarEntry("0")
  34886. End Sub
  34887. act_csnew.GIF|act_CSNEWDOC
  34888. New\Meeting Invitation'++LotusScript Development Environment:2:5:(Options):0:74
  34889. Use "CSUIViewClass"
  34890. '++LotusScript Development Environment:2:5:(Forward):0:1
  34891. Declare Sub Click(Source As Button)
  34892. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34893. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34894. Private Sub BindEvents(Byval Objectname_ As String)
  34895. Static Source As BUTTON
  34896. Set Source = Bind(Objectname_)
  34897. On Event Click From Source Call Click
  34898. End Sub
  34899. '++LotusScript Development Environment:2:2:Click:1:12
  34900. Sub Click(Source As Button)
  34901.     Call ViewNewCalendarEntry("3")
  34902. End Sub
  34903. act_csnew.GIF|act_CSNEWDOC
  34904. New\AnniversaryK'++LotusScript Development Environment:2:5:(Options):0:74
  34905. Use "CSUIViewClass"
  34906. '++LotusScript Development Environment:2:5:(Forward):0:1
  34907. Declare Sub Click(Source As Button)
  34908. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34909. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34910. Private Sub BindEvents(Byval Objectname_ As String)
  34911. Static Source As BUTTON
  34912. Set Source = Bind(Objectname_)
  34913. On Event Click From Source Call Click
  34914. End Sub
  34915. '++LotusScript Development Environment:2:2:Click:1:12
  34916. Sub Click(Source As Button)
  34917.     Call ViewNewCalendarEntry("1")
  34918. End Sub
  34919. act_csnew.GIF|act_CSNEWDOC
  34920. New\Reminder'++LotusScript Development Environment:2:5:(Options):0:74
  34921. Use "CSUIViewClass"
  34922. '++LotusScript Development Environment:2:5:(Forward):0:1
  34923. Declare Sub Click(Source As Button)
  34924. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34925. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34926. Private Sub BindEvents(Byval Objectname_ As String)
  34927. Static Source As BUTTON
  34928. Set Source = Bind(Objectname_)
  34929. On Event Click From Source Call Click
  34930. End Sub
  34931. '++LotusScript Development Environment:2:2:Click:1:12
  34932. Sub Click(Source As Button)
  34933.     Call ViewNewCalendarEntry("4")
  34934. End Sub
  34935. act_csnew.GIF|act_CSNEWDOC
  34936. New\Event
  34937. '++LotusScript Development Environment:2:5:(Options):0:74
  34938. Use "CSUIViewClass"
  34939. '++LotusScript Development Environment:2:5:(Forward):0:1
  34940. Declare Sub Click(Source As Button)
  34941. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34942. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34943. Private Sub BindEvents(Byval Objectname_ As String)
  34944. Static Source As BUTTON
  34945. Set Source = Bind(Objectname_)
  34946. On Event Click From Source Call Click
  34947. End Sub
  34948. '++LotusScript Development Environment:2:2:Click:1:12
  34949. Sub Click(Source As Button)
  34950.     Call ViewNewCalendarEntry("2")
  34951. End Sub
  34952. act_csnew.GIF|act_CSNEWDOC
  34953. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  34954. Use "CSUIViewClass"
  34955. '++LotusScript Development Environment:2:5:(Forward):0:1
  34956. Declare Sub Click(Source As Button)
  34957. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34958. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34959. Private Sub BindEvents(Byval Objectname_ As String)
  34960. Static Source As BUTTON
  34961. Set Source = Bind(Objectname_)
  34962. On Event Click From Source Call Click
  34963. End Sub
  34964. '++LotusScript Development Environment:2:2:Click:1:12
  34965. Sub Click(Source As Button)
  34966.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  34967. End Sub
  34968. act_csowneractions.GIF|act_CSOWNERACTIONS?
  34969. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  34970. Use "CSUIViewClass"
  34971. '++LotusScript Development Environment:2:5:(Forward):0:1
  34972. Declare Sub Click(Source As Button)
  34973. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34974. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34975. Private Sub BindEvents(Byval Objectname_ As String)
  34976. Static Source As BUTTON
  34977. Set Source = Bind(Objectname_)
  34978. On Event Click From Source Call Click
  34979. End Sub
  34980. '++LotusScript Development Environment:2:2:Click:1:12
  34981. Sub Click(Source As Button)
  34982.     Call ProcessViewCommand(ACTION_CANCEL)
  34983. End Sub
  34984. act_csowneractions.GIF|act_CSOWNERACTIONS?
  34985. Owner Actions\Confirm
  34986. '++LotusScript Development Environment:2:5:(Options):0:74
  34987. Use "CSUIViewClass"
  34988. '++LotusScript Development Environment:2:5:(Forward):0:1
  34989. Declare Sub Click(Source As Button)
  34990. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34991. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34992. Private Sub BindEvents(Byval Objectname_ As String)
  34993. Static Source As BUTTON
  34994. Set Source = Bind(Objectname_)
  34995. On Event Click From Source Call Click
  34996. End Sub
  34997. '++LotusScript Development Environment:2:2:Click:1:12
  34998. Sub Click(Source As Button)
  34999.     Call ProcessViewCommand(ACTION_CONFIRM)
  35000. End Sub
  35001. act_csowneractions.GIF|act_CSOWNERACTIONS?
  35002. Owner Actions\View Participant Status
  35003. '++LotusScript Development Environment:2:5:(Options):0:74
  35004. Use "CSUIViewClass"
  35005. '++LotusScript Development Environment:2:5:(Forward):0:1
  35006. Declare Sub Click(Source As Button)
  35007. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35008. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35009. Private Sub BindEvents(Byval Objectname_ As String)
  35010. Static Source As BUTTON
  35011. Set Source = Bind(Objectname_)
  35012. On Event Click From Source Call Click
  35013. End Sub
  35014. '++LotusScript Development Environment:2:2:Click:1:12
  35015. Sub Click(Source As Button)
  35016.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  35017. End Sub
  35018. act_csowneractions.GIF|act_CSOWNERACTIONS?
  35019. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  35020. Use "CSUIViewClass"
  35021. '++LotusScript Development Environment:2:5:(Forward):0:1
  35022. Declare Sub Click(Source As Button)
  35023. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35024. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35025. Private Sub BindEvents(Byval Objectname_ As String)
  35026. Static Source As BUTTON
  35027. Set Source = Bind(Objectname_)
  35028. On Event Click From Source Call Click
  35029. End Sub
  35030. '++LotusScript Development Environment:2:2:Click:1:12
  35031. Sub Click(Source As Button)
  35032.     Call ProcessViewCommand(ACTION_SENDMEMO)
  35033. End Sub
  35034. act_csowneractions.GIF|act_CSOWNERACTIONS?
  35035. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  35036. Use "CSUIViewClass"
  35037. '++LotusScript Development Environment:2:5:(Forward):0:1
  35038. Declare Sub Click(Source As Button)
  35039. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35040. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35041. Private Sub BindEvents(Byval Objectname_ As String)
  35042. Static Source As BUTTON
  35043. Set Source = Bind(Objectname_)
  35044. On Event Click From Source Call Click
  35045. End Sub
  35046. '++LotusScript Development Environment:2:2:Click:1:12
  35047. Sub Click(Source As Button)
  35048.     Call ProcessViewCommand(ACTION_ACCEPT)
  35049. End Sub
  35050. act_participantactions.GIF|act_CSPARTACTIONS
  35051. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  35052. Use "CSUIViewClass"
  35053. '++LotusScript Development Environment:2:5:(Forward):0:1
  35054. Declare Sub Click(Source As Button)
  35055. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35056. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35057. Private Sub BindEvents(Byval Objectname_ As String)
  35058. Static Source As BUTTON
  35059. Set Source = Bind(Objectname_)
  35060. On Event Click From Source Call Click
  35061. End Sub
  35062. '++LotusScript Development Environment:2:2:Click:1:12
  35063. Sub Click(Source As Button)
  35064.     Call ProcessViewCommand(ACTION_DECLINE)
  35065. End Sub
  35066. act_participantactions.GIF|act_CSPARTACTIONS
  35067. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  35068. Use "CSUIViewClass"
  35069. '++LotusScript Development Environment:2:5:(Forward):0:1
  35070. Declare Sub Click(Source As Button)
  35071. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35072. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35073. Private Sub BindEvents(Byval Objectname_ As String)
  35074. Static Source As BUTTON
  35075. Set Source = Bind(Objectname_)
  35076. On Event Click From Source Call Click
  35077. End Sub
  35078. '++LotusScript Development Environment:2:2:Click:1:12
  35079. Sub Click(Source As Button)
  35080.     Call ProcessViewCommand(ACTION_DELEGATE)
  35081. End Sub
  35082. act_participantactions.GIF|act_CSPARTACTIONS
  35083. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  35084. Use "CSUIViewClass"
  35085. '++LotusScript Development Environment:2:5:(Forward):0:1
  35086. Declare Sub Click(Source As Button)
  35087. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35088. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35089. Private Sub BindEvents(Byval Objectname_ As String)
  35090. Static Source As BUTTON
  35091. Set Source = Bind(Objectname_)
  35092. On Event Click From Source Call Click
  35093. End Sub
  35094. '++LotusScript Development Environment:2:2:Click:1:12
  35095. Sub Click(Source As Button)
  35096.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  35097. End Sub
  35098. act_participantactions.GIF|act_CSPARTACTIONS
  35099. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  35100. Use "CommonUI"
  35101. '++LotusScript Development Environment:2:5:(Forward):0:1
  35102. Declare Sub Click(Source As Button)
  35103. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35104. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35105. Private Sub BindEvents(Byval Objectname_ As String)
  35106. Static Source As BUTTON
  35107. Set Source = Bind(Objectname_)
  35108. On Event Click From Source Call Click
  35109. End Sub
  35110. '++LotusScript Development Environment:2:2:Click:1:12
  35111. Sub Click(Source As Button)
  35112.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  35113. End Sub
  35114. act_COPYINTO.GIF|act_COPYINTO?
  35115. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  35116. Use "CommonUI"
  35117. '++LotusScript Development Environment:2:5:(Forward):0:1
  35118. Declare Sub Click(Source As Button)
  35119. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35120. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35121. Private Sub BindEvents(Byval Objectname_ As String)
  35122. Static Source As BUTTON
  35123. Set Source = Bind(Objectname_)
  35124. On Event Click From Source Call Click
  35125. End Sub
  35126. '++LotusScript Development Environment:2:2:Click:1:12
  35127. Sub Click(Source As Button)
  35128.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  35129. End Sub
  35130. act_COPYINTO.GIF|act_COPYINTO?
  35131. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  35132. Use "CommonUI"
  35133. '++LotusScript Development Environment:2:5:(Forward):0:1
  35134. Declare Sub Click(Source As Button)
  35135. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35136. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35137. Private Sub BindEvents(Byval Objectname_ As String)
  35138.     Static Source As BUTTON
  35139.     Set Source = Bind(Objectname_)
  35140.     On Event Click From Source Call Click
  35141. End Sub
  35142. '++LotusScript Development Environment:2:2:Click:1:12
  35143. Sub Click(Source As Button)
  35144.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  35145. End Sub
  35146. act_COPYINTO.GIF|act_COPYINTO?
  35147. Tools\Preferences...2
  35148. (Preferences)
  35149.     0S0E
  35150. act_TOOLS.GIF|act_TOOLS?
  35151. _Forward
  35152. _Edit Document
  35153. _Move to Folder...
  35154. _Remove from Folder...
  35155. Categori_zeK
  35156. Send Docu_ment
  35157. New\AppointmentK'++LotusScript Development Environment:2:5:(Options):0:74
  35158. Use "CSUIViewClass"
  35159. '++LotusScript Development Environment:2:5:(Forward):0:1
  35160. Declare Sub Click(Source As Button)
  35161. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35162. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35163. Private Sub BindEvents(Byval Objectname_ As String)
  35164. Static Source As BUTTON
  35165. Set Source = Bind(Objectname_)
  35166. On Event Click From Source Call Click
  35167. End Sub
  35168. '++LotusScript Development Environment:2:2:Click:1:12
  35169. Sub Click(Source As Button)
  35170.     Call ViewNewCalendarEntry("0")
  35171. End Sub
  35172. New\Meeting Invitation'++LotusScript Development Environment:2:5:(Options):0:74
  35173. Use "CSUIViewClass"
  35174. '++LotusScript Development Environment:2:5:(Forward):0:1
  35175. Declare Sub Click(Source As Button)
  35176. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35177. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35178. Private Sub BindEvents(Byval Objectname_ As String)
  35179. Static Source As BUTTON
  35180. Set Source = Bind(Objectname_)
  35181. On Event Click From Source Call Click
  35182. End Sub
  35183. '++LotusScript Development Environment:2:2:Click:1:12
  35184. Sub Click(Source As Button)
  35185.     Call ViewNewCalendarEntry("3")
  35186. End Sub
  35187. New\AnniversaryK'++LotusScript Development Environment:2:5:(Options):0:74
  35188. Use "CSUIViewClass"
  35189. '++LotusScript Development Environment:2:5:(Forward):0:1
  35190. Declare Sub Click(Source As Button)
  35191. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35192. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35193. Private Sub BindEvents(Byval Objectname_ As String)
  35194. Static Source As BUTTON
  35195. Set Source = Bind(Objectname_)
  35196. On Event Click From Source Call Click
  35197. End Sub
  35198. '++LotusScript Development Environment:2:2:Click:1:12
  35199. Sub Click(Source As Button)
  35200.     Call ViewNewCalendarEntry("1")
  35201. End Sub
  35202. New\Reminder'++LotusScript Development Environment:2:5:(Options):0:74
  35203. Use "CSUIViewClass"
  35204. '++LotusScript Development Environment:2:5:(Forward):0:1
  35205. Declare Sub Click(Source As Button)
  35206. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35207. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35208. Private Sub BindEvents(Byval Objectname_ As String)
  35209. Static Source As BUTTON
  35210. Set Source = Bind(Objectname_)
  35211. On Event Click From Source Call Click
  35212. End Sub
  35213. '++LotusScript Development Environment:2:2:Click:1:12
  35214. Sub Click(Source As Button)
  35215.     Call ViewNewCalendarEntry("4")
  35216. End Sub
  35217. New\Event
  35218. '++LotusScript Development Environment:2:5:(Options):0:74
  35219. Use "CSUIViewClass"
  35220. '++LotusScript Development Environment:2:5:(Forward):0:1
  35221. Declare Sub Click(Source As Button)
  35222. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35223. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35224. Private Sub BindEvents(Byval Objectname_ As String)
  35225. Static Source As BUTTON
  35226. Set Source = Bind(Objectname_)
  35227. On Event Click From Source Call Click
  35228. End Sub
  35229. '++LotusScript Development Environment:2:2:Click:1:12
  35230. Sub Click(Source As Button)
  35231.     Call ViewNewCalendarEntry("2")
  35232. End Sub
  35233. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  35234. Use "CSUIViewClass"
  35235. '++LotusScript Development Environment:2:5:(Forward):0:1
  35236. Declare Sub Click(Source As Button)
  35237. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35238. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35239. Private Sub BindEvents(Byval Objectname_ As String)
  35240. Static Source As BUTTON
  35241. Set Source = Bind(Objectname_)
  35242. On Event Click From Source Call Click
  35243. End Sub
  35244. '++LotusScript Development Environment:2:2:Click:1:12
  35245. Sub Click(Source As Button)
  35246.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  35247. End Sub
  35248. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  35249. Use "CSUIViewClass"
  35250. '++LotusScript Development Environment:2:5:(Forward):0:1
  35251. Declare Sub Click(Source As Button)
  35252. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35253. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35254. Private Sub BindEvents(Byval Objectname_ As String)
  35255. Static Source As BUTTON
  35256. Set Source = Bind(Objectname_)
  35257. On Event Click From Source Call Click
  35258. End Sub
  35259. '++LotusScript Development Environment:2:2:Click:1:12
  35260. Sub Click(Source As Button)
  35261.     Call ProcessViewCommand(ACTION_CANCEL)
  35262. End Sub
  35263. Owner Actions\Confirm
  35264. '++LotusScript Development Environment:2:5:(Options):0:74
  35265. Use "CSUIViewClass"
  35266. '++LotusScript Development Environment:2:5:(Forward):0:1
  35267. Declare Sub Click(Source As Button)
  35268. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35269. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35270. Private Sub BindEvents(Byval Objectname_ As String)
  35271. Static Source As BUTTON
  35272. Set Source = Bind(Objectname_)
  35273. On Event Click From Source Call Click
  35274. End Sub
  35275. '++LotusScript Development Environment:2:2:Click:1:12
  35276. Sub Click(Source As Button)
  35277.     Call ProcessViewCommand(ACTION_CONFIRM)
  35278. End Sub
  35279. Owner Actions\View Participant Status
  35280. '++LotusScript Development Environment:2:5:(Options):0:74
  35281. Use "CSUIViewClass"
  35282. '++LotusScript Development Environment:2:5:(Forward):0:1
  35283. Declare Sub Click(Source As Button)
  35284. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35285. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35286. Private Sub BindEvents(Byval Objectname_ As String)
  35287. Static Source As BUTTON
  35288. Set Source = Bind(Objectname_)
  35289. On Event Click From Source Call Click
  35290. End Sub
  35291. '++LotusScript Development Environment:2:2:Click:1:12
  35292. Sub Click(Source As Button)
  35293.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  35294. End Sub
  35295. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  35296. Use "CSUIViewClass"
  35297. '++LotusScript Development Environment:2:5:(Forward):0:1
  35298. Declare Sub Click(Source As Button)
  35299. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35300. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35301. Private Sub BindEvents(Byval Objectname_ As String)
  35302. Static Source As BUTTON
  35303. Set Source = Bind(Objectname_)
  35304. On Event Click From Source Call Click
  35305. End Sub
  35306. '++LotusScript Development Environment:2:2:Click:1:12
  35307. Sub Click(Source As Button)
  35308.     Call ProcessViewCommand(ACTION_SENDMEMO)
  35309. End Sub
  35310. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  35311. Use "CSUIViewClass"
  35312. '++LotusScript Development Environment:2:5:(Forward):0:1
  35313. Declare Sub Click(Source As Button)
  35314. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35315. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35316. Private Sub BindEvents(Byval Objectname_ As String)
  35317. Static Source As BUTTON
  35318. Set Source = Bind(Objectname_)
  35319. On Event Click From Source Call Click
  35320. End Sub
  35321. '++LotusScript Development Environment:2:2:Click:1:12
  35322. Sub Click(Source As Button)
  35323.     Call ProcessViewCommand(ACTION_ACCEPT)
  35324. End Sub
  35325. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  35326. Use "CSUIViewClass"
  35327. '++LotusScript Development Environment:2:5:(Forward):0:1
  35328. Declare Sub Click(Source As Button)
  35329. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35330. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35331. Private Sub BindEvents(Byval Objectname_ As String)
  35332. Static Source As BUTTON
  35333. Set Source = Bind(Objectname_)
  35334. On Event Click From Source Call Click
  35335. End Sub
  35336. '++LotusScript Development Environment:2:2:Click:1:12
  35337. Sub Click(Source As Button)
  35338.     Call ProcessViewCommand(ACTION_DECLINE)
  35339. End Sub
  35340. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  35341. Use "CSUIViewClass"
  35342. '++LotusScript Development Environment:2:5:(Forward):0:1
  35343. Declare Sub Click(Source As Button)
  35344. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35345. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35346. Private Sub BindEvents(Byval Objectname_ As String)
  35347. Static Source As BUTTON
  35348. Set Source = Bind(Objectname_)
  35349. On Event Click From Source Call Click
  35350. End Sub
  35351. '++LotusScript Development Environment:2:2:Click:1:12
  35352. Sub Click(Source As Button)
  35353.     Call ProcessViewCommand(ACTION_DELEGATE)
  35354. End Sub
  35355. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  35356. Use "CSUIViewClass"
  35357. '++LotusScript Development Environment:2:5:(Forward):0:1
  35358. Declare Sub Click(Source As Button)
  35359. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35360. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35361. Private Sub BindEvents(Byval Objectname_ As String)
  35362. Static Source As BUTTON
  35363. Set Source = Bind(Objectname_)
  35364. On Event Click From Source Call Click
  35365. End Sub
  35366. '++LotusScript Development Environment:2:2:Click:1:12
  35367. Sub Click(Source As Button)
  35368.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  35369. End Sub
  35370. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  35371. Use "CommonUI"
  35372. '++LotusScript Development Environment:2:5:(Forward):0:1
  35373. Declare Sub Click(Source As Button)
  35374. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35375. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35376. Private Sub BindEvents(Byval Objectname_ As String)
  35377. Static Source As BUTTON
  35378. Set Source = Bind(Objectname_)
  35379. On Event Click From Source Call Click
  35380. End Sub
  35381. '++LotusScript Development Environment:2:2:Click:1:12
  35382. Sub Click(Source As Button)
  35383.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  35384. End Sub
  35385. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  35386. Use "CommonUI"
  35387. '++LotusScript Development Environment:2:5:(Forward):0:1
  35388. Declare Sub Click(Source As Button)
  35389. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35390. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35391. Private Sub BindEvents(Byval Objectname_ As String)
  35392. Static Source As BUTTON
  35393. Set Source = Bind(Objectname_)
  35394. On Event Click From Source Call Click
  35395. End Sub
  35396. '++LotusScript Development Environment:2:2:Click:1:12
  35397. Sub Click(Source As Button)
  35398.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  35399. End Sub
  35400. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  35401. Use "CommonUI"
  35402. '++LotusScript Development Environment:2:5:(Forward):0:1
  35403. Declare Sub Click(Source As Button)
  35404. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35405. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35406. Private Sub BindEvents(Byval Objectname_ As String)
  35407.     Static Source As BUTTON
  35408.     Set Source = Bind(Objectname_)
  35409.     On Event Click From Source Call Click
  35410. End Sub
  35411. '++LotusScript Development Environment:2:2:Click:1:12
  35412. Sub Click(Source As Button)
  35413.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  35414. End Sub
  35415. Tools\Preferences...2
  35416. (Preferences)
  35417.     0S0E
  35418. Lotus Product8    +V0.0
  35419.     K8    -
  35420. Lotus Product
  35421. OBJECT
  35422. Lotus Product8    +V0.0
  35423.     K8    -
  35424. Lotus Product8    +V0.0
  35425.     K8    -
  35426. Lotus Product
  35427. OBJECT
  35428. Lotus ProductLP
  35429. S+(SI
  35430. ^$U+(SJ
  35431. ^4U+(SJ
  35432. l#K4U-
  35433. m#K4U-
  35434. Lotus ProductLP
  35435. S+(SI
  35436. ^$U+(SJ
  35437. ^4U+(SJ
  35438. l#K4U-
  35439. m#K4U-
  35440. Lotus ProductLP
  35441. S+(SI
  35442. ^$U+(SJ
  35443. ^4U+(SJ
  35444. l#K4U-
  35445. m#K4U-
  35446. Lotus ProductLP
  35447. S+(SI
  35448. ^$U+(SJ
  35449. ^4U+(SJ
  35450. l#K4U-
  35451. m#K4U-
  35452. Lotus ProductLP
  35453. S+(SI
  35454. ^$U+(SJ
  35455. ^4U+(SJ
  35456. l#K4U-
  35457. m#K4U-
  35458. Lotus Product8    +V0.0
  35459.     K(    -
  35460.     K8    -
  35461. Lotus Product8    +V0.0
  35462.     K(    -
  35463.     K8    -
  35464. Lotus Product
  35465. OBJECT
  35466. Lotus Product
  35467. OBJECT
  35468. #,`    #
  35469. Lotus Product
  35470. OBJECT
  35471. #,`    #
  35472. Lotus Product
  35473. OBJECT
  35474. #,`    #
  35475. '++LotusScript Development Environment:2:5:(Options):0:74
  35476. Option Public
  35477. Option Explicit
  35478. '++LotusScript Development Environment:2:5:(Forward):0:1
  35479. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35480. Lotus Product
  35481. V0.0p
  35482. O=Lotus Notes
  35483. O=Lotus Notes
  35484. PURSAFO
  35485. |.:#U
  35486. O=Lotus Notes
  35487. CN=Lotus Notes Template Development/O=Lotus Notes
  35488. PURSAFO
  35489. $TITLE
  35490. $PublicAccess
  35491. $Index
  35492. $Formula
  35493. $FormulaClass
  35494. $VIEWFORMAT
  35495. $AppHelpFormula
  35496. $Comment
  35497. $WebFlags
  35498. $V5ACTIONS
  35499. $ACTIONS
  35500. $SCRIPTOBJ_6
  35501. $SCRIPTOBJ_7
  35502. $SCRIPTOBJ_8
  35503. $SCRIPTOBJ_9
  35504. $SCRIPTOBJ_10
  35505. $SCRIPTOBJ_11
  35506. $SCRIPTOBJ_12
  35507. $SCRIPTOBJ_13
  35508. $SCRIPTOBJ_14
  35509. $SCRIPTOBJ_15
  35510. $SCRIPTOBJ_17
  35511. $SCRIPTOBJ_18
  35512. $SCRIPTOBJ_19
  35513. $SCRIPTOBJ_20
  35514. $SCRIPTOBJ_21
  35515. $SCRIPTOBJ_22
  35516. $ViewGlobalScript
  35517. $ViewGlobalScript_O
  35518.     0S0E
  35519.     0S0E
  35520. O=Lotus Notes
  35521. O=Lotus Notes
  35522. PURSAFO
  35523. |.:#U
  35524. O=Lotus Notes
  35525. CN=Lotus Notes Template Development/O=Lotus Notes
  35526. PURSAFO
  35527. $TITLE
  35528. $AssistType
  35529. $AssistLastRun
  35530. $AssistDocCount
  35531. $AssistFlags
  35532. $AssistTrigger
  35533. $AssistInfo
  35534. $AssistQuery
  35535. $AssistAction
  35536. $AssistAction_Ex
  35537. '++LotusScript Development Environment:2:5:(Options):0:74
  35538. Option Public
  35539. '++LotusScript Development Environment:2:5:(Forward):0:1
  35540. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35541. O=Lotus Notes
  35542. O=Lotus Notes
  35543. PURSAFO
  35544. |.:#U
  35545. O=Lotus Notes
  35546. CN=Lotus Notes Template Development/O=Lotus Notes
  35547. PURSAFO
  35548. |GJ%6
  35549. $TITLE
  35550. $Index
  35551. $Formula
  35552. $FormulaClass
  35553. $VIEWFORMAT
  35554. $Comment
  35555. $ViewGlobalScript
  35556. '++LotusScript Development Environment:2:5:(Options):0:74
  35557. Option Public
  35558. '++LotusScript Development Environment:2:5:(Forward):0:1
  35559. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35560. O=Lotus Notes
  35561. O=Lotus Notes
  35562. PURSAFO
  35563. |.:#U
  35564. O=Lotus Notes
  35565. CN=Lotus Notes Template Development/O=Lotus Notes
  35566. PURSAFO
  35567. $TITLE
  35568. $Index
  35569. $Formula
  35570. $FormulaClass
  35571. $VIEWFORMAT
  35572. $Comment
  35573. $ViewGlobalScript
  35574. $ViewGlobalScript_O
  35575. _Forward
  35576. Categori_zeK
  35577. Edit Message
  35578. _Move to Folder...
  35579. _Remove from Folder...
  35580. _Forward
  35581. Categori_zeK
  35582. Edit Message
  35583. _Move to Folder...
  35584. _Remove from Folder...
  35585. O=Lotus Notes
  35586. O=Lotus Notes
  35587. PURSAFO
  35588. |.:#U
  35589. O=Lotus Notes
  35590. CN=Lotus Notes Template Development/O=Lotus Notes
  35591. PURSAFO
  35592. $TITLE
  35593. $Index
  35594. $Formula
  35595. $FormulaClass
  35596. $VIEWFORMAT
  35597. $Comment
  35598. $V5ACTIONS
  35599. $ACTIONS
  35600. APPTUNIDApptID
  35601. APPTUNID
  35602. APPTUNID
  35603. $3InstanceDatep
  35604. RepeatInstanceDates
  35605. RepeatInstanceDates
  35606. OriginalStartDate
  35607.     7S9S
  35608. RescheduleWhichChangeWhich.
  35609. RescheduleWhich
  35610. RescheduleWhich
  35611. $2Creation
  35612. PrincipalPrincipal"
  35613. Principal
  35614. Principal
  35615. FromDomainFromDomain"
  35616. FromDomain
  35617. FromDomain
  35618. NoticeTypeNoticeType"
  35619. NoticeType
  35620. NoticeType
  35621. SequenceNumSequenceNum&
  35622. SequenceNum
  35623. SequenceNum
  35624. OrgStateParticipantTypeKeepPostedKeepPosted"
  35625. KeepPosted
  35626. KeepPosted
  35627. DelegeeDelegee
  35628. Delegee
  35629. Delegee
  35630. $CSFlagsFlags
  35631. $CSFlags
  35632. $CSFlags
  35633. O=Lotus Notes
  35634. O=Lotus Notes
  35635. PURSAFO
  35636. |.:#U
  35637. O=Lotus Notes
  35638. CN=Lotus Notes Template Development/O=Lotus Notes
  35639. PURSAFO
  35640. $TITLE
  35641. $PublicAccess
  35642. $Index
  35643. $Formula
  35644. $FormulaClass
  35645. $VIEWFORMAT
  35646. $Comment
  35647. $HTMLDocumentStyles
  35648.     0S0E
  35649. O=Lotus Notes
  35650. O=Lotus Notes
  35651. PURSAFO
  35652. |.:#U
  35653. O=Lotus Notes
  35654. CN=Lotus Notes Template Development/O=Lotus Notes
  35655. PURSAFO
  35656. ho{N6IcJO
  35657. $TITLE
  35658. $AssistType
  35659. $AssistLastRun
  35660. $AssistDocCount
  35661. $AssistFlags
  35662. $AssistTrigger
  35663. $AssistInfo
  35664. $AssistQuery
  35665. $AssistAction
  35666. $AssistAction_Ex
  35667. DeliveredDate
  35668. PostedDate
  35669. PostedDateY
  35670. Importance
  35671.     6S11S12S17S19S31S
  35672. SentBy
  35673. Principal
  35674. Principal
  35675.     1S2S5S6S8S10S
  35676. Attendees
  35677. RequiredAttendees
  35678. OptionalAttendees
  35679.     0R1S2S5S6S
  35680. DeliveredDate
  35681. SentBy
  35682. Attendees
  35683. Attendees
  35684. SendTo
  35685. SentBy
  35686. SendTo
  35687.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  35688.     0R1S2S8S
  35689.     0R1S2S15S16S
  35690.     0R1S2S5S6S8S14S18S
  35691.     0R1S2S5S6S8S14S18S
  35692. Person
  35693. X400FreeForm^
  35694.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  35695. Person2
  35696. Person
  35697. Person
  35698. Person
  35699. Person
  35700.     0R1S2S12S13S22S34S
  35701. Delivery Report
  35702. NonDelivery Report
  35703. Trace Report
  35704. Mail Router
  35705. Person2
  35706.     0R3S4S5S6S7S8S10S12S
  35707. DeliveredDate
  35708. DeliveredDate
  35709. PostedDate
  35710. PostedDate
  35711.     3S4S6S8S9S10S12S14S
  35712. $ContentIconh
  35713. $ContentIcon
  35714. Froma
  35715.  pager 
  35716. SendToa
  35717.  pager 
  35718. message.wav
  35719. vmsg_hdr.wav
  35720. .wavG
  35721. .tifG
  35722. $ContentIconh
  35723. $ContentIcon
  35724.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  35725. NonDelivery Report
  35726. DELIVERY FAILURE: 
  35727. FailureReason
  35728. Delivery Report
  35729. DELIVERED: 
  35730. Subject
  35731. Return Receipt
  35732. RECEIVED: 
  35733. Subject
  35734. ReturnNonReceipt
  35735. NOT RECEIVED: 
  35736. Subject
  35737. Subject
  35738.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  35739. $71$82$62$75$65$Conflict
  35740. DeliveredDate
  35741. PostedDate
  35742. ExcludeFromView
  35743.     L1S4S5S8S9S
  35744. DeliveredDate
  35745. PostedDate
  35746. PostedDateY
  35747. Importance
  35748.     6S11S12S17S19S31S$82Who
  35749. SentBy
  35750. Principal
  35751. Principal
  35752.     1S2S5S6S8S10S
  35753. Attendees
  35754. RequiredAttendees
  35755. OptionalAttendees
  35756.     0R1S2S5S6S
  35757. DeliveredDate
  35758. SentBy
  35759. Attendees
  35760. Attendees
  35761. SendTo
  35762. SentBy
  35763. SendTo
  35764.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  35765.     0R1S2S8S
  35766.     0R1S2S15S16S
  35767.     0R1S2S5S6S8S14S18S
  35768.     0R1S2S5S6S8S14S18S
  35769. Person
  35770. X400FreeForm^
  35771.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  35772. Person2
  35773. Person
  35774. Person
  35775. Person
  35776. Person
  35777.     0R1S2S12S13S22S34S
  35778. Delivery Report
  35779. NonDelivery Report
  35780. Trace Report
  35781. Mail Router
  35782. Person2
  35783.     0R3S4S5S6S7S8S10S12S
  35784. $62Date
  35785. DeliveredDate
  35786. DeliveredDate
  35787. PostedDate
  35788. PostedDate
  35789.     3S4S6S8S9S10S12S14S$75F
  35790. $ContentIconh
  35791. $ContentIcon
  35792. Froma
  35793.  pager 
  35794. SendToa
  35795.  pager 
  35796. message.wav
  35797. vmsg_hdr.wav
  35798. .wavG
  35799. .tifG
  35800. $ContentIconh
  35801. $ContentIcon
  35802.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$65Subject
  35803. NonDelivery Report
  35804. DELIVERY FAILURE: 
  35805. FailureReason
  35806. Delivery Report
  35807. DELIVERED: 
  35808. Subject
  35809. Return Receipt
  35810. RECEIVED: 
  35811. Subject
  35812. ReturnNonReceipt
  35813. NOT RECEIVED: 
  35814. Subject
  35815. Subject
  35816.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  35817. New Memo(
  35818.     0S0E
  35819. act_NEWMEMO.GIF|act_NEWMEMO?
  35820. Forward
  35821.     0S0E
  35822. ISMAILSTATIONERYh
  35823.     0S0E
  35824. act_FORWARD.GIF|act_FORWARD?
  35825. _Forward
  35826. Edit Document
  35827. Delete 
  35828.     0S0E
  35829. act_DELETE.GIF|act_DELETE?
  35830. Folder...\Move To Folder...M 
  35831.     0S0E
  35832. act_FOLDER.GIF|act_FOLDER?
  35833. Folder...\Remove From Folder 
  35834.     0S0E
  35835. act_FOLDER.GIF|act_FOLDER?
  35836. Categori_ze
  35837. Send    
  35838. _Move To Folder...
  35839. _Remove From Folder...
  35840. Retrieve mail
  35841. Database
  35842.     1S2S
  35843. Database
  35844. ($Inbox)
  35845.     0R4S6S
  35846.     4S5S
  35847. Copy into...\New Memop'++LotusScript Development Environment:2:5:(Options):0:74
  35848. Use "CommonUI"
  35849. '++LotusScript Development Environment:2:5:(Forward):0:1
  35850. Declare Sub Click(Source As Button)
  35851. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35852. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35853. Private Sub BindEvents(Byval Objectname_ As String)
  35854. Static Source As BUTTON
  35855. Set Source = Bind(Objectname_)
  35856. On Event Click From Source Call Click
  35857. End Sub
  35858. '++LotusScript Development Environment:2:2:Click:1:12
  35859. Sub Click(Source As Button)
  35860.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  35861. End Sub
  35862. act_COPYINTO.GIF|act_COPYINTO?
  35863. Copy into...\New Calendar Entryy'++LotusScript Development Environment:2:5:(Options):0:74
  35864. Use "CommonUI"
  35865. '++LotusScript Development Environment:2:5:(Forward):0:1
  35866. Declare Sub Click(Source As Button)
  35867. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35868. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35869. Private Sub BindEvents(Byval Objectname_ As String)
  35870. Static Source As BUTTON
  35871. Set Source = Bind(Objectname_)
  35872. On Event Click From Source Call Click
  35873. End Sub
  35874. '++LotusScript Development Environment:2:2:Click:1:12
  35875. Sub Click(Source As Button)
  35876.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  35877. End Sub
  35878. act_COPYINTO.GIF|act_COPYINTO?
  35879. Copy into...\New Todo0'++LotusScript Development Environment:2:5:(Options):0:74
  35880. Use "CommonUI"
  35881. '++LotusScript Development Environment:2:5:(Forward):0:1
  35882. Declare Sub Click(Source As Button)
  35883. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35884. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35885. Private Sub BindEvents(Byval Objectname_ As String)
  35886.     Static Source As BUTTON
  35887.     Set Source = Bind(Objectname_)
  35888.     On Event Click From Source Call Click
  35889. End Sub
  35890. '++LotusScript Development Environment:2:2:Click:1:12
  35891. Sub Click(Source As Button)
  35892.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  35893. End Sub
  35894. act_COPYINTO.GIF|act_COPYINTO?
  35895. Tools...\Preferences...
  35896. (Preferences)
  35897.     0S0E
  35898. act_TOOLS.GIF|act_TOOLS?
  35899. Tools...\Out of Office...
  35900. (EditOfficeProfile)
  35901.     0S0E
  35902. act_TOOLS.GIF|act_TOOLS?
  35903. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  35904. '++LotusScript Development Environment:2:5:(Forward):0:1
  35905. Declare Sub Click(Source As Button)
  35906. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35907. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35908. Private Sub BindEvents(Byval Objectname_ As String)
  35909.     Static Source As BUTTON
  35910.     Set Source = Bind(Objectname_)
  35911.     On Event Click From Source Call Click
  35912. End Sub
  35913. '++LotusScript Development Environment:2:2:Click:1:12
  35914. Sub Click(Source As Button)
  35915.     Dim session As New notessession
  35916.     Dim uiws As New notesuiworkspace
  35917.     Dim collection As notesdocumentcollection
  35918.     Dim noteUIEditDocument As notesuidocument
  35919.     Dim database As NotesDatabase
  35920.     Set noteCursorDoc = session.currentdatabase.createdocument
  35921.     Set database = session.currentdatabase
  35922.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  35923.     Set noteCursorDoc = collection.getfirstdocument
  35924.     If Not noteCursorDoc Is Nothing Then
  35925.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  35926.     End If
  35927. End Sub
  35928. act_TOOLS.GIF|act_TOOLS?
  35929. Tools...\Add Sender to Address Book
  35930. (AddSenderToAddressBook)
  35931.     0S0E
  35932. act_TOOLS.GIF|act_TOOLS?
  35933. Tools...\Send Tracking Request:
  35934. (SendTrackingRequest)
  35935.     0S0E
  35936. act_TOOLS.GIF|act_TOOLS?
  35937. New Memo(
  35938.     0S0E
  35939. act_NEW.GIF|act_NEW?
  35940. Folder...\Create Folder,
  35941. act_FOLDER.GIF|act_FOLDER?
  35942. alert('Feature in Progress')
  35943. Folder...\Move to Folder...M&
  35944.     0S0E
  35945. act_FOLDER.GIF|act_FOLDER?
  35946. Delete...\Delete 
  35947.     0S0E
  35948. act_DELETE.GIF|act_DELETE?
  35949. Delete...\Empty Trashu 
  35950.     0S0E
  35951. act_DELETE.GIF|act_DELETE?
  35952. Tools...\Preferences4
  35953. CalendarProfile
  35954.     0S0E
  35955. act_TOOLS.GIF|act_TOOLS?
  35956. Tools...\Archiving
  35957. act_TOOLS.GIF|act_TOOLS?
  35958. var pathname = window.location.pathname
  35959. filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4)) 
  35960. //Generate a random number based on the current time  hr:min:sec
  35961. //we do this in case the user doesn't refresh the cache every time they load a page on their browser.
  35962. //If they don't refresh the cache, the Archive Profile keeps the original settings only, for each browser session.
  35963. now = new Date();
  35964. mins = now.getMinutes().toString()
  35965. secs = now.getSeconds().toString()
  35966. hrs = now.getHours().toString()
  35967. random = mins + secs + hrs
  35968. window.open(filename + 'WebArchProfile?openForm&' + random,'secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=465,width=600')
  35969. Tools...\Out of Office
  35970. act_TOOLS.GIF|act_TOOLS?
  35971. alert('Feature in Progress')
  35972. New Memo(
  35973.     0S0E
  35974. Forward
  35975.     0S0E
  35976. ISMAILSTATIONERYh
  35977.     0S0E
  35978. _Forward
  35979. Edit Documente
  35980. Delete 
  35981.     0S0E
  35982. Folder...\Move To Folder...) 
  35983.     0S0E
  35984. Folder...\Remove From Folder 
  35985.     0S0E
  35986. Categori_ze
  35987. Send    
  35988. _Move To Folder...
  35989. _Remove From Folder...
  35990. Retrieve mail
  35991. Database
  35992.     1S2S
  35993. Database
  35994. ($Inbox)
  35995.     0R4S6S
  35996.     4S5S
  35997. Copy into...\New Memo
  35998. '++LotusScript Development Environment:2:5:(Options):0:74
  35999. Use "CommonUI"
  36000. '++LotusScript Development Environment:2:5:(Forward):0:1
  36001. Declare Sub Click(Source As Button)
  36002. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36003. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36004. Private Sub BindEvents(Byval Objectname_ As String)
  36005. Static Source As BUTTON
  36006. Set Source = Bind(Objectname_)
  36007. On Event Click From Source Call Click
  36008. End Sub
  36009. '++LotusScript Development Environment:2:2:Click:1:12
  36010. Sub Click(Source As Button)
  36011.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36012. End Sub
  36013. Copy into...\New Calendar Entry)'++LotusScript Development Environment:2:5:(Options):0:74
  36014. Use "CommonUI"
  36015. '++LotusScript Development Environment:2:5:(Forward):0:1
  36016. Declare Sub Click(Source As Button)
  36017. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36018. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36019. Private Sub BindEvents(Byval Objectname_ As String)
  36020. Static Source As BUTTON
  36021. Set Source = Bind(Objectname_)
  36022. On Event Click From Source Call Click
  36023. End Sub
  36024. '++LotusScript Development Environment:2:2:Click:1:12
  36025. Sub Click(Source As Button)
  36026.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36027. End Sub
  36028. Copy into...\New Todo
  36029. '++LotusScript Development Environment:2:5:(Options):0:74
  36030. Use "CommonUI"
  36031. '++LotusScript Development Environment:2:5:(Forward):0:1
  36032. Declare Sub Click(Source As Button)
  36033. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36034. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36035. Private Sub BindEvents(Byval Objectname_ As String)
  36036.     Static Source As BUTTON
  36037.     Set Source = Bind(Objectname_)
  36038.     On Event Click From Source Call Click
  36039. End Sub
  36040. '++LotusScript Development Environment:2:2:Click:1:12
  36041. Sub Click(Source As Button)
  36042.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36043. End Sub
  36044. Tools...\Preferences...e2
  36045. (Preferences)
  36046.     0S0E
  36047. Tools...\Out of Office...r8
  36048. (EditOfficeProfile)
  36049.     0S0E
  36050. Tools...\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  36051. '++LotusScript Development Environment:2:5:(Forward):0:1
  36052. Declare Sub Click(Source As Button)
  36053. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36054. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36055. Private Sub BindEvents(Byval Objectname_ As String)
  36056.     Static Source As BUTTON
  36057.     Set Source = Bind(Objectname_)
  36058.     On Event Click From Source Call Click
  36059. End Sub
  36060. '++LotusScript Development Environment:2:2:Click:1:12
  36061. Sub Click(Source As Button)
  36062.     Dim session As New notessession
  36063.     Dim uiws As New notesuiworkspace
  36064.     Dim collection As notesdocumentcollection
  36065.     Dim noteUIEditDocument As notesuidocument
  36066.     Dim database As NotesDatabase
  36067.     Set noteCursorDoc = session.currentdatabase.createdocument
  36068.     Set database = session.currentdatabase
  36069.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
  36070.     Set noteCursorDoc = collection.getfirstdocument
  36071.     If Not noteCursorDoc Is Nothing Then
  36072.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  36073.     End If
  36074. End Sub
  36075. Tools...\Add Sender to Address Book
  36076. (AddSenderToAddressBook)
  36077.     0S0E
  36078. Tools...\Send Tracking Request:
  36079. (SendTrackingRequest)
  36080.     0S0E
  36081. New Memo(
  36082.     0S0E
  36083. Folder...\Move to Folder...i&
  36084.     0S0E
  36085. Delete...\Delete 
  36086.     0S0E
  36087. Delete...\Empty Trashn 
  36088.     0S0E
  36089. Tools...\Preferences4
  36090. CalendarProfile
  36091.     0S0E
  36092. Lotus Product
  36093. OBJECT
  36094. Lotus Product
  36095. OBJECT
  36096. Lotus Product
  36097. OBJECT
  36098. Lotus Product
  36099. OBJECT
  36100. '++LotusScript Development Environment:2:5:(Options):0:74
  36101. Option Public
  36102. '++LotusScript Development Environment:2:5:(Forward):0:1
  36103. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36104. O=Lotus Notes
  36105. O=Lotus Notes
  36106. PURSAFO
  36107. |.:#U
  36108. O=Lotus Notes
  36109. CN=Lotus Notes Template Development/O=Lotus Notes
  36110. PURSAFO
  36111. =GC65/?
  36112. WWS$D
  36113. .z|t6@
  36114. $TABLEFORMAT
  36115. $TITLE
  36116. $Index
  36117. $Formula
  36118. $FormulaClass
  36119. $VIEWFORMAT
  36120. $Comment
  36121. $WebFlags
  36122. $V5ACTIONS
  36123. $ACTIONS
  36124. $SCRIPTOBJ_12
  36125. $SCRIPTOBJ_13
  36126. $SCRIPTOBJ_14
  36127. $SCRIPTOBJ_17
  36128. $ViewGlobalScript
  36129. $ViewGlobalScript_O
  36130. DeliveredDate
  36131. PostedDate
  36132. PostedDateY
  36133. IsMailStationeryh
  36134. _ViewIcon
  36135. _ViewIcon
  36136. Importance
  36137. Importance
  36138. _ViewIcon
  36139. _ViewIcon
  36140. $TypeIcon
  36141.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  36142. SentBy
  36143. Principal
  36144. Principal
  36145.     1S2S5S6S8S10S
  36146. Attendees
  36147. RequiredAttendees
  36148. OptionalAttendees
  36149.     0R1S2S5S6S
  36150. DeliveredDate
  36151. SentBy
  36152. Attendees
  36153. Attendees
  36154. SendTo
  36155. SentBy
  36156. SendTo
  36157.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  36158.     0R1S2S8S
  36159.     0R1S2S15S16S
  36160.     0R1S2S5S6S8S14S18S
  36161.     0R1S2S5S6S8S14S18S
  36162. Person
  36163. X400FreeForm^
  36164.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  36165. Person2
  36166. Person
  36167. Person
  36168. Person
  36169. Person
  36170.     0R1S2S12S13S22S34S
  36171. Delivery Report
  36172. NonDelivery Report
  36173. Trace Report
  36174. Mail Router
  36175. Person2
  36176.     0R3S4S5S6S7S8S10S12S
  36177. DeliveredDate
  36178. DeliveredDate
  36179. PostedDate
  36180. PostedDate
  36181.     3S4S6S8S9S10S12S14S
  36182. _ViewIcon2h
  36183. _ViewIcon2
  36184. $ContentIconh
  36185. $ContentIcon
  36186. Froma
  36187.  pager 
  36188. SendToa
  36189.  pager 
  36190. message.wav
  36191. vmsg_hdr.wav
  36192. .wavG
  36193. .tifG
  36194. $ContentIconh
  36195. $ContentIcon
  36196.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  36197. NonDelivery Report
  36198. DELIVERY FAILURE: 
  36199. FailureReason
  36200. Delivery Report
  36201. DELIVERED: 
  36202. Subject
  36203. Return Receipt
  36204. RECEIVED: 
  36205. Subject
  36206. ReturnNonReceipt
  36207. NOT RECEIVED: 
  36208. Subject
  36209. Subject
  36210.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  36211. $93$102$68$106$105$74$Conflict
  36212. DeliveredDate
  36213. PostedDate
  36214. PostedDateY
  36215. IsMailStationeryh
  36216. _ViewIcon
  36217. _ViewIcon
  36218. Importance
  36219. Importance
  36220. _ViewIcon
  36221. _ViewIcon
  36222. $TypeIcon
  36223.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  36224. $102Who
  36225. SentBy
  36226. Principal
  36227. Principal
  36228.     1S2S5S6S8S10S
  36229. Attendees
  36230. RequiredAttendees
  36231. OptionalAttendees
  36232.     0R1S2S5S6S
  36233. DeliveredDate
  36234. SentBy
  36235. Attendees
  36236. Attendees
  36237. SendTo
  36238. SentBy
  36239. SendTo
  36240.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  36241.     0R1S2S8S
  36242.     0R1S2S15S16S
  36243.     0R1S2S5S6S8S14S18S
  36244.     0R1S2S5S6S8S14S18S
  36245. Person
  36246. X400FreeForm^
  36247.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  36248. Person2
  36249. Person
  36250. Person
  36251. Person
  36252. Person
  36253.     0R1S2S12S13S22S34S
  36254. Delivery Report
  36255. NonDelivery Report
  36256. Trace Report
  36257. Mail Router
  36258. Person2
  36259.     0R3S4S5S6S7S8S10S12S
  36260. $68Date
  36261. DeliveredDate
  36262. DeliveredDate
  36263. PostedDate
  36264. PostedDate
  36265.     3S4S6S8S9S10S12S14S$106Size
  36266. $105z
  36267. _ViewIcon2h
  36268. _ViewIcon2
  36269. $ContentIconh
  36270. $ContentIcon
  36271. Froma
  36272.  pager 
  36273. SendToa
  36274.  pager 
  36275. message.wav
  36276. vmsg_hdr.wav
  36277. .wavG
  36278. .tifG
  36279. $ContentIconh
  36280. $ContentIcon
  36281.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Subject
  36282. NonDelivery Report
  36283. DELIVERY FAILURE: 
  36284. FailureReason
  36285. Delivery Report
  36286. DELIVERED: 
  36287. Subject
  36288. Return Receipt
  36289. RECEIVED: 
  36290. Subject
  36291. ReturnNonReceipt
  36292. NOT RECEIVED: 
  36293. Subject
  36294. Subject
  36295.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  36296. Categori_zeS
  36297. _Move To Folder...
  36298. _Remove From Folder...
  36299. _Forward
  36300. _Edit Document
  36301. Permanently Remove6
  36302. ($PermanentDelete)
  36303.     0S0E
  36304. Restoret6
  36305. ($RestoreDocument)
  36306.     0S0E
  36307. Permanently Remove
  36308. document.view.deleteSelectedDocuments(true)    //true means do a hard delete
  36309. Restore 
  36310. document.view.undeleteSelectedDocuments()
  36311. Categori_ze
  36312. _Move To Folder...
  36313. _Remove From Folder...
  36314. _Forward
  36315. _Edit Document
  36316. Permanently Remove6
  36317. ($PermanentDelete)
  36318.     0S0E
  36319. Restore.6
  36320. ($RestoreDocument)
  36321.     0S0E
  36322. '++LotusScript Development Environment:2:5:(Options):0:74
  36323. Option Public
  36324. Option Explicit
  36325. '++LotusScript Development Environment:2:5:(Forward):0:1
  36326. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36327. Lotus Product
  36328. OBJECT
  36329. O=Lotus Notes
  36330. O=Lotus Notes
  36331. PURSAFO
  36332. |.:#U
  36333. O=Lotus Notes
  36334. CN=Lotus Notes Template Development/O=Lotus Notes
  36335. PURSAFO
  36336. "x<oJ
  36337. $HTMLDocumentStyles
  36338. $TITLE
  36339. $PublicAccess
  36340. $Index
  36341. $Formula
  36342. $FormulaClass
  36343. $VIEWFORMAT
  36344. $Comment
  36345. $WebFlags
  36346. $V5ACTIONS
  36347. $ACTIONS
  36348. $ViewGlobalScript
  36349. $ViewGlobalScript_O
  36350. $172N
  36351. DueStateh
  36352. DueState
  36353.     7S9S
  36354. DueState
  36355. Overdue
  36356. DueState
  36357. Future
  36358. DueState
  36359. Rejected
  36360. DueState
  36361. Complete
  36362. Current
  36363.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$186
  36364. $186l
  36365. AssignState
  36366. Importance
  36367. Importance
  36368. Importance
  36369.     4S6R7S8S10S12R18R24R30RSubjectSubjectTo do
  36370. Subject
  36371. Subject
  36372. DueDateTimeDue&
  36373. New...\Personal To Do
  36374. '++LotusScript Development Environment:2:5:(Options):0:74
  36375. Use "CSUIViewClass"
  36376. '++LotusScript Development Environment:2:5:(Forward):0:1
  36377. Declare Sub Click(Source As Button)
  36378. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36379. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36380. Private Sub BindEvents(Byval Objectname_ As String)
  36381. Static Source As BUTTON
  36382. Set Source = Bind(Objectname_)
  36383. On Event Click From Source Call Click
  36384. End Sub
  36385. '++LotusScript Development Environment:2:2:Click:1:12
  36386. Sub Click(Source As Button)
  36387.     Call ViewNewTask("1")
  36388. End Sub
  36389. act_csnew.GIF|act_CSNEWDOC
  36390. New...\Group To Do'++LotusScript Development Environment:2:5:(Options):0:74
  36391. Use "CSUIViewClass"
  36392. '++LotusScript Development Environment:2:5:(Forward):0:1
  36393. Declare Sub Click(Source As Button)
  36394. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36395. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36396. Private Sub BindEvents(Byval Objectname_ As String)
  36397. Static Source As BUTTON
  36398. Set Source = Bind(Objectname_)
  36399. On Event Click From Source Call Click
  36400. End Sub
  36401. '++LotusScript Development Environment:2:2:Click:1:12
  36402. Sub Click(Source As Button)
  36403.     Call ViewNewTask("2")
  36404. End Sub
  36405. act_csnew.GIF|act_CSNEWDOC
  36406. Categori_zeK
  36407. _Forward
  36408. _Edit Document
  36409. Send Docu_ment
  36410. _Move to Folder...
  36411. _Remove from Folder...
  36412. Delete
  36413. DueState
  36414. Task Not Completed
  36415. This Task is not yet completed, are you sure you want to delete it?
  36416.     3S4S5S6S7S8S10R21S23S29S
  36417. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  36418. Use "CSUIViewClass"
  36419. '++LotusScript Development Environment:2:5:(Forward):0:1
  36420. Declare Sub Click(Source As Button)
  36421. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36422. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36423. Private Sub BindEvents(Byval Objectname_ As String)
  36424. Static Source As BUTTON
  36425. Set Source = Bind(Objectname_)
  36426. On Event Click From Source Call Click
  36427. End Sub
  36428. '++LotusScript Development Environment:2:2:Click:1:12
  36429. Sub Click(Source As Button)
  36430.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  36431. End Sub
  36432. act_csowneractions.GIF|act_CSOWNERACTIONS?
  36433. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  36434. Use "CSUIViewClass"
  36435. '++LotusScript Development Environment:2:5:(Forward):0:1
  36436. Declare Sub Click(Source As Button)
  36437. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36438. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36439. Private Sub BindEvents(Byval Objectname_ As String)
  36440. Static Source As BUTTON
  36441. Set Source = Bind(Objectname_)
  36442. On Event Click From Source Call Click
  36443. End Sub
  36444. '++LotusScript Development Environment:2:2:Click:1:12
  36445. Sub Click(Source As Button)
  36446.     Call ProcessViewCommand(ACTION_CANCEL)
  36447. End Sub
  36448. act_csowneractions.GIF|act_CSOWNERACTIONS?
  36449. Owner Actions\Confirm
  36450. '++LotusScript Development Environment:2:5:(Options):0:74
  36451. Use "CSUIViewClass"
  36452. '++LotusScript Development Environment:2:5:(Forward):0:1
  36453. Declare Sub Click(Source As Button)
  36454. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36455. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36456. Private Sub BindEvents(Byval Objectname_ As String)
  36457. Static Source As BUTTON
  36458. Set Source = Bind(Objectname_)
  36459. On Event Click From Source Call Click
  36460. End Sub
  36461. '++LotusScript Development Environment:2:2:Click:1:12
  36462. Sub Click(Source As Button)
  36463.     Call ProcessViewCommand(ACTION_CONFIRM)
  36464. End Sub
  36465. act_csowneractions.GIF|act_CSOWNERACTIONS?
  36466. Owner Actions\View Participant Status
  36467. '++LotusScript Development Environment:2:5:(Options):0:74
  36468. Use "CSUIViewClass"
  36469. '++LotusScript Development Environment:2:5:(Forward):0:1
  36470. Declare Sub Click(Source As Button)
  36471. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36472. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36473. Private Sub BindEvents(Byval Objectname_ As String)
  36474. Static Source As BUTTON
  36475. Set Source = Bind(Objectname_)
  36476. On Event Click From Source Call Click
  36477. End Sub
  36478. '++LotusScript Development Environment:2:2:Click:1:12
  36479. Sub Click(Source As Button)
  36480.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  36481. End Sub
  36482. act_csowneractions.GIF|act_CSOWNERACTIONS?
  36483. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  36484. Use "CSUIViewClass"
  36485. '++LotusScript Development Environment:2:5:(Forward):0:1
  36486. Declare Sub Click(Source As Button)
  36487. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36488. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36489. Private Sub BindEvents(Byval Objectname_ As String)
  36490. Static Source As BUTTON
  36491. Set Source = Bind(Objectname_)
  36492. On Event Click From Source Call Click
  36493. End Sub
  36494. '++LotusScript Development Environment:2:2:Click:1:12
  36495. Sub Click(Source As Button)
  36496.     Call ProcessViewCommand(ACTION_SENDMEMO)
  36497. End Sub
  36498. act_csowneractions.GIF|act_CSOWNERACTIONS?
  36499. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  36500. Use "CSUIViewClass"
  36501. '++LotusScript Development Environment:2:5:(Forward):0:1
  36502. Declare Sub Click(Source As Button)
  36503. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36504. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36505. Private Sub BindEvents(Byval Objectname_ As String)
  36506. Static Source As BUTTON
  36507. Set Source = Bind(Objectname_)
  36508. On Event Click From Source Call Click
  36509. End Sub
  36510. '++LotusScript Development Environment:2:2:Click:1:12
  36511. Sub Click(Source As Button)
  36512.     Call ProcessViewCommand(ACTION_ACCEPT)
  36513. End Sub
  36514. act_participantactions.GIF|act_CSPARTACTIONS
  36515. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  36516. Use "CSUIViewClass"
  36517. '++LotusScript Development Environment:2:5:(Forward):0:1
  36518. Declare Sub Click(Source As Button)
  36519. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36520. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36521. Private Sub BindEvents(Byval Objectname_ As String)
  36522. Static Source As BUTTON
  36523. Set Source = Bind(Objectname_)
  36524. On Event Click From Source Call Click
  36525. End Sub
  36526. '++LotusScript Development Environment:2:2:Click:1:12
  36527. Sub Click(Source As Button)
  36528.     Call ProcessViewCommand(ACTION_DECLINE)
  36529. End Sub
  36530. act_participantactions.GIF|act_CSPARTACTIONS
  36531. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  36532. Use "CSUIViewClass"
  36533. '++LotusScript Development Environment:2:5:(Forward):0:1
  36534. Declare Sub Click(Source As Button)
  36535. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36536. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36537. Private Sub BindEvents(Byval Objectname_ As String)
  36538. Static Source As BUTTON
  36539. Set Source = Bind(Objectname_)
  36540. On Event Click From Source Call Click
  36541. End Sub
  36542. '++LotusScript Development Environment:2:2:Click:1:12
  36543. Sub Click(Source As Button)
  36544.     Call ProcessViewCommand(ACTION_DELEGATE)
  36545. End Sub
  36546. act_participantactions.GIF|act_CSPARTACTIONS
  36547. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  36548. Use "CSUIViewClass"
  36549. '++LotusScript Development Environment:2:5:(Forward):0:1
  36550. Declare Sub Click(Source As Button)
  36551. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36552. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36553. Private Sub BindEvents(Byval Objectname_ As String)
  36554. Static Source As BUTTON
  36555. Set Source = Bind(Objectname_)
  36556. On Event Click From Source Call Click
  36557. End Sub
  36558. '++LotusScript Development Environment:2:2:Click:1:12
  36559. Sub Click(Source As Button)
  36560.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  36561. End Sub
  36562. act_participantactions.GIF|act_CSPARTACTIONS
  36563. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  36564. Use "CommonUI"
  36565. '++LotusScript Development Environment:2:5:(Forward):0:1
  36566. Declare Sub Click(Source As Button)
  36567. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36568. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36569. Private Sub BindEvents(Byval Objectname_ As String)
  36570. Static Source As BUTTON
  36571. Set Source = Bind(Objectname_)
  36572. On Event Click From Source Call Click
  36573. End Sub
  36574. '++LotusScript Development Environment:2:2:Click:1:12
  36575. Sub Click(Source As Button)
  36576.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36577. End Sub
  36578. act_COPYINTO.GIF|act_COPYINTO?
  36579. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  36580. Use "CommonUI"
  36581. '++LotusScript Development Environment:2:5:(Forward):0:1
  36582. Declare Sub Click(Source As Button)
  36583. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36584. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36585. Private Sub BindEvents(Byval Objectname_ As String)
  36586. Static Source As BUTTON
  36587. Set Source = Bind(Objectname_)
  36588. On Event Click From Source Call Click
  36589. End Sub
  36590. '++LotusScript Development Environment:2:2:Click:1:12
  36591. Sub Click(Source As Button)
  36592.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36593. End Sub
  36594. act_COPYINTO.GIF|act_COPYINTO?
  36595. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  36596. Use "CommonUI"
  36597. '++LotusScript Development Environment:2:5:(Forward):0:1
  36598. Declare Sub Click(Source As Button)
  36599. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36600. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36601. Private Sub BindEvents(Byval Objectname_ As String)
  36602.     Static Source As BUTTON
  36603.     Set Source = Bind(Objectname_)
  36604.     On Event Click From Source Call Click
  36605. End Sub
  36606. '++LotusScript Development Environment:2:2:Click:1:12
  36607. Sub Click(Source As Button)
  36608.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36609. End Sub
  36610. act_COPYINTO.GIF|act_COPYINTO?
  36611. New...\Personal To Do
  36612. '++LotusScript Development Environment:2:5:(Options):0:74
  36613. Use "CSUIViewClass"
  36614. '++LotusScript Development Environment:2:5:(Forward):0:1
  36615. Declare Sub Click(Source As Button)
  36616. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36617. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36618. Private Sub BindEvents(Byval Objectname_ As String)
  36619. Static Source As BUTTON
  36620. Set Source = Bind(Objectname_)
  36621. On Event Click From Source Call Click
  36622. End Sub
  36623. '++LotusScript Development Environment:2:2:Click:1:12
  36624. Sub Click(Source As Button)
  36625.     Call ViewNewTask("1")
  36626. End Sub
  36627. New...\Group To Do'++LotusScript Development Environment:2:5:(Options):0:74
  36628. Use "CSUIViewClass"
  36629. '++LotusScript Development Environment:2:5:(Forward):0:1
  36630. Declare Sub Click(Source As Button)
  36631. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36632. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36633. Private Sub BindEvents(Byval Objectname_ As String)
  36634. Static Source As BUTTON
  36635. Set Source = Bind(Objectname_)
  36636. On Event Click From Source Call Click
  36637. End Sub
  36638. '++LotusScript Development Environment:2:2:Click:1:12
  36639. Sub Click(Source As Button)
  36640.     Call ViewNewTask("2")
  36641. End Sub
  36642. Categori_zeK
  36643. _Forward
  36644. _Edit Document
  36645. Send Docu_ment
  36646. _Move to Folder...
  36647. _Remove from Folder...
  36648. Delete
  36649. DueState
  36650. Task Not Completed
  36651. This Task is not yet completed, are you sure you want to delete it?
  36652.     3S4S5S6S7S8S10R21S23S29S
  36653. Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
  36654. Use "CSUIViewClass"
  36655. '++LotusScript Development Environment:2:5:(Forward):0:1
  36656. Declare Sub Click(Source As Button)
  36657. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36658. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36659. Private Sub BindEvents(Byval Objectname_ As String)
  36660. Static Source As BUTTON
  36661. Set Source = Bind(Objectname_)
  36662. On Event Click From Source Call Click
  36663. End Sub
  36664. '++LotusScript Development Environment:2:2:Click:1:12
  36665. Sub Click(Source As Button)
  36666.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  36667. End Sub
  36668. Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
  36669. Use "CSUIViewClass"
  36670. '++LotusScript Development Environment:2:5:(Forward):0:1
  36671. Declare Sub Click(Source As Button)
  36672. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36673. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36674. Private Sub BindEvents(Byval Objectname_ As String)
  36675. Static Source As BUTTON
  36676. Set Source = Bind(Objectname_)
  36677. On Event Click From Source Call Click
  36678. End Sub
  36679. '++LotusScript Development Environment:2:2:Click:1:12
  36680. Sub Click(Source As Button)
  36681.     Call ProcessViewCommand(ACTION_CANCEL)
  36682. End Sub
  36683. Owner Actions\Confirm
  36684. '++LotusScript Development Environment:2:5:(Options):0:74
  36685. Use "CSUIViewClass"
  36686. '++LotusScript Development Environment:2:5:(Forward):0:1
  36687. Declare Sub Click(Source As Button)
  36688. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36689. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36690. Private Sub BindEvents(Byval Objectname_ As String)
  36691. Static Source As BUTTON
  36692. Set Source = Bind(Objectname_)
  36693. On Event Click From Source Call Click
  36694. End Sub
  36695. '++LotusScript Development Environment:2:2:Click:1:12
  36696. Sub Click(Source As Button)
  36697.     Call ProcessViewCommand(ACTION_CONFIRM)
  36698. End Sub
  36699. Owner Actions\View Participant Status
  36700. '++LotusScript Development Environment:2:5:(Options):0:74
  36701. Use "CSUIViewClass"
  36702. '++LotusScript Development Environment:2:5:(Forward):0:1
  36703. Declare Sub Click(Source As Button)
  36704. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36705. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36706. Private Sub BindEvents(Byval Objectname_ As String)
  36707. Static Source As BUTTON
  36708. Set Source = Bind(Objectname_)
  36709. On Event Click From Source Call Click
  36710. End Sub
  36711. '++LotusScript Development Environment:2:2:Click:1:12
  36712. Sub Click(Source As Button)
  36713.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  36714. End Sub
  36715. Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
  36716. Use "CSUIViewClass"
  36717. '++LotusScript Development Environment:2:5:(Forward):0:1
  36718. Declare Sub Click(Source As Button)
  36719. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36720. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36721. Private Sub BindEvents(Byval Objectname_ As String)
  36722. Static Source As BUTTON
  36723. Set Source = Bind(Objectname_)
  36724. On Event Click From Source Call Click
  36725. End Sub
  36726. '++LotusScript Development Environment:2:2:Click:1:12
  36727. Sub Click(Source As Button)
  36728.     Call ProcessViewCommand(ACTION_SENDMEMO)
  36729. End Sub
  36730. Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
  36731. Use "CSUIViewClass"
  36732. '++LotusScript Development Environment:2:5:(Forward):0:1
  36733. Declare Sub Click(Source As Button)
  36734. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36735. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36736. Private Sub BindEvents(Byval Objectname_ As String)
  36737. Static Source As BUTTON
  36738. Set Source = Bind(Objectname_)
  36739. On Event Click From Source Call Click
  36740. End Sub
  36741. '++LotusScript Development Environment:2:2:Click:1:12
  36742. Sub Click(Source As Button)
  36743.     Call ProcessViewCommand(ACTION_ACCEPT)
  36744. End Sub
  36745. Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
  36746. Use "CSUIViewClass"
  36747. '++LotusScript Development Environment:2:5:(Forward):0:1
  36748. Declare Sub Click(Source As Button)
  36749. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36750. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36751. Private Sub BindEvents(Byval Objectname_ As String)
  36752. Static Source As BUTTON
  36753. Set Source = Bind(Objectname_)
  36754. On Event Click From Source Call Click
  36755. End Sub
  36756. '++LotusScript Development Environment:2:2:Click:1:12
  36757. Sub Click(Source As Button)
  36758.     Call ProcessViewCommand(ACTION_DECLINE)
  36759. End Sub
  36760. Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
  36761. Use "CSUIViewClass"
  36762. '++LotusScript Development Environment:2:5:(Forward):0:1
  36763. Declare Sub Click(Source As Button)
  36764. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36765. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36766. Private Sub BindEvents(Byval Objectname_ As String)
  36767. Static Source As BUTTON
  36768. Set Source = Bind(Objectname_)
  36769. On Event Click From Source Call Click
  36770. End Sub
  36771. '++LotusScript Development Environment:2:2:Click:1:12
  36772. Sub Click(Source As Button)
  36773.     Call ProcessViewCommand(ACTION_DELEGATE)
  36774. End Sub
  36775. Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
  36776. Use "CSUIViewClass"
  36777. '++LotusScript Development Environment:2:5:(Forward):0:1
  36778. Declare Sub Click(Source As Button)
  36779. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36780. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36781. Private Sub BindEvents(Byval Objectname_ As String)
  36782. Static Source As BUTTON
  36783. Set Source = Bind(Objectname_)
  36784. On Event Click From Source Call Click
  36785. End Sub
  36786. '++LotusScript Development Environment:2:2:Click:1:12
  36787. Sub Click(Source As Button)
  36788.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  36789. End Sub
  36790. Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
  36791. Use "CommonUI"
  36792. '++LotusScript Development Environment:2:5:(Forward):0:1
  36793. Declare Sub Click(Source As Button)
  36794. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36795. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36796. Private Sub BindEvents(Byval Objectname_ As String)
  36797. Static Source As BUTTON
  36798. Set Source = Bind(Objectname_)
  36799. On Event Click From Source Call Click
  36800. End Sub
  36801. '++LotusScript Development Environment:2:2:Click:1:12
  36802. Sub Click(Source As Button)
  36803.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36804. End Sub
  36805. Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
  36806. Use "CommonUI"
  36807. '++LotusScript Development Environment:2:5:(Forward):0:1
  36808. Declare Sub Click(Source As Button)
  36809. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36810. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36811. Private Sub BindEvents(Byval Objectname_ As String)
  36812. Static Source As BUTTON
  36813. Set Source = Bind(Objectname_)
  36814. On Event Click From Source Call Click
  36815. End Sub
  36816. '++LotusScript Development Environment:2:2:Click:1:12
  36817. Sub Click(Source As Button)
  36818.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36819. End Sub
  36820. Copy into\New Todo'++LotusScript Development Environment:2:5:(Options):0:74
  36821. Use "CommonUI"
  36822. '++LotusScript Development Environment:2:5:(Forward):0:1
  36823. Declare Sub Click(Source As Button)
  36824. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36825. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36826. Private Sub BindEvents(Byval Objectname_ As String)
  36827.     Static Source As BUTTON
  36828.     Set Source = Bind(Objectname_)
  36829.     On Event Click From Source Call Click
  36830. End Sub
  36831. '++LotusScript Development Environment:2:2:Click:1:12
  36832. Sub Click(Source As Button)
  36833.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36834. End Sub
  36835. Lotus ProductLP
  36836. S+(SI
  36837. ^$U+(SJ
  36838. ^4U+(SJ
  36839. l#K4U-
  36840. m#K4U-
  36841. Lotus ProductLP
  36842. S+(SI
  36843. ^$U+(SJ
  36844. ^4U+(SJ
  36845. l#K4U-
  36846. m#K4U-
  36847. Lotus ProductLP
  36848. S+(SI
  36849. ^$U+(SJ
  36850. ^4U+(SJ
  36851. l#K4U-
  36852. m#K4U-
  36853. Lotus ProductLP
  36854. S+(SI
  36855. ^$U+(SJ
  36856. ^4U+(SJ
  36857. l#K4U-
  36858. m#K4U-
  36859. Lotus ProductLP
  36860. S+(SI
  36861. ^$U+(SJ
  36862. ^4U+(SJ
  36863. l#K4U-
  36864. m#K4U-
  36865. Lotus ProductLP
  36866. S+(SI
  36867. ^$U+(SJ
  36868. ^4U+(SJ
  36869. l#K4U-
  36870. m#K4U-
  36871. Lotus ProductLP
  36872. S+(SI
  36873. ^$U+(SJ
  36874. ^4U+(SJ
  36875. l#K4U-
  36876. m#K4U-
  36877. Lotus ProductLP
  36878. S+(SI
  36879. ^$U+(SJ
  36880. ^4U+(SJ
  36881. l#K4U-
  36882. m#K4U-
  36883. Lotus Product8    +V0.0
  36884.     K(    -
  36885.     K8    -
  36886. Lotus Product
  36887. OBJECT
  36888. Lotus Product8    +V0.0
  36889.     K(    -
  36890.     K8    -
  36891. Lotus Product
  36892. OBJECT
  36893. #,`    #
  36894. Lotus Product
  36895. OBJECT
  36896. #,`    #
  36897. Lotus Product
  36898. OBJECT
  36899. #,`    #
  36900. '++LotusScript Development Environment:2:5:(Options):0:74
  36901. Option Public
  36902. Option Explicit
  36903. '++LotusScript Development Environment:2:5:(Forward):0:1
  36904. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36905. O=Lotus Notes
  36906. O=Lotus Notes
  36907. PURSAFO
  36908. |.:#U
  36909. O=Lotus Notes
  36910. CN=Lotus Notes Template Development/O=Lotus Notes
  36911. PURSAFO
  36912. $TABLEFORMAT
  36913. $HTMLDocumentStyles
  36914. $TITLE
  36915. $PublicAccess
  36916. $Index
  36917. $Formula
  36918. $FormulaClass
  36919. $VIEWFORMAT
  36920. $AppHelpFormula
  36921. $Comment
  36922. $WebFlags
  36923. $V5ACTIONS
  36924. $ACTIONS
  36925. $SCRIPTOBJ_0
  36926. $SCRIPTOBJ_1
  36927. $SCRIPTOBJ_9
  36928. $SCRIPTOBJ_10
  36929. $SCRIPTOBJ_11
  36930. $SCRIPTOBJ_12
  36931. $SCRIPTOBJ_13
  36932. $SCRIPTOBJ_14
  36933. $SCRIPTOBJ_15
  36934. $SCRIPTOBJ_16
  36935. $SCRIPTOBJ_17
  36936. $SCRIPTOBJ_18
  36937. $SCRIPTOBJ_19
  36938. $SCRIPTOBJ_20
  36939. $ViewGlobalScript
  36940. DeliveredDate
  36941. PostedDate
  36942. PostedDateY
  36943. IsMailStationeryh
  36944. _ViewIcon
  36945. _ViewIcon
  36946. Importance
  36947. Importance
  36948. _ViewIcon
  36949. _ViewIcon
  36950. $TypeIcon
  36951.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  36952. SentBy
  36953. Principal
  36954. Principal
  36955.     1S2S5S6S8S10S
  36956. DeliveredDate
  36957. SendTo
  36958. SentBy
  36959. SendTo
  36960.     0R1S2S5S6S7S8S9S10S12S14S18S
  36961.     0R1S2S8S
  36962.     0R1S2S15S16S
  36963. DeliveredDate
  36964. SendTo
  36965. SentBy
  36966. SendTo
  36967.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  36968. DeliveredDate
  36969. SendTo
  36970. SentBy
  36971. SendTo
  36972.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  36973. Person
  36974. X400FreeForm^
  36975.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  36976. Person2
  36977. Person
  36978. Person
  36979. Person
  36980. Person
  36981.     0R1S2S12S13S22S34S
  36982. Delivery Report
  36983. NonDelivery Report
  36984. Trace Report
  36985. Mail Router
  36986. Person2
  36987.     0R3S4S5S6S7S8S10S12S
  36988. DeliveredDate
  36989. DeliveredDate
  36990. PostedDate
  36991. PostedDate
  36992.     3S4S6S8S9S10S12S14S
  36993. $ContentIconh
  36994. $ContentIcon
  36995. Froma
  36996.  pager 
  36997. SendToa
  36998.  pager 
  36999. message.wav
  37000. vmsg_hdr.wav
  37001. .wavG
  37002. .tifG
  37003. $ContentIconh
  37004. $ContentIcon
  37005.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  37006. IsMailStationeryh
  37007. MailStationeryName
  37008. NonDelivery Report
  37009. DELIVERY FAILURE: 
  37010. FailureReason
  37011. Delivery Report
  37012. DELIVERED: 
  37013. Subject
  37014. Return Receipt
  37015. RECEIVED: 
  37016. Subject
  37017. ReturnNonReceipt
  37018. NOT RECEIVED: 
  37019. Subject
  37020. Subject
  37021.     7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
  37022. Form$79$87$64$80$69$Conflict
  37023. Form$79
  37024. DeliveredDate
  37025. PostedDate
  37026. PostedDateY
  37027. IsMailStationeryh
  37028. _ViewIcon
  37029. _ViewIcon
  37030. Importance
  37031. Importance
  37032. _ViewIcon
  37033. _ViewIcon
  37034. $TypeIcon
  37035.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  37036. $87Who>
  37037. SentBy
  37038. Principal
  37039. Principal
  37040.     1S2S5S6S8S10S
  37041. DeliveredDate
  37042. SendTo
  37043. SentBy
  37044. SendTo
  37045.     0R1S2S5S6S7S8S9S10S12S14S18S
  37046.     0R1S2S8S
  37047.     0R1S2S15S16S
  37048. DeliveredDate
  37049. SendTo
  37050. SentBy
  37051. SendTo
  37052.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  37053. DeliveredDate
  37054. SendTo
  37055. SentBy
  37056. SendTo
  37057.     0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
  37058. Person
  37059. X400FreeForm^
  37060.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  37061. Person2
  37062. Person
  37063. Person
  37064. Person
  37065. Person
  37066.     0R1S2S12S13S22S34S
  37067. Delivery Report
  37068. NonDelivery Report
  37069. Trace Report
  37070. Mail Router
  37071. Person2
  37072.     0R3S4S5S6S7S8S10S12S
  37073. $64Date
  37074. DeliveredDate
  37075. DeliveredDate
  37076. PostedDate
  37077. PostedDate
  37078.     3S4S6S8S9S10S12S14S$80F
  37079. $ContentIconh
  37080. $ContentIcon
  37081. Froma
  37082.  pager 
  37083. SendToa
  37084.  pager 
  37085. message.wav
  37086. vmsg_hdr.wav
  37087. .wavG
  37088. .tifG
  37089. $ContentIconh
  37090. $ContentIcon
  37091.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$69Subject
  37092. IsMailStationeryh
  37093. MailStationeryName
  37094. NonDelivery Report
  37095. DELIVERY FAILURE: 
  37096. FailureReason
  37097. Delivery Report
  37098. DELIVERED: 
  37099. Subject
  37100. Return Receipt
  37101. RECEIVED: 
  37102. Subject
  37103. ReturnNonReceipt
  37104. NOT RECEIVED: 
  37105. Subject
  37106. Subject
  37107.     7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
  37108. Categori_zeK
  37109. _Edit Document
  37110. Send Docu_ment
  37111. _Forward
  37112. Empty TrashK 
  37113.     0S0E
  37114. _Move to Folder...
  37115. _Remove From Trash
  37116. Categori_zeK
  37117. _Edit Document
  37118. Send Docu_ment
  37119. _Forward
  37120. Empty TrashK 
  37121.     0S0E
  37122. _Move to Folder...
  37123. _Remove From Trash
  37124. >|'++LotusScript Development Environment:2:5:(Options):0:74
  37125. Option Public
  37126. '++LotusScript Development Environment:2:5:(Forward):0:1
  37127. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37128. O=Lotus Notes
  37129. O=Lotus Notes
  37130. PURSAFO
  37131. |.:#U
  37132. O=Lotus Notes
  37133. CN=Lotus Notes Template Development/O=Lotus Notes
  37134. PURSAFO
  37135. $TITLE
  37136. $PublicAccess
  37137. $Name
  37138. $Index
  37139. $Formula
  37140. $FormulaClass
  37141. $VIEWFORMAT
  37142. $Comment
  37143. $WebFlags
  37144. $V5ACTIONS
  37145. $ACTIONS
  37146. $ViewGlobalScript
  37147. $ViewGlobalScript_O
  37148.  $53Unique ID
  37149. $47Date^
  37150. DeliveredDate
  37151. DeliveredDate
  37152. PostedDate
  37153. PostedDatei
  37154. $48From`
  37155. FromDomainh
  37156. FromDomain"
  37157. $50PriorityD
  37158. DeliveryPriority
  37159. DeliveryPriority
  37160. $51Type
  37161. MessageType
  37162. MessageType
  37163. Delivery Report
  37164. VIM_DLR
  37165. NonDelivery Report
  37166. VIM_NDLR
  37167. Return Receipt
  37168. VIM_RTRC
  37169. VIM_MAILJ    
  37170. $52Subject
  37171. Subject
  37172. Categori_ze
  37173. _Edit Document
  37174. Send Docu_ment
  37175. _Forward
  37176. O=Lotus Notes
  37177. O=Lotus Notes
  37178. PURSAFO
  37179. |.:#U
  37180. O=Lotus Notes
  37181. CN=Lotus Notes Template Development/O=Lotus Notes
  37182. PURSAFO
  37183. $TABLEFORMAT
  37184. $Author
  37185. $TITLE
  37186. $Index
  37187. $Formula
  37188. $FormulaClass
  37189. $VIEWFORMAT
  37190. $Comment
  37191. $ACTIONS
  37192.  $53Draft4
  37193. PostedDateY
  37194. VIMSEL_DRAFT
  37195. $47Date^
  37196. DeliveredDate
  37197. DeliveredDate
  37198. PostedDate
  37199. PostedDatei
  37200. $48From`
  37201. FromDomainh
  37202. FromDomain"
  37203. $50PriorityD
  37204. DeliveryPriority
  37205. DeliveryPriority
  37206. $51Type
  37207. MessageType
  37208. MessageType
  37209. Delivery Report
  37210. VIM_DLR
  37211. NonDelivery Report
  37212. VIM_NDLR
  37213. Return Receipt
  37214. VIM_RTRC
  37215. VIM_MAILJ    
  37216. $52Subject
  37217. Subject
  37218. Categori_ze
  37219. _Edit Document
  37220. Send Docu_ment
  37221. _Forward
  37222. O=Lotus Notes
  37223. O=Lotus Notes
  37224. PURSAFO
  37225. |.:#U
  37226. O=Lotus Notes
  37227. CN=Lotus Notes Template Development/O=Lotus Notes
  37228. PURSAFO
  37229. -m+,"
  37230. $TABLEFORMAT
  37231. $Author
  37232. $TITLE
  37233. $Index
  37234. $Formula
  37235. $FormulaClass
  37236. $VIEWFORMAT
  37237. $Comment
  37238. $ACTIONS
  37239.  $53Categoryj
  37240. Recipients
  37241. Categories
  37242. Categoriesb
  37243. (No Category)
  37244. $47Date^
  37245. DeliveredDate
  37246. DeliveredDate
  37247. PostedDate
  37248. PostedDatei
  37249. $48From`
  37250. FromDomainh
  37251. FromDomain"
  37252. $50PriorityD
  37253. DeliveryPriority
  37254. DeliveryPriority
  37255. $51Type
  37256. MessageType
  37257. MessageType
  37258. Delivery Report
  37259. VIM_DLR
  37260. NonDelivery Report
  37261. VIM_NDLR
  37262. Return Receipt
  37263. VIM_RTRC
  37264. VIM_MAILJ    
  37265. $52Subject
  37266. Subject
  37267. Categori_ze
  37268. _Edit Document
  37269. Send Docu_ment
  37270. _Forward
  37271. O=Lotus Notes
  37272. O=Lotus Notes
  37273. PURSAFO
  37274. |.:#U
  37275. O=Lotus Notes
  37276. CN=Lotus Notes Template Development/O=Lotus Notes
  37277. PURSAFO
  37278. $TABLEFORMAT
  37279. $Author
  37280. $TITLE
  37281. $Index
  37282. $Formula
  37283. $FormulaClass
  37284. $VIEWFORMAT
  37285. $Comment
  37286. $ACTIONS
  37287. +MQ O
  37288. uwr|7
  37289. I,G*i
  37290. rtrQU
  37291. jT>DEb
  37292. tx],l
  37293. T'_fmPk
  37294. lWuBwL
  37295. bBK2T
  37296.  $53Keywordz
  37297. Recipients
  37298. SenderCategorized
  37299. SenderCategorized
  37300. (No Category)
  37301. $47Date^
  37302. DeliveredDate
  37303. DeliveredDate
  37304. PostedDate
  37305. PostedDatei
  37306. $48From`
  37307. FromDomainh
  37308. FromDomain"
  37309. $50PriorityD
  37310. DeliveryPriority
  37311. DeliveryPriority
  37312. $51Type
  37313. MessageType
  37314. MessageType
  37315. Delivery Report
  37316. VIM_DLR
  37317. NonDelivery Report
  37318. VIM_NDLR
  37319. Return Receipt
  37320. VIM_RTRC
  37321. VIM_MAILJ    
  37322. $52Subject
  37323. Subject
  37324. Categori_ze
  37325. _Edit Document
  37326. Send Docu_ment
  37327. _Forward
  37328. O=Lotus Notes
  37329. O=Lotus Notes
  37330. PURSAFO
  37331. |.:#U
  37332. O=Lotus Notes
  37333. CN=Lotus Notes Template Development/O=Lotus Notes
  37334. PURSAFO
  37335. _,Nb~
  37336. $TABLEFORMAT
  37337. $Author
  37338. $TITLE
  37339. $Index
  37340. $Formula
  37341. $FormulaClass
  37342. $VIEWFORMAT
  37343. $Comment
  37344. $ACTIONS
  37345. $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)}Brian Lambert($VIM98)/P=240
  37346. MessageType
  37347. MessageType
  37348. Delivery Report
  37349. VIM_DLR
  37350. NonDelivery Report
  37351. VIM_NDLR
  37352. Return Receipt
  37353. VIM_RTRC
  37354. VIM_MAILJ    
  37355. DeliveredDate
  37356. DeliveredDate
  37357. PostedDate
  37358. PostedDatei
  37359. FromDomainh
  37360. FromDomain"
  37361. DeliveryPriority
  37362. DeliveryPriority
  37363. MessageType
  37364. MessageType
  37365. Delivery Report
  37366. VIM_DLR
  37367. NonDelivery Report
  37368. VIM_NDLR
  37369. Return Receipt
  37370. VIM_RTRC
  37371. VIM_MAILJ    
  37372. Subject
  37373. $45$47$48$50$51$52$Conflict
  37374. $MessageType
  37375.     L1S1$
  37376. $45$47$48
  37377. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
  37378. =_Calendar Tools \ Import Holidays|ImportHolidays
  37379. This Agent requires build 162 & Server with a r5 Public NAB, you must resave all master holiday documents if created with 161.1E41fL3
  37380. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  37381. C29FB8414250BFCF038F51072FC347194AF5CB9E208931A2E889B51112269D913
  37382. _Document Memo$DocMemoWord.Document$Word MemoWordPro.Document$Word Pro MemoAlternateMemow
  37383. BodyOLEBodySubjectEnterBlindCopyToEnterCopyToEnterSendTo$OLEObjRichTextField$OLEObjFieldMIMEFormatSMTPEncoding$KeepPrivateReturnReceiptDeliveryPriorityDeliveryReportImportanceEncryptSignDefaultMailSaveOptionsLogoAltFromFrom
  37384. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
  37385. _Special\Link MessageBookmark
  37386. BodyDueDateTimeFlowStatusInheritedSubjectInheritedDBTitleSubjectBlindCopyToCopyToSendToPath_Info$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
  37387. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  37388. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
  37389. _Special\Phone MessagePhone Messagew
  37390. SubjectBodyPhoneReasonFAXNumberPhoneNumberCompanyNamePhoneCallerBlindCopyToCopyToSendTo$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
  37391. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  37392. $Modified
  37393.     1S2S3S
  37394. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE
  37395. $Flags
  37396.     0SL1S4S5S3724
  37397. $TITLE
  37398. CN=Ryan Jansen/O=Iris################
  37399. ##########################################################
  37400. ##########################################################
  37401. ##########################################################
  37402. ##########################################################
  37403. ##########################################################
  37404. ##########################################################
  37405. ##########################################################
  37406. ##########################################################
  37407. ##########################################################
  37408. ##########################################################
  37409. ##########################################################
  37410. ##########################################################
  37411. ##########################################################
  37412. ##########################################################
  37413. ##########################################################
  37414. ##########################################################
  37415. ##########################################################
  37416. ##########################################################
  37417. ##########################################################
  37418. ##########################################################
  37419. ##########################################################
  37420. ##########################################################
  37421. ##########################################################
  37422. ##########################################################
  37423. ##########################################################
  37424. ##########################################################
  37425. ##########################################################
  37426. ##########################################################
  37427. ##########################################################
  37428. ##########################################################
  37429. ##########################################################
  37430. ##########################################################
  37431. ##########################################################
  37432. ##########################################################
  37433. ##########################################################
  37434. ##########################################################
  37435. ##########################################################
  37436. ##########################################################
  37437. ##########################################################
  37438. ##########################################################
  37439. ##########################################################
  37440. ##########################################################
  37441. ##########################################################
  37442. ##########################################################
  37443. ##########################################################
  37444. ##########################################################
  37445. ##########################################################
  37446. ##########################################################
  37447. ##########################################################
  37448. ##########################################################
  37449. ##########################################################
  37450. ##########################################################
  37451. ##########################################################
  37452. ##########################################################
  37453. ##########################################################
  37454. ##########################################################
  37455. ##########################################################
  37456. ##########################################################
  37457. ##########################################################
  37458. ##########################################################
  37459. ##########################################################
  37460. ##########################################################
  37461. ##########################################################
  37462. ##########################################################
  37463. ##########################################################
  37464. ##########################################################
  37465. ##########################################################
  37466. ##########################################################
  37467. ##########################################################
  37468. ##########################################################
  37469. ##########################################################
  37470. ##########################################################
  37471. ##########################################################
  37472. ##########################################################
  37473. ##########################################################
  37474. ##########################################################
  37475. ##########################################################
  37476. ##########################################################
  37477. ##########################################################
  37478. ##########################################################
  37479. ##########################################################
  37480. ##########################################################
  37481. ##########################################################
  37482. ##########################################################
  37483. ##########################################################
  37484. ##########################################################
  37485. ##########################################################
  37486. ##########################################################
  37487. ##########################################################
  37488. ##########################################################
  37489. ##########################################################
  37490. ##########################################################
  37491. ##########################################################
  37492. ##########################################################
  37493. ##########################################################
  37494. ##########################################################
  37495. ##########################################################
  37496. ##########################################################
  37497. ##########################################################
  37498. ##########################################################
  37499. ##########################################################
  37500. ##########################################################
  37501. ##########################################################
  37502. ##########################################################
  37503. ##########################################################
  37504. ##########################################################
  37505. ##########################################################
  37506. ##########################################################
  37507. ##########################################################
  37508. ##########################################################
  37509. ##########################################################
  37510. ##########################################################
  37511. ##########################################################
  37512. ##########################################################
  37513. ##########################################################
  37514. ##########################################################
  37515. ##########################################################
  37516. ##########################################################
  37517. ##########################################################
  37518. ##########################################################
  37519. ##########################################################
  37520. ##########################################################
  37521. ##########################################################
  37522. ##########################################################
  37523. ##########################################################
  37524. ##########################################################
  37525. ##########################################################
  37526. ##########################################################
  37527. ##########################################################
  37528. ##########################################################
  37529. ##########################################################
  37530. ##########################################################
  37531. ##########################################################
  37532. ##########################################################
  37533. ##########################################################
  37534. ##########################################################
  37535. ##########################################################
  37536. ##########################################################
  37537. ##########################################################
  37538. ##########################################################
  37539. ##########################################################
  37540. ##########################################################
  37541. ##########################################################
  37542. ##########################################################
  37543. ##########################################################
  37544. ##########################################################
  37545. ##########################################################
  37546. ##########################################################
  37547. ##########################################################
  37548. ##########################################################
  37549. ##########################################################
  37550. ##########################################################
  37551. ##########################################################
  37552. ##########################################################
  37553. ##########################################################
  37554. ##########################################################
  37555. ##########################################################
  37556. ##########################################################
  37557. ##########################################################
  37558. ##########################################################
  37559. ##########################################################
  37560. ##########################################################
  37561. ##########################################################
  37562. ##########################################################
  37563. ##########################################################
  37564. ##########################################################
  37565. ##########################################################
  37566. ##########################################################
  37567. ##########################################################
  37568. ##########################################################
  37569. ##########################################################
  37570. ##########################################################
  37571. ##########################################################
  37572. ##########################################################
  37573. ##########################################################
  37574. ##########################################################
  37575.  $45Type
  37576. MessageType
  37577. MessageType
  37578. Delivery Report
  37579. VIM_DLR
  37580. NonDelivery Report
  37581. VIM_NDLR
  37582. Return Receipt
  37583. VIM_RTRC
  37584. VIM_MAILJ    
  37585. $47Date^
  37586. DeliveredDate
  37587. DeliveredDate
  37588. PostedDate
  37589. PostedDatei
  37590. $48From`
  37591. FromDomainh
  37592. FromDomain"
  37593. $50PriorityD
  37594. DeliveryPriority
  37595. DeliveryPriority
  37596. $51Type
  37597. MessageType
  37598. MessageType
  37599. Delivery Report
  37600. VIM_DLR
  37601. NonDelivery Report
  37602. VIM_NDLR
  37603. Return Receipt
  37604. VIM_RTRC
  37605. VIM_MAILJ    
  37606. $52Subject
  37607. Subject
  37608. Categori_ze
  37609. _Edit Document
  37610. Send Docu_ment
  37611. _Forward
  37612. O=Lotus Notes
  37613. O=Lotus Notes
  37614. PURSAFO
  37615. |.:#U
  37616. O=Lotus Notes
  37617. CN=Lotus Notes Template Development/O=Lotus Notes
  37618. PURSAFO
  37619. /&_b~
  37620. $TABLEFORMAT
  37621. $Author
  37622. $TITLE
  37623. $Index
  37624. $Formula
  37625. $FormulaClass
  37626. $VIEWFORMAT
  37627. $Comment
  37628. $ACTIONS
  37629. xxNew
  37630. New Calendar Entry for 
  37631. CalendarProfile
  37632. Owner
  37633.     1S2S3S4S
  37634. xxNew
  37635. Subject
  37636.     0R4S6S
  37637. tmpOwnera
  37638. Chair
  37639. AppointmentType
  37640. (Help)
  37641. MAIL_F_APPOINTMENT_APP
  37642. AppointmentType
  37643. (Help)
  37644. MAIL_F_APPOINTMENT_ANN
  37645. AppointmentType
  37646. (Help)
  37647. MAIL_F_APPOINTMENT_EVE
  37648. AppointmentType
  37649. (Help)
  37650. MAIL_F_APPOINTMENT_INV
  37651. AppointmentType
  37652. (Help)
  37653. MAIL_F_APPOINTMENT_REM
  37654. (Help)
  37655. MAIL_F_APPOINTMENT_INV_REC_MOD
  37656.     6S7S12RTTT14T15S16S18RTTTTTT22S24S29RTTTTT30S31S33RTTTTTT44RTTTTT45S46S48RTTTTTT59RTTTTT60S61S63RTTTTTT74RTTTTT75S76S78RTTTTTT89RTTTTT95RTTT
  37657. '++LotusScript Development Environment:2:5:(Options):0:74
  37658. Option Public  
  37659. Option Explicit
  37660. Use "CSUIDocClass"
  37661. '++LotusScript Development Environment:2:5:(Forward):0:1
  37662. Declare Sub ProcessDateFieldExit()
  37663. '++LotusScript Development Environment:2:5:(Declarations):0:10
  37664. Dim uicsdoc As BaseUIEventDocument    
  37665. '++LotusScript Development Environment:2:2:ProcessDateFieldExit:1:8
  37666. Sub ProcessDateFieldExit()
  37667.     Dim dtStart As NotesDateTime
  37668.     Dim dtEnd As NotesDateTime
  37669.     Dim note As NotesDocument
  37670.     Set note = uicsdoc.UIObject.BEObject.Document
  37671. End Sub
  37672. Lotus Product
  37673. OBJECT
  37674.  Appointment'++LotusScript Development Environment:2:5:(Options):0:66
  37675. '++LotusScript Development Environment:2:5:(Forward):0:1
  37676. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  37677. Declare Sub Postopen(Source As Notesuidocument)
  37678. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  37679. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  37680. Declare Sub Postrecalc(Source As Notesuidocument)
  37681. Declare Sub Postsave(Source As Notesuidocument)
  37682. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  37683. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37684. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37685. Private Sub BindEvents(Byval Objectname_ As String)
  37686.     Static Source As NOTESUIDOCUMENT
  37687.     Set Source = Bind(Objectname_)
  37688.     On Event Queryopen From Source Call Queryopen
  37689.     On Event Postopen From Source Call Postopen
  37690.     On Event Queryclose From Source Call Queryclose
  37691.     On Event Querysave From Source Call Querysave
  37692.     On Event Postrecalc From Source Call Postrecalc
  37693.     On Event Postsave From Source Call Postsave
  37694.     On Event Querymodechange From Source Call Querymodechange
  37695. End Sub
  37696. '++LotusScript Development Environment:2:2:Queryopen:1:12
  37697. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  37698.     Dim note As NotesDocument
  37699.     Dim bOwner As Integer
  37700.     If (source.InPreviewPane) Then Exit Sub
  37701.     bOwner =NOTEUserIsCreator(source.document)
  37702.     Set uicsdoc = New BaseUIEventDocument(source, 1, bOwner)
  37703.     Call uicsdoc.QueryOpen(Mode, IsNewDoc, Continue)
  37704. End Sub
  37705. '++LotusScript Development Environment:2:2:Postopen:1:12
  37706. Sub Postopen(Source As Notesuidocument)
  37707.     If (source.InPreviewPane) Then Exit Sub
  37708.     Call uicsdoc.PostOpen()
  37709. End Sub
  37710. '++LotusScript Development Environment:2:2:Queryclose:1:12
  37711. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  37712.     Dim ws As New notesuiworkspace
  37713.     If (source.InPreviewPane) Then Exit Sub
  37714.     If Not(uicsdoc.WasSaved) Then
  37715.         Exit Sub          
  37716.     End If
  37717.     Call uicsdoc.QueryClose( Continue)
  37718.     If Not (Continue) Then
  37719.         Exit Sub          
  37720.     End If
  37721.     Call ws.viewrefresh
  37722. End Sub
  37723. '++LotusScript Development Environment:2:2:Querysave:1:12
  37724. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  37725.     If (source.InPreviewPane) Then Exit Sub
  37726.     On Error 4412 Resume Next
  37727.     source.refresh(True)
  37728.     Call uicsdoc.QuerySave( Continue)
  37729.     source.reload
  37730. End Sub
  37731. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  37732. Sub Postrecalc(Source As Notesuidocument)
  37733.     Dim note As NotesDocument
  37734.     Dim strType As String
  37735.     If (source.InPreviewPane) Then Exit Sub
  37736.     Set note = source.document
  37737.     ' Update the default alarm settings
  37738.     If note.HasItem("$Alarm") And Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then 
  37739.         Call note.RemoveItem("$Alarm")
  37740.     End If
  37741.     Call uicsdoc.UIObject.BEObject.SetDefaultAlarm()
  37742.     strType = note.GetItemValue("AppointmentType")(0)
  37743.     Select Case strType
  37744.     Case "1"
  37745.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_ANNIVERSARY)
  37746.     Case "2"
  37747.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_PLANNER)
  37748.     Case Else
  37749.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_CALENDAR)
  37750.     End Select
  37751.     Call uicsdoc.PostRecalc()
  37752. End Sub
  37753. '++LotusScript Development Environment:2:2:Postsave:1:12
  37754. Sub Postsave(Source As Notesuidocument)
  37755.     If (source.InPreviewPane) Then Exit Sub
  37756.     Call uicsdoc.PostSave()    
  37757. End Sub
  37758. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  37759. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  37760.     If (source.InPreviewPane) Then continue = False
  37761. End Sub
  37762. Lotus Product
  37763. '++LotusScript Development Environment:2:5:(Options):0:66
  37764. '++LotusScript Development Environment:2:5:(Forward):0:1
  37765. Declare Sub Entering(Source As Field)
  37766. Declare Sub Exiting(Source As Field)
  37767. '++LotusScript Development Environment:2:5:(Declarations):0:10
  37768. Dim dtStart As NotesDateTime
  37769. Dim dtEnd As NotesDateTime
  37770. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37771. Private Sub BindEvents(Byval Objectname_ As String)
  37772. Static Source As FIELD
  37773. Set Source = Bind(Objectname_)
  37774. On Event Entering From Source Call Entering
  37775. On Event Exiting From Source Call Exiting
  37776. End Sub
  37777. '++LotusScript Development Environment:2:2:Entering:1:12
  37778. Sub Entering(Source As Field)
  37779.     Dim note As NotesDocument
  37780.     Set note = uicsdoc.UIDocument.Document
  37781.     Call TIMEGetFromItem("EndDate", note, dtEnd)
  37782.     Call TIMEGetFromItem("StartDate", note, dtStart)
  37783. End Sub
  37784. '++LotusScript Development Environment:2:2:Exiting:1:12
  37785. Sub Exiting(Source As Field)
  37786.     Dim note As NotesDocument
  37787.     Dim dtNewStart As NotesDateTime
  37788.     Dim dtNewEnd As NotesDateTime
  37789.     Dim lDifference As Long
  37790.     Set note = uicsdoc.UIDocument.Document
  37791.     Call TIMEGetFromItem("StartDate", note, dtNewStart)
  37792.     lDifference = TIMECompareDates(dtNewStart, dtStart)
  37793.     If (lDifference = 0) Then Exit Sub
  37794.     ' If the new day is beyond the enddate, adjust the enddate
  37795.     If (dtNewStart.TimeDifference(dtEnd) > 0) Then
  37796.         Call dtEnd.AdjustDay(lDifference, True)
  37797.         Call note.ReplaceItemValue("EndDate", dtEnd)
  37798.         Call uicsdoc.UIDocument.Reload
  37799.     End If
  37800. End Sub
  37801. Lotus Product
  37802. OBJECT
  37803. -<    #-t    #
  37804. -<    #-t    #
  37805. -<    #,,
  37806. '++LotusScript Development Environment:2:5:(Options):0:66
  37807. '++LotusScript Development Environment:2:5:(Forward):0:1
  37808. Declare Sub Entering(Source As Field)
  37809. Declare Sub Exiting(Source As Field)
  37810. '++LotusScript Development Environment:2:5:(Declarations):0:10
  37811. Dim dtStart As NotesDateTime
  37812. Dim dtEnd As NotesDateTime
  37813. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37814. Private Sub BindEvents(Byval Objectname_ As String)
  37815. Static Source As FIELD
  37816. Set Source = Bind(Objectname_)
  37817. On Event Entering From Source Call Entering
  37818. On Event Exiting From Source Call Exiting
  37819. End Sub
  37820. '++LotusScript Development Environment:2:2:Entering:1:12
  37821. Sub Entering(Source As Field)
  37822.     Dim note As NotesDocument
  37823.     Set note = uicsdoc.UIDocument.Document
  37824.     Call TIMEGetFromItem("EndDate", note, dtEnd)
  37825.     Call TIMEGetFromItem("StartDate", note, dtStart)
  37826. End Sub
  37827. '++LotusScript Development Environment:2:2:Exiting:1:12
  37828. Sub Exiting(Source As Field)
  37829.     Dim note As NotesDocument
  37830.     Dim dtNewEnd As NotesDateTime
  37831.     Dim lDifference As Long
  37832.     Set note = uicsdoc.UIDocument.Document
  37833.     Call TIMEGetFromItem("EndDate", note, dtNewEnd)
  37834.     lDifference = TIMECompareDates(dtNewEnd, dtEnd)
  37835.     If (lDifference = 0) Then Exit Sub
  37836.     ' If the new day is beyond the enddate, adjust the enddate
  37837.     If (dtNewEnd.TimeDifference(dtStart) < 0) Then
  37838.         Call dtStart.AdjustDay(lDifference, True)
  37839.         Call note.ReplaceItemValue("StartDate", dtStart)
  37840.         Call uicsdoc.UIDocument.Reload
  37841.     End If
  37842. End Sub
  37843. Lotus Product
  37844. OBJECT
  37845. -,    #-d    #
  37846. -,    #-d    #
  37847. -,    #,
  37848. Appointment
  37849. $ExpandGroups
  37850. DefType
  37851. CalendarProfile
  37852. CalEntryType
  37853.     1S2S
  37854. DefType
  37855. DefType
  37856. AppointmentType
  37857. .,$,  , :
  37858. Path_Info
  37859. Path_Info
  37860. .,$,  , :
  37861. Query_String
  37862. Query_String
  37863. TabStyle
  37864. greygirl.GIF
  37865. tmpOwner
  37866. chair
  37867.     1S2S
  37868. Change Calendar Entry Type
  37869. ---------------------------------------------
  37870. CalendarEntrySelectorOutline
  37871. CalendarEntrySelectorOutline
  37872. xxNew
  37873. New Appointment
  37874. New Anniversary
  37875. New Event
  37876. New Meeting Invitation
  37877. New Reminder
  37878.     1S2S3S4S5S6S7S8S
  37879. xxOld
  37880. Appointment
  37881. Anniversary
  37882. Event
  37883. Meeting Invitation
  37884. Reminder
  37885.     0R1S2S3S4S
  37886. tmpNewDoc
  37887. xxNew
  37888. AppointmentType
  37889. xxOld
  37890. AppointmentType
  37891.     0R1S2S5S6S11S15S23RTTTT27S
  37892.     0R4S
  37893. tmpType
  37894.     Basicsx
  37895. GroupSwish.gif
  37896.     Title:
  37897. Subject
  37898.     Start:
  37899. .,$ //:
  37900. StartDate
  37901. StartDateTime
  37902. StartDateTime
  37903. StartDate
  37904.     3S4S6S15S18S
  37905. xxFailed
  37906. You must enter a value for the Start Date.
  37907. StartDate
  37908. xxFailed{
  37909.     0R3S4S6S11SStartDate
  37910. AppointmentType
  37911.     1S2S
  37912. .,$ //:
  37913. StartTime
  37914. StartDateTime
  37915. StartDateTime
  37916. StartTime
  37917.     3S4S6S15S18S
  37918. xxFailed
  37919. You must enter a value for the Start Time.
  37920. StartTime
  37921. AppointmentType
  37922. AppointmentType
  37923. xxFailed{
  37924.     0R3S4S5S6S7S8S9S10S11S12S14S19SStartTime
  37925. Repeats
  37926. OrgRepeat
  37927. Repeats
  37928.     7S14S16S19SRepeats
  37929. Repeats|1
  37930. Repeats
  37931.     1S2S
  37932. '++LotusScript Development Environment:2:5:(Options):0:66
  37933. '++LotusScript Development Environment:2:5:(Forward):0:1
  37934. Declare Sub Click(Source As Button)
  37935. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37936. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37937. Private Sub BindEvents(Byval Objectname_ As String)
  37938. Static Source As BUTTON
  37939. Set Source = Bind(Objectname_)
  37940. On Event Click From Source Call Click
  37941. End Sub
  37942. '++LotusScript Development Environment:2:2:Click:1:12
  37943. Sub Click(Source As Button)
  37944.     Call uicsdoc.UIObject.RepeatDialog()
  37945. End Sub
  37946. Lotus Producte,
  37947. V0.0}
  37948. e]Td^dd#
  37949. )pf]Td^dd#
  37950. )(g]Td^dd#
  37951. )Xj]Td^dd#
  37952. ]$dJdd
  37953. KPf,,m}
  37954. KPf,,m}
  37955. lK`f,,l}
  37956. g,,m}
  37957. g,,m}
  37958. i}$i#1
  37959. k,,m}
  37960. k, sX
  37961. k,PsX
  37962. ]@QI`Q
  37963. New Button
  37964. Need a newer version of Notes to execute this button.
  37965.     0S0E
  37966.     Settings...
  37967. AppointmentType
  37968.     1S2S
  37969.     End:
  37970. .,$ //:
  37971. EndDate
  37972. EndDateTime
  37973. EndDateTime
  37974. EndDate
  37975.     3S4S6S15S18S
  37976. xxFailed
  37977. You must enter a value for the End Date.
  37978. EndDate
  37979. AppointmentType
  37980. AppointmentType
  37981. xxFailed{
  37982.     0R3S4S5S6S7S8S9S10S11S12S14S19SEndDate
  37983. AppointmentType
  37984.     1S2S
  37985. .,$ //:
  37986. EndTime
  37987. EndDateTime
  37988. EndDateTime
  37989. EndTime
  37990.     3S4S6S15S
  37991. xxFailed
  37992. You must enter a value for the End Time.
  37993. EndTime
  37994. AppointmentType
  37995. AppointmentType
  37996. AppointmentType
  37997. xxFailed{
  37998.     0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTime
  37999. %?.@8
  38000.     Location:
  38001. Location
  38002.     Chair:
  38003. AppointmentType
  38004.     1S2S
  38005. Chair
  38006. Chair
  38007. Principal
  38008. Principal
  38009.     7S9S16StmpChair
  38010.     Options
  38011. GroupSwish.gif
  38012. BookFreeTime
  38013. Pencil In|1
  38014. OrgConfidential
  38015. Mark Private|1
  38016. AlarmsY
  38017. $Alarmh
  38018. Alarms
  38019.     7S14S16S19SAlarms
  38020. Alarms|1
  38021. Alarms
  38022.     1S2S
  38023. '++LotusScript Development Environment:2:5:(Options):0:66
  38024. '++LotusScript Development Environment:2:5:(Forward):0:1
  38025. Declare Sub Click(Source As Button)
  38026. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38027. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38028. Private Sub BindEvents(Byval Objectname_ As String)
  38029. Static Source As BUTTON
  38030. Set Source = Bind(Objectname_)
  38031. On Event Click From Source Call Click
  38032. End Sub
  38033. '++LotusScript Development Environment:2:2:Click:1:12
  38034. Sub Click(Source As Button)
  38035.     Call uicsdoc.UIObject.AlarmDialog()
  38036. End Sub
  38037. Lotus Product
  38038. OBJECT
  38039. New Button
  38040. Need a newer version of Notes to execute this button.
  38041.     0S0E
  38042.     Settings...
  38043.     Categories:
  38044. Categories
  38045. xxNotesCats
  38046. Holiday|H
  38047. Vacation|V
  38048. Projects|P
  38049. Clients|C
  38050. Phone Calls|PC
  38051. Travel|T
  38052.     1S2S
  38053. xxNotesCats
  38054. CalendarProfile
  38055. UserCategories
  38056. AppointmentType
  38057. tmpOwner
  38058. Chair
  38059.     1S2S3S4S5S6S
  38060.     Inviteesx
  38061. GroupSwish.gif
  38062.     0S0E
  38063.     Required:
  38064. SendTo
  38065.     0S0E
  38066.     Optional:
  38067. CopyTo
  38068.     0S0E
  38069.     FYI:
  38070. BlindCopyTo
  38071. AppointmentType
  38072. tmpWasMailedY
  38073.     1S2S3S4S
  38074.     Reservationsx
  38075. GroupSwish.gif
  38076. '++LotusScript Development Environment:2:5:(Options):0:66
  38077. '++LotusScript Development Environment:2:5:(Forward):0:1
  38078. Declare Sub Click(Source As Button)
  38079. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38080. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38081. Private Sub BindEvents(Byval Objectname_ As String)
  38082. Static Source As BUTTON
  38083. Set Source = Bind(Objectname_)
  38084. On Event Click From Source Call Click
  38085. End Sub
  38086. '++LotusScript Development Environment:2:2:Click:1:12
  38087. Sub Click(Source As Button)
  38088.     Dim ws As New NotesUIWorkspace
  38089.     Dim uidoc As NotesUIDocument
  38090.     Dim note As NotesDocument
  38091.     Dim item As NotesItem
  38092.     Dim vList As Variant
  38093.     vList = ws.PickListStrings(PICKLIST_ROOMS, True)
  38094.     If Not(Isempty(vList)) Then
  38095.         Set uidoc = uicsdoc.UIDocument
  38096.         Set note = uidoc.document
  38097.         Set item = note.GetFirstItem("RoomToReserve")  
  38098.         Call item.AppendToTextList(vList)  
  38099.         Call uidoc.Reload
  38100.     End If
  38101. End Sub
  38102. Lotus Product
  38103.     Rooms:
  38104. RoomToReserve
  38105. '++LotusScript Development Environment:2:5:(Options):0:66
  38106. '++LotusScript Development Environment:2:5:(Forward):0:1
  38107. Declare Sub Click(Source As Button)
  38108. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38109. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38110. Private Sub BindEvents(Byval Objectname_ As String)
  38111. Static Source As BUTTON
  38112. Set Source = Bind(Objectname_)
  38113. On Event Click From Source Call Click
  38114. End Sub
  38115. '++LotusScript Development Environment:2:2:Click:1:12
  38116. Sub Click(Source As Button)
  38117.     Dim ws As New NotesUIWorkspace
  38118.     Dim uidoc As NotesUIDocument
  38119.     Dim note As NotesDocument
  38120.     Dim item As NotesItem
  38121.     Dim vList As Variant
  38122.     vList = ws.PickListStrings(PICKLIST_RESOURCES, True)
  38123.     If Not(Isempty(vList)) Then
  38124.         Set uidoc = uicsdoc.UIDocument
  38125.         Set note = uidoc.document
  38126.         Set item = note.GetFirstItem("Resources")  
  38127.         Call item.AppendToTextList(vList)  
  38128.         Call uidoc.Reload
  38129.     End If
  38130. End Sub
  38131. Lotus Product
  38132. OV0.0
  38133.     Resources:
  38134. Resources
  38135.     Tools
  38136. GroupSwish.gif
  38137. '++LotusScript Development Environment:2:5:(Options):0:66
  38138. '++LotusScript Development Environment:2:5:(Forward):0:1
  38139. Declare Sub Click(Source As Button)
  38140. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38141. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38142. Private Sub BindEvents(Byval Objectname_ As String)
  38143. Static Source As BUTTON
  38144. Set Source = Bind(Objectname_)
  38145. On Event Click From Source Call Click
  38146. End Sub
  38147. '++LotusScript Development Environment:2:2:Click:1:12
  38148. Sub Click(Source As Button)
  38149. Dim note As notesDocument
  38150.     Dim beobject As Variant
  38151.     Dim dt As notesdatetime
  38152.     Set beobject = uicsdoc.uiobject.beobject
  38153.     Set note = beobject.Document
  38154.     Call beobject.UpdateDateTimeItems()
  38155.     If (uicsdoc.FreeTimeDlg()) Then
  38156.         ' The user might have changed the times
  38157.         Call TIMEGetFromitem( "StartDateTime", note, dt)
  38158.         Call note.replaceitemvalue("StartDate", dt)
  38159.         Call note.replaceitemvalue("StartTime", dt)
  38160.         Call TIMEGetFromitem( "EndDateTime", note, dt)
  38161.         Call note.replaceitemvalue("EndDate", dt)
  38162.         Call note.replaceitemvalue("EndTime", dt)
  38163.         Call uicsdoc.UIDocument.Reload
  38164.     End If
  38165. End Sub
  38166. Lotus Product
  38167. OBJECT
  38168. New Button
  38169. Need a newer version of Notes to execute this button.
  38170.     0S0E
  38171.     Check Schedules...
  38172. (C&S DeliveryOptions)
  38173.     Delivery Options...
  38174. ResourceType
  38175. FindResourceStyle
  38176. RoomToReserve
  38177.     0R1S9S11S
  38178. ResourceName
  38179.     0R1S
  38180. ResourceNameSingle
  38181.     0R1S
  38182. ResourceNameMulti
  38183.     0R1S
  38184. dStartDate
  38185.     0R1S
  38186. dStartTime
  38187.     0R1S
  38188. dEndTime
  38189.     0R1S
  38190. AddressBooks
  38191.     0R1S
  38192. (Room Resource Scheduler)
  38193. Scheduler
  38194.     Room Scheduler...
  38195. ResourceType
  38196. FindResourceStyle
  38197. Resources
  38198.     0R1S9S11S
  38199. ResourceName
  38200.     0R1S
  38201. ResourceNameSingle
  38202.     0R1S
  38203. ResourceNameMulti
  38204.     0R1S
  38205. dStartDate
  38206.     0R1S
  38207. dStartTime
  38208.     0R1S
  38209. dEndTime
  38210.     0R1S
  38211. AddressBooks
  38212.     0R1S
  38213. (Room Resource Scheduler)
  38214. Scheduler
  38215.     Resource Scheduler...
  38216.     Current Participantsx
  38217. GroupSwish.gif
  38218. AppointmentType
  38219. tmpWasMailedY
  38220.     1S2S3S4S
  38221.     Required:
  38222. RequiredAttendees
  38223.     0S0E
  38224. tmpRequired
  38225. tmpWasMailedY
  38226. tmpOwner
  38227. Chair
  38228.     4S5S6S7S
  38229. '++LotusScript Development Environment:2:5:(Options):0:66
  38230. '++LotusScript Development Environment:2:5:(Forward):0:1
  38231. Declare Sub Click(Source As Button)
  38232. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38233. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38234. Private Sub BindEvents(Byval Objectname_ As String)
  38235. Static Source As BUTTON
  38236. Set Source = Bind(Objectname_)
  38237. On Event Click From Source Call Click
  38238. End Sub
  38239. '++LotusScript Development Environment:2:2:Click:1:12
  38240. Sub Click(Source As Button)
  38241.     Call uicsdoc.UIObject.RemoveParticipants()
  38242. End Sub
  38243. Lotus Producte,
  38244. V0.0}
  38245. e]Td^dd#
  38246. )pf]Td^dd#
  38247. )(g]Td^dd#
  38248. )Xj]Td^dd#
  38249. ]$dJdd
  38250. KPf,,m}
  38251. KPf,,m}
  38252. lK`f,,l}
  38253. g,,m}
  38254. g,,m}
  38255. i}$i#1
  38256. k,,m}
  38257. k, sX
  38258. k,PsX
  38259. ]@QI`Q
  38260. New Button
  38261. Need a newer version of Notes to execute this button.
  38262.     0S0E
  38263.     Remove...
  38264.     Optional:
  38265. OptionalAttendees
  38266.     0S0E
  38267. tmpOptional
  38268. AppointmentType
  38269. tmpWasMailedY
  38270.     1S2S3S4S
  38271.     FYI:
  38272. FYIAttendees^
  38273.     0S0E
  38274. tmpFYI
  38275.     4S5S
  38276.     Rooms:
  38277. Room^
  38278.     0S0E
  38279. tmpRooms
  38280. RequiredResources
  38281. tmpOwner
  38282. Chair
  38283.     4S5S6S7S8S9S
  38284. '++LotusScript Development Environment:2:5:(Options):0:66
  38285. '++LotusScript Development Environment:2:5:(Forward):0:1
  38286. Declare Sub Click(Source As Button)
  38287. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38288. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38289. Private Sub BindEvents(Byval Objectname_ As String)
  38290. Static Source As BUTTON
  38291. Set Source = Bind(Objectname_)
  38292. On Event Click From Source Call Click
  38293. End Sub
  38294. '++LotusScript Development Environment:2:2:Click:1:12
  38295. Sub Click(Source As Button)
  38296.     Call uicsdoc.UIObject.RemoveRooms()
  38297. End Sub
  38298. Lotus Product.i
  38299. New Button
  38300. Need a newer version of Notes to execute this button.
  38301.     0S0E
  38302.     Remove...
  38303. RequiredResources
  38304.     4S5S
  38305.     Resources:
  38306. RequiredResources
  38307.     0S0E
  38308. tmpResources
  38309. tmpOwner
  38310. Chair
  38311.     4S5S6S7S8S9S
  38312. '++LotusScript Development Environment:2:5:(Options):0:66
  38313. '++LotusScript Development Environment:2:5:(Forward):0:1
  38314. Declare Sub Click(Source As Button)
  38315. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38316. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38317. Private Sub BindEvents(Byval Objectname_ As String)
  38318. Static Source As BUTTON
  38319. Set Source = Bind(Objectname_)
  38320. On Event Click From Source Call Click
  38321. End Sub
  38322. '++LotusScript Development Environment:2:2:Click:1:12
  38323. Sub Click(Source As Button)
  38324.     Call uicsdoc.UIObject.RemoveResources()
  38325. End Sub
  38326. Lotus Product
  38327. OBJECT
  38328. New Button
  38329. Need a newer version of Notes to execute this button.
  38330.     0S0E
  38331.     Remove...
  38332.     Details
  38333. GroupSwish.gif
  38334. Categori_zeK
  38335. _Edit Document
  38336. Send Docu_ment
  38337. _Forward
  38338. _Move To Folder...
  38339. _Remove From FolderK
  38340.     4S11S16S19S0
  38341. AppointmentType
  38342.     1S2S
  38343. act_ok.GIF|act_CSOK?
  38344. Send Invitations'++LotusScript Development Environment:2:5:(Options):0:66
  38345. '++LotusScript Development Environment:2:5:(Forward):0:1
  38346. Declare Sub Click(Source As Button)
  38347. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38348. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38349. Private Sub BindEvents(Byval Objectname_ As String)
  38350. Static Source As BUTTON
  38351. Set Source = Bind(Objectname_)
  38352. On Event Click From Source Call Click
  38353. End Sub
  38354. '++LotusScript Development Environment:2:2:Click:1:12
  38355. Sub Click(Source As Button)
  38356.     Dim uiobject As Variant
  38357.     Dim uidoc As NotesUIDocument
  38358.     Set uidoc = uicsdoc.UIDocument
  38359.     Set uiobject = uicsdoc.UIObject
  38360.     uiobject.ActionInProgress = ACTION_SEND
  38361.     uiobject.ActionInProgress = ACTION_SAVE
  38362.     On Error 4411 Goto Done
  38363.     Call uidoc.save
  38364.     Call uidoc.close
  38365. Done:
  38366.     Exit Sub
  38367. End Sub
  38368. AppointmentType
  38369. tmpOwner
  38370. Chair
  38371.     1S2S3S4S5S6S
  38372. act_SEND.GIF|act_SEND?
  38373. Save Only
  38374. '++LotusScript Development Environment:2:5:(Options):0:66
  38375. '++LotusScript Development Environment:2:5:(Forward):0:1
  38376. Declare Sub Click(Source As Button)
  38377. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38378. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38379. Private Sub BindEvents(Byval Objectname_ As String)
  38380. Static Source As BUTTON
  38381. Set Source = Bind(Objectname_)
  38382. On Event Click From Source Call Click
  38383. End Sub
  38384. '++LotusScript Development Environment:2:2:Click:1:12
  38385. Sub Click(Source As Button)
  38386.     Dim uiobject As Variant
  38387.     Dim uidoc As NotesUIDocument
  38388.     Set uidoc = uicsdoc.UIDocument
  38389.     Set uiobject = uicsdoc.UIObject
  38390.     uiobject.ActionInProgress = ACTION_SAVE
  38391.     On Error 4411 Goto done
  38392.     Call uidoc.save
  38393.     Call uidoc.close
  38394. Done:
  38395.     Exit Sub
  38396. End Sub
  38397. AppointmentType
  38398. tmpOwner
  38399. Chair
  38400.     1S2S3S4S5S6S
  38401. act_save.GIF|act_CSSAVE?
  38402. Discard ChangesKF
  38403. SaveOptions
  38404.     1S2S3S
  38405. act_discardchanges.GIF|act_CSDISCARD
  38406. Actions...\Reschedule
  38407. '++LotusScript Development Environment:2:5:(Options):0:66
  38408. '++LotusScript Development Environment:2:5:(Forward):0:1
  38409. Declare Sub Click(Source As Button)
  38410. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38411. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38412. Private Sub BindEvents(Byval Objectname_ As String)
  38413. Static Source As BUTTON
  38414. Set Source = Bind(Objectname_)
  38415. On Event Click From Source Call Click
  38416. End Sub
  38417. '++LotusScript Development Environment:2:2:Click:1:12
  38418. Sub Click(Source As Button)
  38419.     Dim uievent As UIEventObject
  38420.     Dim uidoc As notesuidocument
  38421.     Set uidoc = uicsdoc.uidocument
  38422.     Set uievent = uicsdoc.uiobject
  38423.     If uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)") Then
  38424.         If Not uidoc.editmode Then uidoc.editmode = True
  38425.         Call uidoc.save
  38426.         Call uidoc.close
  38427.     End If
  38428. End Sub
  38429. tmpWasMailedY
  38430. tmpowner
  38431. chair
  38432.     4S5S6S7S
  38433. act_csowneractions.GIF|act_CSOWNERACTIONS?
  38434. Actions...\Cancel
  38435. '++LotusScript Development Environment:2:5:(Options):0:66
  38436. '++LotusScript Development Environment:2:5:(Forward):0:1
  38437. Declare Sub Click(Source As Button)
  38438. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38439. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38440. Private Sub BindEvents(Byval Objectname_ As String)
  38441. Static Source As BUTTON
  38442. Set Source = Bind(Objectname_)
  38443. On Event Click From Source Call Click
  38444. End Sub
  38445. '++LotusScript Development Environment:2:2:Click:1:12
  38446. Sub Click(Source As Button)
  38447.     Dim uievent As UIEventObject
  38448.     Dim uidoc As notesuidocument
  38449.     Set uidoc = uicsdoc.uidocument
  38450.     Set uievent = uicsdoc.uiobject
  38451.     If uievent.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)") Then    
  38452.         If Not uidoc.editmode Then uidoc.editmode = True
  38453.         Call uidoc.save
  38454.         Call uidoc.close
  38455.     End If
  38456. End Sub
  38457. tmpWasMailedY
  38458. tmpowner
  38459. chair
  38460.     4S5S6S7S
  38461. Actions...\Confirm'++LotusScript Development Environment:2:5:(Options):0:66
  38462. '++LotusScript Development Environment:2:5:(Forward):0:1
  38463. Declare Sub Click(Source As Button)
  38464. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38465. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38466. Private Sub BindEvents(Byval Objectname_ As String)
  38467.     Static Source As BUTTON
  38468.     Set Source = Bind(Objectname_)
  38469.     On Event Click From Source Call Click
  38470. End Sub
  38471. '++LotusScript Development Environment:2:2:Click:1:12
  38472. Sub Click(Source As Button)
  38473.     Dim uievent As UIEventObject
  38474.     Dim uidoc As notesuidocument
  38475.     Set uidoc = uicsdoc.uidocument
  38476.     Set uievent = uicsdoc.uiobject
  38477.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)") Then
  38478.         Call uievent.Confirm()
  38479.     End If
  38480. End Sub
  38481. tmpWasMailedY
  38482. tmpowner
  38483. chair
  38484.     4S5S6S7S
  38485. Actions...\View Participant Status'++LotusScript Development Environment:2:5:(Options):0:66
  38486. '++LotusScript Development Environment:2:5:(Forward):0:1
  38487. Declare Sub Click(Source As Button)
  38488. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38489. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38490. Private Sub BindEvents(Byval Objectname_ As String)
  38491. Static Source As BUTTON
  38492. Set Source = Bind(Objectname_)
  38493. On Event Click From Source Call Click
  38494. End Sub
  38495. '++LotusScript Development Environment:2:2:Click:1:12
  38496. Sub Click(Source As Button)
  38497.     Call uicsdoc.uiobject.ViewParticipantStatus()
  38498. End Sub
  38499. tmpWasMailedY
  38500. tmpowner
  38501. chair
  38502.     4S5S6S7S
  38503. Actions...\Send Memo to Participants'++LotusScript Development Environment:2:5:(Options):0:66
  38504. '++LotusScript Development Environment:2:5:(Forward):0:1
  38505. Declare Sub Click(Source As Button)
  38506. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38507. '++LotusScript Development Environment:2:2:BindEvent