home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / Lotus / Notes46 / LOTUS024.DSK / PERNAMES.NTF (.txt) < prev    next >
Lotus Notes Database  |  1997-09-15  |  674KB  |  7,521 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. Fde!f^^
  11. $TITLE
  12. $INFO
  13. $BODY
  14. CN=Lotus Notes Template Development/O=Lotus Notes
  15. GW4fbE
  16. Rob Slapikoff-Rob
  17.     Internet directory server
  18. $Modified
  19.     1S2S3S
  20. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  21. $Flags
  22.     0SL1S4S5S3724
  23. $TITLE
  24. CN=Rob Slapikoff/O=Iris####################################
  25. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
  26. CN=Rob Slapikoff/O=IrisLotus NotesCN=Rob Slapikoff/O=IrisLotus NotesCN=Lotus Notes Template Development/O=Lotus Notesz
  27. ###############
  28. Personal Address Book
  29. #1StdR4PersonalAddressBookb
  30. CN=Rob Slapikoff/O=Iris
  31. Greg Pflaum_Advanced\Connections|ConnectionsP
  32. ConnectionType
  33. ConnectionType
  34. ConnectionType
  35. ConnectionType
  36. ConnectionType
  37.     2S3S4S8RS9E9S10S14RS9E15S16S20RS9E21S22S26RS9E27S28S32R
  38. Destination
  39. ConnectionType
  40. RLANTag
  41. ConnectionType
  42. PassthruServer
  43. ConnectionType
  44. CountryCode
  45. AreaCode
  46. AreaCodeV
  47. LocalPhoneNumber"
  48. PhoneNumber
  49.     0S0E
  50. Source
  51.     0S0E
  52. $32$16PortName$31$27ConnectionLocation$Conflict$REF
  53. Connection
  54.     L1S2S3S1
  55. $16PortName
  56. ConnectionLocation
  57. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  58. GW4fbE
  59. Craig Richards
  60. Server ConnectionlocalremoteConnection[NetCreator]
  61. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
  62. CountryCountry
  63. CountryEnter Country Code.
  64. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
  65. Times New Roman
  66. "MS Sans Serif
  67. Using Personal Address Book
  68. Basic
  69. 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.
  70. Headline
  71. Types of documents
  72. 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.
  73. 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.
  74. 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.
  75. 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.
  76. 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.
  77. 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.
  78. Views and folders
  79. 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.
  80. Special features worth exploring
  81. 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:
  82. ?_?__
  83. `!b`1
  84. 7`^///?
  85. ?b___
  86. `bOOO
  87. `<b!R
  88. The Business Card form provides Mail Address Assistants to help you correctly compose a person's electronic mail address.  Click on the 
  89. ?_?__
  90. `!b`1
  91. 7`^///?
  92. ?b___
  93. `bOOO
  94. `<b!R
  95. button next to the Mail address field to start an Assistant.
  96. 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.
  97. O=Lotus Notes
  98. O=Lotus Notes
  99. PURSAFO
  100. |.:#U
  101. O=Lotus Notes
  102. CN=Lotus Notes Template Development/O=Lotus Notes
  103. PURSAFO
  104. Fde!f^^
  105. $INFO
  106. $BODY
  107. O=Lotus Notes
  108. O=Lotus Notes
  109. PURSAFO
  110. |.:#U
  111. O=Lotus Notes
  112. CN=Lotus Notes Template Development/O=Lotus Notes
  113. PURSAFO
  114. Fde!f^^
  115. $ACLDigest
  116. ConnectionType
  117. ConnectionType
  118. ConnectionType
  119. ConnectionType
  120. ConnectionType
  121.     2S3S4S8RS9E9S10S14RS9E15S16S20RS9E21S22S26RS9E27S28S32R$16Server4
  122. Destination
  123. PortNamePort$31Via4
  124. ConnectionType
  125. RLANTag
  126. ConnectionType
  127. PassthruServer
  128. ConnectionType
  129. CountryCode
  130. AreaCode
  131. AreaCodeV
  132. LocalPhoneNumber"
  133. PhoneNumber
  134.     0S0E
  135. $27For User0
  136. Source
  137.     0S0E
  138. ConnectionLocationApplies to Location(s)&
  139. Add Connection.
  140. Connection
  141.     0S0E
  142. _Edit Connection
  143. Delete Connection
  144.     0S0E
  145. Send Docu_ment
  146. Categori_zeK
  147. _Forward
  148. _Move to Folder...
  149. _Remove from Folder...
  150. O=Lotus Notes
  151. O=Lotus Notes
  152. PURSAFO
  153. |.:#U
  154. O=Lotus Notes
  155. CN=Lotus Notes Template Development/O=Lotus Notes
  156. PURSAFO
  157. Fde!f^^
  158. $Author
  159. $TITLE
  160. $Index
  161. $Formula
  162. $FormulaClass
  163. $VIEWFORMAT
  164. $Comment
  165. $ACTIONS
  166.  $ConferencingPersonFormSubform
  167. O=Lotus Notes
  168. O=Lotus Notes
  169. PURSAFO
  170. |.:#U
  171. O=Lotus Notes
  172. CN=Lotus Notes Template Development/O=Lotus Notes
  173. PURSAFO
  174. Fde!f^^
  175. $TITLE
  176. $INFO
  177. $$ScriptName
  178. $BODY
  179. O=Lotus Notes
  180. O=Lotus Notes
  181. PURSAFO
  182. |.:#U
  183. O=Lotus Notes
  184. CN=Lotus Notes Template Development/O=Lotus Notes
  185. PURSAFO
  186. Fde!f^^
  187. $TITLE
  188. $INFO
  189. $Header
  190. $BODY
  191. New Server Connection
  192. Source
  193.  to "
  194. Destination
  195.  via 
  196. PortName"
  197.     4S6S12S13S14S15S21S22S23S24S
  198. &Arial
  199. Rob Slapikoff-Rob
  200.     0S0E
  201. SERVER CONNECTION
  202. Destination
  203. Destination
  204.     0S0E
  205. DisplayName
  206. ConnectionType
  207. RLANTag
  208. ConnectionType
  209. PassthruServer
  210. ConnectionType
  211. CountryCode
  212. AreaCode
  213. AreaCodeV
  214. LocalPhoneNumber"
  215. PhoneNumber
  216.     0S0E
  217. DisplayPhoneNumber
  218.     0S0E
  219. SERVER CONNECTION
  220.     Basics
  221.     Destination
  222. Choose the type of connection you want to establish, for example, Dialup Modem.
  223.     Connection type:
  224. PortName
  225. NETBIOS
  226. TCPIP
  227.     6S13S15S
  228. ConnectionType
  229. You must choose a Connection Type before filling out the rest of the document.{
  230.     0S0E
  231. ConnectionType
  232. Local Area Network|0Dialup Modem|1Passthru Server|2Remote LAN Service|5Hunt Group|9
  233. ConnectionType
  234.     0S0E
  235. Enter the name of the server you want to access, for example, Sales/Chicago. 
  236.     Server name:
  237. ConnectionType
  238.     0S0E
  239. Enter the name you want to use for the hunt group. You can use any name you want.
  240.     Hunt group name:
  241. Destination
  242.     0S0E
  243. Destination
  244. You must enter a valid server name for your destination.{
  245.     0S0E
  246. DestinationRemote server's name - e.g. Chicago.
  247. ConnectionType
  248. ConnectionType
  249.     1S2S3S4S5S6S
  250. Enter the network port to use for the connection, for example, LAN0.
  251.     Use LAN port:
  252. ConnectionType
  253.     1S2S
  254. 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.
  255.     Passthru server name or hunt group name:
  256. LanPortName
  257. PortName
  258. LanPortName
  259. LanPortName
  260.     0S0E
  261. LanPortNameLAN port name - e.g. LAN0, TCPIP.
  262.     0S0E
  263. PassthruServer^
  264.     0S0E
  265. ConnectionType
  266. PassthruServer
  267. You must fill in the name of a Passthru server when filling in a Passthru connection record.{
  268.     5S6S
  269. PassthruServerThe name of the Passthru server used to connect to the destination server.
  270. ConnectionType
  271.     0S0E
  272. 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.
  273.     Country code:
  274. Country
  275. The name of the Remote LAN Service used to connect to the destination server.
  276. 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.
  277.     Always use area code:
  278. 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.
  279. Yes|1No|0
  280. Enter the area code or city code of the server or hunt group you want to access.
  281.     Area code:
  282. AreaCodeInput
  283. 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.
  284. You should enter a * for null modems and leased lines.
  285.     Phone number:
  286. PhoneNumber
  287.     0S0E
  288. ConnectionType
  289. LocalPhoneNumber
  290. You must enter a Phone Number for a connection of this type.{
  291.     5S6S
  292. LocalPhoneNumberRemote server's phone number - e.g. 555-1234
  293. Static1
  294. Static1
  295.     3S4S
  296. $ConFormRLANSubform
  297. Advanced
  298. Select the locations where you want to use this connection. An asterisk ( * ) means all locations.
  299.     Only from Location(s):
  300. ConnectionLocationj
  301. ConnectionLocation
  302. ConnectionLocation
  303.     0S0E
  304. ConnectionLocationj
  305. ConnectionLocationt
  306. You have an * and at least one named location specified.  You can either enter multiple locations or use an * for all locations.{
  307.     8S9S21SConnectionLocationSpecify the Location name you want this record to apply to.  * means all Locations.
  308. NoCache
  309. ($Locations)
  310.     0S0E
  311. ConnectionType
  312.     0S0E
  313. 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. 
  314.     Destination server address:
  315. Enter the name of the connect script file to use when connecting to the server.
  316.     Login script file name:
  317. OptionalNetworkAddress
  318. LanPortName
  319. LanPortName
  320. You must supply a specific Port Name if you want to use a Destination Network Address.{
  321.     5S6S9S10S11S
  322. 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.
  323. ScriptNameName of script file to run after modem connection established.
  324. Enter a user name if more than one user will be using the workstation.
  325.     Only for user:
  326. ThisFileIsOnServer
  327.     1S2S6S
  328. ThisFileIsOnServer
  329. ThisFileIsOnServer
  330.     0R3S4S6S8S
  331. Source^
  332.     0S0E
  333. SourceSource server or workstation name - e.g. Marketing (for dialup users: your username).
  334. Enter any script arguments that are necessary when dialing the server, for example, a login name or password.
  335.     Login script arguments:
  336. ScriptArg1First argument to be passed to script.
  337. ScriptArg2Second argument to be passed to script.
  338. ScriptArg3Third argument to be passed to script.
  339. ScriptArg4Fourth argument to be passed to script.
  340. ScriptName
  341. ScriptArg1"
  342. ScriptArg2"
  343. ScriptArg3"
  344. ScriptArg4"
  345. LinkScriptInfo
  346. Select Normal or Low to specify when to use this connection information in a search for the destination server path. Default is Normal. 
  347. Notes and Domino use the following steps when determining how to connect to a server:
  348. 1.  Try to determine a path to the destination by examining all Connection documents with the Usage priority set to Normal.
  349. 2.  If step 1 fails, ask the home server for connection information and/or probe all enabled ports.
  350. 3.  If step 2 fails, look at all Connection documents with the Usage priority set to Low.
  351. 4.  If step 3 fails, attempt to use a default passthru server to connect.
  352. Set the Usage priority to Low if you only want the Connection documents used after attempting to connect over the LAN.
  353.     Usage priority
  354.     0S0E
  355. ConnectionRecordFirstChoose Low for R3 behavior and Normal for R4 behavior for determining path to server. 
  356. Normal|1Low|0
  357. Enter the destination server's Notes domain name.
  358.     Only to servers in domain:
  359. DestinationDomain
  360. DestinationDomainRemote server's domain name (optional for dialup users).
  361. ConnectionType
  362.     1S2S3S
  363. Select the enabled modem ports you want to use with this server connection.
  364.     Modem port(s):
  365. ConnectionType
  366. RemotePortNamej
  367. RemotePortName
  368. RemotePortName
  369.     0S0E
  370. RemotePortNameCommunications port name - e.g. COM1, MODEM.
  371.     0S0E
  372. Enter a comment about this Connection document.
  373.     Comments:
  374. CommentsComments about the connection.
  375.     0S0E
  376. (V3 Scheduled Calling)
  377.     Enabled/disabled:
  378. SCHEDULE DISABLED
  379. EnabledScheduled calling enabled or disabled.
  380. SCHEDULE ENABLED | 1SCHEDULE DISABLED | 0
  381.     Call at times:
  382. ScheduleL
  383. Enabled
  384. Interval
  385. Schedule
  386. You must enter an Interval and/or a Schedule, or else specify DISABLED.
  387. ScheduleTimes to call the server - e.g. 8:00 AM,10:00 AM-6:00 PM.
  388.      each day
  389.     Repeat interval of:
  390. Interval
  391. IntervalInterval to repeat calls - 0 means call once.
  392.     minutes 
  393.     Days of week:
  394. WeekDaysDays of week - e.g. Mon, Tue, Wed.
  395. Sun | 1Mon | 2Tue | 3Wed | 4Thu | 5Fri | 6Sat | 7
  396.     Tasks:
  397. TasksTasks to be performed - e.g. Replication, Mail Routing
  398. Mail Routing | Mail RoutingReplication | Replication
  399.     Route at once if:
  400. MailThreshold
  401. MailThresholdNumber of waiting messages that will force a connection - e.g. 3.
  402.      mail messages pending
  403.     Routing cost:
  404. ConnectionType
  405. ConnectionType
  406.     0S0E
  407. Routing cost must be between 1 and 10
  408.     3S4S5S6S7S8S10S15S
  409. CostRelative cost of this connection (1-10).
  410.     Replicate databases of priority:
  411. RepPriorityReplication priority level.
  412. High | 2Medium & High | 1Low & Medium & High | 0
  413. AreaCode
  414. Connection
  415. Owner
  416. DocumentAccess
  417. ConnectionType
  418. LanPortName
  419. ConnectionType
  420. RemotePortName
  421. ConnectionType
  422. PortName
  423.     0S0E
  424. PortNameCommunications port name - e.g. COM1, MODEM.
  425. ConnectionType
  426. OptionalNetworkAddress
  427. AreaCode
  428. Country
  429. Country
  430. DialAreaCode
  431. AreaCodeV
  432. LocalPhoneNumber"
  433. DialAreaCode
  434. AreaCodeV
  435. LocalPhoneNumber"
  436. LocalPhoneNumber
  437.     10R26S27SPhoneNumber
  438. For V3 compatibility (sigh)
  439. ConnectionType
  440. local
  441. remote
  442. Categori_zeK
  443. Save and Close>
  444.     0S0E
  445.     0S0E
  446. _Edit Connection
  447. Send Docu_ment
  448. _Forward
  449. _Move to Folder...
  450. _Remove from Folder...
  451. O=Lotus Notes
  452. O=Lotus Notes
  453. PURSAFO
  454. |.:#U
  455. O=Lotus Notes
  456. CN=Lotus Notes Template Development/O=Lotus Notes
  457. PURSAFO
  458. Fde!f^^
  459. '/i1k
  460. $Author
  461. $TITLE
  462. $FormUsers
  463. $AUTOLAUNCH
  464. $INFO
  465. $WINDOWTITLE
  466. $$Script_O
  467. Schedule
  468. Interval
  469. MailThreshold
  470. $BODY
  471. $ACTIONS
  472. AreaCodeAreaCode
  473. AreaCodeInput
  474.     0S0E
  475. AreaCodeInput
  476.     0R1S
  477. AreaCodeEnter the Area Code.
  478. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  479. DocumentAccessDocumentAccess
  480. Person
  481. [UserModifier]
  482. Group
  483. [GroupModifier]
  484. Server
  485. [ServerModifier]
  486. [NetModifier]
  487.     3S4S6S8S9S10S12S14S15S16S18S20SDocumentAccess
  488. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  489. (Notes Address Helper)
  490. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  491. (Internet Address Helper)CD
  492. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  493. Len Kawell
  494. Business CardCompanyPerson[UserCreator]$ConferencingPersonFormSubform | 1.0 | $ConferencingPersonFormSubform9361F11AABBAEFA0942266BB9FA6B6BA
  495. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes6AA2E42EF0929DC110C7F7FA3677D5E267843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  496. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
  497. $ConferencingPersonFormSubform1.0$ConferencingPersonFormSubformCUA3
  498. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
  499. LocalAdminLocalAdmin
  500. LocalAdminEnter the names or group names which should have edit capabilities for this record.
  501. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  502. ##########################################################
  503. ##########################################################
  504. O=Lotus Notes
  505. O=Lotus Notes
  506. PURSAFO
  507. |.:#U
  508. O=Lotus Notes
  509. CN=Lotus Notes Template Development/O=Lotus Notes
  510. PURSAFO
  511. Fde!f^^
  512. yR*B8#6
  513. $TITLE
  514. $INFO
  515. $BODY
  516. O=Lotus Notes
  517. O=Lotus Notes
  518. PURSAFO
  519. |.:#U
  520. O=Lotus Notes
  521. CN=Lotus Notes Template Development/O=Lotus Notes
  522. PURSAFO
  523. Fde!f^^
  524. $TITLE
  525. $INFO
  526. country
  527. $BODY
  528. (Notes Address Helper)
  529. Notes Mail Address
  530.     User name:
  531.     Notes domain:
  532. Get user name from left of domain
  533. name1
  534. MailAddress
  535.     0R1S2S8S
  536. If nothing to left of domain, use everything
  537.     0R1S
  538. name2
  539. name1
  540. name1
  541. MailAddress
  542.     0R1S2S5S6S8S10S
  543. Get full name
  544.     0R1S
  545. name3
  546. FullName
  547.     0R1S2S6S
  548. If no full name, use first + middle + last names
  549.     0R1S
  550. name4
  551. name3
  552. name3
  553. FirstName
  554. MiddleInitial
  555. MiddleInitial
  556. LastName
  557. LastName"
  558.     0R1S2S5S6S8S10RS25E11S12S15S16S18S19S22S24S25RS25E28S29S31S32S33S35S
  559. If no address, use name
  560.     0R1S
  561. name2
  562. name2
  563. name4
  564.     0R5S6S8S10SUserName
  565. Include both any domain from address and anyone from MailDomain field
  566. MailAddress
  567.     0R1S2S
  568. MailDomain
  569. MailDomain"
  570. MailDomain
  571.     0R3S4S5S6S7S8S10S11S12S13S14S16S17S18S20S22S
  572. Domain
  573. UserName
  574. Domain
  575. Domain"
  576.     1S2S5S6S8S9S10S12S
  577. MailAddress
  578. MailSystem
  579. Always zero-out MailDomain because it is now always appended to MailAddress
  580. MailDomain
  581. Categori_ze
  582. _Edit Document
  583. Send Docu_ment
  584. _Forward
  585. _Move to Folder...
  586. _Remove from Folder...
  587. O=Lotus Notes
  588. O=Lotus Notes
  589. PURSAFO
  590. |.:#U
  591. O=Lotus Notes
  592. CN=Lotus Notes Template Development/O=Lotus Notes
  593. PURSAFO
  594. Fde!f^^
  595. $TITLE
  596. $INFO
  597. $$ScriptName
  598. $BODY
  599. $ACTIONS
  600. (Internet Address Helper)
  601. Internet Mail Address
  602.     Address (e.g., smith@acme.com):
  603.     Internet mail gateway domain (optional):
  604. Get username and first domain name
  605. MailAddress
  606.     0R1S2S6S
  607.     0R3S4S6S10S12S13S15S21S28S
  608. InternetAddress
  609. Include both any domain from MailAddress and any from MailDomain field
  610. MailAddress
  611. MailDomain
  612. MailDomain"
  613.     0R1S2S
  614.     0R1S2S
  615.     0R1S2S5S6S8S12S15S16S20S
  616.     0R1S2S8S
  617. InternetDomain|
  618.     0R3S4S6S8S
  619. Save the gateway domain in the user's profile for future addresses
  620. InternetDomain
  621. InternetDomain|
  622.     0R4S
  623. InternetDomain
  624. InternetDomain
  625. InternetAddress
  626. InternetDomain
  627. InternetDomain"
  628.     1S2S5S6S8S9S10S12S
  629. MailAddress
  630. MailSystem
  631. Always zero out the MailDomain because it is now part of MailAddress
  632. MailDomain
  633. Categori_ze 
  634. _Edit Document
  635. Send Docu_ment
  636. _Forward
  637. _Move to Folder...
  638. _Remove from Folder...
  639. O=Lotus Notes
  640. O=Lotus Notes
  641. PURSAFO
  642. |.:#U
  643. O=Lotus Notes
  644. CN=Lotus Notes Template Development/O=Lotus Notes
  645. PURSAFO
  646. Fde!f^^
  647. $TITLE
  648. $INFO
  649. $$ScriptName
  650. $BODY
  651. $ACTIONS
  652. O=Lotus Notes
  653. O=Lotus Notes
  654. PURSAFO
  655. |.:#U
  656. O=Lotus Notes
  657. CN=Lotus Notes Template Development/O=Lotus Notes
  658. PURSAFO
  659. Fde!f^^
  660. $TITLE
  661. $INFO
  662. $BODY
  663. &Arial
  664. New Business Card
  665. FullName
  666.     4S6S
  667. '++LotusScript Development Environment:2:5:(Options):0:74
  668. Option Public
  669. Use "PhoneParser"
  670. Use "AddressParser"
  671. '++LotusScript Development Environment:2:5:(Forward):0:1
  672. Declare Sub ParseNameField
  673. '++LotusScript Development Environment:2:5:(Declarations):0:10
  674. Dim DocWasSaved As Integer
  675. '++LotusScript Development Environment:2:2:ParseNameField:1:8
  676. Sub ParseNameField
  677.      Dim wList As Variant
  678.      Dim x As Variant
  679.      Dim existingname As Variant
  680.      
  681.      doc.Name=Evaluate(|@if(ParseFlag="1";@Trim(Name);@Trim(Title + " " +FirstName + " "+MiddleInitial  + " "+LastName + " " + Suffix))|,doc)
  682.      existingname=Evaluate(|@Trim(Title + " " +FirstName + " "+MiddleInitial  + " "+LastName + " " + Suffix)|,doc)
  683.      If doc.Name(0) = existingname(0) Then
  684.           Exit Sub
  685.      End If
  686.      
  687.      REM "If entry only contains one word, assume it is last name and exit formula."
  688.      wList=Evaluate(|@Explode(Name;" ")|,doc)
  689.      x=Evaluate(|@Elements(@Explode(Name;" "))|,doc)
  690.      
  691.      If x(0)=1 Then
  692.           doc.LastName=doc.Name(0)
  693.           Call uidoc.refresh
  694.           Exit Sub
  695.      End If
  696.      doc.one=Evaluate(|@if(@IsMember(@Uppercase(@Word(Name;" ";1));"MR":"MR.":"MISS":"MRS":"MRS.":"MS":"MS.":"DR":"DR.":"PROF":"PROF.");@word(Name;" ";1);"")|,doc)
  697.      doc.t=doc.one(0)
  698.      doc.s=Evaluate(|@if(@IsMember(@UpperCase(@Subset(@Explode(Name;" ");-1));"I":"II":"III":"SR":"SR.":"JR":"JR.");@Propercase(@Subset(@Explode(Name;" ");-1));"")|,doc)
  699.      
  700.      doc.NameMinusT=Evaluate(|@if(t!="";@Trim(@ReplaceSubstring(Name;t;""));Name)|,doc)
  701.      doc.x1=Evaluate(|@Elements(@Explode(NameMinusT;" "))|,doc)
  702.      doc.NameMinusTAndS=Evaluate(|@if(s!="";@Trim(@Implode(@Subset(@Explode(NameMinusT;" ");x1-1)));NameMinusT)|,doc)
  703.      doc.x2=Evaluate(|@Elements(@Explode(NameMinusTAndS;" "))|,doc)
  704.      
  705.      doc.OnlyName=doc.NameMinusTAndS(0)
  706.      doc.m=Evaluate(|@Word(OnlyName;" ";2)|,doc)
  707.      doc.mid=Evaluate({@if(x2<=2;"";@If(@Ends(m;".") | @Length(m) = 1 | (@Length(m) > 2 & @IsNotMember(@Uppercase(m);"LAS":"DES":"DAS":"VON"));m;""))},doc)
  708.      
  709.      doc.f=Evaluate(|@if(x2<2;"";@Word(OnlyName;" ";1))|,doc)
  710.      doc.l=Evaluate(|@if(x2<=2;@if(f="";OnlyName;@Word(OnlyName;" ";2));mid="";@Trim(@Right(OnlyName;f));@Trim(@Right(OnlyName;mid)))|,doc)
  711.      
  712.      doc.t=Evaluate(|@if(t="";"";@Uppercase(t)="MISS";@Propercase(t);@Ends(t;".");@Propercase(t);@Propercase(t+"."))|,doc)
  713.      doc.s=Evaluate(|@if(s="";"";@Uppercase(s)="I":"II":"III";@Uppercase(s);@Ends(s;".");@Propercase(s);@Propercase(s+"."))|,doc)
  714.      
  715.      doc.LastName=doc.l(0)
  716.      doc.FirstName=doc.f(0)
  717.      doc.MiddleInitial=doc.mid(0)
  718.      doc.Title=doc.t(0)
  719.      doc.Suffix=doc.s(0)
  720.      doc.Name=Evaluate({@Trim(Title+ " "+FirstName+" "+MiddleInitial+" "+LastName+" "+Suffix)},doc)
  721.      
  722.      
  723. End Sub
  724. ParseFlag
  725. Name^
  726. Title
  727. FirstName
  728. MiddleInitial
  729. LastName"
  730. Suffix"
  731.     14S15S16S18S19S22S2E23S26S27S28S29S
  732. Title
  733. FirstName
  734. MiddleInitial
  735. LastName"
  736. Suffix"
  737.     3S4S5S7S8S11S2E12S15S16S17S18S
  738.     0S0E
  739.     0S0E
  740. PROF.
  741.     0S0E
  742.     0S0E
  743.     0S0E
  744. NameMinusT
  745.     0S0E
  746. NameMinusT
  747. NameMinusT
  748.     0S0E
  749. NameMinusTAndS
  750.     0S0E
  751. OnlyName
  752.     0S0E
  753.     16S17S21S22S23S24S29S30S31S32S
  754. OnlyName
  755.     0S0E
  756. OnlyName
  757. OnlyName
  758. OnlyName
  759. OnlyName
  760.     0S0E
  761.     0S0E
  762.     0S0E
  763. Title
  764. FirstName
  765. MiddleInitial
  766. LastName"
  767. Suffix"
  768.  Person'++LotusScript Development Environment:2:5:(Options):0:66
  769. '++LotusScript Development Environment:2:5:(Forward):0:1
  770. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  771. Declare Sub Postopen(Source As Notesuidocument)
  772. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  773. '++LotusScript Development Environment:2:5:(Declarations):0:2
  774. '++LotusScript Development Environment:2:2:BindEvents:1:129
  775. Private Sub BindEvents(Byval Objectname_ As String)
  776.      Static Source As NOTESUIDOCUMENT
  777.      Set Source = Bind(Objectname_)
  778.      On Event Querysave From Source Call Querysave
  779.      On Event Postopen From Source Call Postopen
  780.      On Event Queryclose From Source Call Queryclose
  781. End Sub
  782. '++LotusScript Development Environment:2:2:Querysave:1:12
  783. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  784.      source.refresh     
  785.      If doc.Name(0) <>"" And doc.FullName(0) <> doc.Name(0) Then
  786.           Call ParseNameField
  787.      End If
  788.      If doc.LastName(0) <> "" Then
  789.           NumNames=Evaluate(|@Elements(FullName)|,doc)
  790.           First = doc.FirstName(0)
  791.           Last = doc.LastName(0)
  792.           Full = doc.FullName(0)
  793.           If Last <> "" And (Full = "" Or NumNames(0)<=1) Then doc.FullName= (First & " " & Last)
  794.      End If
  795.      If doc.CompanyName(0) <> "" And doc.Name(0) = "" Then
  796.           doc.FullName=""
  797.           doc.FirstName=""
  798.           doc.LastName=""
  799.           doc.MiddleInitial=""
  800.      End If
  801.      DocWasSaved=True
  802. End Sub
  803. '++LotusScript Development Environment:2:2:Postopen:1:12
  804. Sub Postopen(Source As Notesuidocument)
  805.      Dim w As New NotesUIWorkspace 
  806.      Dim s As New NotesSession
  807.      Set db = s.CurrentDatabase
  808.      Set uidoc=source
  809.      Set doc = uidoc.document
  810.      locarea=doc.AreaCodeFromLoc
  811. End Sub
  812. '++LotusScript Development Environment:2:2:Queryclose:1:12
  813. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  814.      doc.RemoveItem("Name")
  815.      doc.RemoveItem("ParseFlag")
  816.      If DocWasSaved=True Then    
  817.           Call doc.Save(True,False,True)
  818.      End If
  819.      
  820. End Sub
  821. FullNamej
  822.     0S0E
  823. '++LotusScript Development Environment:2:5:(Options):0:66
  824. '++LotusScript Development Environment:2:5:(Forward):0:1
  825. Declare Sub Exiting(Source As Field)
  826. '++LotusScript Development Environment:2:5:(Declarations):0:2
  827. '++LotusScript Development Environment:2:2:BindEvents:1:129
  828. Private Sub BindEvents(Byval Objectname_ As String)
  829.      Static Source As FIELD
  830.      Set Source = Bind(Objectname_)
  831.      On Event Exiting From Source Call Exiting
  832. End Sub
  833. '++LotusScript Development Environment:2:2:Exiting:1:12
  834. Sub Exiting(Source As Field)
  835.      If doc.Name(0) = "" And (doc.LastName(0) = "" And doc.FirstName(0)="") Then
  836.           Exit Sub
  837.      End If
  838.      Call ParseNameField
  839.      Call uidoc.refresh
  840. End Sub
  841. '++LotusScript Development Environment:2:5:(Options):0:66
  842. '++LotusScript Development Environment:2:5:(Forward):0:1
  843. Declare Sub Exiting(Source As Field)
  844. '++LotusScript Development Environment:2:5:(Declarations):0:2
  845. '++LotusScript Development Environment:2:2:BindEvents:1:129
  846. Private Sub BindEvents(Byval Objectname_ As String)
  847.      Static Source As FIELD
  848.      Set Source = Bind(Objectname_)
  849.      On Event Exiting From Source Call Exiting
  850. End Sub
  851. '++LotusScript Development Environment:2:2:Exiting:1:12
  852. Sub Exiting(Source As Field)
  853.      
  854.      
  855.      Dim localView As NotesView
  856.      Dim othernote As NotesDocument     
  857.      Dim CompName As String
  858.      
  859.      If doc.BusinessAddress(0)<>"" Then
  860.           Exit Sub
  861.      End If
  862.      
  863.      CompName=doc.CompanyName(0)
  864.      
  865.      If CompName ="" Then
  866.           Exit Sub
  867.      End If
  868.      
  869.      Set localView = db.GetView("($CompanyList)")
  870.      Set othernote = localView.GetDocumentByKey(CompName, True)
  871.      
  872.      
  873.      If (othernote Is Nothing) Then
  874.           Exit Sub
  875.      End If
  876.      
  877.      doc.OfficeStreetAddress=othernote.OfficeStreetAddress
  878.      doc.OfficeCity=othernote.OfficeCity
  879.      doc.OfficeState=othernote.OfficeState
  880.      doc.OfficeZip=othernote.OfficeZip
  881.      doc.OfficeCountry=othernote.OfficeCountry
  882.      doc.BusinessAddress=othernote.BusinessAddress
  883.      
  884.      Call uidoc.refresh
  885.      
  886.      
  887.      
  888. End Sub
  889. '++LotusScript Development Environment:2:5:(Options):0:66
  890. '++LotusScript Development Environment:2:5:(Forward):0:1
  891. Declare Sub Entering(Source As Field)
  892. Declare Sub Exiting(Source As Field)
  893. '++LotusScript Development Environment:2:5:(Declarations):0:2
  894. '++LotusScript Development Environment:2:2:BindEvents:1:129
  895. Private Sub BindEvents(Byval Objectname_ As String)
  896.      Static Source As FIELD
  897.      Set Source = Bind(Objectname_)
  898.      On Event Entering From Source Call Entering
  899.      On Event Exiting From Source Call Exiting
  900. End Sub
  901. '++LotusScript Development Environment:2:2:Entering:1:12
  902. Sub Entering(Source As Field)
  903.      
  904. End Sub
  905. '++LotusScript Development Environment:2:2:Exiting:1:12
  906. Sub Exiting(Source As Field)
  907.      
  908.      
  909.      Dim Num As Variant
  910.      Dim FieldName As String
  911.      Dim Address As Variant
  912.      
  913.      FieldName = "B"
  914.      Num=Evaluate(|@Elements(@Explode(@Trim(BusinessAddress);@Char(13)))|,doc)
  915.      
  916.      If Num(0) = 1 Then
  917.           doc.BusinessAddress=Evaluate(|@Trim(@ReplaceSubstring(BusinessAddress;@NewLine;" "))|,doc)
  918.      End If
  919.      
  920.      Address=doc.BusinessAddress(0)
  921.      If Address="" And (doc.OfficeStreetAddress(0)="" And doc.OfficeCity(0)="" And doc.OfficeState(0)="")Then
  922.           Exit Sub
  923.      End If
  924.      
  925.      Call ParseAddress(Address, Num, FieldName)
  926.      
  927.      Call uidoc.refresh
  928.      
  929. End Sub
  930. BusinessAddress
  931.     0S0E
  932. BusinessAddress
  933.     0S0E
  934. '++LotusScript Development Environment:2:5:(Options):0:66
  935. '++LotusScript Development Environment:2:5:(Forward):0:1
  936. Declare Sub Exiting(Source As Field)
  937. '++LotusScript Development Environment:2:5:(Declarations):0:2
  938. '++LotusScript Development Environment:2:2:BindEvents:1:129
  939. Private Sub BindEvents(Byval Objectname_ As String)
  940.      Static Source As FIELD
  941.      Set Source = Bind(Objectname_)
  942.      On Event Exiting From Source Call Exiting
  943. End Sub
  944. '++LotusScript Development Environment:2:2:Exiting:1:12
  945. Sub Exiting(Source As Field)
  946.      
  947.      
  948.      F=Evaluate(|@False|)
  949.      T=Evaluate(|@True|)
  950.      
  951.      l=Len(doc.OfficePhoneNumber(0))
  952. REM "Test to see if the number contains any letters. 
  953. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  954. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  955. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  956.      
  957.      x=Evaluate(|!@Matches(OfficePhoneNumber;"+{!a-zA-Z}")|, doc)
  958.      
  959.      letters=Evaluate(|@Trim(@ReplaceSubstring(OfficePhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  960.      FirstLet=Left(letters(0),1)
  961.      
  962.      p=Evaluate(|@Begins(OfficePhoneNumber;"1")|,doc)
  963.      
  964.      sep=Evaluate(|@Contains(OfficePhoneNumber;"-")|,doc)
  965.      
  966.      par=Evaluate(|@Contains(OfficePhoneNumber;"(") & @Contains(OfficePhoneNumber;")")|,doc)
  967.      
  968.      num=doc.OfficePhoneNumber(0)
  969.      
  970.      If num="" Then
  971.           Exit Sub
  972.      End If
  973.      
  974.      Call ParsePhoneNumber(num)
  975.      
  976.      doc.OfficePhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  977.      
  978.      Call uidoc.refresh
  979. End Sub
  980. OfficePhoneNumber
  981. +{!a-zA-Z}I
  982.     0S0E
  983. OfficePhoneNumber
  984.     0S0E
  985. OfficePhoneNumber
  986.     0S0E
  987. OfficePhoneNumber
  988.     0S0E
  989. OfficePhoneNumber
  990. OfficePhoneNumber
  991.     6S7S
  992. '++LotusScript Development Environment:2:5:(Options):0:66
  993. '++LotusScript Development Environment:2:5:(Forward):0:1
  994. Declare Sub Exiting(Source As Field)
  995. Declare Sub Terminate
  996. '++LotusScript Development Environment:2:5:(Declarations):0:2
  997. '++LotusScript Development Environment:2:2:BindEvents:1:129
  998. Private Sub BindEvents(Byval Objectname_ As String)
  999.      Static Source As FIELD
  1000.      Set Source = Bind(Objectname_)
  1001.      On Event Exiting From Source Call Exiting
  1002. End Sub
  1003. '++LotusScript Development Environment:2:2:Exiting:1:12
  1004. Sub Exiting(Source As Field)
  1005.      
  1006.      
  1007.      F=Evaluate(|@False|)
  1008.      T=Evaluate(|@True|)
  1009.      
  1010.      l=Len(doc.OfficeFAXPhoneNumber(0))
  1011. REM "Test to see if the number contains any letters. 
  1012. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1013. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1014. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1015.      
  1016.      x=Evaluate(|!@Matches(OfficeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  1017.      
  1018.      letters=Evaluate(|@Trim(@ReplaceSubstring(OfficeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1019.      FirstLet=Left(letters(0),1)
  1020.      
  1021.      p=Evaluate(|@Begins(OfficeFAXPhoneNumber;"1")|,doc)
  1022.      
  1023.      sep=Evaluate(|@Contains(OfficeFAXPhoneNumber;"-")|,doc)
  1024.      
  1025.      par=Evaluate(|@Contains(OfficeFAXPhoneNumber;"(") & @Contains(OfficeFAXPhoneNumber;")")|,doc)
  1026.      
  1027.      num=doc.OfficeFAXPhoneNumber(0)
  1028.      
  1029.      If num="" Then
  1030.           Exit Sub
  1031.      End If
  1032.      
  1033.      Call ParsePhoneNumber(num)
  1034.      
  1035.      doc.OfficeFAXPhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1036.      
  1037.      Call uidoc.refresh
  1038. End Sub
  1039. '++LotusScript Development Environment:2:2:Terminate:1:10
  1040. Sub Terminate
  1041.      
  1042. End Sub
  1043. OfficeFAXPhoneNumber
  1044. +{!a-zA-Z}I
  1045.     0S0E
  1046. OfficeFAXPhoneNumber
  1047.     0S0E
  1048. OfficeFAXPhoneNumber
  1049.     0S0E
  1050. OfficeFAXPhoneNumber
  1051.     0S0E
  1052. OfficeFAXPhoneNumber
  1053. OfficeFAXPhoneNumber
  1054.     6S7S
  1055. '++LotusScript Development Environment:2:5:(Options):0:66
  1056. '++LotusScript Development Environment:2:5:(Forward):0:1
  1057. Declare Sub Exiting(Source As Field)
  1058. Declare Sub Terminate
  1059. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1060. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1061. Private Sub BindEvents(Byval Objectname_ As String)
  1062.      Static Source As FIELD
  1063.      Set Source = Bind(Objectname_)
  1064.      On Event Exiting From Source Call Exiting
  1065. End Sub
  1066. '++LotusScript Development Environment:2:2:Exiting:1:12
  1067. Sub Exiting(Source As Field)
  1068.      
  1069.      
  1070.      F=Evaluate(|@False|)
  1071.      T=Evaluate(|@True|)
  1072.      
  1073.      l=Len(doc.CellPhoneNumber(0))
  1074. REM "Test to see if the number contains any letters. 
  1075. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1076. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1077. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1078.      
  1079.      x=Evaluate(|!@Matches(CellPhoneNumber;"+{!a-zA-Z}")|, doc)
  1080.      
  1081.      letters=Evaluate(|@Trim(@ReplaceSubstring(CellPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1082.      FirstLet=Left(letters(0),1)
  1083.      
  1084.      p=Evaluate(|@Begins(CellPhoneNumber;"1")|,doc)
  1085.      
  1086.      sep=Evaluate(|@Contains(CellPhoneNumber;"-")|,doc)
  1087.      
  1088.      par=Evaluate(|@Contains(CellPhoneNumber;"(") & @Contains(CellPhoneNumber;")")|,doc)
  1089.      
  1090.      num=doc.CellPhoneNumber(0)
  1091.      
  1092.      If num="" Then
  1093.           Exit Sub
  1094.      End If
  1095.      
  1096.      Call ParsePhoneNumber(num)
  1097.      
  1098.      doc.CellPhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1099.      
  1100.      Call uidoc.refresh
  1101. End Sub
  1102. '++LotusScript Development Environment:2:2:Terminate:1:10
  1103. Sub Terminate
  1104.      
  1105. End Sub
  1106. CellPhoneNumber
  1107. +{!a-zA-Z}I
  1108.     0S0E
  1109. CellPhoneNumber
  1110.     0S0E
  1111. CellPhoneNumber
  1112.     0S0E
  1113. CellPhoneNumber
  1114.     0S0E
  1115. CellPhoneNumber
  1116. CellPhoneNumber
  1117.     6S7S
  1118. '++LotusScript Development Environment:2:5:(Options):0:66
  1119. '++LotusScript Development Environment:2:5:(Forward):0:1
  1120. Declare Sub Exiting(Source As Field)
  1121. Declare Sub Terminate
  1122. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1123. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1124. Private Sub BindEvents(Byval Objectname_ As String)
  1125.      Static Source As FIELD
  1126.      Set Source = Bind(Objectname_)
  1127.      On Event Exiting From Source Call Exiting
  1128. End Sub
  1129. '++LotusScript Development Environment:2:2:Exiting:1:12
  1130. Sub Exiting(Source As Field)
  1131.      
  1132.      
  1133.      F=Evaluate(|@False|)
  1134.      T=Evaluate(|@True|)
  1135.      
  1136.      l=Len(doc.PhoneNumber(0))
  1137. REM "Test to see if the number contains any letters. 
  1138. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1139. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1140. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1141.      
  1142.      x=Evaluate(|!@Matches(PhoneNumber;"+{!a-zA-Z}")|, doc)
  1143.      
  1144.      letters=Evaluate(|@Trim(@ReplaceSubstring(PhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1145.      FirstLet=Left(letters(0),1)
  1146.      
  1147.      p=Evaluate(|@Begins(PhoneNumber;"1")|,doc)
  1148.      
  1149.      sep=Evaluate(|@Contains(PhoneNumber;"-")|,doc)
  1150.      
  1151.      par=Evaluate(|@Contains(PhoneNumber;"(") & @Contains(PhoneNumber;")")|,doc)
  1152.      
  1153.      num=doc.PhoneNumber(0)
  1154.      
  1155.      If num="" Then
  1156.           Exit Sub
  1157.      End If
  1158.      
  1159.      Call ParsePhoneNumber(num)
  1160.      
  1161.      doc.PhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1162.      
  1163.      Call uidoc.refresh
  1164. End Sub
  1165. '++LotusScript Development Environment:2:2:Terminate:1:10
  1166. Sub Terminate
  1167.      
  1168. End Sub
  1169. PhoneNumber
  1170. +{!a-zA-Z}I
  1171.     0S0E
  1172. PhoneNumber
  1173.     0S0E
  1174. PhoneNumber
  1175.     0S0E
  1176. PhoneNumber
  1177.     0S0E
  1178. PhoneNumber
  1179. PhoneNumber
  1180.     6S7S
  1181. '++LotusScript Development Environment:2:5:(Options):0:66
  1182. '++LotusScript Development Environment:2:5:(Forward):0:1
  1183. Declare Sub Exiting(Source As Field)
  1184. Declare Sub Terminate
  1185. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1186. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1187. Private Sub BindEvents(Byval Objectname_ As String)
  1188.      Static Source As FIELD
  1189.      Set Source = Bind(Objectname_)
  1190.      On Event Exiting From Source Call Exiting
  1191. End Sub
  1192. '++LotusScript Development Environment:2:2:Exiting:1:12
  1193. Sub Exiting(Source As Field)
  1194.      
  1195.      
  1196.      F=Evaluate(|@False|)
  1197.      T=Evaluate(|@True|)
  1198.      
  1199.      l=Len(doc.HomeFAXPhoneNumber(0))
  1200. REM "Test to see if the number contains any letters. 
  1201. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1202. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1203. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1204.      
  1205.      x=Evaluate(|!@Matches(HomeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  1206.      
  1207.      letters=Evaluate(|@Trim(@ReplaceSubstring(HomeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1208.      FirstLet=Left(letters(0),1)
  1209.      
  1210.      p=Evaluate(|@Begins(HomeFAXPhoneNumber;"1")|,doc)
  1211.      
  1212.      sep=Evaluate(|@Contains(HomeFAXPhoneNumber;"-")|,doc)
  1213.      
  1214.      par=Evaluate(|@Contains(HomeFAXPhoneNumber;"(") & @Contains(HomeFAXPhoneNumber;")")|,doc)
  1215.      
  1216.      num=doc.HomeFAXPhoneNumber(0)
  1217.      
  1218.      If num="" Then
  1219.           Exit Sub
  1220.      End If
  1221.      
  1222.      Call ParsePhoneNumber(num)
  1223.      
  1224.      doc.HomeFAXPhoneNumber=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1225.      
  1226.      Call uidoc.refresh
  1227. End Sub
  1228. '++LotusScript Development Environment:2:2:Terminate:1:10
  1229. Sub Terminate
  1230.      
  1231. End Sub
  1232. HomeFAXPhoneNumber
  1233. +{!a-zA-Z}I
  1234.     0S0E
  1235. HomeFAXPhoneNumber
  1236.     0S0E
  1237. HomeFAXPhoneNumber
  1238.     0S0E
  1239. HomeFAXPhoneNumber
  1240.     0S0E
  1241. HomeFAXPhoneNumber
  1242. HomeFAXPhoneNumber
  1243.     6S7S
  1244. '++LotusScript Development Environment:2:5:(Options):0:66
  1245. '++LotusScript Development Environment:2:5:(Forward):0:1
  1246. Declare Sub Exiting(Source As Field)
  1247. Declare Sub Terminate
  1248. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1249. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1250. Private Sub BindEvents(Byval Objectname_ As String)
  1251.      Static Source As FIELD
  1252.      Set Source = Bind(Objectname_)
  1253.      On Event Exiting From Source Call Exiting
  1254. End Sub
  1255. '++LotusScript Development Environment:2:2:Exiting:1:12
  1256. Sub Exiting(Source As Field)
  1257.      
  1258.      
  1259.      F=Evaluate(|@False|)
  1260.      T=Evaluate(|@True|)
  1261.      
  1262.      l=Len(doc.PhoneNumber_6(0))
  1263. REM "Test to see if the number contains any letters. 
  1264. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  1265. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  1266. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  1267.      
  1268.      x=Evaluate(|!@Matches(PhoneNumber_6;"+{!a-zA-Z}")|, doc)
  1269.      
  1270.      letters=Evaluate(|@Trim(@ReplaceSubstring(PhoneNumber_6;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-":" ";""))|, doc)
  1271.      FirstLet=Left(letters(0),1)
  1272.      
  1273.      p=Evaluate(|@Begins(PhoneNumber_6;"1")|,doc)
  1274.      
  1275.      sep=Evaluate(|@Contains(PhoneNumber_6;"-")|,doc)
  1276.      
  1277.      par=Evaluate(|@Contains(PhoneNumber_6;"(") & @Contains(PhoneNumber_6;")")|,doc)
  1278.      
  1279.      num=doc.PhoneNumber_6(0)
  1280.      
  1281.      If num="" Then
  1282.           Exit Sub
  1283.      End If
  1284.      
  1285.      Call ParsePhoneNumber(num)
  1286.      
  1287.      doc.PhoneNumber_6=Trim(Trim(Prefix) & " " & Trim(tel) & " " & Trim(Suffix))
  1288.      
  1289.      Call uidoc.refresh
  1290. End Sub
  1291. '++LotusScript Development Environment:2:2:Terminate:1:10
  1292. Sub Terminate
  1293.      
  1294. End Sub
  1295. PhoneNumber_6
  1296. +{!a-zA-Z}I
  1297.     0S0E
  1298. PhoneNumber_6
  1299.     0S0E
  1300. PhoneNumber_6
  1301.     0S0E
  1302. PhoneNumber_6
  1303.     0S0E
  1304. PhoneNumber_6
  1305. PhoneNumber_6
  1306.     6S7S
  1307. '++LotusScript Development Environment:2:5:(Options):0:66
  1308. '++LotusScript Development Environment:2:5:(Forward):0:1
  1309. Declare Sub Exiting(Source As Field)
  1310. '++LotusScript Development Environment:2:5:(Declarations):0:2
  1311. '++LotusScript Development Environment:2:2:BindEvents:1:129
  1312. Private Sub BindEvents(Byval Objectname_ As String)
  1313.      Static Source As FIELD
  1314.      Set Source = Bind(Objectname_)
  1315.      On Event Exiting From Source Call Exiting
  1316. End Sub
  1317. '++LotusScript Development Environment:2:2:Exiting:1:12
  1318. Sub Exiting(Source As Field)
  1319.      
  1320.      
  1321.      Dim Num As Variant
  1322.      Dim FieldName As String
  1323.      Dim Address As Variant
  1324.      
  1325.      FieldName = "H"
  1326.      Num=Evaluate(|@Elements(@Explode(HomeAddress;@Char(13)))|,doc)
  1327.      
  1328.      Address=doc.HomeAddress(0)
  1329.      If Address="" And (doc.StreetAddress(0)="" And doc.City(0)="" And doc.State(0)="")Then
  1330.           Exit Sub
  1331.      End If
  1332.      
  1333.      Call ParseAddress(Address, Num, FieldName)
  1334.      
  1335.      Call uidoc.refresh
  1336. End Sub
  1337. HomeAddress
  1338.     0S0E
  1339. Field Label
  1340.     Phone labels:
  1341. Office Phone
  1342. PhoneLabel_1
  1343. Office Fax
  1344. PhoneLabel_3
  1345. Cell Phone
  1346. PhoneLabel_5
  1347. Home Phone
  1348. PhoneLabel_2
  1349. Home Fax
  1350. PhoneLabel_4
  1351. Pager
  1352. PhoneLabel_6
  1353.     Business address fields:
  1354. StreetAddress_1
  1355. OfficeStreetAddressStreet address.
  1356. City_1
  1357. OfficeCityCity or town name.
  1358. State_1
  1359. OfficeStateState or province name.
  1360.     Home Address: 
  1361. StreetAddressStreet address.
  1362. CityCity or town name.
  1363. StateState or province name.
  1364.     0S0E
  1365. AreaCodeFromLoc
  1366.     Profile flags: 
  1367. PersonalAddressBookProfile
  1368. ParseFlag
  1369.     0S0E
  1370. ParseFlag
  1371. LastName
  1372. FirstName
  1373. Title
  1374. FirstName
  1375. MiddleInitial
  1376. LastName"
  1377. Suffix"
  1378. CompanyName
  1379.     3S4S5S6S7S8S10R31R
  1380. DisplayName
  1381. ParseFlag
  1382.     0S0E
  1383. Enter the person's name.
  1384.     Name:
  1385. Title
  1386. FirstName
  1387. MiddleInitial
  1388. LastName"
  1389. Suffix"
  1390.     7S8S11S12S13S14S
  1391.     0R1S
  1392.     0R1S
  1393. NameMinusT(
  1394.     0R1S
  1395. NameMinusTAndS(
  1396.     0R1S
  1397.     0R1S
  1398.     0R1S
  1399. OnlyName(
  1400.     0R1S
  1401.     0R1S
  1402.     0R1S
  1403.     0R1S
  1404.     0R1S
  1405.     0RRName
  1406.     0S0E
  1407. (NameHelper)
  1408. Name Fields
  1409.     0R4S
  1410. `!b`1
  1411. `bOOO
  1412. `<b!R
  1413. 2?///
  1414. ParseFlag
  1415.     0S0E
  1416.     Title:
  1417. Title
  1418. -None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
  1419.     First name:
  1420. FirstNameFirst name(s) and nicknames - e.g. John; Johnny
  1421.     Middle name/inital:
  1422. MiddleInitialMiddle Initial with a trailing period (optional).
  1423.     Last name:
  1424. LastName
  1425. CompanyName
  1426. A Name is required{
  1427.     3S4S5S6S9S10S12S17SLastNameLast name - e.g. Smith.
  1428.     Suffix:
  1429. Suffix
  1430. -None-|Jr.|Jr.Sr.|Sr.IIIIII
  1431. Enter the job title.
  1432.     Job title:
  1433. JobTitleJob title(s).
  1434. Enter the name of the company.
  1435.     Company:
  1436. CompanyNameCompany name.
  1437. ($CompanyList)
  1438. Enter the business address, excluding ZIP/postal code and country.
  1439.     Address:
  1440. OfficeStreetAddress
  1441. OfficeCity
  1442. OfficeCity"
  1443. OfficeState
  1444. OfficeCity
  1445. OfficeState
  1446.     19S20S
  1447. BusinessAddress
  1448.     0S0E
  1449. BusinessAddress
  1450. (BusinessAddressHelper)
  1451. Business Address
  1452. (BusinessAddressHelper)
  1453. Business Address
  1454. `!b`1
  1455. `bOOO
  1456. `<b!R
  1457. 2?///
  1458. Enter the business address, excluding ZIP/postal code and country.
  1459.     Address:
  1460. BusinessAddress
  1461. DisplayBusinessAddress
  1462. Enter the ZIP code or Postal code for the business address.
  1463.     ZIP/Postal code:
  1464. Zip_1
  1465. OfficeZipEnter the ZIP or postal code.
  1466. Enter the country for the business address.
  1467.     Country:
  1468. Country_1
  1469. OfficeCountryPerson's home country.
  1470. PhoneLabel_1
  1471. PhoneLabel1
  1472. OfficePhoneNumberOffice phone number.
  1473. (PhoneHelper)
  1474. Phones
  1475.     0R3S
  1476. (PhoneHelper)
  1477. Phones
  1478.     0R3S
  1479. `!b`1
  1480. `bOOO
  1481. `<b!R
  1482. 2?///
  1483. PhoneLabel_1
  1484. PhoneLabel1Disp
  1485. OfficePhoneNumber
  1486. OfficePhoneNumberDisp
  1487. PhoneLabel_3
  1488. PhoneLabel3
  1489. OfficeFAXPhoneNumberOffice FAX phone number.
  1490. PhoneLabel_5
  1491. PhoneLabel5
  1492. CellPhoneNumberCellular phone number.
  1493. PhoneLabel_2
  1494. PhoneLabel2
  1495. PhoneNumberHome phone number.
  1496. PhoneLabel_4
  1497. PhoneLabel4
  1498. HomeFAXPhoneNumberHome FAX phone number.
  1499. PhoneLabel_6
  1500. PhoneLabel6
  1501. PhoneNumber_6Pager phone number.
  1502. Enter the person's email address.
  1503.     Email address:
  1504. MailAddress
  1505. Put document in Edit Mode.
  1506. Get the default for the listbox
  1507.     0R1S
  1508. MailSystem
  1509. Lotus Notes
  1510. MailSystem
  1511. Lotus cc:Mail
  1512. MailSystem
  1513. Other
  1514. MailSystem
  1515. X.400 Mail
  1516. MailSystem
  1517. Internet Mail
  1518. MailSystem
  1519. Lotus Notes
  1520.     0R1S2S5S6S8S10S11S12S14S16RS19E17S18S20S22S23S24S26S28RS19E29S30S32S34S35S36S38S40S
  1521. Get the type of mail system
  1522.     0RR1S
  1523. Mail Address Assistant
  1524. Choose the type of mail system the person uses:
  1525. Lotus Notes
  1526. Lotus cc:Mail
  1527. Internet Mail
  1528. X.400 Mail
  1529. Other
  1530.     0R1S2S8RS19E12RS20E
  1531. Determine the helper form name
  1532.     0RR1S
  1533. helper
  1534. Lotus Notes
  1535. (Notes Address Helper)
  1536. Lotus cc:Mail
  1537. (ccMail Address Helper)
  1538. Internet Mail
  1539. (Internet Address Helper)
  1540. X.400 Mail
  1541. (X400 Address Helper)
  1542. (Fax Address Helper)
  1543. (Other Address Helper)
  1544.     0R1S2S5S6S8S10S11S12S14S16RS26E17S18S20S22S23S24S26S28RS26E30S32S34S
  1545. Display the helper form - results are returned to current document
  1546.     0RR1S
  1547. helper
  1548. helper
  1549. Mail Address Assistant
  1550.     0R3S4S6S10S19S
  1551. (HomeAddressHelper)
  1552. Home Address
  1553. (PhoneHelper)
  1554. Phones
  1555.     0R3S
  1556. Put document in Edit Mode.
  1557. Get the default for the listbox
  1558.     0R1S
  1559. MailSystem
  1560. Lotus Notes
  1561. MailSystem
  1562. Lotus cc:Mail
  1563. MailSystem
  1564. Other
  1565. MailSystem
  1566. X.400 Mail
  1567. MailSystem
  1568. Internet Mail
  1569. MailSystem
  1570. Lotus Notes
  1571.     0R1S2S5S6S8S10S11S12S14S16RS19E17S18S20S22S23S24S26S28RS19E29S30S32S34S35S36S38S40S
  1572. Get the type of mail system
  1573.     0RR1S
  1574. Mail Address Assistant
  1575. Choose the type of mail system the person uses:
  1576. Lotus Notes
  1577. Lotus cc:Mail
  1578. Internet Mail
  1579. X.400 Mail
  1580. Other
  1581.     0R1S2S8RS19E12RS20E
  1582. Determine the helper form name
  1583.     0RR1S
  1584. helper
  1585. Lotus Notes
  1586. (Notes Address Helper)
  1587. Lotus cc:Mail
  1588. (ccMail Address Helper)
  1589. Internet Mail
  1590. (Internet Address Helper)
  1591. X.400 Mail
  1592. (X400 Address Helper)
  1593. (Fax Address Helper)
  1594. (Other Address Helper)
  1595.     0R1S2S5S6S8S10S11S12S14S16RS26E17S18S20S22S23S24S26S28RS26E30S32S34S
  1596. Display the helper form - results are returned to current document
  1597.     0RR1S
  1598. helper
  1599. helper
  1600. Mail Address Assistant
  1601.     0R3S4S6S10S19S
  1602. `!b`1
  1603. `bOOO
  1604. `<b!R
  1605. 2?///
  1606. Enter the person's email address.
  1607.     Email address:
  1608. MailAddress
  1609. DisplayMailAddress
  1610. Enter the URL for the person's web page.
  1611.     Web page:
  1612. WebSite
  1613. Enter the home address, excluding ZIP/postal code and country.
  1614.     Home address:
  1615. StreetAddress
  1616. City"
  1617. State
  1618. State
  1619.     19S20S
  1620. HomeAddress
  1621. (HomeAddressHelper)
  1622. Home Address
  1623. (PhoneHelper)
  1624. Phones
  1625.     0R3S
  1626. (HomeAddressHelper)
  1627. Home Address
  1628. `!b`1
  1629. `bOOO
  1630. `<b!R
  1631. 2?///
  1632. Enter the home address, excluding ZIP/postal code and country.
  1633.     Home address:
  1634. HomeAddress
  1635. DisplayHomeAddress
  1636. Enter the ZIP code or Postal code for the home address.
  1637.     ZIP/Postal code:
  1638. ZipEnter the ZIP or postal code.
  1639. Enter the country for the home address.
  1640.     Country:
  1641. CountryPerson's home country.
  1642. Enter the categories for this business card. 
  1643.     Categories:
  1644. Categories
  1645. Categories
  1646. Enter any comments.
  1647.     Comment:
  1648. CommentEnter a comment.
  1649. More Info
  1650.     More Info
  1651.     Business
  1652. Office location or mailstop.
  1653.     Location:
  1654. LocationOffice location or mailstop.
  1655. Department name(s).
  1656.     Department:
  1657. DepartmentDepartment name(s).
  1658. Name of the person's manager or supervisor.
  1659.     Manager:
  1660. ManagerManager's name.
  1661. Name of person's assistant or secretary.
  1662.     Assistant:
  1663. AssistantAssistant's name.
  1664.     Home
  1665. Spouse's name.
  1666.     Spouse:
  1667. SpouseSpouse's name.
  1668. Children's names.
  1669.     Children:
  1670. ChildrenChildren's names.
  1671.     Advanced
  1672. 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. 
  1673.     Full user name:
  1674. FullNameDistinguished name and aliases - e.g. Jon Smith/Sales/Acme; Jonathan M. Smith.
  1675. Electronic mail domain name component of the person's electronic mail address.  Choose the button next to the Mail address field for further assistance.
  1676.     Mail domain:
  1677. MailDomainDomain name of person's mail server.
  1678. MailSystem
  1679. Notes|1cc:Mail|2Internet|5X.400|4Other|3None|100
  1680. Short "nickname" to be used when addressing mail to the person.
  1681.     Short name:
  1682. ShortNameShort username used by some foreign mail gateways (e.g. PROFS).
  1683. Use this field only if the user has a hierarchical, ID.
  1684. 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. 
  1685.     Certified public key:
  1686. CertificatePerson's certified public key.
  1687. Use this field only if the user has a flat, not a hierarchical, ID.
  1688. 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. 
  1689.     Public key:
  1690. PublicKeyPerson's public key.
  1691. $ConferencingPersonFormSubform | 1.0 | $ConferencingPersonFormSubform
  1692. Person
  1693. DocumentAccess
  1694. Save and Close>
  1695.     0S0E
  1696.     0S0E
  1697. _Edit Card
  1698. Categori_ze
  1699. Send Docu_ment
  1700. _Forward
  1701. _Move to Folder...
  1702. _Remove from Folder...
  1703. O=Lotus Notes
  1704. O=Lotus Notes
  1705. PURSAFO
  1706. |.:#U
  1707. O=Lotus Notes
  1708. CN=Lotus Notes Template Development/O=Lotus Notes
  1709. PURSAFO
  1710. Fde!f^^
  1711. $Author
  1712. $TITLE
  1713. $FormUsers
  1714. $INFO
  1715. $SubForms
  1716. $WINDOWTITLE
  1717. $Script
  1718. $$Script_O
  1719. $$ScriptName
  1720. $$FormScript
  1721. $$$FormScript_O
  1722. $$Name
  1723. $Name_O
  1724. $$CompanyName
  1725. $CompanyName_O
  1726. $$BusinessAddress
  1727. $BusinessAddress_O
  1728. $$OfficePhoneNumber
  1729. $OfficePhoneNumber_O
  1730. $$OfficeFAXPhoneNumber
  1731. $OfficeFAXPhoneNumber_O
  1732. $$CellPhoneNumber
  1733. $CellPhoneNumber_O
  1734. $$PhoneNumber
  1735. $PhoneNumber_O
  1736. $$HomeFAXPhoneNumber
  1737. $HomeFAXPhoneNumber_O
  1738. $$PhoneNumber_6
  1739. $PhoneNumber_6_O
  1740. $$HomeAddress
  1741. $HomeAddress_O
  1742. $BODY
  1743. $ACTIONS
  1744. Times New Roman
  1745. About Personal Address Book
  1746. Basic
  1747. 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).
  1748. Choose "Using This Database" in the Help menu for suggestions on tailoring this database for your personal use.
  1749. ---------------
  1750. (Close this window to return to the database)
  1751. O=Lotus Notes
  1752. O=Lotus Notes
  1753. PURSAFO
  1754. |.:#U
  1755. O=Lotus Notes
  1756. CN=Lotus Notes Template Development/O=Lotus Notes
  1757. PURSAFO
  1758. Fde!f^^
  1759. $INFO
  1760. $BODY
  1761. OwnerOwner
  1762. OwnerFull name of person allowed to modify this document.
  1763. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
  1764. (Other Address Helper)
  1765. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  1766. (FAX Address Helper)
  1767. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
  1768. (X400 Address Helper)CD
  1769. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
  1770. (ccMail Address Helper)
  1771. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
  1772. AreaCodeInputAreaCodeInput
  1773. AreaCode
  1774. AreaCodeInputEnter the area code.
  1775. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  1776. (BusinessAddressHelper)CD
  1777. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  1778. (HomeAddressHelper)CD
  1779. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  1780. (NameHelper)CD
  1781. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  1782. (PhoneHelper)CD
  1783. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
  1784. AddressParsers34Q1
  1785. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  1786. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  1787. O=Lotus Notes
  1788. O=Lotus Notes
  1789. PURSAFO
  1790. |.:#U
  1791. O=Lotus Notes
  1792. CN=Lotus Notes Template Development/O=Lotus Notes
  1793. PURSAFO
  1794. Fde!f^^
  1795. $TITLE
  1796. $INFO
  1797. $BODY
  1798. (Other Address Helper)
  1799. Other Mail Address
  1800.     Other mail system address:
  1801.     Notes gateway domain:
  1802. MailAddress
  1803.     1S2S6S
  1804. MailAddress
  1805. MailAddress
  1806. FullName
  1807.     0R5S6S8S10S20S
  1808. UserName
  1809. Include both any domain from address and anyone from MailDomain field
  1810. MailAddress
  1811.     0R1S2S
  1812. MailDomain
  1813. MailDomain"
  1814. MailDomain
  1815.     0R3S4S5S6S7S8S10S11S12S13S14S16S17S18S20S22S
  1816. Domain
  1817. UserName
  1818. Domain
  1819. Domain"
  1820.     1S2S5S6S8S12SMailAddress
  1821. MailSystem
  1822. Always zero out the MailDomain because it is now part of MailAddress
  1823. MailDomain
  1824. Categori_ze 
  1825. _Edit Document
  1826. Send Docu_ment
  1827. _Forward
  1828. _Move to Folder...
  1829. _Remove from Folder...
  1830. O=Lotus Notes
  1831. O=Lotus Notes
  1832. PURSAFO
  1833. |.:#U
  1834. O=Lotus Notes
  1835. CN=Lotus Notes Template Development/O=Lotus Notes
  1836. PURSAFO
  1837. Fde!f^^
  1838. $TITLE
  1839. $INFO
  1840. $$ScriptName
  1841. $BODY
  1842. $ACTIONS
  1843. (FAX Address Helper)
  1844. Fax Mail Address
  1845.     Person's name:
  1846.     Notes fax gateway domain:
  1847. Fax machine phone number:
  1848. MailAddress
  1849. MailAddress
  1850. FullName
  1851.     3S4S6S12S16S20SUserName
  1852. Get the phone number from the middle of the address
  1853. MailAddress
  1854.     0R1S2S6S
  1855.     0R1S2S8S10S11S13S17S20S
  1856. OfficeFAXPhoneNumber
  1857.     0R5S6S8S10SFaxNumber
  1858. Get the third thru nth domain names
  1859. MailAddress
  1860. MailDomain
  1861. MailDomain"
  1862.     0R1S2S8S11S
  1863. FaxDomain
  1864.     0R5S6S8S10S
  1865. Save the gateway domain in the user's profile for future addresses
  1866. FaxDomain
  1867. FaxDomain
  1868.     0R4S
  1869. FaxDomain
  1870. FaxDomain
  1871. UserName
  1872. FaxNumber
  1873. FaxDomain
  1874. FaxDomain
  1875.     5S6S9S10S12S13S14S16SMailAddress
  1876. MailSystem
  1877. Always zero out the MailDomain because it is now part of MailAddress
  1878. MailDomain
  1879. Categori_ze
  1880. _Edit Document
  1881. Send Docu_ment
  1882. _Forward
  1883. _Move to Folder...
  1884. _Remove from Folder...
  1885. O=Lotus Notes
  1886. O=Lotus Notes
  1887. PURSAFO
  1888. |.:#U
  1889. O=Lotus Notes
  1890. CN=Lotus Notes Template Development/O=Lotus Notes
  1891. PURSAFO
  1892. Fde!f^^
  1893. $TITLE
  1894. $INFO
  1895. $$ScriptName
  1896. $BODY
  1897. $ACTIONS
  1898. _Edit Document
  1899. _Save Document
  1900. Save as New _Version
  1901. Send Docu_ment
  1902. Categori_ze
  1903. _Rename Document
  1904. O=Lotus Notes
  1905. O=Lotus Notes
  1906. PURSAFO
  1907. |.:#U
  1908. O=Lotus Notes
  1909. CN=Lotus Notes Template Development/O=Lotus Notes
  1910. PURSAFO
  1911. Fde!f^^
  1912. $Author
  1913. $ACTIONS
  1914. $Comment
  1915. $TITLE
  1916. $Index
  1917. $Formula
  1918. $FormulaClass
  1919. $VIEWFORMAT
  1920. Categori_ze
  1921. _Edit Document
  1922. Send Docu_ment
  1923. _Forward
  1924. O=Lotus Notes
  1925. O=Lotus Notes
  1926. PURSAFO
  1927. |.:#U
  1928. O=Lotus Notes
  1929. CN=Lotus Notes Template Development/O=Lotus Notes
  1930. PURSAFO
  1931. Fde!f^^
  1932. diGD=bK
  1933. $Author
  1934. $TITLE
  1935. $Index
  1936. $Formula
  1937. $FormulaClass
  1938. $VIEWFORMAT
  1939. $Comment
  1940. $ACTIONS
  1941. (X400 Address Helper)
  1942.  Extract X400 O/R address portion (address) from MailAddress
  1943. MailAddress
  1944. address
  1945. MailAddress
  1946.     0R5S6S8S10S
  1947. Check to see if the string '/DDA.' exists in the MailAddress, and if not return.
  1948.     0RR1S
  1949. check
  1950. address
  1951. /DDA.
  1952.  Assign substring between 1st '/DDA.' and the next '/'  to DDA1 field. 
  1953.     0RR1S
  1954. address
  1955. /DDA.
  1956.     0R1S
  1957.  Assign substring between 2nd '/dda.' and the next '/'  to DDA2 field. 
  1958.     0RR1S
  1959. address
  1960. DDA1`
  1961. /DDA.
  1962. address
  1963. /DDA.
  1964. DDA1"
  1965. /DDA.
  1966.     0R1S7S17S
  1967.  Assign substring between 3nd '/dda.' and the next '/'  to DDA3 field. 
  1968.     0RR1S
  1969. address
  1970. DDA2`
  1971. /DDA.
  1972. address
  1973. /DDA.
  1974. DDA2"
  1975. /DDA.
  1976.     0R1S7S17S
  1977.  Assign substring between 4th '/dda.' and the next '/'  to DDA4 field. 
  1978.     0RR1S
  1979. address
  1980. DDA3`
  1981. /DDA.
  1982. address
  1983. /DDA.
  1984. DDA3"
  1985. /DDA.
  1986.     0R1S7S17S
  1987.  Dummy value. 
  1988.     0RR1S
  1989. X.400 Address
  1990. Given name (/G):
  1991. Surname (/S):
  1992. Organization (/O):
  1993. Country (/C):
  1994. MailAddress
  1995.     1S2S
  1996. MailAddress
  1997. MailAddress
  1998. FirstName
  1999.     0R5S6S8S10S18S19S25S26S28S30SG
  2000. MailAddress
  2001.     1S2S
  2002. MailAddress
  2003. MailAddress
  2004. LastName
  2005.     0R5S6S8S10S18S2E19S25S26S28S30SS
  2006. MailAddress
  2007.     0S0E
  2008. MailAddress
  2009.     0S0E
  2010. MailAddress
  2011.     0S0E
  2012. MailAddress
  2013.     0S0E
  2014. MailAddress
  2015.     0S0E
  2016. MailAddress
  2017.     0S0E
  2018. Org Unit 1 (/OU1):
  2019. Org Unit 4 (/OU4):
  2020. Org Unit2 (/OU2):
  2021. Org Unit 3 (/OU3):
  2022. MailAddress
  2023.     0S0E
  2024. Initials (/I):
  2025. MailAddress
  2026.     0S0E
  2027. Generational qualifier (/Q):
  2028. MailAddress
  2029.     0S0E
  2030. MailAddress
  2031.     0S0E
  2032. PRMD (/P):
  2033. ADMD (/A):
  2034. MailAddress
  2035.     0S0E
  2036. Common name (/CN):
  2037. Include both any domain from MailAddress and any from MailDomain field
  2038. MailAddress
  2039.     0R1S2S
  2040. domain
  2041. MailDomain
  2042. MailDomain"
  2043. MailDomain
  2044.     0R1S2S5S6S7S8S9S10S12S13S14S15S16S18S19S20S22S24S
  2045. domain
  2046. domain
  2047. X400Domain|
  2048.     0R3S4S6S8S
  2049. Save the gateway domain in the user's profile for future addresses
  2050. X400Domain
  2051. X400Domain|
  2052.     0R4S
  2053. X400Domain
  2054. X400Domain
  2055. Gateway domain (optional):
  2056. DDA (/DDA.type=value):
  2057. DDA (/DDA.type=value):
  2058. DDA (/DDA.type=value):
  2059. DDA (/DDA.type=value):
  2060. /OU4=
  2061. /OU3=
  2062. /OU2=
  2063. /OU1=
  2064. PRMD"
  2065. ADMD"
  2066. /DDA.
  2067. DDA1"
  2068. /DDA.
  2069. DDA2"
  2070. /DDA.
  2071. DDA3"
  2072. /DDA.
  2073. DDA4"
  2074. X400Domain
  2075. X400Domain"
  2076.     13R65R117R169R201R233R236S237S239S
  2077. MailAddress
  2078. MailSystem
  2079. Always zero out the MailDomain because it is now part of MailAddress
  2080. MailDomain
  2081. Categori_ze 
  2082. _Edit Document
  2083. Send Docu_ment
  2084. _Forward
  2085. _Move to Folder...
  2086. _Remove from Folder...
  2087. O=Lotus Notes
  2088. O=Lotus Notes
  2089. PURSAFO
  2090. |.:#U
  2091. O=Lotus Notes
  2092. CN=Lotus Notes Template Development/O=Lotus Notes
  2093. PURSAFO
  2094. Fde!f^^
  2095. z7x&m
  2096. $TITLE
  2097. $INFO
  2098. $$ScriptName
  2099. $BODY
  2100. $ACTIONS
  2101. (ccMail Address Helper)
  2102. cc:Mail Address
  2103.     User name:
  2104.     Post Office:
  2105.     cc:Mail domain:
  2106.  Extract cc:Mail address portion (address) from MailAddress
  2107. MailAddress
  2108. address
  2109. MailAddress
  2110.     0R5S6S8S10S
  2111. Find the position (at) of a case independent ' at ' substring in address. 
  2112.     0R1S
  2113. address
  2114.  at _
  2115. Use text to left of ' at ' as username. If no ' at ' found, use entire address
  2116.     0R1S
  2117. address
  2118. address
  2119.     0R1S2S7S8S10S12S
  2120. If no username yet, use the FullName field
  2121.     0R1S
  2122. FullName
  2123.     0R3S4S7S8S
  2124. ccMailUserName
  2125.  Extract cc:Mail address portion (address) from MailAddress
  2126. MailAddress
  2127. address
  2128. MailAddress
  2129.     0R5S6S8S10S
  2130. Find the position (at) of a case independent ' at ' substring in address. 
  2131.     0R1S
  2132. address
  2133.  at `
  2134. Use text to right of ' at ' as post office name. If no ' at ' found, there is no post office name
  2135.     0R1S
  2136. address
  2137.     0R5S6S8S15SccMailPO
  2138. Include both any domain from MailAddress and any from MailDomain field
  2139. MailAddress
  2140.     0R1S2S
  2141. domain
  2142. MailDomain
  2143. MailDomain"
  2144. MailDomain
  2145.     0R1S2S5S6S7S8S9S10S12S13S14S15S16S18S19S20S22S24S
  2146. domain
  2147. domain
  2148. ccMailDomain|
  2149.     0R3S4S6S8S
  2150. ccMailDomain
  2151. ccMailDomain|
  2152. ccMailDomain
  2153. ccMailDomain
  2154. Concatenate username + PO + domain
  2155. ccMailUserName
  2156. ccMailPO
  2157. ccMailPO"
  2158. ccMailDomain
  2159. ccMailDomain"
  2160.     0R1S2S5S6S8S9S10S14S15S18S19S21S22S23S25SMailAddress
  2161. MailSystem
  2162. Always zero out the MailDomain because it is now part of MailAddress
  2163. MailDomain
  2164. Categori_ze 
  2165. _Edit Document
  2166. Send Docu_ment
  2167. _Forward
  2168. _Move to Folder...
  2169. _Remove from Folder...
  2170. O=Lotus Notes
  2171. O=Lotus Notes
  2172. PURSAFO
  2173. |.:#U
  2174. O=Lotus Notes
  2175. CN=Lotus Notes Template Development/O=Lotus Notes
  2176. PURSAFO
  2177. Fde!f^^
  2178. G*/rR
  2179. $TITLE
  2180. $INFO
  2181. $$ScriptName
  2182. $BODY
  2183. $ACTIONS
  2184. (BusinessAddressHelper)
  2185.     Street:
  2186.     City:
  2187.     Zip/Postal code:
  2188.     State:
  2189.     Country:
  2190. StreetAddress_1
  2191.     0S0E
  2192. OfficeStreetAddressStreet address.
  2193. City_1^
  2194.     0S0E
  2195. OfficeCityCity or town name.
  2196. State_1
  2197.     0S0E
  2198. OfficeStateState or province name.
  2199. Zip_1
  2200.     0S0E
  2201. OfficeZipEnter the ZIP or postal code.
  2202. Country_1
  2203.     0S0E
  2204. OfficeCountryPerson's home country.
  2205. OfficeStreetAddress
  2206. OfficeCity
  2207. OfficeStreetAddress
  2208. OfficeCity"
  2209. OfficeCity
  2210. OfficeState
  2211. OfficeCity
  2212. OfficeState
  2213.     4RS11E21RS11E26S27SBusinessAddress
  2214. O=Lotus Notes
  2215. O=Lotus Notes
  2216. PURSAFO
  2217. |.:#U
  2218. O=Lotus Notes
  2219. CN=Lotus Notes Template Development/O=Lotus Notes
  2220. PURSAFO
  2221. Fde!f^^
  2222.     4'=W
  2223. $TITLE
  2224. $INFO
  2225. $$Script_O
  2226. $$ScriptName
  2227. $BODY
  2228. (HomeAddressHelper)
  2229.     Street:
  2230.     City:
  2231.     Zip/Postal code:
  2232.     State:
  2233.     Country:
  2234. StreetAddress
  2235. StreetAddressStreet address.
  2236. CityCity or town name.
  2237. State
  2238. StateState or province name.
  2239. ZipEnter the ZIP or postal code.
  2240. Country
  2241. CountryPerson's home country.
  2242. StreetAddress
  2243. StreetAddress
  2244. City"
  2245. State
  2246. State
  2247.     4RS11E21RS11E26S27SHomeAddress
  2248. O=Lotus Notes
  2249. O=Lotus Notes
  2250. PURSAFO
  2251. |.:#U
  2252. O=Lotus Notes
  2253. CN=Lotus Notes Template Development/O=Lotus Notes
  2254. PURSAFO
  2255. Fde!f^^
  2256. $TITLE
  2257. $INFO
  2258. $$ScriptName
  2259. $BODY
  2260. (NameHelper)
  2261.     First name:
  2262.     Middle name:
  2263.     Last name:
  2264.     Title:
  2265.     Suffix:
  2266. Name_Edit
  2267. FirstNameFirst name(s) and nicknames - e.g. John; Johnny
  2268. MiddleInitial_Edit
  2269. MiddleInitialMiddle Initial with a trailing period (optional).
  2270. LastName_Edit
  2271. LastNameLast name - e.g. Smith.
  2272. Title
  2273. -None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
  2274. Suffix
  2275. -None-|Jr.|Jr.Sr.|Sr.IIIIII
  2276. Title
  2277. FirstName
  2278. MiddleInitial
  2279. LastName"
  2280. Suffix"
  2281.     12SName
  2282. O=Lotus Notes
  2283. O=Lotus Notes
  2284. PURSAFO
  2285. |.:#U
  2286. O=Lotus Notes
  2287. CN=Lotus Notes Template Development/O=Lotus Notes
  2288. PURSAFO
  2289. Fde!f^^
  2290. l-d6h
  2291. $TITLE
  2292. $INFO
  2293. $$Script_O
  2294. $$ScriptName
  2295. $BODY
  2296. '++LotusScript Development Environment:2:5:(Options):0:74
  2297. Option Public
  2298. Use "PhoneParser"
  2299. '++LotusScript Development Environment:2:5:(Forward):0:1
  2300. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2301. (PhoneHelper)'++LotusScript Development Environment:2:5:(Options):0:66
  2302. '++LotusScript Development Environment:2:5:(Forward):0:1
  2303. Declare Sub Postopen(Source As Notesuidocument)
  2304. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2305. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2306. Private Sub BindEvents(Byval Objectname_ As String)
  2307.      Static Source As NOTESUIDOCUMENT
  2308.      Set Source = Bind(Objectname_)
  2309.      On Event Postopen From Source Call Postopen
  2310. End Sub
  2311. '++LotusScript Development Environment:2:2:Postopen:1:12
  2312. Sub Postopen(Source As Notesuidocument)
  2313.      Dim w As New NotesUIWorkspace 
  2314.      Dim s As New NotesSession
  2315.      Set db = s.CurrentDatabase
  2316.      Set uidoc=source
  2317.      Set doc = uidoc.document
  2318. End Sub
  2319. '++LotusScript Development Environment:2:5:(Options):0:66
  2320. '++LotusScript Development Environment:2:5:(Forward):0:1
  2321. Declare Sub Exiting(Source As Field)
  2322. Declare Sub Entering(Source As Field)
  2323. Declare Sub Initialize
  2324. Declare Sub Terminate
  2325. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2326. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2327. Private Sub BindEvents(Byval Objectname_ As String)
  2328.      Static Source As FIELD
  2329.      Set Source = Bind(Objectname_)
  2330.      On Event Exiting From Source Call Exiting
  2331.      On Event Entering From Source Call Entering
  2332. End Sub
  2333. '++LotusScript Development Environment:2:2:Exiting:1:12
  2334. Sub Exiting(Source As Field)
  2335.      
  2336.      
  2337.      F=Evaluate(|@False|)
  2338.      T=Evaluate(|@True|)
  2339.      
  2340.      l=Len(doc.OfficePhoneNumber(0))
  2341. REM "Test to see if the number contains any letters. 
  2342. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2343. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2344. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2345.      
  2346.      x=Evaluate(|!@Matches(OfficePhoneNumber;"+{!a-zA-Z}")|, doc)
  2347.      
  2348.      letters=Evaluate(|@ReplaceSubstring(OfficePhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2349.      FirstLet=Left(letters(0),1)
  2350.      
  2351.      p=Evaluate(|@Begins(OfficePhoneNumber;"1")|,doc)
  2352.      
  2353.      sep=Evaluate(|@Contains(OfficePhoneNumber;"-")|,doc)
  2354.      
  2355.      par=Evaluate(|@Contains(OfficePhoneNumber;"(") & @Contains(OfficePhoneNumber;")")|,doc)
  2356.      locarea=Evaluate(|locarea|)
  2357.      num=doc.OfficePhoneNumber(0)
  2358.      
  2359.      Call ParsePhoneNumber(num)
  2360.      
  2361.      doc.OfficePhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2362.      
  2363.      Call uidoc.refresh
  2364. End Sub
  2365. '++LotusScript Development Environment:2:2:Entering:1:12
  2366. Sub Entering(Source As Field)
  2367.      
  2368. End Sub
  2369. '++LotusScript Development Environment:2:2:Initialize:1:10
  2370. Sub Initialize
  2371.      
  2372. End Sub
  2373. '++LotusScript Development Environment:2:2:Terminate:1:10
  2374. Sub Terminate
  2375.      
  2376. End Sub
  2377. OfficePhoneNumber
  2378. +{!a-zA-Z}I
  2379.     0S0E
  2380. OfficePhoneNumber
  2381.     0S0E
  2382. OfficePhoneNumber
  2383.     0S0E
  2384. OfficePhoneNumber
  2385.     0S0E
  2386. OfficePhoneNumber
  2387. OfficePhoneNumber
  2388.     6S7S
  2389. locarea
  2390. '++LotusScript Development Environment:2:5:(Options):0:66
  2391. '++LotusScript Development Environment:2:5:(Forward):0:1
  2392. Declare Sub Exiting(Source As Field)
  2393. Declare Sub Entering(Source As Field)
  2394. Declare Sub Initialize
  2395. Declare Sub Terminate
  2396. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2397. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2398. Private Sub BindEvents(Byval Objectname_ As String)
  2399.      Static Source As FIELD
  2400.      Set Source = Bind(Objectname_)
  2401.      On Event Exiting From Source Call Exiting
  2402.      On Event Entering From Source Call Entering
  2403. End Sub
  2404. '++LotusScript Development Environment:2:2:Exiting:1:12
  2405. Sub Exiting(Source As Field)
  2406.      
  2407.      
  2408.      F=Evaluate(|@False|)
  2409.      T=Evaluate(|@True|)
  2410.      
  2411.      l=Len(doc.OfficeFAXPhoneNumber(0))
  2412. REM "Test to see if the number contains any letters. 
  2413. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2414. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2415. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2416.      
  2417.      x=Evaluate(|!@Matches(OfficeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  2418.      
  2419.      letters=Evaluate(|@ReplaceSubstring(OfficeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2420.      FirstLet=Left(letters(0),1)
  2421.      
  2422.      p=Evaluate(|@Begins(OfficeFAXPhoneNumber;"1")|,doc)
  2423.      
  2424.      sep=Evaluate(|@Contains(OfficeFAXPhoneNumber;"-")|,doc)
  2425.      
  2426.      par=Evaluate(|@Contains(OfficeFAXPhoneNumber;"(") & @Contains(OfficeFAXPhoneNumber;")")|,doc)
  2427.      locarea=Evaluate(|locarea|)
  2428.      num=doc.OfficeFAXPhoneNumber(0)
  2429.      
  2430.      Call ParsePhoneNumber(num)
  2431.      
  2432.      doc.OfficeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2433.      
  2434.      Call uidoc.refresh
  2435. End Sub
  2436. '++LotusScript Development Environment:2:2:Entering:1:12
  2437. Sub Entering(Source As Field)
  2438.      
  2439. End Sub
  2440. '++LotusScript Development Environment:2:2:Initialize:1:10
  2441. Sub Initialize
  2442.      
  2443. End Sub
  2444. '++LotusScript Development Environment:2:2:Terminate:1:10
  2445. Sub Terminate
  2446.      
  2447. End Sub
  2448. OfficeFAXPhoneNumber
  2449. +{!a-zA-Z}I
  2450.     0S0E
  2451. OfficeFAXPhoneNumber
  2452.     0S0E
  2453. OfficeFAXPhoneNumber
  2454.     0S0E
  2455. OfficeFAXPhoneNumber
  2456.     0S0E
  2457. OfficeFAXPhoneNumber
  2458. OfficeFAXPhoneNumber
  2459.     6S7S
  2460. locarea
  2461. '++LotusScript Development Environment:2:5:(Options):0:66
  2462. '++LotusScript Development Environment:2:5:(Forward):0:1
  2463. Declare Sub Exiting(Source As Field)
  2464. Declare Sub Entering(Source As Field)
  2465. Declare Sub Initialize
  2466. Declare Sub Terminate
  2467. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2468. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2469. Private Sub BindEvents(Byval Objectname_ As String)
  2470.      Static Source As FIELD
  2471.      Set Source = Bind(Objectname_)
  2472.      On Event Exiting From Source Call Exiting
  2473.      On Event Entering From Source Call Entering
  2474. End Sub
  2475. '++LotusScript Development Environment:2:2:Exiting:1:12
  2476. Sub Exiting(Source As Field)
  2477.      
  2478.      
  2479.      F=Evaluate(|@False|)
  2480.      T=Evaluate(|@True|)
  2481.      
  2482.      l=Len(doc.CellPhoneNumber(0))
  2483. REM "Test to see if the number contains any letters. 
  2484. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2485. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2486. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2487.      
  2488.      x=Evaluate(|!@Matches(CellPhoneNumber;"+{!a-zA-Z}")|, doc)
  2489.      
  2490.      letters=Evaluate(|@ReplaceSubstring(CellPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2491.      FirstLet=Left(letters(0),1)
  2492.      
  2493.      p=Evaluate(|@Begins(CellPhoneNumber;"1")|,doc)
  2494.      
  2495.      sep=Evaluate(|@Contains(CellPhoneNumber;"-")|,doc)
  2496.      
  2497.      par=Evaluate(|@Contains(CellPhoneNumber;"(") & @Contains(CellPhoneNumber;")")|,doc)
  2498.      locarea=Evaluate(|locarea|)
  2499.      num=doc.CellPhoneNumber(0)
  2500.      
  2501.      Call ParsePhoneNumber(num)
  2502.      
  2503.      doc.CellPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2504.      
  2505.      Call uidoc.refresh
  2506. End Sub
  2507. '++LotusScript Development Environment:2:2:Entering:1:12
  2508. Sub Entering(Source As Field)
  2509.      
  2510. End Sub
  2511. '++LotusScript Development Environment:2:2:Initialize:1:10
  2512. Sub Initialize
  2513.      
  2514. End Sub
  2515. '++LotusScript Development Environment:2:2:Terminate:1:10
  2516. Sub Terminate
  2517.      
  2518. End Sub
  2519. CellPhoneNumber
  2520. +{!a-zA-Z}I
  2521.     0S0E
  2522. CellPhoneNumber
  2523.     0S0E
  2524. CellPhoneNumber
  2525.     0S0E
  2526. CellPhoneNumber
  2527.     0S0E
  2528. CellPhoneNumber
  2529. CellPhoneNumber
  2530.     6S7S
  2531. locarea
  2532. '++LotusScript Development Environment:2:5:(Options):0:66
  2533. '++LotusScript Development Environment:2:5:(Forward):0:1
  2534. Declare Sub Exiting(Source As Field)
  2535. Declare Sub Entering(Source As Field)
  2536. Declare Sub Initialize
  2537. Declare Sub Terminate
  2538. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2539. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2540. Private Sub BindEvents(Byval Objectname_ As String)
  2541.      Static Source As FIELD
  2542.      Set Source = Bind(Objectname_)
  2543.      On Event Exiting From Source Call Exiting
  2544.      On Event Entering From Source Call Entering
  2545. End Sub
  2546. '++LotusScript Development Environment:2:2:Exiting:1:12
  2547. Sub Exiting(Source As Field)
  2548.      
  2549.      F=Evaluate(|@False|)
  2550.      T=Evaluate(|@True|)
  2551.      
  2552.      l=Len(doc.PhoneNumber(0))
  2553. REM "Test to see if the number contains any letters. 
  2554. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2555. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2556. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2557.      
  2558.      x=Evaluate(|!@Matches(PhoneNumber;"+{!a-zA-Z}")|, doc)
  2559.      
  2560.      letters=Evaluate(|@ReplaceSubstring(PhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2561.      FirstLet=Left(letters(0),1)
  2562.      
  2563.      p=Evaluate(|@Begins(PhoneNumber;"1")|,doc)
  2564.      
  2565.      sep=Evaluate(|@Contains(PhoneNumber;"-")|,doc)
  2566.      
  2567.      par=Evaluate(|@Contains(PhoneNumber;"(") & @Contains(PhoneNumber;")")|,doc)
  2568.      locarea=Evaluate(|locarea|)
  2569.      num=doc.PhoneNumber(0)
  2570.      
  2571.      Call ParsePhoneNumber(num)
  2572.      
  2573.      doc.PhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2574.      
  2575.      Call uidoc.refresh
  2576. End Sub
  2577. '++LotusScript Development Environment:2:2:Entering:1:12
  2578. Sub Entering(Source As Field)
  2579.      
  2580. End Sub
  2581. '++LotusScript Development Environment:2:2:Initialize:1:10
  2582. Sub Initialize
  2583.      
  2584. End Sub
  2585. '++LotusScript Development Environment:2:2:Terminate:1:10
  2586. Sub Terminate
  2587.      
  2588. End Sub
  2589. PhoneNumber
  2590. +{!a-zA-Z}I
  2591.     0S0E
  2592. PhoneNumber
  2593.     0S0E
  2594. PhoneNumber
  2595.     0S0E
  2596. PhoneNumber
  2597.     0S0E
  2598. PhoneNumber
  2599. PhoneNumber
  2600.     6S7S
  2601. locarea
  2602. '++LotusScript Development Environment:2:5:(Options):0:66
  2603. '++LotusScript Development Environment:2:5:(Forward):0:1
  2604. Declare Sub Exiting(Source As Field)
  2605. Declare Sub Entering(Source As Field)
  2606. Declare Sub Initialize
  2607. Declare Sub Terminate
  2608. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2609. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2610. Private Sub BindEvents(Byval Objectname_ As String)
  2611.      Static Source As FIELD
  2612.      Set Source = Bind(Objectname_)
  2613.      On Event Exiting From Source Call Exiting
  2614.      On Event Entering From Source Call Entering
  2615. End Sub
  2616. '++LotusScript Development Environment:2:2:Exiting:1:12
  2617. Sub Exiting(Source As Field)
  2618.      
  2619.      
  2620.      F=Evaluate(|@False|)
  2621.      T=Evaluate(|@True|)
  2622.      
  2623.      l=Len(doc.HomeFAXPhoneNumber(0))
  2624. REM "Test to see if the number contains any letters. 
  2625. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2626. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2627. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2628.      
  2629.      x=Evaluate(|!@Matches(HomeFAXPhoneNumber;"+{!a-zA-Z}")|, doc)
  2630.      
  2631.      letters=Evaluate(|@ReplaceSubstring(HomeFAXPhoneNumber;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2632.      FirstLet=Left(letters(0),1)
  2633.      
  2634.      p=Evaluate(|@Begins(HomeFAXPhoneNumber;"1")|,doc)
  2635.      
  2636.      sep=Evaluate(|@Contains(HomeFAXPhoneNumber;"-")|,doc)
  2637.      
  2638.      par=Evaluate(|@Contains(HomeFAXPhoneNumber;"(") & @Contains(HomeFAXPhoneNumber;")")|,doc)
  2639.      locarea=Evaluate(|locarea|)
  2640.      num=doc.HomeFAXPhoneNumber(0)
  2641.      
  2642.      Call ParsePhoneNumber(num)
  2643.      
  2644.      doc.HomeFAXPhoneNumber=Trim(Prefix & " " & tel & " " & Suffix)
  2645.      
  2646.      Call uidoc.refresh
  2647. End Sub
  2648. '++LotusScript Development Environment:2:2:Entering:1:12
  2649. Sub Entering(Source As Field)
  2650.      
  2651. End Sub
  2652. '++LotusScript Development Environment:2:2:Initialize:1:10
  2653. Sub Initialize
  2654.      
  2655. End Sub
  2656. '++LotusScript Development Environment:2:2:Terminate:1:10
  2657. Sub Terminate
  2658.      
  2659. End Sub
  2660. HomeFAXPhoneNumber
  2661. +{!a-zA-Z}I
  2662.     0S0E
  2663. HomeFAXPhoneNumber
  2664.     0S0E
  2665. HomeFAXPhoneNumber
  2666.     0S0E
  2667. HomeFAXPhoneNumber
  2668.     0S0E
  2669. HomeFAXPhoneNumber
  2670. HomeFAXPhoneNumber
  2671.     6S7S
  2672. locarea
  2673. '++LotusScript Development Environment:2:5:(Options):0:66
  2674. '++LotusScript Development Environment:2:5:(Forward):0:1
  2675. Declare Sub Exiting(Source As Field)
  2676. Declare Sub Entering(Source As Field)
  2677. Declare Sub Initialize
  2678. Declare Sub Terminate
  2679. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2680. '++LotusScript Development Environment:2:2:BindEvents:1:129
  2681. Private Sub BindEvents(Byval Objectname_ As String)
  2682.      Static Source As FIELD
  2683.      Set Source = Bind(Objectname_)
  2684.      On Event Exiting From Source Call Exiting
  2685.      On Event Entering From Source Call Entering
  2686. End Sub
  2687. '++LotusScript Development Environment:2:2:Exiting:1:12
  2688. Sub Exiting(Source As Field)
  2689.      
  2690.      F=Evaluate(|@False|)
  2691.      T=Evaluate(|@True|)
  2692.      
  2693.      l=Len(doc.PhoneNumber_6(0))
  2694. REM "Test to see if the number contains any letters. 
  2695. REM " We do the test this way because it appears that @matches does not return consistent results without doing the ! of the pattern.
  2696. REM " In order to make it easier to understand the logic, we do another ! at the begining, so that if it does contain letters 
  2697. REM " the result is TRUE, otherwise it does not contain any letters the result is FALSE.";
  2698.      
  2699.      x=Evaluate(|!@Matches(PhoneNumber_6;"+{!a-zA-Z}")|, doc)
  2700.      
  2701.      letters=Evaluate(|@ReplaceSubstring(PhoneNumber_6;"0":"1":"2":"3":"4":"5":"6":"7":"8":"9":"(":")":"-";"")|, doc)
  2702.      FirstLet=Left(letters(0),1)
  2703.      
  2704.      p=Evaluate(|@Begins(PhoneNumber_6;"1")|,doc)
  2705.      
  2706.      sep=Evaluate(|@Contains(PhoneNumber_6;"-")|,doc)
  2707.      
  2708.      par=Evaluate(|@Contains(PhoneNumber_6;"(") & @Contains(PhoneNumber_6;")")|,doc)
  2709.      locarea=Evaluate(|locarea|)
  2710.      num=doc.PhoneNumber_6(0)
  2711.      
  2712.      Call ParsePhoneNumber(num)
  2713.      
  2714.      doc.PhoneNumber_6=Trim(Prefix & " " & tel & " " & Suffix)
  2715.      
  2716.      Call uidoc.refresh
  2717. End Sub
  2718. '++LotusScript Development Environment:2:2:Entering:1:12
  2719. Sub Entering(Source As Field)
  2720.      
  2721. End Sub
  2722. '++LotusScript Development Environment:2:2:Initialize:1:10
  2723. Sub Initialize
  2724.      
  2725. End Sub
  2726. '++LotusScript Development Environment:2:2:Terminate:1:10
  2727. Sub Terminate
  2728.      
  2729. End Sub
  2730. PhoneNumber_6
  2731. +{!a-zA-Z}I
  2732.     0S0E
  2733. PhoneNumber_6
  2734.     0S0E
  2735. PhoneNumber_6
  2736.     0S0E
  2737. PhoneNumber_6
  2738.     0S0E
  2739. PhoneNumber_6
  2740. PhoneNumber_6
  2741.     6S7S
  2742. locarea
  2743.     Phone Labels:
  2744.     Phone Numbers:
  2745. PhoneLabel_1
  2746. OfficePhoneNumberOffice phone number.
  2747. PhoneLabel_3
  2748. OfficeFAXPhoneNumberOffice FAX phone number.
  2749. PhoneLabel_5
  2750. CellPhoneNumberCellular phone number.
  2751. PhoneLabel_2
  2752. PhoneNumberHome phone number.
  2753. PhoneLabel_4
  2754. HomeFAXPhoneNumberHome FAX phone number.
  2755. PhoneLabel_6
  2756. PhoneNumber_6Home FAX phone number.
  2757. O=Lotus Notes
  2758. O=Lotus Notes
  2759. PURSAFO
  2760. |.:#U
  2761. O=Lotus Notes
  2762. CN=Lotus Notes Template Development/O=Lotus Notes
  2763. PURSAFO
  2764. Fde!f^^
  2765. "*eG    
  2766. $TITLE
  2767. $INFO
  2768. $Script
  2769. $$Script_O
  2770. $$ScriptName
  2771. $$FormScript
  2772. $$$FormScript_O
  2773. $$OfficePhoneNumber
  2774. $OfficePhoneNumber_O
  2775. $$OfficeFAXPhoneNumber
  2776. $OfficeFAXPhoneNumber_O
  2777. $$CellPhoneNumber
  2778. $CellPhoneNumber_O
  2779. $$PhoneNumber
  2780. $PhoneNumber_O
  2781. $$HomeFAXPhoneNumber
  2782. $HomeFAXPhoneNumber_O
  2783. $$PhoneNumber_6
  2784. $PhoneNumber_6_O
  2785. $BODY
  2786. '++LotusScript Development Environment:2:5:(Options):0:74
  2787. Option Public
  2788. Use "GlobalDeclarations"
  2789. '++LotusScript Development Environment:2:5:(Forward):0:1
  2790. Declare Sub ParseAddress(add As Variant, elements As Variant, whichfield As String)
  2791. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2792. Dim City As Variant
  2793. Dim State As Variant
  2794. Dim Address As Variant
  2795. Dim Punct As Integer
  2796. Dim LastLine As Variant
  2797. Dim OtherLines As Variant
  2798. '++LotusScript Development Environment:2:2:ParseAddress:1:8
  2799. Sub ParseAddress(add As Variant, elements As Variant, whichfield As String)
  2800.      REM "Clear out the existing fields so that new/modified address is correct"
  2801.      If whichfield = "B" Then
  2802.           doc.OfficeStreetAddress=""
  2803.           doc.OfficeCity=""
  2804.           doc.OfficeState=""
  2805.      End If
  2806.      If whichfield = "H" Then
  2807.           doc.StreetAddress=""
  2808.           doc.City=""
  2809.           doc.State=""
  2810.      End If
  2811.      
  2812.      
  2813.      REM " The rules to parse an address are as follows:"
  2814.      REM " If there is only one word, assume it is the city."
  2815.      REM " If there is more than one word and no punctuation, still assume it is the city."
  2816.      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"
  2817.      REM " If there are two lines, assume the first line is the address and the second line is the city/state"
  2818.      REM " If there are more than two lines, assume the last is city/state, the rest are address"
  2819.      REM " Country and ZIP/Postal codes go into different fields."
  2820.      
  2821.      Punct=Instr(add,",")
  2822.      
  2823.      If elements(0) = 1 And Punct=0 Then
  2824.           If whichfield = "B" Then
  2825.                doc.OfficeCity=Trim(add)
  2826.                Exit Sub
  2827.           End If
  2828.           If whichfield = "H" Then
  2829.                doc.City=Trim(add)
  2830.                Exit Sub
  2831.           End If
  2832.      End If
  2833.      
  2834.      If elements(0) = 1 And Punct>0 Then
  2835.           If whichfield = "B" Then
  2836.                doc.OfficeCity=Trim(Left(add,Punct-1))
  2837.                doc.OfficeState=Trim(Right(add, Len(add)-Punct))
  2838.                Exit Sub
  2839.           End If
  2840.           If whichfield = "H" Then
  2841.                doc.City=Trim(Left(add,Punct-1))
  2842.                doc.State=Trim(Right(add, Len(add)-Punct))
  2843.                Exit Sub
  2844.           End If
  2845.      End If
  2846.      
  2847.      If elements(0) > 1 Then
  2848.           If whichfield="B" Then
  2849.                LastLine=Evaluate(|@Subset(@Explode(BusinessAddress;@Char(13));-1)|,doc)  
  2850.                OtherLines=Evaluate(|@Implode(@Subset(@Explode(BusinessAddress;@Char(13));@Elements(@Explode(BusinessAddress;@Char(13)))-1);@NewLine)|,doc)
  2851.                doc.OfficeStreetAddress=OtherLines
  2852.                Punct=Instr(LastLine(0),",")
  2853.                If  Punct >0 Then
  2854.                     doc.OfficeCity=Trim(Left(LastLine(0),Punct-1))
  2855.                     doc.OfficeState=Trim(Right(LastLine(0), Len(LastLine(0))-Punct))
  2856.                Else
  2857.                     doc.OfficeCity=Trim(LastLine(0))
  2858.                End If
  2859.                Exit Sub
  2860.           End If
  2861.           If whichfield="H" Then
  2862.                LastLine=Evaluate(|@Subset(@Explode(HomeAddress;@Char(13));-1)|,doc)
  2863.                OtherLines=Evaluate(|@Implode(@Subset(@Explode(HomeAddress;@Char(13));@Elements(@Explode(HomeAddress;@Char(13)))-1);@NewLine)|,doc)
  2864.                doc.StreetAddress=OtherLines
  2865.                Punct=Instr(LastLine(0),",")
  2866.                If  Punct >0 Then
  2867.                     doc.City=Trim(Left(LastLine(0),Punct-1))
  2868.                     doc.State=Trim(Right(LastLine(0), Len(LastLine(0))-Punct))
  2869.                Else
  2870.                     doc.City=Trim(LastLine(0))
  2871.                End If
  2872.                Exit Sub
  2873.           End If
  2874.      End If
  2875.      
  2876. End Sub
  2877. BusinessAddress
  2878.     0S0E
  2879. BusinessAddress
  2880. BusinessAddress
  2881.     0S0E
  2882. HomeAddress
  2883.     0S0E
  2884. HomeAddress
  2885. HomeAddress
  2886.     0S0E
  2887. O=Lotus Notes
  2888. O=Lotus Notes
  2889. PURSAFO
  2890. |.:#U
  2891. O=Lotus Notes
  2892. CN=Lotus Notes Template Development/O=Lotus Notes
  2893. PURSAFO
  2894. Fde!f^^
  2895. $ScriptLib
  2896. $ScriptLib_O
  2897. $TITLE
  2898. $Flags
  2899. $PublicAccess
  2900. GlobalDeclarationss34Q1
  2901. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
  2902. MailLibrary1
  2903. CN=Ryan Jansen/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notess34Q###########
  2904. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesPhoneParsers34Q1##################################
  2905. (CreateMailMemo)
  2906. EH4fPL3
  2907. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  2908. (ScheduleMeeting)
  2909. EH4fPL3
  2910. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
  2911. $SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15Business Cards|People1
  2912. $126$18
  2913. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
  2914. Groups
  2915. ListName
  2916. $2ListDescription$Conflict$REF
  2917. Group
  2918. GroupType
  2919.     L1S2S3S4S5S1
  2920.  $2Group:
  2921. ListName
  2922. ListDescriptionDescription&
  2923. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  2924. ##########################################################
  2925. _Advanced\Locations|Locations
  2926. Source
  2927.   - for 
  2928. Source
  2929.  only
  2930.     6S7S23S24S
  2931. $20$Conflict$REF
  2932. Location
  2933.     L1S2S3S1
  2934. $20Location
  2935. Source
  2936.   - for 
  2937. Source
  2938.  only
  2939.     6S7S23S24S
  2940. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  2941. By Category|By Category1-
  2942. Categories$101$102T
  2943. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
  2944. ##########################################################
  2945. '++LotusScript Development Environment:2:5:(Options):0:66
  2946. Option Public
  2947. '++LotusScript Development Environment:2:5:(Forward):0:1
  2948. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2949. Dim db As NotesDatabase
  2950. Dim doc As NotesDocument
  2951. Dim uidoc As notesuidocument
  2952. O=Lotus Notes
  2953. O=Lotus Notes
  2954. PURSAFO
  2955. |.:#U
  2956. O=Lotus Notes
  2957. CN=Lotus Notes Template Development/O=Lotus Notes
  2958. PURSAFO
  2959. Fde!f^^
  2960. $ScriptLib
  2961. $ScriptLib_O
  2962. $TITLE
  2963. $Flags
  2964. $PublicAccess
  2965. '++LotusScript Development Environment:2:5:(Options):0:66
  2966. Option Public
  2967. '++LotusScript Development Environment:2:5:(Forward):0:1
  2968. Declare Sub Initialize
  2969. Declare Sub InstantiateVariables
  2970. Declare Function GetMailAddress() As String
  2971. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2972. Dim ws As NotesUIWorkspace
  2973. Dim session As NotesSession
  2974. Dim db As NotesDatabase
  2975. Dim maildb As NotesDatabase
  2976. Dim note As NotesDocument
  2977. Dim mailnote As NotesDocument
  2978. Dim collection As NotesDocumentCollection
  2979. Dim profile As NotesDocument
  2980. Dim SendToNames() As String
  2981. Dim counter As Integer
  2982. '++LotusScript Development Environment:2:2:Initialize:1:10
  2983. Sub Initialize
  2984.      
  2985. End Sub
  2986. '++LotusScript Development Environment:2:2:InstantiateVariables:1:8
  2987. Sub InstantiateVariables
  2988.      Set ws = New NotesUIWorkspace
  2989.      Set session = New NotesSession
  2990.      Set db = session.CurrentDatabase
  2991.      Set maildb = New NotesDatabase("","")
  2992.      maildb.OpenMail
  2993.      Set profile = maildb.GetProfileDocument("CalendarProfile")
  2994.      counter = 0
  2995.      Set collection = db.UnprocessedDocuments
  2996. End Sub
  2997. '++LotusScript Development Environment:2:1:GetMailAddress:1:8
  2998. Function GetMailAddress() As String
  2999.      GetMailAddress = note.FullName(0)
  3000. End Function
  3001. O=Lotus Notes
  3002. O=Lotus Notes
  3003. PURSAFO
  3004. |.:#U
  3005. O=Lotus Notes
  3006. CN=Lotus Notes Template Development/O=Lotus Notes
  3007. PURSAFO
  3008. Fde!f^^
  3009. $ScriptLib
  3010. $ScriptLib_O
  3011. $TITLE
  3012. $PublicAccess
  3013. '++LotusScript Development Environment:2:5:(Options):0:74
  3014. Option Public
  3015. Use "GlobalDeclarations"
  3016. '++LotusScript Development Environment:2:5:(Forward):0:1
  3017. Declare Sub FormatNum(num As Variant)
  3018. Declare Sub ParsePhoneNumber(num As Variant)
  3019. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3020. Dim l As Variant
  3021. Dim x As Variant
  3022. Dim letters As Variant
  3023. Dim sep As Variant
  3024. Dim p As Variant
  3025. Dim par As Variant
  3026. Dim locarea As Variant
  3027. Dim num As Variant
  3028. Dim OriginalNum As Variant
  3029. Dim tel As Variant
  3030. Dim F As Variant
  3031. Dim T As Variant
  3032. Dim locsep As Integer
  3033. Dim lennum As Integer
  3034. Dim InPar As Variant
  3035. Dim LPar As Variant
  3036. Dim LocLPar As Integer
  3037. Dim LocRPar As Integer
  3038. Dim RPar As Variant
  3039. Dim Prefix As String
  3040. Dim Suffix As String
  3041. Dim FirstLet As String
  3042. Dim LocFirstLet As Integer
  3043. Dim hasspace As Variant
  3044. '++LotusScript Development Environment:2:2:FormatNum:1:8
  3045. Sub FormatNum(num As Variant)
  3046.      num=Trim(num)
  3047.      lennum=Len(num)
  3048.      hasspace=Instr(num," ")
  3049.      REM "No separator"
  3050.      If (sep(0)=F(0)) Then 
  3051.           If lennum=7 And hasspace=0Then
  3052.                tel=Left(num,3)&"-"&Right(num,4)
  3053.                Exit Sub
  3054.           End If
  3055.           If lennum < 7 Then
  3056.                tel=num
  3057.                Exit Sub
  3058.           End If
  3059.           If lennum = 10 And hasspace=0 Then
  3060.                tel="(" & Left(num,3) & ") " & Left(Right(num,7),3) & "-" & Right(num,4)
  3061.                Exit Sub
  3062.           End If 
  3063.           If (lennum > 7 And lennum < 10) Or lennum > 10  Then
  3064.                tel=num
  3065.                Exit Sub
  3066.           End If
  3067.           
  3068.      End If 
  3069.      REM "Separator is present"
  3070.      If (sep(0)=T(0))  Then
  3071.           locsep=Instr(num,"-")
  3072.           tel=Left(num,locsep-1)&"-"&Right(num,lennum-locsep)
  3073.           Exit Sub
  3074.      End If
  3075.      tel=num
  3076. End Sub
  3077. '++LotusScript Development Environment:2:2:ParsePhoneNumber:1:8
  3078. Sub ParsePhoneNumber(num As Variant)
  3079.      
  3080.      OriginalNum=num
  3081.      
  3082.       REM "Check to see if there is a prefix"     
  3083.      If (p(0)=T(0)) Then
  3084.           Prefix="+" & Left(num,1)
  3085.           num=Trim(Right(num,l-1))
  3086.      Else
  3087.           Prefix=""
  3088.      End If
  3089.      
  3090.      
  3091.      REM "Check to see if there are letters and if so, parse them out"
  3092.      
  3093.      If (x(0)=T(0)) Then
  3094.           LocFirstLet=Instr(num,FirstLet)
  3095.           Suffix=Right(num,l-LocFirstLet)
  3096.           num=Left(num,LocFirstLet-1)
  3097.           
  3098.           If Len(num)<7 Then
  3099.                tel=OriginalNum
  3100.                Suffix=""
  3101.                Exit Sub
  3102.           Else
  3103.                Call FormatNum(num)
  3104.           End If
  3105.      Else
  3106.           Suffix=""
  3107.           
  3108.      End If       
  3109.      
  3110.      
  3111.      REM " Check to see if there are parens.  If so parse out the insides, left and right"
  3112.      
  3113.      If (par(0)=T(0)) Then
  3114.           LocLPar=Instr(num,"(")
  3115.           LPar=Trim(Left(num,LocLPar-1))
  3116.           If Len(LPar) >0 And Left(LPar,1) <>"+" Then
  3117.                LPar="+" & LPar
  3118.           End If
  3119.           LocRPar=Instr(num,")")
  3120.           RPar=Right(num,(Len(num))-LocRPar)
  3121.           InPar=Mid(num,LocLPar+1,LocRPar-LocLPar-1)
  3122.           Call FormatNum(RPar)
  3123.           tel=Trim(LPar) &" (" & InPar & ") " & tel
  3124.      Else
  3125.           InPar=Null
  3126.           LPar=Null
  3127.           LocRPar=0
  3128.           RPar=Null
  3129.      End If
  3130.      
  3131.      If (par(0)=F(0)) And (x(0)=F(0)) Then
  3132.           Call FormatNum(num)          
  3133.      End If
  3134.      
  3135.      
  3136.      
  3137. End Sub
  3138. O=Lotus Notes
  3139. O=Lotus Notes
  3140. PURSAFO
  3141. |.:#U
  3142. O=Lotus Notes
  3143. CN=Lotus Notes Template Development/O=Lotus Notes
  3144. PURSAFO
  3145. Fde!f^^
  3146. $ScriptLib
  3147. $ScriptLib_O
  3148. $TITLE
  3149. $Flags
  3150. $PublicAccess
  3151. '++LotusScript Development Environment:2:5:(Options):0:74
  3152. Option Public
  3153. Use "MailLibrary"
  3154. '++LotusScript Development Environment:2:5:(Forward):0:1
  3155. Declare Sub Initialize
  3156. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3157. '++LotusScript Development Environment:2:2:Initialize:1:10
  3158. Sub Initialize
  3159. 'declare local variables
  3160.      Dim x As Integer
  3161.      
  3162. 'instantiate objects     
  3163.      InstantiateVariables
  3164.      
  3165.      
  3166.      If (collection.Count = 0) Then
  3167.           Messagebox "No documents were selected.",0,"Error"
  3168.           Exit Sub
  3169.      End If
  3170.      
  3171.      Redim SendToNames(collection.Count-1)
  3172.      
  3173. 'for each document in the collection, get the mail address
  3174. 'we use the GetNth method since the resulting collection is an IDTable
  3175.      For x = 1 To collection.Count
  3176.           Set note = collection.GetNthDocument(x)
  3177.           SendToNames(counter) = GetMailAddress
  3178.           counter = counter + 1
  3179.      Next
  3180.      
  3181.      Set mailnote = New NotesDocument(maildb)
  3182.      mailnote.SendTo = SendToNames
  3183.      mailnote.Form = "Memo"
  3184.      mailnote.Logo = session.GetEnvironmentString("DefaultLogo",False)
  3185.      mailnote.Principal = profile.Owner(0)
  3186.      
  3187.      Call ws.EditDocument(True,mailnote)
  3188. End Sub
  3189. O=Lotus Notes
  3190. O=Lotus Notes
  3191. PURSAFO
  3192. |.:#U
  3193. O=Lotus Notes
  3194. CN=Lotus Notes Template Development/O=Lotus Notes
  3195. PURSAFO
  3196. Fde!f^^
  3197. zRFCSb
  3198. $TITLE
  3199. $AssistType
  3200. $AssistLastRun
  3201. $AssistDocCount
  3202. $AssistFlags
  3203. $AssistTrigger
  3204. $AssistInfo
  3205. $AssistQuery
  3206. $AssistAction
  3207. $AssistAction_Ex
  3208. '++LotusScript Development Environment:2:5:(Options):0:74
  3209. Option Public
  3210. Use "MailLibrary"
  3211. '++LotusScript Development Environment:2:5:(Forward):0:1
  3212. Declare Sub Initialize
  3213. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3214. '++LotusScript Development Environment:2:2:Initialize:1:10
  3215. Sub Initialize
  3216.      Dim nMinutes As Integer
  3217.      Dim nSeconds As Integer
  3218.      Dim x As Integer
  3219.      
  3220.      Dim startdt As NotesDateTime
  3221.      Dim enddt As NotesDateTime
  3222.      Dim trdr As NotesDateRange
  3223.      
  3224.      InstantiateVariables
  3225.      
  3226.      If (collection.Count = 0) Then
  3227.           Messagebox "No documents were selected.",0,"Error"
  3228.           Exit Sub
  3229.      End If
  3230.      
  3231.      Redim SendToNames(collection.Count-1)
  3232.      
  3233. 'for each document in the collection, get the mail address
  3234. 'we use the GetNth method since the resulting collection is an IDTable
  3235.      For x = 1 To collection.Count
  3236.           Set note = collection.GetNthDocument(x)
  3237.           SendToNames(counter) = GetMailAddress
  3238.           counter = counter + 1
  3239.      Next
  3240.      
  3241.      Set mailnote = New NotesDocument(maildb)
  3242.      mailnote.SendTo = SendToNames
  3243.      mailnote.Form = "Appointment"
  3244.      mailnote.AppointmentType = "3"
  3245.      mailnote.Chair = profile.Owner(0)
  3246.      mailnote.Principal = profile.Owner(0)
  3247.      
  3248. 'add the date/time values     
  3249.      Set startdt = New NotesDateTime("")
  3250.      startdt.SetNow
  3251.      
  3252.      nMinutes = Minute(startdt.LSLocalTime)
  3253.      nSeconds = 0 - Second(startdt.LSLocalTime)
  3254.      
  3255.      If (nMinutes > 45) Then          
  3256.           startdt.AdjustMinute(60 - nMinutes)
  3257.      Elseif (nMinutes > 30) Then
  3258.           startdt.AdjustMinute(45 - nMinutes)
  3259.      Elseif (nMinutes > 15) Then
  3260.           startdt.AdjustMinute(30 - nMinutes)
  3261.      Else
  3262.           startdt.AdjustMinute(15 - nMinutes)
  3263.      End If               
  3264.      
  3265.      startdt.AdjustSecond(nSeconds)
  3266.      
  3267.      Set mailnote.StartDate = startdt
  3268.      Set mailnote.StartDateTime = startdt
  3269.      
  3270.      Set enddt = New NotesDateTime(startdt.LSLocalTime)
  3271.      enddt.AdjustMinute(profile.DefaultDuration(0))
  3272.      
  3273.      Set trdr = session.CreateDateRange
  3274.      Set trdr.StartDateTime = startdt
  3275.      Set trdr.EndDateTime = enddt
  3276.      Set mailnote.TimeRange = trdr
  3277.      
  3278.      Call ws.EditDocument(True,mailnote)
  3279. End Sub
  3280. O=Lotus Notes
  3281. O=Lotus Notes
  3282. PURSAFO
  3283. |.:#U
  3284. O=Lotus Notes
  3285. CN=Lotus Notes Template Development/O=Lotus Notes
  3286. PURSAFO
  3287. Fde!f^^
  3288. $TITLE
  3289. $AssistType
  3290. $AssistLastRun
  3291. $AssistDocCount
  3292. $AssistFlags
  3293. $AssistTrigger
  3294. $AssistInfo
  3295. $AssistQuery
  3296. $AssistAction
  3297. $AssistAction_Ex
  3298. LastName
  3299. FirstName
  3300. LastName
  3301. Firstname
  3302. FirstName
  3303. CompanyName
  3304.     3S5S6S7S8S10R23S41R
  3305. FullName
  3306. FullName
  3307. FullName
  3308. CompanyName
  3309. CompanyName
  3310.     2RS11E23S24S32R
  3311. OfficePhoneNumber
  3312. PhoneLabel_1
  3313. PhoneLabel_1
  3314. OfficePhoneNumber
  3315. OfficeFAXPhoneNumber
  3316. PhoneLabel_3
  3317. PhoneLabel_3
  3318. OfficeFAXPhoneNumber"
  3319. CellPhoneNumber
  3320. PhoneLabel_5
  3321. PhoneLabel_5
  3322. CellPhoneNumber
  3323. PhoneNumber
  3324. PhoneLabel_2
  3325. PhoneLabel_2
  3326. PhoneNumber
  3327. HomeFAXPhoneNumber
  3328. PhoneLabel_4
  3329. PhoneLabel_4
  3330. HomeFAXPhoneNumber"
  3331. PhoneNumber_6
  3332. PhoneLabel_6
  3333. PhoneLabel_6
  3334. PhoneNumber_6
  3335.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E
  3336. CompanyName
  3337. CompanyName
  3338. JobTitle
  3339. JobTitle
  3340. BusinessAddress
  3341. OfficeStreetAddress
  3342. OfficeCity
  3343. OfficeCity
  3344. OfficeState
  3345. OfficeState
  3346. OfficeZip
  3347. OfficeCountry
  3348.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E
  3349. $126$18$19$20$Conflict$REF
  3350. Person
  3351. Company
  3352.     L1S2S3S
  3353. @$126Name
  3354. LastName
  3355. FirstName
  3356. LastName
  3357. Firstname
  3358. FirstName
  3359. CompanyName
  3360.     3S5S6S7S8S10R23S41R$18Name
  3361. FullName
  3362. FullName
  3363. FullName
  3364. CompanyName
  3365. CompanyName
  3366.     2RS11E23S24S32R$19Phones
  3367. OfficePhoneNumber
  3368. PhoneLabel_1
  3369. PhoneLabel_1
  3370. OfficePhoneNumber
  3371. OfficeFAXPhoneNumber
  3372. PhoneLabel_3
  3373. PhoneLabel_3
  3374. OfficeFAXPhoneNumber"
  3375. CellPhoneNumber
  3376. PhoneLabel_5
  3377. PhoneLabel_5
  3378. CellPhoneNumber
  3379. PhoneNumber
  3380. PhoneLabel_2
  3381. PhoneLabel_2
  3382. PhoneNumber
  3383. HomeFAXPhoneNumber
  3384. PhoneLabel_4
  3385. PhoneLabel_4
  3386. HomeFAXPhoneNumber"
  3387. PhoneNumber_6
  3388. PhoneLabel_6
  3389. PhoneLabel_6
  3390. PhoneNumber_6
  3391.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E$20Business
  3392. CompanyName
  3393. CompanyName
  3394. JobTitle
  3395. JobTitle
  3396. BusinessAddress
  3397. OfficeStreetAddress
  3398. OfficeCity
  3399. OfficeCity
  3400. OfficeState
  3401. OfficeState
  3402. OfficeZip
  3403. OfficeCountry
  3404.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E&
  3405. Add Card 
  3406. CurrentServer
  3407.     0S0E
  3408. CurrentServer
  3409. Person
  3410. [UserCreator]
  3411. Person
  3412. Not Authorized
  3413. You are not authorized to add Person documents to this database.
  3414.     0R6R10S13R
  3415. _Edit Card
  3416. Delete
  3417. MailVerify
  3418. DeleteNTUserAccount
  3419.     0R1S
  3420. synch
  3421. AdminFileName
  3422. admin4.nsf
  3423. CurrentServer
  3424. AdminPExist
  3425. CurrentServer
  3426. AdminFileName
  3427. AdminPAccess
  3428. CurrentServer
  3429. AdminFileName
  3430. AdminPAccessLevel
  3431. AdminPAccess
  3432. AdminPCreateAccess
  3433. AdminPAccess
  3434. NamesAccess
  3435. NamesAccessLevel
  3436. NamesAccess
  3437. NamesDeleteAccess
  3438. NamesAccess
  3439. PersonLastName
  3440. LastName
  3441. PersonFirstName
  3442. FirstName
  3443. DeleteVerify
  3444. Verification
  3445. You have requested to delete the selected person records.  Do you wish to continue?
  3446. Action Cancelled
  3447. You have cancelled deleting the person record(s).
  3448. DeleteVerify+
  3449. CurrentServer
  3450. (DeleteUserOptions)
  3451. AdminPExist
  3452. AdminPAccessLevel
  3453. AdminPCreateAccess
  3454. NamesAccessLevel
  3455. NamesDeleteAccess
  3456. synch
  3457. Immediate or via Administration Process?
  3458. 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...)
  3459. synch
  3460. CurrentServer
  3461. AdminFileName
  3462. MailVerify
  3463. DeleteNTUserAccount
  3464. Completed Successfully
  3465. The people(s) name have been removed completely from this Address Book
  3466. Error
  3467. You have encountered an error.  The people(s) name have not been removed completely.  Please try again.
  3468. synch
  3469. CurrentServer
  3470. AdminFileName
  3471. MailVerify
  3472. DeleteNTUserAccount
  3473. Request Successful
  3474. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  3475. Error
  3476. You have encountered an error.  The request was not submitted properly.  Please try again.
  3477. DeleteNTUserAccount
  3478. Action Cancelled
  3479. Action has been cancelled.
  3480. NamesAccessLevel
  3481. NamesDeleteAccess
  3482. CurrentServer
  3483. AdminFileName
  3484. MailVerify
  3485. DeleteNTUserAccount
  3486. Request Successful
  3487. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  3488. Error
  3489. You have encountered an error.  The request was not submitted properly.  Please try again.
  3490. NamesAccessLevel
  3491. NamesDeleteAccess
  3492. DeleteNTUserAccount
  3493. Insufficient Access
  3494. You do not have sufficient access to perform the requested operation.
  3495. DeleteNTUserAccount
  3496. Insufficient Access
  3497. You do not have sufficient access to  perform the requested operation.
  3498. DeleteNTUserAccount
  3499. Insufficient Access
  3500. You are not authorized to create requests in the Administration Requests Database.
  3501. DeleteNTUserAccount
  3502. Admin. Requests Database Does Not Exist
  3503. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  3504.     0RR6RS2E17RS6E32RS9E41RS12E44S46S47S48S51RS15E54S55S56S57S58S61RS12E77RS15E83RS18E95S102RS46E111RS47E119RS28E121RS20E125RS19E146RS48E155RS49E161S163RS28E166RS19E187RS20E190RS17E193S194S198RS15E216S219RS48E228RS49E234S236RS29E239RS19E240S242S243S247RS24E267RS38E269RS11E289RS15E290RS10E292RS7E313RS8E315RS2E335RS17E336RS4E337R338RR340R344R
  3505.     11S12S13S17S18S
  3506. Delete
  3507. synch
  3508.     0S0E
  3509. AdminFileName
  3510. admin4.nsf
  3511. CurrentServer
  3512. AdminPExist
  3513. CurrentServer
  3514. AdminFileName
  3515. AdminPAccess
  3516. CurrentServer
  3517. AdminFileName
  3518. AdminPAccessLevel
  3519. AdminPAccess
  3520. AdminPCreateAccess
  3521. AdminPAccess
  3522. NamesAccess
  3523. NamesAccessLevel
  3524. NamesAccess
  3525. NamesDeleteAccess
  3526. NamesAccess
  3527. DeleteVerify
  3528. Verification
  3529. You have requested to delete the person record for 
  3530. FullName
  3531. .  Do you wish to continue?
  3532.     0R9S10S21S22S
  3533. DeleteVerify+
  3534. CurrentServer
  3535. AdminPExist
  3536. AdminPAccessLevel
  3537. AdminPCreateAccess
  3538. NamesAccessLevel
  3539. NamesDeleteAccess
  3540. synch
  3541. Immediate or via Administration Process?
  3542. By selecting 'Yes' the action you have requested will take place immediately, and affect all references to this Person in this Address Book.  (NOTE:  This may take awhile...)
  3543. synch
  3544. CurrentServer
  3545. AdminFileName
  3546. Completed Successfully
  3547. The user's name has been removed completely from this Address Book
  3548. Error
  3549. You have encountered an error.  The user's name has not been removed completely.  Please try again.
  3550. synch
  3551. CurrentServer
  3552. AdminFileName
  3553. Request Successful
  3554. Your request to delete this username has been successfully submitted to the Administration Requests database.
  3555. Error
  3556. You have encountered an error.  The request was not submitted properly.  Please try again.
  3557. Action Cancelled
  3558. Action has been cancelled.
  3559. NamesAccessLevel
  3560. NamesDeleteAccess
  3561. CurrentServer
  3562. AdminFileName
  3563. Request Successful
  3564. Your request to delete this username has been successfully submitted to the Administration Requests database.
  3565. Error
  3566. You have encountered an error.  The request was not submitted properly.  Please try again.
  3567. NamesAccessLevel
  3568. NamesDeleteAccess
  3569. Insufficient Access
  3570. You do not have sufficient access to perform the requested operation.
  3571. Insufficient Access
  3572. You do not have sufficient access to  perform the requested operation.
  3573. Insufficient Access
  3574. You are not authorized to create requests in the Administration Requests Database.
  3575. Admin. Requests Database Does Not Exist
  3576. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  3577. Action Cancelled
  3578. You have cancelled deleting this person.
  3579.     0RR6R17R26RS5E29S31S32S33S36RS8E39S40S41S42S43S46RS12E62RS15E68RS18E74R83RS46E92RS47E100RS28E102RS20E106RS19E121RS48E130RS49E136S138RS28E140RS19E151RS20E154RS17E157S158S162RS19E177RS48E186RS49E192S194RS29E196RS19E197S199S200S204RS24E214RS38E216RS11E226RS15E227RS10E229RS7E240RS8E242RS2E252RS17E253RS4E254R256R267RJ
  3580.     11S12S13S17S18S
  3581. Copy to Personal Address Book
  3582. (Copy to Personal Address Book)
  3583.     0S0E
  3584.     0S0E
  3585. Recertify Person
  3586. AdminFileName
  3587. admin4.nsf
  3588.     0S0E
  3589. CertLogFileName
  3590. certlog.nsf
  3591. CurrentServer
  3592. AdminPExist
  3593. CurrentServer
  3594. AdminFileName
  3595. AdminPAccess
  3596. CurrentServer
  3597. AdminFileName
  3598. AdminPAccessLevel
  3599. AdminPAccess
  3600. AdminPCreateAccess
  3601. AdminPAccess
  3602. CertLogExist
  3603. CurrentServer
  3604. CertLogFileName
  3605. CertLogAccess
  3606. CurrentServer
  3607. CertLogFileName
  3608. CertLogAccessLevel
  3609. CertLogAccess
  3610. CertLogCreateAccess
  3611. CertLogAccess
  3612. AdminPExist
  3613. CertLogExistV
  3614. AdminPAccessLevel
  3615. AdminPCreateAccess
  3616. CertLogAccessLevel
  3617. CertLogCreateAccess
  3618. AdminPAccessLevel
  3619. AdminPCreateAccess
  3620. Error
  3621. You do not have sufficient rights in the Administration Request database to perform this operation.  Please see your Administrator.
  3622. CertLogAccessLevel
  3623. CertLogCreateAccess
  3624. Error
  3625. You do not have sufficient rights in the Certification Log file to perform this operation.  Please see your Administrator.
  3626. AdminPExist
  3627. Error
  3628. You have received the following error trying to open the Administration Request database: 
  3629. AdminPExist
  3630.   Please correct the error and retry.
  3631. AdminPExist
  3632. Error
  3633. The Administration Request database does not exist on this server.  In order to perform this operation you must have an Administration Request database and you need at least Author access.
  3634. CertLogExistZ
  3635. Error
  3636. You have received the following error trying to open the Certification Log database: 
  3637. CertLogExistV
  3638.   Please correct the error and retry.
  3639. CertLogExistV
  3640. Error
  3641. This action requires a Certification Log file.  This file was not found.  Please see your Administrator.
  3642.     0R8S9S16RS5E20S22S23S24S27S28S30S32S33S34S38RS10E51RS10E57S59S60S61S62S76S78S79S80S81S96RS12E98RS9E107RS44E123RS35E130RS43E139RS36E144RS44E160RS36E166S167RS43E179RS8E
  3643.     0S0E
  3644. Rename Person
  3645. AdminFileName
  3646. admin4.nsf
  3647.     0S0E
  3648. CertLogFileName
  3649. certlog.nsf
  3650. CurrentServer
  3651. AdminPExist
  3652. CurrentServer
  3653. AdminFileName
  3654. AdminPAccess
  3655. CurrentServer
  3656. AdminFileName
  3657. AdminPAccessLevel
  3658. AdminPAccess
  3659. AdminPCreateAccess
  3660. AdminPAccess
  3661. CertLogExist
  3662. CurrentServer
  3663. CertLogFileName
  3664. CertLogAccess
  3665. CurrentServer
  3666. CertLogFileName
  3667. CertLogAccessLevel
  3668. CertLogAccess
  3669. CertLogCreateAccess
  3670. CertLogAccess
  3671. AdminPExist
  3672. CertLogExistV
  3673. AdminPAccessLevel
  3674. AdminPCreateAccess
  3675. CertLogAccessLevel
  3676. CertLogCreateAccess
  3677. AdminPAccessLevel
  3678. AdminPCreateAccess
  3679. Error
  3680. You do not have sufficient rights in the Administration Request database to perform this operation.  Please see your Administrator.
  3681. CertLogAccessLevel
  3682. CertLogCreateAccess
  3683. Error
  3684. You do not have sufficient rights in the Certification Log file to perform this operation.  Please see your Administrator.
  3685. AdminPExist
  3686. Error
  3687. You have received the following error trying to open the Administration Request database: 
  3688. AdminPExist
  3689.   Please correct the error and retry.
  3690. AdminPExist
  3691. Error
  3692. The Administration Request database does not exist on this server.  In order to perform this operation you must have an Administration Request database and you need at least Author access.
  3693. CertLogExistZ
  3694. Error
  3695. You have received the following error trying to open the Certification Log database: 
  3696. CertLogExistV
  3697.   Please correct the error and retry.
  3698. CertLogExistV
  3699. Error
  3700. This action requires a Certification Log file.  This file was not found.  Please see your Administrator.
  3701.     0R8S9S16RS5E20S22S23S24S27S28S30S32S33S34S38RS10E51RS10E57S59S60S61S62S76S78S79S80S81S96RS12E98RS9E107RS44E123RS35E130RS43E139RS36E144RS44E160RS36E166S167RS43E179RS8E
  3702.     0S0E
  3703. Set Password FieldsK
  3704. CheckPasswordSave
  3705. CheckPassword
  3706.     0S0E
  3707. PasswordGracePeriodSave
  3708. PasswordGracePeriod
  3709. PasswordChangeIntervalSave
  3710. PasswordChangeInterval
  3711. CheckPassword
  3712. CheckPassword
  3713.     0R1S
  3714. PasswordGracePeriod
  3715. PasswordGracePeriod
  3716.     0R1S
  3717. PasswordChangeInterval
  3718. PasswordChangeInterval
  3719.     0R1S
  3720. CurrentServer
  3721. AdminDb
  3722. admin4.nsf
  3723. NamesAccess
  3724. NamesAccessLevel
  3725. NamesAccess
  3726. NamesAccessLevel
  3727. NamesAccessLevel
  3728. [UserModifier]G
  3729. Set Password Fields
  3730. You are about to set the password fields for the selected person records.  Do you want to continue?
  3731. (SetPasswordFields)
  3732. CurrentServer
  3733. AdminDb
  3734. CheckPassword
  3735. PasswordGracePeriod
  3736. PasswordGracePeriod
  3737. PasswordGracePeriod
  3738. PasswordChangeInterval
  3739. PasswordChangeInterval[
  3740. PasswordChangeInterval
  3741. Completed Successfully
  3742. The request has been successfully submitted to the Administration Request Database.
  3743. Error
  3744. You have encountered an error.  At least one of the requests was not submitted.  Please try again.
  3745. CheckPassword
  3746. CheckPasswordSave
  3747. PasswordGracePeriod
  3748. PasswordGracePeriodSave
  3749. PasswordChangeInterval
  3750. PasswordChangeIntervalSave
  3751. Action Cancelled
  3752. The action has been cancelled
  3753. CheckPassword
  3754. CheckPasswordSave
  3755. PasswordGracePeriod
  3756. PasswordGracePeriodSave
  3757. PasswordChangeInterval
  3758. PasswordChangeIntervalSave
  3759. Action Cancelled
  3760. The action has been cancelled
  3761. Insufficient Access
  3762. You do not have sufficient access in the address book to complete this action.
  3763.     0RR4S5S7S8S10S11S12S13S21R32RS7E34RS12E47RS21E49RS26E61S65S72S73S78S79S94S95S110RS25E119RS25E127RS32E129RS25E136RS25E143RS25E149RS27E151RS24E162RS21E163RS17E165RS6E167RS19E169RS27E176RS27E183RS27E190RS27E198RS28E199RS21E200R202R213R
  3764.     17S18S26S27S
  3765. Categori_zeK    
  3766. Send Docu_ment
  3767. _Forward
  3768. _Move to Folder...
  3769. _Remove from Folder...
  3770. Write Memo
  3771. Error
  3772. You must use Notes 4.6 or above to use this action.
  3773. (CreateMailMemo)
  3774.     6S7S9S
  3775. Schedule Meeting
  3776. Error
  3777. You must use Notes 4.6 or above to use this action.
  3778. (ScheduleMeeting)
  3779.     6S7S9S
  3780. Visit Web Page
  3781. WebSite
  3782. WebSite
  3783. No Web Page Defined
  3784. This document has no Web page defined.
  3785.     3S7S
  3786. O=Lotus Notes
  3787. O=Lotus Notes
  3788. PURSAFO
  3789. |.:#U
  3790. O=Lotus Notes
  3791. CN=Lotus Notes Template Development/O=Lotus Notes
  3792. PURSAFO
  3793. Fde!f^^
  3794. $TYPE
  3795. $TABLEFORMAT
  3796. $TITLE
  3797. $Index
  3798. $Formula
  3799. $FormulaClass
  3800. $VIEWFORMAT
  3801. $Comment
  3802. $ACTIONS
  3803. Add Group
  3804. CurrentServer
  3805.     0S0E
  3806. CurrentServer
  3807. Group
  3808. [GroupCreator]
  3809. Group
  3810. Not Authorized
  3811. You are not authorized to add Group documents to this database.
  3812.     0R6R10S13R
  3813. Add Mailing List'++LotusScript Development Environment:2:5:(Options):0:66
  3814. '++LotusScript Development Environment:2:5:(Forward):0:1
  3815. Declare Sub Click(Source As Button)
  3816. '++LotusScript Development Environment:2:5:(Declarations):0:2
  3817. '++LotusScript Development Environment:2:2:BindEvents:1:129
  3818. Private Sub BindEvents(Byval Objectname_ As String)
  3819.      Static Source As BUTTON
  3820.      Set Source = Bind(Objectname_)
  3821.      On Event Click From Source Call Click
  3822. End Sub
  3823. '++LotusScript Development Environment:2:2:Click:1:12
  3824. Sub Click(Source As Button)
  3825.      Dim w As New NotesUIWorkspace
  3826.      Dim uidoc As NotesUIDocument
  3827.      Set uidoc=w.ComposeDocument("","","Group")
  3828.      Call uidoc.FieldSetText("GroupType","1")
  3829.      Call uidoc.FieldSetText("GroupTitle","1")
  3830.      
  3831. End Sub
  3832. _Edit GroupK
  3833. Delete Group 
  3834.     0S0E
  3835.     0S0E
  3836. Copy to Personal Address Book
  3837. (Copy to Personal Address Book)
  3838.     0S0E
  3839.     0S0E
  3840. Send Docu_ment
  3841. _Forward
  3842. Categori_zeK
  3843. _Move to Folder...    
  3844. _Remove from Folder...
  3845. Rename GroupH
  3846. AdminFileName
  3847. admin4.nsf
  3848.     0S0E
  3849. CurrentServer
  3850. AdminPExist
  3851. CurrentServer
  3852. AdminFileName
  3853. AdminPAccess
  3854. CurrentServer
  3855. AdminFileName
  3856. AdminPAccessLevel
  3857. AdminPAccess
  3858. AdminPCreateAccess
  3859. AdminPAccess
  3860. NamesAccess
  3861. NamesAccessLevel
  3862. NamesAccess
  3863. NamesDeleteAccess
  3864. NamesAccess
  3865. DeleteVerify
  3866. Verification
  3867. You have requested to rename the selected group.  Do you wish to continue?
  3868. NewGroupName
  3869. Rename Group
  3870. Please enter the new name for the group.  The current group name is: 
  3871. ListName"
  3872.     0R11S12S
  3873. NewGroupName
  3874. NewGroupName*
  3875. Error
  3876. Error: You did not enter a valid group name.  Action has been cancelled.
  3877.     0R6S7S8S9S
  3878. DeleteVerify+
  3879. CurrentServer
  3880. Error
  3881. This action cannot be performed locally.
  3882. AdminPExist
  3883. AdminPAccessLevel
  3884. AdminPCreateAccess
  3885. NamesAccessLevel
  3886. NamesDeleteAccess
  3887. CurrentServer
  3888. AdminFileName
  3889. NewGroupName
  3890. Request Successful
  3891. Your request to rename the selected group has been successfully submitted to the Administration Requests database.
  3892. Error
  3893. You have encountered an error.  At least one request was not submitted properly.  Please try again.
  3894. NamesAccessLevel
  3895. NamesDeleteAccess
  3896. Insufficient Access
  3897. You do not have sufficient access to perform the requested operation.
  3898. Insufficient Access
  3899. You do not have sufficient access to  perform the requested operation.
  3900. Insufficient Access
  3901. You are not authorized to create requests in the Administration Requests database.
  3902. Admin Request Database Does Not Exist
  3903. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  3904. Action Cancelled
  3905. You have cancelled renaming the selected group.
  3906.     0R6R21RS2E30RS5E33S35S36S37S40RS8E43S44S45S46S47S50RS16E64S67RS31E76RS31E82S84RS25E86RS15E87S89S90S94RS14E106RS18E117RS10E119RS7E130RS8E132RS2E143RS4E144R146R154S157R
  3907.     8S9S
  3908. O=Lotus Notes
  3909. O=Lotus Notes
  3910. PURSAFO
  3911. |.:#U
  3912. O=Lotus Notes
  3913. CN=Lotus Notes Template Development/O=Lotus Notes
  3914. PURSAFO
  3915. Fde!f^^
  3916. $TITLE
  3917. $Index
  3918. $Formula
  3919. $FormulaClass
  3920. $VIEWFORMAT
  3921. $Comment
  3922. $ACTIONS
  3923. $SCRIPTOBJ_1
  3924. $ViewGlobalScript_O
  3925. $SUBVIEWDomainName\Domain Name:23_Advanced\Certificates|Server\Certificates,
  3926. CrossCertificate
  3927. CertificateType
  3928. Internet Cross Certificates
  3929. Notes Cross Certificates
  3930. Certifier
  3931. CertificateType
  3932. Internet Certifiers
  3933. Notes Certifiers
  3934. Unknown
  3935.     0S0E
  3936. IssuedBy
  3937. IssuedTo
  3938. $7$3$4$Conflict$REF
  3939. CrossCertificate
  3940. Certifier
  3941. SSLCertificate
  3942.     L1S2S3S4S5S6S7S8S9S1!
  3943. $7$3$4
  3944. CrossCertificate
  3945. CertificateType
  3946. Internet Cross Certificates
  3947. Notes Cross Certificates
  3948. Certifier
  3949. CertificateType
  3950. Internet Certifiers
  3951. Notes Certifiers
  3952. Unknown
  3953.     0S0E
  3954. $3Issued By.
  3955. IssuedBy
  3956. $4Issued To.
  3957. IssuedTo
  3958. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
  3959. $SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15($CompanyList)|CompaniesB
  3960. CompanyName
  3961. Location
  3962. Location"
  3963.     1S2S8S12S
  3964. BusinessAddress
  3965. BusinessAddress
  3966. HomeAddress
  3967.     0S0E
  3968. $16OfficePhoneNumber$17$Conflict$REF
  3969. Company
  3970. Person
  3971.     L1S2S3S1
  3972. $16$17
  3973. $16Companyl
  3974. CompanyName
  3975. Location
  3976. Location"
  3977.     1S2S8S12SOfficePhoneNumberTelephone$17Addressh
  3978. BusinessAddress
  3979. BusinessAddress
  3980. HomeAddress
  3981.     0S0E
  3982. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  3983. Database Scriptt34Q1
  3984. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
  3985. (PersonalAddressBookProfile)PersonalAddressBookProfileCD
  3986. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
  3987. Edit Address Book Profile303
  3988. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  3989. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
  3990. Add Certifier
  3991. CurrentServer
  3992.     0S0E
  3993. CurrentServer
  3994. Certifier
  3995. [NetCreator]
  3996. Certifier
  3997. Not Authorized
  3998. You are not authorized to add Certifier documents to this database.
  3999.     0R6R10S13R
  4000. Categori_zeK
  4001. _Edit CertifierK
  4002. Send Docu_ment
  4003. _Forward
  4004. Delete Certifier 
  4005.     0S0E
  4006. _Move to Folder...
  4007. _Remove from Folder...
  4008. O=Lotus Notes
  4009. O=Lotus Notes
  4010. PURSAFO
  4011. |.:#U
  4012. O=Lotus Notes
  4013. CN=Lotus Notes Template Development/O=Lotus Notes
  4014. PURSAFO
  4015. Fde!f^^
  4016. n[Blbt
  4017. $TYPE
  4018. $TABLEFORMAT
  4019. $TITLE
  4020. $Index
  4021. $Formula
  4022. $FormulaClass
  4023. $VIEWFORMAT
  4024. $Comment
  4025. $ACTIONS
  4026. Add Location$
  4027. CurrentServer
  4028.     0S0E
  4029. CurrentServer
  4030. Location
  4031. [NetCreator]
  4032. Location
  4033. Not Authorized
  4034. You are not authorized to add Location documents to this database.
  4035.     0R6R10S13R
  4036. _Edit Location
  4037. Delete LocationK 
  4038.     0S0E
  4039. Send Docu_ment
  4040. _Forward
  4041. Categori_zeK
  4042. _Move to Folder...
  4043. _Remove from Folder...
  4044. O=Lotus Notes
  4045. O=Lotus Notes
  4046. PURSAFO
  4047. |.:#U
  4048. O=Lotus Notes
  4049. CN=Lotus Notes Template Development/O=Lotus Notes
  4050. PURSAFO
  4051. Fde!f^^
  4052. +l3r?M
  4053. \e_{?8a
  4054. $TITLE
  4055. $Index
  4056. $Formula
  4057. $FormulaClass
  4058. $VIEWFORMAT
  4059. $Comment
  4060. $ACTIONS
  4061. O=Lotus Notes
  4062. O=Lotus Notes
  4063. PURSAFO
  4064. |.:#U
  4065. O=Lotus Notes
  4066. CN=Lotus Notes Template Development/O=Lotus Notes
  4067. PURSAFO
  4068. Fde!f^^
  4069. sZ%!ZM}
  4070. $Flags
  4071. LastName
  4072. FirstName
  4073. LastName
  4074. Firstname
  4075. FirstName
  4076. CompanyName
  4077.     3S5S6S7S8S10R23S41R
  4078. LastName
  4079. FirstName
  4080. LastName
  4081. Firstname
  4082. FirstName
  4083. CompanyName
  4084.     3S5S6S7S8S10R23S41R
  4085. OfficePhoneNumber
  4086. PhoneLabel_1
  4087. PhoneLabel_1
  4088. OfficePhoneNumber
  4089. OfficeFAXPhoneNumber
  4090. PhoneLabel_3
  4091. PhoneLabel_3
  4092. OfficeFAXPhoneNumber"
  4093. CellPhoneNumber
  4094. PhoneLabel_5
  4095. PhoneLabel_5
  4096. CellPhoneNumber
  4097. PhoneNumber
  4098. PhoneLabel_2
  4099. PhoneLabel_2
  4100. PhoneNumber
  4101. HomeFAXPhoneNumber
  4102. PhoneLabel_4
  4103. PhoneLabel_4
  4104. HomeFAXPhoneNumber"
  4105. PhoneNumber_6
  4106. PhoneLabel_6
  4107. PhoneLabel_6
  4108. PhoneNumber_6
  4109.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E
  4110. CompanyName
  4111. CompanyName
  4112. JobTitle
  4113. JobTitle
  4114. BusinessAddress
  4115. OfficeStreetAddress
  4116. OfficeCity
  4117. OfficeCity
  4118. OfficeState
  4119. OfficeState
  4120. OfficeZip
  4121. OfficeCountry
  4122.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E
  4123. Categories$101$102$103$104$Conflict$REF
  4124. Person
  4125.     L1S2S3S
  4126. @Categories$101Name
  4127. LastName
  4128. FirstName
  4129. LastName
  4130. Firstname
  4131. FirstName
  4132. CompanyName
  4133.     3S5S6S7S8S10R23S41R$102Name
  4134. LastName
  4135. FirstName
  4136. LastName
  4137. Firstname
  4138. FirstName
  4139. CompanyName
  4140.     3S5S6S7S8S10R23S41R$103Phone
  4141. OfficePhoneNumber
  4142. PhoneLabel_1
  4143. PhoneLabel_1
  4144. OfficePhoneNumber
  4145. OfficeFAXPhoneNumber
  4146. PhoneLabel_3
  4147. PhoneLabel_3
  4148. OfficeFAXPhoneNumber"
  4149. CellPhoneNumber
  4150. PhoneLabel_5
  4151. PhoneLabel_5
  4152. CellPhoneNumber
  4153. PhoneNumber
  4154. PhoneLabel_2
  4155. PhoneLabel_2
  4156. PhoneNumber
  4157. HomeFAXPhoneNumber
  4158. PhoneLabel_4
  4159. PhoneLabel_4
  4160. HomeFAXPhoneNumber"
  4161. PhoneNumber_6
  4162. PhoneLabel_6
  4163. PhoneLabel_6
  4164. PhoneNumber_6
  4165.     2RS11E5S6S15S16S20S21S25S26RS11E29S39S40S44S45S49S50RS11E53S54S63S68S69S70S73S74RS11E77S78S80S87S92S93S94S95S97S98RS11E101S111S116S117S118S121S122RS11E125S135S136S140S141S142S145RS10E$104Business
  4166. CompanyName
  4167. CompanyName
  4168. JobTitle
  4169. JobTitle
  4170. BusinessAddress
  4171. OfficeStreetAddress
  4172. OfficeCity
  4173. OfficeCity
  4174. OfficeState
  4175. OfficeState
  4176. OfficeZip
  4177. OfficeCountry
  4178.     2RS11E5S6S13RS11E16S17S24RS11E27S28S31S32RS17E35S36S39S40S41S42S43S44S50S51S52S53S54S55S57S62RRS12E&
  4179. Add Card 
  4180. CurrentServer
  4181.     0S0E
  4182. CurrentServer
  4183. Person
  4184. [UserCreator]
  4185. Person
  4186. Not Authorized
  4187. You are not authorized to add Person documents to this database.
  4188.     0R6R10S13R
  4189. _Edit Card
  4190. Delete
  4191. MailVerify
  4192. DeleteNTUserAccount
  4193.     0R1S
  4194. synch
  4195. AdminFileName
  4196. admin4.nsf
  4197. CurrentServer
  4198. AdminPExist
  4199. CurrentServer
  4200. AdminFileName
  4201. AdminPAccess
  4202. CurrentServer
  4203. AdminFileName
  4204. AdminPAccessLevel
  4205. AdminPAccess
  4206. AdminPCreateAccess
  4207. AdminPAccess
  4208. NamesAccess
  4209. NamesAccessLevel
  4210. NamesAccess
  4211. NamesDeleteAccess
  4212. NamesAccess
  4213. PersonLastName
  4214. LastName
  4215. PersonFirstName
  4216. FirstName
  4217. DeleteVerify
  4218. Verification
  4219. You have requested to delete the selected person records.  Do you wish to continue?
  4220. Action Cancelled
  4221. You have cancelled deleting the person record(s).
  4222. DeleteVerify+
  4223. CurrentServer
  4224. (DeleteUserOptions)
  4225. AdminPExist
  4226. AdminPAccessLevel
  4227. AdminPCreateAccess
  4228. NamesAccessLevel
  4229. NamesDeleteAccess
  4230. synch
  4231. Immediate or via Administration Process?
  4232. 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...)
  4233. synch
  4234. CurrentServer
  4235. AdminFileName
  4236. MailVerify
  4237. DeleteNTUserAccount
  4238. Completed Successfully
  4239. The people(s) name have been removed completely from this Address Book
  4240. Error
  4241. You have encountered an error.  The people(s) name have not been removed completely.  Please try again.
  4242. synch
  4243. CurrentServer
  4244. AdminFileName
  4245. MailVerify
  4246. DeleteNTUserAccount
  4247. Request Successful
  4248. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  4249. Error
  4250. You have encountered an error.  The request was not submitted properly.  Please try again.
  4251. DeleteNTUserAccount
  4252. Action Cancelled
  4253. Action has been cancelled.
  4254. NamesAccessLevel
  4255. NamesDeleteAccess
  4256. CurrentServer
  4257. AdminFileName
  4258. MailVerify
  4259. DeleteNTUserAccount
  4260. Request Successful
  4261. Your request to delete the people(s) name have been successfully submitted to the Administration Requests database.
  4262. Error
  4263. You have encountered an error.  The request was not submitted properly.  Please try again.
  4264. NamesAccessLevel
  4265. NamesDeleteAccess
  4266. DeleteNTUserAccount
  4267. Insufficient Access
  4268. You do not have sufficient access to perform the requested operation.
  4269. DeleteNTUserAccount
  4270. Insufficient Access
  4271. You do not have sufficient access to  perform the requested operation.
  4272. DeleteNTUserAccount
  4273. Insufficient Access
  4274. You are not authorized to create requests in the Administration Requests Database.
  4275. DeleteNTUserAccount
  4276. Admin. Requests Database Does Not Exist
  4277. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  4278.     0RR6RS2E17RS6E32RS9E41RS12E44S46S47S48S51RS15E54S55S56S57S58S61RS12E77RS15E83RS18E95S102RS46E111RS47E119RS28E121RS20E125RS19E146RS48E155RS49E161S163RS28E166RS19E187RS20E190RS17E193S194S198RS15E216S219RS48E228RS49E234S236RS29E239RS19E240S242S243S247RS24E267RS38E269RS11E289RS15E290RS10E292RS7E313RS8E315RS2E335RS17E336RS4E337R338RR340R344R
  4279.     11S12S13S17S18S
  4280. Delete
  4281. synch
  4282.     0S0E
  4283. AdminFileName
  4284. admin4.nsf
  4285. CurrentServer
  4286. AdminPExist
  4287. CurrentServer
  4288. AdminFileName
  4289. AdminPAccess
  4290. CurrentServer
  4291. AdminFileName
  4292. AdminPAccessLevel
  4293. AdminPAccess
  4294. AdminPCreateAccess
  4295. AdminPAccess
  4296. NamesAccess
  4297. NamesAccessLevel
  4298. NamesAccess
  4299. NamesDeleteAccess
  4300. NamesAccess
  4301. DeleteVerify
  4302. Verification
  4303. You have requested to delete the person record for 
  4304. FullName
  4305. .  Do you wish to continue?
  4306.     0R9S10S21S22S
  4307. DeleteVerify+
  4308. CurrentServer
  4309. AdminPExist
  4310. AdminPAccessLevel
  4311. AdminPCreateAccess
  4312. NamesAccessLevel
  4313. NamesDeleteAccess
  4314. synch
  4315. Immediate or via Administration Process?
  4316. By selecting 'Yes' the action you have requested will take place immediately, and affect all references to this Person in this Address Book.  (NOTE:  This may take awhile...)
  4317. synch
  4318. CurrentServer
  4319. AdminFileName
  4320. Completed Successfully
  4321. The user's name has been removed completely from this Address Book
  4322. Error
  4323. You have encountered an error.  The user's name has not been removed completely.  Please try again.
  4324. synch
  4325. CurrentServer
  4326. AdminFileName
  4327. Request Successful
  4328. Your request to delete this username has been successfully submitted to the Administration Requests database.
  4329. Error
  4330. You have encountered an error.  The request was not submitted properly.  Please try again.
  4331. Action Cancelled
  4332. Action has been cancelled.
  4333. NamesAccessLevel
  4334. NamesDeleteAccess
  4335. CurrentServer
  4336. AdminFileName
  4337. Request Successful
  4338. Your request to delete this username has been successfully submitted to the Administration Requests database.
  4339. Error
  4340. You have encountered an error.  The request was not submitted properly.  Please try again.
  4341. NamesAccessLevel
  4342. NamesDeleteAccess
  4343. Insufficient Access
  4344. You do not have sufficient access to perform the requested operation.
  4345. Insufficient Access
  4346. You do not have sufficient access to  perform the requested operation.
  4347. Insufficient Access
  4348. You are not authorized to create requests in the Administration Requests Database.
  4349. Admin. Requests Database Does Not Exist
  4350. The Administration Requests database cannot be found on the current server.  Please contact your server administrator.
  4351. Action Cancelled
  4352. You have cancelled deleting this person.
  4353.     0RR6R17R26RS5E29S31S32S33S36RS8E39S40S41S42S43S46RS12E62RS15E68RS18E74R83RS46E92RS47E100RS28E102RS20E106RS19E121RS48E130RS49E136S138RS28E140RS19E151RS20E154RS17E157S158S162RS19E177RS48E186RS49E192S194RS29E196RS19E197S199S200S204RS24E214RS38E216RS11E226RS15E227RS10E229RS7E240RS8E242RS2E252RS17E253RS4E254R256R267RJ
  4354.     11S12S13S17S18S
  4355. Copy to Personal Address Book
  4356. (Copy to Personal Address Book)
  4357.     0S0E
  4358.     0S0E
  4359. Recertify Person
  4360. AdminFileName
  4361. admin4.nsf
  4362.     0S0E
  4363. CertLogFileName
  4364. certlog.nsf
  4365. CurrentServer
  4366. AdminPExist
  4367. CurrentServer
  4368. AdminFileName
  4369. AdminPAccess
  4370. CurrentServer
  4371. AdminFileName
  4372. AdminPAccessLevel
  4373. AdminPAccess
  4374. AdminPCreateAccess
  4375. AdminPAccess
  4376. CertLogExist
  4377. CurrentServer
  4378. CertLogFileName
  4379. CertLogAccess
  4380. CurrentServer
  4381. CertLogFileName
  4382. CertLogAccessLevel
  4383. CertLogAccess
  4384. CertLogCreateAccess
  4385. CertLogAccess
  4386. AdminPExist
  4387. CertLogExistV
  4388. AdminPAccessLevel
  4389. AdminPCreateAccess
  4390. CertLogAccessLevel
  4391. CertLogCreateAccess
  4392. AdminPAccessLevel
  4393. AdminPCreateAccess
  4394. Error
  4395. You do not have sufficient rights in the Administration Request database to perform this operation.  Please see your Administrator.
  4396. CertLogAccessLevel
  4397. CertLogCreateAccess
  4398. Error
  4399. You do not have sufficient rights in the Certification Log file to perform this operation.  Please see your Administrator.
  4400. AdminPExist
  4401. Error
  4402. You have received the following error trying to open the Administration Request database: 
  4403. AdminPExist
  4404.   Please correct the error and retry.
  4405. AdminPExist
  4406. Error
  4407. The Administration Request database does not exist on this server.  In order to perform this operation you must have an Administration Request database and you need at least Author access.
  4408. CertLogExistZ
  4409. Error
  4410. You have received the following error trying to open the Certification Log database: 
  4411. CertLogExistV
  4412.   Please correct the error and retry.
  4413. CertLogExistV
  4414. Error
  4415. This action requires a Certification Log file.  This file was not found.  Please see your Administrator.
  4416.     0R8S9S16RS5E20S22S23S24S27S28S30S32S33S34S38RS10E51RS10E57S59S60S61S62S76S78S79S80S81S96RS12E98RS9E107RS44E123RS35E130RS43E139RS36E144RS44E160RS36E166S167RS43E179RS8E
  4417.     0S0E
  4418. Rename Person
  4419. AdminFileName
  4420. admin4.nsf
  4421.     0S0E
  4422. CertLogFileName
  4423. certlog.nsf
  4424. CurrentServer
  4425. AdminPExist
  4426. CurrentServer
  4427. AdminFileName
  4428. AdminPAccess
  4429. CurrentServer
  4430. AdminFileName
  4431. AdminPAccessLevel
  4432. AdminPAccess
  4433. AdminPCreateAccess
  4434. AdminPAccess
  4435. CertLogExist
  4436. CurrentServer
  4437. CertLogFileName
  4438. CertLogAccess
  4439. CurrentServer
  4440. CertLogFileName
  4441. CertLogAccessLevel
  4442. CertLogAccess
  4443. CertLogCreateAccess
  4444. CertLogAccess
  4445. AdminPExist
  4446. CertLogExistV
  4447. AdminPAccessLevel
  4448. AdminPCreateAccess
  4449. CertLogAccessLevel
  4450. CertLogCreateAccess
  4451. AdminPAccessLevel
  4452. AdminPCreateAccess
  4453. Error
  4454. You do not have sufficient rights in the Administration Request database to perform this operation.  Please see your Administrator.
  4455. CertLogAccessLevel
  4456. CertLogCreateAccess
  4457. Error
  4458. You do not have sufficient rights in the Certification Log file to perform this operation.  Please see your Administrator.
  4459. AdminPExist
  4460. Error
  4461. You have received the following error trying to open the Administration Request database: 
  4462. AdminPExist
  4463.   Please correct the error and retry.
  4464. AdminPExist
  4465. Error
  4466. The Administration Request database does not exist on this server.  In order to perform this operation you must have an Administration Request database and you need at least Author access.
  4467. CertLogExistZ
  4468. Error
  4469. You have received the following error trying to open the Certification Log database: 
  4470. CertLogExistV
  4471.   Please correct the error and retry.
  4472. CertLogExistV
  4473. Error
  4474. This action requires a Certification Log file.  This file was not found.  Please see your Administrator.
  4475.     0R8S9S16RS5E20S22S23S24S27S28S30S32S33S34S38RS10E51RS10E57S59S60S61S62S76S78S79S80S81S96RS12E98RS9E107RS44E123RS35E130RS43E139RS36E144RS44E160RS36E166S167RS43E179RS8E
  4476.     0S0E
  4477. Set Password Fields
  4478. CheckPasswordSave
  4479. CheckPassword
  4480.     0S0E
  4481. PasswordGracePeriodSave
  4482. PasswordGracePeriod
  4483. PasswordChangeIntervalSave
  4484. PasswordChangeInterval
  4485. CheckPassword
  4486. CheckPassword
  4487.     0R1S
  4488. PasswordGracePeriod
  4489. PasswordGracePeriod
  4490.     0R1S
  4491. PasswordChangeInterval
  4492. PasswordChangeInterval
  4493.     0R1S
  4494. CurrentServer
  4495. AdminDb
  4496. admin4.nsf
  4497. NamesAccess
  4498. NamesAccessLevel
  4499. NamesAccess
  4500. NamesAccessLevel
  4501. NamesAccessLevel
  4502. [UserModifier]G
  4503. Set Password Fields
  4504. You are about to set the password fields for the selected person records.  Do you want to continue?
  4505. (SetPasswordFields)
  4506. CurrentServer
  4507. AdminDb
  4508. CheckPassword
  4509. PasswordGracePeriod
  4510. PasswordGracePeriod
  4511. PasswordGracePeriod
  4512. PasswordChangeInterval
  4513. PasswordChangeInterval[
  4514. PasswordChangeInterval
  4515. Completed Successfully
  4516. The request has been successfully submitted to the Administration Request Database.
  4517. Error
  4518. You have encountered an error.  At least one of the requests was not submitted.  Please try again.
  4519. CheckPassword
  4520. CheckPasswordSave
  4521. PasswordGracePeriod
  4522. PasswordGracePeriodSave
  4523. PasswordChangeInterval
  4524. PasswordChangeIntervalSave
  4525. Action Cancelled
  4526. The action has been cancelled
  4527. CheckPassword
  4528. CheckPasswordSave
  4529. PasswordGracePeriod
  4530. PasswordGracePeriodSave
  4531. PasswordChangeInterval
  4532. PasswordChangeIntervalSave
  4533. Action Cancelled
  4534. The action has been cancelled
  4535. Insufficient Access
  4536. You do not have sufficient access in the address book to complete this action.
  4537.     0RR4S5S7S8S10S11S12S13S21R32RS7E34RS12E47RS21E49RS26E61S65S72S73S78S79S94S95S110RS25E119RS25E127RS32E129RS25E136RS25E143RS25E149RS27E151RS24E162RS21E163RS17E165RS6E167RS19E169RS27E176RS27E183RS27E190RS27E198RS28E199RS21E200R202R213R
  4538.     17S18S26S27S
  4539. Categori_ze
  4540. Send Docu_ment
  4541. _Forward
  4542. _Move to Folder...
  4543. _Remove from Folder...
  4544. Write Memo
  4545. Error
  4546. You must use Notes 4.6 or above to use this action.
  4547. (CreateMailMemo)
  4548.     6S7S9S
  4549. Schedule Meeting
  4550. Error
  4551. You must use Notes 4.6 or above to use this action.
  4552. (ScheduleMeeting)
  4553.     6S7S9S
  4554. Visit Web Page
  4555. WebSite
  4556. WebSite
  4557. No Web Page Defined
  4558. This document has no Web page defined.
  4559.     3S7S
  4560. O=Lotus Notes
  4561. O=Lotus Notes
  4562. PURSAFO
  4563. |.:#U
  4564. O=Lotus Notes
  4565. CN=Lotus Notes Template Development/O=Lotus Notes
  4566. PURSAFO
  4567. Fde!f^^
  4568. `""]s!
  4569. $TITLE
  4570. $Index
  4571. $Formula
  4572. $FormulaClass
  4573. $VIEWFORMAT
  4574. $Comment
  4575. $ACTIONS
  4576. Add CompanyK,
  4577. Company
  4578.     0S0E
  4579. _Edit Company
  4580. Delete Company 
  4581.     0S0E
  4582. Categori_zeK
  4583. Send Docu_ment
  4584. _Forward
  4585. _Move to Folder...
  4586. _Remove from Folder...
  4587. O=Lotus Notes
  4588. O=Lotus Notes
  4589. PURSAFO
  4590. |.:#U
  4591. O=Lotus Notes
  4592. CN=Lotus Notes Template Development/O=Lotus Notes
  4593. PURSAFO
  4594. Fde!f^^
  4595. X), -?    
  4596. $TYPE
  4597. $TABLEFORMAT
  4598. $TITLE
  4599. $Index
  4600. $Formula
  4601. $FormulaClass
  4602. $VIEWFORMAT
  4603. $Comment
  4604. $ACTIONS
  4605. '++LotusScript Development Environment:2:5:(Options):0:66
  4606. '++LotusScript Development Environment:2:5:(Forward):0:1
  4607. Declare Sub Postopen(Source As Notesuidatabase)
  4608. Declare Sub CreateDefaultPersonalAddressBookProfile
  4609. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4610. Dim ws As NotesUIWorkspace
  4611. Dim uidoc As NotesUIDocument
  4612. Dim session As NotesSession
  4613. Dim db As NotesDatabase
  4614. Dim note As NotesDocument
  4615. Dim profile As NotesDocument
  4616. '++LotusScript Development Environment:2:2:BindEvents:1:129
  4617. Private Sub BindEvents(Byval Objectname_ As String)
  4618.      Static Source As NOTESUIDATABASE
  4619.      Set Source = Bind(Objectname_)
  4620.      On Event Postopen From Source Call Postopen
  4621. End Sub
  4622. '++LotusScript Development Environment:2:2:Postopen:1:12
  4623. Sub Postopen(Source As Notesuidatabase)
  4624.      Set session = New NotesSession
  4625.      Set db = session.CurrentDatabase   
  4626.      Set ws = New NotesUIWorkspace
  4627.      
  4628.      Set profile=db.GetProfileDocument("PersonalAddressBookProfile") 
  4629.      If profile.Owner(0)="" Then
  4630.           Call CreateDefaultPersonalAddressBookProfile
  4631.      End If
  4632.      
  4633.      
  4634. End Sub
  4635. '++LotusScript Development Environment:2:2:CreateDefaultPersonalAddressBookProfile:1:8
  4636. Sub CreateDefaultPersonalAddressBookProfile
  4637.      
  4638.      
  4639. 'the global variable "profile" is a profile document already
  4640. 'we need to add the fields to it
  4641.      profile.Form = "PersonalAddressBookProfile"
  4642.      Call profile.ComputeWithForm(False, False)
  4643.      
  4644.      Call profile.Save(True,True,True)
  4645.      Set uidoc=ws.EditProfile("PersonalAddressBookProfile")  
  4646.      
  4647. End Sub
  4648. O=Lotus Notes
  4649. O=Lotus Notes
  4650. PURSAFO
  4651. |.:#U
  4652. O=Lotus Notes
  4653. CN=Lotus Notes Template Development/O=Lotus Notes
  4654. PURSAFO
  4655. Fde!f^^
  4656. $DBScript
  4657. $DBScript_O
  4658. $TITLE
  4659. $Flags
  4660. $PublicAccess
  4661.  PersonalAddressBookProfile
  4662. Personal Address Book Profile
  4663.     Address Book owner: 
  4664. Owner
  4665.     Name entry:
  4666. ParseFlag
  4667. One field|1Separate fields|0
  4668. ParseFlag
  4669.     0S0E
  4670. You type the name into separate first, middle and last name fields on the Business card form.
  4671. ParseFlag
  4672. You type the name into one field - Notes automatically separates the first, middle and last names for you.
  4673. Save and Close<
  4674.     0S0E
  4675. Categori_zeK
  4676. _Edit Document
  4677. Send Docu_ment
  4678. _Forward
  4679. _Move To Folder...
  4680. _Remove From FolderK
  4681. O=Lotus Notes
  4682. O=Lotus Notes
  4683. PURSAFO
  4684. |.:#U
  4685. O=Lotus Notes
  4686. CN=Lotus Notes Template Development/O=Lotus Notes
  4687. PURSAFO
  4688. Fde!f^^
  4689. ^+QM/G
  4690. $TITLE
  4691. $INFO
  4692. $$Script_O
  4693. $$ScriptName
  4694. $BODY
  4695. $ACTIONS
  4696. Started running agent 'Edit Address Book Profile' on 08/01/97 08:53:35 AM
  4697. 0 document(s) were modified by formula
  4698. Done running agent 'Edit Address Book Profile' on 08/01/97 08:53:36 AM
  4699. PersonalAddressBookProfile
  4700. O=Lotus Notes
  4701. O=Lotus Notes
  4702. PURSAFO
  4703. |.:#U
  4704. O=Lotus Notes
  4705. CN=Lotus Notes Template Development/O=Lotus Notes
  4706. PURSAFO
  4707. Fde!f^^
  4708. `pIu@
  4709. $TITLE
  4710. $Formula
  4711. $TYPE
  4712. $Operation
  4713. $Scan
  4714. ($Connections)/O
  4715. SourceSourceDomainDestinationDestinationDomainPortNameEnabledPhoneNumberIntervalScheduleWeekDaysMailThresholdTasksRepPriorityCostLinkInfoLinkScriptInfoRLANTagRLAN1RLAN2RLAN3RLAN4PassthruServerRepTypeFileNamesConnectionLocationConnectionTypeTimeLimitRemoteLanServiceConnectionRecordFirstCountry$Conflict$REF
  4716. Connection
  4717.     L1S2S3S1_
  4718. SourceSourceDomainDestinationDestinationDomainPortName
  4719. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
  4720. $SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15($People)
  4721. Lastname
  4722. $3FullName$Conflict$REF
  4723. Person
  4724.     1S2S3S4S5S6S
  4725. $3FullName
  4726. Lastname
  4727. FullNameFull Name&
  4728. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
  4729. ($Groups)
  4730. ListName
  4731.     0S0E
  4732. $8ListName$Conflict$REF
  4733. Group
  4734. GroupType
  4735. GroupType
  4736.     L1S2S3S4S5S12S13S1
  4737. $8ListName
  4738. $8ListName0
  4739. ListName
  4740.     0S0E
  4741. ListNameListName&
  4742. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
  4743. $SUBVIEWDomainName\Domain Name:23($CrossCertByName)/ON
  4744. NameCombo$Conflict$REF
  4745. CrossCertificate
  4746. NameCombo
  4747.  NameComboName Combination&
  4748. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  4749. $SUBVIEWDomainName\Domain Name:23($CrossCertByRoot)/O
  4750. OrgComboIssuedByIssuedTo$0CertificateType$Conflict$REF
  4751. CrossCertificate
  4752. OrgComboIssuedByIssuedTo
  4753. OrgComboOrg. CombinationIssuedByIssued ByIssuedToIssued To$0NoteID
  4754. CertificateTypeCertificateType&
  4755. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  4756. ##########################################################
  4757. ##########################################################
  4758. SourceSourceSourceDomainSourceDomainDestinationDestinationDestinationDomainDestinationDomainPortNamePortNameEnabledEnabledPhoneNumberPhoneNumberIntervalIntervalScheduleScheduleWeekDaysWeekDaysMailThresholdMail ThresholdTasksTasksRepPriorityRepPriorityCostCostLinkInfoLink InfoLinkScriptInfoLink Script InfoRLANTagRLANTagRLAN1RLAN1RLAN2RLAN2RLAN3RLAN3RLAN4RLAN4PassthruServerPassthruServerRepTypeRepTypeFileNamesFileNamesConnectionLocationConnectionLocationConnectionTypeConnectionTypeTimeLimitTimeLimitRemoteLanServiceRemoteLanServiceConnectionRecordFirstConnectionRecordFirstCountryCountry&
  4759. Categori_zeK
  4760. _Edit Document
  4761. Send Docu_ment
  4762. _Forward
  4763. _Move to Folder...
  4764. _Remove from Folder...
  4765. O=Lotus Notes
  4766. O=Lotus Notes
  4767. PURSAFO
  4768. |.:#U
  4769. O=Lotus Notes
  4770. CN=Lotus Notes Template Development/O=Lotus Notes
  4771. PURSAFO
  4772. Fde!f^^
  4773. $TITLE
  4774. $Index
  4775. $Formula
  4776. $FormulaClass
  4777. $VIEWFORMAT
  4778. $Comment
  4779. $ACTIONS
  4780. Categori_ze
  4781. _Edit Document
  4782. Send Docu_ment
  4783. _Forward
  4784. O=Lotus Notes
  4785. O=Lotus Notes
  4786. PURSAFO
  4787. |.:#U
  4788. O=Lotus Notes
  4789. CN=Lotus Notes Template Development/O=Lotus Notes
  4790. PURSAFO
  4791. Fde!f^^
  4792. $TYPE
  4793. $TABLEFORMAT
  4794. $Comment
  4795. $ACTIONS
  4796. $TITLE
  4797. $Index
  4798. $Formula
  4799. $FormulaClass
  4800. $VIEWFORMAT
  4801. Categori_zeK
  4802. _Edit Document
  4803. Send Docu_ment
  4804. _Forward
  4805. _Move To Folder...
  4806. _Remove From FolderK
  4807. O=Lotus Notes
  4808. O=Lotus Notes
  4809. PURSAFO
  4810. |.:#U
  4811. O=Lotus Notes
  4812. CN=Lotus Notes Template Development/O=Lotus Notes
  4813. PURSAFO
  4814. Fde!f^^
  4815. $TITLE
  4816. $Index
  4817. $Formula
  4818. $FormulaClass
  4819. $VIEWFORMAT
  4820. $Comment
  4821. $ACTIONS
  4822. O=Lotus Notes
  4823. O=Lotus Notes
  4824. PURSAFO
  4825. |.:#U
  4826. O=Lotus Notes
  4827. CN=Lotus Notes Template Development/O=Lotus Notes
  4828. PURSAFO
  4829. Fde!f^^
  4830. $TYPE
  4831. $TABLEFORMAT
  4832. $TITLE
  4833. $Index
  4834. $Formula
  4835. $FormulaClass
  4836. $VIEWFORMAT
  4837. $Comment
  4838. O=Lotus Notes
  4839. O=Lotus Notes
  4840. PURSAFO
  4841. |.:#U
  4842. O=Lotus Notes
  4843. CN=Lotus Notes Template Development/O=Lotus Notes
  4844. PURSAFO
  4845. Fde!f^^
  4846. wif*d
  4847. $TYPE
  4848. $TABLEFORMAT
  4849. $TITLE
  4850. $Index
  4851. $Formula
  4852. $FormulaClass
  4853. $VIEWFORMAT
  4854. $Comment
  4855. $SUBVIEWDomainName\Domain Name:23($Certifiers)/OX
  4856. IssuedToCertificateType$Conflict$REF
  4857. Certifier
  4858. IssuedTo
  4859. IssuedToIssued ToCertificateTypeCertificateType&
  4860. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  4861. ($PeopleGroupsHier)1
  4862. $8$11
  4863. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
  4864. ($NamesFieldLookup)/OT
  4865. FullName
  4866.     1S2S6S
  4867.     0R1S2S
  4868. CommonName
  4869.     0R1S2S5S6S8S10S
  4870. ListNameh
  4871. ListName
  4872. ServerNameh
  4873. ServerName
  4874. FullName
  4875. CommonName
  4876. ShortName
  4877. Lastname
  4878. FirstName
  4879. MiddleInitial
  4880.     0R11S18S36S37S38S39S40S41S43S44S45S46S47S48S49S50S
  4881. ListNameh
  4882. ListName
  4883. ServerNameh
  4884. ServerName
  4885. FullName
  4886.     7S16S
  4887. $9$5FullName$Conflict$REF
  4888. Person
  4889. LoginUser
  4890. Certifier
  4891. Database
  4892. Group
  4893. Server
  4894.     L1S3S4S5S6S7S8S9S10S11S12S14S1
  4895. $9Name*
  4896. FullName
  4897.     1S2S6S
  4898.     0R1S2S
  4899. CommonName
  4900.     0R1S2S5S6S8S10S
  4901. ListNameh
  4902. ListName
  4903. ServerNameh
  4904. ServerName
  4905. FullName
  4906. CommonName
  4907. ShortName
  4908. Lastname
  4909. FirstName
  4910. MiddleInitial
  4911.     0R11S18S36S37S38S39S40S41S43S44S45S46S47S48S49S50S
  4912. $5ListName & FullNamev
  4913. ListNameh
  4914. ListName
  4915. ServerNameh
  4916. ServerName
  4917. FullName
  4918.     7S16SFullNameFullName&
  4919. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################################
  4920. GroupDistribution ListAccess GroupAccess ListGroup[GroupCreator]
  4921. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  4922. CrossCertificateCrossCertificateC
  4923. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
  4924. O=Lotus Notes
  4925. O=Lotus Notes
  4926. PURSAFO
  4927. |.:#U
  4928. O=Lotus Notes
  4929. CN=Lotus Notes Template Development/O=Lotus Notes
  4930. PURSAFO
  4931. Fde!f^^
  4932. {S<`Ta
  4933. $TYPE
  4934. $TABLEFORMAT
  4935. $TITLE
  4936. $Index
  4937. $Formula
  4938. $FormulaClass
  4939. $VIEWFORMAT
  4940. $Comment
  4941. NameTo
  4942. Person
  4943. Database
  4944. FullName
  4945. ListName
  4946.     1S2S5S6S7S8S10S12S
  4947. NameTo
  4948. NameTo
  4949. (Not Hierarchical)
  4950.     0R8S11S14S18S22S26S
  4951. Person
  4952. Database
  4953. DisplayPersonName
  4954. Person
  4955. LastName
  4956. FirstName
  4957. MiddleInitial
  4958.     1S2S5S6S8S16S18S19S23S27S30S31S32S34S
  4959. DisplayName
  4960. Group
  4961. ListName
  4962. DisplayPersonName
  4963. FullName
  4964. DisplayPersonName
  4965.     0R1S2S5S6S8S12S15S18S19S21S25S28S
  4966. DisplayName
  4967.     0R4S
  4968. Person
  4969. MailAddress
  4970. MailAddress
  4971. MailDomain
  4972. MailDomain"
  4973. FullName
  4974. FullName
  4975. MailDomain
  4976. MailDomain"
  4977. FirstName
  4978. FirstName
  4979. LastName"
  4980. MailDomain
  4981. MailDomain"
  4982. LastName
  4983. MailDomain
  4984. MailDomain"
  4985. Database
  4986. FullName
  4987. MailDomain
  4988. MailDomain"
  4989. Group
  4990. GroupType
  4991. GroupType
  4992. ListName
  4993.     3S4S5S6S13S14S21S22S33S34S36S40S42S43S46S47S49S50S51S53S65S66S73S74S80S81S88S89S96S97S98S100S104S106S107S111S112S114S115S116S118S122S123S124S125S126S133S139S
  4994. Group
  4995. ListName
  4996. FullName
  4997.     3S4S6S13S17S
  4998. Certificate
  4999. PublicKey
  5000. Certificate
  5001. PublicKey
  5002. Server
  5003. Certificate
  5004.     7S8S34S35S
  5005. $8$6$11$13$24Type$12$Conflict$REF
  5006. Person
  5007. Group
  5008. Database
  5009.     1S3S4S5S6S7S8S9S10S11S12S14S15S
  5010. NameTo
  5011. Person
  5012. Database
  5013. FullName
  5014. ListName
  5015.     1S2S5S6S7S8S10S12S
  5016. NameTo
  5017. NameTo
  5018. (Not Hierarchical)
  5019.     0R8S11S14S18S22S26S$6V
  5020. Person
  5021. Database
  5022. DisplayPersonName
  5023. Person
  5024. LastName
  5025. FirstName
  5026. MiddleInitial
  5027.     1S2S5S6S8S16S18S19S23S27S30S31S32S34S
  5028. DisplayName
  5029. Group
  5030. ListName
  5031. DisplayPersonName
  5032. FullName
  5033. DisplayPersonName
  5034.     0R1S2S5S6S8S12S15S18S19S21S25S28S
  5035. DisplayName
  5036.     0R4S
  5037. $13Address
  5038. Person
  5039. MailAddress
  5040. MailAddress
  5041. MailDomain
  5042. MailDomain"
  5043. FullName
  5044. FullName
  5045. MailDomain
  5046. MailDomain"
  5047. FirstName
  5048. FirstName
  5049. LastName"
  5050. MailDomain
  5051. MailDomain"
  5052. LastName
  5053. MailDomain
  5054. MailDomain"
  5055. Database
  5056. FullName
  5057. MailDomain
  5058. MailDomain"
  5059. Group
  5060. GroupType
  5061. GroupType
  5062. ListName
  5063.     3S4S5S6S13S14S21S22S33S34S36S40S42S43S46S47S49S50S51S53S65S66S73S74S80S81S88S89S96S97S98S100S104S106S107S111S112S114S115S116S118S122S123S124S125S126S133S139S$24Namev
  5064. Group
  5065. ListName
  5066. FullName
  5067.     3S4S6S13S17S
  5068. TypeType$12Public Key
  5069. Certificate
  5070. PublicKey
  5071. Certificate
  5072. PublicKey
  5073. Server
  5074. Certificate
  5075.     7S8S34S35S
  5076. Categori_zeK
  5077. _Edit Document
  5078. Send Docu_ment
  5079. _Forward
  5080. _Move To Folder...
  5081. _Remove From FolderK
  5082. O=Lotus Notes
  5083. O=Lotus Notes
  5084. PURSAFO
  5085. |.:#U
  5086. O=Lotus Notes
  5087. CN=Lotus Notes Template Development/O=Lotus Notes
  5088. PURSAFO
  5089. Fde!f^^
  5090. $TITLE
  5091. $Index
  5092. $Formula
  5093. $FormulaClass
  5094. $VIEWFORMAT
  5095. $Comment
  5096. $ACTIONS
  5097. Categori_zeK
  5098. _Edit Document
  5099. Send Docu_ment
  5100. _Forward
  5101. _Move to Folder...
  5102. _Remove from FolderK
  5103. O=Lotus Notes
  5104. O=Lotus Notes
  5105. PURSAFO
  5106. |.:#U
  5107. O=Lotus Notes
  5108. CN=Lotus Notes Template Development/O=Lotus Notes
  5109. PURSAFO
  5110. Fde!f^^
  5111. av]YN%
  5112. $TITLE
  5113. $Index
  5114. $Formula
  5115. $FormulaClass
  5116. $VIEWFORMAT
  5117. $Comment
  5118. $ACTIONS
  5119. New Group
  5120. ListNameJ
  5121. &Arial
  5122.  Group
  5123. Field Label
  5124. Rob Slapikoff-Rob
  5125.     0S0E
  5126. GroupTitle
  5127. GroupType
  5128. GroupType
  5129. GroupType
  5130. GroupType
  5131. GroupTitle
  5132. GROUP|0MAILING LIST|1ACCESS LIST|2DENY ACCESS LIST|3
  5133. ListName
  5134. ListName
  5135.     0S0E
  5136. DisplayName
  5137.     0S0E
  5138. GROUP
  5139.     0S0E
  5140.     Basics:
  5141. Group name (multiple names can be separated by commas).
  5142.     Group name:
  5143. ListName^
  5144.     0S0E
  5145. ListName
  5146. You must specify a group name
  5147. ListName
  5148. Invalid characters in Group name.  Names cannot contain '@' or '\'{
  5149.     3S4S6S11SListNameGroup name (multiple names can be separated by commas).
  5150. 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.
  5151.     Group type:
  5152. GroupTypeChoose the appropriate type for this group.  
  5153. Multi-purpose|0Access Control List only|2Mail only|1Deny List only|3
  5154. Description or purpose of the group.
  5155.     Description:
  5156. ListDescriptionDescription or purpose of the group.
  5157. Distinquished names of people and groups who are members of the group.
  5158.     Members:
  5159. size=50
  5160. Members
  5161.     0S0E
  5162. MembersDistinquished names of people and groups who are members of the group.
  5163. Administration
  5164. Distinguished names of people allowed to modify the group.
  5165.     Owners:
  5166. ListOwnerDistinguished names of people allowed to modify the group.
  5167. Enter the names or group names which you want to give edit capabilities to for this group record.
  5168.     Administrators:
  5169. LocalAdmin
  5170. Type of client program license.
  5171.     Foreign directory sync allowed:
  5172. AvailableForDirSyncPerson entry is allowed to be sent to foreign directories, e.g. via directory synchronization gateways.
  5173. Yes|1No|0
  5174. Group
  5175. DocumentAccess
  5176. /Groups?OpenView]
  5177.     0S0E
  5178. $$Return
  5179. Categori_zeK
  5180. Save and Close>
  5181.     0S0E
  5182.     0S0E
  5183. Edit Group 
  5184.     0S0E
  5185. Delete Group
  5186. AdminFileName
  5187. admin4.nsf
  5188.     0S0E
  5189. CurrentServer
  5190. CurrentServer
  5191. AdminFileName
  5192. _Edit GroupK
  5193. Refresh (F9) 
  5194.     0S0E
  5195.     0S0E
  5196. Send Docu_ment
  5197. _Forward
  5198. _Move to Folder...    
  5199. _Remove from Folder...
  5200. O=Lotus Notes
  5201. O=Lotus Notes
  5202. PURSAFO
  5203. |.:#U
  5204. O=Lotus Notes
  5205. CN=Lotus Notes Template Development/O=Lotus Notes
  5206. PURSAFO
  5207. Fde!f^^
  5208. C#]q"
  5209. $TITLE
  5210. $FormUsers
  5211. $INFO
  5212. $WINDOWTITLE
  5213. $$Script_O
  5214. $$ScriptName
  5215. $BODY
  5216. $ACTIONS
  5217. New Certificate
  5218. Cross Certificate for: 
  5219. IssuedTo
  5220.  by "
  5221. IssuedBy
  5222.     4S15S
  5223. &Arial
  5224.  CrossCertificate
  5225. Field Label
  5226.     0S0E
  5227. CROSS CERTIFICATE
  5228. IssuedBy
  5229. IssuedBy
  5230. IssuedTo
  5231.     16S17S18S19S
  5232. DisplayName
  5233.     0S0E
  5234. CROSS CERTIFICATE
  5235.     Basics
  5236.     Certificate type:
  5237. CertificateType
  5238. CertificateType
  5239. CertificateType
  5240. Notes Cross-Certificate|0Internet Cross-Certificate|1
  5241.     Issued By:
  5242. IssuedBy
  5243. DisplayIssuedByCertifier issuing the certificate
  5244.     Issued To:
  5245. IssuedTo
  5246. DisplayIssuedToCertifier being certified
  5247. CertificateType
  5248.     0S0E
  5249.     Combined Name:
  5250. NameCombo
  5251. NameComboTop level organization of issuer
  5252.     Comment:
  5253. CommentShort comment about this person (optional)
  5254.     Organizations:
  5255. OrgCombo
  5256. OrgComboTop level organization of issuer
  5257.     Certified Public Key:
  5258. Certificate_NoEnc
  5259. Certificate_NoEncCertifier's certified public key (not for encrypted mail)
  5260. Administration
  5261.     Owners:
  5262. Owner
  5263.     Administrators:
  5264. LocalAdmin
  5265. CrossCertificate
  5266. DocumentAccess
  5267. Categori_zeK
  5268. Save and Close>
  5269.     0S0E
  5270.     0S0E
  5271. _Edit Certificate
  5272. Send Docu_ment
  5273. _Forward
  5274. _Move to Folder...
  5275. _Remove from Folder...
  5276. O=Lotus Notes
  5277. O=Lotus Notes
  5278. PURSAFO
  5279. |.:#U
  5280. O=Lotus Notes
  5281. CN=Lotus Notes Template Development/O=Lotus Notes
  5282. PURSAFO
  5283. Fde!f^^
  5284. $TITLE
  5285. $INFO
  5286. $WINDOWTITLE
  5287. $$Script_O
  5288. $$ScriptName
  5289. $BODY
  5290. $ACTIONS
  5291. ($Locations)/O
  5292. Source
  5293. Server
  5294. ServerName
  5295. Source
  5296. $1Name$Conflict$REF
  5297. Location
  5298. Server
  5299.     1S2S3S
  5300. $1Name
  5301. $1SourceZ
  5302. Source
  5303. Server
  5304. ServerName
  5305. Source
  5306. NameName&
  5307. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  5308. ##########################################################
  5309. (Parts)CD
  5310. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
  5311. Server\CertifierCertifier[NetCreator]
  5312. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
  5313. ($Users)/O1
  5314. $25$23
  5315. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  5316. RAS0home.notes.net10
  5317. 23456710ConnectionCN=Rob Slapikoff/O=Iris[NetModifer]0CN=home/OU=notes/O=netTCPIP**
  5318. @TCPIPhome.notes.netlocal
  5319. CN=Rob Slapikoff/O=Iris
  5320. ####################################################
  5321. 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
  5322. Debbie BrancoCN=Rob Slapikoff/O=Iris
  5323. ##############
  5324. 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
  5325. Debbie BrancoCN=Rob Slapikoff/O=Iris
  5326. ####################
  5327. ##########################################################
  5328. ##########################################################
  5329. ##########################################################
  5330. Categori_zeK
  5331. _Edit Document
  5332. Send Docu_ment
  5333. _Forward
  5334. _Move to Folder...
  5335. _Remove from FolderK
  5336. O=Lotus Notes
  5337. O=Lotus Notes
  5338. PURSAFO
  5339. |.:#U
  5340. O=Lotus Notes
  5341. CN=Lotus Notes Template Development/O=Lotus Notes
  5342. PURSAFO
  5343. Fde!f^^
  5344. $TITLE
  5345. $Index
  5346. $Formula
  5347. $FormulaClass
  5348. $VIEWFORMAT
  5349. $Comment
  5350. $ACTIONS
  5351. Administration
  5352.     Owners:
  5353. OwnerDistinguished names of people allowed to modify the group.
  5354.     Administrators:
  5355. LocalAdmin
  5356. Categori_ze
  5357. _Edit Document
  5358. Send Docu_ment
  5359. _Forward
  5360. _Move to Folder...
  5361. _Remove from Folder...
  5362. O=Lotus Notes
  5363. O=Lotus Notes
  5364. PURSAFO
  5365. |.:#U
  5366. O=Lotus Notes
  5367. CN=Lotus Notes Template Development/O=Lotus Notes
  5368. PURSAFO
  5369. Fde!f^^
  5370. $TITLE
  5371. $INFO
  5372. $BODY
  5373. $ACTIONS
  5374. New Certifier
  5375. FullName
  5376.     4S6S
  5377. &Arial
  5378.  Certifier
  5379.     0S0E
  5380. CERTIFIER
  5381. FullName
  5382. FullName
  5383.     0S0E
  5384. DisplayName1
  5385.     0S0E
  5386. CERTIFIER
  5387.     Basics
  5388.     Certifier type:
  5389. CertificateType
  5390. CertificateType
  5391. CertificateType
  5392. Notes Certifier|0Internet Certifier|1
  5393. Distinguished name of certifier.
  5394.     Certifier name:
  5395. FullNameDistinguished name of certifier.
  5396. Certifier issuing the certificate
  5397.     Issued by:
  5398. IssuedByCertifier issuing the certificate
  5399. Certifier's certified public key (not for encrypted mail)
  5400.     Certified public key:
  5401. Certificate_NoEncCertifier's certified public key (not for encrypted mail)
  5402. CertificateType
  5403.     0S0E
  5404.     Contact
  5405.     E-Mail
  5406. Company name.
  5407.     Company:
  5408. CompanyNameCompany name.
  5409. Mail server name - e.g. Marketing/Acme.
  5410.     Notes mail server:
  5411. MailServer^
  5412. MailServerMail server name - e.g. Marketing/Acme.
  5413. Department name(s).
  5414.     Department:
  5415. DepartmentDepartment name(s).
  5416. Mail file name - e.g. MAIL\JSMITH.
  5417.     Notes mail filename:
  5418. MailFile^
  5419. MailFileMail file name - e.g. MAIL\JSMITH.
  5420. Office location or mailstop
  5421.     Location:
  5422. LocationOffice location or mailstop
  5423. Optional mail address to forward to - e.g. John Smith @ XYZ.
  5424.     Other mail address:
  5425. MailAddress
  5426. MailAddressOptional mail address to forward to - e.g. John Smith @ XYZ.
  5427. Office phone number
  5428.     Office phone:
  5429. OfficePhoneNumberOffice phone number
  5430. Short comment about this person (optional)
  5431.     Comment:
  5432. CommentShort comment about this person (optional)
  5433. Administration
  5434.     Owners:
  5435. Owner
  5436.     Administrators:
  5437. LocalAdmin
  5438.     Change request:
  5439. ChangeRequestPerson's public key.
  5440. Certifier
  5441. DocumentAccess
  5442. FullName
  5443. IssuedTo
  5444. Categori_zeK
  5445. Save and Close>
  5446.     0S0E
  5447.     0S0E
  5448. _Edit CertifierK
  5449. Send Docu_ment
  5450. _Forward
  5451. _Move to Folder...
  5452. _Remove from Folder...
  5453. O=Lotus Notes
  5454. O=Lotus Notes
  5455. PURSAFO
  5456. |.:#U
  5457. O=Lotus Notes
  5458. CN=Lotus Notes Template Development/O=Lotus Notes
  5459. PURSAFO
  5460. Fde!f^^
  5461. ]HnY;
  5462. $TITLE
  5463. $FormUsers
  5464. $INFO
  5465. $WINDOWTITLE
  5466. $$Script_O
  5467. $$ScriptName
  5468. $BODY
  5469. $ACTIONS
  5470. FullName
  5471.     1S2S6S
  5472.     0R1S2S
  5473. CommonName
  5474.     0R1S2S5S6S8S10S
  5475. ListNameh
  5476. ListName
  5477. ListNamex
  5478. ListName
  5479. ListName
  5480. Database
  5481. FullNamex
  5482. FullName
  5483. FullName
  5484. FirstName
  5485. LastName
  5486. FullName
  5487. CommonName
  5488. ShortName
  5489. LastNamex
  5490. Lastname
  5491. FirstName
  5492. MiddleInitial
  5493. FullName
  5494.     0R11S14S15S20R58S59S60S61S62S63S64S65S66S67S68S73S75S76S77S78S79S80S81S82S85S
  5495. ListNameh
  5496. ListName
  5497. FullName
  5498.     7S9S
  5499. $25$23FullNameListNameMembersMailServerMailFileMailDomainMailAddressShortNameLocationEncryptIncomingMailCalendarDomainNetUserNameHTTPPassword$Conflict$REF
  5500. Person
  5501. LoginUser
  5502. Certifier
  5503. Database
  5504. Group
  5505. GroupType
  5506. GroupType
  5507.     L1S3S4S5S6S7S8S9S10S11S12S13S17S18S20S21S22S24S26S27S
  5508. $25Name
  5509. FullName
  5510.     1S2S6S
  5511.     0R1S2S
  5512. CommonName
  5513.     0R1S2S5S6S8S10S
  5514. ListNameh
  5515. ListName
  5516. ListNamex
  5517. ListName
  5518. ListName
  5519. Database
  5520. FullNamex
  5521. FullName
  5522. FullName
  5523. FirstName
  5524. LastName
  5525. FullName
  5526. CommonName
  5527. ShortName
  5528. LastNamex
  5529. Lastname
  5530. FirstName
  5531. MiddleInitial
  5532. FullName
  5533.     0R11S14S15S20R58S59S60S61S62S63S64S65S66S67S68S73S75S76S77S78S79S80S81S82S85S$23ListName & FullNameP
  5534. ListNameh
  5535. ListName
  5536. FullName
  5537.     7S9S
  5538. FullNameFullNameListNameListNameMembersMembersMailServerMailServerMailFileMailFileMailDomainMailDomainMailAddressMailAddressShortNameShortNameLocationLocationEncryptIncomingMailEncryptIncomingMailCalendarDomainCalendarDomainNetUserNameNetUserNameHTTPPasswordHTTPPassword&
  5539. Categori_zeK
  5540. _Edit Document
  5541. Send Docu_ment
  5542. _Forward
  5543. _Move to Folder...
  5544. _Remove from Folder...
  5545. O=Lotus Notes
  5546. O=Lotus Notes
  5547. PURSAFO
  5548. |.:#U
  5549. O=Lotus Notes
  5550. CN=Lotus Notes Template Development/O=Lotus Notes
  5551. PURSAFO
  5552. Fde!f^^
  5553. $TITLE
  5554. $Index
  5555. $Formula
  5556. $FormulaClass
  5557. $VIEWFORMAT
  5558. $Comment
  5559. $ACTIONS
  5560. 11/25/95 02:46:18 PM Lotus Notes updated -Default-
  5561. 11/21/95 03:38:11 PM Rob Slapikoff/Iris updated [-Default-]
  5562. 11/21/95 02:07:00 PM Lotus Notes updated [-Default-]
  5563. UserCreator
  5564. UserModifier
  5565. GroupCreator
  5566. GroupModifier
  5567. NetCreator
  5568. NetModifier
  5569. ServerCreator
  5570. ServerModifier
  5571. 06/29/95 09:43:31 PM Rob Slapikoff/Iris updated [OtherDomainServers]
  5572. 06/29/95 09:43:29 PM Rob Slapikoff/Iris updated [LocalDomainServers]
  5573. 05/20/95 05:13:04 PM Rob Slapikoff/Iris updated [LocalDomainServers]
  5574. 05/20/95 05:12:56 PM Rob Slapikoff/Iris updated [-Default-]
  5575. 05/20/95 05:12:40 PM Rob Slapikoff/Iris updated LocalDomainServers
  5576. 05/20/95 05:12:27 PM Rob Slapikoff/Iris updated -Default-
  5577. 05/20/95 05:11:35 PM Rob Slapikoff/Iris updated role ServerModifer
  5578. 05/20/95 05:11:31 PM Rob Slapikoff/Iris updated role ServerCreator
  5579. 05/20/95 05:11:25 PM Rob Slapikoff/Iris updated role NetModifer
  5580. 05/20/95 05:11:21 PM Rob Slapikoff/Iris updated role NetCreator
  5581. 05/20/95 05:11:15 PM Rob Slapikoff/Iris updated role GroupModifer
  5582. 05/20/95 05:11:11 PM Rob Slapikoff/Iris updated role GroupCreator
  5583. 05/20/95 05:11:07 PM Rob Slapikoff/Iris updated role UserModifer
  5584. 05/20/95 05:11:03 PM Rob Slapikoff/Iris updated role UserCreator
  5585. -Default-
  5586. [-Default-]
  5587. [LocalDomainServers]
  5588. [OtherDomainServers]
  5589. LocalDomainServers
  5590. Brian Lambert($VIMGroups)
  5591. ListName
  5592. $1ListDescriptionMembers$Conflict$REF
  5593. Group
  5594.     1S2S3S4S5S
  5595.  $1List Name0
  5596. ListName
  5597. ListDescriptionDescriptionMembersMembers&
  5598. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
  5599. Brian Lambert($VIMPeopleAndGroups),
  5600. Person
  5601. Person
  5602. Fullname
  5603. ListName
  5604. FirstName
  5605. MiddleInitial
  5606. LastName
  5607. XDomain
  5608. MailDomain
  5609. MailDomain"
  5610.     1S2S5S6S8S9S10S12S
  5611. Person
  5612. MailAddress
  5613. MailAddress
  5614. FullName
  5615. XDomain
  5616. Listname
  5617.     0R9S10S12S14S18S20S21S
  5618. Person
  5619. Comment
  5620. ListDescription
  5621. $6$1$0$2$3$8$5Members$Conflict$REF
  5622. Person
  5623. Group
  5624.     1S3S4S5S6S7S8S10S11S
  5625. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  5626. Brian Lambert($VIMPeopleByLastName)
  5627. LastName
  5628. Fullname
  5629. FirstName
  5630. MiddleInitial
  5631. XDomain
  5632. MailDomain
  5633. MailDomain"
  5634. MailAddress
  5635. MailAddress
  5636. FullName
  5637. XDomain
  5638. $6$1$0$2$4Comment$Conflict$REF
  5639. Person
  5640.     1S2S3S4S5S
  5641. $6LastName.
  5642. LastName
  5643. $1FullName0
  5644. Fullname
  5645. $0FirstName&
  5646. FirstName
  5647. $2Middle Initial*
  5648. MiddleInitial
  5649. $4MailAddress
  5650. XDomain
  5651. MailDomain
  5652. MailDomain"
  5653. MailAddress
  5654. MailAddress
  5655. FullName
  5656. XDomain
  5657. CommentComment&
  5658. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  5659. ##########################################################
  5660. ($PeopleGroupsFlat)/O1
  5661. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
  5662. ##########################################################
  5663.  $6Type<
  5664. Person
  5665. $1FullName/ListNamel
  5666. Person
  5667. Fullname
  5668. ListName
  5669. $0FirstName&
  5670. FirstName
  5671. $2Middle Initial*
  5672. MiddleInitial
  5673. $3LastName$
  5674. LastName
  5675. $8MailAddress<
  5676. XDomain
  5677. MailDomain
  5678. MailDomain"
  5679.     1S2S5S6S8S9S10S12S
  5680. Person
  5681. MailAddress
  5682. MailAddress
  5683. FullName
  5684. XDomain
  5685. Listname
  5686.     0R9S10S12S14S18S20S21S
  5687. $5Comment/List DescriptionP
  5688. Person
  5689. Comment
  5690. ListDescription
  5691. MembersMembers&
  5692. Categori_ze
  5693. _Edit Document
  5694. Send Docu_ment
  5695. _Forward
  5696. O=Lotus Notes
  5697. O=Lotus Notes
  5698. PURSAFO
  5699. |.:#U
  5700. O=Lotus Notes
  5701. CN=Lotus Notes Template Development/O=Lotus Notes
  5702. PURSAFO
  5703. Fde!f^^
  5704. $Author
  5705. $TITLE
  5706. $Index
  5707. $Formula
  5708. $FormulaClass
  5709. $VIEWFORMAT
  5710. $Comment
  5711. $ACTIONS
  5712. ($ServerAccess)/O
  5713. Remove all members that contain domain names (e.g. @ Domain)
  5714. CanonicalMembers
  5715. Members
  5716. CanonicalMembers
  5717. CanonicalMembers
  5718. CanonicalMembers
  5719. $1ListName$Conflict$REF
  5720. Group
  5721. GroupType
  5722. GroupType
  5723.     L1S2S3S4S5S7S8S14S15S1
  5724. $1Name$
  5725. Remove all members that contain domain names (e.g. @ Domain)
  5726. CanonicalMembers
  5727. Members
  5728. CanonicalMembers
  5729. CanonicalMembers
  5730. CanonicalMembers
  5731. ListNameListName&
  5732. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
  5733. Brian Lambert($VIMPeople)
  5734. Fullname
  5735. FirstName
  5736. MiddleInitial
  5737. LastName
  5738. XDomain
  5739. MailDomain
  5740. MailDomain"
  5741. MailAddress
  5742. MailAddress
  5743. FullName
  5744. XDomain
  5745. $1$0$2$3$4Comment$Conflict$REF
  5746. Person
  5747.     1S2S3S4S5S
  5748. $1FullName0
  5749. Fullname
  5750. $0FirstName&
  5751. FirstName
  5752. $2Middle Initial*
  5753. MiddleInitial
  5754. $3LastName$
  5755. LastName
  5756. $4MailAddress
  5757. XDomain
  5758. MailDomain
  5759. MailDomain"
  5760. MailAddress
  5761. MailAddress
  5762. FullName
  5763. XDomain
  5764. CommentComment&
  5765. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  5766. (Copy to Personal Address Book)
  5767. EHCN=Catherine Duffy/OU=NAHQ/O=Lotus4f3
  5768. CN=Catherine Duffy/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  5769. (RLANList)RLANListCD
  5770. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@
  5771. ##########################################################
  5772. $RLANARAAppleTalk Remote AccessARACU3
  5773. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
  5774. ##########################################################
  5775. ##########################################################
  5776. Categori_zeK
  5777. _Edit Document
  5778. Send Docu_ment
  5779. _Forward
  5780. _Move to Folder...
  5781. _Remove from FolderK
  5782. O=Lotus Notes
  5783. O=Lotus Notes
  5784. PURSAFO
  5785. |.:#U
  5786. O=Lotus Notes
  5787. CN=Lotus Notes Template Development/O=Lotus Notes
  5788. PURSAFO
  5789. Fde!f^^
  5790. [u0n.~E
  5791. $TITLE
  5792. $Index
  5793. $Formula
  5794. $FormulaClass
  5795. $VIEWFORMAT
  5796. $Comment
  5797. $ACTIONS
  5798. _Edit Document
  5799. _Save Document
  5800. Save as New _Version
  5801. Send Docu_ment
  5802. Categori_ze
  5803. _Rename Document
  5804. O=Lotus Notes
  5805. O=Lotus Notes
  5806. PURSAFO
  5807. |.:#U
  5808. O=Lotus Notes
  5809. CN=Lotus Notes Template Development/O=Lotus Notes
  5810. PURSAFO
  5811. Fde!f^^
  5812. $Author
  5813. $ACTIONS
  5814. $Comment
  5815. $TITLE
  5816. $Index
  5817. $Formula
  5818. $FormulaClass
  5819. $VIEWFORMAT
  5820. Group
  5821. Person
  5822. Database
  5823. Server
  5824.     3S4S6S8S9S10S12S18S20S27S
  5825. DisplayPersonName
  5826. Person
  5827. LastName
  5828. FirstName
  5829. MiddleInitial
  5830.     1S2S5S6S8S16S18S19S23S27S30S31S32S34S
  5831. DisplayName
  5832. Group
  5833. ListName
  5834. Server
  5835. Servername
  5836. DisplayPersonName
  5837. FullName
  5838. DisplayPersonName
  5839.     0R1S2S5S6S8S12S21S24S25S27S31S34S
  5840. DisplayName
  5841.     0R4S
  5842. Person
  5843. MailAddress
  5844. MailAddress
  5845. MailDomain
  5846. MailDomain"
  5847. FullName
  5848. FullName
  5849. MailDomain
  5850. MailDomain"
  5851. FirstName
  5852. FirstName
  5853. LastName"
  5854. MailDomain
  5855. MailDomain"
  5856. LastName
  5857. MailDomain
  5858. MailDomain"
  5859. Database
  5860. FullName
  5861. MailDomain
  5862. MailDomain"
  5863. Group
  5864. GroupType
  5865. GroupType
  5866. ListName
  5867.     3S4S5S6S13S14S21S22S33S34S36S40S42S43S46S47S49S50S51S53S65S66S73S74S80S81S88S89S96S97S98S100S104S106S107S111S112S114S115S116S118S122S123S124S125S126S133S139S
  5868. Group
  5869. ListName
  5870. Server
  5871. ServerName
  5872. Person
  5873. Database
  5874. FullName
  5875.     3S4S6S25S29S
  5876. Certificate
  5877. PublicKey
  5878. Certificate
  5879. PublicKey
  5880. Server
  5881. Certificate
  5882.     7S8S34S35S
  5883. $28$39$41$37Type$40$Conflict$REF
  5884. Person
  5885. Group
  5886. Database
  5887. Server
  5888.     L1S2S4S5S6S7S8S9S10S11S12S13S14S15S16S
  5889. Group
  5890. Person
  5891. Database
  5892. Server
  5893.     3S4S6S8S9S10S12S18S20S27S$39&
  5894. DisplayPersonName
  5895. Person
  5896. LastName
  5897. FirstName
  5898. MiddleInitial
  5899.     1S2S5S6S8S16S18S19S23S27S30S31S32S34S
  5900. DisplayName
  5901. Group
  5902. ListName
  5903. Server
  5904. Servername
  5905. DisplayPersonName
  5906. FullName
  5907. DisplayPersonName
  5908.     0R1S2S5S6S8S12S21S24S25S27S31S34S
  5909. DisplayName
  5910.     0R4S
  5911. $41Address
  5912. Person
  5913. MailAddress
  5914. MailAddress
  5915. MailDomain
  5916. MailDomain"
  5917. FullName
  5918. FullName
  5919. MailDomain
  5920. MailDomain"
  5921. FirstName
  5922. FirstName
  5923. LastName"
  5924. MailDomain
  5925. MailDomain"
  5926. LastName
  5927. MailDomain
  5928. MailDomain"
  5929. Database
  5930. FullName
  5931. MailDomain
  5932. MailDomain"
  5933. Group
  5934. GroupType
  5935. GroupType
  5936. ListName
  5937.     3S4S5S6S13S14S21S22S33S34S36S40S42S43S46S47S49S50S51S53S65S66S73S74S80S81S88S89S96S97S98S100S104S106S107S111S112S114S115S116S118S122S123S124S125S126S133S139S$37Name
  5938. Group
  5939. ListName
  5940. Server
  5941. ServerName
  5942. Person
  5943. Database
  5944. FullName
  5945.     3S4S6S25S29S
  5946. TypeType$40Public Key
  5947. Certificate
  5948. PublicKey
  5949. Certificate
  5950. PublicKey
  5951. Server
  5952. Certificate
  5953.     7S8S34S35S
  5954. Categori_zeK
  5955. _Edit Document
  5956. Send Docu_ment
  5957. _Forward
  5958. _Move to Folder...
  5959. _Remove from Folder...
  5960. O=Lotus Notes
  5961. O=Lotus Notes
  5962. PURSAFO
  5963. |.:#U
  5964. O=Lotus Notes
  5965. CN=Lotus Notes Template Development/O=Lotus Notes
  5966. PURSAFO
  5967. Fde!f^^
  5968. $TITLE
  5969. $Index
  5970. $Formula
  5971. $FormulaClass
  5972. $VIEWFORMAT
  5973. $Comment
  5974. $ACTIONS
  5975. ($Adminp)/O
  5976. LocalAdmin
  5977. Owner
  5978. Source
  5979. ServerName
  5980. ListName
  5981. Destination
  5982. AllowAccess
  5983. CreateAccess
  5984. ReplicaAccess
  5985. Administrator
  5986. PTAccess
  5987. PTClients
  5988. PTCallers
  5989. PTTargets
  5990. PrivateList
  5991. RestrictedList
  5992. UnrestrictedList
  5993. ListOwner
  5994. MailServer
  5995. PassthruServer
  5996. FullName
  5997. SMTPAdministrator
  5998. DefaultPassthruServer
  5999. InterNotes
  6000. MailAddress
  6001. GroupType
  6002. Members
  6003.     10S22S28S30S32S
  6004. $17$Conflict$REF
  6005. Person
  6006. GroupType
  6007. Group
  6008.     L1S2E4S5S9S10S
  6009. $17Names
  6010. LocalAdmin
  6011. Owner
  6012. Source
  6013. ServerName
  6014. ListName
  6015. Destination
  6016. AllowAccess
  6017. CreateAccess
  6018. ReplicaAccess
  6019. Administrator
  6020. PTAccess
  6021. PTClients
  6022. PTCallers
  6023. PTTargets
  6024. PrivateList
  6025. RestrictedList
  6026. UnrestrictedList
  6027. ListOwner
  6028. MailServer
  6029. PassthruServer
  6030. FullName
  6031. SMTPAdministrator
  6032. DefaultPassthruServer
  6033. InterNotes
  6034. MailAddress
  6035. GroupType
  6036. Members
  6037.     10S22S28S30S32S&
  6038. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
  6039. $RLANRASMicrosoft Remote Access ServiceRASCU3
  6040. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################
  6041. $ConFormRLANSubformCUA3
  6042. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  6043. LocationLocation[NetCreator]
  6044. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
  6045. (ProxyDialog)CD
  6046. CN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
  6047. ##########################################################
  6048. ##########################################################
  6049. ##########################################################
  6050. Categori_zeK
  6051. _Edit Document
  6052. Send Docu_ment
  6053. _Forward
  6054. _Move to Folder...
  6055. _Remove from Folder...
  6056. O=Lotus Notes
  6057. O=Lotus Notes
  6058. PURSAFO
  6059. |.:#U
  6060. O=Lotus Notes
  6061. CN=Lotus Notes Template Development/O=Lotus Notes
  6062. PURSAFO
  6063. Fde!f^^
  6064. $TITLE
  6065. $Index
  6066. $Formula
  6067. $FormulaClass
  6068. $VIEWFORMAT
  6069. $Comment
  6070. $ACTIONS
  6071. O=Lotus Notes
  6072. O=Lotus Notes
  6073. PURSAFO
  6074. |.:#U
  6075. O=Lotus Notes
  6076. CN=Lotus Notes Template Development/O=Lotus Notes
  6077. PURSAFO
  6078. Fde!f^^
  6079. sZ%!ZM}
  6080. $Flags
  6081. '++LotusScript Development Environment:2:5:(Options):0:66
  6082. Option Public
  6083. '++LotusScript Development Environment:2:5:(Forward):0:1
  6084. Declare Sub Initialize
  6085. Declare Sub ProcessDocument
  6086. Declare Sub ProcessGroup
  6087. Declare Sub EvaluateDocument
  6088. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6089. Dim s As NotesSession
  6090. Dim sourcedb As NotesDatabase
  6091. Dim destdb As NotesDatabase
  6092. Dim sourcenote As NotesDocument
  6093. Dim sourceview As NotesView
  6094. Dim destnote As NotesDocument
  6095. Dim destview As NotesView
  6096. Dim documents As NotesDocumentCollection
  6097. Dim KeyValue As Variant
  6098. Dim DisplayKey As Variant
  6099. Dim DocsCopied As Integer
  6100. Dim Answer As Integer
  6101. Dim HowMany As Variant
  6102. Dim FormType As Variant
  6103. Dim PendingGroups() As Variant
  6104. Dim ProcessingGroup As Variant
  6105. Dim Refreshed As Integer
  6106. Dim StopProcessing As Variant
  6107. '++LotusScript Development Environment:2:2:Initialize:1:10
  6108. Sub Initialize
  6109.      
  6110.      Set s = New NotesSession
  6111.      Set sourcedb = s.CurrentDatabase
  6112.      Set destdb = New NotesDatabase("", "names.nsf")
  6113.      Set destview = destdb.GetView("($Users)")
  6114.      Set sourceview = sourcedb.GetView("($Users)")
  6115.      Redim PendingGroups(0)
  6116.      
  6117.      Set documents = sourcedb.UnprocessedDocuments
  6118.      If documents.Count = 0 Then Exit Sub
  6119.      DocsCopied = 0
  6120.      For n = 1 To documents.Count
  6121.           Set sourcenote = documents.GetNthDocument(n)
  6122.           EvaluateDocument
  6123.           If StopProcessing Then Exit For
  6124.      Next
  6125.      
  6126.      If Ubound(PendingGroups) > 0 Then
  6127.           If Messagebox("Do you also want to copy all members of groups?", _
  6128.           3 + 32, "Copy Group") = 6 Then ProcessGroup
  6129.      End If
  6130.      
  6131.      If DocsCopied = 1 Then
  6132.           HowMany = "1 document was "
  6133.      Else
  6134.           HowMany = DocsCopied & " documents were "
  6135.      End If
  6136.      Messagebox HowMany & "copied to your personal Name and Address Book.", 0, "Copy"
  6137.      
  6138. End Sub
  6139. '++LotusScript Development Environment:2:2:ProcessDocument:1:8
  6140. Sub ProcessDocument
  6141.      
  6142.      Set destnote = destview.GetDocumentByKey(Cstr(KeyValue(0)))
  6143.      If destnote Is Nothing Then
  6144.           Call sourcenote.CopyToDatabase(destdb)
  6145.           DocsCopied = DocsCopied + 1
  6146.      Else
  6147.           Select Case Messagebox(DisplayKey(0) & " already exists, do you want to replace it?", _
  6148.           3 + 32, "Copy")
  6149.           Case 6
  6150.                destnote.Remove(True)
  6151.                Call sourcenote.CopyToDatabase(destdb)
  6152.                DocsCopied = DocsCopied + 1
  6153.           Case 2
  6154.                StopProcessing = True
  6155.                Exit Sub
  6156.           Case Else
  6157.                If Not ProcessingGroup Then
  6158.                     Exit Sub
  6159.                End If
  6160.           End Select
  6161.      End If
  6162.      
  6163.      If FormType(0) = "Group" Then
  6164.           g = Ubound(PendingGroups) + 1
  6165.           Redim Preserve PendingGroups(g)
  6166.           ListName = sourcenote.ListName
  6167.           PendingGroups(g) = ListName(0)
  6168.      End If
  6169.      
  6170.      If ProcessingGroup Then destview.Refresh
  6171.      
  6172. End Sub
  6173. '++LotusScript Development Environment:2:2:ProcessGroup:1:8
  6174. Sub ProcessGroup
  6175.      
  6176. 'We don't care if a group member is not found.  It could be because of obsolete lists.
  6177.      
  6178.      ProcessingGroup = True
  6179.      Forall p In PendingGroups
  6180.           Set sourcenote = sourceview.GetDocumentByKey(Cstr(p))
  6181.           If Not(sourcenote Is Nothing) Then
  6182.                Members = sourcenote.Members
  6183.                Forall m In Members
  6184.                     Set sourcenote = sourceview.GetDocumentByKey(Cstr(m))
  6185.                     If Not(sourcenote Is Nothing) Then
  6186.                          EvaluateDocument
  6187.                          If StopProcessing Then Exit Sub
  6188.                     End If
  6189.                End Forall
  6190.           End If
  6191.      End Forall
  6192.      
  6193. End Sub
  6194. '++LotusScript Development Environment:2:2:EvaluateDocument:1:8
  6195. Sub EvaluateDocument
  6196.      
  6197.      FormType = sourcenote.Type
  6198.      Select Case FormType(0)
  6199.      Case "Person"
  6200.           KeyValue = sourcenote.FullName
  6201.           DisplayKey = Evaluate("@Name([Abbreviate]; FullName)", sourcenote)
  6202.           ProcessDocument      
  6203.      Case "Group"
  6204.           KeyValue = sourcenote.ListName
  6205.           DisplayKey = Evaluate("@Name([Abbreviate]; ListName)", sourcenote)
  6206.           ProcessDocument      
  6207.      Case Else
  6208.           Messagebox "Only Person and Group documents can be copied.", 0 + 48, "Copy Documents"
  6209.      End Select
  6210.      
  6211. End Sub
  6212. FullName
  6213. ListName
  6214. O=Lotus Notes
  6215. O=Lotus Notes
  6216. PURSAFO
  6217. |.:#U
  6218. O=Lotus Notes
  6219. CN=Lotus Notes Template Development/O=Lotus Notes
  6220. PURSAFO
  6221. Fde!f^^
  6222. n1m^J{b
  6223. $TITLE
  6224. $AssistType
  6225. $AssistLastRun
  6226. $AssistDocCount
  6227. $AssistFlags
  6228. $MachineName
  6229. $AssistTrigger
  6230. $AssistInfo
  6231. $AssistQuery
  6232. $AssistAction
  6233. $AssistAction_Ex
  6234. $Flags
  6235.  RLANList
  6236. DisplayDriverList
  6237. RemoteLanService
  6238.     0S0E
  6239. DisplayDriverList
  6240.     Choose Remote Lan Service:
  6241. RemoteLanService
  6242. RemoteLanService
  6243. DisplayDriverList
  6244. O=Lotus Notes
  6245. O=Lotus Notes
  6246. PURSAFO
  6247. |.:#U
  6248. O=Lotus Notes
  6249. CN=Lotus Notes Template Development/O=Lotus Notes
  6250. PURSAFO
  6251. Fde!f^^
  6252. $TITLE
  6253. $INFO
  6254. $$Script_O
  6255. $$ScriptName
  6256. $BODY
  6257. &Arial
  6258. ConnectionType
  6259.     1S2S
  6260. ARA$%^Connection document location:
  6261. StaticTag
  6262. ARA$%^ 
  6263. Static1
  6264. ARA$%^ 
  6265. Static2
  6266. ARA$%^ 
  6267. Static3
  6268. ARA$%^ 
  6269. Static4
  6270. ConnectionType
  6271.     0S0E
  6272. RLAN1Enter the login name for the remote LAN service.
  6273. RLAN2Enter the password to be used to login to the remote LAN service.
  6274. RLAN3Enter the phone number to dial to access the remote LAN service.
  6275. RLAN4If the remote LAN service driver you are using requires extra parameters, enter them here.
  6276. RLANTagThe name of the connection description managed by the external remote LAN service.  
  6277.     Connection document location:
  6278. RLANTag
  6279. Choose AppleTalk Remote Access Document
  6280. ?_?__
  6281. `!b`1
  6282. 7`^///?
  6283. ?b___
  6284. `bOOO
  6285. `<b!R
  6286. O=Lotus Notes
  6287. O=Lotus Notes
  6288. PURSAFO
  6289. |.:#U
  6290. O=Lotus Notes
  6291. CN=Lotus Notes Template Development/O=Lotus Notes
  6292. PURSAFO
  6293. Fde!f^^
  6294. S>o:W
  6295. :%U'7n
  6296. $TITLE
  6297. $INFO
  6298. $$Script_O
  6299. $$ScriptName
  6300. $BODY
  6301. ConnectionType
  6302.     1S2S
  6303. RAS$%^Remote connection name:
  6304. StaticTag
  6305. RAS$%^Login name:
  6306. Static1
  6307. RAS$%^Password:
  6308. Static2
  6309. RAS$%^Phone number:
  6310. Static3
  6311. RAS$%^
  6312. Static4
  6313. ConnectionType
  6314.     0S0E
  6315. RLAN4If the remote LAN service driver you are using requires extra parameters, enter them here.
  6316.     Remote connection name:
  6317.     Login name:
  6318.     Password:
  6319.     Phone number:
  6320. RLANTagThe name of the connection description managed by the external remote LAN service.  
  6321. RLAN1Enter the login name for the remote LAN service.
  6322. RLAN2Enter the password to be used to login to the remote LAN service.
  6323. RLAN3Enter the phone number to dial to access the remote LAN service.
  6324. O=Lotus Notes
  6325. O=Lotus Notes
  6326. PURSAFO
  6327. |.:#U
  6328. O=Lotus Notes
  6329. CN=Lotus Notes Template Development/O=Lotus Notes
  6330. PURSAFO
  6331. Fde!f^^
  6332. $TITLE
  6333. $INFO
  6334. $$Script_O
  6335. $$ScriptName
  6336. $BODY
  6337. $ConFormRLANSubform
  6338. ConnectionType
  6339. RLANTag
  6340. You must choose a service type before saving this connection.
  6341.     5S6S
  6342. RLANTagThe name of the connection description managed by the external remote LAN service.  
  6343. RLAN1Enter the login name for the remote LAN service.
  6344. RLAN2Enter the password to be used to login to the remote LAN service.
  6345. RLAN3Enter the phone number to dial to access the remote LAN service.
  6346. RLAN4If the remote LAN service driver you are using requires extra parameters, enter them here.
  6347. StaticTag
  6348. StaticTag
  6349. Static1
  6350. Static1
  6351. Static2
  6352. Static2
  6353. Static3
  6354. Static3
  6355. Static4
  6356. Static4
  6357. ConnectionType
  6358.     0S0E
  6359. RemoteLanService
  6360. RemoteLanService
  6361. ConnectionType
  6362. RemoteLanService
  6363. You must choose a service type before saving.
  6364.     5S6S
  6365. RemoteLanService
  6366. Microsoft Remote Access Service|RASAppleTalk Remote Access|ARA
  6367. RemoteLANService
  6368. LanServiceDisplay
  6369. ConnectionType
  6370. Microsoft Remote Access Service
  6371. LanServiceDisplay
  6372.     5S6S9S10S12S13SLanServiceDisplay
  6373. LanServiceDisplay
  6374.     0S0E
  6375.     Modify Remote LAN Service Configuration
  6376. RemoteLANService
  6377. StaticTag
  6378. StaticTag
  6379. RemoteLANService
  6380. StaticTag
  6381. ConnectionType
  6382. Remote connection name:
  6383.     3S4S21S22S25S26S28S29S
  6384. StaticTagD
  6385. RemoteLANService
  6386. Static1
  6387. Static1
  6388. RemoteLANService
  6389. Static1
  6390. ConnectionType
  6391. Login name:
  6392.     3S4S21S22S25S26S28S29S
  6393. Static1D
  6394. RemoteLANService
  6395. Static2
  6396. Static2
  6397. RemoteLANService
  6398. Static2
  6399. ConnectionType
  6400. Password:
  6401.     3S4S21S22S25S26S28S29S
  6402. Static2D
  6403. RemoteLANService
  6404. Static3
  6405. Static3
  6406. RemoteLANService
  6407. Static3
  6408. ConnectionType
  6409. Phone number:
  6410.     3S4S21S22S25S26S28S29S
  6411. Static3D
  6412. RemoteLANService
  6413. Static4
  6414. Static4
  6415. RemoteLANService
  6416. Static4
  6417. ConnectionType
  6418. Extra info:
  6419.     3S4S21S22S25S26S28S29S
  6420. Static4D
  6421. StaticTagD(
  6422.     0S0E
  6423. RLANTag
  6424. Value1
  6425. Static1D(
  6426.     0S0E
  6427. RLAN1
  6428. Value2
  6429. Static2D(
  6430.     0S0E
  6431. RLAN2
  6432. Value3
  6433. Static3D(
  6434.     0S0E
  6435. RLAN3
  6436. Value4
  6437. Static4D(
  6438.     0S0E
  6439. RLAN4
  6440. Value5
  6441.     Choose a Service Type
  6442. Remote LAN Service Information
  6443. RemoteLANServiceDisplay
  6444. '++LotusScript Development Environment:2:5:(Options):0:66
  6445. '++LotusScript Development Environment:2:5:(Forward):0:1
  6446. Declare Sub Click(Source As Button)
  6447. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6448. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6449. Private Sub BindEvents(Byval Objectname_ As String)
  6450.      Static Source As BUTTON
  6451.      Set Source = Bind(Objectname_)
  6452.      On Event Click From Source Call Click
  6453. End Sub
  6454. '++LotusScript Development Environment:2:2:Click:1:12
  6455. Sub Click(Source As Button)
  6456.      Dim w As New NotesUIWorkspace
  6457.      Dim s As New NotesSession
  6458.      Dim db As NotesDatabase
  6459.      Dim doc As NotesDocument
  6460.      Set db = s.CurrentDatabase
  6461.      Dim uidoc As notesuidocument
  6462.      Set uidoc=w.currentdocument
  6463.      Set doc = uidoc.document
  6464.      y = 0
  6465.      x = 0
  6466.      Dim flag As String
  6467.      On Error Resume Next
  6468.      Forall Forms In db.Forms
  6469.           If Forms.IsSubForm Then
  6470.                If Left(Forms.Name, 5) = "$RLAN" Then
  6471.                     Redim Preserve DriverList(x)
  6472.                     Redim Preserve Drivers(x)
  6473.                     Redim Preserve DisplayList(x)
  6474.                     Aliases = Forms.Aliases
  6475.                     DriverList(x) = Aliases(0) & "|" & Aliases(1)
  6476.                     DisplayList(x) = Aliases(0)
  6477.                     Drivers(x)= Aliases(1)                    
  6478.                     x = x + 1
  6479.                End If     
  6480.           End If
  6481.      End Forall
  6482.      doc.DisplayDriverList =  DriverList
  6483.      flag = w.dialogbox( "RLANList", True, True, False, False, False, False, "Remote LAN Services")
  6484.      
  6485.      If flag = "False" Then Exit Sub
  6486.      
  6487.      Dim curval As Variant
  6488.      curval = doc.RemoteLanService
  6489.      For y = y To (x-1) Step 1
  6490.           If curval(0) = Drivers(y) Then
  6491.                doc.LanServiceDisplay = DisplayList(y)
  6492.           End If
  6493.      Next
  6494.      flag = w.dialogbox( "$RLAN"&doc.RemoteLanService(0), True, True, False, False, False, False, doc.LanServiceDisplay(0))
  6495.      If flag = "False" Then Exit Sub
  6496.      w.CurrentDocument.Refresh
  6497.      
  6498.      
  6499. End Sub
  6500. $RLAN
  6501. RemoteLanService"
  6502. Remote LAN Service Assistant
  6503.     0S0E
  6504. O=Lotus Notes
  6505. O=Lotus Notes
  6506. PURSAFO
  6507. |.:#U
  6508. O=Lotus Notes
  6509. CN=Lotus Notes Template Development/O=Lotus Notes
  6510. PURSAFO
  6511. Fde!f^^
  6512. $TITLE
  6513. $INFO
  6514. $$Script_O
  6515. $$ScriptName
  6516. $BODY
  6517. nVL        
  6518. nV$DesignVersion$Version$Formula$FormulaClass$Collation$UpdatedBy$INFO$Flags$Fonts$BODY$Signature$ACLDigest$TITLE$FlagsNoRefreshIconBitmap$Author$Index$Collation1$Collation2$VIEWFORMAT$Comment$ACTIONS$FormUsers$AUTOLAUNCH$WINDOWTITLE$$Script_OConnectionTypeDestinationLanPortNamePassthruServercountryDialAreaCodeAreaCodeInputLocalPhoneNumberConnectionLocationOptionalNetworkAddressScriptNameSourceScriptArg1ScriptArg2ScriptArg3ScriptArg4LinkScriptInfoConnectionRecordFirstDestinationDomainRemotePortNameCommentsEnabledScheduleIntervalWeekDaysTasksMailThresholdCostRepPriorityAreaCodeTypeOwnerDocumentAccessPortNamePhoneNumberForm$FIELDS$$ScriptNameUserNameDomainMailAddressMailSystemMailDomainInternetAddressInternetDomain$SubForms$Script$$FormScript$$$FormScript_O$$Name$Name_O$$CompanyName$CompanyName_O$$BusinessAddress$BusinessAddress_O$$OfficePhoneNumber$OfficePhoneNumber_O$$OfficeFAXPhoneNumber$OfficeFAXPhoneNumber_O$$CellPhoneNumber$CellPhoneNumber_O$$PhoneNumber$PhoneNumber_O$$HomeFAXPhoneNumber$HomeFAXPhoneNumber_O$$PhoneNumber_6$PhoneNumber_6_O$$HomeAddress$HomeAddress_OPhoneLabel_1PhoneLabel_3PhoneLabel_5PhoneLabel_2PhoneLabel_4PhoneLabel_6OfficeStreetAddressOfficeCityOfficeStateStreetAddressCityStateAreaCodeFromLocParseFlagNameTitleFirstNameMiddleInitialLastNameSuffixJobTitleCompanyNameBusinessAddressOfficeZIPOfficeCountryOfficePhoneNumberOfficeFAXPhoneNumberCellPhoneNumberHomeFAXPhoneNumberPhoneNumber_6WebSiteHomeAddressDisplayHomeAddressZipCategoriesCommentLocationDepartmentManagerAssistantSpouseChildrenFullNameShortNameCertificatePublicKey$$XMB$$XMB_2$$XMB_3$Licensee$HeaderLocalAdminFaxNumberFaxDomainDDAsGSOCOU1OU2OU3OU4IQPRMDADMDCNX400DomainDDA1DDA2DDA3DDA4ccMailUserNameccMailPOccMailDomain$ScriptLib$ScriptLib_O$PublicAccess$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$TYPE$TABLEFORMAT$SCRIPTOBJ_1$ViewGlobalScript_O$DBScript$DBScript_O$Operation$Scan$LeftToDoGroupTitleListNameGroupTypeListDescriptionMembersListOwnerAvailableForDirSyncCertificateTypeNameComboOrgComboCertificate_NoEncIssuedByMailServerMailFileChangeRequestIssuedToPriorityFlagRLANTagRemoteLanServiceRLAN1RLAN2RLAN3RLAN4$Revisions$MachineNameDisplayDriverListStaticTagStatic1Static2Static3Static4LanServiceDisplayInterval_1Interval_2IntervalHighIntervalLowFreqHighFreqLowCard_NoCard_No_1IntervalMed$$FormQuerySaveAction$$FormAction2$$Proxy_HTTP$Proxy_HTTP_OLocationTypeTravelPromptProxy_HTTPWebRetrieverWebLocationWebRetrieverPathDefaultPassthruServerInterNotesEnabledPortsDisabledPortsOutsideLineCallPreInternationalPrefixLongDistancePrefixMailTypeLocalMailTypeDirectMailServerProtocolMailTypeNameLookupPrefExhaustiveNameLookupMailAddressingSMTPRouteImailAddressImailSMTPServerImailServerImailUsernamePopDeleteMailImailUseSSLImailPortTimeZoneTCPNameServerDSTTCPNameServerHostNDSNameServerUserIDNDSNameServerAddressImagesRLANIdleTimeoutWebDbNameWebRetrieversWebLogLevelWebUpdateCacheSSLSiteCertsSSLExpiredCertsSSLProtocolVersionJavaSecureDomainJavaAllowInSecureDomainJavaAllowInOtherDomainsJavaTrustHTTPProxy$LocationVersionProxyFlagProxy_FTPProxy_GopherProxy_SSLProxy_NotesHTTPProxy_SOCKsNo_ProxyImailPassword$$Proxy_HTTPI$Proxy_HTTPI_O$$Port1$Port1_OProxy_HTTPIPort1Proxy_FTPIPort2Proxy_GopherIPort3Proxy_SSLIPort4Proxy_SOCKsIPort5Proxy_NotesHTTPIPort6
  6519.     0S0E
  6520. New Location
  6521. Settings for location: 
  6522. Name"
  6523.     4S6S7S8S
  6524. "Small Fonts
  6525. &Arial
  6526.  Location'++LotusScript Development Environment:2:5:(Options):0:66
  6527. '++LotusScript Development Environment:2:5:(Forward):0:1
  6528. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  6529. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6530. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6531. Private Sub BindEvents(Byval Objectname_ As String)
  6532.      Static Source As NOTESUIDOCUMENT
  6533.      Set Source = Bind(Objectname_)
  6534.      On Event Querysave From Source Call Querysave
  6535. End Sub
  6536. '++LotusScript Development Environment:2:2:Querysave:1:12
  6537. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  6538.      Dim w As New NotesUIWorkspace 
  6539.      Dim s As New NotesSession
  6540.      Dim db As NotesDatabase
  6541.      Dim doc As NotesDocument
  6542.      Set db = s.CurrentDatabase
  6543.      Dim uidoc As notesuidocument
  6544.      Set uidoc=w.currentdocument
  6545.      Set doc = uidoc.document
  6546.      
  6547.      If doc.ProxyFlag(0) = "1" Then
  6548.           doc.Proxy_FTP=doc.Proxy_HTTP(0)
  6549.           doc.Proxy_Gopher=doc.Proxy_HTTP(0)
  6550.           doc.Proxy_SSL=doc.Proxy_HTTP(0)
  6551.      End If
  6552. End Sub
  6553.     0S0E
  6554. '++LotusScript Development Environment:2:5:(Options):0:66
  6555. '++LotusScript Development Environment:2:5:(Forward):0:1
  6556. Declare Sub Exiting(Source As Field)
  6557. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6558. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6559. Private Sub BindEvents(Byval Objectname_ As String)
  6560.      Static Source As FIELD
  6561.      Set Source = Bind(Objectname_)
  6562.      On Event Exiting From Source Call Exiting
  6563. End Sub
  6564. '++LotusScript Development Environment:2:2:Exiting:1:12
  6565. Sub Exiting(Source As Field)
  6566.      Dim w As New NotesUIWorkspace 
  6567.      Dim s As New NotesSession
  6568.      Dim db As NotesDatabase
  6569.      Dim doc As NotesDocument
  6570.      Set db = s.CurrentDatabase
  6571.      Dim uidoc As notesuidocument
  6572.      Set uidoc=w.currentdocument
  6573.      Set doc = uidoc.document
  6574.      
  6575.      If doc.ProxyFlag(0) = "1" Then
  6576.           doc.Proxy_FTP=doc.Proxy_HTTP(0)
  6577.           doc.Proxy_Gopher=doc.Proxy_HTTP(0)
  6578.           doc.Proxy_SSL=doc.Proxy_HTTP(0)
  6579.      End If
  6580. End Sub
  6581. Rob Slapikoff-Rob
  6582. Field Label
  6583.     0S0E
  6584. LOCATION
  6585. Server
  6586. ServerName
  6587.     13S14S16S18S
  6588. DisplayName
  6589.     0S0E
  6590. LOCATION
  6591. Hide for all platforms except W32 (not alpha) and Solaris)
  6592.     Basics
  6593. LocationType
  6594.     0S0E
  6595. Choose the type of connectivity you have at this Location.
  6596.     Location type:
  6597. LocationTypeChoose the type of connectivity you have at this Location.
  6598. Local Area Network|0Dialup Modem|1Both Dialup and Local Area Network|2No connection|3
  6599. 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.
  6600.     Prompt for time/date/phone:
  6601. TravelPromptChoose Yes if you want to be prompted for Location information at startup.
  6602. Yes|1No|0
  6603. The name of this Location.
  6604.     Location name:
  6605. You must enter a name in the Location name field before saving this document.
  6606. You may not use a '/' in a location name.
  6607.     0S0E
  6608. LocationType
  6609.     0S0E
  6610. Enter the name or IP address of the proxy used to connect to the Internet.
  6611.     Web proxy:
  6612.                http://
  6613. Proxy_HTTPEnter the name or IP address of the proxy used to connect to the Internet.
  6614.     0S0E
  6615. (ProxyDialog)
  6616. Proxy Server Configuration
  6617. ?_?__
  6618. `!b`1
  6619. 7`^///?
  6620. ?b___
  6621. `bOOO
  6622. `<b!R
  6623.     Internet Browser
  6624. Server
  6625.     0S0E
  6626.     Servers
  6627. Choose the browser you want to use to view Web pages.
  6628.     Internet browser:
  6629. WebRetrieverChoose the browser you want to use to view Web pages.
  6630. Windows/NT
  6631. Windows/95
  6632. Macintosh
  6633. Notes |0
  6634. Notes with Internet Explorer|3
  6635. Netscape Navigator|1
  6636. Microsoft Internet Explorer|2
  6637. Other|99
  6638. Notes Web Navigator|0
  6639. Other|99
  6640.     15S16S
  6641. Enter the name of your mail/home server to be used at this Location.
  6642.     Home/mail server:
  6643. MailServerEnter the name of your mail/home server to be used at this Location.
  6644. WebRetriever
  6645.     0S0E
  6646. Specify whether pages are retrieved and opened: 
  6647.    1.  from the InterNotes server to a server database
  6648.    2.  from the Notes workstation to a local database
  6649.    3.  no new retrieval from the Internet, but open previously retrieved documents from your local database only
  6650.     Retrieve/open pages:
  6651. WebRetriever
  6652. Windows/95
  6653. Windows/NT
  6654. WebRetriever
  6655. Macintosh
  6656. WebRetriever
  6657.     3S4S16S17S18S19S21S22S29S30S
  6658.     Internet browser path:
  6659. WebRetrieverPath
  6660. Choose path for  Internet Browser
  6661. WebRetrieverPath
  6662. Choose path for  Internet Browser
  6663. ?_?__
  6664. `!b`1
  6665. 7`^///?
  6666. ?b___
  6667. `bOOO
  6668. `<b!R
  6669. LocationType
  6670. WebRetriever
  6671. WebRetriever
  6672.     0S0E
  6673. WebRetriever
  6674. WebLocation
  6675. WebLocation
  6676.     5S6S
  6677. WebLocation
  6678. WebRetriever
  6679. from InterNotes server|0
  6680. from Notes workstation|1
  6681. no retrievals|2
  6682. WebRetriever
  6683. from Notes workstation|1
  6684. no retrievals|2
  6685.     8R16R
  6686. WebRetrieverPath
  6687. WebRetrieverPath
  6688. Enter the name of the server to be used as your default Passthru server.  This is generally the same as your home server.
  6689.     Passthru server:
  6690. DefaultPassthruServerThis is generally the same as your home server.
  6691. WebRetriever
  6692. Windows/95
  6693. Windows/NT
  6694. WebRetriever
  6695.     3S4S16S17S18S19S
  6696. LocationType
  6697. WebLocation
  6698. WebRetriever
  6699.     3S4S7S8S
  6700. Enter the name of the Notes server used as your Internet Web server.
  6701.     InterNotes server:
  6702. InterNotesEnter the name of the Notes server used as your Internet server. (InterNotes)
  6703.     Ports
  6704. 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.
  6705.     Ports to use:
  6706.     Disabled ports:
  6707. Ports
  6708.     1S2S
  6709. Ports
  6710. DisabledPorts
  6711.     0R6S8S
  6712. EnabledPortsChoose which ports are enabled at this Location.
  6713.     0S0E
  6714. SaveEnabledPorts
  6715. EnabledPorts
  6716.     1S2S
  6717. EnabledPorts(
  6718.     0R1S2S3S
  6719. Ports
  6720.     0R1S2S
  6721. Ports
  6722. SaveEnabledPorts
  6723.     0R6S8S
  6724. DisabledPorts
  6725. Location
  6726. LocationType
  6727.     0S0E
  6728.     Phone Dialing
  6729. Input the prefix necessary to acquire an outside line. (ie. 9 if at a hotel or office)
  6730.     Prefix for outside line:
  6731. OutsideLineInput the prefix necessary to acquire an outside line. (ie. 9 if at a hotel or office)
  6732. Enter the calling card access phone number you want to use at this Location.
  6733.     Calling card access number:
  6734. CallPreEnter the calling card access phone number you want to use at this Location.
  6735. Enter the prefix for dialing to another country from this location. e.g. From the United States using AT&T, the prefix is 011.
  6736.     International prefix:
  6737. InternationalPrefixEnter the prefix for dialing to another country from this location. e.g. From the United States using AT&T, the prefix is 011.
  6738. 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.
  6739.     Calling card
  6740.      number or extension suffix:
  6741. SuffixEnter the calling card number you want to use at this Location.
  6742. Enter the numeric country code for this location.  e.g. For the United States enter 1
  6743.     Country code at this location:
  6744. Country
  6745. Location
  6746. LocationType
  6747.     9S10S
  6748. Not yet implemented
  6749. This feature is not implemented in the version you are running.
  6750.     0S0E
  6751.     Dialing Rules...
  6752. Enter the prefix for dialing long distance from this location. e.g. In the United States, the prefix is 1.
  6753.     Long distance prefix:
  6754. LongDistancePrefixEnter the prefix for dialing long distance from this location. e.g. In the United States, the prefix is 1.
  6755. Enter the area code at this Location.
  6756.     Area code at this location
  6757. AreaCode
  6758. AreaCodeInput
  6759. +{!A-Z!a-z}
  6760. You must enter a valid number for the area code.  You can only use the characters 0-9.{
  6761.     0S0E
  6762. AreaCodeInputEnter the area code for this Location.
  6763. MailTypeLocal
  6764. On server|0Local|1
  6765. MailTypeDirect
  6766. On server|0Local|1
  6767.     Mail
  6768.     Replication
  6769. MailServerProtocol
  6770.     0S0E
  6771.     Mail system:
  6772. MailType
  6773. MailServerProtocol
  6774. MailType
  6775. MailServerProtocol
  6776. MailServerProtocol
  6777. Notes|0Internet|5Notes and Internet|50
  6778.     0S0E
  6779. (Internet Mail)
  6780. Internet Mail Options
  6781. Choose Enable if you want the Replicator to be enabled and use the specified schedule at this location.
  6782.     Schedule:
  6783. EnabledChoose Enable if you want the Replicator to be enabled and use the specified schedule at this location.
  6784. Enabled|1Disabled|0
  6785. 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.
  6786.     Mail file location:
  6787. MailServerProtocol
  6788. MailType
  6789. MailServerProtocol
  6790. MailServerProtocol
  6791.     1S8S9S10S11S
  6792. MailType
  6793. MailType
  6794. MailServerProtocol
  6795. You must choose Local if you are using Internet mail.
  6796.     5S6S7S8S
  6797. MailTypeChoose the way you want mail to be queued at this Location.
  6798. MailServerProtocol
  6799. on Server|0
  6800. Local|1
  6801. Local|1
  6802.     0S0E
  6803. LocationType
  6804. Server
  6805. Enabled
  6806.     0S0E
  6807. Times to call the server - e.g. 8:00 AM,10:00 AM-6:00 PM
  6808.     Replicate daily  between:
  6809. ScheduleL
  6810. Enabled
  6811. Interval
  6812. Schedule
  6813. You must enter an Interval and/or a Schedule, or else specify DISABLED.
  6814. ScheduleTimes to call the server - e.g. 8:00 AM,10:00 AM-6:00 PM
  6815. Enter the path and file name of the mail file being used at this location.  e.g. mail\mymail.nsf
  6816.     Mail file
  6817.     0S0E
  6818. MailServerProtocol
  6819. MailFile
  6820. You must enter a mail file when your mail system is set to Internet.{
  6821. MailServerProtocol
  6822. MailFile
  6823. MailFile
  6824. The mail file specified does not exist.  Please enter a valid mail file name.
  6825.     5S6S18S19S22S23S
  6826. MailFileMail file pathname (e.g., mail\jsmith.nsf).
  6827. Interval to repeat calls - 0 means call once.
  6828.     Repeat every:
  6829. Interval
  6830. You entered an interval less than 0.  You must enter an interval of 0 or above.
  6831.     0S0E
  6832. IntervalInterval to repeat calls - 0 means call once.
  6833.      minutes
  6834. MailServerProtocol
  6835.     0S0E
  6836. Enter the Notes mail Domain name to be used at this Location.
  6837.     Notes 
  6838.     mail domain
  6839. Server
  6840. Domain
  6841.     0S0E
  6842. Domain
  6843. The maximum length of a Domain name is 32 bytes.{
  6844.     6S7S
  6845. DomainEnter Mail Domain name to be used at this Location.
  6846. Days of week - e.g. Mon, Tue, Wed
  6847.     Days of week:
  6848. WeekDaysDays of week - e.g. Mon, Tue, Wed
  6849. Sun | 1Mon | 2Tue | 3Wed | 4Thu | 5Fri | 6Sat | 7
  6850. Choose whether you want names to be looked up in the address book(s) and filled in for you as you type each character.
  6851.     Recipient name type-ahead
  6852. MailType
  6853.     0S0E
  6854. NameLookupPrefWhich Address Books should Notes look in when you are typing in a Names field at this Location.
  6855. Disabled|0Personal Address Book Only|1Personal then Public Address Book|2
  6856. 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.
  6857.     Recipient name lookup:
  6858. ExhaustiveNameLookupChoose how many Address Books will be searched  when resolving a name.
  6859. Stop after first match|0Exhaustively check all address books|1
  6860. MailType
  6861. LocationType
  6862.     3S4S
  6863. If this field is set to Personal and Public Address Books, then the following will occur:
  6864. - in the Mail Address dialog, server Address Books will be available
  6865. - when an E-mail is sent, the names will be checked and must resolve.
  6866.     Mail addressing:
  6867. MailAddressing
  6868. Personal Address Book Only|1Personal and Public Address Book|2
  6869. Number of waiting messages that will force a connection - e.g. 3.
  6870.     Transfer outgoing 
  6871.     mail if:
  6872. MailThreshold
  6873. MailThresholdNumber of waiting messages that will force a connection - e.g. 3.
  6874.      messages pending
  6875. MailServerProtocol
  6876.     0S0E
  6877. MailServerProtocol
  6878.     0S0E
  6879.     Internet Mail
  6880. Choose whether outgoing mail is sent through a Domino server or directly to the Internet via SMTP
  6881.     Send outgoing mail:
  6882. MailServerProtocol
  6883. MailServerProtocol
  6884. SMTPRoute
  6885.     3S4S5S6S7S
  6886. SMTPRoute
  6887. MailServerProtocol
  6888. directly to Internet|1
  6889. through Domino Server|0
  6890. directly to Internet|1
  6891.     3S4S5S6S7S8S
  6892. Address used for replies to mail which you send directly to the Internet. This address appears in the From field.
  6893.     Internet mail address:
  6894. MailServerProtocol
  6895. ImailAddress
  6896. You must enter an Internet mail address if your mail system is set to Internet.
  6897.     5S6S
  6898. ImailAddress
  6899. Enter the name of the server to connect to when sending mail directly to the Internet.  The server must be running the SMTP protocol.
  6900.     Outgoing (SMTP) internet mail server:
  6901. ImailSMTPServer
  6902. MailServerProtocol
  6903. SMTPRoute
  6904. You must enter an Outgoing internet mail server if your mail system is set to Internet.
  6905.     5S6S9S10SImailSMTPServer
  6906. MailServerProtocol
  6907. MailServerProtocol
  6908. MailType
  6909.     5S6S10S11S
  6910. Enter the name of the server from which to retrieve Internet mail.  You must have an account and a mail drop on this server, and the server must be running the POP3 protocol.
  6911.     Incoming internet mail server:
  6912. ImailServer
  6913. MailServerProtocol
  6914. You must enter an Incoming internet mail server if your mail system is set to Internet.
  6915.     5S6S
  6916. ImailServer
  6917. Enter the name of your mail account for the POP3 server you connect to in order to retrieve your mail.
  6918.     Internet username:
  6919. MailServerProtocol
  6920. ImailUsername
  6921. You must enter a valid Internet username when your mail system is set to Internet.{
  6922.     5S6S
  6923. ImailUsername
  6924. Enter the password for your POP3 account.
  6925.     Internet password:
  6926. ImailPassword
  6927. Internet Password
  6928. Enter your Internet Password.  NOTE: To protect the password, you must encrypt the document with your Public Key.  To do this use the Doc. Properties InfoBox.
  6929.  @  @@ @` @
  6930. @@ @@@@@`@@
  6931. `@ `@@`@``@
  6932. Choose No to delete mail after retrieval from the POP3 server.  Choose Yes for all mail to remain on the server.
  6933.     Leave mail on server:
  6934. PopDeleteMail
  6935. Yes|0No|1
  6936. Choose Yes to use SSL when connecting to the POP3 server when retrieving your mail.  Choose No for communication with the server to be sent in clear text.  If you choose Yes, the POP3 server must support SSL.
  6937.     Use SSL:
  6938. ImailUseSSL
  6939. Yes|1No|0
  6940. Enter the port to use when connecting to the POP3 server.  By default, most servers use port 110 for non SSL connections, and port 995 for SSL connections.
  6941.     Port:
  6942. ImailPort
  6943. Advanced
  6944. Choose the correct time zone to be used at this Location.
  6945.     Local time zone:
  6946.     0S0E
  6947. TimeZoneChoose the correct time zone to be used at this Location.$
  6948. Greenwich Mean Time|0One hour west of GMT|1Two hours west of GMT|2Three hours west of GMT|3Newfoundland|3003Atlantic Standard Time|4Eastern Standard Time|5Central Standard Time|6Mountain Standard Time|7Pacific Standard Time|8Yukon Standard Time|99 1/2 hours west of GMT|3009Alaska-Hawaii Standard Time|10Bering Standard Time|11Twelve hours west of GMT|1212 3/4 hours east of GMT|-4512Twelve hours east of GMT|-1211 1/2 hours east of GMT|-301111 hours east of GMT|-1110 1/2 hours east of GMT|-301010 hours east of GMT|-109 1/2 hours east of GMT|-30099 hours east of GMT|-98 hours east of GMT|-87 hours east of GMT|-76 1/2 hours east of GMT|-30066 hours east of GMT|-65 3/4 hours east of GMT|-45055 1/2 hours east of GMT|-30055 hours east of GMT|-54 1/2 hours east of GMT|-30044 hours east of GMT|-43 1/2 hours east of GMT|-30033 hours east of GMT|-32 hours east of GMT|-2Central European Time|-1
  6949. 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.
  6950.     Secondary TCP/IP 
  6951.     Notes name server:
  6952. TCPNameServerThe Notes server name to be contacted for Address Book information in the event that your home server is unavailable on the TCP network.
  6953. Choose Observed here if at this location Daylight Savings time is observed.
  6954.     Daylight savings time:
  6955. Observed here
  6956. DSTChoose Observed here if at this location Daylight Savings time is observed.
  6957. Observed here|1Not observed here|0
  6958. 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
  6959.     Secondary TCP/IP host name or address:
  6960. 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.
  6961. Use * if this Location can be used by all users, or fill in a user name if only for a specific user.
  6962.     Only for user:
  6963.     0S0E
  6964. Source^
  6965.     0S0E
  6966. SourceUse * if this Location can be used by all users, or fill in a user name if only for a specific user.
  6967. 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.
  6968.     Secondary NDS
  6969.     Notes name server:
  6970. NDSNameServer
  6971. NDSNameServerAddress
  6972. You must enter a Secondary NDS name server address if you are specifying a Secondary NDS Notes name server.
  6973.     5S6S
  6974. 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.
  6975. Path and file name of the user ID to be used when switching to this Location.
  6976.     User ID to switch to:
  6977. Choose path for  ID file:
  6978.     0S0E
  6979. UserID
  6980. UserID
  6981.     0R1S
  6982. ?_?__
  6983. `!b`1
  6984. 7`^///?
  6985. ?b___
  6986. `bOOO
  6987. `<b!R
  6988. UserIDPath and file name of the user ID to be used when switching to this Location.
  6989. 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
  6990.     Secondary NDS name server address:
  6991. NDSNameServer
  6992. NDSNameServerAddress
  6993. You must enter a Secondary NDS Notes name server if you are specifying a Secondary NDS name server address.
  6994.     5S6S
  6995. 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.
  6996. Specify whether to autoload images when a document is first loaded.
  6997.     Load images:
  6998. ImagesSpecify whether to autoload images when a document is first loaded.
  6999. Always|0On request|1
  7000.     Remote LAN idle timeout:
  7001. RLANIdleTimeout
  7002.      minutes
  7003.     Web Retriever Configuration
  7004.     Web Navigator database:
  7005. perweb.nsf
  7006. WebDbName
  7007. The maximum number of concurrent Web retriever processes permitted at one time.
  7008.     Concurrent retrievers:
  7009. WebRetrieversThe maximum number of concurrent Web retriever threads/processes permitted at one time.
  7010. 23456
  7011. Specify the log level of messages logged to LOG.NSF by the Web Retriever.
  7012.     Retriever log level:
  7013. WebLogLevelSpecify the log level of messages logged to LOG.NSF by the Web Retriever.
  7014. None|0Terse|1Verbose|2
  7015.     Update cache:
  7016. WebUpdateCache
  7017. Never|0Once per session|1Every time|2
  7018. Choose Yes to accept certificates from an unknown certifying authority.
  7019. Choose No not to accept certificates from unknown certifying authorities.
  7020.     Accept SSL site certificates:
  7021. SSLSiteCerts
  7022. Yes|1No|0
  7023. Choose Yes to force SSL to accept remote certificates which have expired.
  7024. Choose No to enforce certificate expiration dates.
  7025.     Accept expired SSL certificates:
  7026. SSLExpiredCerts
  7027. Yes|1No|0
  7028. Choose the SSL protocol version that you want to connect with.  
  7029. V2.0 only - Uses SSL V2.0 handshake and protocol only
  7030. V3.0 handshake - Uses SSL V3.0 handshake and negotiated protocol
  7031. V3.0 only - Uses SSL V3.0 handshake and protocol only
  7032. V3.0 with V2.0 handshake - Uses SSL V2.0 handshake with negotiated protocol
  7033. Negotiated - allow SSL to determine handshake and protocol
  7034.     SSL protocol version:
  7035. SSLProtocolVersion
  7036. V2.0 only|1V3.0 handshake|2V3.0 only|3V3.0 with V2.0 handshake|4Negotiated|0
  7037.     Java Applet Security
  7038. List of host domains where Java applets are assumed to be safe -- e.g., 205.159.212.*, www.trustedhost.com
  7039.     Trusted hosts:
  7040. JavaSecureDomainList of host domains where Java applets are assumed to be safe -- e.g., 205.159.212.*, www.trustedhost.com
  7041. Network access granted to Java applets originating from hosts listed by 'Trusted Hosts' above.
  7042.     Network access for trusted hosts:
  7043. JavaAllowInSecureDomainNetwork access granted to Java applets originating from hosts listed by "Trusted Hosts" above.
  7044. Disable Java|0No access allowed|1Allow access only to originating host|2Allow access to any trusted host|3Allow access to any host|4
  7045. Network access granted to Java applets originating from hosts other than those listed by 'Trusted Hosts' above.
  7046.     Network access for untrusted hosts:
  7047. JavaAllowInOtherDomainsNetwork access granted to Java applets originating from hosts other than those listed by 'Trusted Hosts' above.
  7048. Disable Java|0No access allowed|1Allow access only to originating host|2
  7049. Trust HTTP proxy to consistently resolve host names to IP addresses.
  7050.     Trust HTTP proxy:
  7051. JavaTrustHTTPProxyTrust HTTP proxy to consistently resolve host names to IP addresses.
  7052. Yes|1No|0
  7053. Administration
  7054. Full name of person allowed to modify this document.
  7055.     Owner:
  7056. Owner
  7057. Enter the names or group names which should have edit capabilities for this record.
  7058.     Administrators
  7059. LocalAdmin
  7060. AreaCode
  7061. Location
  7062.     0S0E
  7063. DocumentAccess
  7064. $LocationVersion
  7065. ProxyFlag
  7066. Use same proxy for all Internet protocols.|1
  7067. ProxyFlag
  7068. Proxy_FTP
  7069. Proxy_FTP
  7070. Proxy_HTTP
  7071. ProxyFlag
  7072. Proxy_HTTP
  7073. Proxy_FTP
  7074.     11S15S16SProxy_FTP
  7075. ProxyFlag
  7076. Proxy_Gopher
  7077. Proxy_Gopher
  7078. Proxy_HTTP
  7079. ProxyFlag
  7080. Proxy_HTTP
  7081. Proxy_Gopher
  7082.     8S15S16S
  7083. Proxy_Gopher
  7084. ProxyFlag
  7085. Proxy_SSL
  7086. Proxy_SSL
  7087. Proxy_HTTP
  7088. Proxy_Flag
  7089. Proxy_HTTP
  7090. Proxy_SSL
  7091.     8S13S14S
  7092. Proxy_SSL
  7093. ProxyFlag
  7094. UseProxyforNotes
  7095. Proxy_HTTP
  7096. ProxyFlag
  7097. UseProxyforNotes
  7098. Proxy_NotesHTTP
  7099.     5S6S15S16S
  7100. Proxy_NotesHTTP
  7101. Proxy_SOCKS
  7102. No_Proxy
  7103. MailServerProtocol
  7104. ImailPassword
  7105. You must enter a valid Internet password when your mail system is set to Internet.{
  7106.     5S6S
  7107. ImailPassword
  7108. Save and Close>
  7109.     0S0E
  7110.     0S0E
  7111. _Edit Location
  7112. Categori_ze 
  7113. Send Docu_ment
  7114. _Forward
  7115. _Move to Folder...
  7116. _Remove from Folder...
  7117. O=Lotus Notes
  7118. O=Lotus Notes
  7119. PURSAFO
  7120. |.:#U
  7121. O=Lotus Notes
  7122. CN=Lotus Notes Template Development/O=Lotus Notes
  7123. PURSAFO
  7124. Fde!f^^
  7125. 5}R")
  7126. Interval_1
  7127. Interval_2
  7128. IntervalHigh
  7129. IntervalLow
  7130. FreqHigh
  7131. FreqLow
  7132. Card_No
  7133. Card_No_1
  7134. IntervalMed
  7135. $$FormQuerySaveAction
  7136. $TITLE
  7137. $FormUsers
  7138. $INFO
  7139. $WINDOWTITLE
  7140. $$Script_O
  7141. $$ScriptName
  7142. $$FormScript
  7143. $$$FormScript_O
  7144. $$FormAction2
  7145. $$Proxy_HTTP
  7146. $Proxy_HTTP_O
  7147. Schedule
  7148. Interval
  7149. MailThreshold
  7150. RLANIdleTimeout
  7151. $BODY
  7152. $ACTIONS
  7153. &Arial
  7154. (ProxyDialog)'++LotusScript Development Environment:2:5:(Options):0:66
  7155. '++LotusScript Development Environment:2:5:(Forward):0:1
  7156. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  7157. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7158. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7159. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7160. Private Sub BindEvents(Byval Objectname_ As String)
  7161.      Static Source As NOTESUIDOCUMENT
  7162.      Set Source = Bind(Objectname_)
  7163.      On Event Querysave From Source Call Querysave
  7164.      On Event Queryclose From Source Call Queryclose
  7165. End Sub
  7166. '++LotusScript Development Environment:2:2:Querysave:1:12
  7167. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  7168.      
  7169. End Sub
  7170. '++LotusScript Development Environment:2:2:Queryclose:1:12
  7171. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  7172.      Dim w As New NotesUIWorkspace 
  7173.      Dim s As New NotesSession
  7174.      Dim db As NotesDatabase
  7175.      Dim doc As NotesDocument
  7176.      Set db = s.CurrentDatabase
  7177.      Dim uidoc As notesuidocument
  7178.      Set uidoc=w.currentdocument
  7179.      Set doc = uidoc.document
  7180.      
  7181.      If doc.ProxyFlag(0) = "1" Then
  7182.           doc.Proxy_FTPI = doc.Proxy_HTTPI(0)
  7183.           doc.Proxy_GopherI = doc.Proxy_HTTPI(0)
  7184.           doc.Proxy_SSLI = doc.Proxy_HTTPI(0)
  7185.           doc.Proxy_HTTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7186.           doc.Proxy_FTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7187.           doc.Proxy_Gopher=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7188.           doc.Proxy_SSL=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7189.           doc.Proxy_SOCKs=doc.Proxy_SOCKsI(0)&":"&doc.Port5(0)
  7190.           If doc.Proxy_NotesHTTPI(0) <>"" Then
  7191.                doc.Proxy_NotesHTTP=doc.Proxy_NotesHTTPI(0)&":"&doc.Port6(0)
  7192.           End If
  7193.           Call uidoc.refresh
  7194.      End If
  7195. End Sub
  7196. '++LotusScript Development Environment:2:5:(Options):0:66
  7197. '++LotusScript Development Environment:2:5:(Forward):0:1
  7198. Declare Sub Exiting(Source As Field)
  7199. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7200. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7201. Private Sub BindEvents(Byval Objectname_ As String)
  7202.      Static Source As FIELD
  7203.      Set Source = Bind(Objectname_)
  7204.      On Event Exiting From Source Call Exiting
  7205. End Sub
  7206. '++LotusScript Development Environment:2:2:Exiting:1:12
  7207. Sub Exiting(Source As Field)
  7208.      Dim w As New NotesUIWorkspace 
  7209.      Dim s As New NotesSession
  7210.      Dim db As NotesDatabase
  7211.      Dim doc As NotesDocument
  7212.      Set db = s.CurrentDatabase
  7213.      Dim uidoc As notesuidocument
  7214.      Set uidoc=w.currentdocument
  7215.      Set doc = uidoc.document
  7216.      
  7217.      If doc.ProxyFlag(0) = "1" Then
  7218.           doc.Proxy_FTPI = doc.Proxy_HTTPI(0)
  7219.           doc.Proxy_GopherI = doc.Proxy_HTTPI(0)
  7220.           doc.Proxy_SSLI = doc.Proxy_HTTPI(0)
  7221.           doc.Proxy_HTTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7222.           doc.Proxy_FTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7223.           doc.Proxy_Gopher=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7224.           doc.Proxy_SSL=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7225.           Call uidoc.refresh
  7226.      End If
  7227. End Sub
  7228. '++LotusScript Development Environment:2:5:(Options):0:66
  7229. '++LotusScript Development Environment:2:5:(Forward):0:1
  7230. Declare Sub Exiting(Source As Field)
  7231. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7232. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7233. Private Sub BindEvents(Byval Objectname_ As String)
  7234.      Static Source As FIELD
  7235.      Set Source = Bind(Objectname_)
  7236.      On Event Exiting From Source Call Exiting
  7237. End Sub
  7238. '++LotusScript Development Environment:2:2:Exiting:1:12
  7239. Sub Exiting(Source As Field)
  7240.      Dim w As New NotesUIWorkspace 
  7241.      Dim s As New NotesSession
  7242.      Dim db As NotesDatabase
  7243.      Dim doc As NotesDocument
  7244.      Set db = s.CurrentDatabase
  7245.      Dim uidoc As notesuidocument
  7246.      Set uidoc=w.currentdocument
  7247.      Set doc = uidoc.document
  7248.      
  7249.      If doc.ProxyFlag(0) = "1" Then
  7250.           doc.Port2 = doc.Port1(0)
  7251.           doc.Port3 = doc.Port1(0)
  7252.           doc.Port4 = doc.Port1(0)
  7253.           doc.Proxy_HTTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7254.           doc.Proxy_FTP=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7255.           doc.Proxy_Gopher=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7256.           doc.Proxy_SSL=doc.Proxy_HTTPI(0)&":"&doc.Port1(0)
  7257.           Call uidoc.refresh
  7258.      End If
  7259. End Sub
  7260. Proxy_HTTP
  7261. Proxy_HTTPI
  7262. Proxy_HTTPI
  7263. Port1
  7264. Port1
  7265.     10S11S12SProxy_HTTP
  7266. Proxy_FTP
  7267. Proxy_FTPI^
  7268. Proxy_FTPI
  7269. Port2
  7270. Port2
  7271.     10S11S12SProxy_FTP
  7272. Proxy_Gopher
  7273. Proxy_GopherI
  7274. Proxy_GopherI
  7275. Port3
  7276. Port3
  7277.     10S11S12SProxy_Gopher
  7278. Proxy_SSL
  7279. Proxy_SSLI^
  7280. Proxy_SSLI
  7281. Port4
  7282. Port4
  7283.     10S11S12SProxy_SSL
  7284. Proxy_SOCKS
  7285. Proxy_SOCKsI
  7286. Proxy_SOCKsI^
  7287. Port5
  7288. Port5
  7289.     0S0E
  7290. Proxy_SOCKS
  7291. Proxy_NotesHTTP
  7292. Proxy_NotesHTTPI
  7293. Proxy_NotesHTTPI^
  7294. Port6
  7295. Port6
  7296.     0S0E
  7297. Proxy_NotesHTTP
  7298. Proxy_HTTP
  7299. Proxy_HTTP
  7300. Proxy_HTTP
  7301. Proxy_HTTP
  7302.     0S0E
  7303. Proxy_HTTPI
  7304. http://
  7305. Proxy_HTTPI
  7306. http://
  7307. Proxy_HTTPI
  7308.     0S0E
  7309. Proxy_HTTPIEnter the domain name or IP address of your HTTP proxy server.
  7310. Proxy_HTTP
  7311. Proxy_HTTP
  7312.     0S0E
  7313. Port1Enter the port address of the HTTP proxy server.
  7314. ProxyFlag
  7315. Use same proxy for Internet protocols|1
  7316. ProxyFlag
  7317.     0S0E
  7318. Proxy_FTP
  7319.     0S0E
  7320. ProxyFlag
  7321. Proxy_HTTPI
  7322. Proxy_FTPIa
  7323. http://
  7324. Proxy_FTPIa
  7325. http://
  7326. Proxy_FTPI
  7327.     30SProxy_FTPIEnter the domain name or IP address of your FTP proxy server.
  7328. Proxy_FTP
  7329. Proxy_FTP
  7330.     0S0E
  7331. Port2Enter the port address of the FTP proxy server.
  7332. Proxy_Gopher
  7333.     0S0E
  7334. ProxyFlag
  7335. Proxy_HTTPI
  7336. Proxy_GopherI
  7337. http://
  7338. Proxy_GopherI
  7339. http://
  7340. Proxy_GopherI
  7341.     30SProxy_GopherIEnter the domain name or IP address of your Gopher proxy server.
  7342. Proxy_Gopher
  7343. Proxy_Gopher
  7344.     0S0E
  7345. Port3Enter the port address of the Gopher proxy server.
  7346. Proxy_SSL
  7347.     0S0E
  7348. ProxyFlag
  7349. Proxy_HTTPI
  7350. Proxy_SSLIa
  7351. http://
  7352. Proxy_SSLIa
  7353. http://
  7354. Proxy_SSLI
  7355.     0S0E
  7356. Proxy_SSLI
  7357. Port4
  7358. The length of the SSL Security proxy cannot be greater than 250 characters.  Consider entering the IP address instead.{
  7359.     7S8S12S15S
  7360. Proxy_SSLIEnter the domain name or IP address of your SSL security proxy server.
  7361. Proxy_SSL
  7362. Proxy_SSL
  7363.     0S0E
  7364. Port4Enter the port address of the SSL security proxy server.
  7365. Proxy_SOCKS
  7366. Proxy_SOCKS
  7367.     0S0E
  7368. Proxy_SOCKSI
  7369. Port5
  7370. The length of the SOCKS proxy cannot be greater than 250 characters.  Consider entering the IP address instead.
  7371.     7S8S12S15S
  7372. Proxy_SOCKSIEnter the domain name or IP address of your SOCKS proxy server.
  7373. Proxy_SOCKs
  7374. Proxy_SOCKs
  7375.     0S0E
  7376. Port5Enter the port address of the SOCKS proxy server.
  7377. Proxy_NotesHTTP
  7378. Proxy_NotesHTTP
  7379.     0S0E
  7380. Proxy_NotesHTTPIa
  7381. http://
  7382. Proxy_NotesHTTPIa
  7383. http://
  7384. Proxy_NotesHTTPI
  7385.     0S0E
  7386. Proxy_NotesHTTPI
  7387. Port6
  7388. The length of the Notes RPC proxy cannot be greater than 250 characters.  Consider entering the IP address instead.
  7389.     7S8S12S15S
  7390. Proxy_NotesHTTPITo use Notes protocols on the Internet (e.g. Replication), enter the domain name or IP address of your HTTP proxy server.
  7391. Proxy_NotesHTTP
  7392. Proxy_NotesHTTP
  7393.     0S0E
  7394. Port6Enter the port address of the HTTP proxy server.
  7395. No_Proxy^
  7396.     0S0E
  7397. 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.
  7398.     HTTP:
  7399.     SSL Security:
  7400.     Gopher:
  7401.     FTP:
  7402.     SOCKS:
  7403.     Port:
  7404.     Notes RPC:
  7405.     No proxy for these hosts or domains:
  7406.     Proxy type:
  7407. ProxyFlag
  7408.     0S0E
  7409. ProxyFlag
  7410. Proxy_HTTPI
  7411. Proxy_FTP
  7412.     0S0E
  7413. Proxy_FTPD
  7414. ProxyFlag
  7415. Port1
  7416. Proxy_FTP
  7417.     0S0E
  7418. Port2D
  7419. ProxyFlag
  7420. Proxy_HTTPI
  7421. Proxy_Gopher
  7422.     0S0E
  7423. Proxy_GopherD
  7424. ProxyFlag
  7425. Port1
  7426. Proxy_Gopher
  7427.     0S0E
  7428. Port3D
  7429. ProxyFlag
  7430. Proxy_HTTPI
  7431. Proxy_SSL
  7432.     0S0E
  7433. Proxy_SSLD
  7434. ProxyFlag
  7435. Port1
  7436. Proxy_SSL
  7437.     0S0E
  7438. Port4D
  7439. '++LotusScript Development Environment:2:5:(Options):0:66
  7440. '++LotusScript Development Environment:2:5:(Forward):0:1
  7441. Declare Sub Click(Source As Button)
  7442. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7443. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7444. Private Sub BindEvents(Byval Objectname_ As String)
  7445.      Static Source As BUTTON
  7446.      Set Source = Bind(Objectname_)
  7447.      On Event Click From Source Call Click
  7448. End Sub
  7449. '++LotusScript Development Environment:2:2:Click:1:12
  7450. Sub Click(Source As Button)
  7451.      Dim session As New NotesSession
  7452.      Dim platform As String
  7453.      Dim x As Integer
  7454.      Dim boxtype As Long
  7455.      boxtype = 4 + 64
  7456.      platform=session.Platform
  7457.      
  7458.      If platform <> "Macintosh" Then
  7459.           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" )
  7460.           If x = 7 Then
  7461.                Exit Sub
  7462.           End If
  7463.           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" )
  7464.           If x = 7 Then
  7465.                Exit Sub
  7466.           End If
  7467.           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" )
  7468.           Exit Sub
  7469.      End If
  7470.      If platform = "Macintosh" Then
  7471.           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" )
  7472.           If x = 7 Then
  7473.                Exit Sub
  7474.           End If
  7475.           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" )
  7476.           If x = 7 Then
  7477.                Exit Sub
  7478.           End If 
  7479.           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" )
  7480.           If x = 7 Then
  7481.                Exit Sub
  7482.           End If
  7483.           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" )
  7484.           If x = 7 Then
  7485.                Exit Sub
  7486.           End If          
  7487.           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" )
  7488.           If x = 7 Then
  7489.                Exit Sub
  7490.           End If     
  7491.           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" )
  7492.           If x = 7 Then
  7493.                Exit Sub
  7494.           End If               
  7495.           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" )
  7496.           Exit Sub
  7497.      End If
  7498. End Sub
  7499.  @  @@ @` @
  7500. @@ @@@@@`@@
  7501. `@ `@@`@``@
  7502. O=Lotus Notes
  7503. O=Lotus Notes
  7504. PURSAFO
  7505. |.:#U
  7506. O=Lotus Notes
  7507. CN=Lotus Notes Template Development/O=Lotus Notes
  7508. PURSAFO
  7509. Fde!f^^
  7510. $TITLE
  7511. $INFO
  7512. $$Script_O
  7513. $$ScriptName
  7514. $$FormScript
  7515. $$$FormScript_O
  7516. $$Proxy_HTTPI
  7517. $Proxy_HTTPI_O
  7518. $$Port1
  7519. $Port1_O
  7520. $BODY
  7521.