ISExternalProvider.PreferredCorrespondenceMethod

Example

Display the preferred correspondence method for the external provider.

Dim aExtProvider 
Dim aCode
Dim aMethod
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

select case aExtProvider.PreferredCorrespondenceMethod
  case 1
    aMethod = "Print"
  case 2
    aMethod = "Fax"
  case 3
    aMethod = "EMail"
  case 4
    aMethod = "Message"
  case else
    aMethod = "Unknown"
end Select


aMessage = aMessage & vbNewLine & aExtProvider.FullName &_
  " has Preferred Correspondence Method '" & aMethod & "'"
 
Profile.MsgBox(aMessage)