[LS] - Version du client lotus notes

[oguruma]

Développant actuellement une base V4/V5 dans laquelle j'offre soit une frameset soit un navigateur V4, j'ai besoin de tester la version à l'ouverture de la base...

alors autant vous en faire bénéficier

Dim vVersion as variant
Dim iVersion as integer
Dim s As New NotesSession
Dim db As NotesDatabase
Set db = s.CurrentDatabase
vVversion = Evaluate("@Version")
iVersion=Cint(vVersion(0))
'// si iVersion est inférieur à 166 vous êtes en V4 sinon en version supérieure
if iVersion < 166 Then
msgbox "pas de bol !!!"
else
msgbox "tu as gagné le gros lot !!!"
end if

[Michael DELIQUE]

voici la fonction que j'utilise

Code : Tout sélectionner

Function TestVersionNotes(wVersionMini As Integer) As Variant
      'Déclaration Variable
   Dim Version As String
   
   On Error Goto ErreurTestVersionNotes
   
   If Session Is Nothing Then
      Set Session = New NotesSession
   End If
   
   If Session.NotesBuildVersion<wVersionMini Then
      Version = ""
      Select Case Trim(Cstr(wVersionMini ))
      Case "700"
         Version = "7.xx"
      Case "194"
         Version = "6.5x"
      Case "190"
         Version = "6.xx"
      Case "166"
         Version = "5.xx"
      Case "147"
         Version = "4.6x"
      Case "145"
         Version = "4.5x"
      Case "138"
         Version = "4.1x"
      Case "136"
         Version = "4.xx"
      Case "114"
         Version = "3.xx"
      End Select
      Msgbox "Vous ne pouvez pas utiliser cette application,"+Chr(10)+ "car vous n'avez de client Lotus Notes version "+Version+" ou supérieur.",48," ATTENTION !"
      TestVersionNotes=False   
   Else
      TestVersionNotes=True
   End If   
   Exit Function
ErreurTestVersionNotes:
   Msgbox "(TestVersionNotes) Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   TestVersionNotes = True
   Exit Function
End Function