Configuración de favoritos en el 1er logon

Colocando este código en el evento Session_OnStart podemos configurar favoritos predeterminados para todos los usuarios, cuando accedan por 1ra vez

dSession.DebugPrint "Session_OnStart"

' Agrega favoritos predeterminados solo una vez

Dim favs

If dSession.LoggedUser.Settings("FLD_FAVORITES_EXECUTED") <> "1" Then
 AgregarFavorito "//ccrm_root/contactos"
 AgregarFavorito "//ccrm_root/oportunidades"
 AgregarFavorito "//ccrm_root/productos"
 AgregarFavorito 4 ' Cambiar contraseña
 dSession.LoggedUser.Settings("FLD_FAVORITES_EXECUTED") = "1"
End If

Sub AgregarFavorito(fav)
 If Not IsNumeric(fav) Then
  fav = dSession.FoldersGetFromId(1001).App.Folders(CStr(fav)).Id
 End If

 favs = dSession.LoggedUser.Settings("FLD_FAVORITES")
 If InStr("," & favs & ",", "," & fav & ",") = 0 Then
  If favs <> "" Then favs = favs & ","
  favs = favs & fav
 End If 
 dSession.LoggedUser.Settings("FLD_FAVORITES") = favs
End Sub