Lire des fichiers de type .msg

[Parloir]

Salut tout le monde

j'ai un casse tête que j'ai pas pu resoudre

j'ai des centaines de messages outlook enregistrés dans un dossier sous forme de fichiers de type .msg et je voudrais les importer dans une feuille à l'aide d'une macro. j'ai beau cherché je n'ai pas trouvé de solution.

il y a certes la méthode pour importer les messages se trouvant dans la boite de réception d'outlook, mais ce n'est pas ce que je veux. car mes fichiers se trouve dans un autre dossier et je veux utiliser une macro sous excel pour les importer

Merci pour tout bienfaiteur qui trouvera la solution

 

[MichelXld]

Re : Lire des fichiers de type .msg

Bonsoir

Tu peux utiliser

Dim OutApp As Outlook.Application
Dim Message As Outlook.MailItem
Dim Cible As String
 
Cible = "C:\dossier\nom du message.msg"
 
Set OutApp = New Outlook.Application
Set Message = OutApp.CreateItemFromTemplate(Cible)
'Renvoie le nom de l'expéditeur et le contenu du message
MsgBox Message.SenderEmailAddress & vbCrLf & Message.Body

bonne soirée
michel

 

[Parloir]

Re : Lire des fichiers de type .msg

Merci de la réponse, mais

erreur de compilation, j'ai outlook 2007

et pour lire une centaine de messages dans un répertoire avec une boucles ?

 

[MichelXld]

Re : Lire des fichiers de type .msg

Rebonsoir

erreur de compilation, j'ai outlook 2007

As tu préalablement activé la référence Outlook ?
dans l'éditeur de macros :
Menu Outils
Références
Coche la ligne "Microsoft Outlook xx.x Object Library"
clique sur le bouton Ok pour valider.

et pour lire une centaine de messages dans un répertoire avec une boucles ?

Tu trouveras de nombreux exemples sur le forum permettant de boucler sur les fichiers d'un répertoire.


Par contre il faudra ajouter

OutApp.Quit
Set OutApp = Nothing

après la lecture de chaque message


bonne soirée
michel

 

[Parloir]

Re : Lire des fichiers de type .msg

Merci beaucoup Michel

c'est ce que je cherchais mais je souhaiterais boucler sur les centaines de messages et mettre dans une feuille sur chaque ligne la date, l'expéditeur et le contenu du message.

je suis vraiment un débutant. est ce que tu peux me proposer un code pour ca

Merci beaucoup, j'ai vraiment cru que je ne trouverais pas la solution

 

[Parloir]

Re : Lire des fichiers de type .msg

Merci encore Michel

je me suis débrouillé avec ce petit bout de code

    Fichier = Dir(chemin & "*.msg")
    Fichier_Message = chemin & "\" & Fichier
    Ligne = 2

    Do While Len(Fichier) > 0
        Set OutApp = New Outlook.Application
        Set Message = OutApp.CreateItemFromTemplate(Fichier_Message)
        Cells(Ligne, 1).Value = Message.ReceivedTime
        Cells(Ligne, 2).Value = Message.SenderEmailAddress
        Cells(Ligne, 3).Value = Message.Body
        OutApp.Quit
        Set OutApp = Nothing
        Fichier = Dir()
        Fichier_Message = chemin & "\" & Fichier
        Ligne = Ligne + 1
    Loop

Merci encore, et que dieu t'ouvre les portes du bonheur