DominoArea.org [Archive]

Cette méthode vous permet de récupérer la version de notes d'un client. Elle envoie un message à l'administrateur ou au groupe administrateurs avec le nom de l'utilisateur et sa version.[syntax="ls"]Dim s As New notessession
Dim db As notesdatabase
Set db = s.currentdatabase

Dim x As Integer
x = s.getenvironmentvalue("Verifier")
If x <> 1 Then
Call s.setenvironmentvar("Verifier", 1)

Dim doc As notesdocument
Set doc = db.createdocument

doc.Subject = "Ma version de Lotus Notes"
doc.form = "Memo"
doc.sendto = "Administrateur"
Dim rtitem As notesrichtextitem
Set rtitem = New NotesRichTextItem(doc, "Body")
Call rtitem.appendtext(s.commonusername)
Call rtitem.addnewline(1)
Call rtitem.appendtext(s.notesversion)
doc.send(True)
End If[/syntax]

Bonjour,

Soit dans un bouton ou dans un agent.