Rappel AnnulerSuppressionsCourriers();
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 RSET du protocole Post Office Protocol (POP).
/****************************************************************/
Rappel ClientMessagerie.AnnulerSuppressionsCourriers()
/* Objet : Annule la suppression des courriers. */
/****************************************************************/
Variable
/******/
   MonClient : MonClientMessagerie;
   Courrier : Nul Ou CourrierElectronique;
   
Debut
MonClient=MonClientMessagerie(LireExtension("AppMls"));
Si ActiverJournal Alors
   EcrireJournal(MonClient, "AnnulerSuppressionsCourriers()");
Fin Si
Pour Courrier=MonClient.ListeCourriersSupprimes.ParcoursAuDebut() JusquA MonClient.ListeCourriersSupprimes.DernierElement() Faire
   Courrier.Etat=CourrierNonLu;
Fin Pour
MonClient.ListeCourriersSupprimes=Nul;
Retourner RappelSucces;
Fin Rappel
| - | - | - | - | - | - | - | - | - |