Procedure CheckAcronisStatus()

// Chargement de la configuration
config est un tableau associatif de chaînes = LoadConfig()

// Récupération des paramètres depuis la configuration
SAVE_HTML_FOLDER est une chaîne = config["SAVE_HTML_FOLDER"]
EMAIL_NAME est une chaîne = config["EMAIL_NAME"]
EMAIL_FOLDER est une chaîne = config["EMAIL_FOLDER"]
EMAIL_SUBFOLDER est une chaîne = config["EMAIL_SUBFOLDER"]
EMAIL_SUBFOLDER_ACRONIS est une chaîne = config["EMAIL_SUBFOLDER_ACRONIS"]

// Ouverture de la session Outlook
MaSession est emailSessionOutlook
MaSession..Nom = "Outlook"
EmailOuvreSession(MaSession)

// Accès au dossier Acronis
OutlookFolder est une chaîne = EMAIL_NAME + "\" + EMAIL_FOLDER + "\" + EMAIL_SUBFOLDER + "\" + EMAIL_SUBFOLDER_ACRONIS
EmailChangeDossier(MaSession, OutlookFolder)

// Chargement des noms d'appareils depuis le fichier de configuration
sUserProfile est une chaîne = SysEnvironment("USERPROFILE")
SI Position(sUserProfile, "=") > 0 ALORS
sUserProfile = ExtraitChaîne(sUserProfile, 2, "=")
FIN

sConfigPath est une chaîne = SAVE_HTML_FOLDER + "config.xlsx"

xlsConfigDoc est xlsDocument
xlsConfigDoc = xlsOuvre(sConfigPath, xlsEcriture)
SI ErreurDétectée ALORS
Info("Erreur lors de l'ouverture du fichier de configuration : " + sConfigPath + RC + ErreurInfo(errComplet))
RETOUR
FIN

// Sélection de la feuille Acronis
SI xlsFeuilleEnCours(xlsConfigDoc, 3) = Faux ALORS
Info("Impossible de trouver la feuille 'Acronis' dans le fichier de configuration.")
xlsFerme(xlsConfigDoc)
RETOUR
FIN

// Récupération des noms d'appareils
nLastRow est entier = xlsNbLigne(xlsConfigDoc)
appareilList est une tableau de chaîne = []

POUR i = 2 _À_ nLastRow
SI xlsConfigDoc[i, 1] <> "" ALORS
Ajoute(appareilList, xlsConfigDoc[i, 1])
FIN
FIN

xlsFerme(xlsConfigDoc)

// Création d'un document Excel vierge pour le résultat
xlsResultDoc est un xlsDocument(xlsVersionXlsx)

// Définition de la plage de dates
startDate est Date = DateSys()
startDate.Jour -= 30
endDate est Date = DateSys()

dDate est Date = startDate

TANTQUE dDate <= endDate

// Ajout d'une nouvelle feuille pour la date actuelle
xlsAjouteFeuille(xlsResultDoc, DateVersChaîne(dDate, "JJ_MM_AAAA"))
SI xlsFeuilleEnCours(xlsResultDoc, xlsNbFeuille(xlsResultDoc)) = Faux ALORS
Info("Erreur interne : impossible de sélectionner la feuille ajoutée.")
RETOUR
FIN

xlsResultDoc[1, 1] = DateVersChaîne(dDate, "JJ/MM/AAAA")
xlsResultDoc[2, 1] = "Acronis"
xlsResultDoc[2, 2] = "Statut"

// Création d'un "dictionnaire" pour stocker les statuts des appareils
dictStatuts est un tableau associatif de chaînes AvecDoublon

// Récupération des emails pour la plage horaire (18h hier à 17h59 aujourd'hui)
dFilterStart est DateHeure = dDate
dFilterStart.Jour -= 1
dFilterStart.Heure = 18
dFilterStart.Minute = 0
dFilterStart.Seconde = 0

dFilterEnd est DateHeure = dDate
dFilterEnd.Heure = 17
dFilterEnd.Minute = 59
dFilterEnd.Seconde = 0

tabEmails est un tableau de Email = EmailRécupèreTout(MaSession, ertComplet)

POUR TOUT emailCourant de tabEmails
SI emailCourant.DateRéception >= dFilterStart ET emailCourant.DateRéception <= dFilterEnd ALORS

// Suppression des URLs dans le corps du mail
sBody est une chaîne = emailCourant.Message
sBodySansURL est une chaîne = Remplace(sBody, "http://", "")

// Vérification des noms d'appareils dans le mail
POUR TOUT appareil de appareilList
SI Position(sBodySansURL, appareil) > 0 ALORS

// Détermination du statut basé sur le contenu du message
sStatutActuel est une chaîne = "Non Validé"
SI Position(sBodySansURL, "Sauvegarde réussie") > 0 ALORS
sStatutActuel = "Validé"
SINON SI Position(sBodySansURL, "Activité réussie avec avertissements") > 0 ALORS
sStatutActuel = "Validé avec avertissements"
FIN

// Mise à jour du dictionnaire des statuts
SI dictStatuts[appareil]..Existe ALORS
sStatutExistant est une chaîne = dictStatuts[appareil]
SI sStatutExistant <> "Validé" ET (sStatutActuel = "Validé" OU (sStatutExistant = "Non Validé" ET sStatutActuel = "Validé avec avertissements")) ALORS
dictStatuts[appareil] = sStatutActuel
FIN
SINON
dictStatuts[appareil] = sStatutActuel
FIN
FIN
FIN
FIN
FIN

// Écriture des statuts dans la feuille Excel
ligne est entier = 3
POUR TOUT ÉLÉMENT sStatut, sAppareil de dictStatuts
xlsResultDoc[ligne, 1] = sAppareil
xlsResultDoc[ligne, 2] = sStatut
ligne += 1
FIN

dDate += 1
FIN

// Enregistrement du fichier Excel final
sResultFile est chaîne = SAVE_HTML_FOLDER + DateVersChaîne(DateSys(), "JJ_MM_AAAA") + "_checkup_Acronis.xlsx"
SI fFichierExiste(sResultFile) ALORS
fSupprime(sResultFile)
FIN
xlsSauve(xlsResultDoc, sResultFile)
xlsFerme(xlsResultDoc)

// Fermeture de la session Outlook
EmailFermeSession(MaSession)