The street address of the provider.
object.StreetAddress
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
Display the street address of the provider.
Dim aFilter
Dim aProviders
Dim aProvider
Dim aProviderStrAddress
Dim aMessage
Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
"The number of the providers is " & aProviders.Count
for each aProvider in aProviders
set aProviderStrAddress = aProvider.StreetAddress
if aProviderStrAddress is nothing then
aMessage = aMessage & vbNewLine & aProvider.FullName &_
" has no street address"
else
aMessage = aMessage & vbNewLine & aProvider.FullName &_
"'s street address is " & aProviderStrAddress.AsLine
end if
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Street Address can be found in
.