UpsMls.ClientMessagerie.RecevoirCourrierElectronique


Rappel RecevoirCourrierElectronique(NomFichier : Caractere, ListeDestinataires : ListeDe Caractere, 

   NomRepertoire : Caractere, EstBrouillon : Booleen, EstEnvoye : Booleen, EstIndesirable : Booleen, EstNonLu : Booleen, 

   EstRecu : Booleen, EstRepondu : Booleen, EstSupprime : Booleen, EstTransfere : Booleen, EstUrgent : Booleen);

Description

La méthode de rappel RecevoirCourrierElectronique est appelée dès lors que le client désire transférer un courrier électronique du client vers le serveur.

Le courrier électronique est enregistré dans le fichier de nom NomFichier. Les destinataires du courriers sont listés dans ListeDestinataires.

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

Cette méthode de rappel correspond à la réception des commandes :

DATA, MAIL, SEND, SAML ou SOML du protocole Simple Mail Transfer Protocol (SMTP).
APEND du protocole Internet Message Acces Protocol (IMAP).

Exemple


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

Rappel ClientMessagerie.RecevoirCourrierElectronique(NomFichier : Caractere, ListeDestinataires : ListeDe Caractere, 

   NomRepertoire : Caractere, EstBrouillon : Booleen, EstEnvoye : Booleen, EstIndesirable : Booleen, EstNonLu : Booleen, 

   EstRecu : Booleen, EstRepondu : Booleen, EstSupprime : Booleen, EstTransfere : Booleen, EstUrgent : Booleen)

/* Objet : Recoit le courrier électronique. */

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

Variable

/******/

   AdresseElectronique : Caractere;

   UtilisateurProprietaire : Nul Ou Utilisateur;

   BoiteAuxLettres : Nul Ou BoiteAuxLettresElectronique;



Debut

Si ActiverJournal Alors

   EcrireJournal(Nul, "RecevoirCourrierElectronique("+NomFichier+")");

Fin Si

Pour AdresseElectronique=ListeDestinataires.ParcoursAuDebut() JusquA ListeDestinataires.DernierElement() Faire

   UtilisateurProprietaire=UpsMls.ChercherUtilisateurProprietaire(AdresseElectronique);

   BoiteAuxLettres=BoiteAuxLettresElectronique(UtilisateurProprietaire, ");

   ?=BoiteAuxLettres.ImporterCourrierElectronique(NomFichier, NomRepertoire, EstBrouillon, EstEnvoye, EstIndesirable,
   
      EstNonLu, EstRecu, EstRepondu, EstSupprime, EstTransfere, EstUrgent);
   

Fin Pour

Retourner RappelSucces;

Fin Rappel

Voir aussi

EnvoyerCourrierElectronique pour envoyer un courrier électronique.

Traduction


-	-	-	-	-	-	-	-	-