UpsMls.ClientMessagerie.AjouterAbonne


Rappel AjouterAbonne(NomAbonnement : Caractere, UtilisateurAbonne : Nul Ou Utilisateur);

Description

La méthode de rappel AjouterAbonne est appelée dès lors que le client demande au serveur d'abonner l'utilisateur UtilisateurAbonne à l'abonnement de nom NomAbonnement.

La valeur de retour doit suivre la convention de fonctionnement de l'énuméré RappelReponse.

Cette méthode de rappel correspond à la réception de la commande SUBSCRIBE du protocole Internet Message Access Protocol (IMAP).

Exemple


/****************************************************************/

Rappel ClientMessagerie.AjouterAbonne(NomAbonnement : Caractere, UtilisateurAbonne : Nul Ou Utilisateur)

/* Objet : Ajoute l'abonné. */

/****************************************************************/

Variable

/******/

   MonAbonnement : Nul Ou AbonnementElectronique;


   
Debut

Si ActiverJournal Alors

   EcrireJournal(Nul, "AjouterAbonne("+NomAbonnement+","+UtilisateurAbonne.NomUtilisateur+")");

Fin Si

MonAbonnement=AbonnementElectronique(NomAbonnement);

MonAbonnement.AjouterAbonne(UtilisateurAbonne);

Retourner RappelSucces;

Fin Rappel

Voir aussi

ListerAbonnes pour lister les abonnés. SupprimerAbonne pour désabonner un utilisateur.

Traduction


-	-	-	-	-	-	-	-	-