SAlut,
Avec ce code sur un mail (ou autre élément")dans outlook ,VBE tu verras la plupart des objets dans les variables:
Sinon un .msg peut "en partie" être lu avec un éditeur de texte genre le bloc note.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub BaBa() Dim App Dim Insp Dim Expl Dim Oitem Set App = Outlook.Application 'désigne Outlook Debug.Print App Set Expl = App.ActiveExplorer 'désigne l'exploreur actif càd la fenêtre des dossiers. Debug.Print Expl.Caption Set Insp = ActiveInspector 'désigne la fenêtre de l'élement actif Debug.Print Insp.Caption Set Oitem = ActiveInspector.CurrentItem 'désigne l'élément actif càd le mail le contact ou rdv... Debug.Print Oitem Stop
Dans la méthode proposée avec CreateItemFromTemplate le pb c'est que tu crées un NOUVEAU MAIL et que tu n'ouvres pas le mail qui comporte lui bien l'expéditeur la date d'expédition ...
Pour ouvrir le .msg il faut reproduire le "ouvrir" de l'explorateur :
"C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE" /f "%1"
Partager