ISExternalProvider.GetPhotoId

Description

It is returned as the stream (ISStream), which includes the content of the external provider's photo.

Syntax

object.GetPhotoId()

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

Return Value

object

Example

Display the selected external provider with photo, if any.

Dim aExtProvider
Dim aHTML
Dim aExtProviderPhotoId 
Dim aMessage

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

if aExtProvider.ID = 0  then 
  Profile.MsgBox("No external provider with the specified code") 
  exit sub 
end if

aHTML = aHTML & "<li>" & aExtProvider.FullName & " (" & aExtProvider.Code & ")</li>"

  set aExtProviderPhotoId = aExtProvider.GetPhotoId
  if aExtProviderPhotoId is nothing then 
    aHTML = aHTML & "<p><i>No photo</i></p>" 
  else
    aHTML = aHTML & "<p><img src='data:image/jpeg;base64, " & aExtProviderPhotoId.AsBase64 & "'/></p>"
  end if   
 
aHTML = aHTML & "</BODY></HTML>" 

Profile.ShowHTML aHTML, "Profile Providers"

Note:

In Profile Client v8 on User Interface Photo ID can be found in Organisation > External Providers > Basic > Personal > Photo ID.

Version information

Added in v7.11.0

return type changed from

ISStream to
    object

in v7.11.0