// Ouverture d'une session Lotus Notes
IDSession est un entier
IDSession = EmailOuvreSessionNotes("MotDePasse", "ServeurMars", ...
                        "mail/julie.nsf", "C:\Lotus Notes\julie.id")
// Initialisation des variables de la structure RendezVous 
RendezVousRAZ()
// Renseignements des variables pour le nouveau rendez-vous 
mRendezVous.Objet = "Présentation de produits PCSOFT" 
mRendezVous .DateDébut = "2008020100000" 
mRendezVous .Lieu = "PARIS"
mRendezVous . NbParticipant = 2
mRendezVous . Participant [1] =  "WinDev"
mRendezVous . Participant [2] =  "WebDev"
mRendezVous . Participant [3] =  "WDMobile" 
// Ajout du rendez-vous 
SI RendezVousAjoute (IDSession) = Vrai ALORS
   Info("Rendez-vous ajouté")
SINON
   Erreur("Erreur lors de l'ajout", ErreurInfo())
FIN