Sauvegarde des messages outlook en fichier txt

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 565 fois - Téléchargée 57 fois

Contenu du snippet

Ce petit prg permet de sauvegarder tous les messages dans la boite de reception d'Outlook en fichiers TXT indepedants les uns des autres...
Chose qui n'est po possible avec ce joyeux logiciel ;0)

Choses a fiare:
-creer un nouveau projet , normal koi
- composants de projet "Microsoft MAPI control 6.0"
- composants de projet "Microsoft Windows Common Controls 6.0 (SP4)"
- references de projet
-un formulaire, tout pareil
-une drive box nommée "Drive"
-une dir box nommée "Dir"
-une progress bar nommée "ProgressBar"
-un MAPI session nommé "MAPISession"
-un MAPI message nommé "MAPIMessages"
-un bouton nommé "export_messages"
-coller le code !!!

Source / Exemple :


Private Sub Drive_Change()
    Dir.Path = Drive
End Sub

Private Sub export_messages_Click()
    Dim numfic As Integer
    Dim nomfic As String
    If MsgBox("Voulez vous exporter vos messages dans " & Chr(13) & Dir.Path & " ?", vbYesNo, "Attention") = vbYes Then
    
        'ouverture de session MAPI sur outlook
        MAPISession.SignOn
        'MAPI messages utilise l'ID de la session pour travailler
        MAPIMessages.SessionID = MAPISession.SessionID
        'Recupere les messages 'entrés'
        MAPIMessages.Fetch
        
        'Juste pour savoir ou en on est
        ProgressBar.Visible = True
        ProgressBar.Min = 0
        ProgressBar.Max = MAPIMessages.MsgCount + 1
        
        'Pour tous les messages
        For i = 1 To MAPIMessages.MsgCount - 1
            'Prend un message
            MAPIMessages.MsgIndex = i
            ProgressBar.Value = i
            ProgressBar.Refresh
            'Premier numero de fichier utilisable libre
            numfic = FreeFile
            'Nom de fichier de sortie:
            'Path choisi + compteur de message format 000001 + _ + jour du message
            ' + _ + mois du message + _ + annee du message + 3 premieres lettres du nom expediteur
            ' + .txt Ex: 000001_12_01_2001_tot.txt
            nomfic = Dir.Path & "\" & Format(i, "000000") & "_" & Day(MAPIMessages.MsgDateReceived) & "_" & Month(MAPIMessages.MsgDateReceived) & "_" & Year(MAPIMessages.MsgDateReceived) & "_" & Left(MAPIMessages.MsgOrigDisplayName, 3) & ".txt"
            Open nomfic For Output As numfic
            'On ecrit la date de reception
            Print #numfic, MAPIMessages.MsgDateReceived
            'le nom d origine et l adresse Email
            Print #numfic, MAPIMessages.MsgOrigDisplayName & " " & MAPIMessages.MsgOrigAddress
            'et le texte du message
            Print #numfic, MAPIMessages.MsgNoteText
            Close numfic
        Next i
        'on ferme la session MAPI
        MAPISession.SignOff
        MsgBox "Export terminé.", vbOKOnly, "Fin du traitement"
        ProgressBar.Visible = False
    End If
End Sub

Conclusion :


- Fonctionnement
Choisir un repertoir pour l export a l'aide
de la drive box et de la dir box.
Cliquer sur le bouton export.
La session s'ouvre (ouverture outlook et reception
des derniers meaages)
La progress Bar montre le deroulement restant.

Et voila le travail....

Bonne prog a tous et bravo a Nix

Enjoy ;0))

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
vendredi 11 mai 2007
Statut
Membre
Dernière intervention
11 mai 2007

Bonjour,
Bien que le sujet soit assez ancien, j aimerai poser une question qui je l espere trouvera reponse.
le principe de ce code est tres interressant.
Mais dans mon cas, j aimerai centraliser en un seul .txt le contenu de tout les message entrant dans ma boite outlook.

Que serait il à conseiller?
Je suis pas programmeur mais m interresse de plus en plus.
Messages postés
2
Date d'inscription
mardi 27 mai 2003
Statut
Membre
Dernière intervention
15 juin 2006

MCSLIDERS utilise MAPIMessage.AttachmentPathName

cu
Messages postés
1
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
14 juin 2006

et si le message contient une piece jointe, comment la recupere-t-on ?
Messages postés
2
Date d'inscription
vendredi 18 avril 2003
Statut
Membre
Dernière intervention
23 mars 2006

votre programme m'a aider bcp, mon probleme si ce que je cherche à extraire les pieces jointes et les copies dans repertoire précis.
Messages postés
3
Date d'inscription
vendredi 6 février 2004
Statut
Membre
Dernière intervention
23 avril 2004

EN PASSANT, pour ceux qui doivent formatter et qu'ils veulent conserver leurs emails, vous n'avez qu'à les glisser de outlook à l'explorateur windows (dans le dossier désiré) et vice-verca.......

TK!

Keep it simple guys
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.