Comment importer un message Outlook dans Excel

Bonjour,

Je souhaiterais importer un message Outlook (ou son lien) dans une cellule Excel, est-ce possible ?

Si oui, quelle est la façon la plus pratique de procéder ?

Merci de vos réponses.

Bonjour cdarsac,

Pour ma part j'enregistre les mails d'Outlook dans des dossiers spécifique en lui donnant une référence. Donc ensuite dans Excel il te faut insérer un lien hypertexte qui ouvrira ton mail dans Outlook.

J'utilise cette méthode à longueur de journée dans le cadre de mon travail.

Donc inserer et adapter le code suivant dans Outlook (Il n'est pas de moi)

Sub sav_mail_PRE_CDE(Optional objCurrentMessage As Object)
'By Oliv' juillet 2007 pour OUTLOOK 2003
Dim A
    If objCurrentMessage Is Nothing Then Set objCurrentMessage = ActiveInspector.CurrentItem
Dim MSG
MSG = InputBox("Mentionnez la référence du mail : ")
    'Ici on construit le nom du fichier qui sera créé
    NomExport = MSG 'objCurrentMessage.Subject & objCurrentMessage.CreationTime
A = Environ("username")
    'Ici on défini le répertoire où l'enregistrer
    repertoire = "C:\Users\" & A & "\Box Sync\PRODUCTION\BDC\"

    'Ici on supprime les caractères non autorisé dans les noms de fichiers
    PathNomExport = repertoire & Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace( _
    NomExport, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), "<", ""), ">", ""), "|", ""), "$", ""), """", ""), vbTab, ""), Chr(7), ""), 160)

    'Ici on vérifie que le fichier n'existe pas déjà sinon il serait écrasé
    n = 1
    MemPath = PathNomExport
    While Dir(PathNomExport) <> ""
        MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation
        PathNomExport = Left(MemPath, Len(MemPath) - 4) & "(" & n & ")" & ".msg"
        n = n + 1

    Wend
    objCurrentMessage.SaveAs PathNomExport, OlSaveAsType.olMSG

End Sub

Ensuite tu insère un bouton de commande dans Personnaliser la Barre d'Outils d'Accès Rapide dans OutLook et tu y associe la macro.

Dans ton fichier excel tu créé un lien hypertexte

Exemple :

=LIEN_HYPERTEXTE("C:\Users\.....\Box Sync\PRODUCTION\"&O8&N9)

Donc dans Outlook tu ouvres ton mail ou tu le sélectionnes.

Tu cliques sur le bouton de commande

Tu mentionne une référence pour l'enregistrement de ton mail

C'est tout et dans Excel avec le lien, le mail s'ouvre automatiquement...

Merci et1000lio de ta réponse très complète.

J'ai juste un petit pb pour insérer un bouton de commande dans Personnaliser la Barre d'Outils d'Accès Rapide dans OutLook.

Comment faire ?

Dans Outlook

Fichier => Options => Barre d'outils Accès rapide

Tout en bas à Droite tu cliques sur Modifier

A l'apparition formulaire Bouton Modifier, tu choisis un icône de ton choix

Tu lui donnes un NOM et tu cliques sur OK

La barre d'outils Accès rapide doit apparaître en dessus ruban dans Outlook. Si ce n'est pas le cas

Fichier => Options => Barre d'outils Accès rapide et tu coches tout en bas "Afficher la barre d'outils Accès rapide sous le ruban".

D'autre part pour afficher l'onglet Développeur dans Outlook

Fichier => Options => Personnaliser le ruban

Coche Développeur dans les onglets principaux à droite

Dans Outlook

Fichier => Options => Barre d'outils Accès rapide

Tout en bas à Droite tu cliques sur Modifier

Je ne vois pas "modifier", en bas à droite ...