The street address of the external provider.
object.StreetAddress
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISExternalProvider interface |
Display the street address of the external provider.
Dim aExtProvider
Dim aCode
Dim aExProviderStrAddress
Dim aMessage
aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)
if aExtProvider.ID = 0 then
Profile.MsgBox("No external provider with the specified code")
exit sub
end if
set aExProviderStrAddress = aExtProvider.StreetAddress
if aExProviderStrAddress is nothing then
aMessage = aMessage & vbNewLine & aExtProvider.FullName &_
" has no street address"
else
aMessage = aMessage & vbNewLine & aExtProvider.FullName &_
"'s street address: " & aExProviderStrAddress.AsLine
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Street Address can be found in
.