Page 1 sur 1
Tester la version du client Notes
Publié:
06 Jan 2010 à 08:05par 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