// Déclaration des objets OLE
oOutlook est un objet OLE dynamique
oMessage est un objet OLE dynamique

// 1. Connexion à l'application Outlook locale
oOutlook = ObjetActif("Outlook.Application")
SI oOutlook = Null ALORS
oOutlook = nvo ObjetOLE("Outlook.Application")
FIN

SI oOutlook = Null ALORS
Erreur("Microsoft Outlook n'est pas installé sur ce poste.")
RETOUR
FIN

// 2. Chargement du fichier .msg (Chemin complet requis)
sCheminFichierMSG est une chaîne = "C:\MonDossier\mon_email.msg"

QUAND EXCEPTIONEXCEPTION DANS
oMessage = oOutlook>>CreateItemFromTemplate(sCheminFichierMSG)
FAIRE
Erreur("Impossible de charger le fichier MSG : " + ExceptionInfo())
RETOUR
FIN

// 3. Extraction des données du message
sObjet est une chaîne = oMessage>>Subject
sExpediteur est une chaîne = oMessage>>SenderName
sDateEnvoi est une chaîne = oMessage>>SentOn
sCorpsTexte est une chaîne = oMessage>>Body // Texte brut
sCorpsHTML est une chaîne = oMessage>>HTMLBody // Texte au format HTML

// Affichage de test
Trace("Objet : " + sObjet)
Trace("De : " + sExpediteur)
Trace("Date : " + sDateEnvoi)

// 4. Extraction optionnelle des pièces jointes
i est un entier
Pour i = 1 À oMessage>>Attachments>>Count
oPJ est un objet OLE dynamique = oMessage>>Attachments(i)
// Sauvegarde de la pièce jointe dans un répertoire temporaire
oPJ>>SaveAsFile("C:\MonDossier\Export\" + oPJ>>FileName)
FIN

// 5. Libération des objets
Libérer oMessage
Libérer oOutlook