UpsMls.ClientMessagerie.ChangerEtatCourrier


Rappel ChangerEtatCourrier(Courrier : Nul Ou CourrierElectronique, TypeDeLOperation : TypeOperation, 

   EstBrouillon : Booleen, EstEnvoye : Booleen, EstIndesirable : Booleen, EstNonLu : Booleen, EstRecu : Booleen, 
   EstSupprime : Booleen, EstTransfere : Booleen, EstUrgent : Booleen);

Description

La méthode de rappel ChangerEtatCourrier est appelée dès lors que le client demande au serveur de changer l'état du courrier électronique Courrier.

Si les paramètres EstBrouillon, EstEnvoye, EstIndesirable, EstNonLu, EstRecu, EstRepondu, EstSupprime, EstTransfere et EstUrgent ont pour valeur Vrai alors l'opération TypeDeLOperation doit affecter respectivement les états de brouillon, d'envoyé, d'indésirable, non lu, reçu, répondu, supprimé, transféré et urgent du courrier électronique.

Pour plus de précisions sur les opérations possibles, merci de se référer à la fiche TypeOperation.

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 STORE du protocole Internet Message Access Protocol (IMAP).

Exemple


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

Rappel ClientMessagerie.ChangerEtatCourrier(Courrier : Nul Ou CourrierElectronique, TypeDeLOperation : TypeOperation, 

   EstBrouillon : Booleen, EstEnvoye : Booleen, EstIndesirable : Booleen, EstNonLu : Booleen, EstRecu : Booleen,

   EstSupprime : Booleen, EstTransfere : Booleen, EstUrgent : Booleen)

/* Objet : Change l'état du courrier électronique. */

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

Variable

/******/

   MonClient : MonClientMessagerie;


   
Debut

MonClient=MonClientMessagerie(LireExtension("AppMls"));

Si ActiverJournal Alors

   EcrireJournal(MonClient, "ChangerEtatCourrier("+Courrier.Identifiant+")");

Fin Si

Selon TypeDeLOperation Faire

   Cas Pour OperationAjouter Faire
   
      Si EstBrouillon Alors
      
         Courrier.ChangerEtat(CourrierBrouillon);
      
      SinonSi EstEnvoye Alors
      
         Courrier.ChangerEtat(CourrierEnvoye);
      
      SinonSi EstIndesirable Alors
      
         Courrier.ChangerEtatIndesirable(Vrai);
      
      SinonSi EstNonLu Alors
      
         Courrier.ChangerEtatNonLu(Vrai);
      
      SinonSi EstRecu Alors
      
         Courrier.ChangerEtat(CourrierRecu);
      
      SinonSi EstSupprime Alors
      
         Courrier.ChangerEtat(CourrierNonLu);
      
      SinonSi EstTransfere Alors
      
         Courrier.ChangerEtatTransfere(Vrai);
      
      SinonSi EstUrgent Alors
      
         Courrier.ChangerEtatUrgent(Vrai);
      
      Fin Si
   
   Fin Cas

   

   Cas Pour OperationModifier Faire
   
      Si EstBrouillon Et Courrier.Etat!=CourrierBrouillon Alors
      
         Courrier.ChangerEtat(CourrierBrouillon);
      
      SinonSi EstEnvoye Et (Non Courrier.EstEnvoye) Alors
      
         Courrier.ChangerEtat(CourrierEnvoye);
      
      SinonSi EstIndesirable Et (Non Courrier.EstIndesirable) Alors
      
         Courrier.ChangerEtatIndesirable(Vrai);
      
      SinonSi EstNonLu Et (Non Courrier.EstNonLu) Alors
      
         Courrier.ChangerEtat(CourrierNonLu);
      
      SinonSi EstRecu Et (Non Courrier.EstRecu) Alors
      
         Courrier.ChangerEtat(CourrierRecu);
      
      SinonSi EstSupprime Et Courrier.Etat!=CourrierSupprime Alors
      
         Courrier.ChangerEtat(CourrierSupprime);
      
      SinonSi EstTransfere Alors
      
         Si Non Courrier.EstTransfere Alors
         
            Courrier.ChangerEtatTransfere(Vrai);
         
         SinonSi Non Courrier.EstUrgent Alors
         
            Courrier.ChangerEtatUrgent(Vrai);
         
         Fin Si
      
      Fin Si
         
   Fin Cas

   

   Cas Pour OperationSupprimer Faire
   
      Si EstBrouillon Et Courrier.Etat==CourrierBrouillon Alors
      
         Courrier.ChangerEtatNonLu(Vrai);
      
      SinonSi EstEnvoye Et Courrier.EstEnvoye Alors
      
         Courrier.ChangerEtat(CourrierBrouillon);
      
      SinonSi EstIndesirable Et Courrier.EstIndesirable Alors
      
         Courrier.ChangerEtatIndesirable(Faux);
      
      SinonSi EstNonLu Et Courrier.EstNonLu Alors
      
         Courrier.ChangerEtat(CourrierNonLu);
      
      SinonSi EstRecu Et Courrier.EstRecu Alors
      
         Courrier.ChangerEtat(CourrierBrouillon);
      
      SinonSi EstSupprime Et Courrier.Etat==CourrierSupprime Alors
      
         Courrier.ChangerEtat(CourrierBrouillon);
      
      SinonSi EstTransfere Alors
      
         Si Courrier.EstTransfere Alors
         
            Courrier.ChangerEtatTransfere(Faux);
         
         SinonSi Courrier.EstUrgent Alors
         
            Courrier.ChangerEtatUrgent(Faux);
         
         Fin Si
      
      Fin Si
   
   Fin Cas

Fin Selon

Retourner RappelSucces;

Fin Rappel

Traduction


-	-	-	-	-	-	-	-	-