// Ouverture d'une session Lotus Notes
IDSession is int
IDSession = EmailStartNotesSession("MotDePasse", "ServeurMars", "mail/julie.nsf", "C:\Lotus Notes\julie.id")
// Initialisation des variables de la structure RendezVous
AppointmentReset()
// Renseignements des variables pour le nouveau rendez-vous
mAppointment.Subject = "Réunion commerciaux"
mAppointment.StartDate = "20070125100000"
mAppointment.Location = "Salle 3B"
mAppointment.NbParticipant = 3
mAppointment.Participant[1] = "Romain"
mAppointment.Participant[2] = "Lucas"
mAppointment.Participant[3] = "Stéphane"
// Ajout du rendez-vous
IF AppointmentAdd(IDSession) = True THEN
	Info("Rendez-vous ajouté")
ELSE
	Error("Erreur lors de l'ajout", ErrorInfo())
END