ISProvider.SetPhotoId

Description

This function sets the photo ID to the provider.

Syntax

object.SetPhotoId aValue

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface
`aValue`	In, Required	object	The photo ID to set

Example

Set the photo ID to the provider.

Dim aProvider
Dim aImageStream
Dim aHTML 
Dim aProviderPhotoId

Set aProvider = Profile.LoadProvider("VE3")
set aImageStream = Profile.MakeStream
aImageStream.LoadFromFile("d:\Pictures for Import\PictureForProvider.jpg")
aProvider.SetPhotoId(aImageStream)
aProvider.Save

aHTML = "<HTML><HEAD><TITLE>Profile Providers</TITLE></HEAD><BODY>" &_
  "<H1>" & aProvider.FullName & " (" & aProvider.Code & ")</H1>"

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

Profile.ShowHTML aHTML, "Profile Provider"

Note:

In Profile Client v8 on User Interface Photo ID can be found and set in Organisation > People&Places > People and Places > Open the selected Provider > Personal > Photo ID.

Version information

Added in v7.11.0

parameter aValue added in v7.11.0

parameter aPhotoId removed in v7.11.0