Piloter ses mails sur PC et sur un PDA

NomUser, Destinataire, Sujet, Texte est une chaîne
nombremessage, i est un entier
// Gestion de la Combo box, ici l'option 1 correspond à la réception de mail
Cchoix = 1
indice = Cchoix
SI indice = 1 ALORS
    //initialisation de la fenêtre version réception //Groupe1_Recept et Groupe2_Envoi sont un groupe de champs
    Groupe1_Recept..Visible = Vrai
    LCorps..Visible = Faux
    Groupe2_Envoi..Visible = Faux
    FenRepeint(Fmail)
    //Test
    User = "user@xxx.xx"
    Password = "xxxxxxx"
    Pop = "pop.xxx.xx"
    Smtp = "smtp.xxx.x"
    //Ouverture de session mail
    SI EmailOuvreSession(User, Password, Pop, Smtp)= Vrai ALORS
        NomUser = User
    SINON
        NomUser = ""
        Erreur("Impossible d'établir la connexion")
    FIN
    //Check du nombre de mail présent sur le serveur et Ajout dans une table des informations des mailsprésents sur le serveur : Expéditeur, Objet, Corps en texte brut, i ; l'identifiant du message
    nombremessage = EmailNbMessage(User)
    POUR i = 1 A nombremessage
        EmailLitMessage(User,i)
        SI Email.EnDehors <> Vrai ALORS
            TableAjouteLigne(TMail,Email.Expéditeur,Email.Sujet,Email.TexteBrut,i)
        SINON
        FIN
    FIN
FIN

maligne est un entier
maligne = TableSelect(TMail)
hFic est un entier
hauteur est un entier
Repert_Temp est une chaîne = «c:\SDMMC Disk\temp\»
CID est une chaîne
I est un entier
EmailLitMessage(User,TMail.Id[maligne])
//test si le mail contient du HTML
SI Email.HTML <> «« ALORS
    ActiveX1..Visible = Vrai
    LCorps..Visible = Faux
    // Pour chaque fichier attaché
    POUR I =1 A Email.NbAttache
        // Copier le fichier dans un répertoire temporaire
        EmailSauveFichierAttaché(Email.Attache[I],Repert_Temp+Email.Attache[I])
        // Récupérer l'identifiant du fichier attaché dans le mail
        CID =«cid:» + Email.IdentifiantAttache[I]
        // Remplacer les références au fichier attaché par le nom réel du fichier
        Email.HTML =Remplace(Email.HTML, CID, «file:» + Repert_Temp + Email.Attache[I])
    FIN
    // Afficher le contenu HTML dans un Browser WEB
    // Créer un fichier temporaire contenant le HTML
    NomFic est une chaîne =Repert_Temp+ «temp.htm»
    hFic = fCrée(NomFic)
    hFic = fOuvre(NomFic)
    fEcrit(hFic, Email.HTML, Taille(Email.HTML))
    fFerme(hFic)
    // Fournir le fichier HTML temporaire au browser
    // navigateur_WEB est un champ ActiveX «Microsoft Web Browser»
    ActiveX1>>Navigate(NomFic)
SINON
    ActiveX1..Visible = Faux
    LCorps..Visible = Vrai
    fSauveTexte(Repert_Temp + «temp.txt»,Email.Message)
    LCorps = fChargeTexte(Repert_Temp + «temp.txt»)
FIN

//Verification de la date du jour
dateverif = DateVersChaîne(DateDuJour())
dateverif = Milieu(dateverif,4,2)
//Check du nombre de mail présent sur le serveur
nombremessage = EmailNbMessage(User)
//boucle traitement des mails presents sur le serveur
POUR i = 1 A nombremessage
    //lecture des entêtes
    EmailLitEntêtePremier(User)
    //Recuperation de la date de réception et formatage dans une date exploitable
    date = Email.DateRéception
    date = Milieu(date,5,12)
    date = SansEspace(date)
    date = Remplace(date," ","")
    SI Taille(date) <> 9 ALORS
        date = "0?+date
    FIN
    datefinal = Gauche(date,2) + "/" + Milieu(date,3,3) + "/" + Droite(date,4)
    date = datefinal
    //Appel de la procédure dateremplace() qui va transformer les abréviations de mois en chiffes
    dateremplace()
    //passage de la date formatée vers une variable date
    dateformatee = ChaîneVersDate(date)
    date = DateVersChaîne(dateformatee)
    date = Milieu(date,4,2)
    //info(date,dateverif)
    //test sur le mois, si le mois de réception égale le mois en cours on récupère le message
    SI date = dateverif ALORS
        EmailLitMessage(User,i)
        SI Email.EnDehors <> Vrai ALORS
            TableAjouteLigne(TMail,Email.Expéditeur,Email.Sujet,Email.TexteBrut,i)
        SINON
        FIN
    SINON
    FIN
FIN

PROCEDURE dateremplace()
date = Remplace(date,"jan","01",SansCasse)
date = Remplace(date,"feb","02",SansCasse)
date = Remplace(date,"mar","03",SansCasse)
date = Remplace(date,"apr","04",SansCasse)
date = Remplace(date,"may","05",SansCasse)
date = Remplace(date,"jun","06",SansCasse)
date = Remplace(date,"jul","07",SansCasse)
date = Remplace(date,"aug","08",SansCasse)
date = Remplace(date,"sep","09",SansCasse)
date = Remplace(date,"oct","10",SansCasse)
date = Remplace(date,"nov","11",SansCasse)
date = Remplace(date,"dec","12",SansCasse)

EmailSupprimeMessage(Utilisateur, numéro du message)

ide,mailid est un entier
ide = TableSelect(TMail)
mailid = Tmail.mailid[ide]
EmailSupprimeMessage(User,mailid)
TableSupprime(TMail,ide)
FenRepeint(Fmail)