Up ! Mail Service

Ceci est le fichier source du programme exécutable Up ! Mail Service.

Source Composant "Up ! Mail Service" Version 4.0.0; ImporterModule /************/


   UpsWww(<UpsWww.upi>, ImporterDefinitions);

   UpsMls(<UpsMls.upi>, ImporterDefinitions);




Parametre <upsmls> Section "UpsMls"

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

Prive :

/*****/

   Action : Nul Ou Caractere;

   Detail : Booleen;

   Entete : Booleen;

   NomDeLUtilisateur "NomUtilisateur" : Nul Ou Caractere;

   MotDePasse : Nul Ou Caractere;

   AdresseElectronique : Nul Ou Caractere;

   AncienneAdresseElectronique : Nul Ou Caractere;

   NouvelleAdresseElectronique : Nul Ou Caractere;

   SourceAnnuaire "Source": Nul Ou Caractere;



Prive :

/*****/

Fonction ChercherUtilisateur() Retourner Nul Ou Utilisateur

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

Variable

/******/

   U : Nul Ou Utilisateur;



Debut

Si NomDeLUtilisateur==Nul Alors

   Retourner Nul;

Fin Si
U=Utilisateur.EnumererObjets(Nul);

TantQue U!=Nul Faire

   Si U.Nom==NomDeLUtilisateur Alors
   
      Retourner U;
   
   Fin Si

   U=Utilisateur.EnumererObjets(U);

Fin TantQue

Fin Fonction



Fonction ExecuterAjouterAdresseElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut
U=ChercherUtilisateur();

Si U==Nul Ou AdresseElectronique==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsAjouterAdresseElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "AjoutDeLAdresseElectronique", AdresseElectronique));

Fin Si

B.AjouterAdresseElectronique(AdresseElectronique);

Ecran.Ecrire(Message(UpsMls, "AjoutAdresseElectroniqueTermine", AdresseElectronique));



Retourner 0;

Fin Fonction



Fonction ExecuterCompacterBoiteAuxLettresElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut

U=ChercherUtilisateur();

Si U==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsCompacterBoiteAuxLettresElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "CompactageDeLaBoiteAuxLettresElectronique", NomDeLUtilisateur));

Fin Si

B.Compacter();

Ecran.Ecrire(Message(UpsMls, "CompactageTermine", NomDeLUtilisateur));



Retourner 0;

Fin Fonction



Fonction ExecuterCreerBoiteAuxLettresElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut
U=ChercherUtilisateur();

Si U==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsCreerBoiteAuxLettresElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "CreationDeLaBoiteAuxLettresElectronique", NomDeLUtilisateur));

Fin Si

Ecran.Ecrire(Message(UpsMls, "CreationTerminee", NomDeLUtilisateur));



Retourner 0;

Fin Fonction



Procedure EnvoyerMessage(MessageEnvoye : Caractere, ? : Entier, ? : Entier, ? : Nul Ou Caractere)

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

Debut

Ecran.Ecrire(MessageEnvoye);

Fin Procedure



Fonction ExecuterExporterAnnuaireElectronique() Retourner Entier

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

Debut

Si SourceAnnuaire==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsExporterAnnuaireElectronique"));

   Retourner 1;

Fin Si



Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "ExportationDeLAnnuaire", SourceAnnuaire));

   Si ExporterAnnuaireElectronique(SourceAnnuaire, NomDeLUtilisateur, EnvoyerMessage) Alors
   
      Ecran.Ecrire(Message(UpsMls, "ExportationAnnuaireTermineeAvecSucces", SourceAnnuaire));

      Retourner 0;
   
   Sinon
   
      Ecran.Ecrire(Message(UpsMls, "ExportationAnnuaireTermineeEnEchec", SourceAnnuaire));

      Retourner 1;
   
   Fin Si

Sinon

   Si ExporterAnnuaireElectronique(SourceAnnuaire, NomDeLUtilisateur, Nul) Alors
   
      Ecran.Ecrire(Message(UpsMls, "ExportationAnnuaireTermineeAvecSucces", SourceAnnuaire));

      Retourner 0;
   
   Sinon
   
      Ecran.Ecrire(Message(UpsMls, "ExportationAnnuaireTermineeEnEchec", SourceAnnuaire));

      Retourner 1;
   
   Fin Si

Fin Si



Retourner 0;

Fin Fonction



Fonction ExecuterImporterAnnuaireElectronique() Retourner Entier

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

Debut

Si SourceAnnuaire==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsImporterAnnuaireElectronique"));

   Retourner 1;

Fin Si



Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "ImportationDeLAnnuaire", SourceAnnuaire));

   Si ImporterAnnuaireElectronique(SourceAnnuaire, EnvoyerMessage) Alors
   
      Ecran.Ecrire(Message(UpsMls, "ImportationAnnuaireTermineeAvecSucces", SourceAnnuaire));

      Retourner 0;
   
   Sinon
   
      Ecran.Ecrire(Message(UpsMls, "ImportationAnnuaireTermineeEnEchec", SourceAnnuaire));

      Retourner 1;
   
   Fin Si

Sinon

   Si ImporterAnnuaireElectronique(SourceAnnuaire, Nul) Alors
   
      Ecran.Ecrire(Message(UpsMls, "ImportationAnnuaireTermineeAvecSucces", SourceAnnuaire));

      Retourner 0;
   
   Sinon
   
      Ecran.Ecrire(Message(UpsMls, "ImportationAnnuaireTermineeEnEchec", SourceAnnuaire));

      Retourner 1;
   
   Fin Si

Fin Si



Retourner 0;

Fin Fonction



Fonction ExecuterModifierAdresseElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut

U=ChercherUtilisateur();

Si U==Nul Ou AncienneAdresseElectronique==Nul Ou NouvelleAdresseElectronique==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsModifierAdresseElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "ModificationDeLAdresseElectronique", AncienneAdresseElectronique));

Fin Si

B.ModifierAdresseElectronique(AncienneAdresseElectronique, NouvelleAdresseElectronique);

Ecran.Ecrire(Message(UpsMls, "ModificationAdresseElectroniqueTermine", AncienneAdresseElectronique));



Retourner 0;

Fin Fonction



Fonction ExecuterSupprimerBoiteAuxLettresElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut

U=ChercherUtilisateur();

Si U==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsSupprimerBoiteAuxLettresElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "SuppressionDeLaBoiteAuxLettresElectronique", NomDeLUtilisateur));

Fin Si
B.Supprimer();

Ecran.Ecrire(Message(UpsMls, "SuppressionTerminee", NomDeLUtilisateur));



Retourner 0;

Fin Fonction



Fonction ExecuterSupprimerAdresseElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut

U=ChercherUtilisateur();

Si U==Nul Ou AdresseElectronique==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsSupprimerAdresseElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "SuppressionDeLAdresseElectronique", AdresseElectronique));

Fin Si

B.SupprimerAdresseElectronique(AdresseElectronique);

Ecran.Ecrire(Message(UpsMls, "SuppressionAdresseElectronuqyeTermine", AdresseElectronique));



Retourner 0;

Fin Fonction



Procedure EnvoyerMessageReparer(Libelle : Caractere)

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

Debut

Ecran.Ecrire(Libelle);

Fin Procedure



Fonction ExecuterReparerBoiteAuxLettresElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut

U=ChercherUtilisateur();

Si U==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsReparerBoiteAuxLettresElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "ReparationDeLaBoiteAuxLettresElectronique", NomDeLUtilisateur));

Fin Si



Si Non B.Reparer(Decoder(Detail, Vrai, EnvoyerMessageReparer, Nul)) Alors

   Ecran.Ecrire(Message(UpsMls, "ReparationEnEchec", NomDeLUtilisateur));

   Retourner 1;

Sinon

   Ecran.Ecrire(Message(UpsMls, "ReparationAvecSucces", NomDeLUtilisateur));

   Retourner 0;

Fin Si

Fin Fonction



Procedure EnvoyerMessageVerifier(Libelle : Caractere)

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

Debut

Ecran.Ecrire(Libelle);

Fin Procedure



Fonction ExecuterVerifierBoiteAuxLettresElectronique() Retourner Entier

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

Variable

/******/

   U : Nul Ou Utilisateur;

   B : Nul Ou BoiteAuxLettresElectronique;



Debut

U=ChercherUtilisateur();

Si U==Nul Alors

   Ecran.Ecrire(Message(UpsMls, "UsageUpsMlsVerifierBoiteAuxLettresElectronique"));

   Retourner 1;

Fin Si



B=BoiteAuxLettresElectronique(U, MotDePasse);

Si Detail Alors

   Ecran.Ecrire(Message(UpsMls, "VerificationDeLaBoiteAuxLettresElectronique", NomDeLUtilisateur));

Fin Si



Si Non B.Verifier(Decoder(Detail, Vrai, EnvoyerMessageVerifier, Nul)) Alors

   Ecran.Ecrire(Message(UpsMls, "VerificationEnEchec", NomDeLUtilisateur));

   Retourner 1;

Sinon
   Ecran.Ecrire(Message(UpsMls, "VerificationAvecSucces", NomDeLUtilisateur));

   Retourner 0;

Fin Si

Fin Fonction



Principal

/*******/

Debut

Si Entete Alors

   Ecran.Ecrire(Message(UpsMls, "PresentationUpsMls1")+"\n");

   Ecran.Ecrire(Message(UpsMls, "PresentationUpsMls2" , Caractere(DateSysteme(), FiltreDate), Caractere(DateSysteme(), FiltreHeure))+"\n");

Fin Si



Selon Action Faire

   Cas Pour Traduire(UpsMls, SectionDivers, "AjouterAdresseElectronique") Faire
   
      Retourner ExecuterAjouterAdresseElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "CompacterBoiteAuxLettresElectronique") Faire
   
      Retourner ExecuterCompacterBoiteAuxLettresElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "CreerBoiteAuxLettresElectronique") Faire
   
      Retourner ExecuterCreerBoiteAuxLettresElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "ExporterAnnuaireElectronique") Faire
   
      Retourner ExecuterExporterAnnuaireElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "ImporterAnnuaireElectronique") Faire
   
      Retourner ExecuterImporterAnnuaireElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "ModifierAdresseElectronique") Faire
   
      Retourner ExecuterModifierAdresseElectronique();
   
Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "ReparerBoiteAuxLettresElectronique") Faire
   
      Retourner ExecuterReparerBoiteAuxLettresElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "SupprimerBoiteAuxLettresElectronique") Faire
   
      Retourner ExecuterSupprimerBoiteAuxLettresElectronique();
   
Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "SupprimerAdresseElectronique") Faire
   
      Retourner ExecuterSupprimerAdresseElectronique();
   
   Fin Cas

   

   Cas Pour Traduire(UpsMls, SectionDivers, "VerifierBoiteAuxLettresElectronique") Faire
   
      Retourner ExecuterVerifierBoiteAuxLettresElectronique();
   
   Fin Cas

   

   Defaut
   
      Ecran.Ecrire(Message(UpsMls, "UsageUpsMls"));

      Retourner 1;
   
   Fin Defaut

Fin Selon

Fin Principal