IDSession est un entier
IDSession = EmailOuvreSessionNotes("MotDePasse", "ServeurMars", ...
"mail\julie.nsf", "C:\Users\Julie\AppData\Local\Lotus\Notes\Data\user.id")
GroupeRAZ()
mGroupe.Nom = "Mes amis"
mGroupe.Description = "Groupe de mes amis"
mGroupe.NbContact = 3
mGroupe.Contact[1] = "Pierre"
mGroupe.Contact[2] = "Paul"
mGroupe.Contact[3] = "Jacques"
SI GroupeAjoute(IDSession) = Vrai ALORS
Info("Groupe de contacts ajouté")
SINON
Erreur("Erreur lors de l'ajout", ErreurInfo())
FIN