ISExternalProvider.EDIPublicKey

Description

The external provider's EDI public key.

Syntax

object.EDIPublicKey

Part Attribute Type Description
object Required
The object always implements the ISExternalProvider interface

Return Value

string

Example

Display the external provider's EDI public key.

Dim aExtProvider 
Dim aCode
Dim aMessage

aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  aMessage = "No external provider with the specified code" 
else
  aMessage = aMessage & vbNewLine &_
    "Full Name:" & vbTab & "EDI Public Key:" & vbNewLine & vbNewLine &_
    aExtProvider.FullName & vbTab & aExtProvider.EDIPublicKey
end if
 
Profile.MsgBox(aMessage)  
Note:

In Profile Client v8 on User Interface EDI Public Key can be found in Organisation > External Providers > Basic > Reference > EDI Public Key field.

Version information

Added in v7.8.0