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

  1. Personal Address Book
  2. #1StdR4PersonalAddressBook
  3. O=Lotus Notes
  4. O=Lotus Notes
  5. PURSAFO
  6. |.:#U
  7. O=Lotus Notes
  8. CN=Lotus Notes Template Development/O=Lotus Notes
  9. PURSAFO
  10. $TITLE
  11. $INFO
  12. $BODY
  13. GW4fbE
  14. AC(9ulZ
  15. CN=Lotus Notes Template Development/O=Lotus Notes
  16. $Modified
  17.     1S2S3S
  18. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE
  19. $Flags
  20.     0SL1S4S5S3724
  21. $TITLE
  22. CN=Rob Slapikoff/O=Iris##############
  23. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  24. CN=Rob Slapikoff/O=IrisLotus NotesCN=Rob Slapikoff/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus Notesz
  25. Personal Address Book
  26. #1StdR4PersonalAddressBook
  27. CN=Rob Slapikoff/O=Iris
  28. Mainb########################################
  29. VGreg Pflaum_Advanced\Connections|ConnectionsP
  30. ConnectionType
  31. ConnectionType
  32. ConnectionType
  33. ConnectionType
  34. ConnectionType
  35.     2S3S4S8RS9E9S10S14RS9E15S16S20RS9E21S22S26RS9E27S28S32R
  36. Destination
  37. ConnectionType
  38. RLANTag
  39. ConnectionType
  40. PassthruServer
  41. ConnectionType
  42. CountryCode
  43. AreaCode
  44. AreaCodeV
  45. LocalPhoneNumber"
  46. PhoneNumber
  47.     0S0E
  48. Source
  49.     0S0E
  50. $32$16PortName$31$27ConnectionLocation$Conflict$REF
  51. Connection
  52.     L1S2S3S1
  53. $16PortName
  54. ConnectionLocation
  55. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  56. GW4fbE
  57. Craig Richards
  58. Server ConnectionlocalremoteConnection[NetCreator]
  59. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
  60. AreaCodeAreaCode
  61. AreaCodeInput
  62.     0S0E
  63. AreaCodeInput
  64.     0R1S
  65. AreaCodeEnter the Area Code.
  66. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  67. DocumentAccessDocumentAccess
  68. Person
  69. [UserModifier]
  70. Group
  71. [GroupModifier]
  72. Server
  73. [ServerModifier]
  74. [NetModifier]
  75.     3S4S6S8S9S10S12S14S15S16S18S20SDocumentAccess
  76. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  77.     CountryCountry
  78. CountryEnter Country Code.
  79. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  80. ##########################################################
  81. #(Notes Address Helper)
  82. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  83. 3(Internet Address Helper)CD
  84. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  85. QLen Kawell
  86. Business CardCompanyPerson[UserCreator]E4FBB16E84D47D6808E783B4C54F5157
  87. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes0038C4F5E3EBC9AA20941374A6E8019667843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes##################################
  88. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  89. $ConferencingPersonFormSubform1.0$ConferencingPersonFormSubformCUA3
  90. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  91. LocalAdminLocalAdmin
  92. LocalAdminEnter the names or group names which should have edit capabilities for this record.
  93. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
  94. OwnerOwner
  95. OwnerFull name of person allowed to modify this document.
  96. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
  97. (Other Address Helper)
  98. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  99. (FAX Address Helper)
  100. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  101. (X400 Address Helper)CD
  102. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  103.     (ccMail Address Helper)
  104. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  105. AreaCodeInputAreaCodeInput
  106. AreaCode
  107. AreaCodeInputEnter the area code.
  108. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
  109. (BusinessAddressHelper)CD
  110. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
  111. (HomeAddressHelper)CD
  112. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  113. (NameHelper)CD
  114. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  115. (PhoneHelper)CD
  116. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  117. AddressParsers34Q1
  118. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
  119. GlobalDeclarationss34Q1
  120. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
  121. CN=Ryan Jansen/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesMailLibrarys34Q1
  122. ##########################################################
  123. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesPhoneParsers34Q1######################
  124. (CreateMailMemo)
  125. EH4fPL3
  126. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  127. (ScheduleMeeting)
  128. EH4fPL3
  129. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  130. $SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15Business Cards|People1
  131. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes    
  132. ##########################################################
  133. Groups
  134. Group
  135. GroupType
  136. GroupType
  137. GroupType
  138. GroupType
  139. GroupType
  140. GroupType
  141.     9S10S16S17S19S23S25S29S31S35S44S
  142. ListName
  143. $3$2ListDescription$Conflict$REF
  144. Group
  145. GroupType
  146.     L1S2S3S4S5S1
  147. Group
  148. GroupType
  149. GroupType
  150. GroupType
  151. GroupType
  152. GroupType
  153. GroupType
  154.     9S10S16S17S19S23S25S29S31S35S44S
  155. $2Group:
  156. ListName
  157. ListDescriptionDescription&
  158. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
  159. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  160. By Category|By Category1-
  161. Categories$101$102T
  162. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
  163. ##########################################################
  164. Times New Roman
  165. "MS Sans Serif
  166. Using Personal Address Book
  167. Basic
  168. This  database is designed to keep information about the people, companies, locations, and server computers with which you communicate.  Every user has his or her own Personal Address Book and learning how to use it is important to getting the most value out of Lotus Notes.
  169. Headline
  170. Types of documents
  171. There are five basic types of document in the Personal Address Book -  a Person entry, a Company entry, a Group entry, a Location entry, and a Server Connection entry.
  172. Person entry.   A person entry records information about an individual - names, phone numbers, addresses, etc.  To create a person entry choose "Business Card" from the create menu .  Fill in at least the Name field.  All the other fields are optional.  However, if you want to send electronic mail to the person, you must fill in the E-mail address fields.  Then save and close the Business Card entry.  You will find the title of the Business Card entry listed in the "Business Cards" view or the "By Category" view.
  173. Company entry.  A company entry records information about a company - name, phone number, address, etc.  To create a company entry choose "Business Card" from the create menu .  Fill in at least the Name field. All the other fields are optional.  Then save and close the Company entry.  You will find the title of the Company entry listed in the "Business Cards" view or the "By Category" view.
  174. Group entry.   A group entry provides a way to maintain a mailing list of people.  To create a group entry choose "Group" from the create menu .  Fill in at least the Group name field and the Members field.  In the Members field list the names of the people to whom you which to mail.  All the other fields are optional.  Then save and close the Group entry.  You will find the title of the Group entry listed in the "Groups" view.
  175. Location entry.   A location entry is used to record essential information about the different locations from which you use Notes.  Notes creates three Locations for you the first time you start it: Office, Home, Disconnected. Typically, a non-mobile user will simply edit the Office entry, and a mobile  laptop or notebook computer user will edit the Office and Home entries. However, to create an additional location entry choose "Location" from the create menu .  Fill in at least the Location name, Location type, Ports to use, and Home/mail server fields. All the other fields are optional.  Then save and close the Location entry.  You will find the title of the Location entry listed in the "Locations" view and on the status bar at the bottom of the Notes window.
  176. Server Connection entry.   A server connection entry is usually only needed to record the phone number of a dial-up Notes server. To create a server connection entry choose "Server Connection" from the create menu .  Fill in at least the Server name and Phone number fields. All the other fields are optional.  Then save and close the Server Connection entry  You will find the title of the Server Connection entry listed in the "Server/Connections" view.
  177. Views and folders
  178. As described above, each type of entry in your personal address book has a corresponding view.  The "Business Cards" view lists the Person entries and the Company entries, the "Groups" view lists the Group entries, the "Locations" view lists the Location entries, and the "Server/Connections" view lists the Server Connection entries.
  179. Special features worth exploring
  180. Each form provides pop-up help for each field.  To display the help, simply click on the "static" text label in front of every field.  For example, clicking anywhere on "Company" in the Person form displays the following:
  181. ?_?__
  182. `!b`1
  183. 7`^///?
  184. ?b___
  185. `bOOO
  186. `<b!R
  187. The Business Card form provides Mail Address Assistants to help you correctly compose a person's electronic mail address.  Click on the 
  188. ?_?__
  189. `!b`1
  190. 7`^///?
  191. ?b___
  192. `bOOO
  193. `<b!R
  194. button next to the Mail address field to start an Assistant.
  195. To easily add the sender of an electronic mail message to your Personal Address Book, choose "Add Sender to Address Book" on the Actions / Mail Tools menu when you are viewing the electronic mail message.
  196. O=Lotus Notes
  197. O=Lotus Notes
  198. PURSAFO
  199. |.:#U
  200. O=Lotus Notes
  201. CN=Lotus Notes Template Development/O=Lotus Notes
  202. PURSAFO
  203. $INFO
  204. $BODY
  205. O=Lotus Notes
  206. O=Lotus Notes
  207. PURSAFO
  208. |.:#U
  209. O=Lotus Notes
  210. CN=Lotus Notes Template Development/O=Lotus Notes
  211. PURSAFO
  212. Fde!f^^
  213. $ACLDigest
  214. ConnectionType
  215. ConnectionType
  216. ConnectionType
  217. ConnectionType
  218. ConnectionType
  219.     2S3S4S8RS9E9S10S14RS9E15S16S20RS9E21S22S26RS9E27S28S32R$16Server4
  220. Destination
  221. PortNamePort$31Via4
  222. ConnectionType
  223. RLANTag
  224. ConnectionType
  225. PassthruServer
  226. ConnectionType
  227. CountryCode
  228. AreaCode
  229. AreaCodeV
  230. LocalPhoneNumber"
  231. PhoneNumber
  232.     0S0E
  233. $27For User0
  234. Source
  235.     0S0E
  236. ConnectionLocationApplies to Location(s)&
  237. Add Connection.
  238. Connection
  239.     0S0E
  240. _Edit Connection
  241. Delete Connection
  242.     0S0E
  243. Send Docu_ment
  244. Categori_zeK
  245. _Forward
  246. _Move to Folder...
  247. _Remove from Folder...
  248. Preferences...4
  249. DirectoryProfile
  250.     0S0E
  251. Add Connection.
  252. Connection
  253.     0S0E
  254. _Edit Connection
  255. Delete Connection
  256.     0S0E
  257. Send Docu_ment
  258. Categori_zeK
  259. _Forward
  260. _Move to Folder...
  261. _Remove from Folder...
  262. Preferences...4
  263. DirectoryProfile
  264.     0S0E
  265. O=Lotus Notes
  266. O=Lotus Notes
  267. PURSAFO
  268. |.:#U
  269. O=Lotus Notes
  270. CN=Lotus Notes Template Development/O=Lotus Notes
  271. PURSAFO
  272. $Author
  273. $TITLE
  274. $Index
  275. $Formula
  276. $FormulaClass
  277. $VIEWFORMAT
  278. $Comment
  279. $V5ACTIONS
  280. $ACTIONS
  281.  $ConferencingPersonFormSubform
  282. O=Lotus Notes
  283. O=Lotus Notes
  284. PURSAFO
  285. |.:#U
  286. O=Lotus Notes
  287. CN=Lotus Notes Template Development/O=Lotus Notes
  288. PURSAFO
  289. Fde!f^^
  290. $TITLE
  291. $INFO
  292. $$ScriptName
  293. $BODY
  294. O=Lotus Notes
  295. O=Lotus Notes
  296. PURSAFO
  297. |.:#U
  298. O=Lotus Notes
  299. CN=Lotus Notes Template Development/O=Lotus Notes
  300. PURSAFO
  301. Fde!f^^
  302. $TITLE
  303. $INFO
  304. $Header
  305. $BODY
  306. &Arial
  307. New Server Connection
  308. Source
  309.  to "
  310. Destination
  311.  via 
  312. PortName"
  313.     4S6S12S13S14S15S21S22S23S24S
  314. Lotus Product
  315. OBJECT
  316. Rob Slapikoff-Rob
  317.     0S0E
  318. SERVER CONNECTION
  319. Destination
  320. Destination
  321.     0S0E
  322. DisplayName
  323. ConnectionType
  324. RLANTag
  325. ConnectionType
  326. PassthruServer
  327. ConnectionType
  328. CountryCode
  329. AreaCode
  330. AreaCodeV
  331. LocalPhoneNumber"
  332. PhoneNumber
  333.     0S0E
  334. DisplayPhoneNumber
  335. Connection
  336.     Basics
  337.     Destination
  338. Choose the type of connection you want to establish, for example, Dialup Modem.
  339.     Connection type:
  340. PortName
  341. NETBIOS
  342. TCPIP
  343.     6S13S15S
  344. ConnectionType
  345. You must choose a Connection Type before filling out the rest of the document.{
  346.     0S0E
  347. ConnectionType
  348. Local Area Network|0Notes Direct Dialup|1Passthru Server|2Network Dialup|5Hunt Group|9
  349. ConnectionType
  350.     0S0E
  351. Enter the name of the server you want to access, for example, Sales/Chicago. 
  352.     Server name:
  353. ConnectionType
  354.     0S0E
  355. Enter the name you want to use for the hunt group. You can use any name you want.
  356.     Hunt group name:
  357. Destination
  358.     0S0E
  359. Destination
  360. You must enter a valid server name for your destination.{
  361.     0S0E
  362. DestinationRemote server's name - e.g. Chicago.
  363. ConnectionType
  364. ConnectionType
  365.     1S2S3S4S5S6S
  366. Enter the network port to use for the connection, for example, LAN0.
  367.     Use LAN port:
  368. ConnectionType
  369.     1S2S
  370. Enter the name of the intermediate (passthru) server or hunt group to use to get to the destination server. You must also have a Connection document that provides a path to the passthru server or hunt group. You can also define a path to a server using multiple Passthru or Hunt Group Connection documents; this lets you have more control over the path used.
  371.     Passthru server name or hunt group name:
  372. LanPortName
  373. PortName
  374. LanPortName
  375. LanPortName
  376.     0S0E
  377. LanPortNameLAN port name - e.g. LAN0, TCPIP.
  378.     0S0E
  379. PassthruServer^
  380.     0S0E
  381. ConnectionType
  382. PassthruServer
  383. You must fill in the name of a Passthru server when filling in a Passthru connection record.{
  384.     5S6S
  385. PassthruServerThe name of the Passthru server used to connect to the destination server.
  386. ConnectionType
  387.     0S0E
  388. ConnectionType
  389.     0S0E
  390. Enter the country code for the server or hunt group you want to access. For the United States, enter 1; for Great Britain, enter 44; for Italy, enter 39; and so on.
  391.     Country code:
  392. Country
  393. The name of the Remote LAN Service used to connect to the destination server.
  394. Select Yes if you want Notes to always dial the area code -- even if it is the same as the area code defined in current Location document. The default is No.
  395.     Always use area code:
  396. DialAreaCodeChoose Yes if you want Notes to dial the area code even if it is the same as the area code in the current location.
  397. Yes|1No|0
  398. Enter the area code or city code of the server or hunt group you want to access.
  399.     Area code:
  400. AreaCodeInput
  401. Enter the phone number of the server or hunt group you want to access, for example, 555-1234. If the remote server or hunt group has more than one phone number, enter each phone number separated by a semicolon.
  402. You should enter a * for null modems and leased lines.
  403.     Phone number:
  404. PhoneNumber
  405.     0S0E
  406. ConnectionType
  407. LocalPhoneNumber
  408. You must enter a Phone Number for a connection of this type.{
  409.     5S6S
  410. LocalPhoneNumberRemote server's phone number - e.g. 555-1234
  411. Basics
  412. $ConFormRLANSubform
  413. Network Dialup
  414.     Advanced
  415. Select the locations where you want to use this connection. An asterisk ( * ) means all locations.
  416.     Only from Location(s):
  417. ConnectionLocationj
  418. ConnectionLocation
  419. ConnectionLocation
  420.     0S0E
  421. ConnectionLocationj
  422. ConnectionLocationt
  423. You have an * and at least one named location specified.  You can either enter multiple locations or use an * for all locations.{
  424.     8S9S21SConnectionLocationSpecify the Location name you want this record to apply to.  * means all Locations.
  425. NoCache
  426. ($Locations)
  427.     0S0E
  428. ConnectionType
  429.     0S0E
  430. Enter the destination server's network address, for example, 192.22.554.36. This field is necessary only if you use TCP/IP or another protocol that needs an explicit network address to make the connection. 
  431.     Destination server address:
  432. Enter the name of the connect script file to use when connecting to the server.
  433.     Login script file name:
  434. OptionalNetworkAddress
  435. LanPortName
  436. LanPortName
  437. You must supply a specific Port Name if you want to use a Destination Network Address.{
  438.     5S6S9S10S11S
  439. OptionalNetworkAddressEnter the network address for the destination server if known.  e.g. If this is a connection via TCP/IP you would enter the IP address or hostname.
  440. ScriptNameName of script file to run after modem connection established.
  441. Enter a user name if more than one user will be using the workstation.
  442.     Only for user:
  443. ThisFileIsOnServer
  444.     1S2S6S
  445. ThisFileIsOnServer
  446. ThisFileIsOnServer
  447.     0R3S4S6S8S
  448. Source^
  449.     0S0E
  450. SourceSource server or workstation name - e.g. Marketing (for dialup users: your username).
  451. ConnectionType
  452.     0S0E
  453. Enter any script arguments that are necessary when dialing the server, for example, a login name or password.
  454.     Login script arguments:
  455. ScriptArg1First argument to be passed to script.
  456. ScriptArg2Second argument to be passed to script.
  457. ScriptArg3Third argument to be passed to script.
  458. ScriptArg4Fourth argument to be passed to script.
  459. ScriptName
  460. ScriptArg1"
  461. ScriptArg2"
  462. ScriptArg3"
  463. ScriptArg4"
  464. LinkScriptInfo
  465. Select Normal or Low to specify when to use this connection information in a search for the destination server path. Default is Normal. 
  466. Notes and Domino use the following steps when determining how to connect to a server:
  467. 1.  Try to determine a path to the destination by examining all Connection documents with the Usage priority set to Normal.
  468. 2.  If step 1 fails, ask the home server for connection information and/or probe all enabled ports.
  469. 3.  If step 2 fails, look at all Connection documents with the Usage priority set to Low.
  470. 4.  If step 3 fails, attempt to use a default passthru server to connect.
  471. Set the Usage priority to Low if you only want the Connection documents used after attempting to connect over the LAN.
  472.     Usage priority
  473.     0S0E
  474. ConnectionRecordFirstChoose Low for R3 behavior and Normal for R4 behavior for determining path to server. 
  475. Normal|1Low|0
  476. Enter the destination server's Notes domain name.
  477.     Only to servers in domain:
  478. DestinationDomain
  479. DestinationDomainRemote server's domain name (optional for dialup users).
  480. ConnectionType
  481.     1S2S3S
  482. Select the enabled modem ports you want to use with this server connection.
  483.     Modem port(s):
  484. ConnectionType
  485. RemotePortNamej
  486. RemotePortName
  487. RemotePortName
  488.     0S0E
  489. RemotePortNameCommunications port name - e.g. COM1, MODEM.
  490.     0S0E
  491. Enter a comment about this Connection document.
  492.     Comments:
  493. CommentsComments about the connection.
  494. Advanced
  495.     0S0E
  496. (V3 Scheduled Calling)
  497.     Enabled/disabled:
  498. SCHEDULE DISABLED
  499. EnabledScheduled calling enabled or disabled.
  500. SCHEDULE ENABLED | 1SCHEDULE DISABLED | 0
  501.     Call at times:
  502. ScheduleL
  503. Enabled
  504. Interval
  505. Schedule
  506. You must enter an Interval and/or a Schedule, or else specify DISABLED.
  507. ScheduleTimes to call the server - e.g. 8:00 AM,10:00 AM-6:00 PM.
  508.      each day
  509.     Repeat interval of:
  510. Interval
  511. IntervalInterval to repeat calls - 0 means call once.
  512.     minutes 
  513.     Days of week:
  514. WeekDaysDays of week - e.g. Mon, Tue, Wed.
  515. Sun | 1Mon | 2Tue | 3Wed | 4Thu | 5Fri | 6Sat | 7
  516.     Tasks:
  517. TasksTasks to be performed - e.g. Replication, Mail Routing
  518. Mail Routing | Mail RoutingReplication | Replication
  519.     Route at once if:
  520. MailThreshold
  521. MailThresholdNumber of waiting messages that will force a connection - e.g. 3.
  522.      mail messages pending
  523.     Routing cost:
  524. ConnectionType
  525. ConnectionType
  526.     0S0E
  527. Routing cost must be between 1 and 10
  528.     3S4S5S6S7S8S10S15S
  529. CostRelative cost of this connection (1-10).
  530.     Replicate databases of priority:
  531. RepPriorityReplication priority level.
  532. High | 2Medium & High | 1Low & Medium & High | 0
  533. AreaCode
  534. Connection
  535. Owner
  536. DocumentAccess
  537. ConnectionType
  538. LanPortName
  539. ConnectionType
  540. RemotePortName
  541. ConnectionType
  542. PortName
  543.     0S0E
  544. PortNameCommunications port name - e.g. COM1, MODEM.
  545. ConnectionType
  546. OptionalNetworkAddress
  547. AreaCode
  548. Country
  549. Country
  550. DialAreaCode
  551. AreaCodeV
  552. LocalPhoneNumber"
  553. DialAreaCode
  554. AreaCodeV
  555. LocalPhoneNumber"
  556. LocalPhoneNumber
  557.     10R26S27SPhoneNumber
  558. For V3 compatibility (sigh)
  559. ConnectionType
  560. local
  561. remote
  562. Categori_zeK
  563. Save and Close>
  564.     0S0E
  565.     0S0E
  566. _Edit Connection
  567. Send Docu_ment
  568. _Forward
  569. _Move to Folder...
  570. _Remove from Folder...
  571. Categori_zeK
  572. Save and Close>
  573.     0S0E
  574.     0S0E
  575. _Edit Connection
  576. Send Docu_ment
  577. _Forward
  578. _Move to Folder...
  579. _Remove from Folder...
  580. O=Lotus Notes
  581. O=Lotus Notes
  582. PURSAFO
  583. |.:#U
  584. O=Lotus Notes
  585. CN=Lotus Notes Template Development/O=Lotus Notes
  586. PURSAFO
  587. emAb'eHr
  588. $Author
  589. $FormUsers
  590. $AUTOLAUNCH
  591. $INFO
  592. $WINDOWTITLE
  593. $$Script_O
  594. Schedule
  595. Interval
  596. MailThreshold
  597. $BODY
  598. $V5ACTIONS
  599. $ACTIONS
  600. O=Lotus Notes
  601. O=Lotus Notes
  602. PURSAFO
  603. |.:#U
  604. O=Lotus Notes
  605. CN=Lotus Notes Template Development/O=Lotus Notes
  606. PURSAFO
  607. Fde!f^^
  608. yR*B8#6
  609. $TITLE
  610. $INFO
  611. $BODY
  612. O=Lotus Notes
  613. O=Lotus Notes
  614. PURSAFO
  615. |.:#U
  616. O=Lotus Notes
  617. CN=Lotus Notes Template Development/O=Lotus Notes
  618. PURSAFO
  619. Fde!f^^
  620. $TITLE
  621. $INFO
  622. country
  623. $BODY
  624. (Notes Address Helper)
  625. Notes Mail Address
  626.     User name:
  627.     Notes domain:
  628. Get user name from left of domain
  629. name1
  630. MailAddress
  631.     0R1S2S8S
  632. If nothing to left of domain, use everything
  633.     0R1S
  634. name2
  635. name1
  636. name1
  637. MailAddress
  638.     0R1S2S5S6S8S10S
  639. Get full name
  640.     0R1S
  641. name3
  642. FullName
  643.     0R1S2S6S
  644. If no full name, use first + middle + last names
  645.     0R1S
  646. name4
  647. name3
  648. name3
  649. FirstName
  650. MiddleInitial
  651. MiddleInitial
  652. LastName
  653. LastName"
  654.     0R1S2S5S6S8S10RS25E11S12S15S16S18S19S22S24S25RS25E28S29S31S32S33S35S
  655. If no address, use name
  656.     0R1S
  657. name2
  658. name2
  659. name4
  660.     0R5S6S8S10SUserName
  661. Include both any domain from address and anyone from MailDomain field
  662. MailAddress
  663.     0R1S2S
  664. MailDomain
  665. MailDomain"
  666. MailDomain
  667.     0R3S4S5S6S7S8S10S11S12S13S14S16S17S18S20S22S
  668. Domain
  669. UserName
  670. Domain
  671. Domain"
  672.     1S2S5S6S8S9S10S12S
  673. MailAddress
  674. MailSystem
  675. Always zero-out MailDomain because it is now always appended to MailAddress
  676. MailDomain
  677. Categori_ze
  678. _Edit Document
  679. Send Docu_ment
  680. _Forward
  681. _Move to Folder...
  682. _Remove from Folder...
  683. O=Lotus Notes
  684. O=Lotus Notes
  685. PURSAFO
  686. |.:#U
  687. O=Lotus Notes
  688. CN=Lotus Notes Template Development/O=Lotus Notes
  689. PURSAFO
  690. v|.Hm
  691. $TITLE
  692. $INFO
  693. $$ScriptName
  694. $BODY
  695. $ACTIONS
  696. (Internet Address Helper)
  697. Internet Mail Address
  698.     Address (e.g., smith@acme.com):
  699.     Internet mail gateway domain (optional):
  700. Get username and first domain name
  701. MailAddress
  702.     0R1S2S6S
  703.     0R3S4S6S10S12S13S15S21S28S
  704. InternetAddress
  705. Include both any domain from MailAddress and any from MailDomain field
  706. MailAddress
  707. MailDomain
  708. MailDomain"
  709.     0R1S2S
  710.     0R1S2S
  711.     0R1S2S5S6S8S12S15S16S20S
  712.     0R1S2S8S
  713. InternetDomain|
  714.     0R3S4S6S8S
  715. Save the gateway domain in the user's profile for future addresses
  716. InternetDomain
  717. InternetDomain|
  718.     0R4S
  719. InternetDomain
  720. InternetDomain
  721. InternetAddress
  722. InternetDomain
  723. InternetDomain"
  724.     1S2S5S6S8S9S10S12S
  725. MailAddress
  726. MailSystem
  727. Always zero out the MailDomain because it is now part of MailAddress
  728. MailDomain
  729. Categori_zeK
  730. _Edit Document
  731. Send Docu_ment
  732. _Forward
  733. _Move to Folder...
  734. _Remove from Folder...
  735. O=Lotus Notes
  736. O=Lotus Notes
  737. PURSAFO
  738. |.:#U
  739. O=Lotus Notes
  740. CN=Lotus Notes Template Development/O=Lotus Notes
  741. PURSAFO
  742. |cm]X
  743. $TITLE
  744. $INFO
  745. $$ScriptName
  746. $BODY
  747. $ACTIONS
  748. O=Lotus Notes
  749. O=Lotus Notes
  750. PURSAFO
  751. |.:#U
  752. O=Lotus Notes
  753. CN=Lotus Notes Template Development/O=Lotus Notes
  754. PURSAFO
  755. $TITLE
  756. $INFO
  757. $BODY
  758. '++LotusScript Development Environment:2:5:(Options):0:66
  759. '++LotusScript Development Environment:2:5:(Forward):0:1
  760. Declare Sub Exiting(Source As Field)
  761. '++LotusScript Development Environment:2:5:(Declarations):0:2
  762. '++LotusScript Development Environment:2:2:BindEvents:1:129
  763. Private Sub BindEvents(Byval Objectname_ As String)
  764.      Static Source As FIELD
  765.      Set Source = Bind(Objectname_)
  766.      On Event Exiting From Source Call Exiting
  767. End Sub
  768. '++LotusScript Development Environment:2:2:Exiting:1:12
  769. Sub Exiting(Source As Field)
  770.      If doc.Name(0) = "" And (doc.LastName(0) = "" And doc.FirstName(0)="") Then
  771.           Exit Sub
  772.      End If
  773.      Call ParseNameField
  774.      Call uidoc.refresh
  775. End Sub
  776. Lotus Product
  777. OBJECT
  778. "Small Fonts
  779. New Business Card
  780. FullName
  781.     4S6S
  782. '++LotusScript Development Environment:2:5:(Options):0:74
  783. Option Public
  784. Use "PhoneParser"
  785. Use "AddressParser"
  786. '++LotusScript Development Environment:2:5:(Forward):0:1
  787. '++LotusScript Development Environment:2:5:(Declarations):0:10
  788. Dim DocWasSaved As Integer
  789. Lotus Product
  790.  Person'++LotusScript Development Environment:2:5:(Options):0:66
  791. '++LotusScript Development Environment:2:5:(Forward):0:1
  792. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  793. Declare Sub Postopen(Source As Notesuidocument)
  794. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  795. '++LotusScript Development Environment:2:5:(Declarations):0:2
  796. '++LotusScript Development Environment:2:2:BindEvents:1:129
  797. Private Sub BindEvents(Byval Objectname_ As String)
  798.     Static Source As NOTESUIDOCUMENT
  799.     Set Source = Bind(Objectname_)
  800.     On Event Querysave From Source Call Querysave
  801.     On Event Postopen From Source Call Postopen
  802.     On Event Queryclose From Source Call Queryclose
  803. End Sub
  804. '++LotusScript Development Environment:2:2:Querysave:1:12
  805. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  806.     source.refresh  
  807.     If doc.LastName(0) <> "" Then
  808.         NumNames=Evaluate(|@Elements(FullName)|,doc)
  809.         First = doc.FirstName(0)
  810.         Last = doc.LastName(0)
  811.         Full = doc.FullName(0)
  812.         LastinFull=Evaluate(|@Ends(@Name([CN];FullName);LastName)|,doc)
  813.         If Last <> "" And ((Full = "") Or (LastinFull(0) <>"1")) Then Call doc.ReplaceItemValue("FullName", First & " " & Last)
  814.     End If
  815.     If doc.BusinessAddress(0)<>"" Or (doc.BusinessAddress(0)="" And (doc.OfficeStreetAddress(0)<>"" And doc.OfficeCity(0)<>"" And doc.OfficeState(0)<>"")) Then
  816.         Dim Num As Variant
  817.         Dim FieldName As String
  818.         Dim Address As Variant
  819.         FieldName = "B"
  820.         Num=Evaluate(|@Elements(@Explode(@Trim(BusinessAddress);@Char(13)))|,doc)          
  821.         If Num(0) = 1 Then
  822.             doc.BusinessAddress=Evaluate(|@Trim(@ReplaceSubstring(BusinessAddress;@NewLine;" "))|,doc)
  823.         End If          
  824.         Address=doc.BusinessAddress(0)          
  825.         Call ParseAddress(Address, Num, FieldName)
  826.     End If
  827.     If doc.CompanyName(0) <> ""  Or doc.LastName(0)<> "" Or doc.FullName(0) <>"" Then
  828.         DocWasSaved=True
  829.     End If
  830. End Sub
  831. '++LotusScript Development Environment:2:2:Postopen:1:12
  832. Sub Postopen(Source As Notesuidocument)
  833.     Dim w As New NotesUIWorkspace 
  834.     Dim s As New NotesSession
  835.     Set db = s.CurrentDatabase
  836.     Set uidoc=source
  837.     Set doc = uidoc.document
  838.     locarea=doc.AreaCodeFromLoc
  839. End Sub
  840. '++LotusScript Development Environment:2:2:Queryclose:1:12
  841. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  842.     doc.RemoveItem("Name")
  843.     doc.RemoveItem("ParseFlag")
  844.     If DocWasSaved=True Then    
  845.         Call doc.Save(True,False,True)
  846.     End If
  847. End Sub
  848. Lotus Product
  849. OBJECT
  850. FullNamej
  851.     0S0E
  852. FullName
  853. LastNameH
  854.     0S0E
  855. BusinessAddress
  856.     0S0E
  857. BusinessAddress
  858.     0S0E
  859. '++LotusScript Development Environment:2:5:(Options):0:66
  860. '++LotusScript Development Environment:2:5:(Forward):0:1
  861. Declare Sub Exiting(Source As Field)
  862. '++LotusScript Development Environment:2:5:(Declarations):0:2
  863. '++LotusScript Development Environment:2:2:BindEvents:1:129
  864. Private Sub BindEvents(Byval Objectname_ As String)
  865.      Static Source As FIELD
  866.      Set Source = Bind(Objectname_)
  867.      On Event Exiting From Source Call Exiting
  868. End Sub
  869. '++LotusScript Development Environment:2:2:Exiting:1:12
  870. Sub Exiting(Source As Field)
  871.      
  872.      
  873.      Dim localView As NotesView
  874.      Dim othernote As NotesDocument     
  875.      Dim CompName As String
  876.      
  877.      If doc.BusinessAddress(0)<>"" Then
  878.           Exit Sub
  879.      End If
  880.      
  881.      CompName=doc.CompanyName(0)
  882.      
  883.      If CompName ="" Then
  884.           Exit Sub
  885.      End If
  886.      
  887.      Set localView = db.GetView("($CompanyList)")
  888.      Set othernote = localView.GetDocumentByKey(CompName, True)
  889.      
  890.      
  891.      If (othernote Is Nothing) Then
  892.           Exit Sub
  893.      End If
  894.      
  895.      doc.OfficeStreetAddress=othernote.OfficeStreetAddress
  896.      doc.OfficeCity=othernote.OfficeCity
  897.      doc.OfficeState=othernote.OfficeState
  898.      doc.OfficeZip=othernote.OfficeZip
  899.      doc.OfficeCountry=othernote.OfficeCountry
  900.      doc.BusinessAddress=othernote.BusinessAddress
  901.      
  902.      Call uidoc.refresh
  903.      
  904.      
  905.      
  906. End Sub
  907. Lotus Product
  908. OBJECT
  909. '++LotusScript Development Environment:2:5:(Options):0:66
  910. '++LotusScript Development Environment:2:5:(Forward):0:1
  911. Declare Sub Entering(Source As Field)
  912. Declare Sub Exiting(Source As Field)
  913. '++LotusScript Development Environment:2:5:(Declarations):0:2
  914. '++LotusScript Development Environment:2:2:BindEvents:1:129
  915. Private Sub BindEvents(Byval Objectname_ As String)
  916.      Static Source As FIELD
  917.      Set Source = Bind(Objectname_)
  918.      On Event Entering From Source Call Entering
  919.      On Event Exiting From Source Call Exiting
  920. End Sub
  921. '++LotusScript Development Environment:2:2:Entering:1:12
  922. Sub Entering(Source As Field)
  923.      
  924. End Sub
  925. '++LotusScript Development Environment:2:2:Exiting:1:12
  926. Sub Exiting(Source As Field)
  927.      
  928.      
  929.      Dim Num As Variant
  930.      Dim FieldName As String
  931.      Dim Address As Variant
  932.      
  933.      FieldName = "B"
  934.      Num=Evaluate(|@Elements(@Explode(@Trim(BusinessAddress);@Char(13)))|,doc)
  935.      
  936.      If Num(0) = 1 Then
  937.           doc.BusinessAddress=Evaluate(|@Trim(@ReplaceSubstring(BusinessAddress;@NewLine;" "))|,doc)
  938.      End If
  939.      
  940.      Address=doc.BusinessAddress(0)
  941.      If Address="" And (doc.OfficeStreetAddress(0)="" And doc.OfficeCity(0)="" And doc.OfficeState(0)="")Then
  942.           Exit Sub
  943.      End If
  944.      
  945.      Call ParseAddress(Address, Num, FieldName)
  946.      
  947.      Call uidoc.refresh
  948.      
  949. End Sub
  950. Lotus Product
  951. OBJECT
  952. BusinessAddress
  953.     0S0E
  954. BusinessAddress
  955.     0S0E
  956. '++LotusScript Development Environment:2:5:(Options):0:66
  957. '++LotusScript Development Environment:2:5:(Forward):0:1
  958. Declare Sub Exiting(Source As Field)
  959. '++LotusScript Development Environment:2:5:(Declarations):0:2
  960. '++LotusScript Development Environment:2:2:BindEvents:1:129
  961. Private Sub BindEvents(Byval Objectname_ As String)
  962.      Static Source As FIELD
  963.      Set Source = Bind(Objectname_)
  964.      On Event Exiting From Source Call Exiting
  965. End Sub
  966. '++LotusScript Development Environment:2:2:Exiting:1:12
  967. Sub Exiting(Source As Field)
  968.      
  969.      
  970.      Dim Num As Variant
  971.      Dim FieldName As String
  972.      Dim Address As Variant
  973.      
  974.      FieldName = "H"
  975.      Num=Evaluate(|@Elements(@Explode(HomeAddress;@Char(13)))|,doc)
  976.      
  977.      Address=doc.HomeAddress(0)
  978.      If Address="" And (doc.StreetAddress(0)="" And doc.City(0)="" And doc.State(0)="")Then
  979.           Exit Sub
  980.      End If
  981.      
  982.      Call ParseAddress(Address, Num, FieldName)
  983.      
  984.      Call uidoc.refresh
  985. End Sub
  986. Lotus Product
  987. OBJECT
  988. HomeAddress
  989.     0S0E
  990. '++LotusScript Development Environment:2:5:(Options):0:66
  991. '++LotusScript Development Environment:2:5:(Forward):0:1
  992. Declare Sub Exiting(Source As Field)
  993. '++LotusScript Development Environment:2:5:(Declarations):0:2
  994. '++LotusScript Development Environment:2:2:BindEvents:1:129
  995. Private Sub BindEvents(Byval Objectname_ As String)
  996.      Static Source As FIELD
  997.      Set Source = Bind(Objectname_)
  998.      On Event Exiting From Source Call Exiting
  999. End Sub
  1000. '++LotusScript Development Environment:2:2:Exiting:1:12
  1001. Sub Exiting(Source As Field)
  1002.      
  1003.      
  1004.      F=Evaluate(|@False|)
  1005.      T=Evaluate(|@True|)
  1006.      
  1007.      l=Len(doc.OfficePhoneNumber(0))
  1008. REM "Test to see if the number contains any letters. 
  1009. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1010. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1011. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1012.      
  1013.      x=Evaluate(|!@Matches(OfficePhoneNumber;"+{!a-zA-Z}")|, doc)
  1014.      
  1015.      letters=Evaluate(|@Trim(@ReplaceSubstring(OfficePhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1016.      FirstLet=Left(letters(0),1)
  1017.      
  1018.      p=Evaluate(|@Begins(OfficePhoneNumber;"1")|,doc)
  1019.      
  1020.      sep=Evaluate(|@Contains(OfficePhoneNumber;"-")|,doc)
  1021.      
  1022.      par=Evaluate(|@Contains(OfficePhoneNumber;"(") & @Contains(OfficePhoneNumber;")")|,doc)
  1023.      
  1024.      num=doc.OfficePhoneNumber(0)
  1025.      
  1026.      If num="" Then
  1027.           Exit Sub
  1028.      End If
  1029.      
  1030.      Call ParsePhoneNumber(num)
  1031.      
  1032.      doc.OfficePhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1033.      
  1034.      Call uidoc.refresh
  1035. End Sub
  1036. Lotus Product
  1037. OBJECT
  1038. OfficePhoneNumber
  1039. +{!a-zA-Z}I
  1040.     0S0E
  1041. OfficePhoneNumber
  1042.     0S0E
  1043. OfficePhoneNumber
  1044.     0S0E
  1045. OfficePhoneNumber
  1046.     0S0E
  1047. OfficePhoneNumber
  1048. OfficePhoneNumber
  1049.     6S7S
  1050. '++LotusScript Development Environment:2:5:(Options):0:66
  1051. '++LotusScript Development Environment:2:5:(Forward):0:1
  1052. Declare Sub Exiting(Source As Field)
  1053. Declare Sub Terminate
  1054. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1055. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1056. Private Sub BindEvents(Byval Objectname_ As String)
  1057.      Static Source As FIELD
  1058.      Set Source = Bind(Objectname_)
  1059.      On Event Exiting From Source Call Exiting
  1060. End Sub
  1061. '++LotusScript Development Environment:2:2:Exiting:1:12
  1062. Sub Exiting(Source As Field)
  1063.      
  1064.      
  1065.      F=Evaluate(|@False|)
  1066.      T=Evaluate(|@True|)
  1067.      
  1068.      l=Len(doc.OfficeFAXPhoneNumber(0))
  1069. REM "Test to see if the number contains any letters. 
  1070. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1071. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1072. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1073.      
  1074.      x=Evaluate(|!@Matches(OfficeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  1075.      
  1076.      letters=Evaluate(|@Trim(@ReplaceSubstring(OfficeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1077.      FirstLet=Left(letters(0),1)
  1078.      
  1079.      p=Evaluate(|@Begins(OfficeFAXPhoneNumber;"1")|,doc)
  1080.      
  1081.      sep=Evaluate(|@Contains(OfficeFAXPhoneNumber;"-")|,doc)
  1082.      
  1083.      par=Evaluate(|@Contains(OfficeFAXPhoneNumber;"(") & @Contains(OfficeFAXPhoneNumber;")")|,doc)
  1084.      
  1085.      num=doc.OfficeFAXPhoneNumber(0)
  1086.      
  1087.      If num="" Then
  1088.           Exit Sub
  1089.      End If
  1090.      
  1091.      Call ParsePhoneNumber(num)
  1092.      
  1093.      doc.OfficeFAXPhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1094.      
  1095.      Call uidoc.refresh
  1096. End Sub
  1097. '++LotusScript Development Environment:2:2:Terminate:1:10
  1098. Sub Terminate
  1099.      
  1100. End Sub
  1101. Lotus Product
  1102. OBJECT
  1103. OfficeFAXPhoneNumber
  1104. +{!a-zA-Z}I
  1105.     0S0E
  1106. OfficeFAXPhoneNumber
  1107.     0S0E
  1108. OfficeFAXPhoneNumber
  1109.     0S0E
  1110. OfficeFAXPhoneNumber
  1111.     0S0E
  1112. OfficeFAXPhoneNumber
  1113. OfficeFAXPhoneNumber
  1114.     6S7S
  1115. '++LotusScript Development Environment:2:5:(Options):0:66
  1116. '++LotusScript Development Environment:2:5:(Forward):0:1
  1117. Declare Sub Exiting(Source As Field)
  1118. Declare Sub Terminate
  1119. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1120. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1121. Private Sub BindEvents(Byval Objectname_ As String)
  1122.      Static Source As FIELD
  1123.      Set Source = Bind(Objectname_)
  1124.      On Event Exiting From Source Call Exiting
  1125. End Sub
  1126. '++LotusScript Development Environment:2:2:Exiting:1:12
  1127. Sub Exiting(Source As Field)
  1128.      
  1129.      
  1130.      F=Evaluate(|@False|)
  1131.      T=Evaluate(|@True|)
  1132.      
  1133.      l=Len(doc.CellPhoneNumber(0))
  1134. REM "Test to see if the number contains any letters. 
  1135. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1136. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1137. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1138.      
  1139.      x=Evaluate(|!@Matches(CellPhoneNumber;"+{!a-zA-Z}")|, doc)
  1140.      
  1141.      letters=Evaluate(|@Trim(@ReplaceSubstring(CellPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1142.      FirstLet=Left(letters(0),1)
  1143.      
  1144.      p=Evaluate(|@Begins(CellPhoneNumber;"1")|,doc)
  1145.      
  1146.      sep=Evaluate(|@Contains(CellPhoneNumber;"-")|,doc)
  1147.      
  1148.      par=Evaluate(|@Contains(CellPhoneNumber;"(") & @Contains(CellPhoneNumber;")")|,doc)
  1149.      
  1150.      num=doc.CellPhoneNumber(0)
  1151.      
  1152.      If num="" Then
  1153.           Exit Sub
  1154.      End If
  1155.      
  1156.      Call ParsePhoneNumber(num)
  1157.      
  1158.      doc.CellPhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1159.      
  1160.      Call uidoc.refresh
  1161. End Sub
  1162. '++LotusScript Development Environment:2:2:Terminate:1:10
  1163. Sub Terminate
  1164.      
  1165. End Sub
  1166. Lotus Product
  1167. OBJECT
  1168. CellPhoneNumber
  1169. +{!a-zA-Z}I
  1170.     0S0E
  1171. CellPhoneNumber
  1172.     0S0E
  1173. CellPhoneNumber
  1174.     0S0E
  1175. CellPhoneNumber
  1176.     0S0E
  1177. CellPhoneNumber
  1178. CellPhoneNumber
  1179.     6S7S
  1180. '++LotusScript Development Environment:2:5:(Options):0:66
  1181. '++LotusScript Development Environment:2:5:(Forward):0:1
  1182. Declare Sub Exiting(Source As Field)
  1183. Declare Sub Terminate
  1184. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1185. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1186. Private Sub BindEvents(Byval Objectname_ As String)
  1187.      Static Source As FIELD
  1188.      Set Source = Bind(Objectname_)
  1189.      On Event Exiting From Source Call Exiting
  1190. End Sub
  1191. '++LotusScript Development Environment:2:2:Exiting:1:12
  1192. Sub Exiting(Source As Field)
  1193.      
  1194.      
  1195.      F=Evaluate(|@False|)
  1196.      T=Evaluate(|@True|)
  1197.      
  1198.      l=Len(doc.PhoneNumber(0))
  1199. REM "Test to see if the number contains any letters. 
  1200. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1201. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1202. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1203.      
  1204.      x=Evaluate(|!@Matches(PhoneNumber;"+{!a-zA-Z}")|, doc)
  1205.      
  1206.      letters=Evaluate(|@Trim(@ReplaceSubstring(PhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1207.      FirstLet=Left(letters(0),1)
  1208.      
  1209.      p=Evaluate(|@Begins(PhoneNumber;"1")|,doc)
  1210.      
  1211.      sep=Evaluate(|@Contains(PhoneNumber;"-")|,doc)
  1212.      
  1213.      par=Evaluate(|@Contains(PhoneNumber;"(") & @Contains(PhoneNumber;")")|,doc)
  1214.      
  1215.      num=doc.PhoneNumber(0)
  1216.      
  1217.      If num="" Then
  1218.           Exit Sub
  1219.      End If
  1220.      
  1221.      Call ParsePhoneNumber(num)
  1222.      
  1223.      doc.PhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1224.      
  1225.      Call uidoc.refresh
  1226. End Sub
  1227. '++LotusScript Development Environment:2:2:Terminate:1:10
  1228. Sub Terminate
  1229.      
  1230. End Sub
  1231. Lotus Product
  1232. OBJECT
  1233. PhoneNumber
  1234. +{!a-zA-Z}I
  1235.     0S0E
  1236. PhoneNumber
  1237.     0S0E
  1238. PhoneNumber
  1239.     0S0E
  1240. PhoneNumber
  1241.     0S0E
  1242. PhoneNumber
  1243. PhoneNumber
  1244.     6S7S
  1245. '++LotusScript Development Environment:2:5:(Options):0:66
  1246. '++LotusScript Development Environment:2:5:(Forward):0:1
  1247. Declare Sub Exiting(Source As Field)
  1248. Declare Sub Terminate
  1249. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1250. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1251. Private Sub BindEvents(Byval Objectname_ As String)
  1252.      Static Source As FIELD
  1253.      Set Source = Bind(Objectname_)
  1254.      On Event Exiting From Source Call Exiting
  1255. End Sub
  1256. '++LotusScript Development Environment:2:2:Exiting:1:12
  1257. Sub Exiting(Source As Field)
  1258.      
  1259.      
  1260.      F=Evaluate(|@False|)
  1261.      T=Evaluate(|@True|)
  1262.      
  1263.      l=Len(doc.HomeFAXPhoneNumber(0))
  1264. REM "Test to see if the number contains any letters. 
  1265. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1266. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1267. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1268.      
  1269.      x=Evaluate(|!@Matches(HomeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  1270.      
  1271.      letters=Evaluate(|@Trim(@ReplaceSubstring(HomeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1272.      FirstLet=Left(letters(0),1)
  1273.      
  1274.      p=Evaluate(|@Begins(HomeFAXPhoneNumber;"1")|,doc)
  1275.      
  1276.      sep=Evaluate(|@Contains(HomeFAXPhoneNumber;"-")|,doc)
  1277.      
  1278.      par=Evaluate(|@Contains(HomeFAXPhoneNumber;"(") & @Contains(HomeFAXPhoneNumber;")")|,doc)
  1279.      
  1280.      num=doc.HomeFAXPhoneNumber(0)
  1281.      
  1282.      If num="" Then
  1283.           Exit Sub
  1284.      End If
  1285.      
  1286.      Call ParsePhoneNumber(num)
  1287.      
  1288.      doc.HomeFAXPhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1289.      
  1290.      Call uidoc.refresh
  1291. End Sub
  1292. '++LotusScript Development Environment:2:2:Terminate:1:10
  1293. Sub Terminate
  1294.      
  1295. End Sub
  1296. Lotus Product
  1297. OBJECT
  1298. HomeFAXPhoneNumber
  1299. +{!a-zA-Z}I
  1300.     0S0E
  1301. HomeFAXPhoneNumber
  1302.     0S0E
  1303. HomeFAXPhoneNumber
  1304.     0S0E
  1305. HomeFAXPhoneNumber
  1306.     0S0E
  1307. HomeFAXPhoneNumber
  1308. HomeFAXPhoneNumber
  1309.     6S7S
  1310. '++LotusScript Development Environment:2:5:(Options):0:66
  1311. '++LotusScript Development Environment:2:5:(Forward):0:1
  1312. Declare Sub Exiting(Source As Field)
  1313. Declare Sub Terminate
  1314. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1315. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1316. Private Sub BindEvents(Byval Objectname_ As String)
  1317.      Static Source As FIELD
  1318.      Set Source = Bind(Objectname_)
  1319.      On Event Exiting From Source Call Exiting
  1320. End Sub
  1321. '++LotusScript Development Environment:2:2:Exiting:1:12
  1322. Sub Exiting(Source As Field)
  1323.      
  1324.      
  1325.      F=Evaluate(|@False|)
  1326.      T=Evaluate(|@True|)
  1327.      
  1328.      l=Len(doc.PhoneNumber_6(0))
  1329. REM "Test to see if the number contains any letters. 
  1330. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1331. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1332. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1333.      
  1334.      x=Evaluate(|!@Matches(PhoneNumber_6;"+{!a-zA-Z}")|, doc)
  1335.      
  1336.      letters=Evaluate(|@Trim(@ReplaceSubstring(PhoneNumber_6;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1337.      FirstLet=Left(letters(0),1)
  1338.      
  1339.      p=Evaluate(|@Begins(PhoneNumber_6;"1")|,doc)
  1340.      
  1341.      sep=Evaluate(|@Contains(PhoneNumber_6;"-")|,doc)
  1342.      
  1343.      par=Evaluate(|@Contains(PhoneNumber_6;"(") & @Contains(PhoneNumber_6;")")|,doc)
  1344.      
  1345.      num=doc.PhoneNumber_6(0)
  1346.      
  1347.      If num="" Then
  1348.           Exit Sub
  1349.      End If
  1350.      
  1351.      Call ParsePhoneNumber(num)
  1352.      
  1353.      doc.PhoneNumber_6=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1354.      
  1355.      Call uidoc.refresh
  1356. End Sub
  1357. '++LotusScript Development Environment:2:2:Terminate:1:10
  1358. Sub Terminate
  1359.      
  1360. End Sub
  1361. Lotus Product
  1362. OBJECT
  1363. PhoneNumber_6
  1364. +{!a-zA-Z}I
  1365.     0S0E
  1366. PhoneNumber_6
  1367.     0S0E
  1368. PhoneNumber_6
  1369.     0S0E
  1370. PhoneNumber_6
  1371.     0S0E
  1372. PhoneNumber_6
  1373. PhoneNumber_6
  1374.     6S7S
  1375. Field Label
  1376.     Phone labels:
  1377. Office Phone
  1378. PhoneLabel_1
  1379. Office Fax
  1380. PhoneLabel_3
  1381. Cell Phone
  1382. PhoneLabel_5
  1383. Home Phone
  1384. PhoneLabel_2
  1385. Home Fax
  1386. PhoneLabel_4
  1387. Pager
  1388. PhoneLabel_6
  1389.     Business address fields:
  1390. StreetAddress_1
  1391. OfficeStreetAddressStreet address.
  1392. City_1
  1393. OfficeCityCity or town name.
  1394. State_1
  1395. OfficeStateState or province name.
  1396.     Home Address: 
  1397. StreetAddressStreet address.
  1398. CityCity or town name.
  1399. StateState or province name.
  1400.     0S0E
  1401. AreaCodeFromLoc
  1402.     Profile flags: 
  1403. PersonalAddressBookProfile
  1404. ParseFlag
  1405.     0S0E
  1406. ParseFlag
  1407. DirectoryProfile
  1408. $BusinessCardStyle
  1409.     0S0E
  1410. $BusinessCard
  1411. DirectoryProfile
  1412. $BusinessCardBkg
  1413.     0S0E
  1414. $BusinessCardBkg
  1415. BUSINESS CARD
  1416. BusinessCard
  1417. BusinessCard
  1418. Default
  1419. FirstName
  1420. LastName"
  1421.     1S2S3S4S
  1422. DefaultPersonNameDisp
  1423. CompanyName
  1424. DefaultCompanyNameDisp
  1425. BusinessAddress
  1426. DefaultBusinessAddressDisp
  1427. OfficeZip
  1428. DefaultOfficeZipDisp
  1429. Tel: 
  1430. OfficePhoneNumber
  1431.     0S0E
  1432. DefaultOfficePhoneNumberDisp
  1433. Fax: 
  1434. OfficeFaxPhoneNumber"
  1435.     0S0E
  1436. DefaultOfficeFAXPhoneNumberDisp
  1437. MailAddress
  1438. DefaultMailAddressDisp
  1439. Default
  1440. Default
  1441. $BusinessCardBkg
  1442. CompanyName
  1443. O1CompanyNameD
  1444. FirstName
  1445. LastName"
  1446.     1S2S3S4S
  1447. O1PersonNameD
  1448. JobTitle
  1449. O1JobTitleD
  1450. Tel: 
  1451. OfficePhoneNumber
  1452.     0S0E
  1453. O1OfficePhoneNumberD
  1454. Fax: 
  1455. OfficeFaxPhoneNumber"
  1456.     0S0E
  1457. O1OfficeFAXNumberD
  1458. BusinessAddress
  1459. O1BusinessAddressD
  1460. OfficeZip
  1461. O1OfficeZipD
  1462. MailAddress
  1463. O1MailAddressD
  1464. $BusinessCardBkg
  1465. FirstName
  1466. LastName"
  1467.     1S2S3S4S
  1468. O2PersonNameD
  1469. BusinessAddress
  1470. O2BusinessAddressD
  1471. OfficeZip
  1472. O2OfficeZipD
  1473. Tel: 
  1474. OfficePhoneNumber
  1475.     0S0E
  1476. O2OfficePhoneNumberD
  1477. Fax: 
  1478. OfficeFaxPhoneNumber"
  1479. O2OfficeFAXNumberD
  1480. CompanyName
  1481. O2CompanyNameD
  1482. MailAddress
  1483. O2MailAddressD
  1484. $BusinessCardBkg
  1485. CompanyName
  1486. O3CompanyNameD
  1487. FirstName
  1488. LastName"
  1489.     1S2S3S4S
  1490. O3PersonNameD
  1491. BusinessAddress
  1492. O3BusinessAddressD
  1493. OfficeZip
  1494. O3OfficeZipD
  1495. OfficePhoneNumber
  1496. O3OfficePhoneNumberD
  1497. Fax: 
  1498. OfficeFaxPhoneNumber"
  1499.     0S0E
  1500. O3OfficeFAXNumberD
  1501. MailAddress
  1502. O3MailAddressD
  1503. $BusinessCardBkg
  1504. Tel: 
  1505. OfficePhoneNumber
  1506.     0S0E
  1507. O4OfficePhoneNumberD
  1508. Fax: 
  1509. OfficeFaxPhoneNumber"
  1510.     0S0E
  1511. O4OfficeFAXNumberD
  1512. CompanyName
  1513. O4CompanyNameD
  1514. BusinessAddress
  1515. O4BusinessAddressD
  1516. OfficeZip
  1517. O4OfficeZipD
  1518. FirstName
  1519. LastName"
  1520.     1S2S3S4S
  1521. O4PersonNameD
  1522. JobTitle
  1523. O4JobTitleD
  1524. MailAddress
  1525. O4MailAddressD
  1526. $BusinessCardBkg
  1527.     Title:
  1528. Title
  1529. -None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
  1530.     First name:
  1531. FirstNameFirst name(s) and nicknames - e.g. John; Johnny
  1532.     Middle name/inital:
  1533. MiddleInitialMiddle Initial with a trailing period (optional).
  1534.     Last name:
  1535. LastName
  1536. CompanyName
  1537. A Name is required{
  1538.     3S4S5S6S9S10S12S17SLastNameLast name - e.g. Smith.
  1539.     Suffix:
  1540. Suffix
  1541. -None-|Jr.|Jr.Sr.|Sr.IIIIII
  1542. Enter the person's email address.
  1543.     Email address:
  1544. MailAddress
  1545. Put document in Edit Mode.
  1546. Get the default for the listbox
  1547.     0R1S
  1548. MailSystem
  1549. Lotus Notes
  1550. MailSystem
  1551. Lotus cc:Mail
  1552. MailSystem
  1553. Other
  1554. MailSystem
  1555. X.400 Mail
  1556. MailSystem
  1557. Internet Mail
  1558. MailSystem
  1559. Lotus Notes
  1560.     0R1S2S5S6S8S10S11S12S14S16RS19E17S18S20S22S23S24S26S28RS19E29S30S32S34S35S36S38S40S
  1561. Get the type of mail system
  1562.     0RR1S
  1563. Mail Address Assistant
  1564. Choose the type of mail system the person uses:
  1565. Lotus Notes
  1566. Lotus cc:Mail
  1567. Internet Mail
  1568. X.400 Mail
  1569. Other
  1570.     0R1S2S8RS19E12RS20E
  1571. Determine the helper form name
  1572.     0RR1S
  1573. helper
  1574. Lotus Notes
  1575. (Notes Address Helper)
  1576. Lotus cc:Mail
  1577. (ccMail Address Helper)
  1578. Internet Mail
  1579. (Internet Address Helper)
  1580. X.400 Mail
  1581. (X400 Address Helper)
  1582. (Fax Address Helper)
  1583. (Other Address Helper)
  1584.     0R1S2S5S6S8S10S11S12S14S16RS26E17S18S20S22S23S24S26S28RS26E30S32S34S
  1585. Display the helper form - results are returned to current document
  1586.     0RR1S
  1587. helper
  1588. helper
  1589. Mail Address Assistant
  1590.     0R3S4S6S10S19S
  1591. (HomeAddressHelper)
  1592. Home Address
  1593. (PhoneHelper)
  1594. Phones
  1595.     0R3S
  1596. Put document in Edit Mode.
  1597. Get the default for the listbox
  1598.     0R1S
  1599. MailSystem
  1600. Lotus Notes
  1601. MailSystem
  1602. Lotus cc:Mail
  1603. MailSystem
  1604. Other
  1605. MailSystem
  1606. X.400 Mail
  1607. MailSystem
  1608. Internet Mail
  1609. MailSystem
  1610. Lotus Notes
  1611.     0R1S2S5S6S8S10S11S12S14S16RS19E17S18S20S22S23S24S26S28RS19E29S30S32S34S35S36S38S40S
  1612. Get the type of mail system
  1613.     0RR1S
  1614. Mail Address Assistant
  1615. Choose the type of mail system the person uses:
  1616. Lotus Notes
  1617. Lotus cc:Mail
  1618. Internet Mail
  1619. X.400 Mail
  1620. Other
  1621.     0R1S2S8RS19E12RS20E
  1622. Determine the helper form name
  1623.     0RR1S
  1624. helper
  1625. Lotus Notes
  1626. (Notes Address Helper)
  1627. Lotus cc:Mail
  1628. (ccMail Address Helper)
  1629. Internet Mail
  1630. (Internet Address Helper)
  1631. X.400 Mail
  1632. (X400 Address Helper)
  1633. (Fax Address Helper)
  1634. (Other Address Helper)
  1635.     0R1S2S5S6S8S10S11S12S14S16RS26E17S18S20S22S23S24S26S28RS26E30S32S34S
  1636. Display the helper form - results are returned to current document
  1637.     0RR1S
  1638. helper
  1639. helper
  1640. Mail Address Assistant
  1641.     0R3S4S6S10S19S
  1642. InternetAddress
  1643. Internet Mail
  1644. MailAddress
  1645. InternetAddress
  1646. InternetAddress
  1647.     0RR1S
  1648. `!b`1
  1649. `bOOO
  1650. `<b!R
  1651. 2?///
  1652. Name/Email
  1653.     Business
  1654. Enter the name of the company.
  1655.     Company:
  1656. CompanyNameCompany name.
  1657. ($CompanyList)
  1658. Enter the job title.
  1659. Enter the job title.
  1660.     Job title:
  1661. JobTitleJob title(s).
  1662. Enter the business address, excluding ZIP/postal code and country.
  1663.     Address:
  1664. OfficeStreetAddress
  1665. OfficeCity
  1666. OfficeCity"
  1667. OfficeState
  1668. OfficeCity
  1669. OfficeState
  1670.     19S20S
  1671. BusinessAddress
  1672.     0S0E
  1673. BusinessAddress
  1674. (BusinessAddressHelper)
  1675. Business Address
  1676. (BusinessAddressHelper)
  1677. Business Address
  1678. `!b`1
  1679. `bOOO
  1680. `<b!R
  1681. 2?///
  1682. Enter the business address, excluding ZIP/postal code and country.
  1683.     Address:
  1684. BusinessAddress
  1685. DisplayBusinessAddress
  1686. Enter the ZIP code or Postal code for the business address.
  1687.     ZIP/Postal code:
  1688. Zip_1
  1689. OfficeZipEnter the ZIP or postal code.
  1690. Enter the country for the business address.
  1691.     Country:
  1692. Country_1
  1693. OfficeCountryPerson's home country.
  1694.     Home
  1695. Enter the home address, excluding ZIP/postal code and country.
  1696.     Home address:
  1697. StreetAddress
  1698. City"
  1699. State
  1700. State
  1701.     19S20S
  1702. HomeAddress
  1703. (HomeAddressHelper)
  1704. Home Address
  1705. (PhoneHelper)
  1706. Phones
  1707.     0R3S
  1708. (HomeAddressHelper)
  1709. Home Address
  1710. `!b`1
  1711. `bOOO
  1712. `<b!R
  1713. 2?///
  1714. Enter the home address, excluding ZIP/postal code and country.
  1715.     Home address:
  1716. HomeAddress
  1717. DisplayHomeAddress
  1718. Enter the ZIP code or Postal code for the home address.
  1719.     ZIP/Postal code:
  1720. ZipEnter the ZIP or postal code.
  1721. Enter the country for the home address.
  1722.     Country:
  1723. CountryPerson's home country.
  1724. Addresses
  1725. PhoneLabel_1
  1726. PhoneLabel1
  1727. OfficePhoneNumberOffice phone number.
  1728. (PhoneHelper)
  1729. Phones
  1730.     0R3S
  1731. (PhoneHelper)
  1732. Phones
  1733.     0R3S
  1734. `!b`1
  1735. `bOOO
  1736. `<b!R
  1737. 2?///
  1738. PhoneLabel_1
  1739. PhoneLabel1Disp
  1740. OfficePhoneNumber
  1741. OfficePhoneNumberDisp
  1742. PhoneLabel_3
  1743. PhoneLabel3
  1744. OfficeFAXPhoneNumberOffice FAX phone number.
  1745. PhoneLabel_5
  1746. PhoneLabel5
  1747. CellPhoneNumberCellular phone number.
  1748. PhoneLabel_2
  1749. PhoneLabel2
  1750. PhoneNumberHome phone number.
  1751. PhoneLabel_4
  1752. PhoneLabel4
  1753. HomeFAXPhoneNumberHome FAX phone number.
  1754. PhoneLabel_6
  1755. PhoneLabel6
  1756. PhoneNumber_6Pager phone number.
  1757. Phone Numbers
  1758.     Business
  1759. Office location or mailstop.
  1760.     Location:
  1761. LocationOffice location or mailstop.
  1762. Department name(s).
  1763.     Department:
  1764. DepartmentDepartment name(s).
  1765. Name of the person's manager or supervisor.
  1766.     Manager:
  1767. ManagerManager's name.
  1768. Name of person's assistant or secretary.
  1769.     Assistant:
  1770. AssistantAssistant's name.
  1771.     Home
  1772. Spouse's name.
  1773.     Spouse:
  1774. SpouseSpouse's name.
  1775. Children's names.
  1776.     Children:
  1777. ChildrenChildren's names.
  1778.     Other
  1779. Enter the URL for the person's web page.
  1780.     Web page:
  1781. WebSite
  1782. Enter the categories for this business card. 
  1783.     Categories:
  1784. Categories
  1785. Categories
  1786. Miscellaneous
  1787. Enter any comments.
  1788.     Comments:
  1789. CommentEnter a comment.
  1790. Comments
  1791. Enter the user's hierarchical name and any other variations, for example, Jon Smith/Sales/Acme; Jonathan M. Smith. You can use any of these names in the To field of Notes mail messages. 
  1792.     Full user name:
  1793. FullNameDistinguished name and aliases - e.g. Jon Smith/Sales/Acme; Jonathan M. Smith.
  1794. Electronic mail domain name component of the person's electronic mail address.  Choose the button next to the Mail address field for further assistance.
  1795.     Mail domain:
  1796. MailDomainDomain name of person's mail server.
  1797. MailSystem
  1798. Notes|1cc:Mail|2Internet|5X.400|4Other|3None|100
  1799. Short "nickname" to be used when addressing mail to the person.
  1800.     Short name:
  1801. ShortNameShort username used by some foreign mail gateways (e.g. PROFS).
  1802. Use this field only if the user has a hierarchical, ID.
  1803. In most cases, leave this field blank. Use only if you want to send encrypted mail to a user who is in a different domain and the servers in your domain do not have access to the Public Address Book for the recipient's domain, or you want so send encrypted mail and you operate in a disconnected fashion and do not have access to the Public Address Book when you want to send mail. In such a case, the user can send you a copy of the public key for you to paste into this field. 
  1804.     Certified public key:
  1805. CertificatePerson's certified public key.
  1806.     Internet certificate:
  1807. UserCertificate
  1808. UserCertificate
  1809.     6S7S
  1810. userCertificateDisplay
  1811. Present|1Not Available|0
  1812.     Internet certificate issuers:
  1813.     6S7S9S
  1814. Issuers
  1815. UserCertificate
  1816.     0R6S
  1817. leftissuers
  1818. issuers
  1819. leftissuers
  1820. X509Issuers
  1821. Use this field only if the user has a flat, not a hierarchical, ID.
  1822. In most cases, leave this field blank. Use only if you want to send encrypted mail to a user who is in a different domain and the servers in your domain do not have access to the Public Address Book for the recipient's domain, or you want so send encrypted mail and you operate in a disconnected fashion and do not have access to the Public Address Book when you want to send mail. In such a case, the user can send you a copy of the public key for you to paste into this field. 
  1823.     Public key:   
  1824. PublicKeyPerson's public key.
  1825. Advanced
  1826. Person
  1827. DocumentAccess
  1828. Save and Close>
  1829.     0S0E
  1830.     0S0E
  1831. _Edit Card
  1832. Preview Card 
  1833.     0S0E
  1834. Show Details 
  1835.     0S0E
  1836. Categori_zeK
  1837. Create Cross Certificate
  1838. UserCertificate
  1839. Certificate
  1840.     0S0E
  1841. leftsubs
  1842. rightsubs
  1843. Create Cross Certificate
  1844. What certificate do you want to cross certify?
  1845. leftsubs
  1846.     0R1S2S6S8S10S12S
  1847.     0R5S6S
  1848. leftsubsv
  1849. leftsubsj
  1850. rightsubs
  1851. rightsubs
  1852. rightsubs
  1853. UserCertificate
  1854. Certificate
  1855. Send Docu_ment
  1856. _Forward
  1857. _Move to Folder...    
  1858. _Remove from Folder...
  1859. Save and Close>
  1860.     0S0E
  1861.     0S0E
  1862. _Edit Card
  1863. Preview Card 
  1864.     0S0E
  1865. Show Details 
  1866.     0S0E
  1867. Categori_zeK
  1868. Create Cross Certificate
  1869. UserCertificate
  1870. Certificate
  1871.     0S0E
  1872. leftsubs
  1873. rightsubs
  1874. Create Cross Certificate
  1875. What certificate do you want to cross certify?
  1876. leftsubs
  1877.     0R1S2S6S8S10S12S
  1878.     0R5S6S
  1879. leftsubsv
  1880. leftsubsj
  1881. rightsubs
  1882. rightsubs
  1883. rightsubs
  1884. UserCertificate
  1885. Certificate
  1886. Send Docu_ment
  1887. _Forward
  1888. _Move to Folder...    
  1889. _Remove from Folder...
  1890. O=Lotus Notes
  1891. O=Lotus Notes
  1892. PURSAFO
  1893. |.:#U
  1894. O=Lotus Notes
  1895. CN=Lotus Notes Template Development/O=Lotus Notes
  1896. PURSAFO
  1897. $Author
  1898. $$Name
  1899. $Name_O
  1900. $FormUsers
  1901. $INFO
  1902. $WINDOWTITLE
  1903. $Script
  1904. $$Script_O
  1905. $$ScriptName
  1906. $$FormScript
  1907. $$$FormScript_O
  1908. $$CompanyName
  1909. $CompanyName_O
  1910. $$BusinessAddress
  1911. $BusinessAddress_O
  1912. $$HomeAddress
  1913. $HomeAddress_O
  1914. $$OfficePhoneNumber
  1915. $OfficePhoneNumber_O
  1916. $$OfficeFAXPhoneNumber
  1917. $OfficeFAXPhoneNumber_O
  1918. $$CellPhoneNumber
  1919. $CellPhoneNumber_O
  1920. $$PhoneNumber
  1921. $PhoneNumber_O
  1922. $$HomeFAXPhoneNumber
  1923. $HomeFAXPhoneNumber_O
  1924. $$PhoneNumber_6
  1925. $PhoneNumber_6_O
  1926. $BODY
  1927. $V5ACTIONS
  1928. $ACTIONS
  1929. Times New Roman
  1930. About Personal Address Book
  1931. Basic
  1932. Welcome to the Notes Personal Address Book.  A personal address book database is designed to keep information about the people, companies, and server computers with which you communicate.  Every Notes user is required to have his or her own personal address book database stored on the user's personal computer (never on a server).
  1933. Choose "Using This Database" in the Help menu for suggestions on tailoring this database for your personal use.
  1934. ---------------
  1935. (Close this window to return to the database)
  1936. O=Lotus Notes
  1937. O=Lotus Notes
  1938. PURSAFO
  1939. |.:#U
  1940. O=Lotus Notes
  1941. CN=Lotus Notes Template Development/O=Lotus Notes
  1942. PURSAFO
  1943. $INFO
  1944. $BODY
  1945. O=Lotus Notes
  1946. O=Lotus Notes
  1947. PURSAFO
  1948. |.:#U
  1949. O=Lotus Notes
  1950. CN=Lotus Notes Template Development/O=Lotus Notes
  1951. PURSAFO
  1952. Fde!f^^
  1953. $TITLE
  1954. $INFO
  1955. $BODY
  1956. (Other Address Helper)
  1957. Other Mail Address
  1958.     Other mail system address:
  1959.     Notes gateway domain:
  1960. MailAddress
  1961.     1S2S6S
  1962. MailAddress
  1963. MailAddress
  1964. FullName
  1965.     0R5S6S8S10S20S
  1966. UserName
  1967. Include both any domain from address and anyone from MailDomain field
  1968. MailAddress
  1969.     0R1S2S
  1970. MailDomain
  1971. MailDomain"
  1972. MailDomain
  1973.     0R3S4S5S6S7S8S10S11S12S13S14S16S17S18S20S22S
  1974. Domain
  1975. UserName
  1976. Domain
  1977. Domain"
  1978.     1S2S5S6S8S12SMailAddress
  1979. MailSystem
  1980. Always zero out the MailDomain because it is now part of MailAddress
  1981. MailDomain
  1982. Categori_ze 
  1983. _Edit Document
  1984. Send Docu_ment
  1985. _Forward
  1986. _Move to Folder...
  1987. _Remove from Folder...
  1988. O=Lotus Notes
  1989. O=Lotus Notes
  1990. PURSAFO
  1991. |.:#U
  1992. O=Lotus Notes
  1993. CN=Lotus Notes Template Development/O=Lotus Notes
  1994. PURSAFO
  1995. nkQ/R
  1996. $TITLE
  1997. $INFO
  1998. $$ScriptName
  1999. $BODY
  2000. $ACTIONS
  2001. (FAX Address Helper)
  2002. Fax Mail Address
  2003.     Person's name:
  2004.     Notes fax gateway domain:
  2005. Fax machine phone number:
  2006. MailAddress
  2007. MailAddress
  2008. FullName
  2009.     3S4S6S12S16S20SUserName
  2010. Get the phone number from the middle of the address
  2011. MailAddress
  2012.     0R1S2S6S
  2013.     0R1S2S8S10S11S13S17S20S
  2014. OfficeFAXPhoneNumber
  2015.     0R5S6S8S10SFaxNumber
  2016. Get the third thru nth domain names
  2017. MailAddress
  2018. MailDomain
  2019. MailDomain"
  2020.     0R1S2S8S11S
  2021. FaxDomain
  2022.     0R5S6S8S10S
  2023. Save the gateway domain in the user's profile for future addresses
  2024. FaxDomain
  2025. FaxDomain
  2026.     0R4S
  2027. FaxDomain
  2028. FaxDomain
  2029. UserName
  2030. FaxNumber
  2031. FaxDomain
  2032. FaxDomain
  2033.     5S6S9S10S12S13S14S16SMailAddress
  2034. MailSystem
  2035. Always zero out the MailDomain because it is now part of MailAddress
  2036. MailDomain
  2037. Categori_ze
  2038. _Edit Document
  2039. Send Docu_ment
  2040. _Forward
  2041. _Move to Folder...
  2042. _Remove from Folder...
  2043. O=Lotus Notes
  2044. O=Lotus Notes
  2045. PURSAFO
  2046. |.:#U
  2047. O=Lotus Notes
  2048. CN=Lotus Notes Template Development/O=Lotus Notes
  2049. PURSAFO
  2050. {Awu;
  2051. It_Cp
  2052. $TITLE
  2053. $INFO
  2054. $$ScriptName
  2055. $BODY
  2056. $ACTIONS
  2057. Started running agent 'Remove Address Book Preferences' on 10/17/98 01:55:27 PM
  2058. Ran LotusScript code
  2059. Done running agent 'Remove Address Book Preferences' on 10/17/98 01:55:29 PM
  2060. Add AccountK,
  2061. Account
  2062.     0S0E
  2063. _Edit Account
  2064. Delete Account 
  2065.     0S0E
  2066. Send Docu_ment
  2067. Categori_zeK
  2068. _Forward
  2069. _Move to Folder...
  2070. _Remove from Folder...
  2071. Preferences...4
  2072. DirectoryProfile
  2073.     0S0E
  2074. Add AccountK,
  2075. Account
  2076.     0S0E
  2077. _Edit Account
  2078. Delete Account 
  2079.     0S0E
  2080. Send Docu_ment
  2081. Categori_zeK
  2082. _Forward
  2083. _Move to Folder...
  2084. _Remove from Folder...
  2085. Preferences...4
  2086. DirectoryProfile
  2087.     0S0E
  2088. O=Lotus Notes
  2089. O=Lotus Notes
  2090. PURSAFO
  2091. |.:#U
  2092. O=Lotus Notes
  2093. CN=Lotus Notes Template Development/O=Lotus Notes
  2094. PURSAFO
  2095. $TITLE
  2096. $Index
  2097. $Formula
  2098. $FormulaClass
  2099. $VIEWFORMAT
  2100. $Comment
  2101. $V5ACTIONS
  2102. $ACTIONS
  2103. (X400 Address Helper)
  2104.  Extract X400 O/R address portion (address) from MailAddress
  2105. MailAddress
  2106. address
  2107. MailAddress
  2108.     0R5S6S8S10S
  2109. Check to see if the string '/DDA.' exists in the MailAddress, and if not return.
  2110.     0RR1S
  2111. check
  2112. address
  2113. /DDA.
  2114.  Assign substring between 1st '/DDA.' and the next '/'  to DDA1 field. 
  2115.     0RR1S
  2116. address
  2117. /DDA.
  2118.     0R1S
  2119.  Assign substring between 2nd '/dda.' and the next '/'  to DDA2 field. 
  2120.     0RR1S
  2121. address
  2122. DDA1`
  2123. /DDA.
  2124. address
  2125. /DDA.
  2126. DDA1"
  2127. /DDA.
  2128.     0R1S7S17S
  2129.  Assign substring between 3nd '/dda.' and the next '/'  to DDA3 field. 
  2130.     0RR1S
  2131. address
  2132. DDA2`
  2133. /DDA.
  2134. address
  2135. /DDA.
  2136. DDA2"
  2137. /DDA.
  2138.     0R1S7S17S
  2139.  Assign substring between 4th '/dda.' and the next '/'  to DDA4 field. 
  2140.     0RR1S
  2141. address
  2142. DDA3`
  2143. /DDA.
  2144. address
  2145. /DDA.
  2146. DDA3"
  2147. /DDA.
  2148.     0R1S7S17S
  2149.  Dummy value. 
  2150.     0RR1S
  2151. X.400 Address
  2152. Given name (/G):
  2153. Surname (/S):
  2154. Organization (/O):
  2155. Country (/C):
  2156. MailAddress
  2157.     1S2S
  2158. MailAddress
  2159. MailAddress
  2160. FirstName
  2161.     0R5S6S8S10S18S19S25S26S28S30SG
  2162. MailAddress
  2163.     1S2S
  2164. MailAddress
  2165. MailAddress
  2166. LastName
  2167.     0R5S6S8S10S18S2E19S25S26S28S30SS
  2168. MailAddress
  2169.     0S0E
  2170. MailAddress
  2171.     0S0E
  2172. MailAddress
  2173.     0S0E
  2174. MailAddress
  2175.     0S0E
  2176. MailAddress
  2177.     0S0E
  2178. MailAddress
  2179.     0S0E
  2180. Org Unit 1 (/OU1):
  2181. Org Unit 4 (/OU4):
  2182. Org Unit2 (/OU2):
  2183. Org Unit 3 (/OU3):
  2184. MailAddress
  2185.     0S0E
  2186. Initials (/I):
  2187. MailAddress
  2188.     0S0E
  2189. Generational qualifier (/Q):
  2190. MailAddress
  2191.     0S0E
  2192. MailAddress
  2193.     0S0E
  2194. PRMD (/P):
  2195. ADMD (/A):
  2196. MailAddress
  2197.     0S0E
  2198. Common name (/CN):
  2199. Include both any domain from MailAddress and any from MailDomain field
  2200. MailAddress
  2201.     0R1S2S
  2202. domain
  2203. MailDomain
  2204. MailDomain"
  2205. MailDomain
  2206.     0R1S2S5S6S7S8S9S10S12S13S14S15S16S18S19S20S22S24S
  2207. domain
  2208. domain
  2209. X400Domain|
  2210.     0R3S4S6S8S
  2211. Save the gateway domain in the user's profile for future addresses
  2212. X400Domain
  2213. X400Domain|
  2214.     0R4S
  2215. X400Domain
  2216. X400Domain
  2217. Gateway domain (optional):
  2218. DDA (/DDA.type=value):
  2219. DDA (/DDA.type=value):
  2220. DDA (/DDA.type=value):
  2221. DDA (/DDA.type=value):
  2222. /OU4=
  2223. /OU3=
  2224. /OU2=
  2225. /OU1=
  2226. PRMD"
  2227. ADMD"
  2228. /DDA.
  2229. DDA1"
  2230. /DDA.
  2231. DDA2"
  2232. /DDA.
  2233. DDA3"
  2234. /DDA.
  2235. DDA4"
  2236. X400Domain
  2237. X400Domain"
  2238.     13R65R117R169R201R233R236S237S239S
  2239. MailAddress
  2240. MailSystem
  2241. Always zero out the MailDomain because it is now part of MailAddress
  2242. MailDomain
  2243. Categori_ze 
  2244. _Edit Document
  2245. Send Docu_ment
  2246. _Forward
  2247. _Move to Folder...
  2248. _Remove from Folder...
  2249. O=Lotus Notes
  2250. O=Lotus Notes
  2251. PURSAFO
  2252. |.:#U
  2253. O=Lotus Notes
  2254. CN=Lotus Notes Template Development/O=Lotus Notes
  2255. PURSAFO
  2256. $TITLE
  2257. $INFO
  2258. $$ScriptName
  2259. $BODY
  2260. $ACTIONS
  2261. (ccMail Address Helper)
  2262. cc:Mail Address
  2263.     User name:
  2264.     Post Office:
  2265.     cc:Mail domain:
  2266.  Extract cc:Mail address portion (address) from MailAddress
  2267. MailAddress
  2268. address
  2269. MailAddress
  2270.     0R5S6S8S10S
  2271. Find the position (at) of a case independent ' at ' substring in address. 
  2272.     0R1S
  2273. address
  2274.  at _
  2275. Use text to left of ' at ' as username. If no ' at ' found, use entire address
  2276.     0R1S
  2277. address
  2278. address
  2279.     0R1S2S7S8S10S12S
  2280. If no username yet, use the FullName field
  2281.     0R1S
  2282. FullName
  2283.     0R3S4S7S8S
  2284. ccMailUserName
  2285.  Extract cc:Mail address portion (address) from MailAddress
  2286. MailAddress
  2287. address
  2288. MailAddress
  2289.     0R5S6S8S10S
  2290. Find the position (at) of a case independent ' at ' substring in address. 
  2291.     0R1S
  2292. address
  2293.  at `
  2294. Use text to right of ' at ' as post office name. If no ' at ' found, there is no post office name
  2295.     0R1S
  2296. address
  2297.     0R5S6S8S15SccMailPO
  2298. Include both any domain from MailAddress and any from MailDomain field
  2299. MailAddress
  2300.     0R1S2S
  2301. domain
  2302. MailDomain
  2303. MailDomain"
  2304. MailDomain
  2305.     0R1S2S5S6S7S8S9S10S12S13S14S15S16S18S19S20S22S24S
  2306. domain
  2307. domain
  2308. ccMailDomain|
  2309.     0R3S4S6S8S
  2310. ccMailDomain
  2311. ccMailDomain|
  2312. ccMailDomain
  2313. ccMailDomain
  2314. Concatenate username + PO + domain
  2315. ccMailUserName
  2316. ccMailPO
  2317. ccMailPO"
  2318. ccMailDomain
  2319. ccMailDomain"
  2320.     0R1S2S5S6S8S9S10S14S15S18S19S21S22S23S25SMailAddress
  2321. MailSystem
  2322. Always zero out the MailDomain because it is now part of MailAddress
  2323. MailDomain
  2324. Categori_ze 
  2325. _Edit Document
  2326. Send Docu_ment
  2327. _Forward
  2328. _Move to Folder...
  2329. _Remove from Folder...
  2330. O=Lotus Notes
  2331. O=Lotus Notes
  2332. PURSAFO
  2333. |.:#U
  2334. O=Lotus Notes
  2335. CN=Lotus Notes Template Development/O=Lotus Notes
  2336. PURSAFO
  2337. "<#Td
  2338. (h*Z0
  2339. m}'Ff
  2340. $TITLE
  2341. $INFO
  2342. $$ScriptName
  2343. $BODY
  2344. $ACTIONS
  2345. (BusinessAddressHelper)
  2346.     Street:
  2347.     City:
  2348.     Zip/Postal code:
  2349.     State:
  2350.     Country:
  2351. StreetAddress_1
  2352.     0S0E
  2353. OfficeStreetAddressStreet address.
  2354. City_1^
  2355.     0S0E
  2356. OfficeCityCity or town name.
  2357. State_1
  2358.     0S0E
  2359. OfficeStateState or province name.
  2360. Zip_1
  2361.     0S0E
  2362. OfficeZipEnter the ZIP or postal code.
  2363. Country_1
  2364.     0S0E
  2365. OfficeCountryPerson's home country.
  2366. OfficeStreetAddress
  2367. OfficeCity
  2368. OfficeStreetAddress
  2369. OfficeCity"
  2370. OfficeCity
  2371. OfficeState
  2372. OfficeCity
  2373. OfficeState
  2374.     4RS11E21RS11E26S27SBusinessAddress
  2375. O=Lotus Notes
  2376. O=Lotus Notes
  2377. PURSAFO
  2378. |.:#U
  2379. O=Lotus Notes
  2380. CN=Lotus Notes Template Development/O=Lotus Notes
  2381. PURSAFO
  2382. C)^l+
  2383. $TITLE
  2384. $INFO
  2385. $$Script_O
  2386. $$ScriptName
  2387. $BODY
  2388. (HomeAddressHelper)
  2389.     Street:
  2390.     City:
  2391.     Zip/Postal code:
  2392.     State:
  2393.     Country:
  2394. StreetAddress
  2395. StreetAddressStreet address.
  2396. CityCity or town name.
  2397. State
  2398. StateState or province name.
  2399. ZipEnter the ZIP or postal code.
  2400. Country
  2401. CountryPerson's home country.
  2402. StreetAddress
  2403. StreetAddress
  2404. City"
  2405. State
  2406. State
  2407.     4RS11E21RS11E26S27SHomeAddress
  2408. O=Lotus Notes
  2409. O=Lotus Notes
  2410. PURSAFO
  2411. |.:#U
  2412. O=Lotus Notes
  2413. CN=Lotus Notes Template Development/O=Lotus Notes
  2414. PURSAFO
  2415. ;\STw
  2416. $TITLE
  2417. $INFO
  2418. $$ScriptName
  2419. $BODY
  2420. (NameHelper)
  2421.     First name:
  2422.     Middle name:
  2423.     Last name:
  2424.     Title:
  2425.     Suffix:
  2426. Name_Edit
  2427. FirstNameFirst name(s) and nicknames - e.g. John; Johnny
  2428. MiddleInitial_Edit
  2429. MiddleInitialMiddle Initial with a trailing period (optional).
  2430. LastName_Edit
  2431. LastNameLast name - e.g. Smith.
  2432. Title
  2433. -None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
  2434. Suffix
  2435. -None-|Jr.|Jr.Sr.|Sr.IIIIII
  2436. Title
  2437. FirstName
  2438. MiddleInitial
  2439. LastName"
  2440. Suffix"
  2441.     12SName
  2442. O=Lotus Notes
  2443. O=Lotus Notes
  2444. PURSAFO
  2445. |.:#U
  2446. O=Lotus Notes
  2447. CN=Lotus Notes Template Development/O=Lotus Notes
  2448. PURSAFO
  2449. l-d6h*1]-!
  2450. $TITLE
  2451. $INFO
  2452. $$Script_O
  2453. $$ScriptName
  2454. $BODY
  2455. '++LotusScript Development Environment:2:5:(Options):0:74
  2456. Option Public
  2457. Use "PhoneParser"
  2458. '++LotusScript Development Environment:2:5:(Forward):0:1
  2459. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2460. (PhoneHelper)'++LotusScript Development Environment:2:5:(Options):0:66
  2461. '++LotusScript Development Environment:2:5:(Forward):0:1
  2462. Declare Sub Postopen(Source As Notesuidocument)
  2463. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2464. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2465. Private Sub BindEvents(Byval Objectname_ As String)
  2466.      Static Source As NOTESUIDOCUMENT
  2467.      Set Source = Bind(Objectname_)
  2468.      On Event Postopen From Source Call Postopen
  2469. End Sub
  2470. '++LotusScript Development Environment:2:2:Postopen:1:12
  2471. Sub Postopen(Source As Notesuidocument)
  2472.      Dim w As New NotesUIWorkspace 
  2473.      Dim s As New NotesSession
  2474.      Set db = s.CurrentDatabase
  2475.      Set uidoc=source
  2476.      Set doc = uidoc.document
  2477. End Sub
  2478. '++LotusScript Development Environment:2:5:(Options):0:66
  2479. '++LotusScript Development Environment:2:5:(Forward):0:1
  2480. Declare Sub Exiting(Source As Field)
  2481. Declare Sub Entering(Source As Field)
  2482. Declare Sub Initialize
  2483. Declare Sub Terminate
  2484. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2485. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2486. Private Sub BindEvents(Byval Objectname_ As String)
  2487.      Static Source As FIELD
  2488.      Set Source = Bind(Objectname_)
  2489.      On Event Exiting From Source Call Exiting
  2490.      On Event Entering From Source Call Entering
  2491. End Sub
  2492. '++LotusScript Development Environment:2:2:Exiting:1:12
  2493. Sub Exiting(Source As Field)
  2494.      
  2495.      
  2496.      F=Evaluate(|@False|)
  2497.      T=Evaluate(|@True|)
  2498.      
  2499.      l=Len(doc.OfficePhoneNumber(0))
  2500. REM "Test to see if the number contains any letters. 
  2501. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2502. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2503. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2504.      
  2505.      x=Evaluate(|!@Matches(OfficePhoneNumber;"+{!a-zA-Z}")|, doc)
  2506.      
  2507.      letters=Evaluate(|@ReplaceSubstring(OfficePhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2508.      FirstLet=Left(letters(0),1)
  2509.      
  2510.      p=Evaluate(|@Begins(OfficePhoneNumber;"1")|,doc)
  2511.      
  2512.      sep=Evaluate(|@Contains(OfficePhoneNumber;"-")|,doc)
  2513.      
  2514.      par=Evaluate(|@Contains(OfficePhoneNumber;"(") & @Contains(OfficePhoneNumber;")")|,doc)
  2515.      locarea=Evaluate(|locarea|)
  2516.      num=doc.OfficePhoneNumber(0)
  2517.      
  2518.      Call ParsePhoneNumber(num)
  2519.      
  2520.      doc.OfficePhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2521.      
  2522.      Call uidoc.refresh
  2523. End Sub
  2524. '++LotusScript Development Environment:2:2:Entering:1:12
  2525. Sub Entering(Source As Field)
  2526.      
  2527. End Sub
  2528. '++LotusScript Development Environment:2:2:Initialize:1:10
  2529. Sub Initialize
  2530.      
  2531. End Sub
  2532. '++LotusScript Development Environment:2:2:Terminate:1:10
  2533. Sub Terminate
  2534.      
  2535. End Sub
  2536. OfficePhoneNumber
  2537. +{!a-zA-Z}I
  2538.     0S0E
  2539. OfficePhoneNumber
  2540.     0S0E
  2541. OfficePhoneNumber
  2542.     0S0E
  2543. OfficePhoneNumber
  2544.     0S0E
  2545. OfficePhoneNumber
  2546. OfficePhoneNumber
  2547.     6S7S
  2548. locarea
  2549. '++LotusScript Development Environment:2:5:(Options):0:66
  2550. '++LotusScript Development Environment:2:5:(Forward):0:1
  2551. Declare Sub Exiting(Source As Field)
  2552. Declare Sub Entering(Source As Field)
  2553. Declare Sub Initialize
  2554. Declare Sub Terminate
  2555. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2556. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2557. Private Sub BindEvents(Byval Objectname_ As String)
  2558.      Static Source As FIELD
  2559.      Set Source = Bind(Objectname_)
  2560.      On Event Exiting From Source Call Exiting
  2561.      On Event Entering From Source Call Entering
  2562. End Sub
  2563. '++LotusScript Development Environment:2:2:Exiting:1:12
  2564. Sub Exiting(Source As Field)
  2565.      
  2566.      
  2567.      F=Evaluate(|@False|)
  2568.      T=Evaluate(|@True|)
  2569.      
  2570.      l=Len(doc.OfficeFAXPhoneNumber(0))
  2571. REM "Test to see if the number contains any letters. 
  2572. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2573. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2574. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2575.      
  2576.      x=Evaluate(|!@Matches(OfficeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  2577.      
  2578.      letters=Evaluate(|@ReplaceSubstring(OfficeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2579.      FirstLet=Left(letters(0),1)
  2580.      
  2581.      p=Evaluate(|@Begins(OfficeFAXPhoneNumber;"1")|,doc)
  2582.      
  2583.      sep=Evaluate(|@Contains(OfficeFAXPhoneNumber;"-")|,doc)
  2584.      
  2585.      par=Evaluate(|@Contains(OfficeFAXPhoneNumber;"(") & @Contains(OfficeFAXPhoneNumber;")")|,doc)
  2586.      locarea=Evaluate(|locarea|)
  2587.      num=doc.OfficeFAXPhoneNumber(0)
  2588.      
  2589.      Call ParsePhoneNumber(num)
  2590.      
  2591.      doc.OfficeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2592.      
  2593.      Call uidoc.refresh
  2594. End Sub
  2595. '++LotusScript Development Environment:2:2:Entering:1:12
  2596. Sub Entering(Source As Field)
  2597.      
  2598. End Sub
  2599. '++LotusScript Development Environment:2:2:Initialize:1:10
  2600. Sub Initialize
  2601.      
  2602. End Sub
  2603. '++LotusScript Development Environment:2:2:Terminate:1:10
  2604. Sub Terminate
  2605.      
  2606. End Sub
  2607. OfficeFAXPhoneNumber
  2608. +{!a-zA-Z}I
  2609.     0S0E
  2610. OfficeFAXPhoneNumber
  2611.     0S0E
  2612. OfficeFAXPhoneNumber
  2613.     0S0E
  2614. OfficeFAXPhoneNumber
  2615.     0S0E
  2616. OfficeFAXPhoneNumber
  2617. OfficeFAXPhoneNumber
  2618.     6S7S
  2619. locarea
  2620. '++LotusScript Development Environment:2:5:(Options):0:66
  2621. '++LotusScript Development Environment:2:5:(Forward):0:1
  2622. Declare Sub Exiting(Source As Field)
  2623. Declare Sub Entering(Source As Field)
  2624. Declare Sub Initialize
  2625. Declare Sub Terminate
  2626. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2627. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2628. Private Sub BindEvents(Byval Objectname_ As String)
  2629.      Static Source As FIELD
  2630.      Set Source = Bind(Objectname_)
  2631.      On Event Exiting From Source Call Exiting
  2632.      On Event Entering From Source Call Entering
  2633. End Sub
  2634. '++LotusScript Development Environment:2:2:Exiting:1:12
  2635. Sub Exiting(Source As Field)
  2636.      
  2637.      
  2638.      F=Evaluate(|@False|)
  2639.      T=Evaluate(|@True|)
  2640.      
  2641.      l=Len(doc.CellPhoneNumber(0))
  2642. REM "Test to see if the number contains any letters. 
  2643. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2644. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2645. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2646.      
  2647.      x=Evaluate(|!@Matches(CellPhoneNumber;"+{!a-zA-Z}")|, doc)
  2648.      
  2649.      letters=Evaluate(|@ReplaceSubstring(CellPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2650.      FirstLet=Left(letters(0),1)
  2651.      
  2652.      p=Evaluate(|@Begins(CellPhoneNumber;"1")|,doc)
  2653.      
  2654.      sep=Evaluate(|@Contains(CellPhoneNumber;"-")|,doc)
  2655.      
  2656.      par=Evaluate(|@Contains(CellPhoneNumber;"(") & @Contains(CellPhoneNumber;")")|,doc)
  2657.      locarea=Evaluate(|locarea|)
  2658.      num=doc.CellPhoneNumber(0)
  2659.      
  2660.      Call ParsePhoneNumber(num)
  2661.      
  2662.      doc.CellPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2663.      
  2664.      Call uidoc.refresh
  2665. End Sub
  2666. '++LotusScript Development Environment:2:2:Entering:1:12
  2667. Sub Entering(Source As Field)
  2668.      
  2669. End Sub
  2670. '++LotusScript Development Environment:2:2:Initialize:1:10
  2671. Sub Initialize
  2672.      
  2673. End Sub
  2674. '++LotusScript Development Environment:2:2:Terminate:1:10
  2675. Sub Terminate
  2676.      
  2677. End Sub
  2678. CellPhoneNumber
  2679. +{!a-zA-Z}I
  2680.     0S0E
  2681. CellPhoneNumber
  2682.     0S0E
  2683. CellPhoneNumber
  2684.     0S0E
  2685. CellPhoneNumber
  2686.     0S0E
  2687. CellPhoneNumber
  2688. CellPhoneNumber
  2689.     6S7S
  2690. locarea
  2691. '++LotusScript Development Environment:2:5:(Options):0:66
  2692. '++LotusScript Development Environment:2:5:(Forward):0:1
  2693. Declare Sub Exiting(Source As Field)
  2694. Declare Sub Entering(Source As Field)
  2695. Declare Sub Initialize
  2696. Declare Sub Terminate
  2697. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2698. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2699. Private Sub BindEvents(Byval Objectname_ As String)
  2700.      Static Source As FIELD
  2701.      Set Source = Bind(Objectname_)
  2702.      On Event Exiting From Source Call Exiting
  2703.      On Event Entering From Source Call Entering
  2704. End Sub
  2705. '++LotusScript Development Environment:2:2:Exiting:1:12
  2706. Sub Exiting(Source As Field)
  2707.      
  2708.      F=Evaluate(|@False|)
  2709.      T=Evaluate(|@True|)
  2710.      
  2711.      l=Len(doc.PhoneNumber(0))
  2712. REM "Test to see if the number contains any letters. 
  2713. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2714. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2715. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2716.      
  2717.      x=Evaluate(|!@Matches(PhoneNumber;"+{!a-zA-Z}")|, doc)
  2718.      
  2719.      letters=Evaluate(|@ReplaceSubstring(PhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2720.      FirstLet=Left(letters(0),1)
  2721.      
  2722.      p=Evaluate(|@Begins(PhoneNumber;"1")|,doc)
  2723.      
  2724.      sep=Evaluate(|@Contains(PhoneNumber;"-")|,doc)
  2725.      
  2726.      par=Evaluate(|@Contains(PhoneNumber;"(") & @Contains(PhoneNumber;")")|,doc)
  2727.      locarea=Evaluate(|locarea|)
  2728.      num=doc.PhoneNumber(0)
  2729.      
  2730.      Call ParsePhoneNumber(num)
  2731.      
  2732.      doc.PhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2733.      
  2734.      Call uidoc.refresh
  2735. End Sub
  2736. '++LotusScript Development Environment:2:2:Entering:1:12
  2737. Sub Entering(Source As Field)
  2738.      
  2739. End Sub
  2740. '++LotusScript Development Environment:2:2:Initialize:1:10
  2741. Sub Initialize
  2742.      
  2743. End Sub
  2744. '++LotusScript Development Environment:2:2:Terminate:1:10
  2745. Sub Terminate
  2746.      
  2747. End Sub
  2748. PhoneNumber
  2749. +{!a-zA-Z}I
  2750.     0S0E
  2751. PhoneNumber
  2752.     0S0E
  2753. PhoneNumber
  2754.     0S0E
  2755. PhoneNumber
  2756.     0S0E
  2757. PhoneNumber
  2758. PhoneNumber
  2759.     6S7S
  2760. locarea
  2761. '++LotusScript Development Environment:2:5:(Options):0:66
  2762. '++LotusScript Development Environment:2:5:(Forward):0:1
  2763. Declare Sub Exiting(Source As Field)
  2764. Declare Sub Entering(Source As Field)
  2765. Declare Sub Initialize
  2766. Declare Sub Terminate
  2767. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2768. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2769. Private Sub BindEvents(Byval Objectname_ As String)
  2770.      Static Source As FIELD
  2771.      Set Source = Bind(Objectname_)
  2772.      On Event Exiting From Source Call Exiting
  2773.      On Event Entering From Source Call Entering
  2774. End Sub
  2775. '++LotusScript Development Environment:2:2:Exiting:1:12
  2776. Sub Exiting(Source As Field)
  2777.      
  2778.      
  2779.      F=Evaluate(|@False|)
  2780.      T=Evaluate(|@True|)
  2781.      
  2782.      l=Len(doc.HomeFAXPhoneNumber(0))
  2783. REM "Test to see if the number contains any letters. 
  2784. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2785. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2786. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2787.      
  2788.      x=Evaluate(|!@Matches(HomeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  2789.      
  2790.      letters=Evaluate(|@ReplaceSubstring(HomeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2791.      FirstLet=Left(letters(0),1)
  2792.      
  2793.      p=Evaluate(|@Begins(HomeFAXPhoneNumber;"1")|,doc)
  2794.      
  2795.      sep=Evaluate(|@Contains(HomeFAXPhoneNumber;"-")|,doc)
  2796.      
  2797.      par=Evaluate(|@Contains(HomeFAXPhoneNumber;"(") & @Contains(HomeFAXPhoneNumber;")")|,doc)
  2798.      locarea=Evaluate(|locarea|)
  2799.      num=doc.HomeFAXPhoneNumber(0)
  2800.      
  2801.      Call ParsePhoneNumber(num)
  2802.      
  2803.      doc.HomeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2804.      
  2805.      Call uidoc.refresh
  2806. End Sub
  2807. '++LotusScript Development Environment:2:2:Entering:1:12
  2808. Sub Entering(Source As Field)
  2809.      
  2810. End Sub
  2811. '++LotusScript Development Environment:2:2:Initialize:1:10
  2812. Sub Initialize
  2813.      
  2814. End Sub
  2815. '++LotusScript Development Environment:2:2:Terminate:1:10
  2816. Sub Terminate
  2817.      
  2818. End Sub
  2819. HomeFAXPhoneNumber
  2820. +{!a-zA-Z}I
  2821.     0S0E
  2822. HomeFAXPhoneNumber
  2823.     0S0E
  2824. HomeFAXPhoneNumber
  2825.     0S0E
  2826. HomeFAXPhoneNumber
  2827.     0S0E
  2828. HomeFAXPhoneNumber
  2829. HomeFAXPhoneNumber
  2830.     6S7S
  2831. locarea
  2832. '++LotusScript Development Environment:2:5:(Options):0:66
  2833. '++LotusScript Development Environment:2:5:(Forward):0:1
  2834. Declare Sub Exiting(Source As Field)
  2835. Declare Sub Entering(Source As Field)
  2836. Declare Sub Initialize
  2837. Declare Sub Terminate
  2838. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2839. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2840. Private Sub BindEvents(Byval Objectname_ As String)
  2841.      Static Source As FIELD
  2842.      Set Source = Bind(Objectname_)
  2843.      On Event Exiting From Source Call Exiting
  2844.      On Event Entering From Source Call Entering
  2845. End Sub
  2846. '++LotusScript Development Environment:2:2:Exiting:1:12
  2847. Sub Exiting(Source As Field)
  2848.      
  2849.      F=Evaluate(|@False|)
  2850.      T=Evaluate(|@True|)
  2851.      
  2852.      l=Len(doc.PhoneNumber_6(0))
  2853. REM "Test to see if the number contains any letters. 
  2854. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2855. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2856. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2857.      
  2858.      x=Evaluate(|!@Matches(PhoneNumber_6;"+{!a-zA-Z}")|, doc)
  2859.      
  2860.      letters=Evaluate(|@ReplaceSubstring(PhoneNumber_6;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2861.      FirstLet=Left(letters(0),1)
  2862.      
  2863.      p=Evaluate(|@Begins(PhoneNumber_6;"1")|,doc)
  2864.      
  2865.      sep=Evaluate(|@Contains(PhoneNumber_6;"-")|,doc)
  2866.      
  2867.      par=Evaluate(|@Contains(PhoneNumber_6;"(") & @Contains(PhoneNumber_6;")")|,doc)
  2868.      locarea=Evaluate(|locarea|)
  2869.      num=doc.PhoneNumber_6(0)
  2870.      
  2871.      Call ParsePhoneNumber(num)
  2872.      
  2873.      doc.PhoneNumber_6=Trim(Prefix & " " & tel & " " & Suffix)
  2874.      
  2875.      Call uidoc.refresh
  2876. End Sub
  2877. '++LotusScript Development Environment:2:2:Entering:1:12
  2878. Sub Entering(Source As Field)
  2879.      
  2880. End Sub
  2881. '++LotusScript Development Environment:2:2:Initialize:1:10
  2882. Sub Initialize
  2883.      
  2884. End Sub
  2885. '++LotusScript Development Environment:2:2:Terminate:1:10
  2886. Sub Terminate
  2887.      
  2888. End Sub
  2889. PhoneNumber_6
  2890. +{!a-zA-Z}I
  2891.     0S0E
  2892. PhoneNumber_6
  2893.     0S0E
  2894. PhoneNumber_6
  2895.     0S0E
  2896. PhoneNumber_6
  2897.     0S0E
  2898. PhoneNumber_6
  2899. PhoneNumber_6
  2900.     6S7S
  2901. locarea
  2902.     Phone Labels:
  2903.     Phone Numbers:
  2904. PhoneLabel_1
  2905. OfficePhoneNumberOffice phone number.
  2906. PhoneLabel_3
  2907. OfficeFAXPhoneNumberOffice FAX phone number.
  2908. PhoneLabel_5
  2909. CellPhoneNumberCellular phone number.
  2910. PhoneLabel_2
  2911. PhoneNumberHome phone number.
  2912. PhoneLabel_4
  2913. HomeFAXPhoneNumberHome FAX phone number.
  2914. PhoneLabel_6
  2915. PhoneNumber_6Home FAX phone number.
  2916. O=Lotus Notes
  2917. O=Lotus Notes
  2918. PURSAFO
  2919. |.:#U
  2920. O=Lotus Notes
  2921. CN=Lotus Notes Template Development/O=Lotus Notes
  2922. PURSAFO
  2923. aJAH!
  2924. $TITLE
  2925. $INFO
  2926. $Script
  2927. $$Script_O
  2928. $$ScriptName
  2929. $$FormScript
  2930. $$$FormScript_O
  2931. $$OfficePhoneNumber
  2932. $OfficePhoneNumber_O
  2933. $$OfficeFAXPhoneNumber
  2934. $OfficeFAXPhoneNumber_O
  2935. $$CellPhoneNumber
  2936. $CellPhoneNumber_O
  2937. $$PhoneNumber
  2938. $PhoneNumber_O
  2939. $$HomeFAXPhoneNumber
  2940. $HomeFAXPhoneNumber_O
  2941. $$PhoneNumber_6
  2942. $PhoneNumber_6_O
  2943. $BODY
  2944. '++LotusScript Development Environment:2:5:(Options):0:74
  2945. Option Public
  2946. Use "GlobalDeclarations"
  2947. '++LotusScript Development Environment:2:5:(Forward):0:1
  2948. Declare Sub ParseAddress(add As Variant, elements As Variant, whichfield As String)
  2949. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2950. Dim City As Variant
  2951. Dim State As Variant
  2952. Dim Address As Variant
  2953. Dim Punct As Integer
  2954. Dim LastLine As Variant
  2955. Dim OtherLines As Variant
  2956. '++LotusScript Development Environment:2:2:ParseAddress:1:8
  2957. Sub ParseAddress(add As Variant, elements As Variant, whichfield As String)
  2958.      REM "Clear out the existing fields so that new/modified address is correct"
  2959.      If whichfield = "B" Then
  2960.           doc.OfficeStreetAddress=""
  2961.           doc.OfficeCity=""
  2962.           doc.OfficeState=""
  2963.      End If
  2964.      If whichfield = "H" Then
  2965.           doc.StreetAddress=""
  2966.           doc.City=""
  2967.           doc.State=""
  2968.      End If
  2969.      
  2970.      
  2971.      REM " The rules to parse an address are as follows:"
  2972.      REM " If there is only one word, assume it is the city."
  2973.      REM " If there is more than one word and no punctuation, still assume it is the city."
  2974.      REM " If there is more than one word and there is a comma, assume left of the comma is city, right is state or province"
  2975.      REM " If there are two lines, assume the first line is the address and the second line is the city/state"
  2976.      REM " If there are more than two lines, assume the last is city/state, the rest are address"
  2977.      REM " Country and ZIP/Postal codes go into different fields."
  2978.      
  2979.      Punct=Instr(add,",")
  2980.      
  2981.      If elements(0) = 1 And Punct=0 Then
  2982.           If whichfield = "B" Then
  2983.                doc.OfficeCity=Trim(add)
  2984.                Exit Sub
  2985.           End If
  2986.           If whichfield = "H" Then
  2987.                doc.City=Trim(add)
  2988.                Exit Sub
  2989.           End If
  2990.      End If
  2991.      
  2992.      If elements(0) = 1 And Punct>0 Then
  2993.           If whichfield = "B" Then
  2994.                doc.OfficeCity=Trim(Left(add,Punct-1))
  2995.                doc.OfficeState=Trim(Right(add, Len(add)-Punct))
  2996.                Exit Sub
  2997.           End If
  2998.           If whichfield = "H" Then
  2999.                doc.City=Trim(Left(add,Punct-1))
  3000.                doc.State=Trim(Right(add, Len(add)-Punct))
  3001.                Exit Sub
  3002.           End If
  3003.      End If
  3004.      
  3005.      If elements(0) > 1 Then
  3006.           If whichfield="B" Then
  3007.                LastLine=Evaluate(|@Subset(@Explode(BusinessAddress;@Char(13));-1)|,doc)  
  3008.                OtherLines=Evaluate(|@Implode(@Subset(@Explode(BusinessAddress;@Char(13));@Elements(@Explode(BusinessAddress;@Char(13)))-1);@NewLine)|,doc)
  3009.                doc.OfficeStreetAddress=OtherLines
  3010.                Punct=Instr(LastLine(0),",")
  3011.                If  Punct >0 Then
  3012.                     doc.OfficeCity=Trim(Left(LastLine(0),Punct-1))
  3013.                     doc.OfficeState=Trim(Right(LastLine(0), Len(LastLine(0))-Punct))
  3014.                Else
  3015.                     doc.OfficeCity=Trim(LastLine(0))
  3016.                End If
  3017.                Exit Sub
  3018.           End If
  3019.           If whichfield="H" Then
  3020.                LastLine=Evaluate(|@Subset(@Explode(HomeAddress;@Char(13));-1)|,doc)
  3021.                OtherLines=Evaluate(|@Implode(@Subset(@Explode(HomeAddress;@Char(13));@Elements(@Explode(HomeAddress;@Char(13)))-1);@NewLine)|,doc)
  3022.                doc.StreetAddress=OtherLines
  3023.                Punct=Instr(LastLine(0),",")
  3024.                If  Punct >0 Then
  3025.                     doc.City=Trim(Left(LastLine(0),Punct-1))
  3026.                     doc.State=Trim(Right(LastLine(0), Len(LastLine(0))-Punct))
  3027.                Else
  3028.                     doc.City=Trim(LastLine(0))
  3029.                End If
  3030.                Exit Sub
  3031.           End If
  3032.      End If
  3033.      
  3034. End Sub
  3035. BusinessAddress
  3036.     0S0E
  3037. BusinessAddress
  3038. BusinessAddress
  3039.     0S0E
  3040. HomeAddress
  3041.     0S0E
  3042. HomeAddress
  3043. HomeAddress
  3044.     0S0E
  3045. O=Lotus Notes
  3046. O=Lotus Notes
  3047. PURSAFO
  3048. |.:#U
  3049. O=Lotus Notes
  3050. CN=Lotus Notes Template Development/O=Lotus Notes
  3051. PURSAFO
  3052. ]M:9T
  3053. $ScriptLib
  3054. $ScriptLib_O
  3055. $TITLE
  3056. $Flags
  3057. $PublicAccess
  3058. '++LotusScript Development Environment:2:5:(Options):0:66
  3059. Option Public
  3060. '++LotusScript Development Environment:2:5:(Forward):0:1
  3061. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3062. Dim db As NotesDatabase
  3063. Dim doc As NotesDocument
  3064. Dim uidoc As notesuidocument
  3065. O=Lotus Notes
  3066. O=Lotus Notes
  3067. PURSAFO
  3068. |.:#U
  3069. O=Lotus Notes
  3070. CN=Lotus Notes Template Development/O=Lotus Notes
  3071. PURSAFO
  3072. `r(!6A
  3073. L<)QB
  3074. $ScriptLib
  3075. $ScriptLib_O
  3076. $TITLE
  3077. $Flags
  3078. $PublicAccess
  3079. '++LotusScript Development Environment:2:5:(Options):0:66
  3080. Option Public
  3081. '++LotusScript Development Environment:2:5:(Forward):0:1
  3082. Declare Sub Initialize
  3083. Declare Sub InstantiateVariables
  3084. Declare Function GetMailAddress() As String
  3085. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3086. Dim ws As NotesUIWorkspace
  3087. Dim session As NotesSession
  3088. Dim db As NotesDatabase
  3089. Dim maildb As NotesDatabase
  3090. Dim note As NotesDocument
  3091. Dim mailnote As NotesDocument
  3092. Dim collection As NotesDocumentCollection
  3093. Dim profile As NotesDocument
  3094. Dim SendToNames() As String
  3095. Dim counter As Integer
  3096. '++LotusScript Development Environment:2:2:Initialize:1:10
  3097. Sub Initialize
  3098. End Sub
  3099. '++LotusScript Development Environment:2:2:InstantiateVariables:1:8
  3100. Sub InstantiateVariables
  3101.     Set ws = New NotesUIWorkspace
  3102.     Set session = New NotesSession
  3103.     Set db = session.CurrentDatabase
  3104.     Set maildb = New NotesDatabase("","")
  3105.     maildb.OpenMail
  3106.     Set profile = maildb.GetProfileDocument("CalendarProfile")
  3107.     counter = 0
  3108.     Set collection = db.UnprocessedDocuments
  3109. End Sub
  3110. '++LotusScript Development Environment:2:1:GetMailAddress:1:8
  3111. Function GetMailAddress() As String
  3112.     If note.Type(0) = "Person" Then    
  3113.         If note.MailAddress(0) <> "" Then
  3114.             GetMailAddress = note.MailAddress(0)
  3115.         Else
  3116.             GetMailAddress= note.FullName(0)
  3117.         End If
  3118.     Elseif note.Type(0) = "Group" Then
  3119.         GetMailAddress = note.ListName(0)
  3120.     Else
  3121.         GetMailAddress=""
  3122.     End If
  3123. End Function
  3124. Lotus Product
  3125. O=Lotus Notes
  3126. O=Lotus Notes
  3127. PURSAFO
  3128. |.:#U
  3129. O=Lotus Notes
  3130. CN=Lotus Notes Template Development/O=Lotus Notes
  3131. PURSAFO
  3132. $TITLE
  3133. $Flags
  3134. $PublicAccess
  3135. $ScriptLib
  3136. $ScriptLib_O
  3137. '++LotusScript Development Environment:2:5:(Options):0:74
  3138. Option Public
  3139. Use "GlobalDeclarations"
  3140. '++LotusScript Development Environment:2:5:(Forward):0:1
  3141. Declare Sub FormatNum(num As Variant)
  3142. Declare Sub ParsePhoneNumber(num As Variant)
  3143. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3144. Dim l As Variant
  3145. Dim x As Variant
  3146. Dim letters As Variant
  3147. Dim sep As Variant
  3148. Dim p As Variant
  3149. Dim par As Variant
  3150. Dim locarea As Variant
  3151. Dim num As Variant
  3152. Dim OriginalNum As Variant
  3153. Dim tel As Variant
  3154. Dim F As Variant
  3155. Dim T As Variant
  3156. Dim locsep As Integer
  3157. Dim lennum As Integer
  3158. Dim InPar As Variant
  3159. Dim LPar As Variant
  3160. Dim LocLPar As Integer
  3161. Dim LocRPar As Integer
  3162. Dim RPar As Variant
  3163. Dim Prefix As String
  3164. Dim Suffix As String
  3165. Dim FirstLet As String
  3166. Dim LocFirstLet As Integer
  3167. Dim hasspace As Variant
  3168. '++LotusScript Development Environment:2:2:FormatNum:1:8
  3169. Sub FormatNum(num As Variant)
  3170.      num=Trim(num)
  3171.      lennum=Len(num)
  3172.      hasspace=Instr(num," ")
  3173.      REM "No separator"
  3174.      If (sep(0)=F(0)) Then 
  3175.           If lennum=7 And hasspace=0Then
  3176.                tel=Left(num,3)&"-"&Right(num,4)
  3177.                Exit Sub
  3178.           End If
  3179.           If lennum < 7 Then
  3180.                tel=num
  3181.                Exit Sub
  3182.           End If
  3183.           If lennum = 10 And hasspace=0 Then
  3184.                tel="(" & Left(num,3) & ") " & Left(Right(num,7),3) & "-" & Right(num,4)
  3185.                Exit Sub
  3186.           End If 
  3187.           If (lennum > 7 And lennum < 10) Or lennum > 10  Then
  3188.                tel=num
  3189.                Exit Sub
  3190.           End If
  3191.           
  3192.      End If 
  3193.      REM "Separator is present"
  3194.      If (sep(0)=T(0))  Then
  3195.           locsep=Instr(num,"-")
  3196.           tel=Left(num,locsep-1)&"-"&Right(num,lennum-locsep)
  3197.           Exit Sub
  3198.      End If
  3199.      tel=num
  3200. End Sub
  3201. '++LotusScript Development Environment:2:2:ParsePhoneNumber:1:8
  3202. Sub ParsePhoneNumber(num As Variant)
  3203.      
  3204.      OriginalNum=num
  3205.      
  3206.       REM "Check to see if there is a prefix"     
  3207.      If (p(0)=T(0)) Then
  3208.           Prefix="+" & Left(num,1)
  3209.           num=Trim(Right(num,l-1))
  3210.      Else
  3211.           Prefix=""
  3212.      End If
  3213.      
  3214.      
  3215.      REM "Check to see if there are letters and if so, parse them out"
  3216.      
  3217.      If (x(0)=T(0)) Then
  3218.           LocFirstLet=Instr(num,FirstLet)
  3219.           Suffix=Right(num,l-LocFirstLet)
  3220.           num=Left(num,LocFirstLet-1)
  3221.           
  3222.           If Len(num)<7 Then
  3223.                tel=OriginalNum
  3224.                Suffix=""
  3225.                Exit Sub
  3226.           Else
  3227.                Call FormatNum(num)
  3228.           End If
  3229.      Else
  3230.           Suffix=""
  3231.           
  3232.      End If       
  3233.      
  3234.      
  3235.      REM " Check to see if there are parens.  If so parse out the insides, left and right"
  3236.      
  3237.      If (par(0)=T(0)) Then
  3238.           LocLPar=Instr(num,"(")
  3239.           LPar=Trim(Left(num,LocLPar-1))
  3240.           If Len(LPar) >0 And Left(LPar,1) <>"+" Then
  3241.                LPar="+" & LPar
  3242.           End If
  3243.           LocRPar=Instr(num,")")
  3244.           RPar=Right(num,(Len(num))-LocRPar)
  3245.           InPar=Mid(num,LocLPar+1,LocRPar-LocLPar-1)
  3246.           Call FormatNum(RPar)
  3247.           tel=Trim(LPar) &" (" & InPar & ") " & tel
  3248.      Else
  3249.           InPar=Null
  3250.           LPar=Null
  3251.           LocRPar=0
  3252.           RPar=Null
  3253.      End If
  3254.      
  3255.      If (par(0)=F(0)) And (x(0)=F(0)) Then
  3256.           Call FormatNum(num)          
  3257.      End If
  3258.      
  3259.      
  3260.      
  3261. End Sub
  3262. O=Lotus Notes
  3263. O=Lotus Notes
  3264. PURSAFO
  3265. |.:#U
  3266. O=Lotus Notes
  3267. CN=Lotus Notes Template Development/O=Lotus Notes
  3268. PURSAFO
  3269. $ScriptLib
  3270. $ScriptLib_O
  3271. $TITLE
  3272. $Flags
  3273. $PublicAccess
  3274. '++LotusScript Development Environment:2:5:(Options):0:74
  3275. Option Public
  3276. Use "MailLibrary"
  3277. '++LotusScript Development Environment:2:5:(Forward):0:1
  3278. Declare Sub Initialize
  3279. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3280. '++LotusScript Development Environment:2:2:Initialize:1:10
  3281. Sub Initialize
  3282. 'declare local variables
  3283.      Dim x As Integer
  3284.      
  3285. 'instantiate objects     
  3286.      InstantiateVariables
  3287.      
  3288.      
  3289.      If (collection.Count = 0) Then
  3290.           Messagebox "No documents were selected.",0,"Error"
  3291.           Exit Sub
  3292.      End If
  3293.      
  3294.      Redim SendToNames(collection.Count-1)
  3295.      
  3296. 'for each document in the collection, get the mail address
  3297. 'we use the GetNth method since the resulting collection is an IDTable
  3298.      For x = 1 To collection.Count
  3299.           Set note = collection.GetNthDocument(x)
  3300.           SendToNames(counter) = GetMailAddress
  3301.           counter = counter + 1
  3302.      Next
  3303.      
  3304.      Set mailnote = New NotesDocument(maildb)
  3305.      mailnote.SendTo = SendToNames
  3306.      mailnote.Form = "Memo"
  3307.      mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
  3308.      mailnote.Principal = profile.Owner(0)
  3309.      
  3310.      Call ws.EditDocument(True,mailnote)
  3311. End Sub
  3312. O=Lotus Notes
  3313. O=Lotus Notes
  3314. PURSAFO
  3315. |.:#U
  3316. O=Lotus Notes
  3317. CN=Lotus Notes Template Development/O=Lotus Notes
  3318. PURSAFO
  3319. $TITLE
  3320. $AssistType
  3321. $AssistLastRun
  3322. $AssistDocCount
  3323. $AssistFlags
  3324. $AssistTrigger
  3325. $AssistInfo
  3326. $AssistQuery
  3327. $AssistAction
  3328. $AssistAction_Ex
  3329. '++LotusScript Development Environment:2:5:(Options):0:74
  3330. Option Public
  3331. Use "MailLibrary"
  3332. '++LotusScript Development Environment:2:5:(Forward):0:1
  3333. Declare Sub Initialize
  3334. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3335. '++LotusScript Development Environment:2:2:Initialize:1:10
  3336. Sub Initialize
  3337.      Dim nMinutes As Integer
  3338.      Dim nSeconds As Integer
  3339.      Dim x As Integer
  3340.      
  3341.      Dim startdt As NotesDateTime
  3342.      Dim enddt As NotesDateTime
  3343.      Dim trdr As NotesDateRange
  3344.      
  3345.      InstantiateVariables
  3346.      
  3347.      If (collection.Count = 0) Then
  3348.           Messagebox "No documents were selected.",0,"Error"
  3349.           Exit Sub
  3350.      End If
  3351.      
  3352.      Redim SendToNames(collection.Count-1)
  3353.      
  3354. 'for each document in the collection, get the mail address
  3355. 'we use the GetNth method since the resulting collection is an IDTable
  3356.      For x = 1 To collection.Count
  3357.           Set note = collection.GetNthDocument(x)
  3358.           SendToNames(counter) = GetMailAddress
  3359.           counter = counter + 1
  3360.      Next
  3361.      
  3362.      Set mailnote = New NotesDocument(maildb)
  3363.      mailnote.SendTo = SendToNames
  3364.      mailnote.Form = "Appointment"
  3365.      mailnote.AppointmentType = "3"
  3366.      mailnote.Chair = profile.Owner(0)
  3367.      mailnote.Principal = profile.Owner(0)
  3368.      
  3369. 'add the date/time values     
  3370.      Set startdt = New NotesDateTime("")
  3371.      startdt.SetNow
  3372.      
  3373.      nMinutes = Minute(startdt.LSLocalTime)
  3374.      nSeconds = 0 - Second(startdt.LSLocalTime)
  3375.      
  3376.      If (nMinutes > 45) Then          
  3377.           startdt.AdjustMinute(60 - nMinutes)
  3378.      Elseif (nMinutes > 30) Then
  3379.           startdt.AdjustMinute(45 - nMinutes)
  3380.      Elseif (nMinutes > 15) Then
  3381.           startdt.AdjustMinute(30 - nMinutes)
  3382.      Else
  3383.           startdt.AdjustMinute(15 - nMinutes)
  3384.      End If               
  3385.      
  3386.      startdt.AdjustSecond(nSeconds)
  3387.      
  3388.      Set mailnote.StartDate = startdt
  3389.      Set mailnote.StartDateTime = startdt
  3390.      
  3391.      Set enddt = New NotesDateTime(startdt.LSLocalTime)
  3392.      enddt.AdjustMinute(profile.DefaultDuration(0))
  3393.      
  3394.      Set trdr = session.CreateDateRange
  3395.      Set trdr.StartDateTime = startdt
  3396.      Set trdr.EndDateTime = enddt
  3397.      Set mailnote.TimeRange = trdr
  3398.      
  3399.      Call ws.EditDocument(True,mailnote)
  3400. End Sub
  3401. O=Lotus Notes
  3402. O=Lotus Notes
  3403. PURSAFO
  3404. |.:#U
  3405. O=Lotus Notes
  3406. CN=Lotus Notes Template Development/O=Lotus Notes
  3407. PURSAFO
  3408. $TITLE
  3409. $AssistType
  3410. $AssistLastRun
  3411. $AssistDocCount
  3412. $AssistFlags
  3413. $AssistTrigger
  3414. $AssistInfo
  3415. $AssistQuery
  3416. $AssistAction
  3417. $AssistAction_Ex
  3418. LastName
  3419. FirstName
  3420. LastName
  3421. Firstname
  3422. FirstName
  3423. CompanyName
  3424.     3S5S6S7S8S10R23S41R
  3425. OfficePhoneNumber
  3426. PhoneLabel_1
  3427. PhoneLabel_1
  3428. OfficePhoneNumber
  3429. OfficeFAXPhoneNumber
  3430. PhoneLabel_3
  3431. PhoneLabel_3
  3432. OfficeFAXPhoneNumber"
  3433. CellPhoneNumber
  3434. PhoneLabel_5
  3435. PhoneLabel_5
  3436. CellPhoneNumber
  3437. PhoneNumber
  3438. PhoneLabel_2
  3439. PhoneLabel_2
  3440. PhoneNumber
  3441. HomeFAXPhoneNumber
  3442. PhoneLabel_4
  3443. PhoneLabel_4
  3444. HomeFAXPhoneNumber"
  3445. PhoneNumber_6
  3446. PhoneLabel_6
  3447. PhoneLabel_6
  3448. PhoneNumber_6
  3449.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E
  3450. CompanyName
  3451. CompanyName
  3452. JobTitle
  3453. JobTitle
  3454. BusinessAddress
  3455. OfficeStreetAddress
  3456. OfficeCity
  3457. OfficeCity
  3458. OfficeState
  3459. OfficeState
  3460. OfficeZip
  3461. OfficeCountry
  3462.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E
  3463. $126$19$20$Conflict$REF
  3464. Person
  3465. Company
  3466.     L1S2S3S
  3467. @$126Name
  3468. LastName
  3469. FirstName
  3470. LastName
  3471. Firstname
  3472. FirstName
  3473. CompanyName
  3474.     3S5S6S7S8S10R23S41R$19Phones
  3475. OfficePhoneNumber
  3476. PhoneLabel_1
  3477. PhoneLabel_1
  3478. OfficePhoneNumber
  3479. OfficeFAXPhoneNumber
  3480. PhoneLabel_3
  3481. PhoneLabel_3
  3482. OfficeFAXPhoneNumber"
  3483. CellPhoneNumber
  3484. PhoneLabel_5
  3485. PhoneLabel_5
  3486. CellPhoneNumber
  3487. PhoneNumber
  3488. PhoneLabel_2
  3489. PhoneLabel_2
  3490. PhoneNumber
  3491. HomeFAXPhoneNumber
  3492. PhoneLabel_4
  3493. PhoneLabel_4
  3494. HomeFAXPhoneNumber"
  3495. PhoneNumber_6
  3496. PhoneLabel_6
  3497. PhoneLabel_6
  3498. PhoneNumber_6
  3499.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E$20Business
  3500. CompanyName
  3501. CompanyName
  3502. JobTitle
  3503. JobTitle
  3504. BusinessAddress
  3505. OfficeStreetAddress
  3506. OfficeCity
  3507. OfficeCity
  3508. OfficeState
  3509. OfficeState
  3510. OfficeZip
  3511. OfficeCountry
  3512.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E&
  3513. Add Card 
  3514. CurrentServer
  3515.     0S0E
  3516. CurrentServer
  3517. Person
  3518. [UserCreator]
  3519. Person
  3520. Not Authorized
  3521. You are not authorized to add Person documents to this database.
  3522.     0R6R10S13R
  3523. _Edit Card
  3524. Delete
  3525. MailVerify
  3526. DeleteNTUserAccount
  3527.     0R1S
  3528. synch
  3529. AdminFileName
  3530. admin4.nsf
  3531. CurrentServer
  3532. AdminPExist
  3533. CurrentServer
  3534. AdminFileName
  3535. AdminPAccess
  3536. CurrentServer
  3537. AdminFileName
  3538. AdminPAccessLevel
  3539. AdminPAccess
  3540. AdminPCreateAccess
  3541. AdminPAccess
  3542. NamesAccess
  3543. NamesAccessLevel
  3544. NamesAccess
  3545. NamesDeleteAccess
  3546. NamesAccess
  3547. PersonLastName
  3548. LastName
  3549. PersonFirstName
  3550. FirstName
  3551. DeleteVerify
  3552. Verification
  3553. You have requested to delete the selected person records.  Do you wish to continue?
  3554. Action Cancelled
  3555. You have cancelled deleting the person record(s).
  3556. DeleteVerify+
  3557. CurrentServer
  3558. (DeleteUserOptions)
  3559. AdminPExist
  3560. AdminPAccessLevel
  3561. AdminPCreateAccess
  3562. NamesAccessLevel
  3563. NamesDeleteAccess
  3564. synch
  3565. Immediate or via Administration Process?
  3566. By selecting 'Yes' the action you have requested will take place immediately, and affect all references to the selected people in this Address Book.  (NOTE:  This may take awhile...)
  3567. synch
  3568. CurrentServer
  3569. AdminFileName
  3570. MailVerify
  3571. DeleteNTUserAccount
  3572. Completed Successfully
  3573. The people(s) name have been removed completely from this Address Book
  3574. Error
  3575. You have encountered an error.  The people(s) name have not been removed completely.  Please try again.
  3576. synch
  3577. CurrentServer
  3578. AdminFileName
  3579. MailVerify
  3580. DeleteNTUserAccount
  3581. Request Successful
  3582. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  3583. Error
  3584. You have encountered an error.  The request was not submitted properly.  Please try again.
  3585. DeleteNTUserAccount
  3586. Action Cancelled
  3587. Action has been cancelled.
  3588. NamesAccessLevel
  3589. NamesDeleteAccess
  3590. CurrentServer
  3591. AdminFileName
  3592. MailVerify
  3593. DeleteNTUserAccount
  3594. Request Successful
  3595. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  3596. Error
  3597. You have encountered an error.  The request was not submitted properly.  Please try again.
  3598. NamesAccessLevel
  3599. NamesDeleteAccess
  3600. DeleteNTUserAccount
  3601. Insufficient Access
  3602. You do not have sufficient access to perform the requested operation.
  3603. DeleteNTUserAccount
  3604. Insufficient Access
  3605. You do not have sufficient access to  perform the requested operation.
  3606. DeleteNTUserAccount
  3607. Insufficient Access
  3608. You are not authorized to create requests in the Administration Requests Database.
  3609. DeleteNTUserAccount
  3610. Admin. Requests Database Does Not Exist
  3611. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  3612.     0RR6RS2E17RS6E32RS9E41RS12E44S46S47S48S51RS15E54S55S56S57S58S61RS12E77RS15E83RS18E95S102RS46E111RS47E119RS28E121RS20E125RS19E146RS48E155RS49E161S163RS28E166RS19E187RS20E190RS17E193S194S198RS15E216S219RS48E228RS49E234S236RS29E239RS19E240S242S243S247RS24E267RS38E269RS11E289RS15E290RS10E292RS7E313RS8E315RS2E335RS17E336RS4E337R338RR340R344R
  3613.     11S12S13S17S18S
  3614. DirectoriesK 
  3615.     0S0E
  3616. Send Docu_ment
  3617. _Forward
  3618. _Move to Folder...
  3619. _Remove from Folder...
  3620. Write Memo
  3621. Error
  3622. You must use Notes 4.6 or above to use this action.
  3623. (CreateMailMemo)
  3624.     6S7S9S
  3625. Schedule Meeting
  3626. Error
  3627. You must use Notes 4.6 or above to use this action.
  3628. (ScheduleMeeting)
  3629.     6S7S9S
  3630. Tools...\Create Group
  3631. '++LotusScript Development Environment:2:5:(Options):0:66
  3632. '++LotusScript Development Environment:2:5:(Forward):0:1
  3633. Declare Sub Click(Source As Button)
  3634. Declare Function GetFullName() As String
  3635. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3636. Dim ws As NotesUIWorkspace
  3637. Dim session As NotesSession
  3638. Dim db As NotesDatabase
  3639. Dim note As NotesDocument
  3640. Dim groupnote As NotesDocument
  3641. Dim collection As NotesDocumentCollection
  3642. Dim Names() As String
  3643. Dim counter As Integer
  3644. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3645. Private Sub BindEvents(Byval Objectname_ As String)
  3646.     Static Source As BUTTON
  3647.     Set Source = Bind(Objectname_)
  3648.     On Event Click From Source Call Click
  3649. End Sub
  3650. '++LotusScript Development Environment:2:2:Click:1:12
  3651. Sub Click(Source As Button)
  3652.     Set ws = New NotesUIWorkspace
  3653.     Set session = New NotesSession
  3654.     Set db = session.CurrentDatabase
  3655.     counter = 0
  3656.     Set collection = db.UnprocessedDocuments
  3657.     If (collection.Count = 0) Then
  3658.         Messagebox "No documents were selected.",0,"Error"
  3659.         Exit Sub
  3660.     End If
  3661.     Redim Names(collection.Count-1)
  3662. 'for each document in the collection, get the first value of FullName
  3663. 'we use the GetNth method since the resulting collection is an IDTable
  3664.     For x = 1 To collection.Count
  3665.         Set note = collection.GetNthDocument(x)
  3666.         Names(counter) = GetFullName
  3667.         counter = counter + 1
  3668.     Next
  3669.     Set groupnote = New NotesDocument(db)
  3670.     groupnote.Members = Names
  3671.     groupnote.Form = "Group"
  3672.     groupnote.Type = "Group"
  3673.     Call ws.EditDocument(True,groupnote)
  3674. End Sub
  3675. '++LotusScript Development Environment:2:1:GetFullName:1:8
  3676. Function GetFullName() As String
  3677.     If note.FullName(0) <> "" Then
  3678.         GetFullName = note.FullName(0)
  3679.     Else
  3680.         GetFullName= note.LastName(0)
  3681.     End If
  3682. End Function
  3683. Tools...\CategorizeK
  3684. Tools...\Visit Web PageK
  3685. WebSite
  3686. WebSite
  3687. No Web Page Defined
  3688. This document has no Web page defined.
  3689.     3S7S
  3690. Tools...\Preferences...K4
  3691. DirectoryProfile
  3692.     0S0E
  3693. Add Card 
  3694. CurrentServer
  3695.     0S0E
  3696. CurrentServer
  3697. Person
  3698. [UserCreator]
  3699. Person
  3700. Not Authorized
  3701. You are not authorized to add Person documents to this database.
  3702.     0R6R10S13R
  3703. _Edit Card
  3704. Delete
  3705. MailVerify
  3706. DeleteNTUserAccount
  3707.     0R1S
  3708. synch
  3709. AdminFileName
  3710. admin4.nsf
  3711. CurrentServer
  3712. AdminPExist
  3713. CurrentServer
  3714. AdminFileName
  3715. AdminPAccess
  3716. CurrentServer
  3717. AdminFileName
  3718. AdminPAccessLevel
  3719. AdminPAccess
  3720. AdminPCreateAccess
  3721. AdminPAccess
  3722. NamesAccess
  3723. NamesAccessLevel
  3724. NamesAccess
  3725. NamesDeleteAccess
  3726. NamesAccess
  3727. PersonLastName
  3728. LastName
  3729. PersonFirstName
  3730. FirstName
  3731. DeleteVerify
  3732. Verification
  3733. You have requested to delete the selected person records.  Do you wish to continue?
  3734. Action Cancelled
  3735. You have cancelled deleting the person record(s).
  3736. DeleteVerify+
  3737. CurrentServer
  3738. (DeleteUserOptions)
  3739. AdminPExist
  3740. AdminPAccessLevel
  3741. AdminPCreateAccess
  3742. NamesAccessLevel
  3743. NamesDeleteAccess
  3744. synch
  3745. Immediate or via Administration Process?
  3746. By selecting 'Yes' the action you have requested will take place immediately, and affect all references to the selected people in this Address Book.  (NOTE:  This may take awhile...)
  3747. synch
  3748. CurrentServer
  3749. AdminFileName
  3750. MailVerify
  3751. DeleteNTUserAccount
  3752. Completed Successfully
  3753. The people(s) name have been removed completely from this Address Book
  3754. Error
  3755. You have encountered an error.  The people(s) name have not been removed completely.  Please try again.
  3756. synch
  3757. CurrentServer
  3758. AdminFileName
  3759. MailVerify
  3760. DeleteNTUserAccount
  3761. Request Successful
  3762. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  3763. Error
  3764. You have encountered an error.  The request was not submitted properly.  Please try again.
  3765. DeleteNTUserAccount
  3766. Action Cancelled
  3767. Action has been cancelled.
  3768. NamesAccessLevel
  3769. NamesDeleteAccess
  3770. CurrentServer
  3771. AdminFileName
  3772. MailVerify
  3773. DeleteNTUserAccount
  3774. Request Successful
  3775. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  3776. Error
  3777. You have encountered an error.  The request was not submitted properly.  Please try again.
  3778. NamesAccessLevel
  3779. NamesDeleteAccess
  3780. DeleteNTUserAccount
  3781. Insufficient Access
  3782. You do not have sufficient access to perform the requested operation.
  3783. DeleteNTUserAccount
  3784. Insufficient Access
  3785. You do not have sufficient access to  perform the requested operation.
  3786. DeleteNTUserAccount
  3787. Insufficient Access
  3788. You are not authorized to create requests in the Administration Requests Database.
  3789. DeleteNTUserAccount
  3790. Admin. Requests Database Does Not Exist
  3791. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  3792.     0RR6RS2E17RS6E32RS9E41RS12E44S46S47S48S51RS15E54S55S56S57S58S61RS12E77RS15E83RS18E95S102RS46E111RS47E119RS28E121RS20E125RS19E146RS48E155RS49E161S163RS28E166RS19E187RS20E190RS17E193S194S198RS15E216S219RS48E228RS49E234S236RS29E239RS19E240S242S243S247RS24E267RS38E269RS11E289RS15E290RS10E292RS7E313RS8E315RS2E335RS17E336RS4E337R338RR340R344R
  3793.     11S12S13S17S18S
  3794. DirectoriesK 
  3795.     0S0E
  3796. Send Docu_ment
  3797. _Forward
  3798. _Move to Folder...
  3799. _Remove from Folder...
  3800. Write Memo
  3801. Error
  3802. You must use Notes 4.6 or above to use this action.
  3803. (CreateMailMemo)
  3804.     6S7S9S
  3805. Schedule Meeting
  3806. Error
  3807. You must use Notes 4.6 or above to use this action.
  3808. (ScheduleMeeting)
  3809.     6S7S9S
  3810. Tools...\Create Group
  3811. '++LotusScript Development Environment:2:5:(Options):0:66
  3812. '++LotusScript Development Environment:2:5:(Forward):0:1
  3813. Declare Sub Click(Source As Button)
  3814. Declare Function GetFullName() As String
  3815. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3816. Dim ws As NotesUIWorkspace
  3817. Dim session As NotesSession
  3818. Dim db As NotesDatabase
  3819. Dim note As NotesDocument
  3820. Dim groupnote As NotesDocument
  3821. Dim collection As NotesDocumentCollection
  3822. Dim Names() As String
  3823. Dim counter As Integer
  3824. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3825. Private Sub BindEvents(Byval Objectname_ As String)
  3826.     Static Source As BUTTON
  3827.     Set Source = Bind(Objectname_)
  3828.     On Event Click From Source Call Click
  3829. End Sub
  3830. '++LotusScript Development Environment:2:2:Click:1:12
  3831. Sub Click(Source As Button)
  3832.     Set ws = New NotesUIWorkspace
  3833.     Set session = New NotesSession
  3834.     Set db = session.CurrentDatabase
  3835.     counter = 0
  3836.     Set collection = db.UnprocessedDocuments
  3837.     If (collection.Count = 0) Then
  3838.         Messagebox "No documents were selected.",0,"Error"
  3839.         Exit Sub
  3840.     End If
  3841.     Redim Names(collection.Count-1)
  3842. 'for each document in the collection, get the first value of FullName
  3843. 'we use the GetNth method since the resulting collection is an IDTable
  3844.     For x = 1 To collection.Count
  3845.         Set note = collection.GetNthDocument(x)
  3846.         Names(counter) = GetFullName
  3847.         counter = counter + 1
  3848.     Next
  3849.     Set groupnote = New NotesDocument(db)
  3850.     groupnote.Members = Names
  3851.     groupnote.Form = "Group"
  3852.     groupnote.Type = "Group"
  3853.     Call ws.EditDocument(True,groupnote)
  3854. End Sub
  3855. '++LotusScript Development Environment:2:1:GetFullName:1:8
  3856. Function GetFullName() As String
  3857.     If note.FullName(0) <> "" Then
  3858.         GetFullName = note.FullName(0)
  3859.     Else
  3860.         GetFullName= note.LastName(0)
  3861.     End If
  3862. End Function
  3863. Tools...\CategorizeK
  3864. Tools...\Visit Web PageK
  3865. WebSite
  3866. WebSite
  3867. No Web Page Defined
  3868. This document has no Web page defined.
  3869.     3S7S
  3870. Tools...\Preferences...K4
  3871. DirectoryProfile
  3872.     0S0E
  3873. Lotus Product
  3874. O=Lotus Notes
  3875. O=Lotus Notes
  3876. PURSAFO
  3877. |.:#U
  3878. O=Lotus Notes
  3879. CN=Lotus Notes Template Development/O=Lotus Notes
  3880. PURSAFO
  3881. $TABLEFORMAT
  3882. $TITLE
  3883. $Index
  3884. $Formula
  3885. $FormulaClass
  3886. $VIEWFORMAT
  3887. $Comment
  3888. $V5ACTIONS
  3889. $ACTIONS
  3890. $ViewGlobalScript_O
  3891. Add Group
  3892. CurrentServer
  3893.     0S0E
  3894. CurrentServer
  3895. Group
  3896. [GroupCreator]
  3897. Group
  3898. Not Authorized
  3899. You are not authorized to add Group documents to this database.
  3900.     0R6R10S13R
  3901. Add Mailing List'++LotusScript Development Environment:2:5:(Options):0:66
  3902. '++LotusScript Development Environment:2:5:(Forward):0:1
  3903. Declare Sub Click(Source As Button)
  3904. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3905. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3906. Private Sub BindEvents(Byval Objectname_ As String)
  3907.     Static Source As BUTTON
  3908.     Set Source = Bind(Objectname_)
  3909.     On Event Click From Source Call Click
  3910. End Sub
  3911. '++LotusScript Development Environment:2:2:Click:1:12
  3912. Sub Click(Source As Button)
  3913.     Dim w As New NotesUIWorkspace
  3914.     Dim uidoc As NotesUIDocument
  3915.     Set uidoc=w.ComposeDocument("","","Group")
  3916.     Call uidoc.FieldSetText("GroupType","1")
  3917.     Call uidoc.FieldSetText("GroupTitle","1")    
  3918. End Sub
  3919. _Edit GroupK
  3920. Delete Group 
  3921.     0S0E
  3922.     0S0E
  3923. Write Memo
  3924. Error
  3925. You must use Notes 4.6 or above to use this action.
  3926. (CreateMailMemo)
  3927.     6S7S9S
  3928. Schedule Meeting
  3929. Error
  3930. You must use Notes 4.6 or above to use this action.
  3931. (ScheduleMeeting)
  3932.     6S7S9S
  3933. Send Docu_ment
  3934. _Forward
  3935. Categori_zeK    
  3936. _Move to Folder...
  3937. _Remove from Folder...
  3938. Preferences...4
  3939. DirectoryProfile
  3940.     0S0E
  3941. Add Group
  3942. CurrentServer
  3943.     0S0E
  3944. CurrentServer
  3945. Group
  3946. [GroupCreator]
  3947. Group
  3948. Not Authorized
  3949. You are not authorized to add Group documents to this database.
  3950.     0R6R10S13R
  3951. Add Mailing List'++LotusScript Development Environment:2:5:(Options):0:66
  3952. '++LotusScript Development Environment:2:5:(Forward):0:1
  3953. Declare Sub Click(Source As Button)
  3954. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3955. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3956. Private Sub BindEvents(Byval Objectname_ As String)
  3957.     Static Source As BUTTON
  3958.     Set Source = Bind(Objectname_)
  3959.     On Event Click From Source Call Click
  3960. End Sub
  3961. '++LotusScript Development Environment:2:2:Click:1:12
  3962. Sub Click(Source As Button)
  3963.     Dim w As New NotesUIWorkspace
  3964.     Dim uidoc As NotesUIDocument
  3965.     Set uidoc=w.ComposeDocument("","","Group")
  3966.     Call uidoc.FieldSetText("GroupType","1")
  3967.     Call uidoc.FieldSetText("GroupTitle","1")    
  3968. End Sub
  3969. _Edit GroupK
  3970. Delete Group 
  3971.     0S0E
  3972.     0S0E
  3973. Write Memo
  3974. Error
  3975. You must use Notes 4.6 or above to use this action.
  3976. (CreateMailMemo)
  3977.     6S7S9S
  3978. Schedule Meeting
  3979. Error
  3980. You must use Notes 4.6 or above to use this action.
  3981. (ScheduleMeeting)
  3982.     6S7S9S
  3983. Send Docu_ment
  3984. _Forward
  3985. Categori_zeK    
  3986. _Move to Folder...
  3987. _Remove from Folder...
  3988. Preferences...4
  3989. DirectoryProfile
  3990.     0S0E
  3991. Lotus Product
  3992. O=Lotus Notes
  3993. O=Lotus Notes
  3994. PURSAFO
  3995. |.:#U
  3996. O=Lotus Notes
  3997. CN=Lotus Notes Template Development/O=Lotus Notes
  3998. PURSAFO
  3999. 2    !Q3
  4000. $TITLE
  4001. $Index
  4002. $Formula
  4003. $FormulaClass
  4004. $VIEWFORMAT
  4005. $Comment
  4006. $V5ACTIONS
  4007. $ACTIONS
  4008. $SCRIPTOBJ_1
  4009. $ViewGlobalScript_O
  4010. $SUBVIEWDomainName\Domain Name:23_Advanced\Certificates|Server\Certificates,
  4011. CrossCertificate
  4012. CertificateType
  4013. Internet Cross Certificates
  4014. Notes Cross Certificates
  4015. Certifier
  4016. CertificateType
  4017. Internet Certifiers
  4018. Notes Certifiers
  4019. Unknown
  4020.     0S0E
  4021. IssuedBy
  4022. IssuedTo
  4023. $7$3$4$Conflict$REF
  4024. CrossCertificate
  4025. Certifier
  4026. SSLCertificate
  4027.     L1S2S3S4S5S6S7S8S9S1!
  4028. $7$3$4
  4029. CrossCertificate
  4030. CertificateType
  4031. Internet Cross Certificates
  4032. Notes Cross Certificates
  4033. Certifier
  4034. CertificateType
  4035. Internet Certifiers
  4036. Notes Certifiers
  4037. Unknown
  4038.     0S0E
  4039. $3Issued By.
  4040. IssuedBy
  4041. $4Issued To.
  4042. IssuedTo
  4043. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  4044. +_Advanced\Locations|Locations
  4045. Source
  4046.   - for 
  4047. Source
  4048.  only
  4049.     6S7S23S24S
  4050. $20$Conflict$REF
  4051. Location
  4052.     L1S2S3S1
  4053. $20Location
  4054. Source
  4055.   - for 
  4056. Source
  4057.  only
  4058.     6S7S23S24S
  4059. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  4060. $SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15($CompanyList)|CompaniesB
  4061. CompanyName
  4062. Location
  4063. Location"
  4064.     1S2S8S12S
  4065. BusinessAddress
  4066. BusinessAddress
  4067. HomeAddress
  4068.     0S0E
  4069. $16OfficePhoneNumber$17$Conflict$REF
  4070. Company
  4071. Person
  4072.     L1S2S3S1
  4073. $16$17
  4074. $16Companyl
  4075. CompanyName
  4076. Location
  4077. Location"
  4078.     1S2S8S12SOfficePhoneNumberTelephone$17Addressh
  4079. BusinessAddress
  4080. BusinessAddress
  4081. HomeAddress
  4082.     0S0E
  4083. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################
  4084. Database Scriptt34Q1
  4085. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
  4086. (PersonalAddressBookProfile)DirectoryProfileCD
  4087. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
  4088. Edit Address Book Preferences
  4089. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  4090. AccountAccount
  4091. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  4092. Remove Address Book Preferences
  4093. E4fL3
  4094. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  4095. AC(9ulZ
  4096.     _Advanced\Accounts|Accounts
  4097. AccountProtocol
  4098. AccountProtocol
  4099. AccountProtocol
  4100. AccountProtocol
  4101. AccountProtocol
  4102.     2S3S4S8RS9E9S10S14RS9E15S16S20RS9E21S22S26RTT27S28S32R
  4103. AccountName$33ConnectionModeAccountLocation$Conflict$REF
  4104. Account
  4105.     L1S2S3S1"
  4106. AccountName$33
  4107. AccountNameAccount Name$33Protocol<
  4108. AccountProtocol
  4109. AccountProtocol
  4110. AccountProtocol
  4111. AccountProtocol
  4112. AccountProtocol
  4113.     2S3S4S8RS9E9S10S14RS9E15S16S20RS9E21S22S26RTT27S28S32R
  4114. ConnectionModeViaAccountLocationApplies to Location(s)&
  4115. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
  4116. ($Accounts)/Oz
  4117. AccountNameAccountPortNumberAccountLocation$Conflict$REF
  4118. Account
  4119.     L1S2S3S10
  4120. AccountNameAccountPortNumber
  4121. AccountNameNameAccountPortNumberPortAccountLocationAccountLocation&
  4122. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  4123. _Advanced\International MIME SettingsConversionOptions
  4124. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  4125.     _Advanced\International MIME Settings|InternationalMIMESettings
  4126. ConnectionLocation
  4127. * - [All Locations]
  4128. ConnectionLocation
  4129.     0S0E
  4130. $1$Conflict$REF
  4131. ConversionOptions
  4132.     L1S1
  4133. $1Conversion Options for Locationt
  4134. ConnectionLocation
  4135. * - [All Locations]
  4136. ConnectionLocation
  4137.     0S0E
  4138. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
  4139. ($Internet/RAS Dialup Wizard)DC
  4140. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  4141. ($Notes Dialup Wizard)DC
  4142. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  4143. ##########################################################
  4144. RLANRoutiness34Q1
  4145. CN=Marina Bodik/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  4146. ##########################################################
  4147. StackContainers34Q1
  4148. CN=Damien Katz/O=IrisCN=Marina Bodik/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
  4149. CN=Damien Katz/O=IrisCN=Marina Bodik/O=IrisCN=Mike Carroll/O=IrisCN=Damien Katz/O=IrisCN=Marina Bodik/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesWizards34Q1#####################################
  4150. ($InternationalMIMESettings)
  4151. ConnectionLocation
  4152. ConnectionLocation
  4153. ConnectionLocation$Conflict$REF
  4154. ConversionOptions
  4155.     L1S1
  4156. ConnectionLocation
  4157. ConnectionLocationConnectionLocation2
  4158. ConnectionLocation
  4159. ConnectionLocation
  4160. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  4161. ?bump.jpgbump.jpg
  4162. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
  4163. RAS0home.notes.net10
  4164. 23456710ConnectionCN=Rob Slapikoff/O=Iris[NetModifer]0CN=home/OU=notes/O=netTCPIP**
  4165. @TCPIPhome.notes.netlocal
  4166. CN=Rob Slapikoff/O=Iris
  4167. ########################################
  4168. Group0You should add all Notes servers in other domains with which you commonly replicate to this group.  Many databases give servers in this group Designer access.  These servers generally have replicas of most or all of the databases in your domain, but each replica does not necessarily have the same Access Control List.1[GroupModifier]0OtherDomainServersGroup
  4169. Debbie BrancoCN=Rob Slapikoff/O=Iris
  4170. Group0You should add all Notes servers in your domain to this group.  Many databases give servers in this group Manager access.  These servers generally have replicas of most or all of the databases in your domain.1[GroupModifier]0LocalDomainServersGroup
  4171. Debbie BrancoCN=Rob Slapikoff/O=Iris
  4172. ########
  4173. ?marble.jpgmarble.jpg
  4174. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  4175. $ACTIONSCny
  4176. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
  4177. Add Certifier
  4178. CurrentServer
  4179.     0S0E
  4180. CurrentServer
  4181. Certifier
  4182. [NetCreator]
  4183. Certifier
  4184. Not Authorized
  4185. You are not authorized to add Certifier documents to this database.
  4186.     0R6R10S13R
  4187. Categori_zeK
  4188. _Edit CertifierK
  4189. Send Docu_ment
  4190. _Forward
  4191. Delete Certifier 
  4192.     0S0E
  4193. _Move to Folder...
  4194. _Remove from Folder...
  4195. Preferences...4
  4196. DirectoryProfile
  4197.     0S0E
  4198. Add Certifier
  4199. CurrentServer
  4200.     0S0E
  4201. CurrentServer
  4202. Certifier
  4203. [NetCreator]
  4204. Certifier
  4205. Not Authorized
  4206. You are not authorized to add Certifier documents to this database.
  4207.     0R6R10S13R
  4208. Categori_zeK
  4209. _Edit CertifierK
  4210. Send Docu_ment
  4211. _Forward
  4212. Delete Certifier 
  4213.     0S0E
  4214. _Move to Folder...
  4215. _Remove from Folder...
  4216. Preferences...4
  4217. DirectoryProfile
  4218.     0S0E
  4219. O=Lotus Notes
  4220. O=Lotus Notes
  4221. PURSAFO
  4222. |.:#U
  4223. O=Lotus Notes
  4224. CN=Lotus Notes Template Development/O=Lotus Notes
  4225. PURSAFO
  4226. $TABLEFORMAT
  4227. $TITLE
  4228. $Index
  4229. $Formula
  4230. $FormulaClass
  4231. $VIEWFORMAT
  4232. $Comment
  4233. $V5ACTIONS
  4234. $ACTIONS
  4235. Add Location$
  4236. CurrentServer
  4237.     0S0E
  4238. CurrentServer
  4239. Location
  4240. [NetCreator]
  4241. Location
  4242. Not Authorized
  4243. You are not authorized to add Location documents to this database.
  4244.     0R6R10S13R
  4245. _Edit Location
  4246. Delete LocationK 
  4247.     0S0E
  4248. Send Docu_ment
  4249. _Forward
  4250. Categori_zeK
  4251. _Move to Folder...
  4252. _Remove from Folder...
  4253. Preferences...4
  4254. DirectoryProfile
  4255.     0S0E
  4256. Add Location$
  4257. CurrentServer
  4258.     0S0E
  4259. CurrentServer
  4260. Location
  4261. [NetCreator]
  4262. Location
  4263. Not Authorized
  4264. You are not authorized to add Location documents to this database.
  4265.     0R6R10S13R
  4266. _Edit Location
  4267. Delete LocationK 
  4268.     0S0E
  4269. Send Docu_ment
  4270. _Forward
  4271. Categori_zeK
  4272. _Move to Folder...
  4273. _Remove from Folder...
  4274. Preferences...4
  4275. DirectoryProfile
  4276.     0S0E
  4277. O=Lotus Notes
  4278. O=Lotus Notes
  4279. PURSAFO
  4280. |.:#U
  4281. O=Lotus Notes
  4282. CN=Lotus Notes Template Development/O=Lotus Notes
  4283. PURSAFO
  4284. $TITLE
  4285. $Index
  4286. $Formula
  4287. $FormulaClass
  4288. $VIEWFORMAT
  4289. $Comment
  4290. $V5ACTIONS
  4291. $ACTIONS
  4292. O=Lotus Notes
  4293. O=Lotus Notes
  4294. PURSAFO
  4295. |.:#U
  4296. O=Lotus Notes
  4297. CN=Lotus Notes Template Development/O=Lotus Notes
  4298. PURSAFO
  4299. Fde!f^^
  4300. sZ%!ZM}
  4301. $Flags
  4302. LastName
  4303. FirstName
  4304. LastName
  4305. Firstname
  4306. FirstName
  4307. CompanyName
  4308.     3S5S6S7S8S10R23S41R
  4309. LastName
  4310. FirstName
  4311. LastName
  4312. Firstname
  4313. FirstName
  4314. CompanyName
  4315.     3S5S6S7S8S10R23S41R
  4316. OfficePhoneNumber
  4317. PhoneLabel_1
  4318. PhoneLabel_1
  4319. OfficePhoneNumber
  4320. OfficeFAXPhoneNumber
  4321. PhoneLabel_3
  4322. PhoneLabel_3
  4323. OfficeFAXPhoneNumber"
  4324. CellPhoneNumber
  4325. PhoneLabel_5
  4326. PhoneLabel_5
  4327. CellPhoneNumber
  4328. PhoneNumber
  4329. PhoneLabel_2
  4330. PhoneLabel_2
  4331. PhoneNumber
  4332. HomeFAXPhoneNumber
  4333. PhoneLabel_4
  4334. PhoneLabel_4
  4335. HomeFAXPhoneNumber"
  4336. PhoneNumber_6
  4337. PhoneLabel_6
  4338. PhoneLabel_6
  4339. PhoneNumber_6
  4340.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E
  4341. CompanyName
  4342. CompanyName
  4343. JobTitle
  4344. JobTitle
  4345. BusinessAddress
  4346. OfficeStreetAddress
  4347. OfficeCity
  4348. OfficeCity
  4349. OfficeState
  4350. OfficeState
  4351. OfficeZip
  4352. OfficeCountry
  4353.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E
  4354. Categories$101$102$103$104$Conflict$REF
  4355. Person
  4356.     L1S2S3S
  4357. @Categories$101Name
  4358. LastName
  4359. FirstName
  4360. LastName
  4361. Firstname
  4362. FirstName
  4363. CompanyName
  4364.     3S5S6S7S8S10R23S41R$102Name
  4365. LastName
  4366. FirstName
  4367. LastName
  4368. Firstname
  4369. FirstName
  4370. CompanyName
  4371.     3S5S6S7S8S10R23S41R$103Phone
  4372. OfficePhoneNumber
  4373. PhoneLabel_1
  4374. PhoneLabel_1
  4375. OfficePhoneNumber
  4376. OfficeFAXPhoneNumber
  4377. PhoneLabel_3
  4378. PhoneLabel_3
  4379. OfficeFAXPhoneNumber"
  4380. CellPhoneNumber
  4381. PhoneLabel_5
  4382. PhoneLabel_5
  4383. CellPhoneNumber
  4384. PhoneNumber
  4385. PhoneLabel_2
  4386. PhoneLabel_2
  4387. PhoneNumber
  4388. HomeFAXPhoneNumber
  4389. PhoneLabel_4
  4390. PhoneLabel_4
  4391. HomeFAXPhoneNumber"
  4392. PhoneNumber_6
  4393. PhoneLabel_6
  4394. PhoneLabel_6
  4395. PhoneNumber_6
  4396.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E$104Business
  4397. CompanyName
  4398. CompanyName
  4399. JobTitle
  4400. JobTitle
  4401. BusinessAddress
  4402. OfficeStreetAddress
  4403. OfficeCity
  4404. OfficeCity
  4405. OfficeState
  4406. OfficeState
  4407. OfficeZip
  4408. OfficeCountry
  4409.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E&
  4410. Add Card 
  4411. CurrentServer
  4412.     0S0E
  4413. CurrentServer
  4414. Person
  4415. [UserCreator]
  4416. Person
  4417. Not Authorized
  4418. You are not authorized to add Person documents to this database.
  4419.     0R6R10S13R
  4420. _Edit Card
  4421. Delete
  4422. MailVerify
  4423. DeleteNTUserAccount
  4424.     0R1S
  4425. synch
  4426. AdminFileName
  4427. admin4.nsf
  4428. CurrentServer
  4429. AdminPExist
  4430. CurrentServer
  4431. AdminFileName
  4432. AdminPAccess
  4433. CurrentServer
  4434. AdminFileName
  4435. AdminPAccessLevel
  4436. AdminPAccess
  4437. AdminPCreateAccess
  4438. AdminPAccess
  4439. NamesAccess
  4440. NamesAccessLevel
  4441. NamesAccess
  4442. NamesDeleteAccess
  4443. NamesAccess
  4444. PersonLastName
  4445. LastName
  4446. PersonFirstName
  4447. FirstName
  4448. DeleteVerify
  4449. Verification
  4450. You have requested to delete the selected person records.  Do you wish to continue?
  4451. Action Cancelled
  4452. You have cancelled deleting the person record(s).
  4453. DeleteVerify+
  4454. CurrentServer
  4455. (DeleteUserOptions)
  4456. AdminPExist
  4457. AdminPAccessLevel
  4458. AdminPCreateAccess
  4459. NamesAccessLevel
  4460. NamesDeleteAccess
  4461. synch
  4462. Immediate or via Administration Process?
  4463. By selecting 'Yes' the action you have requested will take place immediately, and affect all references to the selected people in this Address Book.  (NOTE:  This may take awhile...)
  4464. synch
  4465. CurrentServer
  4466. AdminFileName
  4467. MailVerify
  4468. DeleteNTUserAccount
  4469. Completed Successfully
  4470. The people(s) name have been removed completely from this Address Book
  4471. Error
  4472. You have encountered an error.  The people(s) name have not been removed completely.  Please try again.
  4473. synch
  4474. CurrentServer
  4475. AdminFileName
  4476. MailVerify
  4477. DeleteNTUserAccount
  4478. Request Successful
  4479. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  4480. Error
  4481. You have encountered an error.  The request was not submitted properly.  Please try again.
  4482. DeleteNTUserAccount
  4483. Action Cancelled
  4484. Action has been cancelled.
  4485. NamesAccessLevel
  4486. NamesDeleteAccess
  4487. CurrentServer
  4488. AdminFileName
  4489. MailVerify
  4490. DeleteNTUserAccount
  4491. Request Successful
  4492. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  4493. Error
  4494. You have encountered an error.  The request was not submitted properly.  Please try again.
  4495. NamesAccessLevel
  4496. NamesDeleteAccess
  4497. DeleteNTUserAccount
  4498. Insufficient Access
  4499. You do not have sufficient access to perform the requested operation.
  4500. DeleteNTUserAccount
  4501. Insufficient Access
  4502. You do not have sufficient access to  perform the requested operation.
  4503. DeleteNTUserAccount
  4504. Insufficient Access
  4505. You are not authorized to create requests in the Administration Requests Database.
  4506. DeleteNTUserAccount
  4507. Admin. Requests Database Does Not Exist
  4508. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  4509.     0RR6RS2E17RS6E32RS9E41RS12E44S46S47S48S51RS15E54S55S56S57S58S61RS12E77RS15E83RS18E95S102RS46E111RS47E119RS28E121RS20E125RS19E146RS48E155RS49E161S163RS28E166RS19E187RS20E190RS17E193S194S198RS15E216S219RS48E228RS49E234S236RS29E239RS19E240S242S243S247RS24E267RS38E269RS11E289RS15E290RS10E292RS7E313RS8E315RS2E335RS17E336RS4E337R338RR340R344R
  4510.     11S12S13S17S18S
  4511. Directories... 
  4512.     0S0E
  4513. Categori_zeK
  4514. Send Docu_ment
  4515. _Forward
  4516. _Move to Folder...
  4517. _Remove from Folder...    
  4518. Write Memo
  4519. Error
  4520. You must use Notes 4.6 or above to use this action.
  4521. (CreateMailMemo)
  4522.     6S7S9S
  4523. Schedule Meeting
  4524. Error
  4525. You must use Notes 4.6 or above to use this action.
  4526. (ScheduleMeeting)
  4527.     6S7S9S
  4528. Tools...\Create Group
  4529. '++LotusScript Development Environment:2:5:(Options):0:66
  4530. '++LotusScript Development Environment:2:5:(Forward):0:1
  4531. Declare Sub Click(Source As Button)
  4532. Declare Function GetFullName() As String
  4533. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4534. Dim ws As NotesUIWorkspace
  4535. Dim session As NotesSession
  4536. Dim db As NotesDatabase
  4537. Dim note As NotesDocument
  4538. Dim groupnote As NotesDocument
  4539. Dim collection As NotesDocumentCollection
  4540. Dim Names() As String
  4541. Dim counter As Integer
  4542. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4543. Private Sub BindEvents(Byval Objectname_ As String)
  4544.     Static Source As BUTTON
  4545.     Set Source = Bind(Objectname_)
  4546.     On Event Click From Source Call Click
  4547. End Sub
  4548. '++LotusScript Development Environment:2:2:Click:1:12
  4549. Sub Click(Source As Button)
  4550.     Set ws = New NotesUIWorkspace
  4551.     Set session = New NotesSession
  4552.     Set db = session.CurrentDatabase
  4553.     counter = 0
  4554.     Set collection = db.UnprocessedDocuments
  4555.     If (collection.Count = 0) Then
  4556.         Messagebox "No documents were selected.",0,"Error"
  4557.         Exit Sub
  4558.     End If
  4559.     Redim Names(collection.Count-1)
  4560. 'for each document in the collection, get the first value of FullName
  4561. 'we use the GetNth method since the resulting collection is an IDTable
  4562.     For x = 1 To collection.Count
  4563.         Set note = collection.GetNthDocument(x)
  4564.         Names(counter) = GetFullName
  4565.         counter = counter + 1
  4566.     Next
  4567.     Set groupnote = New NotesDocument(db)
  4568.     groupnote.Members = Names
  4569.     groupnote.Form = "Group"
  4570.     groupnote.Type = "Group"
  4571.     Call ws.EditDocument(True,groupnote)
  4572. End Sub
  4573. '++LotusScript Development Environment:2:1:GetFullName:1:8
  4574. Function GetFullName() As String
  4575.     If note.FullName(0) <> "" Then
  4576.         GetFullName = note.FullName(0)
  4577.     Else
  4578.         GetFullName= note.LastName(0)
  4579.     End If
  4580. End Function
  4581. Tools...\Visit Web PageK
  4582. WebSite
  4583. WebSite
  4584. No Web Page Defined
  4585. This document has no Web page defined.
  4586.     3S7S
  4587. Tools...\Preferences...K4
  4588. DirectoryProfile
  4589.     0S0E
  4590. Add Card 
  4591. CurrentServer
  4592.     0S0E
  4593. CurrentServer
  4594. Person
  4595. [UserCreator]
  4596. Person
  4597. Not Authorized
  4598. You are not authorized to add Person documents to this database.
  4599.     0R6R10S13R
  4600. _Edit Card
  4601. Delete
  4602. MailVerify
  4603. DeleteNTUserAccount
  4604.     0R1S
  4605. synch
  4606. AdminFileName
  4607. admin4.nsf
  4608. CurrentServer
  4609. AdminPExist
  4610. CurrentServer
  4611. AdminFileName
  4612. AdminPAccess
  4613. CurrentServer
  4614. AdminFileName
  4615. AdminPAccessLevel
  4616. AdminPAccess
  4617. AdminPCreateAccess
  4618. AdminPAccess
  4619. NamesAccess
  4620. NamesAccessLevel
  4621. NamesAccess
  4622. NamesDeleteAccess
  4623. NamesAccess
  4624. PersonLastName
  4625. LastName
  4626. PersonFirstName
  4627. FirstName
  4628. DeleteVerify
  4629. Verification
  4630. You have requested to delete the selected person records.  Do you wish to continue?
  4631. Action Cancelled
  4632. You have cancelled deleting the person record(s).
  4633. DeleteVerify+
  4634. CurrentServer
  4635. (DeleteUserOptions)
  4636. AdminPExist
  4637. AdminPAccessLevel
  4638. AdminPCreateAccess
  4639. NamesAccessLevel
  4640. NamesDeleteAccess
  4641. synch
  4642. Immediate or via Administration Process?
  4643. By selecting 'Yes' the action you have requested will take place immediately, and affect all references to the selected people in this Address Book.  (NOTE:  This may take awhile...)
  4644. synch
  4645. CurrentServer
  4646. AdminFileName
  4647. MailVerify
  4648. DeleteNTUserAccount
  4649. Completed Successfully
  4650. The people(s) name have been removed completely from this Address Book
  4651. Error
  4652. You have encountered an error.  The people(s) name have not been removed completely.  Please try again.
  4653. synch
  4654. CurrentServer
  4655. AdminFileName
  4656. MailVerify
  4657. DeleteNTUserAccount
  4658. Request Successful
  4659. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  4660. Error
  4661. You have encountered an error.  The request was not submitted properly.  Please try again.
  4662. DeleteNTUserAccount
  4663. Action Cancelled
  4664. Action has been cancelled.
  4665. NamesAccessLevel
  4666. NamesDeleteAccess
  4667. CurrentServer
  4668. AdminFileName
  4669. MailVerify
  4670. DeleteNTUserAccount
  4671. Request Successful
  4672. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  4673. Error
  4674. You have encountered an error.  The request was not submitted properly.  Please try again.
  4675. NamesAccessLevel
  4676. NamesDeleteAccess
  4677. DeleteNTUserAccount
  4678. Insufficient Access
  4679. You do not have sufficient access to perform the requested operation.
  4680. DeleteNTUserAccount
  4681. Insufficient Access
  4682. You do not have sufficient access to  perform the requested operation.
  4683. DeleteNTUserAccount
  4684. Insufficient Access
  4685. You are not authorized to create requests in the Administration Requests Database.
  4686. DeleteNTUserAccount
  4687. Admin. Requests Database Does Not Exist
  4688. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  4689.     0RR6RS2E17RS6E32RS9E41RS12E44S46S47S48S51RS15E54S55S56S57S58S61RS12E77RS15E83RS18E95S102RS46E111RS47E119RS28E121RS20E125RS19E146RS48E155RS49E161S163RS28E166RS19E187RS20E190RS17E193S194S198RS15E216S219RS48E228RS49E234S236RS29E239RS19E240S242S243S247RS24E267RS38E269RS11E289RS15E290RS10E292RS7E313RS8E315RS2E335RS17E336RS4E337R338RR340R344R
  4690.     11S12S13S17S18S
  4691. Directories... 
  4692.     0S0E
  4693. Categori_zeK
  4694. Send Docu_ment
  4695. _Forward
  4696. _Move to Folder...
  4697. _Remove from Folder...    
  4698. Write Memo
  4699. Error
  4700. You must use Notes 4.6 or above to use this action.
  4701. (CreateMailMemo)
  4702.     6S7S9S
  4703. Schedule Meeting
  4704. Error
  4705. You must use Notes 4.6 or above to use this action.
  4706. (ScheduleMeeting)
  4707.     6S7S9S
  4708. Tools...\Create Group
  4709. '++LotusScript Development Environment:2:5:(Options):0:66
  4710. '++LotusScript Development Environment:2:5:(Forward):0:1
  4711. Declare Sub Click(Source As Button)
  4712. Declare Function GetFullName() As String
  4713. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4714. Dim ws As NotesUIWorkspace
  4715. Dim session As NotesSession
  4716. Dim db As NotesDatabase
  4717. Dim note As NotesDocument
  4718. Dim groupnote As NotesDocument
  4719. Dim collection As NotesDocumentCollection
  4720. Dim Names() As String
  4721. Dim counter As Integer
  4722. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4723. Private Sub BindEvents(Byval Objectname_ As String)
  4724.     Static Source As BUTTON
  4725.     Set Source = Bind(Objectname_)
  4726.     On Event Click From Source Call Click
  4727. End Sub
  4728. '++LotusScript Development Environment:2:2:Click:1:12
  4729. Sub Click(Source As Button)
  4730.     Set ws = New NotesUIWorkspace
  4731.     Set session = New NotesSession
  4732.     Set db = session.CurrentDatabase
  4733.     counter = 0
  4734.     Set collection = db.UnprocessedDocuments
  4735.     If (collection.Count = 0) Then
  4736.         Messagebox "No documents were selected.",0,"Error"
  4737.         Exit Sub
  4738.     End If
  4739.     Redim Names(collection.Count-1)
  4740. 'for each document in the collection, get the first value of FullName
  4741. 'we use the GetNth method since the resulting collection is an IDTable
  4742.     For x = 1 To collection.Count
  4743.         Set note = collection.GetNthDocument(x)
  4744.         Names(counter) = GetFullName
  4745.         counter = counter + 1
  4746.     Next
  4747.     Set groupnote = New NotesDocument(db)
  4748.     groupnote.Members = Names
  4749.     groupnote.Form = "Group"
  4750.     groupnote.Type = "Group"
  4751.     Call ws.EditDocument(True,groupnote)
  4752. End Sub
  4753. '++LotusScript Development Environment:2:1:GetFullName:1:8
  4754. Function GetFullName() As String
  4755.     If note.FullName(0) <> "" Then
  4756.         GetFullName = note.FullName(0)
  4757.     Else
  4758.         GetFullName= note.LastName(0)
  4759.     End If
  4760. End Function
  4761. Tools...\Visit Web PageK
  4762. WebSite
  4763. WebSite
  4764. No Web Page Defined
  4765. This document has no Web page defined.
  4766.     3S7S
  4767. Tools...\Preferences...K4
  4768. DirectoryProfile
  4769.     0S0E
  4770. Lotus Product
  4771. OBJECT
  4772. O=Lotus Notes
  4773. O=Lotus Notes
  4774. PURSAFO
  4775. |.:#U
  4776. O=Lotus Notes
  4777. CN=Lotus Notes Template Development/O=Lotus Notes
  4778. PURSAFO
  4779. Vu+Q(I
  4780. Xw}xY
  4781. $TITLE
  4782. $Index
  4783. $Formula
  4784. $FormulaClass
  4785. $VIEWFORMAT
  4786. $Comment
  4787. $V5ACTIONS
  4788. $ACTIONS
  4789. $ViewGlobalScript_O
  4790. Add CompanyK,
  4791. Company
  4792.     0S0E
  4793. _Edit Company
  4794. Delete Company 
  4795.     0S0E
  4796. Categori_zeK
  4797. Send Docu_ment
  4798. _Forward
  4799. _Move to Folder...
  4800. _Remove from Folder...
  4801. O=Lotus Notes
  4802. O=Lotus Notes
  4803. PURSAFO
  4804. |.:#U
  4805. O=Lotus Notes
  4806. CN=Lotus Notes Template Development/O=Lotus Notes
  4807. PURSAFO
  4808. $TABLEFORMAT
  4809. $TITLE
  4810. $Index
  4811. $Formula
  4812. $FormulaClass
  4813. $VIEWFORMAT
  4814. $Comment
  4815. $ACTIONS
  4816. '++LotusScript Development Environment:2:5:(Options):0:66
  4817. '++LotusScript Development Environment:2:5:(Forward):0:1
  4818. Declare Sub Postopen(Source As Notesuidatabase)
  4819. Declare Sub CreateDefaultPersonalAddressBookProfile
  4820. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4821. Dim ws As NotesUIWorkspace
  4822. Dim uidoc As NotesUIDocument
  4823. Dim session As NotesSession
  4824. Dim db As NotesDatabase
  4825. Dim note As NotesDocument
  4826. Dim profile As NotesDocument
  4827. Dim exprofile As NotesDocument
  4828. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4829. Private Sub BindEvents(Byval Objectname_ As String)
  4830.     Static Source As NOTESUIDATABASE
  4831.     Set Source = Bind(Objectname_)
  4832.     On Event Postopen From Source Call Postopen
  4833. End Sub
  4834. '++LotusScript Development Environment:2:2:Postopen:1:12
  4835. Sub Postopen(Source As Notesuidatabase)
  4836.     Set session = New NotesSession
  4837.     Set db = session.CurrentDatabase   
  4838.     Set ws = New NotesUIWorkspace
  4839.     Set profile=db.GetProfileDocument("DirectoryProfile")
  4840.     If profile.Owner(0)="" Then
  4841.         Set exprofile=db.GetProfileDocument("PersonalAddressBookProfile") 
  4842.         Call CreateDefaultPersonalAddressBookProfile
  4843.     End If
  4844. End Sub
  4845. '++LotusScript Development Environment:2:2:CreateDefaultPersonalAddressBookProfile:1:8
  4846. Sub CreateDefaultPersonalAddressBookProfile
  4847. 'the global variable "profile" is a profile document already
  4848. 'we need to add the fields to it
  4849.     Call profile.ReplaceItemValue("Owner",exprofile.GetItemValue("Owner")(0))
  4850. ' remove the old 4.6 profile
  4851.     Call exprofile.remove(True)
  4852.     Call profile.ReplaceItemValue("Form", "DirectoryProfile")
  4853.     Call profile.ComputeWithForm(False, False)
  4854.     Call profile.Save(True,True,True)
  4855.     Call ws.EditProfile("DirectoryProfile")  
  4856. End Sub
  4857. Lotus Product
  4858. OBJECT
  4859. O=Lotus Notes
  4860. O=Lotus Notes
  4861. PURSAFO
  4862. |.:#U
  4863. O=Lotus Notes
  4864. CN=Lotus Notes Template Development/O=Lotus Notes
  4865. PURSAFO
  4866. $DBScript
  4867. $DBScript_O
  4868. $TITLE
  4869. $Flags
  4870. $PublicAccess
  4871. "Small Fonts
  4872. Lotus Product
  4873.  DirectoryProfile'++LotusScript Development Environment:2:5:(Options):0:66
  4874. '++LotusScript Development Environment:2:5:(Forward):0:1
  4875. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  4876. '++LotusScript Development Environment:2:5:(Declarations):0:2
  4877. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4878. Private Sub BindEvents(Byval Objectname_ As String)
  4879.     Static Source As NOTESUIDOCUMENT
  4880.     Set Source = Bind(Objectname_)
  4881.     On Event Querysave From Source Call Querysave
  4882. End Sub
  4883. '++LotusScript Development Environment:2:2:Querysave:1:12
  4884. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  4885.     Dim s As New NotesSession
  4886.     Dim db As NotesDatabase
  4887.     Dim doc As NotesDocument
  4888.     Dim uidoc As NotesUIDocument
  4889.     Set db=s.CurrentDatabase
  4890.     Set uidoc=source
  4891.     Set doc=uidoc.document
  4892.     If doc.GetItemValue("LDAPFTI")(0)="1" Then
  4893.         Call db.UpdateFTIndex(True)
  4894.     End If
  4895. End Sub
  4896. Lotus Product
  4897. PERSONAL ADDRESS BOOK PROFILE
  4898.     Address Book owner: 
  4899. Owner
  4900. GroupSortDefault
  4901. Sort all new groups by default|1
  4902. LDAPFTI
  4903. Allow detailed LDAP queries of this address book|1
  4904.     Business Card Options
  4905. Default
  4906. $BusinessCardStyle
  4907. -Default-|DefaultOption 1|aOption 2|bOption 3|cOption 4|d
  4908. BusinessCardBkg
  4909. $BusinessCardBkg
  4910. $BusinessCardBkg
  4911. bump.jpg
  4912. marble.jpg
  4913. redstone.jpg
  4914. thread.jpgw
  4915.     0R1S
  4916. $BusinessCardBkg
  4917. bump.jpg
  4918. marble.jpg
  4919. redstone.jpg
  4920. thread.jpgw
  4921.     0R1S
  4922.     Background
  4923. BusinessCardStyle
  4924. BusinessCardStyle
  4925. Default
  4926. Person's name
  4927. Company Name
  4928. Business Address
  4929. Office phone
  4930. Fax phone
  4931. E-Mail addresss
  4932. Default
  4933. Company Name
  4934. Person's name
  4935. Job title
  4936. Business Address
  4937. Office phone
  4938. Fax phone
  4939. E-Mail addresss
  4940. Person's name
  4941. Business Address
  4942. Office phone
  4943. Fax phone
  4944. E-Mail addresss
  4945. Company Name
  4946. Company Name
  4947. Person's name
  4948. Business Address
  4949. Office phone
  4950. Fax phone
  4951. E-Mail addresss
  4952. Office phone
  4953. Company Name
  4954. Business Address
  4955. Person's name
  4956. Job title
  4957. $BusinessCardStyle
  4958. Default
  4959.     0R1S
  4960. $BusinessCardStyle
  4961. Default
  4962.     0R1S
  4963.     Business Card Style
  4964. $BusinessCardBkg
  4965. thread.jpgredstone.jpgmarble.jpgbump.jpg
  4966. BusinessCardStyle
  4967.     Person's name
  4968.     Company Name
  4969.     Business Address
  4970.     Office phone
  4971.     Fax phone
  4972.     E-Mail addresss
  4973. Default
  4974. $BusinessCardBkg
  4975. Company Name
  4976.     Person's name
  4977.     Job title
  4978.     Business Address
  4979.     Office phone
  4980.     Fax phone
  4981.     E-Mail addresss
  4982. $BusinessCardBkg
  4983.     Person's name
  4984.     Business Address
  4985.     Office phone
  4986.     Fax phone
  4987.     E-Mail addresss
  4988. Company Name
  4989. $BusinessCardBkg
  4990. Company Name
  4991.     Person's name
  4992.     Business Address
  4993.     Office phone
  4994.     Fax phone
  4995.     E-Mail addresss
  4996. $BusinessCardBkg
  4997.     Office phone
  4998. Company Name
  4999.     Business Address
  5000.     Person's name
  5001.     Job title
  5002. $BusinessCardBkg
  5003. Save and Close<
  5004.     0S0E
  5005. Categori_zeK
  5006. _Edit Document
  5007. Send Docu_ment
  5008. _Forward
  5009. _Move To Folder...
  5010. _Remove From FolderK
  5011. Save and Close<
  5012.     0S0E
  5013. Categori_zeK
  5014. _Edit Document
  5015. Send Docu_ment
  5016. _Forward
  5017. _Move To Folder...
  5018. _Remove From FolderK
  5019. O=Lotus Notes
  5020. O=Lotus Notes
  5021. PURSAFO
  5022. |.:#U
  5023. O=Lotus Notes
  5024. CN=Lotus Notes Template Development/O=Lotus Notes
  5025. PURSAFO
  5026. $INFO
  5027. $$Script_O
  5028. $$ScriptName
  5029. $$FormScript
  5030. $$$FormScript_O
  5031. $BODY
  5032. $V5ACTIONS
  5033. $ACTIONS
  5034. Started running agent 'Edit Address Book Profile' on 05/11/98 02:12:28 PM
  5035. 1 document(s) were modified by formula
  5036. Done running agent 'Edit Address Book Profile' on 05/11/98 02:12:29 PM
  5037. Started running agent 'Edit Address Book Preferences' on 10/13/98 11:01:37 AM
  5038. 0 document(s) were modified by formula
  5039. Done running agent 'Edit Address Book Preferences' on 10/13/98 11:01:37 AM
  5040. DirectoryProfile
  5041. O=Lotus Notes
  5042. O=Lotus Notes
  5043. PURSAFO
  5044. |.:#U
  5045. O=Lotus Notes
  5046. CN=Lotus Notes Template Development/O=Lotus Notes
  5047. PURSAFO
  5048. <sVq%
  5049. $TITLE
  5050. $AssistType
  5051. $AssistLastRun
  5052. $AssistDocCount
  5053. $AssistFlags
  5054. $AssistTrigger
  5055. $AssistInfo
  5056. $AssistQuery
  5057. $AssistAction
  5058. $AssistAction_Ex
  5059. Categori_zeK
  5060. Add Settings6
  5061. ConversionOptions
  5062.     0S0E
  5063. _Edit Settings
  5064. Delete 
  5065.     0S0E
  5066. Send Docu_ment
  5067. _Forward
  5068. _Move To Folder...
  5069. _Remove From FolderK
  5070. Preferences...4
  5071. DirectoryProfile
  5072.     0S0E
  5073. Categori_zeK
  5074. Add Settings6
  5075. ConversionOptions
  5076.     0S0E
  5077. _Edit Settings
  5078. Delete 
  5079.     0S0E
  5080. Send Docu_ment
  5081. _Forward
  5082. _Move To Folder...
  5083. _Remove From FolderK
  5084. Preferences...4
  5085. DirectoryProfile
  5086.     0S0E
  5087. O=Lotus Notes
  5088. O=Lotus Notes
  5089. PURSAFO
  5090. |.:#U
  5091. O=Lotus Notes
  5092. CN=Lotus Notes Template Development/O=Lotus Notes
  5093. PURSAFO
  5094. $TITLE
  5095. $Index
  5096. $Formula
  5097. $FormulaClass
  5098. $VIEWFORMAT
  5099. $Comment
  5100. $V5ACTIONS
  5101. $ACTIONS
  5102. O=Lotus Notes
  5103. O=Lotus Notes
  5104. PURSAFO
  5105. |.:#U
  5106. O=Lotus Notes
  5107. CN=Lotus Notes Template Development/O=Lotus Notes
  5108. PURSAFO
  5109. $TITLE
  5110. $Index
  5111. $Formula
  5112. $FormulaClass
  5113. $VIEWFORMAT
  5114. $Comment
  5115. Rob Slapikoff-Rob
  5116.     Internet directory server
  5117. &Arial
  5118. '++LotusScript Development Environment:2:5:(Options):0:66
  5119. Option Public
  5120. '++LotusScript Development Environment:2:5:(Forward):0:1
  5121. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5122. Dim sOriginalAccountProtocol As String
  5123. Lotus Product
  5124.  Account'++LotusScript Development Environment:2:5:(Options):0:66
  5125. '++LotusScript Development Environment:2:5:(Forward):0:1
  5126. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  5127. Declare Function CreateDatabase(strTemplateFile As String, strOutput As String, strTitle As String) As Integer
  5128. Declare Sub Postopen(Source As Notesuidocument)
  5129. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5130. Dim strTitle As String
  5131. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5132. Private Sub BindEvents(Byval Objectname_ As String)
  5133.     Static Source As NOTESUIDOCUMENT
  5134.     Set Source = Bind(Objectname_)
  5135.     On Event Querysave From Source Call Querysave
  5136.     On Event Postopen From Source Call Postopen
  5137. End Sub
  5138. '++LotusScript Development Environment:2:2:Querysave:1:12
  5139. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  5140.     Dim  doc As NotesDocument
  5141.     Dim checkdoc As NotesDocument
  5142.     Dim ProtocolType As String
  5143.     Dim strProtocolString As String
  5144.     Dim bSuccess As Integer
  5145.     Dim vAccountName As Variant
  5146.     Dim strFileName As String
  5147.     Dim ws As New NotesUIWorkspace
  5148.     Dim vValid As Variant    
  5149.     Dim dc As NotesDocumentCollection
  5150.     Dim db As NotesDatabase
  5151.     Dim session As New NotesSession
  5152.     Set db = session.CurrentDatabase
  5153.     Set view = db.GetView("($Accounts)")
  5154.     Set uidoc=Source
  5155.     Set doc=source.Document    
  5156.     Set dc= view.GetAllDocumentsByKey(doc.GetItemValue("AccountName")(0), True)
  5157.     If dc.count >0 Then
  5158.         Set checkdoc=dc.GetFirstDocument
  5159.         If checkdoc.NoteID <> doc.NoteID Then
  5160.             Messagebox "An Account with this name already exists.  Please choose a different Account name."
  5161.             Continue=False
  5162.             Exit Sub
  5163.         End If
  5164.     End If
  5165.     vValid=Evaluate(|@Contains(AccountName;"\\":"/":":":"+":"=":"*":"<":">":"\"":";":"?":",":"[":"]":"{":"}":"\'":"(":")")|,doc)
  5166.     If vValid(0)=1 Then
  5167.         Call uidoc.refresh
  5168.         Continue=False
  5169.         Exit Sub
  5170.     Else 
  5171.         vValid=Evaluate({@Contains(AccountName;"|")},doc)
  5172.         If vValid(0)=1 Then
  5173.             Call uidoc.refresh
  5174.             Continue=False
  5175.             Exit Sub
  5176.         End If
  5177.     End If
  5178.     If doc.GetItemValue("AccountName")(0) = "" Then
  5179.         Call uidoc.refresh
  5180.         Exit Sub
  5181.     End If
  5182.     vAccountName=Evaluate(|@ReplaceSubString(AccountName;" ":".";"")|,doc)
  5183.     strFileName=vAccountName(0)
  5184.     If Len(strFileName) > 8 Then
  5185.         strFileName=Left(strFileName, 8)+".nsf"
  5186.     Else
  5187.         strFileName=strFileName+".nsf"
  5188.     End If
  5189.     strTitle=doc.GetItemValue("AccountName")(0)
  5190.     ProtocolType=doc.GetItemValue("AccountProtocol")(0)
  5191.     If doc.GetItemValue("AccountFileName")(0) <> "" Then
  5192.         If (ProtocolType <> sOriginalAccountProtocol)  And Not doc.IsNewNote Then
  5193.             Set dbOutput = New NotesDatabase("",doc.GetItemValue("AccountFileName")(0))
  5194.             If dbOutput.IsOpen Then
  5195.                 Call dbOutput.Remove
  5196.             End If
  5197.         End If    
  5198.     End If
  5199.     Select Case ProtocolType
  5200.     Case "2"
  5201.           'Check to see if a db with the same name already exists if this is a new document.
  5202.         Set dbOutput = New NotesDatabase("", strFileName)
  5203.         If doc.IsNewNote And dbOutput.IsOpen Then
  5204.             Messagebox "A proxy database cannot be created because a file with this name already exists.  Please change your Account name."
  5205.             Continue=False
  5206.             Exit Sub
  5207.         End If
  5208.         strProtocolString=" (IMAP)"
  5209.         strTitle=strTitle+strProtocolString
  5210.         If doc.GetItemValue("IMAPMode")(0) ="1" Then
  5211.             bSuccess = CreateDatabase("imapcl5.ntf", strFileName, strTitle)
  5212.             If bSuccess = True Then        
  5213.                 Call doc.ReplaceItemValue("AccountFileName", strFileName)
  5214.                 Call ws.AddDatabase("", strFileName)
  5215.             Else
  5216.                 Print "Error: Mail (IMAP) template does not exist."
  5217.                 Continue=False
  5218.             End If
  5219.         End If
  5220.     Case "3"
  5221.           'Check to see if a db with the same name already exists if this is a new document.
  5222.         Set dbOutput = New NotesDatabase("", strFileName)
  5223.         If doc.IsNewNote And dbOutput.IsOpen Then
  5224.             Messagebox "A proxy database cannot be created because a file with this name already exists.  Please change your Account name."
  5225.             Continue=False
  5226.             Exit Sub
  5227.         End If
  5228.         strProtocolString=" (NNTP)"
  5229.         strTitle=strTitle+strProtocolString
  5230.         bSuccess = CreateDatabase("nntpcl5.ntf", strFileName, strTitle)
  5231.         If bSuccess = True Then
  5232.             Call doc.ReplaceItemValue("AccountFileName",strFileName)
  5233.             Call ws.AddDatabase("", strFileName)
  5234.         Else
  5235.             Print "Error: News Articles (NNTP) template does not exist."
  5236.             Continue=False
  5237.         End If
  5238.     End Select
  5239.     Call doc.ReplaceItemValue("OriginalAccountProtocol",sOriginalAccountProtocol)
  5240.     If doc.GetItemValue("AccountPassword")(0) <> "" Then
  5241.         Set PkName = New NotesName(doc.GetItemValue("AccountAuthor")(0))
  5242.         Call doc.ReplaceItemValue("PublicEncryptionKeys", PkName.Abbreviated )
  5243.     End If
  5244. RefreshError:
  5245.     Exit Sub
  5246. End Sub
  5247. '++LotusScript Development Environment:2:1:CreateDatabase:1:8
  5248. Function CreateDatabase(strTemplateFile As String, strOutput As String, strTitle As String) As Integer
  5249.     Dim dbTemplate As NotesDatabase
  5250.     Dim dbOutput As NotesDatabase
  5251.     ' Open up the template
  5252.     Set dbTemplate = New NotesDatabase("", strTemplateFile)
  5253.     If Not(dbTemplate.IsOpen) Then
  5254.         CreateDatabase = False
  5255.         Exit Function
  5256.     End If
  5257.     Set dbOutput = New NotesDatabase("", strOutput)
  5258.     If (dbOutput.IsOpen) Then          
  5259.         CreateDatabase = True
  5260.         Exit Function
  5261.     End If
  5262.     Set dbOutput = dbTemplate.CreateFromTemplate("", strOutput, True)
  5263.     dbOutput.Title=strTitle
  5264.     CreateDatabase = (dbOutput.IsOpen)
  5265. End Function
  5266. '++LotusScript Development Environment:2:2:Postopen:1:12
  5267. Sub Postopen(Source As Notesuidocument)
  5268.     Dim  doc As NotesDocument
  5269.     Set uidoc=Source
  5270.     Set doc=source.Document    
  5271.     sOriginalAccountProtocol=doc.GetItemValue("AccountProtocol")(0)
  5272.     If uidoc.IsNewDoc Then
  5273.         Call doc.ReplaceItemValue("AccountPFlag",doc.GetItemValue("AccountProtocol"))
  5274.         Call doc.ReplaceItemValue("AccountSFlag",doc.GetItemValue("SSLStatus"))
  5275.     End If
  5276. End Sub
  5277. Lotus Product
  5278. OBJECT
  5279.           T
  5280. }t    ^(
  5281. AccountName
  5282.     0S0E
  5283. AccountName
  5284.     0S0E
  5285. AccountName
  5286.     0S0E
  5287. AccountProtocol
  5288. IMAPMode
  5289. AccountProtocol
  5290. AccountServer
  5291. AccountProtocol
  5292. AccountLocation
  5293. AccountServer
  5294. OriginalAccountProtocol
  5295. AccountLocation
  5296.     6S7S11S12S18R29R
  5297.     0S0E
  5298. ACCOUNT 
  5299. AccountName
  5300.     0S0E
  5301. DisplayName
  5302. DisplayName
  5303.     Basics
  5304.     Account name:
  5305. AccountName
  5306. You must supply an Account name before saving this document.{
  5307. AccountName
  5308. You cannot use the following characters in Account names:  \ /  : ; + =  " | ? ,  ' < > [ ] { } ( ) (backslash, forward slash, colon, semi-colon, plus, equal sign, double quote, veritcal bar, question mark, comma, apostrophe, and left and right angle brackets, curly braces, and parentheses)
  5309. nocache
  5310. ($Accounts)
  5311. AccountName
  5312. nocache
  5313. ($Accounts)
  5314. AccountName
  5315. You already have an account by this name. Please rename this account in order to save it.
  5316.     56R81S100S101S
  5317. AccountName
  5318. AccountName
  5319.     Account server name:
  5320. AccountServer
  5321. AccountServer
  5322.     Login name:
  5323. AccountLoginNamez
  5324. AccountLoginName
  5325.     Password:
  5326. AccountPassword
  5327. AccountPassword
  5328.     Protocol:
  5329. AccountProtocol
  5330. IMAP|2LDAP|5NNTP|3POP|1SMTP|4z
  5331. AccountProtocol
  5332.     SSL:
  5333. AccountPortNumber
  5334. AccountPFlag
  5335. AccountProtocol
  5336. AccountPFlagY
  5337. AccountSFlag
  5338. SSLStatus
  5339. AccountSFlagY
  5340. SSLStatus
  5341. AccountProtocol
  5342. AccountProtocol
  5343. AccountProtocol
  5344. AccountProtocol
  5345. AccountProtocol
  5346. SSLStatus
  5347. AccountProtocol
  5348. AccountProtocol
  5349. AccountProtocol
  5350. AccountProtocol
  5351. AccountProtocol
  5352. AccountPortNumber
  5353. AccountPortNumber
  5354.     1S9S10S15S16S20S21S27RS50E33RS58E41RTTTTTTTTTTTTT47RS64E53RS64E59RS64E65RS64E68RS56E72RS58E80RTTTTTTTTTTTTT86RS64E92RS64E98RS64E104RS64E107RS57E110RS55E
  5355. AccountPFlag
  5356. AccountProtocol
  5357.     0R1S
  5358. AccountSFlag
  5359. SSLStatus
  5360.     0R1S
  5361. SSLStatus
  5362. SSLStatus
  5363. Enabled|1Disabled|0z
  5364. SSLStatus
  5365.     Only from location(s):
  5366. AccountLocation
  5367. NoCache
  5368. ($Locations)
  5369.     0S0E
  5370. AccountLocation
  5371. AccountProtocol
  5372.     4S5S6S
  5373.     Account filename:
  5374. AccountFileName
  5375. AccountFileName
  5376. AccountFilename
  5377. AccountFilename
  5378. Basics
  5379. AccountProtocol
  5380.     0S0E
  5381. AccountProtocol
  5382.     0S0E
  5383.     LDAP Configuration
  5384.     Search timeout:
  5385. LDAPTimeout
  5386. LDAPTimeout
  5387.     seconds
  5388.     Maximum entries to return:
  5389. LDAPMaxEntriesz
  5390. LDAPMaxEntries
  5391.     Search base:
  5392. LDAPSearchBasez
  5393. LDAPSearchBase
  5394.     Check names when sending mail:
  5395. LDAPCheckNames
  5396. Yes|1No|0
  5397. LDAPCheckNames
  5398. AccountProtocol
  5399.     0S0E
  5400. Choose No to delete mail after retrieval from the POP3 server.  Choose Yes for all mail to remain on the server.
  5401.     Leave mail on server:
  5402. PopDeleteMail
  5403. Yes|0No|1z
  5404. PopDeleteMail
  5405. AccountProtocol
  5406.     IMAP
  5407.     IMAP mode:
  5408. IMAPMode
  5409. Online/Interactive|1Offline|0
  5410. IMAPMode
  5411. AccountProtocol
  5412.     0S0E
  5413.     Internet Message Storage
  5414.     Internet message storage:
  5415. MessageStorage
  5416. Notes 4.x|0Native MIME or Notes|3
  5417. MessageStorage
  5418. Protocol Configuration
  5419.     Advanced
  5420.     Port number:
  5421. AccountPortNumber
  5422. You must specify a port number before saving this Account document.
  5423.     0S0E
  5424. AccountPortNumber
  5425. AccountPortNumber
  5426. SSLStatus
  5427.     0S0E
  5428. Choose Yes to accept certificates from an unknown certifying authority.
  5429. Choose No not to accept certificates from unknown certifying authorities.
  5430.     Accept SSL site certificates:
  5431. SSLSiteCerts
  5432. Yes|1No|0
  5433. SSLSiteCerts
  5434. Choose Yes to force SSL to accept remote certificates which have expired.
  5435. Choose No to enforce certificate expiration dates.
  5436.     Accept expired SSL certificates:
  5437. SSLExpiredCerts
  5438. Yes|1No|0z
  5439. SSLExpiredCerts
  5440.     Send SSL certificates when asked (outbound connections only):
  5441. SSLSendCertificates
  5442. Yes|1No|0
  5443.     Verify account server name with remote server's certificate:
  5444. SSLServerAuthenticate
  5445. Enabled|1Disabled|0
  5446. Choose the SSL protocol version that you want to connect with.  
  5447. V2.0 only - Uses SSL V2.0 handshake and protocol only
  5448. V3.0 handshake - Uses SSL V3.0 handshake and negotiated protocol
  5449. V3.0 only - Uses SSL V3.0 handshake and protocol only
  5450. V3.0 with V2.0 handshake - Uses SSL V2.0 handshake with negotiated protocol
  5451. Negotiated - allow SSL to determine handshake and protocol
  5452.     SSL protocol version:
  5453. SSLProtocolVersion
  5454. V2.0 only|1V3.0 handshake|2V3.0 only|3V3.0 with V2.0 handshake|4Negotiated|0z
  5455. SSLProtocolVersion
  5456. Advanced
  5457. Account
  5458. Typez
  5459. AccountAuthor
  5460. Categori_zeK
  5461. _Edit Account
  5462. Send Docu_ment
  5463. _Forward
  5464. _Move To Folder...
  5465. _Remove From FolderK
  5466. Open Proxy
  5467. AccountFileName
  5468. AccountFileName
  5469. AccountFileName
  5470.     0S0E
  5471. AccountProtocol
  5472. AccountFileName
  5473.     4S5S6S8S9S
  5474. Save 
  5475.     0S0E
  5476. Close
  5477.     0S0E
  5478. Categori_zeK
  5479. _Edit Account
  5480. Send Docu_ment
  5481. _Forward
  5482. _Move To Folder...
  5483. _Remove From FolderK
  5484. Open Proxy
  5485. AccountFileName
  5486. AccountFileName
  5487. AccountFileName
  5488.     0S0E
  5489. AccountProtocol
  5490. AccountFileName
  5491.     4S5S6S8S9S
  5492. Save 
  5493.     0S0E
  5494. Close
  5495.     0S0E
  5496. O=Lotus Notes
  5497. O=Lotus Notes
  5498. PURSAFO
  5499. |.:#U
  5500. O=Lotus Notes
  5501. CN=Lotus Notes Template Development/O=Lotus Notes
  5502. PURSAFO
  5503. !>tlm    
  5504. $HTMLDocumentStyles
  5505. $INFO
  5506. $Script
  5507. $$Script_O
  5508. $$ScriptName
  5509. $$FormScript
  5510. $$$FormScript_O
  5511. $$FormAction7
  5512. LDAPTimeout
  5513. LDAPMaxEntries
  5514. AccountPortNumber
  5515. $BODY
  5516. $V5ACTIONS
  5517. $ACTIONS
  5518. '++LotusScript Development Environment:2:5:(Options):0:66
  5519. Option Public
  5520. '++LotusScript Development Environment:2:5:(Forward):0:1
  5521. Declare Sub Initialize
  5522. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5523. '++LotusScript Development Environment:2:2:Initialize:1:10
  5524. Sub Initialize
  5525.     Set session = New NotesSession
  5526.     Set db = session.CurrentDatabase   
  5527.     Set ws = New NotesUIWorkspace
  5528.     Set profile=db.GetProfileDocument("DirectoryProfile") 
  5529.     Call profile.remove(True)
  5530. End Sub
  5531. Lotus Product
  5532. O=Lotus Notes
  5533. O=Lotus Notes
  5534. PURSAFO
  5535. |.:#U
  5536. O=Lotus Notes
  5537. CN=Lotus Notes Template Development/O=Lotus Notes
  5538. PURSAFO
  5539. $TITLE
  5540. $AssistType
  5541. $AssistLastRun
  5542. $AssistDocCount
  5543. $AssistFlags
  5544. $AssistTrigger
  5545. $AssistInfo
  5546. $AssistQuery
  5547. $AssistAction
  5548. $AssistAction_Ex
  5549. Categori_zeK
  5550. _Edit Document
  5551. Send Docu_ment
  5552. _Forward
  5553. _Move to Folder...
  5554. _Remove from Folder...
  5555. O=Lotus Notes
  5556. O=Lotus Notes
  5557. PURSAFO
  5558. |.:#U
  5559. O=Lotus Notes
  5560. CN=Lotus Notes Template Development/O=Lotus Notes
  5561. PURSAFO
  5562. r;FeL(
  5563. $TITLE
  5564. $Index
  5565. $Formula
  5566. $FormulaClass
  5567. $VIEWFORMAT
  5568. $Comment
  5569. $ACTIONS
  5570. '++LotusScript Development Environment:2:5:(Options):0:66
  5571. Option Public
  5572. '++LotusScript Development Environment:2:5:(Forward):0:1
  5573. Declare Sub Initialize
  5574. Declare Sub GetRLANList(note As notesdocument, vDriverList() As Variant, vDrivers() As Variant, vDisplayList() As Variant)
  5575. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5576. '++LotusScript Development Environment:2:2:Initialize:1:10
  5577. Sub Initialize
  5578. End Sub
  5579. '++LotusScript Development Environment:2:2:GetRLANList:1:8
  5580. Sub GetRLANList(note As notesdocument, vDriverList() As Variant, vDrivers() As Variant, vDisplayList() As Variant)
  5581.     Dim x As Integer
  5582.     Dim y As Integer
  5583.     Dim flag As String
  5584.     Dim db As NotesDatabase
  5585.     y = 0
  5586.     x = 0
  5587.     Set db = note.ParentDatabase
  5588.     'On Error Resume Next
  5589.     Forall Forms In db.Forms
  5590.         If Forms.IsSubForm Then
  5591.             If Left(Forms.Name, 5) = "$RLAN" Then
  5592.                 Redim Preserve vDriverList(x)
  5593.                 Redim Preserve vDrivers(x)
  5594.                 Redim Preserve vDisplayList(x)
  5595.                 Aliases = Forms.Aliases
  5596.                 vDriverList(x) = Aliases(0) & "|" & Aliases(1)
  5597.                 vDisplayList(x) = Aliases(0)
  5598.                 vDrivers(x)= Aliases(1)                    
  5599.                 x = x + 1
  5600.             End If     
  5601.         End If
  5602.     End Forall
  5603. '    For x = 0 To Ubound(vDriverlist)
  5604. '        Print vDriverList(x)
  5605. '    Next
  5606. End Sub
  5607. Lotus Product
  5608. OBJECT
  5609. O=Lotus Notes
  5610. O=Lotus Notes
  5611. PURSAFO
  5612. |.:#U
  5613. O=Lotus Notes
  5614. CN=Lotus Notes Template Development/O=Lotus Notes
  5615. PURSAFO
  5616. ]Nu]!y1U
  5617. $ScriptLib
  5618. $ScriptLib_O
  5619. $TITLE
  5620. $Flags
  5621. $PublicAccess
  5622.  $.' ",#
  5623. (7),01444
  5624. '9=82<.342
  5625. !22222222222222222222222222222222222222222222222222
  5626. v1dND
  5627. 4Vi4"8LpQ`
  5628. )I.#~
  5629. >/ejW
  5630. M+HSP
  5631. [#G-c
  5632. <@NaF
  5633. iJB]4
  5634. 0%SA$
  5635. *lDoh
  5636. uT$%&
  5637. %i@blNL
  5638. N5'y 
  5639. 2&bVHH
  5640. <)8S*b
  5641. ,31-Ju
  5642. F$+    (
  5643. q1r3?"(
  5644. >%0`|
  5645. rB+b\
  5646. YgO_h
  5647. |?B,&
  5648. hb[Ml*
  5649. (#AI7=#'
  5650. 1.H%E
  5651. z~"b^
  5652. (8ghf:
  5653. <pA/Cm7<h-Z
  5654. aML8iKw{
  5655. E/`u}#w
  5656. w17    [
  5657. Q5E4Ju
  5658. 5a@[KR
  5659. j}Of:
  5660. :5#R 
  5661. RS.II
  5662. '2^!Qk
  5663. IH4Hr
  5664. ?iRBg
  5665. DQ*JP
  5666. Q%    C$
  5667. %~I`J5,
  5668. ~  2T
  5669. ,+AIg
  5670. <t:Apj
  5671.  V/+g 
  5672. Y`a|D
  5673. -J5Q-
  5674. Q*mLD0YJ
  5675. P@lH 
  5676. f"    |!
  5677. O=Lotus Notes
  5678. O=Lotus Notes
  5679. PURSAFO
  5680. |.:#U
  5681. O=Lotus Notes
  5682. CN=Lotus Notes Template Development/O=Lotus Notes
  5683. PURSAFO
  5684. $ImagesWide
  5685. $ImagesHigh
  5686. $ImageData
  5687. $ImageNames
  5688. $TITLE
  5689. "Small Fonts
  5690.  ConversionOptions&
  5691.     0S0E
  5692. INTERNATIONAL MIME SETTINGS
  5693. Albanian|sq
  5694. Arabic|ar
  5695. Bulgarian|bg
  5696. Byelorussian|be
  5697. Catalan|ca
  5698. Croatian|gr
  5699. Czech|cs
  5700. Danish|da
  5701. Dutch|nl
  5702. English|en
  5703. Estonian|et
  5704. Finnish|fi
  5705. French|fr
  5706. German|de
  5707. Greek|el
  5708. Hebrew|he
  5709. Hungarian|hu
  5710. Italian|it
  5711. Japanese|ja
  5712. Korean|ko
  5713. Latvian|lv
  5714. Lithuanian|lt
  5715. Macedonian|mk
  5716. Norwegian|no
  5717. Polish|pl
  5718. Portuguese|pt
  5719. Romanian|ro
  5720. Russian|ru
  5721. Serbian|sr
  5722. Simplified Chinese|zh-CN
  5723. Slovak|sk
  5724. Slovenian|sl
  5725. Spanish|es
  5726. Swedish|sv
  5727. Thai|th
  5728. Traditional Chinese|zh-TW
  5729. Turkish|tr
  5730. Ukrainian|uk
  5731. Vietnamese|vi
  5732.     20R42R58R74R
  5733. LanguageListz
  5734. LanguageList
  5735. English|EN
  5736. Western Europe|WE
  5737. Central Europe|CE
  5738. Turkish|TR
  5739. Baltic Rim|BR
  5740. Greek|GR
  5741. Cyrillic|CY
  5742. Arabic|AR
  5743. Hebrew|HB
  5744. Japanese|JA
  5745. Korean|KO
  5746. Simpilified Chinese|SC
  5747. Traditional Chinese|TC
  5748. Thai|TH
  5749. Vietnamese|VT
  5750. Unicode|UN
  5751.     2R4R6R8R10R12R14R16R18R20R22R24R26R28R30RCharacterSetGroupsz
  5752. CharacterSetGroups
  5753. ar|AR
  5754. be|CY
  5755. bg|CY
  5756. ca|WE
  5757. cs|CE
  5758. da|WE
  5759. de|WE
  5760. el|GR
  5761. en|EN
  5762. es|WE
  5763. et|BR
  5764. fi|WE
  5765. fr|WE
  5766. gr|CE
  5767. he|HB
  5768. hu|CE
  5769. it|WE
  5770. ja|JA
  5771. ko|KO
  5772. lt|BR
  5773. lv|BR
  5774. mk|CY
  5775. nl|WE
  5776. no|WE
  5777. pl|CE
  5778. pt|WE
  5779. ro|CE
  5780. ru|CY
  5781. sk|CE
  5782. sl|CE
  5783. sq|CE
  5784. sr|CE
  5785. sv|WE
  5786. th|TH
  5787. tr|TR
  5788. uk|CY
  5789. vi|VT
  5790. zh-CN|SC
  5791. zh-TW|TC
  5792.     2RS4RS6RS8RS10RS12RS14RS16RS18RS20RS22RS24RS26RS28RS30RS32RS34RS36RS38RS40RS42RS44RS46RS48RS50RS52RS54RS56RS58RS60RS62RS64RS66RS68RS70RS72RS74RS76RS
  5793. LanguageToCharSet
  5794. LanguageToCharSet
  5795. -None-|
  5796.     0S0E
  5797. CharacterSets
  5798. CharacterSets
  5799.     0S0E
  5800. EncodingTypes
  5801. EncodingTypes
  5802. .,$,  , :
  5803. Default Serif|0
  5804. Default Sans Serif|1
  5805. Default Monospaced|4
  5806.     0S0E
  5807. FontList
  5808.     0S0E
  5809.     Basics
  5810. Select the locations where you want to use this connection. An asterisk ( * ) means all locations.
  5811.     Use these settings only for Location(s):
  5812. !#=P@
  5813. ConnectionLocationj
  5814. ConnectionLocation
  5815. ConnectionLocation
  5816.     0S0E
  5817. ConnectionLocationj
  5818. ConnectionLocationt
  5819. You have an * and at least one named location specified.  You can either enter multiple locations or use an * for all locations.{
  5820.     8S9S21SConnectionLocationSpecify the Location name you want this record to apply to.  * means all Locations.
  5821. NoCache
  5822. ($Locations)
  5823.     0S0E
  5824. ConnectionLocation
  5825.     Primary character set group:
  5826. !#=PP
  5827. CVS_PrimaryGroup
  5828. CharacterSetGroups
  5829.     Secondary character set groups:
  5830. !#=PP
  5831. .,$,  , :
  5832. CVS_SecondaryGroups
  5833. CharacterSetGroups
  5834. Basics
  5835. .,$,  , :
  5836. OutChoices
  5837. For outbound message options below use all possible choices (Advanced users)|1z
  5838. OutChoices
  5839.     MIME settings by character set group:
  5840. .,$,  , :
  5841. $OutboundSettings
  5842. CharacterSetGroups
  5843. OutboundSettings
  5844.     Settings for English
  5845.     Inbound Message Options
  5846.     Font Options
  5847.     Proportional:
  5848. .,$,  , :
  5849. CVSI_EN_F_P
  5850. FontList
  5851. CVSI_EN_F_P
  5852.     Mono-spaced:
  5853. .,$,  , :
  5854. CVSI_EN_F_M
  5855. FontList
  5856. CVSI_EN_F_M
  5857.     Size:
  5858. .,$,  , :
  5859. CVSI_EN_F_Size
  5860.     Outbound Message Options
  5861.     Character Set
  5862.     Encoding
  5863.     Header:
  5864. .,$,  , :
  5865.     18S20S
  5866. CVSO_EN_CS_H
  5867. OutChoices
  5868. CharacterSets
  5869.     0S0E
  5870. CVSO_EN_CS_H
  5871. .,$,  , :
  5872. CVSO_EN_ENC_H
  5873. EncodingTypes
  5874. CVSO_EN_ENC_H
  5875.     Body:
  5876. .,$,  , :
  5877.     18S20S
  5878. CVSO_EN_CS_B
  5879. OutChoices
  5880. CharacterSets
  5881.     0S0E
  5882. CVSO_EN_CS_B
  5883. .,$,  , :
  5884. CVSO_EN_ENC_B
  5885. EncodingTypes
  5886. CVSO_EN_ENC_B
  5887.     Settings for Western Europe
  5888.     Inbound Message Options
  5889.     Font Options
  5890.     Proportional:
  5891. CVSI_WE_F_P
  5892. FontList
  5893. CVSI_WE_F_P
  5894.     Mono-spaced:
  5895. CVSI_WE_F_M
  5896. FontList
  5897. CVSI_WE_F_M
  5898.     Size:
  5899. CVSI_WE_F_Size
  5900.     Outbound Message Options
  5901.     Character Set
  5902.     Encoding
  5903.     Header:
  5904. .,$,  , :
  5905.     18S20S
  5906. CVSO_WE_CS_H
  5907. OutChoices
  5908. CharacterSets
  5909.     0S0E
  5910. CVSO_WE_CS_H
  5911. CVSO_WE_ENC_H
  5912. EncodingTypes
  5913. CVSO_WE_ENC_H
  5914.     Body:
  5915. .,$,  , :
  5916.     18S20S
  5917. CVSO_WE_CS_B
  5918. OutChoices
  5919. CharacterSets
  5920.     0S0E
  5921. CVSO_WE_CS_B
  5922. CVSO_WE_ENC_B
  5923. EncodingTypes
  5924. CVSO_WE_ENC_B
  5925.     Settings for Central Europe
  5926.     Inbound Message Options
  5927.     Font Options
  5928.     Proportional:
  5929. CVSI_CE_F_P
  5930. FontList
  5931. CVSI_CE_F_P
  5932.     Mono-spaced:
  5933. CVSI_CE_F_M
  5934. FontList
  5935. CVSI_CE_F_M
  5936.     Size:
  5937. CVSI_CE_F_Size
  5938.     Outbound Message Options
  5939.     Character Set
  5940.     Encoding
  5941.     Header:
  5942. .,$,  , :
  5943.     18S20S
  5944. CVSO_CE_CS_H
  5945. OutChoices
  5946. CharacterSets
  5947.     0S0E
  5948. CVSO_CE_CS_H
  5949. CVSO_CE_ENC_H
  5950. EncodingTypes
  5951. CVSO_CE_ENC_H
  5952.     Body:
  5953. .,$,  , :
  5954.     18S20S
  5955. CVSO_CE_CS_B
  5956. OutChoices
  5957. CharacterSets
  5958.     0S0E
  5959. CVSO_CE_CS_B
  5960. CVSO_CE_ENC_B
  5961. EncodingTypes
  5962. CVSO_CE_ENC_B
  5963.     Settings for Turkish
  5964.     Inbound Message Options
  5965.     Font Options
  5966.     Proportional:
  5967. CVSI_TR_F_P
  5968. FontList
  5969. CVSI_TR_F_P
  5970.     Mono-spaced:
  5971. CVSI_TR_F_M
  5972. FontList
  5973. CVSI_TR_F_M
  5974.     Size:
  5975. CVSI_TR_F_Size
  5976.     Outbound Message Options
  5977.     Character Set
  5978.     Encoding
  5979.     Header:
  5980. .,$,  , :
  5981.     18S20S
  5982. CVSO_TR_CS_H
  5983. OutChoices
  5984. CharacterSets
  5985.     0S0E
  5986. CVSO_TR_CS_H
  5987. CVSO_TR_ENC_H
  5988. EncodingTypes
  5989. CVSO_TR_ENC_H
  5990.     Body:
  5991. .,$,  , :
  5992.     18S20S
  5993. CVSO_TR_CS_B
  5994. OutChoices
  5995. CharacterSets
  5996.     0S0E
  5997. CVSO_TR_CS_B
  5998. CVSO_TR_ENC_B
  5999. EncodingTypes
  6000. CVSO_TR_ENC_B
  6001.     Settings for Baltic Rim
  6002.     Inbound Message Options
  6003.     Font Options
  6004.     Proportional:
  6005. CVSI_BR_F_P
  6006. FontList
  6007. CVSI_BR_F_P
  6008.     Mono-spaced:
  6009. CVSI_BR_F_M
  6010. FontList
  6011. CVSI_BR_F_M
  6012.     Size:
  6013. CVSI_BR_F_Size
  6014.     Outbound Message Options
  6015.     Character Set
  6016.     Encoding
  6017.     Header:
  6018. .,$,  , :
  6019.     18S20S
  6020. CVSO_BR_CS_H
  6021. OutChoices
  6022. CharacterSets
  6023.     0S0E
  6024. CVSO_BR_CS_H
  6025. CVSO_BR_ENC_H
  6026. EncodingTypes
  6027. CVSO_BR_ENC_H
  6028.     Body:
  6029. .,$,  , :
  6030.     18S20S
  6031. CVSO_BR_CS_B
  6032. OutChoices
  6033. CharacterSets
  6034.     0S0E
  6035. CVSO_BR_CS_B
  6036. CVSO_BR_ENC_B
  6037. EncodingTypes
  6038. CVSO_BR_ENC_B
  6039.     Settings for Greek
  6040.     Inbound Message Options
  6041.     Font Options
  6042.     Proportional:
  6043. CVSI_GR_F_P
  6044. FontList
  6045. CVSI_GR_F_P
  6046.     Mono-spaced:
  6047. CVSI_GR_F_M
  6048. FontList
  6049. CVSI_GR_F_M
  6050.     Size:
  6051. CVSI_GR_F_Size
  6052.     Outbound Message Options
  6053.     Character Set
  6054.     Encoding
  6055.     Header:
  6056. .,$,  , :
  6057.     18S20S
  6058. CVSO_GR_CS_H
  6059. OutChoices
  6060. CharacterSets
  6061.     0S0E
  6062. CVSO_GR_CS_H
  6063. CVSO_GR_ENC_H
  6064. EncodingTypes
  6065. CVSO_GR_ENC_H
  6066.     Body:
  6067. .,$,  , :
  6068.     18S20S
  6069. CVSO_GR_CS_B
  6070. OutChoices
  6071. CharacterSets
  6072.     0S0E
  6073. CVSO_GR_CS_B
  6074. CVSO_GR_ENC_B
  6075. EncodingTypes
  6076. CVSO_GR_ENC_B
  6077.     Settings for Settings for Cyrillic
  6078.     Inbound Message Options
  6079.     Font Options
  6080.     Proportional:
  6081. CVSI_CY_F_P
  6082. FontList
  6083. CVSI_CY_F_P
  6084.     Mono-spaced:
  6085. CVSI_CY_F_M
  6086. FontList
  6087. CVSI_CY_F_M
  6088.     Size:
  6089. CVSI_CY_F_Size
  6090.     Outbound Message Options
  6091.     Character Set
  6092.     Encoding
  6093.     Header:
  6094. .,$,  , :
  6095.     18S20S
  6096. CVSO_CY_CS_H
  6097. OutChoices
  6098. CharacterSets
  6099.     0S0E
  6100. CVSO_CY_CS_H
  6101. CVSO_CY_ENC_H
  6102. EncodingTypes
  6103. CVSO_CY_ENC_H
  6104.     Body:
  6105. .,$,  , :
  6106.     18S20S
  6107. CVSO_CY_CS_B
  6108. OutChoices
  6109. CharacterSets
  6110.     0S0E
  6111. CVSO_CY_CS_B
  6112. CVSO_CY_ENC_B
  6113. EncodingTypes
  6114. CVSO_CY_ENC_B
  6115.     Settings for Arabic
  6116.     Inbound Message Options
  6117.     Font Options
  6118.     Proportional:
  6119. CVSI_AR_F_P
  6120. FontList
  6121. CVSI_AR_F_P
  6122.     Mono-spaced:
  6123. CVSI_AR_F_M
  6124. FontList
  6125. CVSI_AR_F_M
  6126.     Size:
  6127. CVSI_AR_F_Size
  6128.     Outbound Message Options
  6129.     Character Set
  6130.     Encoding
  6131.     Header:
  6132. .,$,  , :
  6133.     18S20S
  6134. CVSO_AR_CS_H
  6135. OutChoices
  6136. CharacterSets
  6137.     0S0E
  6138. CVSO_AR_CS_H
  6139. CVSO_AR_ENC_H
  6140. EncodingTypes
  6141. CVSO_AR_ENC_H
  6142.     Body:
  6143. .,$,  , :
  6144.     18S20S
  6145. CVSO_AR_CS_B
  6146. OutChoices
  6147. CharacterSets
  6148.     0S0E
  6149. CVSO_AR_CS_B
  6150. CVSO_AR_ENC_B
  6151. EncodingTypes
  6152. CVSO_AR_ENC_B
  6153.     Settings for Hebrew
  6154.     Inbound Message Options
  6155.     Font Options
  6156.     Proportional:
  6157. CVSI_HB_F_P
  6158. FontList
  6159. CVSI_HB_F_P
  6160.     Mono-spaced:
  6161. CVSI_HB_F_M
  6162. FontList
  6163. CVSI_HB_F_M
  6164.     Size:
  6165. CVSI_HB_F_Size
  6166.     Outbound Message Options
  6167.     Character Set
  6168.     Encoding
  6169.     Header:
  6170. .,$,  , :
  6171.     18S20S
  6172. CVSO_HB_CS_H
  6173. OutChoices
  6174. CharacterSets
  6175.     0S0E
  6176. CVSO_HB_CS_H
  6177. CVSO_HB_ENC_H
  6178. EncodingTypes
  6179. CVSO_HB_ENC_H
  6180.     Body:
  6181. .,$,  , :
  6182.     18S20S
  6183. CVSO_HB_CS_B
  6184. OutChoices
  6185. CharacterSets
  6186.     0S0E
  6187. CVSO_HB_CS_B
  6188. CVSO_HB_ENC_B
  6189. EncodingTypes
  6190. CVSO_HB_ENC_B
  6191.     Settings for Japanese
  6192.     Inbound Message Options
  6193.     Font Options
  6194.     Proportional:
  6195. CVSI_JA_F_P
  6196. FontList
  6197. CVSI_JA_F_P
  6198.     Mono-spaced:
  6199. CVSI_JA_F_M
  6200. FontList
  6201. CVSI_JA_F_M
  6202.     Size:
  6203. CVSI_JA_F_Size
  6204.     Outbound Message Options
  6205.     Character Set
  6206.     Encoding
  6207.     Header:
  6208. .,$,  , :
  6209.     18S20S
  6210. CVSO_JA_CS_H
  6211. OutChoices
  6212. CharacterSets
  6213.     0S0E
  6214. CVSO_JA_CS_H
  6215. CVSO_JA_ENC_H
  6216. EncodingTypes
  6217. CVSO_JA_ENC_H
  6218.     Body:
  6219. .,$,  , :
  6220.     18S20S
  6221. CVSO_JA_CS_B
  6222. OutChoices
  6223. CharacterSets
  6224.     0S0E
  6225. CVSO_JA_CS_B
  6226. CVSO_JA_ENC_B
  6227. EncodingTypes
  6228. CVSO_JA_ENC_B
  6229.     Settings for Korean
  6230.     Inbound Message Options
  6231.     Font Options
  6232.     Proportional:
  6233. CVSI_KO_F_P
  6234. FontList
  6235. CVSI_KO_F_P
  6236.     Mono-spaced:
  6237. CVSI_KO_F_M
  6238. FontList
  6239. CVSI_KO_F_M
  6240.     Size:
  6241. CVSI_KO_F_Size
  6242.     Outbound Message Options
  6243.     Character Set
  6244.     Encoding
  6245.     Header:
  6246. .,$,  , :
  6247.     18S20S
  6248. CVSO_KO_CS_H
  6249. OutChoices
  6250. CharacterSets
  6251.     0S0E
  6252. CVSO_KO_CS_H
  6253. CVSO_KO_ENC_H
  6254. EncodingTypes
  6255. CVSO_KO_ENC_H
  6256.     Body:
  6257. .,$,  , :
  6258.     18S20S
  6259. CVSO_KO_CS_B
  6260. OutChoices
  6261. CharacterSets
  6262.     0S0E
  6263. CVSO_KO_CS_B
  6264. CVSO_KO_ENC_B
  6265. EncodingTypes
  6266. CVSO_KO_ENC_B
  6267.     Settings for Simplified Chinese
  6268.     Inbound Message Options
  6269.     Font Options
  6270.     Proportional:
  6271. CVSI_SC_F_P
  6272. FontList
  6273. CVSI_SC_F_P
  6274.     Mono-spaced:
  6275. CVSI_SC_F_M
  6276. FontList
  6277. CVSI_SC_F_M
  6278.     Size:
  6279. CVSI_SC_F_Size
  6280.     Outbound Message Options
  6281.     Character Set
  6282.     Encoding
  6283.     Header:
  6284. .,$,  , :
  6285.     18S20S
  6286. CVSO_SC_CS_H
  6287. OutChoices
  6288. CharacterSets
  6289.     0S0E
  6290. CVSO_SC_CS_H
  6291. CVSO_SC_ENC_H
  6292. EncodingTypes
  6293. CVSO_SC_ENC_H
  6294.     Body:
  6295. .,$,  , :
  6296.     18S20S
  6297. CVSO_SC_CS_B
  6298. OutChoices
  6299. CharacterSets
  6300.     0S0E
  6301. CVSO_SC_CS_B
  6302. CVSO_SC_ENC_B
  6303. EncodingTypes
  6304. CVSO_SC_ENC_B
  6305.     Settings for Traditional Chinese
  6306.     Inbound Message Options
  6307.     Font Options
  6308.     Proportional:
  6309. CVSI_TC_F_P
  6310. FontList
  6311. CVSI_TC_F_P
  6312.     Mono-spaced:
  6313. CVSI_TC_F_M
  6314. FontList
  6315. CVSI_TC_F_M
  6316.     Size:
  6317. CVSI_TC_F_Size
  6318.     Outbound Message Options
  6319.     Character Set
  6320.     Encoding
  6321.     Header:
  6322. .,$,  , :
  6323.     18S20S
  6324. CVSO_TC_CS_H
  6325. OutChoices
  6326. CharacterSets
  6327.     0S0E
  6328. CVSO_TC_CS_H
  6329. CVSO_TC_ENC_H
  6330. EncodingTypes
  6331. CVSO_TC_ENC_H
  6332.     Body:
  6333. .,$,  , :
  6334.     18S20S
  6335. CVSO_TC_CS_B
  6336. OutChoices
  6337. CharacterSets
  6338.     0S0E
  6339. CVSO_TC_CS_B
  6340. CVSO_TC_ENC_B
  6341. EncodingTypes
  6342. CVSO_TC_ENC_B
  6343.     Settings for Thai
  6344.     Inbound Message Options
  6345.     Font Options
  6346.     Proportional:
  6347. CVSI_TH_F_P
  6348. FontList
  6349. CVSI_TH_F_P
  6350.     Mono-spaced:
  6351. CVSI_TH_F_M
  6352. FontList
  6353. CVSI_TH_F_M
  6354.     Size:
  6355. CVSI_TH_F_Size
  6356.     Outbound Message Options
  6357.     Character Set
  6358.     Encoding
  6359.     Header:
  6360. .,$,  , :
  6361.     18S20S
  6362. CVSO_TH_CS_H
  6363. OutChoices
  6364. CharacterSets
  6365.     0S0E
  6366. CVSO_TH_CS_H
  6367. CVSO_TH_ENC_H
  6368. EncodingTypes
  6369. CVSO_TH_ENC_H
  6370.     Body:
  6371. .,$,  , :
  6372.     18S20S
  6373. CVSO_TH_CS_B
  6374. OutChoices
  6375. CharacterSets
  6376.     0S0E
  6377. CVSO_TH_CS_B
  6378. CVSO_TH_ENC_B
  6379. EncodingTypes
  6380. CVSO_TH_ENC_B
  6381.     Settings for Vietnamese
  6382.     Inbound Message Options
  6383.     Font Options
  6384.     Proportional:
  6385. CVSI_VT_F_P
  6386. FontList
  6387. CVSI_VT_F_P
  6388.     Mono-spaced:
  6389. CVSI_VT_F_M
  6390. FontList
  6391. CVSI_VT_F_M
  6392.     Size:
  6393. CVSI_VT_F_Size
  6394.     Outbound Message Options
  6395.     Character Set
  6396.     Encoding
  6397.     Header:
  6398. .,$,  , :
  6399.     18S20S
  6400. CVSO_VT_CS_H
  6401. OutChoices
  6402. CharacterSets
  6403.     0S0E
  6404. CVSO_VT_CS_H
  6405. CVSO_VT_ENC_H
  6406. EncodingTypes
  6407. CVSO_VT_ENC_H
  6408.     Body:
  6409. .,$,  , :
  6410.     18S20S
  6411. CVSO_VT_CS_B
  6412. OutChoices
  6413. CharacterSets
  6414.     0S0E
  6415. CVSO_VT_CS_B
  6416. CVSO_VT_ENC_B
  6417. EncodingTypes
  6418. CVSO_VT_ENC_B
  6419.     Settings for Unicode
  6420.     Inbound Message Options
  6421.     Font Options
  6422.     Proportional:
  6423. CVSI_UN_F_P
  6424. FontList
  6425. CVSI_UN_F_P
  6426.     Mono-spaced:
  6427. CVSI_UN_F_M
  6428. FontList
  6429. CVSI_UN_F_M
  6430.     Size:
  6431. CVSI_UN_F_Size
  6432.     Outbound Message Options
  6433.     Character Set
  6434.     Encoding
  6435.     Header:
  6436. .,$,  , :
  6437.     18S20S
  6438. CVSO_UN_CS_H
  6439. OutChoices
  6440. CharacterSets
  6441.     0S0E
  6442. CVSO_UN_CS_H
  6443. CVSO_UN_ENC_H
  6444. EncodingTypes
  6445. CVSO_UN_ENC_H
  6446.     Body:
  6447. .,$,  , :
  6448.     18S20S
  6449. CVSO_UN_CS_B
  6450. OutChoices
  6451. CharacterSets
  6452.     0S0E
  6453. CVSO_UN_CS_B
  6454. CVSO_UN_ENC_B
  6455. EncodingTypes
  6456. CVSO_UN_ENC_B
  6457. Settings by Character Set
  6458.     Advanced Inbound Message Options
  6459.     For non-MIME messages or MIME messages with an unknown character set, 8-bit character set is assumed to be:
  6460. CVSI_NonMIMECharSet
  6461. CharacterSets
  6462. CVSI_NonMIMECharSet
  6463.     Character set name aliases
  6464. CVSI_CharsetAlias1z
  6465. CVSI_CharsetAlias1
  6466.     maps to
  6467. CVSI_CharsetActual1
  6468. CharacterSets
  6469. CVSI_CharsetActual1
  6470. CVSI_CharsetActual1
  6471.     3S4S
  6472. CVSI_CharsetAlias2z
  6473. CVSI_CharsetAlias2
  6474.     maps to
  6475. CVSI_CharsetActual2
  6476. CharacterSets
  6477. CVSI_CharsetActual2
  6478. CVSI_CharsetActual2
  6479.     3S4S
  6480. CVSI_CharsetAlias3z
  6481. CVSI_CharsetAlias3
  6482.     maps to
  6483. CVSI_CharsetActual3
  6484. CharacterSets
  6485. CVSI_CharsetActual3
  6486. CVSI_CharsetActual3
  6487.     3S4S
  6488. CVSI_CharsetAlias4z
  6489. CVSI_CharsetAlias4
  6490.     maps to
  6491. CVSI_CharsetActual4
  6492. CharacterSets
  6493. CVSI_CharsetActual4
  6494. CVSI_CharsetActual4
  6495.     0S0E
  6496. CVSI_CharsetAlias5z
  6497. CVSI_CharsetAlias5
  6498.     maps to
  6499. CVSI_CharsetActual5
  6500. CharacterSets
  6501. CVSI_CharsetActual5
  6502. Advanced Inbound Message Options
  6503.     Advanced Outbound Message Options
  6504.     When a Notes user sends a multi-lingual message:
  6505. CVS_MLMessageHandling
  6506. Send it in Unicode (UTF8)|1Send it in most representable charset|2Send it in MHTML with unicode entities|3Refuse sending|4
  6507. CVS_MLMessageHandling
  6508.     Character set name aliases
  6509. CVSO_CharsetActual1
  6510. CharacterSets
  6511.      maps to 
  6512. CVSO_CharsetAlias1
  6513. CVSO_CharsetActual1
  6514.     3S4S
  6515. CVSO_CharsetActual2
  6516. CharacterSets
  6517. CVSO_CharsetActual1
  6518.     0S0E
  6519.      maps to 
  6520. CVSO_CharsetAlias2
  6521. CVSO_CharsetActual2
  6522.     3S4S
  6523. CVSO_CharsetActual3
  6524. CharacterSets
  6525.      maps to 
  6526. CVSO_CharsetAlias3
  6527. CVSO_CharsetActual3
  6528.     3S4S
  6529. CVSO_CharsetActual4
  6530. CharacterSets
  6531.      maps to 
  6532. CVSO_CharsetAlias4
  6533. CVSO_CharsetActual4
  6534.     3S4S
  6535. CVSO_CharsetActual5
  6536. CharacterSets
  6537.      maps to 
  6538. CVSO_CharsetAlias5
  6539. CVSO_CharsetActual5
  6540.     3S4S
  6541. CVSO_CharsetActual6
  6542. CharacterSets
  6543.      maps to 
  6544. CVSO_CharsetAlias6
  6545. CVSO_CharsetActual6
  6546.     3S4S
  6547. CVSO_CharsetActual7
  6548. CharacterSets
  6549.      maps to 
  6550. CVSO_CharsetAlias7
  6551. CVSO_CharsetActual7
  6552.     3S4S
  6553. CVSO_CharsetActual8
  6554. CharacterSets
  6555.      maps to 
  6556. CVSO_CharsetAlias8
  6557. CVSO_CharsetActual8
  6558.     3S4S
  6559. CVSO_CharsetActual9
  6560. CharacterSets
  6561.      maps to 
  6562. CVSO_CharsetAlias9
  6563. CVSO_CharsetActual9
  6564.     0S0E
  6565. CVSO_CharsetActual10
  6566. CharacterSets
  6567.      maps to 
  6568. CVSO_CharsetAlias10
  6569. Advanced Outbound Message Options
  6570. Advanced
  6571. International MIME Settings
  6572. ConversionOptions
  6573. Typez
  6574. O=Lotus Notes
  6575. O=Lotus Notes
  6576. PURSAFO
  6577. |.:#U
  6578. O=Lotus Notes
  6579. CN=Lotus Notes Template Development/O=Lotus Notes
  6580. PURSAFO
  6581. $INFO
  6582. $$ScriptName
  6583. $$FormAction7
  6584. CVSI_EN_F_Size
  6585. CVSI_WE_F_Size
  6586. CVSI_CE_F_Size
  6587. CVSI_TR_F_Size
  6588. CVSI_BR_F_Size
  6589. CVSI_GR_F_Size
  6590. CVSI_CY_F_Size
  6591. CVSI_AR_F_Size
  6592. CVSI_HB_F_Size
  6593. CVSI_JA_F_Size
  6594. CVSI_KO_F_Size
  6595. CVSI_SC_F_Size
  6596. CVSI_TC_F_Size
  6597. CVSI_TH_F_Size
  6598. CVSI_VT_F_Size
  6599. CVSI_UN_F_Size
  6600. $BODY
  6601. '++LotusScript Development Environment:2:5:(Options):0:74
  6602. Option Public
  6603. Option Declare
  6604. Use "Wizard"
  6605. Use "RLANRoutines"
  6606. '++LotusScript Development Environment:2:5:(Forward):0:1
  6607. Declare Class ConnectionWizard As Wizard
  6608. Declare Function RepeatedConnectionID(Destination As Variant, LocationName As String)  As String
  6609. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6610. Dim wiz As Wizard
  6611. Class ConnectionWizard As Wizard
  6612.     Sub new( uidoc As NotesUIdocument, tableName As String, firstPanel As String)
  6613.     End Sub
  6614.     Function processNext( note As NotesDocument, currentPanel As String) As String
  6615.         If currentPanel="a" Then
  6616.             processNext="b"
  6617.         Elseif currentPanel = "b" And note.getItemValue( "LocationType")(0) <> "4" Then
  6618.             processNext = "c"
  6619.             If note.getItemValue( "DunEntries")(0) = "" Then
  6620.                 Messagebox "You need to select Dialup Networking entry"
  6621.                 Error WIZ_PROCESS_NEXT_ERROR
  6622.             End If
  6623.         Elseif currentPanel = "c" And note.getItemValue( "AccessLAN")(0) = "0" Then
  6624.             processNext = "d"
  6625.         Else
  6626.             If note.getItemValue( "DunEntries")(0) = "" Then
  6627.                 Messagebox "You need to select Dialup Networking entry "
  6628.                 Error WIZ_PROCESS_NEXT_ERROR
  6629.             End If
  6630.             activateNextButton False
  6631.             processNext = "e"
  6632. 'to pull phone number(s) for selected DUN entry            
  6633.             Dim vListEntry As Variant
  6634.             Dim vphone As Variant
  6635.             Dim ws As New NotesUIWorkspace
  6636.             vlistEntry=note.GetitemValue("DUNEntries")
  6637.             If Len(vListEntry(0))<>0 Then            
  6638.                 vphone = ws.Get_DialEntry_Info("RAS", vListEntry(0))
  6639.                 Call note.replaceitemvalue("tmpPhoneNumber", vphone(0))
  6640.                 Call note.replaceitemvalue("tmpAreaCode", vphone(1))
  6641.                 Call note.replaceitemvalue("tmpCountryCode", vphone(2))
  6642.             End If            
  6643.         End If
  6644.     End Function
  6645.     Function processComplete( note As Notesdocument, currentPanel As String) As Integer
  6646.         On Error  Goto errhandle
  6647.         Dim w As New NotesUIWorkspace
  6648.         Dim s As New NotesSession
  6649.         Dim db As NotesDatabase
  6650.         Dim  doc As NotesDocument
  6651.         Dim  newdoc As NotesDocument
  6652.         Dim ItemtmpDefaultPassthruServerName As NotesItem
  6653.         Dim ItemDominoOrganizationName As NotesItem
  6654.         Dim ItemPassthruServerHostName As NotesItem
  6655.         Dim ItemLocationName As NotesItem
  6656.         Dim ItemLocationType As NotesItem
  6657.         Dim ItemtmpPhoneNumber As NotesItem
  6658.         Dim ItemtmpAreaCode As NotesItem
  6659.         Dim ItemtmpCountryCode As NotesItem
  6660.         Dim ItemtmpLoginName As NotesItem
  6661.         Dim ItemtmpPassword As NotesItem
  6662.         Dim ItemDUNEntries As NotesItem
  6663.         Dim ItemServiceType As NotesItem
  6664.         Dim ItemPortInternet As NotesItem
  6665.         Dim ItemPortsRAS As NotesItem
  6666.         Dim success As Variant
  6667.         Dim vDriverList() As Variant
  6668.         Dim vDrivers() As Variant
  6669.         Dim vDisplayList() As Variant
  6670.         Set db=s.CurrentDatabase
  6671.         Set doc=note
  6672.             ' get items from a dialog box
  6673.         Set ItemtmpDefaultPassthruServerName=doc.GetFirstItem("DefaultPassthruServer") 
  6674.         Set ItemDominoOrganizationName=doc.GetFirstItem("DominoOrganizationName") 
  6675.         Set ItemPassthruServerHostName=doc.GetFirstItem("PassthruServerHostName") 
  6676.         Set ItemtmpAreaCode=doc.GetFirstitem("tmpAreaCode")
  6677.         Set ItemtmpCountryCode=doc.GetFirstitem("tmpCountryCode")
  6678.         Set ItemtmpPhoneNumber=doc.GetFirstitem("tmpPhoneNumber")
  6679.         If Len(itemtmpPhoneNumber.Text)=0 Then
  6680.             Msgbox "You need to enter phone number"
  6681.             Exit Function
  6682.         End If
  6683.         Set ItemtmpLoginName=doc.GetFirstitem("tmpLoginName")
  6684.         Set ItemtmpPassword=doc.GetFirstitem("tmpPassword")
  6685.         Set ItemDUNEntries=doc.GetFirstItem("DUNEntries")
  6686.         Set ItemServiceType=doc.GetFirstItem("ServiceType")
  6687.         Set ItemPortsRAS=doc.GetFirstItem("PortsRAS")
  6688.         Set ItemPortInternet=doc.GetFirstItem("PortInternet")        
  6689.         Set ItemLocationType=doc.GetFirstItem("LocationType")
  6690.         Set ItemLocationName=doc.GetFirstItem("Name")
  6691. '    check if Location Type is Internet Dialup(5)  or Remote Access Server Dialup (4)  and create RAS connection document
  6692.         If (ItemLocationType.text="5" Or  ItemLocationType.text="4") Then
  6693.             Set newdoc=New NotesDocument(db)
  6694.             Call newdoc.ReplaceItemValue("Form","Connection")
  6695.             Call newdoc.ReplaceItemValue("ConnectionType","5")
  6696.             Call newdoc.ReplaceItemValue("ConnectionRecordFirst","1")
  6697.             Call newdoc.ReplaceItemValue("Destination","*")
  6698.             Call newdoc.ReplaceitemValue("RLANItems", 6)
  6699.             Call GetRLANList(newdoc, vDriverList, vDrivers, vDisplayList)
  6700.             Call newdoc.ReplaceItemValue("DisplayDriverList", vDriverList)
  6701. 'based on LocationType, select port(s) to use for LanPortName field on server connection doc            
  6702.             If ItemLocationType.text="5" Then
  6703.                 Call itemPortInternet.CopyItemToDocument(newdoc, "LanPortName")
  6704.             Else 
  6705.                 Call itemPortsRAS.CopyItemToDocument(newdoc, "LanPortName")
  6706.             End If            
  6707.             Call ItemDUNEntries.CopyItemToDocument(newdoc,"RLANTag")  
  6708.             Call newdoc.ReplaceItemValue("RLAN3",  ItemtmpPhoneNumber.Text)
  6709.             Call newdoc.ReplaceItemValue("RLAN4", ItemtmpAreaCode.Text)
  6710.             Call newdoc.ReplaceItemValue("RLAN5", ItemtmpCountryCode.Text)
  6711.             Call ItemtmpLoginName.CopyItemToDocument(newdoc,"RLAN1")  
  6712.             Call ItemtmpPassword.CopyItemToDocument(newdoc,"RLAN2")  
  6713.             Call ItemPassthruServerHostName.CopyItemToDocument(newdoc,"OptionalNetworkAddress")  
  6714.             Call ItemServiceType.CopyItemToDocument(newdoc,"RemoteLanService")
  6715.             Call ItemLocationName.CopyItemToDocument(newdoc,"ConnectionLocation")  
  6716. 'set values for StaticTag field
  6717.             If ItemServiceType.Text="RAS" Then
  6718.                 Call newdoc.ReplaceItemValue("StaticTag", "RAS$%^Remote connection name:")
  6719.             Else 
  6720.                 Call newdoc.ReplaceItemValue("StaticTag", "ARA$%^Connection document location:")
  6721.             End If
  6722.             'Check for repeated connection when creating RAS connection
  6723.             Dim answer As Integer
  6724.             Dim docID As String
  6725.             docID=RepeatedConnectionID("*", ItemLocationName.Text)
  6726.             If docID<>"not found" Then 
  6727.                 answer=    w.Prompt(prompt_yesno, "Repeated connection", "Configuration already exists. Do you want to overwrite it?")
  6728.                 If answer =0 Then
  6729.                     Call uidoc.Close
  6730.                     Exit Function
  6731.                 Else
  6732. 'To overwrite existing we will save newdoc and  we can delete existing
  6733.                     Dim doctodelete As NotesDocument            
  6734.                     Set doctodelete=    db.GetDocumentByID(docID)
  6735.                     Call doctodelete.Remove(True)
  6736.                 End If    
  6737.             End If    
  6738.         'end check for multiple connections
  6739.             success= newdoc.ComputeWithForm(False, False) 
  6740.             If success Then
  6741.                 Call newdoc.save(True, True)
  6742.             Else
  6743.                 Msgbox("Warning: There are Input translation/validation issues creating RAS connection")  
  6744.             End If
  6745. 'end create RAS connection
  6746.         End If 
  6747. 'check if Location Type is Internet Dialup (5), check if  Passthru server name is entered  and then create Passthru connection
  6748.         If (ItemLocationType.text="5") Then
  6749.             If Len(ItemtmpDefaultPassthruServerName.Text) = 0 Then
  6750.                 Msgbox "Please enter name for Passthru server"
  6751.             Else 
  6752.                 Set newdoc=New NotesDocument(db) 
  6753.                 If newdoc Is Nothing Then Msgbox "No Document"
  6754.                 Call newdoc.ReplaceItemValue("Form","Connection")
  6755.                 Call newdoc.ReplaceItemValue("ConnectionType","2")
  6756.                 Call newdoc.ReplaceItemValue("ConnectionRecordFirst","1")
  6757.                 Call newdoc.ReplaceItemValue("Destination", "*/"+ItemDominoOrganizationName.Text)
  6758.                 Call ItemLocationName.CopyItemToDocument(newdoc,"ConnectionLocation")
  6759.                 Call ItemtmpDefaultPassthruServerName.CopyItemToDocument(newdoc,"PassthruServer")  
  6760.                 success= newdoc.ComputeWithForm(False, False) 
  6761.                 If success Then
  6762.                     Call newdoc.save(True, True)
  6763.                 Else
  6764.                     Msgbox("Warning: There are Input translation/validation issues creating Passthru connection")  
  6765.                 End If
  6766.             End If
  6767.         End If
  6768. 'end create Passthru connection
  6769.         processComplete = True
  6770.         Msgbox "Notes has configured connection(s) for this location."
  6771.         Exit Function
  6772. errhandle:
  6773.         Messagebox "Err (" & Err & "): " & Error$    
  6774.     End Function
  6775. End Class
  6776. '++LotusScript Development Environment:2:1:RepeatedConnectionID:1:8
  6777. Function RepeatedConnectionID(Destination As Variant, LocationName As String)  As String
  6778.     Dim s As New NotesSession    
  6779.     Dim w As New NotesUIWorkspace
  6780.     Dim db As NotesDatabase
  6781.     Dim key(0) As String
  6782.     Dim view As NotesView
  6783.     Dim uidoc As NotesUIdocument
  6784.     Dim doc As NotesDocument
  6785.     Dim doc2 As NotesDocument
  6786.     Dim helpdoc As NotesDocument
  6787.     Dim connectiontype As String
  6788.     Dim locationtype As String
  6789.     Dim done As Integer
  6790.     RepeatedConnectionID="not found"
  6791.     Set db=s.CurrentDatabase
  6792.     Set uidoc=w.CurrentDocument
  6793.     Set doc=uidoc.Document
  6794.     Set view=db.GetView("($Connections)")
  6795.     done=False    
  6796.     key(0)=s.Username
  6797.     Set doc2=view.GetDocumentByKey(key,False)
  6798.     If doc2 Is Nothing Then Exit Function
  6799.     While Not done 
  6800.         If destination=doc2.ColumnValues(2) Then
  6801.             If doc2.ColumnValues(0)=key(0) Then 
  6802.                 If  doc2.ColumnValues(24)="*"Or locationname=doc2.ColumnValues(24) Then
  6803.                     RepeatedConnectionID=doc2.NoteID
  6804.                     Exit Function
  6805.                 End If
  6806.             End If
  6807.         End If
  6808.         Set helpdoc=doc2
  6809.         Set doc2=view.GetNextDocument(helpdoc)
  6810.         If doc2 Is Nothing Then Exit Function
  6811.         If doc2.ColumnValues(0)<>key(0) Then done=True
  6812.     Wend
  6813. End Function
  6814. Lotus Product
  6815. OBJECT
  6816. ^$    K<
  6817. ^4    K<
  6818. ^D    K<
  6819. ^t    K<
  6820. Kt    -4
  6821. ^d    K<
  6822. ^T    K<
  6823. Kd    -4
  6824. Kd    -4
  6825. Kd    -4
  6826. Kt    -4
  6827. KD    ,X
  6828. KT    ,X
  6829. KT    -4
  6830. Kd    -4
  6831. K$    -4
  6832. K4    -4
  6833. KT    ,X
  6834. K$    ,X
  6835. ($Internet/RAS Dialup Wizard)'++LotusScript Development Environment:2:5:(Options):0:74
  6836. Option Declare
  6837. '++LotusScript Development Environment:2:5:(Forward):0:1
  6838. Declare Sub Postopen(Source As Notesuidocument)
  6839. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6840. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6841. Declare Sub Postrecalc(Source As Notesuidocument)
  6842. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6843. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6844. Private Sub BindEvents(Byval Objectname_ As String)
  6845.     Static Source As NOTESUIDOCUMENT
  6846.     Set Source = Bind(Objectname_)
  6847.     On Event Postopen From Source Call Postopen
  6848.     On Event Queryopen From Source Call Queryopen
  6849.     On Event Queryclose From Source Call Queryclose
  6850.     On Event Postrecalc From Source Call Postrecalc
  6851. End Sub
  6852. '++LotusScript Development Environment:2:2:Postopen:1:12
  6853. Sub Postopen(Source As Notesuidocument)
  6854.     Dim ws As New notesuiworkspace    
  6855.     Dim doc As NotesDocument
  6856.     Dim x As Long
  6857.     Dim Drivers() As Variant
  6858.     Dim DriverList() As Variant
  6859.     Dim DisplayList() As Variant
  6860.     Dim port As Variant
  6861.     Set doc = source.document
  6862.     On Error  Goto errhandle
  6863. 'get values for DispalyDriverList  which is used in keyword ServiceType fieled
  6864.     Call GetRLANList(doc, DriverList, Drivers, DisplayList)
  6865.     doc.DisplayDriverList =  DriverList
  6866.     doc.OriginalService = doc.ServiceType
  6867.     Exit Sub
  6868. errhandle:
  6869.     Messagebox "Err (" & Err & "): " & Error$    
  6870.     Exit Sub
  6871. End Sub
  6872. '++LotusScript Development Environment:2:2:Queryopen:1:12
  6873. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6874.     Dim firstPanel As String
  6875.     Dim ws As New NotesUIWorkspace        
  6876.     Dim vList As Variant
  6877.     Dim doc As NotesDocument
  6878. 'Make sure to pass to first panel you want displayed
  6879.     firstPanel = "a"
  6880.     On Error  Goto errhandle
  6881.     Set wiz = New ConnectionWizard( source, "Wiz", "a")
  6882.     'to populate DUNList which used for DUNEntries choices
  6883.     Set doc = source.document
  6884.     vList = ws.Get_DialEntry_List("RAS")    
  6885.     Call doc.replaceitemvalue("DUNList",vList)    
  6886.     Exit Sub
  6887. errhandle:
  6888.     Messagebox "Err (" & Err & "): " & Error$    
  6889.     Exit Sub
  6890. End Sub
  6891. '++LotusScript Development Environment:2:2:Queryclose:1:12
  6892. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6893. End Sub
  6894. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  6895. Sub Postrecalc(Source As Notesuidocument)
  6896. End Sub
  6897. Lotus Product
  6898. OBJECT
  6899. OriginalService
  6900. OriginalService
  6901. DisplayDriverList
  6902. DisplayDriverList
  6903. Windows
  6904. Macintosh
  6905.     9S11S18S20SServiceType
  6906. DisplayDriverList
  6907. connection.gif
  6908. LocationType
  6909.     0S0E
  6910. Using Network Dialup
  6911. This configures Notes to use Microsoft Dial-Up Networking to first connect to a Dial-Up Networking server on the Local Area Network and then a Domino server using standard network protocols. This configuration will cause all connections to Domino servers to use the same Network Dialup connection.
  6912. LocationType
  6913.     0S0E
  6914. Using Internet Dialup
  6915. This configures Notes to use Microsoft Dial-Up Networking via the Internet to connect a Domino server. If you have a Microsoft Dial-Up Networking connection already setup to connect to the Internet, you can use the same one.This configuration will cause all connections to Domino servers to be via the Internet.
  6916. If some Domino servers must be accessed by other means, use a location type of 'Custom' and create connection document for the type of connection needed.
  6917.     Choose a phonebook entry name from the following list or click the button to create a new one:
  6918. DUNEntries
  6919. DUNList
  6920.                     
  6921.                                                                                       
  6922. '++LotusScript Development Environment:2:5:(Options):0:66
  6923. '++LotusScript Development Environment:2:5:(Forward):0:1
  6924. Declare Sub Click(Source As Button)
  6925. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6926. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6927. Private Sub BindEvents(Byval Objectname_ As String)
  6928.     Static Source As BUTTON
  6929.     Set Source = Bind(Objectname_)
  6930.     On Event Click From Source Call Click
  6931. End Sub
  6932. '++LotusScript Development Environment:2:2:Click:1:12
  6933. Sub Click(Source As Button)
  6934.     Dim ws As New NotesUIWorkspace    
  6935.     Dim vList As Variant
  6936.     Dim vphone As Variant
  6937.     Dim doc As NotesDocument
  6938.     Set uidoc=ws.CurrentDocument    
  6939.     Set doc = uidoc.document
  6940.     Call ws.Create_DialEntry_Dialog("RAS")
  6941.     'to update DUNEnties,  including and  highlighting  just created entry
  6942.     vList = ws.Get_DialEntry_List("RAS")    
  6943.     Call doc.replaceitemvalue("DUNList",vList)
  6944.     Call uidoc.Refresh
  6945.     Call doc.replaceitemvalue("DUNEntries", vList(Ubound(vList)))
  6946. 'to pull phone number for new entry
  6947.     vphone = ws.Get_DialEntry_Info("RAS", vList(Ubound(vList)))
  6948.     Call doc.replaceitemvalue("tmpPhoneNumber", vphone(0))
  6949.     Call doc.replaceitemvalue("tmpAreaCode", vphone(1))
  6950.     Call doc.replaceitemvalue("tmpCountryCode", vphone(2))
  6951. '    Call uidoc.Refresh
  6952. End Sub
  6953. Lotus Product
  6954. OBJECT
  6955. New Button
  6956. Need a newer version of Notes to execute this button.
  6957.     0S0E
  6958.     Create new...
  6959.     Can you access your company's local area network via passthru server on the Internet?
  6960.     If you don't know, ask your system administrator.
  6961. AccessLAN
  6962. Yes|0No|1
  6963.     Passthru server name
  6964. DefaultPassthruServer
  6965. DefaultPassthruServer
  6966.     Company's organization name used for Notes IDs
  6967. DominoOrganizationName
  6968.     Hostname or IP address of the passthru server
  6969. PassthruServerHostName
  6970.     Make sure the following information is correct. You can type in any necessary changes. Supply the login name and password you  use to log into the network you are connecting to.
  6971.     Service type
  6972. ServiceType
  6973. Microsoft Dial-Up Networking
  6974. ServiceType
  6975. Apple Talk Remote Access
  6976.     6S8S12S14S
  6977.     Select one
  6978. PortsRAS
  6979.     0S0E
  6980.     Port
  6981.     0S0E
  6982. PortInternet
  6983.     Country code
  6984. tmpCountryCode
  6985.     Area code
  6986. tmpAreaCode
  6987.     Phone number
  6988. tmpPhoneNumber
  6989.     Login name
  6990. tmpLoginName
  6991.     Password
  6992. tmpPassword
  6993. WizButtonHide
  6994. WizButtonHide
  6995. <Previous
  6996. WizButtonHide
  6997. '++LotusScript Development Environment:2:5:(Options):0:66
  6998. '++LotusScript Development Environment:2:5:(Forward):0:1
  6999. Declare Sub Click(Source As Button)
  7000. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7001. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7002. Private Sub BindEvents(Byval Objectname_ As String)
  7003.     Static Source As BUTTON
  7004.     Set Source = Bind(Objectname_)
  7005.     On Event Click From Source Call Click
  7006. End Sub
  7007. '++LotusScript Development Environment:2:2:Click:1:12
  7008. Sub Click(Source As Button)
  7009.     wiz.previous
  7010. End Sub
  7011. Lotus Product
  7012. New Button
  7013. Need a newer version of Notes to execute this button.
  7014.     0S0E
  7015. <Previous
  7016. WizButtonHide
  7017. finishH
  7018. '++LotusScript Development Environment:2:5:(Options):0:66
  7019. '++LotusScript Development Environment:2:5:(Forward):0:1
  7020. Declare Sub Click(Source As Button)    
  7021. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7022. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7023. Private Sub BindEvents(Byval Objectname_ As String)
  7024.     Static Source As BUTTON
  7025.     Set Source = Bind(Objectname_)
  7026.     On Event Click From Source Call Click
  7027. End Sub
  7028. '++LotusScript Development Environment:2:2:Click:1:12
  7029. Sub Click(Source As Button)    
  7030.     wiz.next
  7031. End Sub
  7032. Lotus Product
  7033. New Button
  7034. Need a newer version of Notes to execute this button.
  7035.     0S0E
  7036. Next>
  7037. WizButtonHide
  7038. finishH
  7039. '++LotusScript Development Environment:2:5:(Options):0:66
  7040. '++LotusScript Development Environment:2:5:(Forward):0:1
  7041. Declare Sub Click(Source As Button)
  7042. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7043. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7044. Private Sub BindEvents(Byval Objectname_ As String)
  7045.     Static Source As BUTTON
  7046.     Set Source = Bind(Objectname_)
  7047.     On Event Click From Source Call Click
  7048. End Sub
  7049. '++LotusScript Development Environment:2:2:Click:1:12
  7050. Sub Click(Source As Button)
  7051.     wiz.complete
  7052. End Sub
  7053. Lotus Product
  7054. New Button
  7055. Need a newer version of Notes to execute this button.
  7056.     0S0E
  7057. Finish
  7058. Cancel?
  7059. The wizard has not completed yet.  Are you sure you want to cancel?
  7060. continue
  7061. SaveOptions
  7062. Cancel
  7063. O=Lotus Notes
  7064. O=Lotus Notes
  7065. PURSAFO
  7066. |.:#U
  7067. O=Lotus Notes
  7068. CN=Lotus Notes Template Development/O=Lotus Notes
  7069. PURSAFO
  7070. $INFO
  7071. $Script
  7072. $$Script_O
  7073. $$ScriptName
  7074. $$FormScript
  7075. $$$FormScript_O
  7076. $BODY
  7077. '++LotusScript Development Environment:2:5:(Options):0:74
  7078. Option Public
  7079. Option Declare
  7080. Use "Wizard"
  7081. Use "RLANRoutines"
  7082. '++LotusScript Development Environment:2:5:(Forward):0:1
  7083. Declare Class ConnectionWizard As Wizard
  7084. Declare Function RepeatedConnectionID(Destination As Variant, LocationName As String)  As String
  7085. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7086. Dim wiz As Wizard
  7087. Class ConnectionWizard As Wizard
  7088.     Sub new( uidoc As NotesUIdocument, tableName As String, firstPanel As String)
  7089.     End Sub
  7090.     Function processNext( note As NotesDocument, currentPanel As String) As String
  7091.         If currentPanel = "a"  Then
  7092.             activateNextButton False
  7093.             processNext = "b"
  7094.         End If
  7095.     End Function
  7096.     Function processComplete( note As Notesdocument, currentPanel As String) As Integer
  7097.         On Error  Goto errhandle
  7098.         Dim w As New NotesUIWorkspace
  7099.         Dim s As New NotesSession
  7100.         Dim db As NotesDatabase
  7101.         Dim uidoc As NotesUIDocument
  7102.         Dim  doc As NotesDocument
  7103.         Dim  newdoc As NotesDocument
  7104.         Dim ItemDefaultPassthruServerName As NotesItem
  7105.         Dim ItemLocationName As NotesItem
  7106.         Dim ItemLocationType As NotesItem
  7107.         Dim vlist As Variant
  7108.         Dim itemphonenumber As NotesItem
  7109.         Dim itemareacode As NotesItem
  7110.         Dim itemcountrycode As NotesItem
  7111.         Dim success As Integer
  7112.         Set db=s.CurrentDatabase
  7113.         Set uidoc=w.CurrentDocument
  7114.         Set doc=uidoc.Document 
  7115.         Set ItemLocationType=doc.GetFirstItem("LocationType")
  7116.         Set ItemLocationName=doc.GetFirstItem("Name") 
  7117.         Set ItemDefaultPassthruServerName=doc.GetFirstItem("DefaultPassthruServer") 
  7118.         Set itemcountrycode=doc.GetFirstItem("tmpCountryCode")    
  7119.         Set itemareacode=doc.GetFirstItem("tmpAreaCode")    
  7120.         Set itemphonenumber=doc.GetFirstItem("tmpPhoneNumber")
  7121.         If Len(itemPhoneNumber.Text)=0 Then
  7122.             Msgbox "You need to enter phone number"
  7123.             Exit Function
  7124.         End If
  7125. ' create Dialup connection
  7126.         Set newdoc=New NotesDocument(db) 
  7127.         Call newdoc.ReplaceItemValue("Form","Connection")
  7128.         Call newdoc.ReplaceItemValue("ConnectionType","1")
  7129.         Call ItemDefaultPassthruServerName.CopyItemToDocument(newdoc,"Destination")  
  7130.         Call ItemLocationName.CopyItemToDocument(newdoc,"ConnectionLocation")
  7131.         Call Itemcountrycode.CopyItemToDocument(newdoc,"Country")
  7132.         Call Itemareacode.CopyItemToDocument(newdoc,"AreaCodeInput")
  7133.         Call Itemphonenumber.CopyItemToDocument(newdoc,"LocalPhoneNumber")
  7134.         'Check for repeated connection
  7135.         Dim answer As Integer
  7136.         Dim docID As String
  7137.         docID=RepeatedConnectionID(ItemDefaultPassthruServerName.Text, ItemLocationName.Text)
  7138.         If docID<>"not found" Then 
  7139.             answer=    w.Prompt(prompt_yesno, "Repeated connection", "Configuration already exists. Do you want to overwrite it?")
  7140.             If answer =0 Then
  7141.                 Call uidoc.Close
  7142.                 Exit Function
  7143.             Else
  7144. 'To overwrite existing we will save newdoc and  we can delete existing
  7145.                 Dim doctodelete As NotesDocument            
  7146.                 Set doctodelete=    db.GetDocumentByID(docID)
  7147.                 Call doctodelete.Remove(True)
  7148.             End If    
  7149.         End If        
  7150.         'save newdoc
  7151.         success= newdoc.ComputeWithForm(False, False) 
  7152.         If success Then
  7153.             Call newdoc.save(True, True)
  7154.         Else
  7155.             Msgbox("There are Input translation/validation issues in Dialup connection")  
  7156.             Exit Function            
  7157.         End If    
  7158. 'end create Dialup connection
  7159.         processComplete = True
  7160.         Msgbox "Notes has configured connection(s) for this location."
  7161.         Exit Function    
  7162.         Call uidoc.Close
  7163. errhandle:
  7164.         Messagebox "Err (" & Err & "): " & Error$    
  7165.     End Function
  7166. End Class
  7167. '++LotusScript Development Environment:2:1:RepeatedConnectionID:1:8
  7168. Function RepeatedConnectionID(Destination As Variant, LocationName As String)  As String
  7169.     Dim s As New NotesSession    
  7170.     Dim w As New NotesUIWorkspace
  7171.     Dim db As NotesDatabase
  7172.     Dim key(0) As String
  7173.     Dim view As NotesView
  7174.     Dim uidoc As NotesUIdocument
  7175.     Dim doc As NotesDocument
  7176.     Dim doc2 As NotesDocument
  7177.     Dim helpdoc As NotesDocument
  7178.     Dim connectiontype As String
  7179.     Dim locationtype As String
  7180.     Dim done As Integer
  7181.     RepeatedConnectionID="not found"
  7182.     Set db=s.CurrentDatabase
  7183.     Set uidoc=w.CurrentDocument
  7184.     Set doc=uidoc.Document
  7185.     Set view=db.GetView("($Connections)")
  7186.     done=False    
  7187.     key(0)=s.Username
  7188.     Set doc2=view.GetDocumentByKey(key,False)
  7189.     If doc2 Is Nothing Then Exit Function
  7190.     While Not done 
  7191.         If destination=doc2.ColumnValues(2) Then
  7192.             If doc2.ColumnValues(0)=key(0) Then 
  7193.                 If doc2.ColumnValues(24)="*" Or locationname=doc2.ColumnValues(24) Then
  7194.                     RepeatedConnectionID=doc2.NoteID
  7195.                     Exit Function
  7196.                 End If
  7197.             End If
  7198.         End If
  7199.         Set helpdoc=doc2
  7200.         Set doc2=view.GetNextDocument(helpdoc)
  7201.         If doc2 Is Nothing Then Exit Function
  7202.         If doc2.ColumnValues(0)<>key(0) Then done=True
  7203.     Wend
  7204. End Function
  7205. Lotus Product
  7206. $    D    $
  7207. K$    -P
  7208. ($Notes Dialup Wizard)'++LotusScript Development Environment:2:5:(Options):0:74
  7209. Option Declare
  7210. '++LotusScript Development Environment:2:5:(Forward):0:1
  7211. Declare Sub Postopen(Source As Notesuidocument)
  7212. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  7213. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7214. Declare Sub Postrecalc(Source As Notesuidocument)
  7215. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7216. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7217. Private Sub BindEvents(Byval Objectname_ As String)
  7218.     Static Source As NOTESUIDOCUMENT
  7219.     Set Source = Bind(Objectname_)
  7220.     On Event Postopen From Source Call Postopen
  7221.     On Event Queryopen From Source Call Queryopen
  7222.     On Event Queryclose From Source Call Queryclose
  7223.     On Event Postrecalc From Source Call Postrecalc
  7224. End Sub
  7225. '++LotusScript Development Environment:2:2:Postopen:1:12
  7226. Sub Postopen(Source As Notesuidocument)
  7227. End Sub
  7228. '++LotusScript Development Environment:2:2:Queryopen:1:12
  7229. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  7230.     Dim firstPanel As String
  7231. 'Make sure to pass to first panel you want displayed
  7232.     firstPanel = "a"
  7233.     On Error  Goto errhandle
  7234.     Set wiz = New ConnectionWizard( source, "Wiz", "a")
  7235.     Exit Sub
  7236. errhandle:
  7237.     Messagebox "Err (" & Err & "): " & Error$    
  7238.     Exit Sub
  7239. End Sub
  7240. '++LotusScript Development Environment:2:2:Queryclose:1:12
  7241. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7242. End Sub
  7243. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  7244. Sub Postrecalc(Source As Notesuidocument)
  7245. End Sub
  7246. Lotus Product
  7247. OBJECT
  7248. OriginalService
  7249. OriginalService
  7250. DisplayDriverList
  7251. DisplayDriverList
  7252. Windows
  7253. Macintosh
  7254.     9S11S18S20SServiceType
  7255. DisplayDriverList
  7256. connection.gif
  7257.     Using Notes Direct Dialup
  7258.     This configures Notes to connect directly to a Domino server over a phone line using the Notes dialup protocol. Connections are made by default to a passthru server, which will connect you to the destination server.
  7259.     If you wish to have Notes dial a Domino server directly, rather than using passthru server, you can do this by creating a connection document.   To do this, click the Add Connection button in the Connections view of your Personal Address Book. You can get to this view by clicking Connections under Advanced in the left pane of your screen.
  7260.                                                                                       
  7261.     Please enter numbers for 
  7262. DefaultPassthruServer
  7263. servername
  7264.     The area code and country code are optional, but should be supplied if you may be calling from outside your area.
  7265.     Country code:  
  7266. tmpCountryCode
  7267.     Area code
  7268. tmpAreaCode
  7269.     Phone number: 
  7270. tmpPhoneNumber
  7271.          
  7272. WizButtonHide
  7273. WizButtonHide
  7274. <Previous
  7275. WizButtonHide
  7276. '++LotusScript Development Environment:2:5:(Options):0:66
  7277. '++LotusScript Development Environment:2:5:(Forward):0:1
  7278. Declare Sub Click(Source As Button)
  7279. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7280. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7281. Private Sub BindEvents(Byval Objectname_ As String)
  7282.     Static Source As BUTTON
  7283.     Set Source = Bind(Objectname_)
  7284.     On Event Click From Source Call Click
  7285. End Sub
  7286. '++LotusScript Development Environment:2:2:Click:1:12
  7287. Sub Click(Source As Button)
  7288.     wiz.previous
  7289. End Sub
  7290. Lotus Product
  7291. New Button
  7292. Need a newer version of Notes to execute this button.
  7293.     0S0E
  7294. <Previous
  7295. WizButtonHide
  7296. finishH
  7297. '++LotusScript Development Environment:2:5:(Options):0:66
  7298. '++LotusScript Development Environment:2:5:(Forward):0:1
  7299. Declare Sub Click(Source As Button)    
  7300. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7301. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7302. Private Sub BindEvents(Byval Objectname_ As String)
  7303.     Static Source As BUTTON
  7304.     Set Source = Bind(Objectname_)
  7305.     On Event Click From Source Call Click
  7306. End Sub
  7307. '++LotusScript Development Environment:2:2:Click:1:12
  7308. Sub Click(Source As Button)    
  7309.     wiz.next
  7310. End Sub
  7311. Lotus Product
  7312. New Button
  7313. Need a newer version of Notes to execute this button.
  7314.     0S0E
  7315. Next>
  7316. WizButtonHide
  7317. finishH
  7318. '++LotusScript Development Environment:2:5:(Options):0:66
  7319. '++LotusScript Development Environment:2:5:(Forward):0:1
  7320. Declare Sub Click(Source As Button)
  7321. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7322. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7323. Private Sub BindEvents(Byval Objectname_ As String)
  7324.     Static Source As BUTTON
  7325.     Set Source = Bind(Objectname_)
  7326.     On Event Click From Source Call Click
  7327. End Sub
  7328. '++LotusScript Development Environment:2:2:Click:1:12
  7329. Sub Click(Source As Button)
  7330.     wiz.complete
  7331. End Sub
  7332. Lotus Product
  7333. New Button
  7334. Need a newer version of Notes to execute this button.
  7335.     0S0E
  7336. Finish
  7337. Cancel?
  7338. The wizard has not completed yet.  Are you sure you want to cancel?
  7339. continue
  7340. SaveOptions
  7341. Cancel
  7342. O=Lotus Notes
  7343. O=Lotus Notes
  7344. PURSAFO
  7345. |.:#U
  7346. O=Lotus Notes
  7347. CN=Lotus Notes Template Development/O=Lotus Notes
  7348. PURSAFO
  7349. XN!vjl
  7350. $INFO
  7351. $Script
  7352. $$Script_O
  7353. $$ScriptName
  7354. $$FormScript
  7355. $$$FormScript_O
  7356. $BODY
  7357. '++LotusScript Development Environment:2:5:(Options):0:74
  7358. Option Public
  7359. Option Declare
  7360. '++LotusScript Development Environment:2:5:(Forward):0:1
  7361. Declare Class StackContainer
  7362. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7363. Class StackContainer
  7364.     Private Sub SetValue( Value1 As Variant, Value2 As Variant)
  7365.           'This allows you set value1 to value2's value or object reference
  7366.         If Isobject( Value2) Then
  7367.             Set Value1 = Value2
  7368.         Else
  7369.             Value1 = Value2
  7370.         End If                      
  7371.     End Sub
  7372.     Private valueArray() As Variant
  7373.     Private size As Long
  7374.     Property Get count As Long
  7375.         count = size
  7376.     End Property
  7377.     Sub push( value As Variant)
  7378.         Redim Preserve valueArray(size) As Variant
  7379.         setValue valueArray(size), value
  7380.         size = size + 1
  7381.     End Sub
  7382.     Function pop As Variant
  7383.         If size > 0 Then
  7384.             size = size -1
  7385.             If Isobject( valueArray(size)) Then
  7386.                 Set pop = valueArray( size)
  7387.             Else
  7388.                 pop = valueArray( size)
  7389.             End If
  7390.             If size = 0 Then
  7391.                 Erase valuearray
  7392.             Else
  7393.                 Redim Preserve valueArray( size -1) As Variant
  7394.             End If
  7395.         End If
  7396.     End Function
  7397.     Function array As Variant
  7398.         If size > 0 Then
  7399.             Redim newarray( size - 1) As Variant
  7400.             Dim count As Long
  7401.             For count = 0 To size -1
  7402.                 newArray(size - count - 1) = valueArray( count)
  7403.             Next
  7404.             array = newArray
  7405.         End If
  7406.     End Function
  7407.     Function reverseArray As Variant
  7408.         If size > 0 Then
  7409.             Redim newarray( size - 1) As Variant
  7410.             Dim count As Long
  7411.             For count = 0 To size -1
  7412.                 newArray(count) = valueArray( count)
  7413.             Next
  7414.             reverseArray = newArray
  7415.         End If
  7416.     End Function
  7417.     Function peek As Variant
  7418.         If size > 0 Then
  7419.             If Isobject( valueArray( size -1)) Then
  7420.                 Set peek = valueArray( size - 1)
  7421.             Else
  7422.                 peek = valueArray( size - 1)
  7423.             End If
  7424.         End If
  7425.     End Function
  7426. End Class
  7427. Lotus Product
  7428. O=Lotus Notes
  7429. O=Lotus Notes
  7430. PURSAFO
  7431. |.:#U
  7432. O=Lotus Notes
  7433. CN=Lotus Notes Template Development/O=Lotus Notes
  7434. PURSAFO
  7435. $ScriptLib
  7436. $ScriptLib_O
  7437. $TITLE
  7438. $Flags
  7439. $PublicAccess
  7440. '++LotusScript Development Environment:2:5:(Options):0:74
  7441. Option Public
  7442. Option Declare
  7443. %INCLUDE "lsxuierr.lss"
  7444. Use "StackContainer"
  7445. '++LotusScript Development Environment:2:5:(Forward):0:1
  7446. Declare Class Wizard
  7447. Declare Class SimpleWizard As Wizard
  7448. '++LotusScript Development Environment:2:5:(Declarations):0:10
  7449. Const WIZ_BUTTON_HIDE_FIELD = "WizButtonHide"
  7450. Const WIZ_SHOW_PRE_NEXT = "prenext"
  7451. Const WIZ_SHOW_PRE_DONE = "prefinish"
  7452. Const WIZ_SHOW_NEXT = "next"
  7453. Const WIZ_SHOW_DONE = "done"
  7454. Const WIZ_NEXT_PANEL_FIELD = "WizNext"
  7455. Const WIZ_PROCESS_NEXT_ERROR = 5000
  7456. Class Wizard
  7457.     Private tableName As String
  7458.     Private previousPanels As StackContainer 
  7459.     Private uidoc As NotesUIDocument
  7460.     Private note As NotesDocument
  7461.     Sub new( uidoc As NotesUIdocument, tableName As String, firstPanel As String)
  7462.         Me.tableName = "$" + tableName
  7463.         Set previousPanels = New StackContainer
  7464.         Set Me.uidoc = uidoc
  7465.         Set note = uidoc.document
  7466.         note.replaceItemValue Me.tableName, firstPanel
  7467.     End Sub
  7468.     Sub refreshHideFormulas
  7469.         '**This method just refreshes the hide-when formulas for the current wizard doc
  7470.         uidoc.refreshHideFormulas
  7471.     End Sub
  7472.     Sub activatePreviousButton( bActivate As Integer)
  7473.         '**This method will set the appropriate field so the previous button will activate or deactivate.  The method 
  7474.         '**refreshHideFormulas must be invoked after this method to display the activated button 
  7475.         If bActivate Then
  7476.             Select Case note.getItemValue( WIZ_BUTTON_HIDE_FIELD)(0)
  7477.             Case WIZ_SHOW_DONE:
  7478.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_PRE_DONE
  7479.             Case WIZ_SHOW_NEXT:
  7480.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_PRE_NEXT
  7481.             Case ""
  7482.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_PRE_NEXT        
  7483.             End Select    
  7484.         Else
  7485.             Select Case note.getItemValue( WIZ_BUTTON_HIDE_FIELD)(0)
  7486.             Case WIZ_SHOW_PRE_DONE:
  7487.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_DONE
  7488.             Case WIZ_SHOW_PRE_NEXT:
  7489.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_NEXT
  7490.             End Select
  7491.         End If
  7492.     End Sub
  7493.     Sub activateNextButton( bActivate As Integer)
  7494.         '**This method will set the appropriate field so the next button will activate or deactivate.  If the 
  7495.         '**next button is deactivated, the finish button will be activated.  The method 
  7496.         '**refreshHideFormulas must be invoked after this method to display the appropriate  button 
  7497.         If bActivate Then
  7498.             Select Case note.getItemValue( WIZ_BUTTON_HIDE_FIELD)(0)
  7499.             Case WIZ_SHOW_PRE_DONE:
  7500.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_PRE_NEXT
  7501.             Case WIZ_SHOW_PRE_NEXT:
  7502.                 ' do nothing
  7503.             Case WIZ_SHOW_NEXT:
  7504.                 ' do nothing
  7505.             Case Else
  7506.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_NEXT        
  7507.             End Select    
  7508.         Else            
  7509.             Select Case note.getItemValue( WIZ_BUTTON_HIDE_FIELD)(0)
  7510.             Case WIZ_SHOW_PRE_NEXT:
  7511.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_PRE_DONE
  7512.             Case Else
  7513.                 note.replaceItemValue WIZ_BUTTON_HIDE_FIELD, WIZ_SHOW_DONE
  7514.             End Select
  7515.         End If
  7516.     End Sub
  7517.     Private Sub switchToPanel( panel As String)
  7518.         Call note.replaceItemValue( tableName, panel)
  7519.         uidoc.reload
  7520.         uidoc.refreshHideFormulas
  7521.     End Sub
  7522.     Public Sub next
  7523.         '** This method is called when you wish to advance to the next panel
  7524.         '** The next panel is determined by the processNext method, which can be overridden
  7525.         '** to enable custom behaviour
  7526.         On Error lsERR_LSXUI_NOTES_ERROR Goto validateErr
  7527.         On Error WIZ_PROCESS_NEXT_ERROR Goto validateErr
  7528.         uidoc.refresh
  7529.         Call previousPanels.push( note.getItemValue(tableName)(0))
  7530.         activatePreviousButton True
  7531.         Call switchToPanel( processNext( note, previousPanels.peek))
  7532. exitProc:
  7533.         Exit Sub
  7534. validateErr:
  7535.         'Do nothing, we just wanted to catch a validation error
  7536.         Resume exitProc
  7537.     End Sub
  7538.     Public Sub previous
  7539.         '** this method is called when you wish go back to the previous panel.  You can use
  7540.         '** the processPrevious method for custom processing or to override what the default
  7541.         '** previous panel is.
  7542.         Dim tempPrevious As String
  7543. '        uidoc.refresh
  7544.         If previousPanels.count > 0 Then
  7545.             activateNextButton True
  7546.             If previousPanels.count = 1 Then
  7547.                 activatePreviousButton False
  7548.             End If
  7549.             tempPrevious = processPrevious( note, note.getItemValue( tableName)(0))
  7550.             If Len( tempPrevious) = 0 Then
  7551.                 Print previousPanels.peek
  7552.                 switchToPanel previousPanels.pop
  7553.             Else
  7554.                 previousPanels.pop
  7555.                 switchToPanel tempPrevious
  7556.             End If
  7557.         End If
  7558.     End Sub
  7559.     Public Function processNext( note As Notesdocument, currentPanel As String) As String
  7560.         '** This method is used to determine what panel gets displayed next.
  7561.         '** It's default behavior is to return the value in the field WizNext.
  7562.         '** This method can be overridden to provide whatever logic you want and to do custom processing.
  7563.         '** .
  7564.         '** If for some reason you cannot continue to the next panel, then you can throw the 
  7565.         '** error WIZ_PROCESS_NEXT_ERROR, which stop the code from trying to goto the next panel
  7566.         '** You will probably want to display some message to the user when doing this as the existing code
  7567.         '** will not.
  7568.         processNext = note.getItemValue( WIZ_NEXT_PANEL_FIELD )(0)
  7569.     End Function
  7570.     Public Function processPrevious( note As Notesdocument, currentPanel As String) As String
  7571.         '** This method is used to determine what panel displayedwhen previous is called.
  7572.         '** It's default behavior is to return a null string ( "" ), so that last panel shown is what is displayed.
  7573.         '** This method can be overridden to provide whatever logic you want and to do custom processing.
  7574.     End Function
  7575.     Public Sub complete
  7576.         '**This method is called when the wizard should complete.  To provide custom behaviors, 
  7577.         '**override the processComplete method.
  7578.         On Error lsERR_LSXUI_NOTES_ERROR Goto validateErr
  7579.         uidoc.refresh
  7580.     If processComplete( note, note.getItemValue( tableName)(0)) Then
  7581.         Dim ws As New NotesUIWorkspace
  7582.         Dim tempItem As NotesItem
  7583.         'clean up wizard specific fields
  7584.         Set tempItem = note.getFirstItem( tableName)
  7585.         If Not tempItem Is Nothing Then
  7586.             tempItem.values = ""
  7587.             tempItem.saveToDisk = False
  7588.         End If
  7589.         Set tempItem = note.getFirstItem( WIZ_NEXT_PANEL_FIELD)
  7590.         If Not tempItem Is Nothing Then
  7591.             tempItem.values = ""
  7592.             tempItem.saveToDisk = False
  7593.         End If
  7594.         Set tempItem = note.getFirstItem( WIZ_BUTTON_HIDE_FIELD)
  7595.         If Not tempItem Is Nothing Then
  7596.             tempItem.values = ""
  7597.             tempItem.saveToDisk = False
  7598.         End If
  7599.         ws.refreshParentNote
  7600.         uidoc.close
  7601.     End If
  7602. exitProc:
  7603.         Exit Sub
  7604. validateErr:
  7605.         'Do nothing, we just wanted to catch a validation error
  7606.         Resume exitProc
  7607.     End Sub
  7608.     Function processComplete( note As Notesdocument, currentPanel As String) As Integer
  7609.         '** Override the method to provide custom behaviour when the complete method is invoked
  7610.         '** To abort the completion, return false, otherwise return true
  7611.         processComplete = True
  7612.     End Function
  7613. End Class
  7614. Class SimpleWizard As Wizard
  7615.     panels As Variant
  7616.     currentPanelNum As Integer
  7617.     Sub new( uidoc As NotesUIDocument, tableName As String, panels() As String), Wizard( uidoc, tableName, panels(Lbound(panels)))
  7618.         Me.panels = panels
  7619.         currentPanelNum = Lbound(panels)
  7620.     End Sub
  7621.     Private Function processNext( note As Notesdocument, currentPanel As String) As String
  7622.         If currentPanelNum < Ubound(panels) Then
  7623.             If currentPanelNum = Ubound(panels) - 1Then
  7624.                 activateNextButton( False)
  7625.             Else
  7626.                 activateNextButton( True)
  7627.             End If
  7628.             currentPanelNum = currentPanelNum + 1
  7629.             processNext = panels(currentPanelNum)
  7630.         End If
  7631.     End Function
  7632.     Private Function processPrevious( note As Notesdocument, currentPanel As String) As String
  7633.         currentPanelNum = currentPanelNum - 1
  7634.     End Function
  7635. End Class
  7636. Lotus Product
  7637. O=Lotus Notes
  7638. O=Lotus Notes
  7639. PURSAFO
  7640. |.:#U
  7641. O=Lotus Notes
  7642. CN=Lotus Notes Template Development/O=Lotus Notes
  7643. PURSAFO
  7644. Goi';n
  7645. $TITLE
  7646. $Flags
  7647. $PublicAccess
  7648. $ScriptLib
  7649. $ScriptLib_O
  7650. #2Bbq3R
  7651. wktjH
  7652. pGVN@
  7653. Ag~ik
  7654. Rj"#Z
  7655. ";l;|5
  7656. s^7tX
  7657. ZcKPT
  7658. <1E"Ls
  7659. p8=yg
  7660. O=Lotus Notes
  7661. O=Lotus Notes
  7662. PURSAFO
  7663. |.:#U
  7664. O=Lotus Notes
  7665. CN=Lotus Notes Template Development/O=Lotus Notes
  7666. PURSAFO
  7667. $ImagesWide
  7668. $ImagesHigh
  7669. $ImageData
  7670. $ImageNames
  7671. $TITLE
  7672. $GroupExtensibleSchema
  7673. O=Lotus Notes
  7674. O=Lotus Notes
  7675. PURSAFO
  7676. |.:#U
  7677. O=Lotus Notes
  7678. CN=Lotus Notes Template Development/O=Lotus Notes
  7679. PURSAFO
  7680. [v|a9
  7681. $INFO
  7682. $$ScriptName
  7683. $BODY
  7684.  OTPPP
  7685. ConnectionType
  7686.     1S2S
  7687. OTPPP$%^Remote connection name:
  7688. StaticTag
  7689. RLANItems
  7690. RLAN6
  7691.     Remote connection name:
  7692. RLANTag
  7693.     Login name:
  7694. RLAN1
  7695.     Password:
  7696. RLAN2
  7697.     Phone number:
  7698. RLAN3
  7699.     Area code:
  7700. RLAN4
  7701.     Country code:
  7702. RLAN5
  7703. O=Lotus Notes
  7704. O=Lotus Notes
  7705. PURSAFO
  7706. |.:#U
  7707. O=Lotus Notes
  7708. CN=Lotus Notes Template Development/O=Lotus Notes
  7709. PURSAFO
  7710. $INFO
  7711. $$ScriptName
  7712. RLANItems
  7713. $BODY
  7714. "Small Fonts
  7715.  $LotusFaxLocationSubform
  7716. O=Lotus Notes
  7717. O=Lotus Notes
  7718. PURSAFO
  7719. |.:#U
  7720. O=Lotus Notes
  7721. CN=Lotus Notes Template Development/O=Lotus Notes
  7722. PURSAFO
  7723. $TITLE
  7724. $INFO
  7725. $$ScriptName
  7726. $BODY
  7727. $CertifierExtensibleSchema
  7728. O=Lotus Notes
  7729. O=Lotus Notes
  7730. PURSAFO
  7731. |.:#U
  7732. O=Lotus Notes
  7733. CN=Lotus Notes Template Development/O=Lotus Notes
  7734. PURSAFO
  7735. `tt]!z
  7736. $INFO
  7737. $$ScriptName
  7738. $BODY
  7739. Categori_zeK
  7740. _Edit Document
  7741. Send Docu_ment
  7742. _Forward
  7743. _Move to Folder...
  7744. _Remove from FolderK
  7745. O=Lotus Notes
  7746. O=Lotus Notes
  7747. PURSAFO
  7748. |.:#U
  7749. O=Lotus Notes
  7750. CN=Lotus Notes Template Development/O=Lotus Notes
  7751. PURSAFO
  7752. $TITLE
  7753. $Index
  7754. $Formula
  7755. $FormulaClass
  7756. $VIEWFORMAT
  7757. $Comment
  7758. $ACTIONS
  7759. ?redstone.jpgredstone.jpg
  7760. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  7761. ?thread.jpgthread.jpg
  7762. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  7763. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  7764. connection.gif34Ci
  7765. connection.gifused for connection wizard
  7766. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  7767. ##########################################################
  7768. 0($Connections)/Ox
  7769. RLAN5
  7770. RLAN5
  7771. RLAN6
  7772. RLAN6
  7773. SMTPPullRouting
  7774. SMTPPullRouting
  7775. PullRoutingTimeout
  7776. PullRoutingTimeout
  7777. SourceSourceDomainDestinationDestinationDomainPortNameEnabledPhoneNumberIntervalScheduleWeekDaysMailThresholdTasksRepPriorityCostLinkInfoLinkScriptInfoRLANTagRLAN1RLAN2RLAN3RLAN4RLAN5RLAN6PassthruServerRepTypeFileNamesConnectionLocationConnectionTypeTimeLimitRemoteLanServiceConnectionRecordFirstCountryRouterTypeSMTPPullRoutingPullRoutingTimeout$Conflict$REF
  7778. Connection
  7779.     L1S2S3S1_
  7780. SourceSourceDomainDestinationDestinationDomainPortName
  7781. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
  7782. %$SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15($People)
  7783. Lastname
  7784. $3FullName$Conflict$REF
  7785. Person
  7786.     1S2S3S4S5S6S
  7787. $3FullName
  7788. Lastname
  7789. FullNameFull Name&
  7790. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  7791. -($Groups)
  7792. ListName
  7793.     0S0E
  7794. $8ListName$Conflict$REF
  7795. Group
  7796. GroupType
  7797. GroupType
  7798. Group
  7799.     L1S3S4S5S6S13S14S19S20S1
  7800. $8ListName
  7801. $8ListName0
  7802. ListName
  7803.     0S0E
  7804. ListNameListName&
  7805. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
  7806. !$SUBVIEWDomainName\Domain Name:23($CrossCertByName)/ON
  7807. NameCombo$Conflict$REF
  7808. CrossCertificate
  7809. NameCombo
  7810.  NameComboName Combination&
  7811. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  7812. $$SUBVIEWDomainName\Domain Name:23($CrossCertByRoot)/O
  7813. OrgComboIssuedByIssuedTo$0CertificateType$Conflict$REF
  7814. CrossCertificate
  7815. OrgComboIssuedByIssuedTo
  7816. OrgComboOrg. CombinationIssuedByIssued ByIssuedToIssued To$0NoteID
  7817. CertificateTypeCertificateType&
  7818. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  7819. "$SUBVIEWDomainName\Domain Name:23($Certifiers)/O
  7820. IssuedToCertificateType$Conflict$REF
  7821. Certifier
  7822. Certifier
  7823.     L1S2S3S4S5S1
  7824. IssuedTo
  7825. IssuedToIssued ToCertificateTypeCertificateType&
  7826. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
  7827. Z($PeopleGroupsHier)1
  7828. $8$11
  7829. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  7830. GroupDistribution ListAccess GroupAccess ListGroup[GroupCreator]$GroupExtensibleSchema
  7831. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
  7832. CrossCertificateCrossCertificateC
  7833. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  7834. ($Locations)/O
  7835. Source
  7836. Server
  7837. ServerName
  7838. Source
  7839. $1Name$Conflict$REF
  7840. Location
  7841. Server
  7842. Location
  7843. Server
  7844.     L1S2S3S4S6S7S9S10S
  7845. $1Name
  7846. $1SourceZ
  7847. Source
  7848. Server
  7849. ServerName
  7850. Source
  7851. NameName&
  7852. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  7853. ##########################################################
  7854. (Parts)CD
  7855. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  7856. Server\CertifierCertifier[NetCreator]$CertifierExtensibleSchema
  7857. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  7858. (($Users)/O1
  7859. $38$23
  7860. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  7861. Brian Lambert($VIMGroups)
  7862. ListName
  7863. $1ListDescriptionMembers$Conflict$REF
  7864. Group
  7865.     1S2S3S4S5S
  7866.  $1List Name0
  7867. ListName
  7868. ListDescriptionDescriptionMembersMembers&
  7869. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  7870. Brian Lambert($VIMPeopleAndGroups),
  7871. Person
  7872. Person
  7873. Fullname
  7874. ListName
  7875. FirstName
  7876. MiddleInitial
  7877. LastName
  7878. XDomain
  7879. MailDomain
  7880. MailDomain"
  7881.     1S2S5S6S8S9S10S12S
  7882. Person
  7883. MailAddress
  7884. MailAddress
  7885. FullName
  7886. XDomain
  7887. Listname
  7888.     0R9S10S12S14S18S20S21S
  7889. Person
  7890. Comment
  7891. ListDescription
  7892. $6$1$0$2$3$8$5Members$Conflict$REF
  7893. Person
  7894. Group
  7895.     1S3S4S5S6S7S8S10S11S
  7896. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  7897. Brian Lambert($VIMPeopleByLastName)
  7898. LastName
  7899. Fullname
  7900. FirstName
  7901. MiddleInitial
  7902. XDomain
  7903. MailDomain
  7904. MailDomain"
  7905. MailAddress
  7906. MailAddress
  7907. FullName
  7908. XDomain
  7909. $6$1$0$2$4Comment$Conflict$REF
  7910. Person
  7911.     1S2S3S4S5S
  7912. $6LastName.
  7913. LastName
  7914. $1FullName0
  7915. Fullname
  7916. $0FirstName&
  7917. FirstName
  7918. $2Middle Initial*
  7919. MiddleInitial
  7920. $4MailAddress
  7921. XDomain
  7922. MailDomain
  7923. MailDomain"
  7924. MailAddress
  7925. MailAddress
  7926. FullName
  7927. XDomain
  7928. CommentComment&
  7929. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  7930. ($ServerAccess)/O
  7931. Remove all members that contain domain names (e.g. @ Domain)
  7932. CanonicalMembers
  7933. Members
  7934. CanonicalMembers
  7935. CanonicalMembers
  7936. CanonicalMembers
  7937. $1ListName$Conflict$REF
  7938. Group
  7939. GroupType
  7940. GroupType
  7941. Group
  7942.     L1S3S4S5S6S8S9S15S16S23S24S1
  7943. $1Name$
  7944. Remove all members that contain domain names (e.g. @ Domain)
  7945. CanonicalMembers
  7946. Members
  7947. CanonicalMembers
  7948. CanonicalMembers
  7949. CanonicalMembers
  7950. ListNameListName&
  7951. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  7952. 7($PeopleGroupsFlat)/O1
  7953. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  7954. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
  7955. (Copy to Personal Address Book)
  7956. EH4f3L
  7957. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  7958. (RLANList)RLANListCD
  7959. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  7960. $RLANARAAppleTalk Remote AccessARACU3
  7961. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  7962. ##########################################################
  7963.  .)10.)-,3:J>36F7,-@WAFLNRSR2>ZaZP`JQRO
  7964. &O5-5OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
  7965. 1AQ"aq
  7966. #3bCrc
  7967. ?jhAr
  7968. MY7.0&I
  7969. U'k@I'
  7970. u$x0'
  7971. @0D36v-
  7972. 5,XvT
  7973. 3CY!U{I
  7974. b;f60b
  7975. bU"<(b
  7976. bqp$wu
  7977. Y4D1=
  7978. KSO]=
  7979. G}YU\
  7980. [QK0!{A{
  7981. f;*rd
  7982. q>~51u
  7983. P4H:f
  7984. Ua+$@
  7985. $bDVJM
  7986. b}|kEiIu
  7987. 0$I^~[
  7988. Ab'%q
  7989. A&{J=f
  7990. .~'n?43F
  7991. fP'rc
  7992. KFZ<(T
  7993. :jAb@
  7994. {SdO_
  7995. Rf&{*
  7996. YQwkIJ
  7997. dI&'>p>
  7998. $@1,O
  7999. 8PDUD
  8000. %Gh!}
  8001. "2Xwz
  8002. QfXNg
  8003. j,HRA,m
  8004. \vVpw
  8005. $HtU'~g
  8006. *r|'3MT
  8007. IU2H1
  8008. -$d^FI
  8009. n[L]i
  8010. t26*{
  8011. AI0f;
  8012. A>5CL0
  8013. h3::!d.Ze
  8014. K!##n
  8015. &%|1M
  8016. +}}3l
  8017. |:T*+
  8018. D2h(s
  8019. rb<*    *
  8020. UeCi%D
  8021. &!V`4
  8022. [3$oFpJ
  8023. c2Kf<*
  8024. F=qDN
  8025. jR!QA
  8026. A2A~B
  8027. W!@Xi
  8028. nh~0i
  8029. 7 G="
  8030. r.A2b>
  8031. *$_il
  8032. juf(0B$7
  8033. TA`rO
  8034. Dvp(i\
  8035. rA32O
  8036. O=Lotus Notes
  8037. O=Lotus Notes
  8038. PURSAFO
  8039. |.:#U
  8040. O=Lotus Notes
  8041. CN=Lotus Notes Template Development/O=Lotus Notes
  8042. PURSAFO
  8043. $ImagesWide
  8044. $ImagesHigh
  8045. $ImageData
  8046. $ImageNames
  8047. $TITLE
  8048. OVe9Y
  8049. ')V    FS
  8050. m,D7w
  8051. {b3nye"1 mV
  8052. ;UZcz=
  8053. [jny{L
  8054. S&6yTG
  8055. J7e<:
  8056. 91qNL|
  8057. 1v;Mz
  8058. BYrB(J"
  8059. 7M7UC
  8060. 4#Ty:
  8061. -1etS
  8062. .3&F1Y
  8063. /uM~z
  8064. a%E;)
  8065. 6ue~i
  8066. rNfII
  8067. \~1$Y
  8068. #nIhlt 
  8069. X{X^H
  8070. xF$Pc$
  8071. O=Lotus Notes
  8072. O=Lotus Notes
  8073. PURSAFO
  8074. |.:#U
  8075. O=Lotus Notes
  8076. CN=Lotus Notes Template Development/O=Lotus Notes
  8077. PURSAFO
  8078. Gf{tK
  8079. ~!    k0
  8080. $ImagesWide
  8081. $ImagesHigh
  8082. $ImageData
  8083. $ImageNames
  8084. $TITLE
  8085. Tools...\Create Group
  8086. '++LotusScript Development Environment:2:5:(Options):0:66
  8087. '++LotusScript Development Environment:2:5:(Forward):0:1
  8088. Declare Sub Click(Source As Button)
  8089. Declare Function GetFullName() As String
  8090. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8091. Dim ws As NotesUIWorkspace
  8092. Dim session As NotesSession
  8093. Dim db As NotesDatabase
  8094. Dim note As NotesDocument
  8095. Dim groupnote As NotesDocument
  8096. Dim collection As NotesDocumentCollection
  8097. Dim Names() As String
  8098. Dim counter As Integer
  8099. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8100. Private Sub BindEvents(Byval Objectname_ As String)
  8101.     Static Source As BUTTON
  8102.     Set Source = Bind(Objectname_)
  8103.     On Event Click From Source Call Click
  8104. End Sub
  8105. '++LotusScript Development Environment:2:2:Click:1:12
  8106. Sub Click(Source As Button)
  8107.     Set ws = New NotesUIWorkspace
  8108.     Set session = New NotesSession
  8109.     Set db = session.CurrentDatabase
  8110.     counter = 0
  8111.     Set collection = db.UnprocessedDocuments
  8112.     If (collection.Count = 0) Then
  8113.         Messagebox "No documents were selected.",0,"Error"
  8114.         Exit Sub
  8115.     End If
  8116.     Redim Names(collection.Count-1)
  8117. 'for each document in the collection, get the first value of FullName
  8118. 'we use the GetNth method since the resulting collection is an IDTable
  8119.     For x = 1 To collection.Count
  8120.         Set note = collection.GetNthDocument(x)
  8121.         Names(counter) = GetFullName
  8122.         counter = counter + 1
  8123.     Next
  8124.     Set groupnote = New NotesDocument(db)
  8125.     groupnote.Members = Names
  8126.     groupnote.Form = "Group"
  8127.     groupnote.Type = "Group"
  8128.     Call ws.EditDocument(True,groupnote)
  8129. End Sub
  8130. '++LotusScript Development Environment:2:1:GetFullName:1:8
  8131. Function GetFullName() As String
  8132.     If note.FullName(0) <> "" Then
  8133.         GetFullName = note.FullName(0)
  8134.     Else
  8135.         GetFullName= note.LastName(0)
  8136.     End If
  8137. End Function
  8138. Tools...\Preferences...K4
  8139. DirectoryProfile
  8140.     0S0E
  8141. Write Memo
  8142. Error
  8143. You must use Notes 4.6 or above to use this action.
  8144. (CreateMailMemo)
  8145.     6S7S9S
  8146. Schedule Meeting
  8147. Error
  8148. You must use Notes 4.6 or above to use this action.
  8149. (ScheduleMeeting)
  8150.     6S7S9S
  8151. Tools...\Create Group
  8152. '++LotusScript Development Environment:2:5:(Options):0:66
  8153. '++LotusScript Development Environment:2:5:(Forward):0:1
  8154. Declare Sub Click(Source As Button)
  8155. Declare Function GetFullName() As String
  8156. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8157. Dim ws As NotesUIWorkspace
  8158. Dim session As NotesSession
  8159. Dim db As NotesDatabase
  8160. Dim note As NotesDocument
  8161. Dim groupnote As NotesDocument
  8162. Dim collection As NotesDocumentCollection
  8163. Dim Names() As String
  8164. Dim counter As Integer
  8165. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8166. Private Sub BindEvents(Byval Objectname_ As String)
  8167.     Static Source As BUTTON
  8168.     Set Source = Bind(Objectname_)
  8169.     On Event Click From Source Call Click
  8170. End Sub
  8171. '++LotusScript Development Environment:2:2:Click:1:12
  8172. Sub Click(Source As Button)
  8173.     Set ws = New NotesUIWorkspace
  8174.     Set session = New NotesSession
  8175.     Set db = session.CurrentDatabase
  8176.     counter = 0
  8177.     Set collection = db.UnprocessedDocuments
  8178.     If (collection.Count = 0) Then
  8179.         Messagebox "No documents were selected.",0,"Error"
  8180.         Exit Sub
  8181.     End If
  8182.     Redim Names(collection.Count-1)
  8183. 'for each document in the collection, get the first value of FullName
  8184. 'we use the GetNth method since the resulting collection is an IDTable
  8185.     For x = 1 To collection.Count
  8186.         Set note = collection.GetNthDocument(x)
  8187.         Names(counter) = GetFullName
  8188.         counter = counter + 1
  8189.     Next
  8190.     Set groupnote = New NotesDocument(db)
  8191.     groupnote.Members = Names
  8192.     groupnote.Form = "Group"
  8193.     groupnote.Type = "Group"
  8194.     Call ws.EditDocument(True,groupnote)
  8195. End Sub
  8196. '++LotusScript Development Environment:2:1:GetFullName:1:8
  8197. Function GetFullName() As String
  8198.     If note.FullName(0) <> "" Then
  8199.         GetFullName = note.FullName(0)
  8200.     Else
  8201.         GetFullName= note.LastName(0)
  8202.     End If
  8203. End Function
  8204. Tools...\Preferences...K4
  8205. DirectoryProfile
  8206.     0S0E
  8207. Write Memo
  8208. Error
  8209. You must use Notes 4.6 or above to use this action.
  8210. (CreateMailMemo)
  8211.     6S7S9S
  8212. Schedule Meeting
  8213. Error
  8214. You must use Notes 4.6 or above to use this action.
  8215. (ScheduleMeeting)
  8216.     6S7S9S
  8217. O=Lotus Notes
  8218. O=Lotus Notes
  8219. PURSAFO
  8220. |.:#U
  8221. O=Lotus Notes
  8222. CN=Lotus Notes Template Development/O=Lotus Notes
  8223. PURSAFO
  8224. `p@<C
  8225. q5C<|
  8226. $INFO
  8227. $BODY
  8228. $V5ACTIONS
  8229. $ACTIONS
  8230. O=Lotus Notes
  8231. O=Lotus Notes
  8232. PURSAFO
  8233. |.:#U
  8234. O=Lotus Notes
  8235. CN=Lotus Notes Template Development/O=Lotus Notes
  8236. PURSAFO
  8237. sZ%!ZM}
  8238. $Flags
  8239. (GIF89aw
  8240. <a>7`^///""
  8241. tjkX+
  8242. IS%+h
  8243.     DT\r
  8244. +dzdVU
  8245. b    *`F
  8246. ~VUY&
  8247. gH@-t
  8248. YHU@E>
  8249. f0O%+kZ[
  8250. hb|hJ
  8251. nHT<r
  8252. 906mM
  8253. 'Cy@uq
  8254. W    7b=
  8255. L@&iWw
  8256. TwNpy3$L
  8257. cWda "q
  8258. ej2tyhv\
  8259. |&WoDXQ
  8260. HayPa2
  8261. D(\g8O
  8262. NCW|t
  8263. "hZ(L
  8264. h04Ik
  8265. hqAIt
  8266. |cqGI
  8267. "Hi_J
  8268. WYAeL
  8269. YyN keVQ
  8270. \y2BJ
  8271. V0dtA(OI
  8272. mV`TXae`
  8273. F[D-t
  8274. S$!    #
  8275. $"D9P
  8276. GDX$0
  8277. cJ?J$scxB
  8278. `{f\#
  8279. b*P,>
  8280. GxeSb
  8281. ,'g*!yF
  8282. rc0/u
  8283. t(]-K
  8284. -}Vsd
  8285. `H-Ta#
  8286. D%ZF.%+
  8287. Ljk#^]Hga
  8288. !~53|
  8289. B'&X-
  8290. 8w#A4c
  8291. Yc=    <
  8292. T9LQ:
  8293. BT E\
  8294. ,'P@'<S
  8295. &T-dC
  8296. m[8rb4
  8297. I28:e
  8298. !`))k3
  8299. p(]&%
  8300. :2PVu
  8301. $tGMT:
  8302. !L0PR
  8303. .}F^g
  8304. d/2^l"f
  8305. vhDO:ds
  8306. yh$S9
  8307. 6m'[I;
  8308. uLf t
  8309. rf4E 
  8310. VEgET
  8311. RXN1^
  8312. Vk^K>
  8313. aBfbJ1
  8314. s"{\_
  8315. X"Ti3
  8316. r])//
  8317. Px!]n
  8318. 511(L%Z$b
  8319. dGCdq&
  8320. }BgU;
  8321. ZT!Ek
  8322. h.]J7+
  8323. ji%S[
  8324. 7Hd$N;
  8325. O=Lotus Notes
  8326. O=Lotus Notes
  8327. PURSAFO
  8328. |.:#U
  8329. O=Lotus Notes
  8330. CN=Lotus Notes Template Development/O=Lotus Notes
  8331. PURSAFO
  8332. $ImagesWide
  8333. $ImagesHigh
  8334. $ImagesColorize
  8335. $ImageData
  8336. $ImageNames
  8337. $Comment
  8338. SourceSourceSourceDomainSourceDomainDestinationDestinationDestinationDomainDestinationDomainPortNamePortNameEnabledEnabledPhoneNumberPhoneNumberIntervalIntervalScheduleScheduleWeekDaysWeekDaysMailThresholdMail ThresholdTasksTasksRepPriorityRepPriorityCostCostLinkInfoLink InfoLinkScriptInfoLink Script InfoRLANTagRLANTagRLAN1RLAN1RLAN2RLAN2RLAN3RLAN3RLAN4RLAN4RLAN5RLAN5
  8339. RLAN5
  8340. RLAN5
  8341. RLAN6RLAN6
  8342. RLAN6
  8343. RLAN6
  8344. PassthruServerPassthruServerRepTypeRepTypeFileNamesFileNamesConnectionLocationConnectionLocationConnectionTypeConnectionTypeTimeLimitTimeLimitRemoteLanServiceRemoteLanServiceConnectionRecordFirstConnectionRecordFirstCountryCountryRouterTypeRouterTypeSMTPPullRoutingSMTPPullRouting.
  8345. SMTPPullRouting
  8346. SMTPPullRouting
  8347. PullRoutingTimeoutPullRoutingTimeout2
  8348. PullRoutingTimeout
  8349. PullRoutingTimeout
  8350. Categori_zeK
  8351. _Edit Document
  8352. Send Docu_ment
  8353. _Forward
  8354. _Move to Folder...
  8355. _Remove from Folder...
  8356. O=Lotus Notes
  8357. O=Lotus Notes
  8358. PURSAFO
  8359. |.:#U
  8360. O=Lotus Notes
  8361. CN=Lotus Notes Template Development/O=Lotus Notes
  8362. PURSAFO
  8363. $TITLE
  8364. $Index
  8365. $Formula
  8366. $FormulaClass
  8367. $VIEWFORMAT
  8368. $Comment
  8369. $ACTIONS
  8370. Categori_zeK
  8371. _Edit Document
  8372. Send Docu_ment
  8373. _Forward
  8374. _Move To Folder...
  8375. _Remove From FolderK
  8376. O=Lotus Notes
  8377. O=Lotus Notes
  8378. PURSAFO
  8379. |.:#U
  8380. O=Lotus Notes
  8381. CN=Lotus Notes Template Development/O=Lotus Notes
  8382. PURSAFO
  8383. ah_*VZ
  8384. SDOqt
  8385. $TABLEFORMAT
  8386. $TITLE
  8387. $Index
  8388. $Formula
  8389. $FormulaClass
  8390. $VIEWFORMAT
  8391. $Comment
  8392. $ACTIONS
  8393. Categori_zeK
  8394. _Edit Document
  8395. Send Docu_ment
  8396. _Forward
  8397. _Move To Folder...
  8398. _Remove From FolderK
  8399. O=Lotus Notes
  8400. O=Lotus Notes
  8401. PURSAFO
  8402. |.:#U
  8403. O=Lotus Notes
  8404. CN=Lotus Notes Template Development/O=Lotus Notes
  8405. PURSAFO
  8406. 2^FADF
  8407. $TITLE
  8408. $Index
  8409. $Formula
  8410. $FormulaClass
  8411. $VIEWFORMAT
  8412. $Comment
  8413. $ACTIONS
  8414. O=Lotus Notes
  8415. O=Lotus Notes
  8416. PURSAFO
  8417. |.:#U
  8418. O=Lotus Notes
  8419. CN=Lotus Notes Template Development/O=Lotus Notes
  8420. PURSAFO
  8421. $TABLEFORMAT
  8422. $TITLE
  8423. $Index
  8424. $Formula
  8425. $FormulaClass
  8426. $VIEWFORMAT
  8427. $Comment
  8428. O=Lotus Notes
  8429. O=Lotus Notes
  8430. PURSAFO
  8431. |.:#U
  8432. O=Lotus Notes
  8433. CN=Lotus Notes Template Development/O=Lotus Notes
  8434. PURSAFO
  8435. $TABLEFORMAT
  8436. $TITLE
  8437. $Index
  8438. $Formula
  8439. $FormulaClass
  8440. $VIEWFORMAT
  8441. $Comment
  8442. O=Lotus Notes
  8443. O=Lotus Notes
  8444. PURSAFO
  8445. |.:#U
  8446. O=Lotus Notes
  8447. CN=Lotus Notes Template Development/O=Lotus Notes
  8448. PURSAFO
  8449. zkl]Av
  8450. XJ6 H
  8451. $TABLEFORMAT
  8452. $TITLE
  8453. $Index
  8454. $Formula
  8455. $FormulaClass
  8456. $VIEWFORMAT
  8457. $Comment
  8458. NameTo
  8459. Person
  8460. Database
  8461. FullName
  8462. AltFullName
  8463. ListName
  8464.     1S2S5S6S7S8S10S22S
  8465. NameTo
  8466. NameTo
  8467. (Not Hierarchical)
  8468.     0R8S11S14S18S21S
  8469. Person
  8470. Database
  8471. ResourceFlagh
  8472. ResourceType
  8473. ResourceFlag
  8474. ResourceFlagh
  8475. ResourceType
  8476. ResourceFlag
  8477. Server
  8478. Group
  8479. GroupType
  8480. GroupType
  8481. GroupType
  8482. GroupType
  8483. GroupType
  8484. GroupType
  8485.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S95S
  8486. DisplayPersonName
  8487. Person
  8488. LastName
  8489. FirstName
  8490. MiddleInitial
  8491. AltFullName
  8492.     1S2S7S8S10S18S20S21S25S29S32S33S34S36S
  8493. DisplayName
  8494. Group
  8495. ListName
  8496. Server
  8497. ServerName
  8498. DisplayPersonName
  8499. FullName
  8500. DisplayPersonName
  8501.     0R1S2S5S6S8S12S15S24S25S27S31S34S
  8502. DisplayName
  8503.     0R4S
  8504. MAMailAddress
  8505. Person
  8506. MailSystem
  8507. MailAddress
  8508. MailAddress
  8509. MailDomain
  8510. MailDomain"
  8511. FullName
  8512. FullName
  8513. MailDomain
  8514. MailDomain"
  8515. FirstName
  8516. FirstName
  8517. LastName"
  8518. MailDomain
  8519. MailDomain"
  8520. LastName
  8521. MailDomain
  8522. MailDomain"
  8523. Database
  8524. FullName
  8525. MailDomain
  8526. MailDomain"
  8527. Group
  8528. GroupType
  8529. GroupType
  8530. ListName
  8531.     3S4S5S6S19S20S27S28S39S40S42S46S48S49S52S53S55S56S57S59S71S72S79S80S86S87S94S95S102S103S104S106S110S112S113S117S118S120S121S122S124S128S129S130S131S132S139S145S
  8532. Group
  8533. ListName
  8534. FullName
  8535.     3S4S6S13S17S
  8536. MAPublicKey
  8537. Certificate
  8538. PublicKey
  8539. Certificate
  8540. PublicKey
  8541. Server
  8542. Certificate
  8543.     7S8S34S35S
  8544. AltFullName
  8545. AltFullName
  8546. $8$18$11MAMailAddress$24TypeMAPublicKeyAltFullName$Conflict$REF
  8547. Person
  8548. Group
  8549. Database
  8550. Server
  8551.     L1S2S4S5S6S7S8S9S10S11S12S13S14S17S
  8552. NameTo
  8553. Person
  8554. Database
  8555. FullName
  8556. AltFullName
  8557. ListName
  8558.     1S2S5S6S7S8S10S22S
  8559. NameTo
  8560. NameTo
  8561. (Not Hierarchical)
  8562.     0R8S11S14S18S21S
  8563. Person
  8564. Database
  8565. ResourceFlagh
  8566. ResourceType
  8567. ResourceFlag
  8568. ResourceFlagh
  8569. ResourceType
  8570. ResourceFlag
  8571. Server
  8572. Group
  8573. GroupType
  8574. GroupType
  8575. GroupType
  8576. GroupType
  8577. GroupType
  8578. GroupType
  8579.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S95S$11F
  8580. DisplayPersonName
  8581. Person
  8582. LastName
  8583. FirstName
  8584. MiddleInitial
  8585. AltFullName
  8586.     1S2S7S8S10S18S20S21S25S29S32S33S34S36S
  8587. DisplayName
  8588. Group
  8589. ListName
  8590. Server
  8591. ServerName
  8592. DisplayPersonName
  8593. FullName
  8594. DisplayPersonName
  8595.     0R1S2S5S6S8S12S15S24S25S27S31S34S
  8596. DisplayName
  8597.     0R4S
  8598. MAMailAddressAddress
  8599. MAMailAddress
  8600. Person
  8601. MailSystem
  8602. MailAddress
  8603. MailAddress
  8604. MailDomain
  8605. MailDomain"
  8606. FullName
  8607. FullName
  8608. MailDomain
  8609. MailDomain"
  8610. FirstName
  8611. FirstName
  8612. LastName"
  8613. MailDomain
  8614. MailDomain"
  8615. LastName
  8616. MailDomain
  8617. MailDomain"
  8618. Database
  8619. FullName
  8620. MailDomain
  8621. MailDomain"
  8622. Group
  8623. GroupType
  8624. GroupType
  8625. ListName
  8626.     3S4S5S6S19S20S27S28S39S40S42S46S48S49S52S53S55S56S57S59S71S72S79S80S86S87S94S95S102S103S104S106S110S112S113S117S118S120S121S122S124S128S129S130S131S132S139S145S
  8627. $24Namev
  8628. Group
  8629. ListName
  8630. FullName
  8631.     3S4S6S13S17S
  8632. TypeTypeMAPublicKeyPublic Key
  8633. MAPublicKey
  8634. Certificate
  8635. PublicKey
  8636. Certificate
  8637. PublicKey
  8638. Server
  8639. Certificate
  8640.     7S8S34S35S
  8641. AltFullNameAltFullName&
  8642. AltFullName
  8643. AltFullName
  8644. Categori_zeK
  8645. _Edit Document
  8646. Send Docu_ment
  8647. _Forward
  8648. _Move To Folder...
  8649. _Remove From FolderK
  8650. Categori_zeK
  8651. _Edit Document
  8652. Send Docu_ment
  8653. _Forward
  8654. _Move To Folder...
  8655. _Remove From FolderK
  8656. O=Lotus Notes
  8657. O=Lotus Notes
  8658. PURSAFO
  8659. |.:#U
  8660. O=Lotus Notes
  8661. CN=Lotus Notes Template Development/O=Lotus Notes
  8662. PURSAFO
  8663. $TITLE
  8664. $Index
  8665. $Formula
  8666. $FormulaClass
  8667. $VIEWFORMAT
  8668. $Comment
  8669. $V5ACTIONS
  8670. $ACTIONS
  8671. &Arial
  8672. New Group
  8673. ListNameJ
  8674. '++LotusScript Development Environment:2:5:(Options):0:74
  8675. Option Public
  8676. '++LotusScript Development Environment:2:5:(Forward):0:1
  8677. Declare Public Function QuickSort(sArray As Variant)
  8678. Declare Sub DoQS( sA() As String, bottom As Long, top As Long )
  8679. Declare Sub DoInsertSort ( sA() As String, Byval bottom As Long, Byval top As Long )    
  8680. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8681. Dim SortedArray As Variant
  8682. '++LotusScript Development Environment:2:1:QuickSort:1:8
  8683. Public Function QuickSort(sArray As Variant)
  8684.     Dim sA() As String    
  8685.     Dim j As Long
  8686.     Dim bottom As Long
  8687.     Dim top As Long
  8688.     bottom = Lbound ( sArray )
  8689.     top = Ubound ( sArray )
  8690.     Redim sA( bottom To top ) As String     
  8691.     For j = bottom To top
  8692.         sA ( j ) = sArray ( j )
  8693.     Next
  8694.      ' DoQS does a QuickSort if the Sublist is longer than 10 elements
  8695.      ' Thus, when DoQS finishes, all elements are within 10 spots of their correct location.
  8696.      ' For lists that are close to being in order, an Insertion Sort is much faster than a QuickSort, so we
  8697.      ' run through the whole thing once doing an Insertion Sort to finish tidying up the order.
  8698.     Call DoQS( sA, bottom, top )
  8699.     Call DoInsertSort ( sA, bottom, top )
  8700.     SortedArray = sA
  8701. End Function
  8702. '++LotusScript Development Environment:2:2:DoQS:1:8
  8703. Sub DoQS( sA() As String, bottom As Long, top As Long )
  8704.      ' Called by QuickSort
  8705.      ' Uses Public variable sA  (array of string)
  8706.     Dim length As Long
  8707.     Dim i As Long
  8708.     Dim j As Long
  8709.     Dim Pivot As Long
  8710.     Dim PivotValue As String
  8711.     Dim t As String
  8712.     Dim LastSmall As Long
  8713.     length = top - bottom + 1
  8714.      ' Only do the QuickSort if the sublist is at least 10 items long
  8715.     If length > 10 Then
  8716.           ' Pivot is chosen approx. halfway through sublist.
  8717.           ' This gives us best speed if list is almost sorted already, and is no worse than any
  8718.           ' other choice if the list is in random order.
  8719.         Pivot = bottom + (length \ 2)   
  8720.           ' Move PivotValue out of the way
  8721.         PivotValue = sA( Pivot )
  8722.         sA ( Pivot ) = sA ( bottom )
  8723.         sA ( bottom ) = PivotValue
  8724.           ' LastSmall is the location of the last value smaller than PivotValue
  8725.         LastSmall = bottom
  8726.         For i = bottom + 1 To top 
  8727.             If sA ( i ) < PivotValue Then 
  8728.                 LastSmall = LastSmall + 1
  8729.                 t = sA ( i )
  8730.                 sA ( i ) = sA ( LastSmall )
  8731.                 sA ( LastSmall ) = t
  8732.             End If
  8733.         Next
  8734.           ' Move the PivotValue back
  8735.         t = sA ( LastSmall )
  8736.         sA ( LastSmall ) = sA ( bottom )
  8737.         sA ( bottom ) = t
  8738.         Pivot = LastSmall
  8739.           ' Now sort each side
  8740.         Call DoQS ( sA, bottom, Pivot - 1 )
  8741.         Call DoQS ( sA, Pivot + 1, top )
  8742.     End If
  8743. End Sub
  8744. '++LotusScript Development Environment:2:2:DoInsertSort:1:8
  8745. Sub DoInsertSort ( sA() As String, Byval bottom As Long, Byval top As Long )    
  8746.     Dim i As Long
  8747.     Dim x As Long
  8748.     Dim v As String
  8749.     Dim Found As Integer
  8750.     For i = bottom+1 To top
  8751.         x = i
  8752.         v = sA (i )
  8753.         Do While (sA(x-1) > v)
  8754.             sA ( x ) = sA ( x-1 )
  8755.             x = x - 1
  8756.             If x=0 Then
  8757.                 Exit Do
  8758.             End If
  8759.         Loop
  8760.         sA (x) = v
  8761.     Next
  8762. End Sub
  8763. Lotus Product
  8764. OBJECT
  8765.  Group'++LotusScript Development Environment:2:5:(Options):0:66
  8766. '++LotusScript Development Environment:2:5:(Forward):0:1
  8767. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  8768. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8769. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8770. Private Sub BindEvents(Byval Objectname_ As String)
  8771.     Static Source As NOTESUIDOCUMENT
  8772.     Set Source = Bind(Objectname_)
  8773.     On Event Querysave From Source Call Querysave
  8774. End Sub
  8775. '++LotusScript Development Environment:2:2:Querysave:1:12
  8776. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  8777.     Dim db As NotesDatabase
  8778.     Dim doc As NotesDocument
  8779.     Dim profile As NotesDocument
  8780.     Dim uidoc As notesuidocument
  8781.     Dim flag As String
  8782.     Dim w As New NotesUIWorkspace 
  8783.     Dim s As New NotesSession
  8784.     Set db = s.CurrentDatabase
  8785.     Set uidoc=w.currentdocument
  8786.     Set doc = uidoc.document
  8787.     Set profile=db.GetProfileDocument("DirectoryProfile")
  8788.     If profile.GetItemValue("GroupSortDefault")(0)="1" Then
  8789.         On Error Resume Next
  8790.         'Because canonical names are used in combination with flat names
  8791.         'we need to abbreviate the list coming in to do the sort correctly.
  8792.         'otherwise, the sort would be off because canonical names internally all start with CN=
  8793.         'which causes a flat name to sort before a canonical one even if the first letter of the common name
  8794.         'comes before the first letter of the flat name.  To insure correct return values, we canonicalize before
  8795.         'we save the note.  We use Evaluate because it is faster to run the @Name on the list then looping 
  8796.         'through all possible members and abbreviating them in script.
  8797.         FieldList=Evaluate(|@Name([Abbreviate];Members)|,doc)
  8798.         Call QuickSort(FieldList)
  8799.         Call doc.ReplaceItemValue("Members",SortedArray)
  8800.         Call doc.ReplaceItemValue("Members", Evaluate(|@Name([Canonicalize];Members)|,doc))
  8801.         Call uidoc.refresh
  8802.     End If
  8803. End Sub
  8804. Lotus Product
  8805. OBJECT
  8806. Members
  8807.     0S0E
  8808. Members
  8809.     0S0E
  8810. Field Label
  8811. Rob Slapikoff-Rob
  8812.     0S0E
  8813. GroupTitle
  8814. GroupType
  8815. GroupType
  8816. GroupType
  8817. GroupType
  8818. GroupTitle
  8819. GROUP|0MAILING LIST|1ACCESS LIST|2DENY ACCESS LIST|3
  8820. ListName
  8821. ListName
  8822.     0S0E
  8823. DisplayName
  8824. Group
  8825.     0S0E
  8826.     Basics:
  8827. Group name (multiple names can be separated by commas).
  8828.     Group name:
  8829. ListName^
  8830.     0S0E
  8831. ListName
  8832. You must specify a group name
  8833. ListName
  8834. Invalid characters in Group name.  Names cannot contain '@' or '\'{
  8835.     3S4S6S11SListNameGroup name (multiple names can be separated by commas).
  8836. If this group will be used only for Mail, choose Mailing List, if it is going to be used for either database or server access, choose Database or Server Access Control, if it is going to be used as a Deny List or a member of a Deny List, choose Deny List.
  8837.     Group type:
  8838. GroupTypeChoose the appropriate type for this group.  
  8839. Multi-purpose|0Access Control List only|2Mail only|1Servers only|4Deny List only|3
  8840. Description or purpose of the group.
  8841.     Description:
  8842. ListDescriptionDescription or purpose of the group.
  8843. Distinquished names of people and groups who are members of the group.
  8844.     Members:
  8845. size=50
  8846. Members
  8847.     0S0E
  8848. MembersDistinquished names of people and groups who are members of the group.
  8849. Basics
  8850. $GroupExtensibleSchema
  8851. Administration
  8852. Distinguished names of people allowed to modify the group.
  8853.     Owners:
  8854. ListOwnerDistinguished names of people allowed to modify the group.
  8855. Enter the names or group names which you want to give edit capabilities to for this group record.
  8856.     Administrators:
  8857. LocalAdmin
  8858. Group entry is allowed to be sent to foreign directories, e.g. via directory synchronization gateways.
  8859.     Foreign directory sync allowed:
  8860. AvailableForDirSyncGroup entry is allowed to be sent to foreign directories, e.g. via directory synchronization gateways.
  8861. Yes|1No|0
  8862. Group
  8863. DocumentAccess
  8864. /Groups?OpenView]
  8865.     0S0E
  8866. $$Return
  8867. Categori_zeK
  8868. Save and Close>
  8869.     0S0E
  8870.     0S0E
  8871. Edit Group 
  8872.     0S0E
  8873. _Edit GroupK
  8874. Delete Group
  8875. AdminFileName
  8876. admin4.nsf
  8877.     0S0E
  8878. CurrentServer
  8879. CurrentServer
  8880. AdminFileName
  8881.     0RR6
  8882. Refresh (F9) 
  8883.     0S0E
  8884. Send Docu_ment
  8885. _Forward
  8886. _Move to Folder...    
  8887. _Remove from Folder...
  8888. Sort Member List'++LotusScript Development Environment:2:5:(Options):0:66
  8889. '++LotusScript Development Environment:2:5:(Forward):0:1
  8890. Declare Sub Click(Source As Button)
  8891. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8892. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8893. Private Sub BindEvents(Byval Objectname_ As String)
  8894.     Static Source As BUTTON
  8895.     Set Source = Bind(Objectname_)
  8896.     On Event Click From Source Call Click
  8897. End Sub
  8898. '++LotusScript Development Environment:2:2:Click:1:12
  8899. Sub Click(Source As Button)
  8900.     Dim db As NotesDatabase
  8901.     Dim doc As NotesDocument
  8902.     Dim uidoc As notesuidocument
  8903.     Dim flag As String
  8904.     Dim w As New NotesUIWorkspace 
  8905.     Dim s As New NotesSession
  8906.     Set db = s.CurrentDatabase
  8907.     Set uidoc=w.currentdocument
  8908.     Set doc = uidoc.document
  8909.     On Error Resume Next
  8910.     'Because canonical names are used in combination with flat names
  8911.     'we need to abbreviate the list coming in to do the sort correctly.
  8912.     'otherwise, the sort would be off because canonical names internally all start with CN=
  8913.     'which causes a flat name to sort before a canonical one even if the first letter of the common name
  8914.     'comes before the first letter of the flat name.  To insure correct return values, we canonicalize before
  8915.     'we save the note.  We use Evaluate because it is faster to run the @Name on the list then looping 
  8916.     'through all possible members and abbreviating them in script.
  8917.     FieldList=Evaluate(|@Name([Abbreviate];Members)|,doc)
  8918.     Call QuickSort(FieldList)
  8919.     Call doc.ReplaceItemValue("Members",SortedArray)
  8920.     Call doc.ReplaceItemValue("Members", Evaluate(|@Name([Canonicalize];Members)|,doc))
  8921.     Call uidoc.refresh
  8922. End Sub
  8923. Categori_zeK
  8924. Save and Close>
  8925.     0S0E
  8926.     0S0E
  8927. Edit Group 
  8928.     0S0E
  8929. _Edit GroupK
  8930. Delete Group
  8931. AdminFileName
  8932. admin4.nsf
  8933.     0S0E
  8934. CurrentServer
  8935. CurrentServer
  8936. AdminFileName
  8937.     0RR6
  8938. Refresh (F9) 
  8939.     0S0E
  8940. Send Docu_ment
  8941. _Forward
  8942. _Move to Folder...    
  8943. _Remove from Folder...
  8944. Sort Member List'++LotusScript Development Environment:2:5:(Options):0:66
  8945. '++LotusScript Development Environment:2:5:(Forward):0:1
  8946. Declare Sub Click(Source As Button)
  8947. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8948. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8949. Private Sub BindEvents(Byval Objectname_ As String)
  8950.     Static Source As BUTTON
  8951.     Set Source = Bind(Objectname_)
  8952.     On Event Click From Source Call Click
  8953. End Sub
  8954. '++LotusScript Development Environment:2:2:Click:1:12
  8955. Sub Click(Source As Button)
  8956.     Dim db As NotesDatabase
  8957.     Dim doc As NotesDocument
  8958.     Dim uidoc As notesuidocument
  8959.     Dim flag As String
  8960.     Dim w As New NotesUIWorkspace 
  8961.     Dim s As New NotesSession
  8962.     Set db = s.CurrentDatabase
  8963.     Set uidoc=w.currentdocument
  8964.     Set doc = uidoc.document
  8965.     On Error Resume Next
  8966.     'Because canonical names are used in combination with flat names
  8967.     'we need to abbreviate the list coming in to do the sort correctly.
  8968.     'otherwise, the sort would be off because canonical names internally all start with CN=
  8969.     'which causes a flat name to sort before a canonical one even if the first letter of the common name
  8970.     'comes before the first letter of the flat name.  To insure correct return values, we canonicalize before
  8971.     'we save the note.  We use Evaluate because it is faster to run the @Name on the list then looping 
  8972.     'through all possible members and abbreviating them in script.
  8973.     FieldList=Evaluate(|@Name([Abbreviate];Members)|,doc)
  8974.     Call QuickSort(FieldList)
  8975.     Call doc.ReplaceItemValue("Members",SortedArray)
  8976.     Call doc.ReplaceItemValue("Members", Evaluate(|@Name([Canonicalize];Members)|,doc))
  8977.     Call uidoc.refresh
  8978. End Sub
  8979. Lotus Product
  8980. OBJECT
  8981. Members
  8982.     0S0E
  8983. Members
  8984.     0S0E
  8985. O=Lotus Notes
  8986. O=Lotus Notes
  8987. PURSAFO
  8988. |.:#U
  8989. O=Lotus Notes
  8990. CN=Lotus Notes Template Development/O=Lotus Notes
  8991. PURSAFO
  8992. $FormUsers
  8993. $INFO
  8994. $SubForms
  8995. $WINDOWTITLE
  8996. $Script
  8997. $$Script_O
  8998. $$ScriptName
  8999. $$FormScript
  9000. $$$FormScript_O
  9001. $BODY
  9002. $V5ACTIONS
  9003. $ACTIONS
  9004. $SCRIPTOBJ_10
  9005. &Arial
  9006. New Certificate
  9007. Cross Certificate for: 
  9008. IssuedTo
  9009.  by "
  9010. IssuedBy
  9011.     4S15S
  9012.  CrossCertificate
  9013. Field Label
  9014.     0S0E
  9015. CROSS CERTIFICATE
  9016. IssuedBy
  9017. IssuedBy
  9018. IssuedTo
  9019.     16S17S18S19S
  9020. DisplayName
  9021.     Basics
  9022.     Certificate type:
  9023. CertificateType
  9024. CertificateType
  9025. CertificateType
  9026. Notes Cross-Certificate|0Internet Cross-Certificate|1
  9027.     Issued By:
  9028. IssuedBy
  9029. DisplayIssuedByCertifier issuing the certificate
  9030.     Issued To:
  9031. IssuedTo
  9032. DisplayIssuedToCertifier being certified
  9033. CertificateType
  9034.     0S0E
  9035.     Combined Name:
  9036. NameCombo
  9037. NameComboTop level organization of issuer
  9038.     Comment:
  9039. CommentShort comment about this person (optional)
  9040.     Organizations:
  9041. OrgCombo
  9042. OrgComboTop level organization of issuer
  9043.     X.509 certificate
  9044. UserCertificate
  9045. UserCertificate
  9046.     6S7S
  9047. UserCertificateDisplay
  9048. Present|1Not Available|0
  9049.     Certified Public Key:
  9050. Certificate_NoEnc
  9051. Certificate_NoEncCertifier's certified public key (not for encrypted mail)
  9052. Basics
  9053. Administration
  9054.     Owners:
  9055. Owner
  9056.     Administrators:
  9057. LocalAdmin
  9058. CrossCertificate
  9059. DocumentAccess
  9060. Categori_zeK
  9061. Save and Close>
  9062.     0S0E
  9063.     0S0E
  9064. _Edit Certificate
  9065. Remove X.509 Certificate(s)K
  9066. UserCertificate
  9067.     0S0E
  9068. leftsubs
  9069. rightsubs
  9070. Delete Cert
  9071. What certificate(s) do you want to delete?
  9072. leftsubs
  9073.     0R1S2S6S8S10S12S
  9074.     0R5S6S
  9075. leftsubsv
  9076. leftsubsj
  9077. rightsubs
  9078. rightsubs
  9079. rightsubs
  9080. UserCertificate
  9081.     0R4S6S
  9082. Send Docu_ment
  9083. _Forward
  9084. _Move to Folder...
  9085. _Remove from Folder...
  9086. Categori_zeK
  9087. Save and Close>
  9088.     0S0E
  9089.     0S0E
  9090. _Edit Certificate
  9091. Remove X.509 Certificate(s)K
  9092. UserCertificate
  9093.     0S0E
  9094. leftsubs
  9095. rightsubs
  9096. Delete Cert
  9097. What certificate(s) do you want to delete?
  9098. leftsubs
  9099.     0R1S2S6S8S10S12S
  9100.     0R5S6S
  9101. leftsubsv
  9102. leftsubsj
  9103. rightsubs
  9104. rightsubs
  9105. rightsubs
  9106. UserCertificate
  9107.     0R4S6S
  9108. Send Docu_ment
  9109. _Forward
  9110. _Move to Folder...
  9111. _Remove from Folder...
  9112. O=Lotus Notes
  9113. O=Lotus Notes
  9114. PURSAFO
  9115. |.:#U
  9116. O=Lotus Notes
  9117. CN=Lotus Notes Template Development/O=Lotus Notes
  9118. PURSAFO
  9119. $INFO
  9120. $WINDOWTITLE
  9121. $$Script_O
  9122. $$ScriptName
  9123. $BODY
  9124. $V5ACTIONS
  9125. $ACTIONS
  9126. Categori_zeK
  9127. _Edit Document
  9128. Send Docu_ment
  9129. _Forward
  9130. _Move to Folder...
  9131. _Remove from FolderK
  9132. O=Lotus Notes
  9133. O=Lotus Notes
  9134. PURSAFO
  9135. |.:#U
  9136. O=Lotus Notes
  9137. CN=Lotus Notes Template Development/O=Lotus Notes
  9138. PURSAFO
  9139. $TITLE
  9140. $Index
  9141. $Formula
  9142. $FormulaClass
  9143. $VIEWFORMAT
  9144. $Comment
  9145. $ACTIONS
  9146. (Parts)
  9147. Administration
  9148.     Owners:
  9149. OwnerDistinguished names of people allowed to modify the group.
  9150.     Administrators:
  9151. LocalAdmin
  9152. Categori_zeK
  9153. _Edit Document
  9154. Send Docu_ment
  9155. _Forward
  9156. _Move to Folder...
  9157. _Remove from Folder...
  9158. O=Lotus Notes
  9159. O=Lotus Notes
  9160. PURSAFO
  9161. |.:#U
  9162. O=Lotus Notes
  9163. CN=Lotus Notes Template Development/O=Lotus Notes
  9164. PURSAFO
  9165. "dVn;d
  9166. $TITLE
  9167. $INFO
  9168. $$ScriptName
  9169. $BODY
  9170. $ACTIONS
  9171. New Certifier
  9172. FullName
  9173.     4S6S
  9174. 5Courier New
  9175.  Certifier
  9176.     0S0E
  9177. CERTIFIER
  9178. FullName
  9179. FullName
  9180.     0S0E
  9181. DisplayName1
  9182.     Basics
  9183.     Certifier type:
  9184. CertificateType
  9185. CertificateType
  9186. CertificateType
  9187. Notes Certifier|0Internet Certifier|1
  9188. Distinguished name of certifier.
  9189.     Certifier name:
  9190. FullNameDistinguished name of certifier.
  9191. Certifier issuing the certificate
  9192.     Issued by:
  9193. IssuedByCertifier issuing the certificate
  9194.     Issued to:
  9195. CertificateType
  9196. IssuedTo
  9197. FullName
  9198.     0S0E
  9199. IssuedTo
  9200.     X.509 certificate
  9201. UserCertificate
  9202. UserCertificate
  9203.     6S7S
  9204. UserCertificateDisplay
  9205. Present|1Not Available|0
  9206. Certifier's certified public key (not for encrypted mail)
  9207.     Certified public key:
  9208. Certificate_NoEncCertifier's certified public key (not for encrypted mail)
  9209. Basics
  9210. CertificateType
  9211.     0S0E
  9212.     Contact
  9213.     E-Mail
  9214. Company name.
  9215.     Company:
  9216. CompanyNameCompany name.
  9217. Mail server name - e.g. Marketing/Acme.
  9218.     Notes mail server:
  9219. MailServer^
  9220. MailServerMail server name - e.g. Marketing/Acme.
  9221. Department name(s).
  9222.     Department:
  9223. DepartmentDepartment name(s).
  9224. Mail file name - e.g. MAIL\JSMITH.
  9225.     Notes mail filename:
  9226. MailFile^
  9227. MailFileMail file name - e.g. MAIL\JSMITH.
  9228. Office location or mailstop
  9229.     Location:
  9230. LocationOffice location or mailstop
  9231. Optional mail address to forward to - e.g. John Smith @ XYZ.
  9232.     Other mail address:
  9233. MailAddress
  9234. MailAddressOptional mail address to forward to - e.g. John Smith @ XYZ.
  9235. Office phone number
  9236.     Office phone:
  9237. OfficePhoneNumberOffice phone number
  9238. Short comment about this person (optional)
  9239.     Comment:
  9240. CommentShort comment about this person (optional)
  9241. Contact Information
  9242. $CertifierExtensibleSchema
  9243. Other
  9244. Administration
  9245.     Owners:
  9246. Owner
  9247.     Administrators:
  9248. LocalAdmin
  9249.     Change request:
  9250. ChangeRequestPerson's public key.
  9251. Certifier
  9252. DocumentAccess
  9253. Categori_zeK
  9254. Save and Close>
  9255.     0S0E
  9256.     0S0E
  9257. _Edit CertifierK
  9258. Remove X.509 Certificate(s)K
  9259. UserCertificate
  9260.     0S0E
  9261. leftsubs
  9262. rightsubs
  9263. Delete Cert
  9264. What certificate(s) do you want to delete?
  9265. leftsubs
  9266.     0R1S2S6S8S10S12S
  9267.     0R5S6S
  9268. leftsubsv
  9269. leftsubsj
  9270. rightsubs
  9271. rightsubs
  9272. rightsubs
  9273. UserCertificate
  9274.     0R4S6S
  9275. Send Docu_ment
  9276. Create Cross Certificatep
  9277. UserCertificate
  9278. Certificate_NoEnc
  9279.     0S0E
  9280. leftsubs
  9281. rightsubs
  9282. Create Cross Certificate
  9283. What certificate do you want to cross certify?
  9284. leftsubs
  9285.     0R1S2S6S8S10S12S
  9286.     0R5S6S
  9287. leftsubsv
  9288. leftsubsj
  9289. rightsubs
  9290. UserCertificate
  9291. Certificate_NoEnc
  9292. _Forward
  9293. _Move to Folder...
  9294. _Remove from Folder...    
  9295. Categori_zeK
  9296. Save and Close>
  9297.     0S0E
  9298.     0S0E
  9299. _Edit CertifierK
  9300. Remove X.509 Certificate(s)K
  9301. UserCertificate
  9302.     0S0E
  9303. leftsubs
  9304. rightsubs
  9305. Delete Cert
  9306. What certificate(s) do you want to delete?
  9307. leftsubs
  9308.     0R1S2S6S8S10S12S
  9309.     0R5S6S
  9310. leftsubsv
  9311. leftsubsj
  9312. rightsubs
  9313. rightsubs
  9314. rightsubs
  9315. UserCertificate
  9316.     0R4S6S
  9317. Send Docu_ment
  9318. Create Cross Certificatep
  9319. UserCertificate
  9320. Certificate_NoEnc
  9321.     0S0E
  9322. leftsubs
  9323. rightsubs
  9324. Create Cross Certificate
  9325. What certificate do you want to cross certify?
  9326. leftsubs
  9327.     0R1S2S6S8S10S12S
  9328.     0R5S6S
  9329. leftsubsv
  9330. leftsubsj
  9331. rightsubs
  9332. UserCertificate
  9333. Certificate_NoEnc
  9334. _Forward
  9335. _Move to Folder...
  9336. _Remove from Folder...    
  9337. O=Lotus Notes
  9338. O=Lotus Notes
  9339. PURSAFO
  9340. |.:#U
  9341. O=Lotus Notes
  9342. CN=Lotus Notes Template Development/O=Lotus Notes
  9343. PURSAFO
  9344. }%6[?
  9345. P5;$0
  9346. $FormUsers
  9347. $INFO
  9348. $SubForms
  9349. $WINDOWTITLE
  9350. $$Script_O
  9351. $$ScriptName
  9352. $BODY
  9353. $V5ACTIONS
  9354. $ACTIONS
  9355. FullName
  9356.     1S2S6S
  9357. CommonName
  9358.     0R1S2S6S
  9359. ListNameh
  9360. ListName
  9361. ListNamex
  9362. ListName
  9363. ListName
  9364. Database
  9365. FullNamex
  9366. FullName
  9367. FullName
  9368. FirstName
  9369. LastName
  9370. FullName
  9371. CommonName
  9372. ShortName
  9373. LastNamex
  9374. Lastname
  9375. FirstName
  9376. MiddleInitial
  9377. FullName
  9378. AltFullName
  9379. AltFullName
  9380. InternetAddress
  9381.     0R4R11S14S15S19S20S26S29S33S36S40RS7E41S42S44S48S49S50S51S55S58RS7E59S60S61S62S63S64S65S66S67S68S72S73S75S76S77S78S79S80S81S82S84S85S89S91S92S93S94S98S100S101S
  9382. ListNameh
  9383. ListName
  9384. FullName
  9385.     7S9S
  9386. Person
  9387. Certificate
  9388. Certificate
  9389. UserCertificate
  9390.     14S15S
  9391. AltFullName
  9392. AltFullName
  9393. ServerName
  9394. ServerName
  9395. $38$23FullNameListNameMembersMailServerMailFileMailDomainMailAddressShortNameLocationEncryptIncomingMailCalendarDomainNetUserNameHTTPPasswordCertificateThumbprintInternetAddressNewMailServerNewMailFileAltFullNameMessageStorageServerName$Conflict$REF
  9396. Person
  9397. LoginUser
  9398. Certifier
  9399. Database
  9400. Group
  9401. GroupType
  9402. GroupType
  9403.     L1S3S4S5S6S7S8S9S10S11S12S13S17S18S20S21S22S24S26S27S
  9404. $38Name
  9405. FullName
  9406.     1S2S6S
  9407. CommonName
  9408.     0R1S2S6S
  9409. ListNameh
  9410. ListName
  9411. ListNamex
  9412. ListName
  9413. ListName
  9414. Database
  9415. FullNamex
  9416. FullName
  9417. FullName
  9418. FirstName
  9419. LastName
  9420. FullName
  9421. CommonName
  9422. ShortName
  9423. LastNamex
  9424. Lastname
  9425. FirstName
  9426. MiddleInitial
  9427. FullName
  9428. AltFullName
  9429. AltFullName
  9430. InternetAddress
  9431.     0R4R11S14S15S19S20S26S29S33S36S40RS7E41S42S44S48S49S50S51S55S58RS7E59S60S61S62S63S64S65S66S67S68S72S73S75S76S77S78S79S80S81S82S84S85S89S91S92S93S94S98S100S101S$23ListName & FullNameP
  9432. ListNameh
  9433. ListName
  9434. FullName
  9435.     7S9S
  9436. FullNameFullNameListNameListNameMembersMembersMailServerMailServerMailFileMailFileMailDomainMailDomainMailAddressMailAddressShortNameShortNameLocationLocationEncryptIncomingMailEncryptIncomingMailCalendarDomainCalendarDomainNetUserNameNetUserNameHTTPPasswordHTTPPasswordCertificateThumbprintCertThumbprint
  9437. Person
  9438. Certificate
  9439. Certificate
  9440. UserCertificate
  9441.     14S15S
  9442. InternetAddressInternetAddressNewMailServerNewMailServerNewMailFileNewMailFileAltFullNameAltFullName&
  9443. AltFullName
  9444. AltFullName
  9445. MessageStorageMessageStorageServerNameServerName"
  9446. ServerName
  9447. ServerName
  9448. Categori_zeK
  9449. _Edit Document
  9450. Send Docu_ment
  9451. _Forward
  9452. _Move to Folder...
  9453. _Remove from Folder...
  9454. Categori_zeK
  9455. _Edit Document
  9456. Send Docu_ment
  9457. _Forward
  9458. _Move to Folder...
  9459. _Remove from Folder...
  9460. O=Lotus Notes
  9461. O=Lotus Notes
  9462. PURSAFO
  9463. |.:#U
  9464. O=Lotus Notes
  9465. CN=Lotus Notes Template Development/O=Lotus Notes
  9466. PURSAFO
  9467. $TITLE
  9468. $Index
  9469. $Formula
  9470. $FormulaClass
  9471. $VIEWFORMAT
  9472. $Comment
  9473. $V5ACTIONS
  9474. $ACTIONS
  9475. _Edit Document
  9476. _Save Document
  9477. Save as New _Version
  9478. Send Docu_ment
  9479. Categori_ze
  9480. _Rename Document
  9481. O=Lotus Notes
  9482. O=Lotus Notes
  9483. PURSAFO
  9484. |.:#U
  9485. O=Lotus Notes
  9486. CN=Lotus Notes Template Development/O=Lotus Notes
  9487. PURSAFO
  9488. A~ZjL    
  9489. $Author
  9490. $ACTIONS
  9491. $TITLE
  9492. $Index
  9493. $Formula
  9494. $FormulaClass
  9495. $VIEWFORMAT
  9496. $Comment
  9497.  $6Type<
  9498. Person
  9499. $1FullName/ListNamel
  9500. Person
  9501. Fullname
  9502. ListName
  9503. $0FirstName&
  9504. FirstName
  9505. $2Middle Initial*
  9506. MiddleInitial
  9507. $3LastName$
  9508. LastName
  9509. $8MailAddress<
  9510. XDomain
  9511. MailDomain
  9512. MailDomain"
  9513.     1S2S5S6S8S9S10S12S
  9514. Person
  9515. MailAddress
  9516. MailAddress
  9517. FullName
  9518. XDomain
  9519. Listname
  9520.     0R9S10S12S14S18S20S21S
  9521. $5Comment/List DescriptionP
  9522. Person
  9523. Comment
  9524. ListDescription
  9525. MembersMembers&
  9526. Categori_zeK
  9527. _Edit Document
  9528. Send Docu_ment
  9529. _Forward
  9530. _Move To Folder...
  9531. _Remove From FolderK
  9532. O=Lotus Notes
  9533. O=Lotus Notes
  9534. PURSAFO
  9535. |.:#U
  9536. O=Lotus Notes
  9537. CN=Lotus Notes Template Development/O=Lotus Notes
  9538. PURSAFO
  9539. wQr=omg
  9540. $$*qu
  9541. $Author
  9542. $TITLE
  9543. $Index
  9544. $Formula
  9545. $FormulaClass
  9546. $VIEWFORMAT
  9547. $Comment
  9548. $ACTIONS
  9549. Categori_zeK
  9550. _Edit Document
  9551. Send Docu_ment
  9552. _Forward
  9553. _Move To Folder...
  9554. _Remove From FolderK
  9555. O=Lotus Notes
  9556. O=Lotus Notes
  9557. PURSAFO
  9558. |.:#U
  9559. O=Lotus Notes
  9560. CN=Lotus Notes Template Development/O=Lotus Notes
  9561. PURSAFO
  9562. $Author
  9563. $TITLE
  9564. $Index
  9565. $Formula
  9566. $FormulaClass
  9567. $VIEWFORMAT
  9568. $Comment
  9569. $ACTIONS
  9570. Categori_zeK
  9571. _Edit Document
  9572. Send Docu_ment
  9573. _Forward
  9574. _Move to Folder...
  9575. _Remove from FolderK
  9576. O=Lotus Notes
  9577. O=Lotus Notes
  9578. PURSAFO
  9579. |.:#U
  9580. O=Lotus Notes
  9581. CN=Lotus Notes Template Development/O=Lotus Notes
  9582. PURSAFO
  9583. $TITLE
  9584. $Index
  9585. $Formula
  9586. $FormulaClass
  9587. $VIEWFORMAT
  9588. $Comment
  9589. $ACTIONS
  9590. Brian Lambert($VIMPeople)
  9591. Fullname
  9592. FirstName
  9593. MiddleInitial
  9594. LastName
  9595. XDomain
  9596. MailDomain
  9597. MailDomain"
  9598. MailAddress
  9599. MailAddress
  9600. FullName
  9601. XDomain
  9602. $1$0$2$3$4Comment$Conflict$REF
  9603. Person
  9604.     1S2S3S4S5S
  9605. $1FullName0
  9606. Fullname
  9607. $0FirstName&
  9608. FirstName
  9609. $2Middle Initial*
  9610. MiddleInitial
  9611. $3LastName$
  9612. LastName
  9613. $4MailAddress
  9614. XDomain
  9615. MailDomain
  9616. MailDomain"
  9617. MailAddress
  9618. MailAddress
  9619. FullName
  9620. XDomain
  9621. CommentComment&
  9622. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  9623. ($Adminp)/O
  9624. LocalAdmin
  9625. Owner
  9626. Source
  9627. ServerName
  9628. ListName
  9629. Destination
  9630. AllowAccess
  9631. CreateAccess
  9632. ReplicaAccess
  9633. Administrator
  9634. PTAccess
  9635. PTClients
  9636. PTCallers
  9637. PTTargets
  9638. PrivateList
  9639. RestrictedList
  9640. UnrestrictedList
  9641. ListOwner
  9642. MailServer
  9643. PassthruServer
  9644. FullName
  9645. SMTPAdministrator
  9646. DefaultPassthruServer
  9647. InterNotes
  9648. MailAddress
  9649. GroupType
  9650. Members
  9651.     10S22S28S30S32S
  9652. $17$Conflict$REF
  9653. Person
  9654. GroupType
  9655. Group
  9656.     L1S2E4S5S9S10S
  9657. $17Names
  9658. LocalAdmin
  9659. Owner
  9660. Source
  9661. ServerName
  9662. ListName
  9663. Destination
  9664. AllowAccess
  9665. CreateAccess
  9666. ReplicaAccess
  9667. Administrator
  9668. PTAccess
  9669. PTClients
  9670. PTCallers
  9671. PTTargets
  9672. PrivateList
  9673. RestrictedList
  9674. UnrestrictedList
  9675. ListOwner
  9676. MailServer
  9677. PassthruServer
  9678. FullName
  9679. SMTPAdministrator
  9680. DefaultPassthruServer
  9681. InterNotes
  9682. MailAddress
  9683. GroupType
  9684. Members
  9685.     10S22S28S30S32S&
  9686. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  9687. ##########################################################
  9688. $RLANRASMicrosoft Dial-Up NetworkingRASCU3
  9689. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  9690. ]$ConFormRLANSubformCUA3
  9691. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
  9692. LocationLocation[NetCreator]$LotusFaxLocationSubform | 1.0 | $LotusFaxLocationSubform
  9693. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  9694. Q(ProxyDialog)CD
  9695. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  9696.     $GroupExtensibleSchemaCUA3Pr
  9697. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  9698. ($PeopleGroupsCorpHier)1+
  9699. $55PersonalID$60
  9700. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
  9701.     ($PeopleGroupsByLang)1
  9702. $8$11
  9703. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
  9704. $RLANOTPPPMacintosh PPPOTPPPCU3
  9705. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  9706. $LotusFaxLocationSubform1.0$LotusFaxLocationSubformCUA3
  9707. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
  9708. $CertifierExtensibleSchemaCUA3Pr
  9709. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  9710. ($MailGroups)/O
  9711. Remove all members that contain domain names (e.g. @ Domain)
  9712. CanonicalMembers
  9713. Members
  9714. CanonicalMembers
  9715. CanonicalMembers
  9716. CanonicalMembers
  9717. $1ListName$Conflict$REF
  9718. Group
  9719. GroupType
  9720. Group
  9721.     L1S3S4S5S6S10S11S1
  9722. $1Name$
  9723. Remove all members that contain domain names (e.g. @ Domain)
  9724. CanonicalMembers
  9725. Members
  9726. CanonicalMembers
  9727. CanonicalMembers
  9728. CanonicalMembers
  9729. ListNameListName&
  9730. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  9731. ##########################################################
  9732. ##########################################################
  9733. ##########################################################
  9734. ##########################################################
  9735. ##########################################################
  9736. ##########################################################
  9737. ##########################################################
  9738. ##########################################################
  9739. ##########################################################
  9740. ##########################################################
  9741. ##########################################################
  9742. ##########################################################
  9743. ##########################################################
  9744. ##########################################################
  9745. ##########################################################
  9746. ##########################################################
  9747. ##########################################################
  9748. ##########################################################
  9749. ##########################################################
  9750. ##########################################################
  9751. ##########################################################
  9752. ##########################################################
  9753. ##########################################################
  9754. ##########################################################
  9755. ##########################################################
  9756. ##########################################################
  9757. ##########################################################
  9758. ##########################################################
  9759. ##########################################################
  9760. ##########################################################
  9761. ##########################################################
  9762. ##########################################################
  9763. ##########################################################
  9764. ##########################################################
  9765. ##########################################################
  9766. ##########################################################
  9767. ##########################################################
  9768. ##########################################################
  9769. ##########################################################
  9770. ##########################################################
  9771. ##########################################################
  9772. ##########################################################
  9773. ##########################################################
  9774. ##########################################################
  9775. ##########################################################
  9776. ##########################################################
  9777. ##########################################################
  9778. ##########################################################
  9779. ##########################################################
  9780. ##########################################################
  9781. ##########################################################
  9782. ##########################################################
  9783. ##########################################################
  9784. ##########################################################
  9785. ##########################################################
  9786. ##########################################################
  9787. ##########################################################
  9788. ##########################################################
  9789. ##########################################################
  9790. ##########################################################
  9791. ##########################################################
  9792. ##########################################################
  9793. ##########################################################
  9794. ##########################################################
  9795. ##########################################################
  9796. ##########################################################
  9797. ##########################################################
  9798. ##########################################################
  9799. ##########################################################
  9800. ##########################################################
  9801. ##########################################################
  9802. ##########################################################
  9803. ##########################################################
  9804. ##########################################################
  9805. ##########################################################
  9806. ##########################################################
  9807. ##########################################################
  9808. ##########################################################
  9809. ##########################################################
  9810. ##########################################################
  9811. ##########################################################
  9812. ##########################################################
  9813. ##########################################################
  9814. ##########################################################
  9815. ##########################################################
  9816. ##########################################################
  9817. ##########################################################
  9818. ##########################################################
  9819. ##########################################################
  9820. ##########################################################
  9821. ##########################################################
  9822. ##########################################################
  9823. ##########################################################
  9824. ##########################################################
  9825. ##########################################################
  9826. ##########################################################
  9827. ##########################################################
  9828. ##########################################################
  9829. ##########################################################
  9830. ##########################################################
  9831. ##########################################################
  9832. ##########################################################
  9833. ##########################################################
  9834. ##########################################################
  9835. ##########################################################
  9836. ##########################################################
  9837. ##########################################################
  9838. ##########################################################
  9839. ##########################################################
  9840. ##########################################################
  9841. ##########################################################
  9842. ##########################################################
  9843. ##########################################################
  9844. _Edit Document
  9845. _Save Document
  9846. Save as New _Version
  9847. Send Docu_ment
  9848. Categori_ze
  9849. _Rename Document
  9850. O=Lotus Notes
  9851. O=Lotus Notes
  9852. PURSAFO
  9853. |.:#U
  9854. O=Lotus Notes
  9855. CN=Lotus Notes Template Development/O=Lotus Notes
  9856. PURSAFO
  9857. $Author
  9858. $ACTIONS
  9859. $TITLE
  9860. $Index
  9861. $Formula
  9862. $FormulaClass
  9863. $VIEWFORMAT
  9864. $Comment
  9865. Person
  9866. Database
  9867. ResourceFlagh
  9868. ResourceType
  9869. ResourceFlag
  9870. ResourceFlagh
  9871. ResourceType
  9872. ResourceFlag
  9873. Server
  9874. Group
  9875. GroupType
  9876. GroupType
  9877. GroupType
  9878. GroupType
  9879. GroupType
  9880. GroupType
  9881.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S95S
  9882. DisplayPersonName
  9883. Person
  9884. LastName
  9885. FirstName
  9886. MiddleInitial
  9887. AltFullName
  9888.     1S2S7S8S10S18S20S21S25S29S32S33S34S36S
  9889. DisplayName
  9890. Group
  9891. ListName
  9892. Server
  9893. ServerName
  9894. DisplayPersonName
  9895. FullName
  9896. DisplayPersonName
  9897.     0R1S2S5S6S8S12S15S24S25S27S31S34S
  9898. DisplayName
  9899.     0R4S
  9900. MAMailAddress
  9901. Person
  9902. MailSystem
  9903. MailAddress
  9904. MailAddress
  9905. FullName
  9906. FullName
  9907. FirstName
  9908. FirstName
  9909. LastName"
  9910. LastName
  9911. Database
  9912. FullName
  9913. Group
  9914. GroupType
  9915. GroupType
  9916. ListName
  9917.     3S4S5S6S26S27S29S33S49S50S51S53S57S61S62S63S64S65S72S78S
  9918. NPName
  9919. Group
  9920. ListName
  9921. Server
  9922. ServerName
  9923. Person
  9924. Database
  9925. FullName
  9926.     3S4S6S25S29S
  9927. MAPublicKey
  9928. Certificate
  9929. PublicKey
  9930. Certificate
  9931. PublicKey
  9932. Server
  9933. Certificate
  9934.     7S8S34S35S
  9935. AltFullName
  9936. AltFullName
  9937. GroupType
  9938. GroupType
  9939. $48$39MAMailAddressNPNameTypeMAPublicKeyAltFullNameGroupType$Conflict$REF
  9940. Person
  9941. Group
  9942. Database
  9943. Server
  9944.     L1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S
  9945. Person
  9946. Database
  9947. ResourceFlagh
  9948. ResourceType
  9949. ResourceFlag
  9950. ResourceFlagh
  9951. ResourceType
  9952. ResourceFlag
  9953. Server
  9954. Group
  9955. GroupType
  9956. GroupType
  9957. GroupType
  9958. GroupType
  9959. GroupType
  9960. GroupType
  9961.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S95S$39:
  9962. DisplayPersonName
  9963. Person
  9964. LastName
  9965. FirstName
  9966. MiddleInitial
  9967. AltFullName
  9968.     1S2S7S8S10S18S20S21S25S29S32S33S34S36S
  9969. DisplayName
  9970. Group
  9971. ListName
  9972. Server
  9973. ServerName
  9974. DisplayPersonName
  9975. FullName
  9976. DisplayPersonName
  9977.     0R1S2S5S6S8S12S15S24S25S27S31S34S
  9978. DisplayName
  9979.     0R4S
  9980. MAMailAddressAddress
  9981. MAMailAddress
  9982. Person
  9983. MailSystem
  9984. MailAddress
  9985. MailAddress
  9986. FullName
  9987. FullName
  9988. FirstName
  9989. FirstName
  9990. LastName"
  9991. LastName
  9992. Database
  9993. FullName
  9994. Group
  9995. GroupType
  9996. GroupType
  9997. ListName
  9998.     3S4S5S6S26S27S29S33S49S50S51S53S57S61S62S63S64S65S72S78S
  9999. NPNameName
  10000. NPName
  10001. Group
  10002. ListName
  10003. Server
  10004. ServerName
  10005. Person
  10006. Database
  10007. FullName
  10008.     3S4S6S25S29S
  10009. TypeTypeMAPublicKeyPublic Key
  10010. MAPublicKey
  10011. Certificate
  10012. PublicKey
  10013. Certificate
  10014. PublicKey
  10015. Server
  10016. Certificate
  10017.     7S8S34S35S
  10018. AltFullNameAltFullName&
  10019. AltFullName
  10020. AltFullName
  10021. GroupTypeGroupType"
  10022. GroupType
  10023. GroupType
  10024. Categori_zeK
  10025. _Edit Document
  10026. Send Docu_ment
  10027. _Forward
  10028. _Move to Folder...
  10029. _Remove from Folder...
  10030. Categori_zeK
  10031. _Edit Document
  10032. Send Docu_ment
  10033. _Forward
  10034. _Move to Folder...
  10035. _Remove from Folder...
  10036. O=Lotus Notes
  10037. O=Lotus Notes
  10038. PURSAFO
  10039. |.:#U
  10040. O=Lotus Notes
  10041. CN=Lotus Notes Template Development/O=Lotus Notes
  10042. PURSAFO
  10043. $TITLE
  10044. $Index
  10045. $Formula
  10046. $FormulaClass
  10047. $VIEWFORMAT
  10048. $Comment
  10049. $V5ACTIONS
  10050. $ACTIONS
  10051. Categori_zeK
  10052. _Edit Document
  10053. Send Docu_ment
  10054. _Forward
  10055. _Move to Folder...
  10056. _Remove from Folder...
  10057. O=Lotus Notes
  10058. O=Lotus Notes
  10059. PURSAFO
  10060. |.:#U
  10061. O=Lotus Notes
  10062. CN=Lotus Notes Template Development/O=Lotus Notes
  10063. PURSAFO
  10064. $TITLE
  10065. $Index
  10066. $Formula
  10067. $FormulaClass
  10068. $VIEWFORMAT
  10069. $Comment
  10070. $ACTIONS
  10071. O=Lotus Notes
  10072. O=Lotus Notes
  10073. PURSAFO
  10074. |.:#U
  10075. O=Lotus Notes
  10076. CN=Lotus Notes Template Development/O=Lotus Notes
  10077. PURSAFO
  10078. Fde!f^^
  10079. sZ%!ZM}
  10080. $Flags
  10081. '++LotusScript Development Environment:2:5:(Options):0:66
  10082. Option Public
  10083. '++LotusScript Development Environment:2:5:(Forward):0:1
  10084. Declare Sub Initialize
  10085. Declare Sub ProcessDocument
  10086. Declare Sub ProcessGroup
  10087. Declare Sub EvaluateDocument
  10088. '++LotusScript Development Environment:2:5:(Declarations):0:10
  10089. Dim s As NotesSession
  10090. Dim sourcedb As NotesDatabase
  10091. Dim destdb As NotesDatabase
  10092. Dim sourcenote As NotesDocument
  10093. Dim sourceview As NotesView
  10094. Dim destnote As NotesDocument
  10095. Dim destview As NotesView
  10096. Dim documents As NotesDocumentCollection
  10097. Dim KeyValue As Variant
  10098. Dim DisplayKey As Variant
  10099. Dim DocsCopied As Integer
  10100. Dim Answer As Integer
  10101. Dim HowMany As Variant
  10102. Dim FormType As Variant
  10103. Dim PendingGroups() As Variant
  10104. Dim ProcessingGroup As Variant
  10105. Dim Refreshed As Integer
  10106. Dim StopProcessing As Variant
  10107. '++LotusScript Development Environment:2:2:Initialize:1:10
  10108. Sub Initialize
  10109.      
  10110.      Set s = New NotesSession
  10111.      Set sourcedb = s.CurrentDatabase
  10112.      Set destdb = New NotesDatabase("", "names.nsf")
  10113.      Set destview = destdb.GetView("($Users)")
  10114.      Set sourceview = sourcedb.GetView("($Users)")
  10115.      Redim PendingGroups(0)
  10116.      
  10117.      Set documents = sourcedb.UnprocessedDocuments
  10118.      If documents.Count = 0 Then Exit Sub
  10119.      DocsCopied = 0
  10120.      For n = 1 To documents.Count
  10121.           Set sourcenote = documents.GetNthDocument(n)
  10122.           EvaluateDocument
  10123.           If StopProcessing Then Exit For
  10124.      Next
  10125.      
  10126.      If Ubound(PendingGroups) > 0 Then
  10127.           If Messagebox("Do you also want to copy all members of groups?", _
  10128.           3 + 32, "Copy Group") = 6 Then ProcessGroup
  10129.      End If
  10130.      
  10131.      If DocsCopied = 1 Then
  10132.           HowMany = "1 document was "
  10133.      Else
  10134.           HowMany = DocsCopied & " documents were "
  10135.      End If
  10136.      Messagebox HowMany & "copied to your personal Name and Address Book.", 0, "Copy"
  10137.      
  10138. End Sub
  10139. '++LotusScript Development Environment:2:2:ProcessDocument:1:8
  10140. Sub ProcessDocument
  10141.      
  10142.      Set destnote = destview.GetDocumentByKey(Cstr(KeyValue(0)))
  10143.      If destnote Is Nothing Then
  10144.           Call sourcenote.CopyToDatabase(destdb)
  10145.           DocsCopied = DocsCopied + 1
  10146.      Else
  10147.           Select Case Messagebox(DisplayKey(0) & " already exists, do you want to replace it?", _
  10148.           3 + 32, "Copy")
  10149.           Case 6
  10150.                destnote.Remove(True)
  10151.                Call sourcenote.CopyToDatabase(destdb)
  10152.                DocsCopied = DocsCopied + 1
  10153.           Case 2
  10154.                StopProcessing = True
  10155.                Exit Sub
  10156.           Case Else
  10157.                If Not ProcessingGroup Then
  10158.                     Exit Sub
  10159.                End If
  10160.           End Select
  10161.      End If
  10162.      
  10163.      If FormType(0) = "Group" Then
  10164.           g = Ubound(PendingGroups) + 1
  10165.           Redim Preserve PendingGroups(g)
  10166.           ListName = sourcenote.ListName
  10167.           PendingGroups(g) = ListName(0)
  10168.      End If
  10169.      
  10170.      If ProcessingGroup Then destview.Refresh
  10171.      
  10172. End Sub
  10173. '++LotusScript Development Environment:2:2:ProcessGroup:1:8
  10174. Sub ProcessGroup
  10175.      
  10176. 'We don't care if a group member is not found.  It could be because of obsolete lists.
  10177.      
  10178.      ProcessingGroup = True
  10179.      Forall p In PendingGroups
  10180.           Set sourcenote = sourceview.GetDocumentByKey(Cstr(p))
  10181.           If Not(sourcenote Is Nothing) Then
  10182.                Members = sourcenote.Members
  10183.                Forall m In Members
  10184.                     Set sourcenote = sourceview.GetDocumentByKey(Cstr(m))
  10185.                     If Not(sourcenote Is Nothing) Then
  10186.                          EvaluateDocument
  10187.                          If StopProcessing Then Exit Sub
  10188.                     End If
  10189.                End Forall
  10190.           End If
  10191.      End Forall
  10192.      
  10193. End Sub
  10194. '++LotusScript Development Environment:2:2:EvaluateDocument:1:8
  10195. Sub EvaluateDocument
  10196.      
  10197.      FormType = sourcenote.Type
  10198.      Select Case FormType(0)
  10199.      Case "Person"
  10200.           KeyValue = sourcenote.FullName
  10201.           DisplayKey = Evaluate("@Name([Abbreviate]; FullName)", sourcenote)
  10202.           ProcessDocument      
  10203.      Case "Group"
  10204.           KeyValue = sourcenote.ListName
  10205.           DisplayKey = Evaluate("@Name([Abbreviate]; ListName)", sourcenote)
  10206.           ProcessDocument      
  10207.      Case Else
  10208.           Messagebox "Only Person and Group documents can be copied.", 0 + 48, "Copy Documents"
  10209.      End Select
  10210.      
  10211. End Sub
  10212. Lotus Product
  10213. OBJECT
  10214. FullName
  10215. ListName
  10216. O=Lotus Notes
  10217. O=Lotus Notes
  10218. PURSAFO
  10219. |.:#U
  10220. O=Lotus Notes
  10221. CN=Lotus Notes Template Development/O=Lotus Notes
  10222. PURSAFO
  10223. nj|{G=
  10224. ]nt"l
  10225. $TITLE
  10226. $AssistType
  10227. $AssistLastRun
  10228. $AssistDocCount
  10229. $AssistFlags
  10230. $AssistTrigger
  10231. $AssistInfo
  10232. $AssistQuery
  10233. $AssistAction
  10234. $AssistAction_Ex
  10235.  RLANList
  10236. DisplayDriverList
  10237. RemoteLanService
  10238.     0S0E
  10239. DisplayDriverList
  10240.     Choose Remote Lan Service:
  10241. RemoteLanService
  10242. RemoteLanService
  10243. DisplayDriverList
  10244. O=Lotus Notes
  10245. O=Lotus Notes
  10246. PURSAFO
  10247. |.:#U
  10248. O=Lotus Notes
  10249. CN=Lotus Notes Template Development/O=Lotus Notes
  10250. PURSAFO
  10251. Fde!f^^
  10252. $TITLE
  10253. $INFO
  10254. $$Script_O
  10255. $$ScriptName
  10256. $BODY
  10257. &Arial
  10258. Lotus Product
  10259. ConnectionType
  10260.     1S2S
  10261. ARAEntryVersion
  10262. ARA$%^Connection document location:
  10263. ARA$%^Remote connection name:
  10264.     0S0E
  10265. StaticTag
  10266. ARAEntryVersion
  10267.     1S3S4S6S8S
  10268. RLANItems
  10269. ARAEntryVersion
  10270. RLAN6
  10271. ARAEntryVersion
  10272. RLANTagV30
  10273. RLANTagV21
  10274. RLANTag
  10275. RLANTotalParams
  10276.     Specify connection information using:
  10277. ARAEntryVersion
  10278. Manual entry (ARA 3.0)|0Connection document (ARA 2.1)|1
  10279. ConnectionType
  10280. ARAEntryVersion
  10281.     1S2S3S4S5S6S
  10282.     Connection document location:
  10283. RLANTagV21
  10284. v &"&
  10285. RLANTagV21
  10286. Choose Apple Remote Access Document
  10287.  @  @@ @` @
  10288. @@ @@@@@`@@
  10289. `@ `@@`@``@
  10290. ConnectionType
  10291. ARAEntryVersion
  10292.     1S2S3S4S5S6S
  10293.     Remote connection name:
  10294. RLANTagV30
  10295.     Login name:
  10296. RLAN1
  10297.     Password:
  10298. RLAN2
  10299.     Phone number:
  10300. RLAN3
  10301.     Area code:
  10302. RLAN4
  10303.     Country code:
  10304. ARAEntryVersion
  10305. RLAN5
  10306. O=Lotus Notes
  10307. O=Lotus Notes
  10308. PURSAFO
  10309. |.:#U
  10310. O=Lotus Notes
  10311. CN=Lotus Notes Template Development/O=Lotus Notes
  10312. PURSAFO
  10313. $xde_uO
  10314. $INFO
  10315. $$Script_O
  10316. $$ScriptName
  10317. RLANItems
  10318. RLANTotalParams
  10319. $BODY
  10320. Lotus Product
  10321. ConnectionType
  10322.     1S2S
  10323. RAS$%^Remote connection name:
  10324. StaticTag
  10325. RLANItems
  10326.     Dial-Up Networking name:
  10327. RLANTag
  10328.     Login name:
  10329. RLAN1
  10330.     Password:
  10331. RLAN2
  10332.     Phone number:
  10333. RLAN3
  10334.     Area code:
  10335. RLAN4
  10336.     Country code:
  10337. RLAN5
  10338.     Dial-back phone number:
  10339. RLAN6
  10340. O=Lotus Notes
  10341. O=Lotus Notes
  10342. PURSAFO
  10343. |.:#U
  10344. O=Lotus Notes
  10345. CN=Lotus Notes Template Development/O=Lotus Notes
  10346. PURSAFO
  10347. 3nA[7
  10348. $INFO
  10349. $$Script_O
  10350. $$ScriptName
  10351. RLANItems
  10352. $BODY
  10353. "Small Fonts
  10354. '++LotusScript Development Environment:2:5:(Options):0:66
  10355. Option Public
  10356. '++LotusScript Development Environment:2:5:(Forward):0:1
  10357. '++LotusScript Development Environment:2:5:(Declarations):0:10
  10358. Dim x As Long
  10359. Dim Drivers() As String
  10360. Dim DriverList() As String
  10361. Dim DisplayList() As String
  10362. $ConFormRLANSubform'++LotusScript Development Environment:2:5:(Options):0:66
  10363. '++LotusScript Development Environment:2:5:(Forward):0:1
  10364. Declare Sub Postopen(Source As Notesuidocument)
  10365. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10366. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10367. Private Sub BindEvents(Byval Objectname_ As String)
  10368.     Static Source As NOTESUIDOCUMENT
  10369.     Set Source = Bind(Objectname_)
  10370.     On Event Postopen From Source Call Postopen
  10371. End Sub
  10372. '++LotusScript Development Environment:2:2:Postopen:1:12
  10373. Sub Postopen(Source As Notesuidocument)
  10374.     Dim w As New NotesUIWorkspace
  10375.     Dim s As New NotesSession
  10376.     Dim db As NotesDatabase
  10377.     Dim doc As NotesDocument
  10378.     Set db = s.CurrentDatabase
  10379.     Dim uidoc As notesuidocument
  10380.     Set uidoc=w.currentdocument
  10381.     Set doc = uidoc.document
  10382.     y = 0
  10383.     x = 0
  10384.     Dim flag As String
  10385.     On Error Resume Next
  10386.     Forall Forms In db.Forms
  10387.         If Forms.IsSubForm Then
  10388.             If Left(Forms.Name, 5) = "$RLAN" Then
  10389.                 Redim Preserve DriverList(x)
  10390.                 Redim Preserve Drivers(x)
  10391.                 Redim Preserve DisplayList(x)
  10392.                 Aliases = Forms.Aliases
  10393.                 DriverList(x) = Aliases(0) & "|" & Aliases(1)
  10394.                 DisplayList(x) = Aliases(0)
  10395.                 Drivers(x)= Aliases(1)                    
  10396.                 x = x + 1
  10397.             End If     
  10398.         End If
  10399.     End Forall
  10400.     doc.DisplayDriverList =  DriverList
  10401.     doc.OriginalService = doc.RemoteLanService
  10402. End Sub
  10403. Lotus Product
  10404. OBJECT
  10405. OriginalService
  10406. OriginalService
  10407. DisplayDriverList
  10408. DisplayDriverList
  10409. RLANTagThe name of the connection description managed by the external remote LAN service.  
  10410. RLAN1Enter the login name for the remote LAN service.
  10411. RLAN2Enter the password to be used to login to the remote LAN service.
  10412. RLAN3Enter the phone number to dial to access the remote LAN service.
  10413. RLAN4If the remote LAN service driver you are using requires extra parameters, enter them here.
  10414. RLAN5If the remote LAN service driver you are using requires extra parameters, enter them here.
  10415. RLAN6If the remote LAN service driver you are using requires extra parameters, enter them here.
  10416. StaticTag
  10417. StaticTag
  10418. RLANItems
  10419. ConnectionType
  10420.     0S0E
  10421.     Network Dialup Information
  10422.     Configuration
  10423.     Choose a service type:
  10424. RemoteLanService
  10425. DisplayDriverList
  10426. RemoteLANService
  10427. StaticTag
  10428. StaticTag
  10429.     3S4S
  10430. StaticTagD
  10431. RemoteLANService
  10432. StaticTag
  10433. RLANTag
  10434.     3S4S
  10435. ValueD1
  10436.     Configure service: 
  10437. '++LotusScript Development Environment:2:5:(Options):0:66
  10438. '++LotusScript Development Environment:2:5:(Forward):0:1
  10439. Declare Sub Click(Source As Button)
  10440. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10441. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10442. Private Sub BindEvents(Byval Objectname_ As String)
  10443.     Static Source As BUTTON
  10444.     Set Source = Bind(Objectname_)
  10445.     On Event Click From Source Call Click
  10446. End Sub
  10447. '++LotusScript Development Environment:2:2:Click:1:12
  10448. Sub Click(Source As Button)
  10449.     Dim w As New NotesUIWorkspace
  10450.     Dim s As New NotesSession
  10451.     Dim db As NotesDatabase
  10452.     Dim doc As NotesDocument
  10453.     Set db = s.CurrentDatabase
  10454.     Dim uidoc As notesuidocument
  10455.     Set uidoc=w.currentdocument
  10456.     Set doc = uidoc.document
  10457.     y = 0
  10458.     uidoc.EditMode= True
  10459.     Dim flag As String
  10460.     On Error Resume Next
  10461.     Dim curval As Variant
  10462.     curval = doc.RemoteLanService
  10463.     For y = y To (x-1) Step 1
  10464.         If curval(0) = Drivers(y) Then
  10465.             doc.LanServiceDisplay = DisplayList(y)
  10466.         End If
  10467.     Next
  10468.      If (doc.OriginalService(0) <> "") And (doc.OriginalService(0) <> doc.RemoteLanService(0)) Then
  10469.           doc.RLANTag = ""
  10470.           doc.RLAN1 = ""
  10471.           doc.RLAN2 = ""
  10472.           doc.RLAN3 = ""
  10473.           doc.RLAN4 = ""
  10474.           Call uidoc.refresh
  10475.      End If
  10476. %END REM
  10477.     doc.OriginalService = doc.RemoteLanService
  10478.     flag = w.dialogbox( "$RLAN"&doc.RemoteLanService(0), True, True, False, False, False, False, doc.LanServiceDisplay(0),,True)
  10479.     If flag = "False" Then Exit Sub
  10480.     w.CurrentDocument.Refresh
  10481.     w.CurrentDocument.RefreshHideFormulas
  10482. End Sub
  10483. Lotus Product
  10484. New Button
  10485. Need a newer version of Notes to execute this button.
  10486.     0S0E
  10487. Edit Configuration
  10488. ConnectionType
  10489. RLANItems
  10490. RemoteLanService
  10491.     6S7S10S11S
  10492.     Remote network login name:
  10493. RemoteLANService
  10494. StaticTag
  10495. RLAN1
  10496.     3S4S
  10497. ValueD2
  10498. ConnectionType
  10499. RLANItems
  10500. RemoteLanService
  10501.     6S7S10S11S
  10502.     Password:
  10503. RemoteLANService
  10504. StaticTag
  10505. RLAN2
  10506.     3S4S
  10507. ValueD3
  10508. ConnectionType
  10509. RLANItems
  10510. RemoteLanService
  10511.     6S7S10S2E11S
  10512.     Phone number:
  10513. RemoteLANService
  10514. StaticTag
  10515. RLAN3
  10516.     3S4S
  10517. ValueD4
  10518. ConnectionType
  10519. RLANItems
  10520. RemoteLanService
  10521.     6S7S10S2E11S
  10522.     Area code:
  10523. RemoteLANService
  10524. StaticTag
  10525. RLAN4
  10526.     3S4S
  10527. ValueD5
  10528. ConnectionType
  10529. RLANItems
  10530. RemoteLanService
  10531.     6S7S8S10S2E11S
  10532.     Country code:
  10533. RemoteLANService
  10534. StaticTag
  10535. RLAN5
  10536.     3S4S
  10537. ValueD6
  10538. ConnectionType
  10539. RLANItems
  10540. RemoteLanService
  10541.     6S7S10S11S
  10542.     Dial-back phone number:
  10543. ConnectionType
  10544. RLANItems
  10545. RemoteLanService
  10546. RemoteLanService
  10547. RemoteLanService
  10548. OTPPP
  10549.     7S10S11S14S2E15S18S19S
  10550.     Optional information:
  10551. ConnectionType
  10552. RemoteLanService
  10553. RemoteLanService
  10554. OTPPP
  10555.     6S2E7S10S11S
  10556. RemoteLANService
  10557. StaticTag
  10558. RLAN6
  10559.     3S4S
  10560. ValueD7
  10561. O=Lotus Notes
  10562. O=Lotus Notes
  10563. PURSAFO
  10564. |.:#U
  10565. O=Lotus Notes
  10566. CN=Lotus Notes Template Development/O=Lotus Notes
  10567. PURSAFO
  10568. $INFO
  10569. $Script
  10570. $$Script_O
  10571. $$ScriptName
  10572. $$FormScript
  10573. $$$FormScript_O
  10574. RLANItems
  10575. $BODY
  10576. AltFullNameLanguage
  10577. - Primary Language -
  10578. Person
  10579. LastName
  10580. ListName
  10581. - Primary Language -
  10582. LastName
  10583. AltFullNameLanguage
  10584. AltFullNameSort
  10585. AltFullnameSort
  10586.     31R44R
  10587. Person
  10588. Database
  10589. ResourceFlagh
  10590. ResourceType
  10591. ResourceFlag
  10592. ResourceFlagh
  10593. ResourceType
  10594. ResourceFlag
  10595. Server
  10596. Group
  10597. GroupType
  10598. GroupType
  10599. GroupType
  10600. GroupType
  10601. GroupType
  10602. GroupType
  10603.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S95S
  10604. DisplayPersonName
  10605. Person
  10606. LastName
  10607. FirstName
  10608. MiddleInitial
  10609. AltFullName
  10610.     1S2S7S8S10S18S20S21S25S29S32S33S34S36S
  10611. DisplayName
  10612. Group
  10613. ListName
  10614. DisplayPersonName
  10615. FullName
  10616. DisplayPersonName
  10617.     0R1S2S5S6S8S12S15S18S19S21S25S28S
  10618. DisplayName
  10619.     0R4S
  10620. MAMailAddress
  10621. Person
  10622. MailSystem
  10623. MailAddress
  10624. MailAddress
  10625. MailDomain
  10626. MailDomain"
  10627. FullName
  10628. FullName
  10629. MailDomain
  10630. MailDomain"
  10631. FirstName
  10632. FirstName
  10633. LastName"
  10634. MailDomain
  10635. MailDomain"
  10636. LastName
  10637. MailDomain
  10638. MailDomain"
  10639. Database
  10640. FullName
  10641. MailDomain
  10642. MailDomain"
  10643. Group
  10644. GroupType
  10645. GroupType
  10646. ListName
  10647.     3S4S5S6S19S20S27S28S39S40S42S46S48S49S52S53S55S56S57S59S71S72S79S80S86S87S94S95S102S103S104S106S110S112S113S117S118S120S121S122S124S128S129S130S131S132S139S145S
  10648. NPName
  10649. Group
  10650. ListName
  10651. FullName
  10652.     3S4S6S13S17S
  10653. MAPublicKey
  10654. Certificate
  10655. PublicKey
  10656. Certificate
  10657. PublicKey
  10658. Server
  10659. Certificate
  10660.     7S8S34S35S
  10661. AltFullName
  10662. AltFullName
  10663. $8$18$11MAMailAddressNPNameTypeMAPublicKeyAltFullName$Conflict$REF
  10664. Person
  10665. Group
  10666. Database
  10667.     1S3S4S5S6S7S8S9S10S11S12S14S15S
  10668. AltFullNameLanguage
  10669. - Primary Language -
  10670. Person
  10671. LastName
  10672. ListName
  10673. - Primary Language -
  10674. LastName
  10675. AltFullNameLanguage
  10676. AltFullNameSort
  10677. AltFullnameSort
  10678.     31R44R
  10679. Person
  10680. Database
  10681. ResourceFlagh
  10682. ResourceType
  10683. ResourceFlag
  10684. ResourceFlagh
  10685. ResourceType
  10686. ResourceFlag
  10687. Server
  10688. Group
  10689. GroupType
  10690. GroupType
  10691. GroupType
  10692. GroupType
  10693. GroupType
  10694. GroupType
  10695.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S95S$11*
  10696. DisplayPersonName
  10697. Person
  10698. LastName
  10699. FirstName
  10700. MiddleInitial
  10701. AltFullName
  10702.     1S2S7S8S10S18S20S21S25S29S32S33S34S36S
  10703. DisplayName
  10704. Group
  10705. ListName
  10706. DisplayPersonName
  10707. FullName
  10708. DisplayPersonName
  10709.     0R1S2S5S6S8S12S15S18S19S21S25S28S
  10710. DisplayName
  10711.     0R4S
  10712. MAMailAddressAddress
  10713. MAMailAddress
  10714. Person
  10715. MailSystem
  10716. MailAddress
  10717. MailAddress
  10718. MailDomain
  10719. MailDomain"
  10720. FullName
  10721. FullName
  10722. MailDomain
  10723. MailDomain"
  10724. FirstName
  10725. FirstName
  10726. LastName"
  10727. MailDomain
  10728. MailDomain"
  10729. LastName
  10730. MailDomain
  10731. MailDomain"
  10732. Database
  10733. FullName
  10734. MailDomain
  10735. MailDomain"
  10736. Group
  10737. GroupType
  10738. GroupType
  10739. ListName
  10740.     3S4S5S6S19S20S27S28S39S40S42S46S48S49S52S53S55S56S57S59S71S72S79S80S86S87S94S95S102S103S104S106S110S112S113S117S118S120S121S122S124S128S129S130S131S132S139S145S
  10741. NPNameNamex
  10742. NPName
  10743. Group
  10744. ListName
  10745. FullName
  10746.     3S4S6S13S17S
  10747. TypeTypeMAPublicKeyPublic Key
  10748. MAPublicKey
  10749. Certificate
  10750. PublicKey
  10751. Certificate
  10752. PublicKey
  10753. Server
  10754. Certificate
  10755.     7S8S34S35S
  10756. AltFullNameAltFullName&
  10757. AltFullName
  10758. AltFullName
  10759. Categori_zeK
  10760. _Edit Document
  10761. Send Docu_ment
  10762. _Forward
  10763. _Move To Folder...
  10764. _Remove From FolderK
  10765. O=Lotus Notes
  10766. O=Lotus Notes
  10767. PURSAFO
  10768. |.:#U
  10769. O=Lotus Notes
  10770. CN=Lotus Notes Template Development/O=Lotus Notes
  10771. PURSAFO
  10772. $TITLE
  10773. $Index
  10774. $Formula
  10775. $FormulaClass
  10776. $VIEWFORMAT
  10777. $Comment
  10778. $ACTIONS
  10779. 11/25/95 02:46:18 PM Lotus Notes updated -Default-
  10780. 11/21/95 03:38:11 PM Rob Slapikoff/Iris updated [-Default-]
  10781. 11/21/95 02:07:00 PM Lotus Notes updated [-Default-]
  10782. UserCreator
  10783. UserModifier
  10784. GroupCreator
  10785. GroupModifier
  10786. NetCreator
  10787. NetModifier
  10788. ServerCreator
  10789. ServerModifier
  10790. 06/29/95 09:43:31 PM Rob Slapikoff/Iris updated [OtherDomainServers]
  10791. 06/29/95 09:43:29 PM Rob Slapikoff/Iris updated [LocalDomainServers]
  10792. 05/20/95 05:13:04 PM Rob Slapikoff/Iris updated [LocalDomainServers]
  10793. 05/20/95 05:12:56 PM Rob Slapikoff/Iris updated [-Default-]
  10794. 05/20/95 05:12:40 PM Rob Slapikoff/Iris updated LocalDomainServers
  10795. 05/20/95 05:12:27 PM Rob Slapikoff/Iris updated -Default-
  10796. 05/20/95 05:11:35 PM Rob Slapikoff/Iris updated role ServerModifer
  10797. 05/20/95 05:11:31 PM Rob Slapikoff/Iris updated role ServerCreator
  10798. 05/20/95 05:11:25 PM Rob Slapikoff/Iris updated role NetModifer
  10799. 05/20/95 05:11:21 PM Rob Slapikoff/Iris updated role NetCreator
  10800. 05/20/95 05:11:15 PM Rob Slapikoff/Iris updated role GroupModifer
  10801. 05/20/95 05:11:11 PM Rob Slapikoff/Iris updated role GroupCreator
  10802. 05/20/95 05:11:07 PM Rob Slapikoff/Iris updated role UserModifer
  10803. 05/20/95 05:11:03 PM Rob Slapikoff/Iris updated role UserCreator
  10804. -Default-
  10805. [-Default-]
  10806. [LocalDomainServers]
  10807. [OtherDomainServers]
  10808. LocalDomainServers
  10809.     0S0E
  10810. New Location
  10811. Settings for location: 
  10812. Name"
  10813.     4S6S7S8S
  10814. "Small Fonts
  10815. Lotus Product
  10816. OBJECT
  10817.  Location'++LotusScript Development Environment:2:5:(Options):0:66
  10818. '++LotusScript Development Environment:2:5:(Forward):0:1
  10819. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  10820. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10821. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10822. Private Sub BindEvents(Byval Objectname_ As String)
  10823.      Static Source As NOTESUIDOCUMENT
  10824.      Set Source = Bind(Objectname_)
  10825.      On Event Querysave From Source Call Querysave
  10826. End Sub
  10827. '++LotusScript Development Environment:2:2:Querysave:1:12
  10828. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  10829.      Dim w As New NotesUIWorkspace 
  10830.      Dim s As New NotesSession
  10831.      Dim db As NotesDatabase
  10832.      Dim doc As NotesDocument
  10833.      Set db = s.CurrentDatabase
  10834.      Dim uidoc As notesuidocument
  10835.      Set uidoc=w.currentdocument
  10836.      Set doc = uidoc.document
  10837.      
  10838.      If doc.ProxyFlag(0) = "1" Then
  10839.           doc.Proxy_FTP=doc.Proxy_HTTP(0)
  10840.           doc.Proxy_Gopher=doc.Proxy_HTTP(0)
  10841.           doc.Proxy_SSL=doc.Proxy_HTTP(0)
  10842.      End If
  10843. End Sub
  10844.     0S0E
  10845. '++LotusScript Development Environment:2:5:(Options):0:66
  10846. '++LotusScript Development Environment:2:5:(Forward):0:1
  10847. Declare Sub Exiting(Source As Field)
  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 FIELD
  10852.      Set Source = Bind(Objectname_)
  10853.      On Event Exiting From Source Call Exiting
  10854. End Sub
  10855. '++LotusScript Development Environment:2:2:Exiting:1:12
  10856. Sub Exiting(Source As Field)
  10857.      Dim w As New NotesUIWorkspace 
  10858.      Dim s As New NotesSession
  10859.      Dim db As NotesDatabase
  10860.      Dim doc As NotesDocument
  10861.      Set db = s.CurrentDatabase
  10862.      Dim uidoc As notesuidocument
  10863.      Set uidoc=w.currentdocument
  10864.      Set doc = uidoc.document
  10865.      
  10866.      If doc.ProxyFlag(0) = "1" Then
  10867.           doc.Proxy_FTP=doc.Proxy_HTTP(0)
  10868.           doc.Proxy_Gopher=doc.Proxy_HTTP(0)
  10869.           doc.Proxy_SSL=doc.Proxy_HTTP(0)
  10870.      End If
  10871. End Sub
  10872. Rob Slapikoff-Rob
  10873. Field Label
  10874.     0S0E
  10875. LOCATION
  10876. Server
  10877. ServerName
  10878.     13S14S16S18S
  10879. DisplayName
  10880. DisplayName
  10881. Location
  10882. Hide for all platforms except W32 (not alpha) and Solaris)
  10883.     Basics
  10884. LocationType
  10885.     0S0E
  10886. Choose the type of connectivity you have at this Location.
  10887.     Location type:
  10888. .,$///:
  10889. LocationTypeChoose the type of connectivity you have at this Location.
  10890. Local Area Network|0Notes Direct Dialup|1Network Dialup|4Custom|2No connection|3z
  10891. LocationType
  10892. Choose Yes if you want to be prompted for phone prefix, current time information when you switch to this location.  This is most often used when travelling between time zones and to different phone systems.
  10893.     Prompt for time/date/phone:
  10894. TravelPromptChoose Yes if you want to be prompted for Location information at startup.
  10895. Yes|1No|0
  10896. TravelPrompt
  10897. The name of this Location.
  10898.     Location name:
  10899. You must enter a name in the Location name field before saving this document.
  10900. You may not use a '/' in a location name.
  10901.     0S0E
  10902. Namez
  10903. LocationType
  10904.     0S0E
  10905. Enter the name or IP address of the proxy used to connect to the Internet.
  10906.     Proxy:
  10907.                
  10908. Proxy_HTTPEnter the name or IP address of the proxy used to connect to the Internet.z
  10909. Proxy_HTTP
  10910.     0S0E
  10911. (ProxyDialog)
  10912. Proxy Server Configuration
  10913. ?_?__
  10914. `!b`1
  10915. 7`^///?
  10916. ?b___
  10917. `bOOO
  10918. `<b!R
  10919.     Internet 
  10920. Address used in all mail you send. This address appears in the From field when mail gets sent over the Internet. This should be a valid Internet address with the form jdoe@acme.com
  10921.     mail address:
  10922. IMailAddress^
  10923.     0S0E
  10924. ImailAddress
  10925.     0S0E
  10926. ImailAddress
  10927. You received the following error because the 'Internet mail address' is invalid.  Error:
  10928. ImailAddressPlease enter your valid Internet address in the form of  jdoe@acme.comz
  10929. ImailAddress
  10930.     Default display name:
  10931. UserNameFlag
  10932. Display primary names|0Display alternate names|1z
  10933. UserNameFlag
  10934. Basics
  10935.     Servers
  10936. Enter the name of your mail/home server to be used at this Location.
  10937.     Home/mail server:
  10938. MailServerEnter the name of your mail/home server to be used at this Location.z
  10939. MailServer
  10940. Enter the name of the server to be used as your default Passthru server.  This is generally the same as your home server.
  10941.     Passthru server:
  10942. DefaultPassthruServerThis is generally the same as your home server.z
  10943. DefaultPassthruServer
  10944. '++LotusScript Development Environment:2:5:(Options):0:66
  10945. '++LotusScript Development Environment:2:5:(Forward):0:1
  10946. Declare Sub Click(Source As Button)
  10947. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10948. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10949. Private Sub BindEvents(Byval Objectname_ As String)
  10950. Static Source As BUTTON
  10951. Set Source = Bind(Objectname_)
  10952. On Event Click From Source Call Click
  10953. End Sub
  10954. '++LotusScript Development Environment:2:2:Click:1:12
  10955. Sub Click(Source As Button)
  10956.     Dim w As New NotesUIWorkspace
  10957.     Dim s As New NotesSession
  10958.     Dim db As NotesDatabase
  10959.     Dim uidoc As NotesUIDocument
  10960.     Dim  doc As NotesDocument
  10961.     Dim  newdoc As NotesDocument
  10962.     Dim ItemDefaultPassthruServerName As NotesItem
  10963.     Dim ItemLocationName As NotesItem
  10964.     Dim phonenumber As Variant
  10965.     Set db=s.CurrentDatabase
  10966.     Set uidoc=w.CurrentDocument
  10967.     Set doc=uidoc.Document    
  10968.     Set ItemDefaultPassthruServerName=doc.GetFirstItem("DefaultPassthruServer")    
  10969.     If Len(ItemDefaultPassthruServerName.Text) = 0 Then
  10970.         Msgbox "Please enter name for Passthru server"
  10971.     Else    
  10972.     Set ItemLocationName=doc.GetFirstItem("Name")    
  10973.     If Len(ItemLocationName.Text) = 0 Then
  10974.             Msgbox "Please enter a Location name"
  10975.     Else
  10976.         Set newdoc=New NotesDocument(db)    
  10977.         Call newdoc.ReplaceItemValue("Form","Connection")
  10978.         Call newdoc.ReplaceItemValue("ConnectionType","1")
  10979.         Call ItemDefaultPassthruServerName.CopyItemToDocument(newdoc,"Destination")        
  10980.         Call ItemLocationName.CopyItemToDocument(newdoc,"ConnectionLocation")
  10981.         phonenumber=w.Prompt(Prompt_edit, "Phone Number", "Please enter a phone number","" )
  10982.         Call newdoc.ReplaceItemValue("LocalPhoneNumber", phonenumber)
  10983.         success= newdoc.ComputeWithForm(False, False)    
  10984.         If success Then
  10985.             Call newdoc.save(True, True)
  10986.         Else
  10987.             Msgbox("There are Input translation/validation issues")     
  10988.         End If
  10989.     End If
  10990. End If
  10991. End Sub
  10992. Lotus Product
  10993. OBJECT
  10994.     Search server:
  10995. CatalogServer
  10996.     Domino directory server:
  10997. DirectoryServer
  10998. DirectoryServer
  10999. LocationType
  11000. WebLocation
  11001. WebRetriever
  11002.     3S4S7S8S
  11003. Enter the name of the Notes server used as your Internet Web server.
  11004.     InterNotes server:
  11005. InterNotesEnter the name of the Notes server used as your Internet server. (InterNotes)
  11006. InterNotes
  11007. Servers
  11008.     Ports
  11009. Choose which ports you want to use at this Location. NOTE: To install a new port, use File Tools User Preferences, and select Ports.  Make sure to select the Enabled checkbox to make the port available in your Location records.
  11010.     Ports to use:
  11011.     Disabled ports:
  11012. ")pZ@
  11013. Ports
  11014.     1S2S
  11015. Ports
  11016. DisabledPorts
  11017.     0R6S8S
  11018. EnabledPortsChoose which ports are enabled at this Location.
  11019.     0S0E
  11020. EnabledPorts
  11021. SaveEnabledPorts
  11022. EnabledPorts
  11023.     1S2S
  11024. EnabledPorts(
  11025.     0R1S2S3S
  11026. Ports
  11027.     0R1S2S
  11028. Ports
  11029. SaveEnabledPorts
  11030.     0R6S8S
  11031. DisabledPorts
  11032. DisabledPorts
  11033. Ports
  11034. Hide for all platforms except W32 (not alpha) and Solaris)
  11035.     Mail
  11036. Choose whether your mail file is on a server or local at this location. If you choose 'Internet' or 'Notes and Internet' as your mail system, you can only choose 'Local' for your mail file location.
  11037.     Mail file location:
  11038. MailServerProtocol
  11039. MailType
  11040. MailServerProtocol
  11041. MailServerProtocol
  11042.     1S8S9S10S11S
  11043. MailType
  11044. MailType
  11045. MailServerProtocol
  11046. You must choose Local if you are using Internet mail.
  11047.     5S6S7S8S
  11048. MailTypeChoose the way you want mail to be queued at this Location.
  11049. on Server|0Local|1
  11050. MailType
  11051. Enter the path and file name of the mail file being used at this location.  e.g. mail\mymail.nsf
  11052.     Mail file
  11053.     0S0E
  11054. MailServerProtocol
  11055. MailFile
  11056. You must enter a mail file when your mail system is set to Internet.{
  11057. MailServerProtocol
  11058. MailFile
  11059. MailFile
  11060. The mail file specified does not exist.  Please enter a valid mail file name.
  11061.     5S6S18S19S22S23S
  11062. MailFileMail file pathname (e.g., mail\jsmith.nsf).
  11063. MailFile
  11064. MailServerProtocol
  11065.     0S0E
  11066. Enter the Notes mail Domain name to be used at this Location.
  11067.     Notes mail domain
  11068. Server
  11069. Domain
  11070.     0S0E
  11071. Domain
  11072. The maximum length of a Domain name is 32 bytes.{
  11073.     6S7S
  11074. DomainEnter Mail Domain name to be used at this Location.
  11075. Domain
  11076.     Internet domain for Notes addresses when connecting directly to the Internet:
  11077. InternetDomainz
  11078. InternetDomain
  11079. Choose whether you want names to be looked up in the address book(s) and filled in for you as you type each character.
  11080.     Recipient name type-ahead
  11081. MailType
  11082.     0S0E
  11083. NameLookupPrefWhich Address Books should Notes look in when you are typing in a Names field at this Location.
  11084. Disabled|0Local Only|1Local then Server|2z
  11085. NameLookupPref
  11086. Choose whether name look-up will stop when it first finds a match in any address book or whether all address books will be checked.  Stopping at the first match is faster but checking all address books ensures that there are no duplicate matches.
  11087.     Recipient name lookup:
  11088. ExhaustiveNameLookupChoose how many Address Books will be searched  when resolving a name.
  11089. Stop after first match|0Exhaustively check all address books|1z
  11090. ExhaustiveNameLookup
  11091. MailType
  11092. LocationType
  11093.     3S4S
  11094. If this field is set to Personal and Public Address Books, then the following will occur:
  11095. - in the Mail Address dialog, server Address Books will be available
  11096. - when an E-mail is sent, the names will be checked and must resolve.
  11097.     Mail addressing:
  11098. MailAddressing
  11099. Local Only|1Local and Server|2z
  11100. MailAddressing
  11101. Choose whether outgoing mail is sent through a Domino server or directly to the Internet via SMTP
  11102.     Send outgoing mail:
  11103. SMTPRoute
  11104. InternetDomain
  11105. IMailAddress
  11106. If you send outgoing mail directly to the Internet, you must enter both an Internet mail address on the Basics tab and an Internet domain for Notes addresses on the Mail tab.{
  11107.     5S6S10S11S
  11108. SMTPRoute
  11109. through Domino Server|0directly to Internet|1z
  11110. SMTPRoute
  11111. Number of waiting messages that will force a connection - e.g. 3.
  11112.     Transfer outgoing 
  11113.     mail if:
  11114. MailThreshold
  11115. MailThresholdNumber of waiting messages that will force a connection - e.g. 3.z
  11116. MailThreshold
  11117.      messages pending
  11118.     Internet Browser
  11119. Choose the browser you want to use to view Web pages.
  11120.     Internet browser:
  11121. WebRetrieverChoose the browser you want to use to view Web pages.
  11122. Windows/NT
  11123. Windows/95
  11124. Macintosh
  11125. Notes |0
  11126. Notes with Internet Explorer|3
  11127. Netscape Navigator|1
  11128. Microsoft Internet Explorer|2
  11129. Other|99
  11130. Notes Web Navigator|0
  11131. Other|99
  11132.     15S16S
  11133. WebRetriever
  11134. WebRetriever
  11135.     0S0E
  11136. Specify whether pages are retrieved and opened: 
  11137.    1.  from the InterNotes server to a server database
  11138.    2.  from the Notes workstation to a local database
  11139.    3.  no new retrieval from the Internet, but open previously retrieved documents from your local database only
  11140.     Retrieve/open pages:
  11141. WebRetriever
  11142. Windows/95
  11143. Windows/NT
  11144. WebRetriever
  11145. Macintosh
  11146. WebRetriever
  11147.     3S4S16S17S18S19S21S22S29S30S
  11148.     Internet browser path:
  11149. WebRetrieverPath
  11150. Choose path for  Internet Browser
  11151. WebRetrieverPath
  11152. Choose path for  Internet Browser
  11153. ?_?__
  11154. `!b`1
  11155. 7`^///?
  11156. ?b___
  11157. `bOOO
  11158. `<b!R
  11159. LocationType
  11160. WebRetriever
  11161. WebRetriever
  11162.     0S0E
  11163. WebRetriever
  11164. WebLocation
  11165. WebLocation
  11166.     5S6S
  11167. WebLocation
  11168. WebRetriever
  11169. from InterNotes server|0
  11170. from Notes workstation|1
  11171. no retrievals|2
  11172. WebRetriever
  11173. from Notes workstation|1
  11174. no retrievals|2
  11175.     8R16R
  11176. WebLocation
  11177. WebRetrieverPath
  11178. WebRetrieverPathz
  11179. WebRetrieverPath
  11180. Internet Browser
  11181.     Replication
  11182. Choose Enable if you want the Replicator to be enabled and use the specified schedule at this location.
  11183.     Schedule:
  11184. EnabledChoose Enable if you want the Replicator to be enabled and use the specified schedule at this location.
  11185. Enabled|1Disabled|0
  11186. Enabled
  11187. Enabled
  11188. LocationType
  11189.     3S4S
  11190. Times to call the server - e.g. 8:00 AM,10:00 AM-6:00 PM
  11191.     Replicate daily  between:
  11192. ScheduleL
  11193. Enabled
  11194. Interval
  11195. Schedule
  11196. You must enter an Interval and/or a Schedule, or else specify DISABLED.
  11197. ScheduleTimes to call the server - e.g. 8:00 AM,10:00 AM-6:00 PMz
  11198. Schedule
  11199. Enabled
  11200. LocationType
  11201. Interval to repeat calls - 0 means call once.
  11202.     Repeat every:
  11203. Interval
  11204. You entered an interval less than 0.  You must enter an interval of 0 or above.
  11205.     0S0E
  11206. IntervalInterval to repeat calls - 0 means call once.
  11207. Interval
  11208.      minutes
  11209. Days of week - e.g. Mon, Tue, Wed
  11210.     Days of week:
  11211. WeekDaysDays of week - e.g. Mon, Tue, Wed
  11212. Sun | 1Mon | 2Tue | 3Wed | 4Thu | 5Fri | 6Sat | 7z
  11213. WeekDays
  11214. Replication
  11215. Location
  11216. LocationType
  11217.     0S0E
  11218.     Phone Dialing
  11219. Input the prefix necessary to acquire an outside line. (ie. 9 if at a hotel or office)
  11220.     Prefix for outside line:
  11221. OutsideLineInput the prefix necessary to acquire an outside line. (ie. 9 if at a hotel or office)
  11222. OutsideLine
  11223. Enter the calling card access phone number you want to use at this Location.
  11224.     Calling card access number:
  11225. CallPreEnter the calling card access phone number you want to use at this Location.
  11226. CallPre
  11227. Enter the prefix for dialing to another country from this location. e.g. From the United States using AT&T, the prefix is 011.
  11228.     International prefix:
  11229. InternationalPrefixEnter the prefix for dialing to another country from this location. e.g. From the United States using AT&T, the prefix is 011.
  11230. InternationalPrefix
  11231. Enter the calling card number you want to use at this Location. This is usually the number that is embossed on the front of your calling card.
  11232.     Calling card number or extension suffix:
  11233. SuffixEnter the calling card number you want to use at this Location.
  11234. Suffix
  11235. Enter the numeric country code for this location.  e.g. For the United States enter 1
  11236.     Country code at this location:
  11237. Country
  11238. Country
  11239. Location
  11240. LocationType
  11241.     9S10S
  11242. Not yet implemented
  11243. This feature is not implemented in the version you are running.
  11244.     0S0E
  11245.     Dialing Rules...
  11246. Enter the prefix for dialing long distance from this location. e.g. In the United States, the prefix is 1.
  11247.     Long distance prefix:
  11248. LongDistancePrefixEnter the prefix for dialing long distance from this location. e.g. In the United States, the prefix is 1.z
  11249. LongDistancePrefix
  11250. Enter the area code at this Location.
  11251.     Area code at this location
  11252. AreaCode
  11253. AreaCode
  11254. +{!A-Z!a-z}
  11255. You must enter a valid number for the area code.  You can only use the characters 0-9.{
  11256.     0S0E
  11257. AreaCodeInputEnter the area code for this Location.
  11258. AreaCodeInput
  11259. Phone Settings
  11260. AdvancedLocation
  11261.     Advanced Basics
  11262. Choose the correct time zone to be used at this Location.
  11263.     Local time zone:
  11264. TimeZone
  11265. R5TimeZone
  11266. R5TimeZone
  11267. R5TimeZone
  11268.     0S0E
  11269. R5TimeZone
  11270. Choose Observed here if at this location Daylight Savings time is observed.
  11271.     Daylight savings time:
  11272. R5TimeZone
  11273.     0S0E
  11274.     9S10S13S15SDSTChoose Observed here if at this location Daylight Savings time is observed.
  11275. Observed here|1Not observed here|0z
  11276. R5TimeZone
  11277.     0S0E
  11278.     Unobserved for this time zone
  11279. Use * if this Location can be used by all users, or fill in a user name if only for a specific user.
  11280.     Only for user:
  11281.     0S0E
  11282. Source^
  11283.     0S0E
  11284. SourceUse * if this Location can be used by all users, or fill in a user name if only for a specific user.z
  11285. Source
  11286. Path and file name of the user ID to be used when switching to this Location.
  11287.     User ID to switch to:
  11288. Choose path for  ID file:
  11289.     0S0E
  11290. UserID
  11291. UserID
  11292.     0R1S
  11293. ?_?__
  11294. `!b`1
  11295. 7`^///?
  11296. ?b___
  11297. `bOOO
  11298. `<b!R
  11299. UserIDPath and file name of the user ID to be used when switching to this Location.
  11300. UserID
  11301. Specify whether to autoload images when a document is first loaded.
  11302.     Load images:
  11303. ImagesSpecify whether to autoload images when a document is first loaded.
  11304. Always|0On request|1
  11305. Images
  11306.     Bookmarks filename:
  11307. bookmark.nsf
  11308. BookmarkDb
  11309.     Headlines filename:
  11310. headline.nsf
  11311. HeadlineDB
  11312.     Network dialup idle timeout:
  11313. RLANIdleTimeout
  11314. RLANIdleTimeout
  11315.      minutes
  11316. Basics
  11317. MailServerProtocol
  11318.     0S0E
  11319.     Web Retriever Configuration
  11320.     Web Navigator database:
  11321. perweb.nsf
  11322. WebDbName
  11323. WebDbName
  11324. The maximum number of concurrent Web retriever processes permitted at one time.
  11325.     Concurrent retrievers:
  11326. WebRetrieversThe maximum number of concurrent Web retriever threads/processes permitted at one time.
  11327. 23456
  11328. WebRetrievers
  11329. Specify the log level of messages logged to LOG.NSF by the Web Retriever.
  11330.     Retriever log level:
  11331. WebLogLevelSpecify the log level of messages logged to LOG.NSF by the Web Retriever.
  11332. None|0Terse|1Verbose|2z
  11333. WebLogLevel
  11334.     Update cache:
  11335. WebUpdateCache
  11336. Never|0Once per session|1Every time|2
  11337. WebUpdateCache
  11338. Choose Yes to accept certificates from an unknown certifying authority.
  11339. Choose No not to accept certificates from unknown certifying authorities.
  11340.     Accept SSL site certificates:
  11341. SSLSiteCerts
  11342. Yes|1No|0
  11343. SSLSiteCerts
  11344. Choose Yes to force SSL to accept remote certificates which have expired.
  11345. Choose No to enforce certificate expiration dates.
  11346.     Accept expired SSL certificates:
  11347. SSLExpiredCerts
  11348. Yes|1No|0z
  11349. SSLExpiredCerts
  11350. SSLStatus
  11351.     0S0E
  11352.     Send SSL certificates when asked (outbound connections only):
  11353. SSLSendCertificates
  11354. Yes|1No|0
  11355. Choose the SSL protocol version that you want to connect with.  
  11356. V2.0 only - Uses SSL V2.0 handshake and protocol only
  11357. V3.0 handshake - Uses SSL V3.0 handshake and negotiated protocol
  11358. V3.0 only - Uses SSL V3.0 handshake and protocol only
  11359. V3.0 with V2.0 handshake - Uses SSL V2.0 handshake with negotiated protocol
  11360. Negotiated - allow SSL to determine handshake and protocol
  11361.     SSL protocol version:
  11362. SSLProtocolVersion
  11363. V2.0 only|1V3.0 handshake|2V3.0 only|3V3.0 with V2.0 handshake|4Negotiated|0z
  11364. SSLProtocolVersion
  11365. Web Retriever
  11366.     Java Applet Security
  11367. List of host domains where Java applets are assumed to be safe -- e.g., 205.159.212.*, www.trustedhost.com
  11368.     Trusted hosts:
  11369. JavaSecureDomainList of host domains where Java applets are assumed to be safe -- e.g., 205.159.212.*, www.trustedhost.comz
  11370. JavaSecureDomain
  11371. Network access granted to Java applets originating from hosts listed by 'Trusted Hosts' above.
  11372.     Network access for trusted hosts:
  11373. JavaAllowInSecureDomainNetwork access granted to Java applets originating from hosts listed by "Trusted Hosts" above.
  11374. Disable Java|0No access allowed|1Allow access only to originating host|2Allow access to any trusted host|3Allow access to any host|4
  11375. JavaAllowInSecureDomain
  11376. Network access granted to Java applets originating from hosts other than those listed by 'Trusted Hosts' above.
  11377.     Network access for untrusted hosts:
  11378. JavaAllowInOtherDomainsNetwork access granted to Java applets originating from hosts other than those listed by 'Trusted Hosts' above.
  11379. Disable Java|0No access allowed|1Allow access only to originating host|2z
  11380. JavaAllowInOtherDomains
  11381. Trust HTTP proxy to consistently resolve host names to IP addresses.
  11382.     Trust HTTP proxy:
  11383. JavaTrustHTTPProxyTrust HTTP proxy to consistently resolve host names to IP addresses.
  11384. Yes|1No|0
  11385. JavaTrustHTTPProxy
  11386. Java Applet Security
  11387.     Secondary Servers
  11388. LocationType
  11389.     0S0E
  11390. Enter the Notes server name to be contacted for Address Book information in the event that your home server is unavailable on the TCP network.
  11391.     Secondary TCP/IP 
  11392.     Notes name server:
  11393. TCPNameServerThe Notes server name to be contacted for Address Book information in the event that your home server is unavailable on the TCP network.
  11394. TCPNameServer
  11395. Enter the Notes server's fully qualified host name or IP address to be contacted for Address Book information in the event that your home server is unavailable on the TCP network. e.g. server.acme.com OR 129.54.98.3
  11396.     Secondary TCP/IP host name or address:
  11397. TCPNameServerHostThe Notes server's fully qualified host name or IP address to be contacted for Address Book information in the event that your home server is unavailable on the TCP network.z
  11398. TCPNameServerHost
  11399. Enter the Notes server name to be contacted for Address Book information in the event that your home server is unavailable on the IPX/SPX network. This information is only used if NDS Services have been enabled within Notes. The Secondary NDS name server address field must also be specified.
  11400.     Secondary NDS
  11401.     Notes name server:
  11402. NDSNameServer
  11403. NDSNameServerAddress
  11404. You must enter a Secondary NDS name server address if you are specifying a Secondary NDS Notes name server.
  11405.     5S6S
  11406. NDSNameServerThe Notes server name to be contacted for Address Book information in the event that your home server is unavailable on the IPX/SPX network.
  11407. NDSNameServer
  11408. Enter the of the Notes server's fully qualified NDS distinguished name to be contacted for Address Book information in the event that your home server is unavailable on the IPX/SPX network. This information is only used if NDS Services have been enabled within Notes. e.g. CN=HubServer.OU=Sales.O=Acme
  11409.     Secondary NDS name server address:
  11410. NDSNameServer
  11411. NDSNameServerAddress
  11412. You must enter a Secondary NDS Notes name server if you are specifying a Secondary NDS name server address.
  11413.     5S6S
  11414. NDSNameServerAddressThe of the Notes server's fully qualified NDS distinguished name to be contacted for Address Book information in the event that your home server is unavailable on the IPX/SPX network.
  11415. NDSNameServerAddress
  11416.     Secondary NetBIOS Notes name server:
  11417. NetBIOSNameServer
  11418. Secondary Servers
  11419.     MIME Settings
  11420.     Format for messages addressed to internet addresses which cannot be found when sending:
  11421. MessageFormat
  11422. Notes Rich Text Format|0MIME Format|1
  11423.     Attachment 
  11424. Specify the encoding scheme to be used by the MTA.
  11425.     encoding method:
  11426. SMTPEncodingScheme
  11427. SMTPMessageContent
  11428. You cannot set your attachment encoding method to UUencode or None if you choose 'Only Lotus Notes Users' or 'Users with and without Lotus Notes' for your message content type.{
  11429. SMTPEncodingScheme
  11430. SMTPTransferMode
  11431. In order to use None as your transfer encoding method, you must select 8 bit  for the Transfer mode
  11432. SMTPEncodingScheme
  11433. You must specify the method for attachment encoding.{
  11434.     10S11S28S29S
  11435. SMTPEncodingSchemeSpecify the encoding scheme to be used by the MTA.
  11436. Base64|1Quoted-Printable|2UUencode|3z
  11437. SMTPEncodingScheme
  11438. Specify the MIME representation for the outbound Macintosh file attachment.
  11439.     Outbound Macintosh attachment conversion:
  11440. SMTPMacAttachConvertOptionSpecify the MIME representation for the outbound Macintosh file attachment.
  11441. AppleDouble (Base64 only)|1BinHex 4.0|2z
  11442. SMTPMacAttachConvertOption
  11443. MIME Settings
  11444. $LotusFaxLocationSubform | 1.0 | $LotusFaxLocationSubform
  11445. Other
  11446. Advanced
  11447. Administration
  11448. Full name of person allowed to modify this document.
  11449.     Owner:
  11450. Owner
  11451. Owner
  11452. Enter the names or group names which should have edit capabilities for this record.
  11453.     Administrators
  11454. LocalAdminz
  11455. LocalAdmin
  11456. AreaCodez
  11457. AreaCode
  11458. Location
  11459.     0S0E
  11460. Typez
  11461. DocumentAccessz
  11462. DocumentAccess
  11463. $LocationVersionz
  11464. $LocationVersion
  11465. ProxyFlag
  11466. Use same proxy for all Internet protocols.|1
  11467. ProxyFlag
  11468. ProxyFlag
  11469. Proxy_FTP
  11470. Proxy_FTP
  11471. Proxy_HTTP
  11472. ProxyFlag
  11473. Proxy_HTTP
  11474. Proxy_FTP
  11475.     11S15S16SProxy_FTP
  11476. Proxy_FTP
  11477. ProxyFlag
  11478. Proxy_Gopher
  11479. Proxy_Gopher
  11480. Proxy_HTTP
  11481. ProxyFlag
  11482. Proxy_HTTP
  11483. Proxy_Gopher
  11484.     8S15S16S
  11485. Proxy_Gopherz
  11486. Proxy_Gopher
  11487. ProxyFlag
  11488. Proxy_SSL
  11489. Proxy_SSL
  11490. Proxy_HTTP
  11491. Proxy_Flag
  11492. Proxy_HTTP
  11493. Proxy_SSL
  11494.     8S13S14S
  11495. Proxy_SSL
  11496. Proxy_SSL
  11497. ProxyFlag
  11498. UseProxyforNotes
  11499. Proxy_HTTP
  11500. ProxyFlag
  11501. UseProxyforNotes
  11502. Proxy_NotesHTTP
  11503.     5S6S15S16S
  11504. Proxy_NotesHTTP
  11505. Proxy_NotesHTTP
  11506. Proxy_SOCKS
  11507. Proxy_SOCKS
  11508. No_Proxyz
  11509. No_Proxy
  11510. AcceptUpdates
  11511. AcceptUpdates
  11512. AcceptUpdates
  11513. Yes|1No|0z
  11514. AcceptUpdates
  11515. Save and Close>
  11516.     0S0E
  11517.     0S0E
  11518. _Edit Location
  11519. Categori_zeK
  11520. Send Docu_ment
  11521. _Forward
  11522. _Move to Folder...
  11523. _Remove from Folder...
  11524. Advanced\Set Update Flag
  11525. AcceptUpdates
  11526. Location Update Settings
  11527. Allow administrators to keep this location's settings up to date with those settings on your mail server.
  11528. Connection Configuration WizardK'++LotusScript Development Environment:2:5:(Options):0:74
  11529. '++LotusScript Development Environment:2:5:(Forward):0:1
  11530. Declare Sub Click(Source As Button)
  11531. '++LotusScript Development Environment:2:5:(Declarations):0:10
  11532. Dim db As NotesDatabase
  11533. Dim uidoc As NotesUIDocument
  11534. Dim  doc As NotesDocument
  11535. Dim  newdoc As NotesDocument
  11536. Dim ItemDefaultPassthruServerName As NotesItem
  11537. Dim ItemLocationName As NotesItem
  11538. Dim phonenumber As Variant
  11539. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11540. Private Sub BindEvents(Byval Objectname_ As String)
  11541.     Static Source As BUTTON
  11542.     Set Source = Bind(Objectname_)
  11543.     On Event Click From Source Call Click
  11544. End Sub
  11545. '++LotusScript Development Environment:2:2:Click:1:12
  11546. Sub Click(Source As Button)
  11547.     Dim w As New NotesUIWorkspace
  11548.     Dim uidoc As NotesUIDocument
  11549.     Dim  doc As NotesDocument
  11550.     Dim ItemDefaultPassthruServerName As NotesItem
  11551.     Dim ItemLocationName As NotesItem
  11552.     Dim ItemLocationType As NotesItem
  11553.     On Error Goto errhandle
  11554.     Set uidoc=w.CurrentDocument
  11555.     Set doc=uidoc.Document 
  11556.     If uidoc.editmode Then Call uidoc.Refresh
  11557.     Set ItemLocationType=doc.GetFirstItem("LocationType")
  11558.     Set ItemLocationName=doc.GetFirstItem("Name") 
  11559.     Set ItemDefaultPassthruServerName=doc.GetFirstItem("DefaultPassthruServer") 
  11560.     If Len(ItemLocationName.Text) = 0 Then
  11561.         Msgbox "Please enter a Location name"
  11562.         Exit Sub
  11563.     Else    
  11564.         If ItemLocationType.Text="1" Or  ItemLocationType.Text="5"Or  ItemLocationType.Text="2"Then        
  11565.             If Len(ItemDefaultPassthruServerName.Text) = 0 Then 
  11566.                 Msgbox "Please enter name for Passthru server"
  11567.                 Exit Sub            
  11568.             End If
  11569.         End If
  11570.         If ItemLocationType.Text="1" Or  ItemLocationType.Text="2"Then    
  11571.             Call w.DialogBox("($Notes Dialup Wizard)",True,True,True,True,,,"Configuring server connection",,True,True)
  11572.         Else
  11573.                         'check if DUN installed, if not -exit sub
  11574.             vList = w.Get_DialEntry_List("RAS")
  11575.                         'bring location doc into edit mode
  11576.             If Not(uidoc.editmode) Then uidoc.editmode = True    
  11577.                           'bring wizard and create RAS and/or Passthru connections based on Location Type
  11578.             Call w.DialogBox("($Internet/RAS Dialup Wizard)",True,True,True,True,,,"Configuring server connection",,True,True)
  11579.         End If
  11580.     End If
  11581.     If uidoc.editmode Then
  11582.         uidoc.Save 
  11583.         uidoc.editmode = False        
  11584.     End If
  11585.     Exit Sub
  11586. errhandle:
  11587.     If Str(Err)="-3878" Then Msgbox "You don't have Dialup Networking installed."
  11588.     Exit Sub
  11589. End Sub
  11590. LocationType
  11591. Macintosh
  11592.     12S13S
  11593. Save and Close>
  11594.     0S0E
  11595.     0S0E
  11596. _Edit Location
  11597. Categori_zeK
  11598. Send Docu_ment
  11599. _Forward
  11600. _Move to Folder...
  11601. _Remove from Folder...
  11602. Advanced\Set Update Flag
  11603. AcceptUpdates
  11604. Location Update Settings
  11605. Allow administrators to keep this location's settings up to date with those settings on your mail server.
  11606. Connection Configuration WizardK'++LotusScript Development Environment:2:5:(Options):0:74
  11607. '++LotusScript Development Environment:2:5:(Forward):0:1
  11608. Declare Sub Click(Source As Button)
  11609. '++LotusScript Development Environment:2:5:(Declarations):0:10
  11610. Dim db As NotesDatabase
  11611. Dim uidoc As NotesUIDocument
  11612. Dim  doc As NotesDocument
  11613. Dim  newdoc As NotesDocument
  11614. Dim ItemDefaultPassthruServerName As NotesItem
  11615. Dim ItemLocationName As NotesItem
  11616. Dim phonenumber As Variant
  11617. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11618. Private Sub BindEvents(Byval Objectname_ As String)
  11619.     Static Source As BUTTON
  11620.     Set Source = Bind(Objectname_)
  11621.     On Event Click From Source Call Click
  11622. End Sub
  11623. '++LotusScript Development Environment:2:2:Click:1:12
  11624. Sub Click(Source As Button)
  11625.     Dim w As New NotesUIWorkspace
  11626.     Dim uidoc As NotesUIDocument
  11627.     Dim  doc As NotesDocument
  11628.     Dim ItemDefaultPassthruServerName As NotesItem
  11629.     Dim ItemLocationName As NotesItem
  11630.     Dim ItemLocationType As NotesItem
  11631.     On Error Goto errhandle
  11632.     Set uidoc=w.CurrentDocument
  11633.     Set doc=uidoc.Document 
  11634.     If uidoc.editmode Then Call uidoc.Refresh
  11635.     Set ItemLocationType=doc.GetFirstItem("LocationType")
  11636.     Set ItemLocationName=doc.GetFirstItem("Name") 
  11637.     Set ItemDefaultPassthruServerName=doc.GetFirstItem("DefaultPassthruServer") 
  11638.     If Len(ItemLocationName.Text) = 0 Then
  11639.         Msgbox "Please enter a Location name"
  11640.         Exit Sub
  11641.     Else    
  11642.         If ItemLocationType.Text="1" Or  ItemLocationType.Text="5"Or  ItemLocationType.Text="2"Then        
  11643.             If Len(ItemDefaultPassthruServerName.Text) = 0 Then 
  11644.                 Msgbox "Please enter name for Passthru server"
  11645.                 Exit Sub            
  11646.             End If
  11647.         End If
  11648.         If ItemLocationType.Text="1" Or  ItemLocationType.Text="2"Then    
  11649.             Call w.DialogBox("($Notes Dialup Wizard)",True,True,True,True,,,"Configuring server connection",,True,True)
  11650.         Else
  11651.                         'check if DUN installed, if not -exit sub
  11652.             vList = w.Get_DialEntry_List("RAS")
  11653.                         'bring location doc into edit mode
  11654.             If Not(uidoc.editmode) Then uidoc.editmode = True    
  11655.                           'bring wizard and create RAS and/or Passthru connections based on Location Type
  11656.             Call w.DialogBox("($Internet/RAS Dialup Wizard)",True,True,True,True,,,"Configuring server connection",,True,True)
  11657.         End If
  11658.     End If
  11659.     If uidoc.editmode Then
  11660.         uidoc.Save 
  11661.         uidoc.editmode = False        
  11662.     End If
  11663.     Exit Sub
  11664. errhandle:
  11665.     If Str(Err)="-3878" Then Msgbox "You don't have Dialup Networking installed."
  11666.     Exit Sub
  11667. End Sub
  11668. LocationType
  11669. Macintosh
  11670.     12S13S
  11671. Lotus Product
  11672. OBJECT
  11673. O=Lotus Notes
  11674. O=Lotus Notes
  11675. PURSAFO
  11676. |.:#U
  11677. O=Lotus Notes
  11678. CN=Lotus Notes Template Development/O=Lotus Notes
  11679. PURSAFO
  11680. Interval_1
  11681. Interval_2
  11682. IntervalHigh
  11683. IntervalLow
  11684. FreqHigh
  11685. FreqLow
  11686. Card_No
  11687. Card_No_1
  11688. IntervalMed
  11689. $$FormQuerySaveAction
  11690. $FormUsers
  11691. $INFO
  11692. $SubForms
  11693. $WINDOWTITLE
  11694. $$Script_O
  11695. $$ScriptName
  11696. $$FormScript
  11697. $$$FormScript_O
  11698. $$FormAction2
  11699. $$Proxy_HTTP
  11700. $Proxy_HTTP_O
  11701. MailThreshold
  11702. Schedule
  11703. Interval
  11704. RLANIdleTimeout
  11705. $BODY
  11706. $V5ACTIONS
  11707. $ACTIONS
  11708. $SCRIPTOBJ_8
  11709. $DesignVersion$Version$Formula$FormulaClass$Collation$UpdatedBy$Name$INFO$Flags$Fonts$BODY$Signature$ACLDigest$TITLEIconBitmap$DefaultNavigator$FlagsNoRefresh$Author$Index$Collation1$Collation2$VIEWFORMAT$Comment$V5ACTIONS$ACTIONS$FormUsers$AUTOLAUNCH$WINDOWTITLE$$Script_OConnectionTypeDestinationLanPortNamePassthruServercountryDialAreaCodeAreaCodeInputLocalPhoneNumberConnectionLocationOptionalNetworkAddressScriptNameSourceScriptArg1ScriptArg2ScriptArg3ScriptArg4LinkScriptInfoConnectionRecordFirstDestinationDomainRemotePortNameCommentsEnabledScheduleIntervalWeekDaysTasksMailThresholdCostRepPriorityAreaCodeTypeOwnerDocumentAccessPortNamePhoneNumberForm$FIELDS$$ScriptNameUserNameDomainMailAddressMailSystemMailDomainInternetAddressInternetDomain$$Name$Name_O$Script$$FormScript$$$FormScript_O$$CompanyName$CompanyName_O$$BusinessAddress$BusinessAddress_O$$HomeAddress$HomeAddress_O$$OfficePhoneNumber$OfficePhoneNumber_O$$OfficeFAXPhoneNumber$OfficeFAXPhoneNumber_O$$CellPhoneNumber$CellPhoneNumber_O$$PhoneNumber$PhoneNumber_O$$HomeFAXPhoneNumber$HomeFAXPhoneNumber_O$$PhoneNumber_6$PhoneNumber_6_OPhoneLabel_1PhoneLabel_3PhoneLabel_5PhoneLabel_2PhoneLabel_4PhoneLabel_6OfficeStreetAddressOfficeCityOfficeStateStreetAddressCityStateAreaCodeFromLocParseFlagTitleFirstNameMiddleInitialLastNameSuffixCompanyNameJobTitleBusinessAddressOfficeZIPOfficeCountryHomeAddressDisplayHomeAddressZipOfficePhoneNumberOfficeFAXPhoneNumberCellPhoneNumberHomeFAXPhoneNumberPhoneNumber_6LocationDepartmentManagerAssistantSpouseChildrenWebSiteCategoriesCommentFullNameShortNameCertificatePublicKey$$XMB$$XMB_2$$XMB_3$Licensee$HeaderLocalAdminFaxNumberFaxDomainDDAsGSOCOU1OU2OU3OU4IQPRMDADMDCNX400DomainDDA1DDA2DDA3DDA4ccMailUserNameccMailPOccMailDomainName$ScriptLib$ScriptLib_O$PublicAccess$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$TYPE$TABLEFORMAT$ViewGlobalScript_O$SCRIPTOBJ_1$DBScript$DBScript_OGroupSortDefaultLDAPFTInumnum1$BusinessCardStyle$BusinessCardBkg$LeftToDo$HTMLDocumentStyles$$FormAction7AccountNameAccountServerAccountLoginNameAccountPasswordAccountProtocolSSLStatusAccountLocationAccountFilenameLDAPTimeoutLDAPMaxEntriesLDAPSearchBaseLDAPCheckNamesPopDeleteMailIMAPModeMessageStorageAccountPortNumberSSLSiteCertsSSLExpiredCertsSSLSendCertificatesSSLServerAuthenticateSSLProtocolVersionAccountAuthorLanguageListCharacterSetGroupsLanguageToCharSetCharacterSetsEncodingTypesFontListCVS_PrimaryGroupCVS_SecondaryGroupsOutChoices$OutboundSettingsCVSI_EN_F_PCVSI_EN_F_MCVSI_EN_F_SizeCVSO_EN_CS_HCVSO_EN_ENC_HCVSO_EN_CS_BCVSO_EN_ENC_BCVSI_WE_F_PCVSI_WE_F_MCVSI_WE_F_SizeCVSO_WE_CS_HCVSO_WE_ENC_HCVSO_WE_CS_BCVSO_WE_ENC_BCVSI_CE_F_PCVSI_CE_F_MCVSI_CE_F_SizeCVSO_CE_CS_HCVSO_CE_ENC_HCVSO_CE_CS_BCVSO_CE_ENC_BCVSI_TR_F_PCVSI_TR_F_MCVSI_TR_F_SizeCVSO_TR_CS_HCVSO_TR_ENC_HCVSO_TR_CS_BCVSO_TR_ENC_BCVSI_BR_F_PCVSI_BR_F_MCVSI_BR_F_SizeCVSO_BR_CS_HCVSO_BR_ENC_HCVSO_BR_CS_BCVSO_BR_ENC_BCVSI_GR_F_PCVSI_GR_F_MCVSI_GR_F_SizeCVSO_GR_CS_HCVSO_GR_ENC_HCVSO_GR_CS_BCVSO_GR_ENC_BCVSI_CY_F_PCVSI_CY_F_MCVSI_CY_F_SizeCVSO_CY_CS_HCVSO_CY_ENC_HCVSO_CY_CS_BCVSO_CY_ENC_BCVSI_AR_F_PCVSI_AR_F_MCVSI_AR_F_SizeCVSO_AR_CS_HCVSO_AR_ENC_HCVSO_AR_CS_BCVSO_AR_ENC_BCVSI_HB_F_PCVSI_HB_F_MCVSI_HB_F_SizeCVSO_HB_CS_HCVSO_HB_ENC_HCVSO_HB_CS_BCVSO_HB_ENC_BCVSI_JA_F_PCVSI_JA_F_MCVSI_JA_F_SizeCVSO_JA_CS_HCVSO_JA_ENC_HCVSO_JA_CS_BCVSO_JA_ENC_BCVSI_KO_F_PCVSI_KO_F_MCVSI_KO_F_SizeCVSO_KO_CS_HCVSO_KO_ENC_HCVSO_KO_CS_BCVSO_KO_ENC_BCVSI_SC_F_PCVSI_SC_F_MCVSI_SC_F_SizeCVSO_SC_CS_HCVSO_SC_ENC_HCVSO_SC_CS_BCVSO_SC_ENC_BCVSI_TC_F_PCVSI_TC_F_MCVSI_TC_F_SizeCVSO_TC_CS_HCVSO_TC_ENC_HCVSO_TC_CS_BCVSO_TC_ENC_BCVSI_TH_F_PCVSI_TH_F_MCVSI_TH_F_SizeCVSO_TH_CS_HCVSO_TH_ENC_HCVSO_TH_CS_BCVSO_TH_ENC_BCVSI_VT_F_PCVSI_VT_F_MCVSI_VT_F_SizeCVSO_VT_CS_HCVSO_VT_ENC_HCVSO_VT_CS_BCVSO_VT_ENC_BCVSI_UN_F_PCVSI_UN_F_MCVSI_UN_F_SizeCVSO_UN_CS_HCVSO_UN_ENC_HCVSO_UN_CS_BCVSO_UN_ENC_BCVSI_NonMIMECharSetCVSI_CharsetAlias1CVSI_CharsetActual1CVSI_CharsetAlias2CVSI_CharsetActual2CVSI_CharsetAlias3CVSI_CharsetActual3CVSI_CharsetAlias4CVSI_CharsetActual4CVSI_CharsetAlias5CVSI_CharsetActual5CVS_MLMessageHandlingCVSO_CharsetActual1CVSO_CharsetAlias1CVSO_CharsetActual2CVSO_CharsetAlias2CVSO_CharsetActual3CVSO_CharsetAlias3CVSO_CharsetActual4CVSO_CharsetAlias4CVSO_CharsetActual5CVSO_CharsetAlias5CVSO_CharsetActual6CVSO_CharsetAlias6CVSO_CharsetActual7CVSO_CharsetAlias7CVSO_CharsetActual8CVSO_CharsetAlias8CVSO_CharsetActual9CVSO_CharsetAlias9CVSO_CharsetActual10CVSO_CharsetAlias10OriginalServiceDisplayDriverListServiceTypeDUNEntriesAccessLANDefaultPassthruServerDominoOrganizationNamePassthruServerHostnamePortsRASPortInternettmpCountryCodetmpAreaCodetmpPhoneNumbertmpLoginNametmpPassword$ImagesWide$ImagesHigh$ImageData$ImageNamesPriorityFlagRLANTagRemoteLanServiceRLAN1RLAN2RLAN3RLAN4$RevisionsGroupTypeListDescriptionListOwnerAvailableForDirSyncGroupTitleListNameMembers$ImagesColorize$SubForms$SCRIPTOBJ_10CertificateTypeNameComboOrgComboCertificate_NoEncIssuedByIssuedToMailServerMailFileChangeRequestStaticTagRLANItemsRLAN6RLANTotalParamsARAEntryVersionRLANTagV21RLANTagV30RLAN5Interval_1Interval_2IntervalHighIntervalLowFreqHighFreqLowCard_NoCard_No_1IntervalMed$$FormQuerySaveAction$$FormAction2$$Proxy_HTTP$Proxy_HTTP_OLocationTypeTravelPromptProxy_HTTPImailAddressUserNameFlagCatalogServerDirectoryServerInterNotesEnabledPortsDisabledPortsMailTypeNameLookupPrefExhaustiveNameLookupMailAddressingSMTPRouteWebRetrieverWebLocationWebRetrieverPathOutsideLineCallPreInternationalPrefixLongDistancePrefixR5TimeZoneDSTUserIDImagesBookmarkDbHeadlineDBRLANIdleTimeoutWebDbNameWebRetrieversWebLogLevelWebUpdateCacheJavaSecureDomainJavaAllowInSecureDomainJavaAllowInOtherDomainsJavaTrustHTTPProxyTCPNameServerTCPNameServerHostNDSNameServerNDSNameServerAddressNetBIOSNameServerMessageFormatSMTPEncodingSchemeSMTPMacAttachConvertOption$LocationVersionProxyFlagProxy_FTPProxy_GopherProxy_SSLProxy_NotesHTTPProxy_SOCKsNo_ProxyAcceptUpdates$SCRIPTOBJ_8$$Proxy_HTTPI$Proxy_HTTPI_O$$Port1$Port1_OProxy_HTTPIPort1Proxy_FTPIPort2Proxy_GopherIPort3Proxy_SSLIPort4Proxy_SOCKsIPort5Proxy_NotesHTTPIPort6
  11710. &Arial
  11711. (ProxyDialog)'++LotusScript Development Environment:2:5:(Options):0:66
  11712. '++LotusScript Development Environment:2:5:(Forward):0:1
  11713. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11714. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11715. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11716. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11717. Private Sub BindEvents(Byval Objectname_ As String)
  11718.      Static Source As NOTESUIDOCUMENT
  11719.      Set Source = Bind(Objectname_)
  11720.      On Event Querysave From Source Call Querysave
  11721.      On Event Queryclose From Source Call Queryclose
  11722. End Sub
  11723. '++LotusScript Development Environment:2:2:Querysave:1:12
  11724. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11725.      
  11726. End Sub
  11727. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11728. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11729.      Dim w As New NotesUIWorkspace 
  11730.      Dim s As New NotesSession
  11731.      Dim db As NotesDatabase
  11732.      Dim doc As NotesDocument
  11733.      Set db = s.CurrentDatabase
  11734.      Dim uidoc As notesuidocument
  11735.      Set uidoc=w.currentdocument
  11736.      Set doc = uidoc.document
  11737.      
  11738.      If doc.ProxyFlag(0) = "1" Then
  11739.           doc.Proxy_FTPI = doc.Proxy_HTTPI(0)
  11740.           doc.Proxy_GopherI = doc.Proxy_HTTPI(0)
  11741.           doc.Proxy_SSLI = doc.Proxy_HTTPI(0)
  11742.           doc.Proxy_HTTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11743.           doc.Proxy_FTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11744.           doc.Proxy_Gopher=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11745.           doc.Proxy_SSL=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11746.           doc.Proxy_SOCKs=doc.Proxy_SOCKsI(0)&":"&doc.Port5(0)
  11747.           If doc.Proxy_NotesHTTPI(0) <>"" Then
  11748.                doc.Proxy_NotesHTTP=doc.Proxy_NotesHTTPI(0)&":"&doc.Port6(0)
  11749.           End If
  11750.           Call uidoc.refresh
  11751.      End If
  11752. End Sub
  11753. '++LotusScript Development Environment:2:5:(Options):0:66
  11754. '++LotusScript Development Environment:2:5:(Forward):0:1
  11755. Declare Sub Exiting(Source As Field)
  11756. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11757. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11758. Private Sub BindEvents(Byval Objectname_ As String)
  11759.      Static Source As FIELD
  11760.      Set Source = Bind(Objectname_)
  11761.      On Event Exiting From Source Call Exiting
  11762. End Sub
  11763. '++LotusScript Development Environment:2:2:Exiting:1:12
  11764. Sub Exiting(Source As Field)
  11765.      Dim w As New NotesUIWorkspace 
  11766.      Dim s As New NotesSession
  11767.      Dim db As NotesDatabase
  11768.      Dim doc As NotesDocument
  11769.      Set db = s.CurrentDatabase
  11770.      Dim uidoc As notesuidocument
  11771.      Set uidoc=w.currentdocument
  11772.      Set doc = uidoc.document
  11773.      
  11774.      If doc.ProxyFlag(0) = "1" Then
  11775.           doc.Proxy_FTPI = doc.Proxy_HTTPI(0)
  11776.           doc.Proxy_GopherI = doc.Proxy_HTTPI(0)
  11777.           doc.Proxy_SSLI = doc.Proxy_HTTPI(0)
  11778.           doc.Proxy_HTTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11779.           doc.Proxy_FTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11780.           doc.Proxy_Gopher=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11781.           doc.Proxy_SSL=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11782.           Call uidoc.refresh
  11783.      End If
  11784. End Sub
  11785. '++LotusScript Development Environment:2:5:(Options):0:66
  11786. '++LotusScript Development Environment:2:5:(Forward):0:1
  11787. Declare Sub Exiting(Source As Field)
  11788. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11789. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11790. Private Sub BindEvents(Byval Objectname_ As String)
  11791.      Static Source As FIELD
  11792.      Set Source = Bind(Objectname_)
  11793.      On Event Exiting From Source Call Exiting
  11794. End Sub
  11795. '++LotusScript Development Environment:2:2:Exiting:1:12
  11796. Sub Exiting(Source As Field)
  11797.      Dim w As New NotesUIWorkspace 
  11798.      Dim s As New NotesSession
  11799.      Dim db As NotesDatabase
  11800.      Dim doc As NotesDocument
  11801.      Set db = s.CurrentDatabase
  11802.      Dim uidoc As notesuidocument
  11803.      Set uidoc=w.currentdocument
  11804.      Set doc = uidoc.document
  11805.      
  11806.      If doc.ProxyFlag(0) = "1" Then
  11807.           doc.Port2 = doc.Port1(0)
  11808.           doc.Port3 = doc.Port1(0)
  11809.           doc.Port4 = doc.Port1(0)
  11810.           doc.Proxy_HTTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11811.           doc.Proxy_FTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11812.           doc.Proxy_Gopher=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11813.           doc.Proxy_SSL=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  11814.           Call uidoc.refresh
  11815.      End If
  11816. End Sub
  11817. Proxy_HTTP
  11818. Proxy_HTTPI
  11819. Proxy_HTTPI
  11820. Port1
  11821. Port1
  11822.     10S11S12SProxy_HTTP
  11823. Proxy_FTP
  11824. Proxy_FTPI^
  11825. Proxy_FTPI
  11826. Port2
  11827. Port2
  11828.     10S11S12SProxy_FTP
  11829. Proxy_Gopher
  11830. Proxy_GopherI
  11831. Proxy_GopherI
  11832. Port3
  11833. Port3
  11834.     10S11S12SProxy_Gopher
  11835. Proxy_SSL
  11836. Proxy_SSLI^
  11837. Proxy_SSLI
  11838. Port4
  11839. Port4
  11840.     10S11S12SProxy_SSL
  11841. Proxy_SOCKS
  11842. Proxy_SOCKsI
  11843. Proxy_SOCKsI^
  11844. Port5
  11845. Port5
  11846.     0S0E
  11847. Proxy_SOCKS
  11848. Proxy_NotesHTTP
  11849. Proxy_NotesHTTPI
  11850. Proxy_NotesHTTPI^
  11851. Port6
  11852. Port6
  11853.     0S0E
  11854. Proxy_NotesHTTP
  11855. Proxy_HTTP
  11856. Proxy_HTTP
  11857. Proxy_HTTP
  11858. Proxy_HTTP
  11859.     0S0E
  11860. Proxy_HTTPI
  11861. http://
  11862. Proxy_HTTPI
  11863. http://
  11864. Proxy_HTTPI
  11865.     0S0E
  11866. Proxy_HTTPIEnter the domain name or IP address of your HTTP proxy server.
  11867. Proxy_HTTP
  11868. Proxy_HTTP
  11869.     0S0E
  11870. Port1Enter the port address of the HTTP proxy server.
  11871. ProxyFlag
  11872. Use same proxy for Internet protocols|1
  11873. ProxyFlag
  11874.     0S0E
  11875. Proxy_FTP
  11876.     0S0E
  11877. ProxyFlag
  11878. Proxy_HTTPI
  11879. Proxy_FTPIa
  11880. http://
  11881. Proxy_FTPIa
  11882. http://
  11883. Proxy_FTPI
  11884.     30SProxy_FTPIEnter the domain name or IP address of your FTP proxy server.
  11885. Proxy_FTP
  11886. Proxy_FTP
  11887.     0S0E
  11888. Port2Enter the port address of the FTP proxy server.
  11889. Proxy_Gopher
  11890.     0S0E
  11891. ProxyFlag
  11892. Proxy_HTTPI
  11893. Proxy_GopherI
  11894. http://
  11895. Proxy_GopherI
  11896. http://
  11897. Proxy_GopherI
  11898.     30SProxy_GopherIEnter the domain name or IP address of your Gopher proxy server.
  11899. Proxy_Gopher
  11900. Proxy_Gopher
  11901.     0S0E
  11902. Port3Enter the port address of the Gopher proxy server.
  11903. Proxy_SSL
  11904.     0S0E
  11905. ProxyFlag
  11906. Proxy_HTTPI
  11907. Proxy_SSLIa
  11908. http://
  11909. Proxy_SSLIa
  11910. http://
  11911. Proxy_SSLI
  11912.     0S0E
  11913. Proxy_SSLI
  11914. Port4
  11915. The length of the SSL Security proxy cannot be greater than 250 characters.  Consider entering the IP address instead.{
  11916.     7S8S12S15S
  11917. Proxy_SSLIEnter the domain name or IP address of your SSL security proxy server.
  11918. Proxy_SSL
  11919. Proxy_SSL
  11920.     0S0E
  11921. Port4Enter the port address of the SSL security proxy server.
  11922. Proxy_SOCKS
  11923. Proxy_SOCKS
  11924.     0S0E
  11925. Proxy_SOCKSI
  11926. Port5
  11927. The length of the SOCKS proxy cannot be greater than 250 characters.  Consider entering the IP address instead.
  11928.     7S8S12S15S
  11929. Proxy_SOCKSIEnter the domain name or IP address of your SOCKS proxy server.
  11930. Proxy_SOCKs
  11931. Proxy_SOCKs
  11932.     0S0E
  11933. Port5Enter the port address of the SOCKS proxy server.
  11934. Proxy_NotesHTTP
  11935. Proxy_NotesHTTP
  11936.     0S0E
  11937. Proxy_NotesHTTPIa
  11938. http://
  11939. Proxy_NotesHTTPIa
  11940. http://
  11941. Proxy_NotesHTTPI
  11942.     0S0E
  11943. Proxy_NotesHTTPI
  11944. Port6
  11945. The length of the Notes RPC proxy cannot be greater than 250 characters.  Consider entering the IP address instead.
  11946.     7S8S12S15S
  11947. Proxy_NotesHTTPITo use Notes protocols on the Internet (e.g. Replication), enter the domain name or IP address of your HTTP proxy server.
  11948. Proxy_NotesHTTP
  11949. Proxy_NotesHTTP
  11950.     0S0E
  11951. Port6Enter the port address of the HTTP proxy server.
  11952. No_Proxy^
  11953.     0S0E
  11954. No_ProxyEnter the domain name, host name or IP address of those servers on your LAN that you DO NOT want to connect to via the proxy server.
  11955.     HTTP:
  11956.     SSL Security:
  11957.     Gopher:
  11958.     FTP:
  11959.     SOCKS:
  11960.     Port:
  11961.     Notes RPC:
  11962.     No proxy for these hosts or domains:
  11963.     Proxy type:
  11964. ProxyFlag
  11965.     0S0E
  11966. ProxyFlag
  11967. Proxy_HTTPI
  11968. Proxy_FTP
  11969.     0S0E
  11970. Proxy_FTPD
  11971. ProxyFlag
  11972. Port1
  11973. Proxy_FTP
  11974.     0S0E
  11975. Port2D
  11976. ProxyFlag
  11977. Proxy_HTTPI
  11978. Proxy_Gopher
  11979.     0S0E
  11980. Proxy_GopherD
  11981. ProxyFlag
  11982. Port1
  11983. Proxy_Gopher
  11984.     0S0E
  11985. Port3D
  11986. ProxyFlag
  11987. Proxy_HTTPI
  11988. Proxy_SSL
  11989.     0S0E
  11990. Proxy_SSLD
  11991. ProxyFlag
  11992. Port1
  11993. Proxy_SSL
  11994.     0S0E
  11995. Port4D
  11996. '++LotusScript Development Environment:2:5:(Options):0:66
  11997. '++LotusScript Development Environment:2:5:(Forward):0:1
  11998. Declare Sub Click(Source As Button)
  11999. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12000. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12001. Private Sub BindEvents(Byval Objectname_ As String)
  12002.      Static Source As BUTTON
  12003.      Set Source = Bind(Objectname_)
  12004.      On Event Click From Source Call Click
  12005. End Sub
  12006. '++LotusScript Development Environment:2:2:Click:1:12
  12007. Sub Click(Source As Button)
  12008.      Dim session As New NotesSession
  12009.      Dim platform As String
  12010.      Dim x As Integer
  12011.      Dim boxtype As Long
  12012.      boxtype = 4 + 64
  12013.      platform=session.Platform
  12014.      
  12015.      If platform <> "Macintosh" Then
  12016.           x=Messagebox ("If you are using a proxy server for internet access from your machine, enter the domain name or IP address of your HTTP, FTP, Gopher, SSL Security or SOCKS proxy server in the appropriate field.  Usually this field is required only for connecting to the Internet from your organization's local area network.  Please consult your Internet system administrator if you need help setting these fields. " & Chr(10) & Chr(10) &"To see help on 'Notes RPC' and 'No proxy for these hosts or domains' , press Yes", boxtype, "HTTP, FTP, Gopher, SSL Security and SOCKS fields" )
  12017.           If x = 7 Then
  12018.                Exit Sub
  12019.           End If
  12020.           x=Messagebox ("If you are using a HTTP proxy server for internet access from your machine, and wish to use Notes protocols on the Internet (e.g. Replication), enter the domain name or IP address of your HTTP proxy server.  This field is required only for computers on your organization's local area network who wish to communicate with other Notes servers on the Internet.  This feature requires that your HTTP proxy server support the HTTP Connect method. Please consult your Internet system administrator if you need help setting this field. " & Chr(10) & Chr(10) &"To see help for 'No proxy for these hosts or domains', press Yes", boxtype, "Notes RPC" )
  12021.           If x = 7 Then
  12022.                Exit Sub
  12023.           End If
  12024.           x=Messagebox ("If you are using a proxy server for internet access and you DO NOT wish to also use the proxy to connect to servers on your organization's local area network, enter the domain name, host name or IP address of those servers on your local area network. A '*' may be uses as a wild-card. The following are valid entries (e.g. acme.com, server.acme.com, 139.42.94.219, *.acme.com). All proxies share the NoProxy field. Usually this field is required only for servers on your organization's local area network connecting to the Internet via a proxy as well as server on your organization's local area network. Please consult your Internet system administrator if you need help setting this field." , 0+64, "No Proxy" )
  12025.           Exit Sub
  12026.      End If
  12027.      If platform = "Macintosh" Then
  12028.           x=Messagebox ("If you are using a proxy server for internet access from your machine, enter the domain name or IP address of your HTTP, FTP, Gopher, SSL Security or SOCKS proxy server in the appropriate field." & Chr(13) & Chr(13) &"To continue , press Yes", boxtype, "HTTP, FTP, Gopher, SSL Security and SOCKS fields" )
  12029.           If x = 7 Then
  12030.                Exit Sub
  12031.           End If
  12032.           x=Messagebox("Usually this field is required only for connecting to the Internet from your organization's local area network.  Please consult your Internet system administrator for help. " & Chr(13) & Chr(13) &"To continue, press Yes", boxtype, "HTTP, FTP, Gopher, SSL Security and SOCKS fields" )
  12033.           If x = 7 Then
  12034.                Exit Sub
  12035.           End If 
  12036.           x=Messagebox ("If you are using a HTTP proxy server for internet access from your machine, and wish to use Notes protocols on the Internet (e.g. Replication), enter the domain name or IP address of your HTTP proxy server." & Chr(13) & Chr(13) &"To continue, press Yes", boxtype, "Notes RPC" )
  12037.           If x = 7 Then
  12038.                Exit Sub
  12039.           End If
  12040.           x=Messagebox("This field is required only for systems on your organization's local area network who wish to communicate with other Notes servers on the Internet.  This feature requires that your HTTP proxy server support the HTTP Connect method." & Chr(13) & Chr(13) &"To continue, press Yes", boxtype, "Notes RPC" )
  12041.           If x = 7 Then
  12042.                Exit Sub
  12043.           End If          
  12044.           x=Messagebox ("If using a proxy server for internet access and you DO NOT wish to also use the proxy to connect to servers on your local area network, enter the domain name, host name or IP address of those servers on your local area network." & Chr(13) & Chr(13) &"To continue, press Yes", boxtype, "No Proxy" )
  12045.           If x = 7 Then
  12046.                Exit Sub
  12047.           End If     
  12048.           x=Messagebox("A '*' may be uses as a wild-card. The following are valid entries (e.g. acme.com, server.acme.com, 139.42.94.219, *.acme.com). All proxies share the NoProxy field." & Chr(13) & Chr(13) &"To continue, press Yes", boxtype, "No Proxy" )
  12049.           If x = 7 Then
  12050.                Exit Sub
  12051.           End If               
  12052.           x=Messagebox("Usually this field is required only for servers on your organization's local area network connecting to the Internet via a proxy as well as servers on your organization's local area network. Please consult your Internet system administrator for help." , 0+64, "No Proxy" )
  12053.           Exit Sub
  12054.      End If
  12055. End Sub
  12056.  @  @@ @` @
  12057. @@ @@@@@`@@
  12058. `@ `@@`@``@
  12059. O=Lotus Notes
  12060. O=Lotus Notes
  12061. PURSAFO
  12062. |.:#U
  12063. O=Lotus Notes
  12064. CN=Lotus Notes Template Development/O=Lotus Notes
  12065. PURSAFO
  12066. %"d7!
  12067. $TITLE
  12068. $INFO
  12069. $$Script_O
  12070. $$ScriptName
  12071. $$FormScript
  12072. $$$FormScript_O
  12073. $$Proxy_HTTPI
  12074. $Proxy_HTTPI_O
  12075. $$Port1
  12076. $Port1_O
  12077. $BODY
  12078. First Hierarchy
  12079. Level0
  12080. Level0
  12081. Level1
  12082.     0R5S6S8S11S12S15S16S18S20S23S
  12083. Level1
  12084. Level1
  12085. Level2
  12086.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12087. Level2
  12088. Level2
  12089. Level3
  12090.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12091. Level3
  12092. Level3
  12093. Level4
  12094.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12095. Level4
  12096. Level4
  12097. Level5
  12098.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12099. Level5
  12100. Level5
  12101. Level6
  12102.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12103. Level6
  12104. Level6
  12105.     0R1S2S5S6S8S10S
  12106. Second Hiearchy
  12107.     0R1S
  12108. Level0_1
  12109. Level0_1
  12110. Level1_1
  12111.     0R5S6S8S11S12S15S16S18S20S23S
  12112. Level1_1
  12113. Level1_1
  12114. Level2_1
  12115.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12116. Level2_1
  12117. Level2_1
  12118. Level3_1
  12119.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12120. Level3_1
  12121. Level3_1
  12122. Level4_1
  12123.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12124. Level4_1
  12125. Level4_1
  12126. Level5_1
  12127.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12128. Level5_1
  12129. Level5_1
  12130. Level6_1
  12131.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12132. Level6_1
  12133. Level6_1
  12134.     0R1S2S5S6S8S10S
  12135. Third Hiearchy
  12136.     0R1S
  12137. Level0_2
  12138. Level0_2
  12139. Level1_2
  12140.     0R5S6S8S11S12S15S16S18S20S23S
  12141. Level1_2
  12142. Level1_2
  12143. Level2_2
  12144.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12145. Level2_2
  12146. Level2_2
  12147. Level3_2
  12148.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12149. Level3_2
  12150. Level3_2
  12151. Level4_2
  12152.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12153. Level4_2
  12154. Level4_2
  12155. Level5_2
  12156.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12157. Level5_2
  12158. Level5_2
  12159. Level6_2
  12160.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12161. Level6_2
  12162. Level6_2
  12163.     0R1S2S5S6S8S10S
  12164. Fourth Hiearchy
  12165.     0R1S
  12166. Level0_3
  12167. Level0_3
  12168. Level1_3
  12169.     0R5S6S8S11S12S15S16S18S20S23S
  12170. Level1_3
  12171. Level1_3
  12172. Level2_3
  12173.     0R2S5S6S8S11S12S15S16S18S20S23S
  12174. Level2_3
  12175. Level2_3
  12176. Level3_3
  12177.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12178. Level3_3
  12179. Level3_3
  12180. Level4_3
  12181.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12182. Level4_3
  12183. Level4_3
  12184. Level5_3
  12185.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12186. Level5_3
  12187. Level5_3
  12188. Level6_3
  12189.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12190. Level6_3
  12191. Level6_3
  12192.     0R1S2S5S6S8S10S
  12193. Aggregation
  12194.     0R1S
  12195.     0R4RS11E9S10S11S12S13S14S15S16S17S18S20S21RS11E26S27S28S29S30S31S32S33S34S35S38RS11E41S42S43S45S51S55RS11E71RS11E
  12196. *No Corporate Hierachy Specified*
  12197. Person
  12198. Database
  12199. ResourceFlagh
  12200. ResourceType
  12201. ResourceFlag
  12202. ResourceFlagh
  12203. ResourceType
  12204. ResourceFlag
  12205. Server
  12206. Group
  12207. GroupType
  12208. GroupType
  12209. GroupType
  12210. GroupType
  12211. GroupType
  12212.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S89S
  12213. PersonalID
  12214. PersonalID
  12215. DisplayPersonName
  12216. Person
  12217. LastName
  12218. FirstName
  12219. MiddleInitial
  12220.     1S2S5S6S8S16S18S19S23S27S30S31S32S34S
  12221. DisplayName
  12222. Group
  12223. ListName
  12224. Server
  12225. Servername
  12226. DisplayPersonName
  12227. FullName
  12228. DisplayPersonName
  12229.     0R1S2S5S6S8S12S21S24S25S27S31S34S
  12230. AltName
  12231. AltFullName
  12232. JobTitle
  12233. JobTitle
  12234. DisplayName
  12235. AltName
  12236. AltFullName
  12237.     0R9S10S15S20S23S24S
  12238. MAMailAddress
  12239. Person
  12240. MailSystem
  12241. MailAddress
  12242. MailAddress
  12243. MailDomain
  12244. MailDomain"
  12245. FullName
  12246. FullName
  12247. MailDomain
  12248. MailDomain"
  12249. FirstName
  12250. FirstName
  12251. LastName"
  12252. MailDomain
  12253. MailDomain"
  12254. LastName
  12255. MailDomain
  12256. MailDomain"
  12257. Database
  12258. FullName
  12259. MailDomain
  12260. MailDomain"
  12261. Group
  12262. GroupType
  12263. GroupType
  12264. ListName
  12265.     3S4S5S6S19S20S27S28S39S40S42S46S48S49S52S53S55S56S57S59S71S72S79S80S86S87S94S95S102S103S104S106S110S112S113S117S118S120S121S122S124S128S129S130S131S132S139S145S
  12266. NPName
  12267. Group
  12268. ListName
  12269. Server
  12270. ServerName
  12271. Person
  12272. Database
  12273. FullName
  12274.     3S4S6S25S29S
  12275. MAPublicKey
  12276. Certificate
  12277. PublicKey
  12278. Certificate
  12279. PublicKey
  12280. Server
  12281. Certificate
  12282.     7S8S34S35S
  12283. AltFullName
  12284. AltFullName
  12285. $55$45PersonalID$60MAMailAddressNPNameTypeMAPublicKeyAltFullName$Conflict$REF
  12286. Person
  12287. Group
  12288. Database
  12289. Server
  12290.     L1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S
  12291. First Hierarchy
  12292. Level0
  12293. Level0
  12294. Level1
  12295.     0R5S6S8S11S12S15S16S18S20S23S
  12296. Level1
  12297. Level1
  12298. Level2
  12299.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12300. Level2
  12301. Level2
  12302. Level3
  12303.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12304. Level3
  12305. Level3
  12306. Level4
  12307.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12308. Level4
  12309. Level4
  12310. Level5
  12311.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12312. Level5
  12313. Level5
  12314. Level6
  12315.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12316. Level6
  12317. Level6
  12318.     0R1S2S5S6S8S10S
  12319. Second Hiearchy
  12320.     0R1S
  12321. Level0_1
  12322. Level0_1
  12323. Level1_1
  12324.     0R5S6S8S11S12S15S16S18S20S23S
  12325. Level1_1
  12326. Level1_1
  12327. Level2_1
  12328.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12329. Level2_1
  12330. Level2_1
  12331. Level3_1
  12332.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12333. Level3_1
  12334. Level3_1
  12335. Level4_1
  12336.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12337. Level4_1
  12338. Level4_1
  12339. Level5_1
  12340.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12341. Level5_1
  12342. Level5_1
  12343. Level6_1
  12344.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12345. Level6_1
  12346. Level6_1
  12347.     0R1S2S5S6S8S10S
  12348. Third Hiearchy
  12349.     0R1S
  12350. Level0_2
  12351. Level0_2
  12352. Level1_2
  12353.     0R5S6S8S11S12S15S16S18S20S23S
  12354. Level1_2
  12355. Level1_2
  12356. Level2_2
  12357.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12358. Level2_2
  12359. Level2_2
  12360. Level3_2
  12361.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12362. Level3_2
  12363. Level3_2
  12364. Level4_2
  12365.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12366. Level4_2
  12367. Level4_2
  12368. Level5_2
  12369.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12370. Level5_2
  12371. Level5_2
  12372. Level6_2
  12373.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12374. Level6_2
  12375. Level6_2
  12376.     0R1S2S5S6S8S10S
  12377. Fourth Hiearchy
  12378.     0R1S
  12379. Level0_3
  12380. Level0_3
  12381. Level1_3
  12382.     0R5S6S8S11S12S15S16S18S20S23S
  12383. Level1_3
  12384. Level1_3
  12385. Level2_3
  12386.     0R2S5S6S8S11S12S15S16S18S20S23S
  12387. Level2_3
  12388. Level2_3
  12389. Level3_3
  12390.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12391. Level3_3
  12392. Level3_3
  12393. Level4_3
  12394.     0R1S2S5S6S8S11S12S15S16S18S20S23S
  12395. Level4_3
  12396. Level4_3
  12397. Level5_3
  12398.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12399. Level5_3
  12400. Level5_3
  12401. Level6_3
  12402.     0R1S2S5S6S8S9S10S13S14S16S18S21S
  12403. Level6_3
  12404. Level6_3
  12405.     0R1S2S5S6S8S10S
  12406. Aggregation
  12407.     0R1S
  12408.     0R4RS11E9S10S11S12S13S14S15S16S17S18S20S21RS11E26S27S28S29S30S31S32S33S34S35S38RS11E41S42S43S45S51S55RS11E71RS11E
  12409. *No Corporate Hierachy Specified*
  12410. Person
  12411. Database
  12412. ResourceFlagh
  12413. ResourceType
  12414. ResourceFlag
  12415. ResourceFlagh
  12416. ResourceType
  12417. ResourceFlag
  12418. Server
  12419. Group
  12420. GroupType
  12421. GroupType
  12422. GroupType
  12423. GroupType
  12424. GroupType
  12425.     3S4S6S12S20S33S34S38S47S60S61S67S68S70S74S76S80S82S86S89SPersonalID"
  12426. PersonalID
  12427. PersonalID
  12428. $60Name
  12429. DisplayPersonName
  12430. Person
  12431. LastName
  12432. FirstName
  12433. MiddleInitial
  12434.     1S2S5S6S8S16S18S19S23S27S30S31S32S34S
  12435. DisplayName
  12436. Group
  12437. ListName
  12438. Server
  12439. Servername
  12440. DisplayPersonName
  12441. FullName
  12442. DisplayPersonName
  12443.     0R1S2S5S6S8S12S21S24S25S27S31S34S
  12444. AltName
  12445. AltFullName
  12446. JobTitle
  12447. JobTitle
  12448. DisplayName
  12449. AltName
  12450. AltFullName
  12451.     0R9S10S15S20S23S24SMAMailAddressAddress
  12452. MAMailAddress
  12453. Person
  12454. MailSystem
  12455. MailAddress
  12456. MailAddress
  12457. MailDomain
  12458. MailDomain"
  12459. FullName
  12460. FullName
  12461. MailDomain
  12462. MailDomain"
  12463. FirstName
  12464. FirstName
  12465. LastName"
  12466. MailDomain
  12467. MailDomain"
  12468. LastName
  12469. MailDomain
  12470. MailDomain"
  12471. Database
  12472. FullName
  12473. MailDomain
  12474. MailDomain"
  12475. Group
  12476. GroupType
  12477. GroupType
  12478. ListName
  12479.     3S4S5S6S19S20S27S28S39S40S42S46S48S49S52S53S55S56S57S59S71S72S79S80S86S87S94S95S102S103S104S106S110S112S113S117S118S120S121S122S124S128S129S130S131S132S139S145S
  12480. NPNameName
  12481. NPName
  12482. Group
  12483. ListName
  12484. Server
  12485. ServerName
  12486. Person
  12487. Database
  12488. FullName
  12489.     3S4S6S25S29S
  12490. TypeTypeMAPublicKeyPublic Key
  12491. MAPublicKey
  12492. Certificate
  12493. PublicKey
  12494. Certificate
  12495. PublicKey
  12496. Server
  12497. Certificate
  12498.     7S8S34S35S
  12499. AltFullNameAltFullName&
  12500. AltFullName
  12501. AltFullName
  12502. Categori_zeK
  12503. _Edit Document
  12504. Send Docu_ment
  12505. _Forward
  12506. _Move to Folder...
  12507. _Remove from Folder...
  12508. Categori_zeK
  12509. _Edit Document
  12510. Send Docu_ment
  12511. _Forward
  12512. _Move to Folder...
  12513. _Remove from Folder...
  12514. O=Lotus Notes
  12515. O=Lotus Notes
  12516. PURSAFO
  12517. |.:#U
  12518. O=Lotus Notes
  12519. CN=Lotus Notes Template Development/O=Lotus Notes
  12520. PURSAFO
  12521. $TITLE
  12522. $Index
  12523. $Formula
  12524. $FormulaClass
  12525. $VIEWFORMAT
  12526. $Comment
  12527. $V5ACTIONS
  12528. $ACTIONS
  12529.