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
- | - | - | - | - | - | - | - | - |