%REM Agent tmpImportCountries Created Apr 3, 2025 by Admin TCC/TCC Description: Import countries %END REM Option Public Option Declare Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase ' this app Dim dbSvr As String ' this server (from db) Dim dbSum As NotesDatabase ' TCC Summary app Dim doc As NotesDocument ' new doc Dim countryStr As String ' list of countries as string Dim countryLst As Variant ' split of countryStr Dim countryNmTrimmed As String ' one value in countryLst ' setup Set db = s.Currentdatabase dbSvr = db.Server Set dbSum = s.GetDatabase(dbSvr, "TCCProjects.nsf", False) If (dbSum Is Nothing) Then Print "Missing TCC Summary app. Cancelled." Exit Sub End If If Not (dbSum.isOpen) Then Print "Unable to open TCC Summary app. Cancelled." Exit Sub End If countryStr = | Afghanistan Aland Islands Albania Algeria American Samoa Andorra Angola Anguilla Antarctica Antigua And Barbuda Argentina Armenia Aruba Australia Austria Azerbaijan Bahrain Bangladesh Barbados Belarus Belgium Belize Benin Bermuda Bhutan Bolivia Bonaire, Sint Eustatius And Saba Bosnia And Herzegovina Botswana Bouvet Island Brazil British Indian Ocean Territory Brunei Bulgaria Burkina Faso Burundi Cambodia Cameroon Canada Cape Verde Cayman Islands Central African Republic Chad Chile China Christmas Island Cocos (Keeling) Islands Colombia Comoros Congo Cook Islands Costa Rica Cote D'Ivoire (Ivory Coast) Croatia Cuba Curaçao Cyprus Czech Republic Democratic Republic of the Congo Denmark Djibouti Dominica Dominican Republic Ecuador Egypt El Salvador Equatorial Guinea Eritrea Estonia Eswatini Ethiopia Falkland Islands Faroe Islands Fiji Islands Finland France French Guiana French Polynesia French Southern Territories Gabon Georgia Germany Ghana Gibraltar Greece Greenland Grenada Guadeloupe Guam Guatemala Guernsey Guinea Guinea-Bissau Guyana Haiti Heard Island And McDonald Islands Honduras Hong Kong S.A.R. Hungary Iceland India Indonesia Iran Iraq Ireland Israel Italy Jamaica Japan Jersey Jordan Kazakhstan Kenya Kiribati Kosovo Kuwait Kyrgyzstan Laos Latvia Lebanon Lesotho Liberia Libya Liechtenstein Lithuania Luxembourg Macau S.A.R. Madagascar Malawi Malaysia Maldives Mali Malta Man (Isle of) Marshall Islands Martinique Mauritania Mauritius Mayotte Mexico Micronesia Moldova Monaco Mongolia Montenegro Montserrat Morocco Mozambique Myanmar Namibia Nauru Nepal Netherlands New Caledonia New Zealand Nicaragua Niger Nigeria Niue Norfolk Island North Korea North Macedonia Northern Mariana Islands Norway Oman Pakistan Palau Palestinian Territory Occupied Panama Papua New Guinea Paraguay Peru Philippines Pitcairn Island Poland Portugal Puerto Rico Qatar Reunion Romania Russia Rwanda Saint Helena Saint Kitts And Nevis Saint Lucia Saint Pierre And Miquelon Saint Vincent And the Grenadines Saint-Barthelemy Saint-Martin (French part) Samoa San Marino Sao Tome And Principe Saudi Arabia Senegal Serbia Seychelles Sierra Leone Singapore Sint Maarten (Dutch part) Slovakia Slovenia Solomon Islands Somalia South Africa South Georgia South Korea South Sudan Spain Sri Lanka Sudan Suriname Svalbard And Jan Mayen Islands Sweden Switzerland Syria Taiwan Tajikistan Tanzania Thailand The Bahamas The Gambia Timor-Leste Togo Tokelau Tonga Trinidad And Tobago Tunisia Turkey Turkmenistan Turks And Caicos Islands Tuvalu Uganda Ukraine United Arab Emirates United Kingdom United States United States Minor Outlying Islands Uruguay Uzbekistan Vanuatu Vatican City State (Holy See) Venezuela Vietnam Virgin Islands (British) Virgin Islands (US) Wallis And Futuna Islands Western Sahara Yemen Zambia Zimbabwe| countryLst = Split(countryStr, Chr$(10) ) ' process ForAll countryNm In countryLst countryNmTrimmed = FullTrim(countryNm) If Not (countryNmTrimmed = "") Then ' create country entry Set doc = dbSum.Createdocument() Call doc.ReplaceItemValue("Form", "KT") Call doc.ReplaceItemValue("KT_Name", "PP_Country") Call doc.ReplaceItemValue("KT_Options", countryNmTrimmed) Call doc.Save(True, False) End If End ForAll End Sub