Tester la version du client Notes

[Michael DELIQUE]

Code : Tout sélectionner

Public Function TestVersionNotes(wVersionMini As Integer,wnbDisplayMessage As Boolean) As Variant
      'Déclaration Variable
   Dim Version As String
   
   On Error Goto ErreurHandle
   
   TestVersionNotes=True
   
   If Session Is Nothing Then
      Set Session = New NotesSession
   End If
   
   If Session.NotesBuildVersion<wVersionMini Then
      If wnbDisplayMessage = True Then
         Select Case Abs(wVersionMini )
         Case 368
            Version = "8.5.1"
         Case 359
            Version = "8.5.0"
         Case 324 To 358
            Version ="8.0.X"
         Case 323
            Version = "8.0.2"
         Case 322
            Version = "8.0.1"
         Case 307
            Version = "8.0"
         Case 267 To 306
            Version = "7.0.X"
         Case 266
            Version = "7.0.3"
         Case 265
            Version = "7.0.2"
         Case 261
            Version = "7.0.1"
         Case 256
            Version = "7.0"
         Case 200 To 255
            Version = "6.5.X"
         Case 199
            Version = "6.5.6"
         Case 198
            Version = "6.5.5"
         Case 196
            Version = "6.5.4"
         Case 195
            Version = "6.0.4, 6.5.3"
         Case 194
            Version = "6.0.3, 6.5.0, 6.5.1, 6.5.2"
         Case 191
            Version ="6.0.2"
         Case 190
            Version = "6.0, 6.0.1"
         Case 166
            Version = "5.xx"
         Case 147
            Version = "4.6x"
         Case 145
            Version = "4.5x"
         Case 138
            Version = "4.1x"
         Case 136
            Version = "4.0x"
         Case 114
            Version = "3.xx"
         End Select
         
         Msgbox "Vous ne pouvez pas utiliser cette application,"+Chr(10)+ "car vous n'avez de pas client Lotus Notes version "+Version+" ou supérieur.",48," ATTENTION !"
      End If
      TestVersionNotes=False   
   End If   
   Exit Function
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Set Session = New NotesSession   
   TestVersionNotes = True
   Exit Function
End Function