ISPostCode.CountryCode

Description

The code of the country that is related to the specified post code.

Syntax

object.CountryCode

Part	Attribute	Type	Description
`object`	Required	ISPostCode	The `object` always implements the ISPostCode interface

Restriction: This property is readonly.

Return Value

string

Example

Display some information about the post code, including the code of the related country.

Dim aPostCode
Dim aRegions, aRegion
Dim aMessage
Dim i  

set aPostCode = Profile.LookupPostCode("", "Mara", "CAN", "BC")
if aPostCode is nothing then
  exit sub
end if
set aRegions = aPostCode.Regions
  
aMessage =_
  "Country Code: " & VbTab & aPostCode.CountryCode & vbNewLine &_
  "Address 2: " & VbTab & aPostCode.Address2 & vbNewLine &_
  "Address 3: " & VbTab & aPostCode.Address3 & vbNewLine &_
  "Country Code: " & VbTab & aPostCode.CountryCode & vbNewLine &_
  "Post Code ID: " & VbTab & aPostCode.ID & vbNewLine &_
  "Latitude: " & VbTab & aPostCode.Latitude & vbNewLine &_ 
  "Longitude: " & VbTab & aPostCode.Latitude & vbNewLine &_     
  "Postal Code: "  & VbTab & aPostCode.PostalCode & vbNewLine &_
  "State Code: "  & VbTab & aPostCode.StateCode & vbNewLine &_
  "Regions Count: " & VbTab & aRegions.Count
  
for i = 0 to aRegions.Count - 1
  set aRegion = aPostCode.Regions.Item(i)
  aMessage = aMessage & vbNewLine &_
    "--- Region " & (i + 1) & " ---- " & vbNewLine &_  
    "    Code: " & VbTab & VbTab & aRegion.Code & VbTab & vbNewLine &_   
    "    Name: " & VbTab & aRegion.Name & vbNewLine &_  
    "    ID: " & VbTab & VbTab & aRegion.ID
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Country Code cannot be found, but Country can be found in Maintain > Post Codes > Post Codes.

Version information

Added in v7.8.0