Discussion :

[drthodt]

Bonjour à tous,

j'aimerais faire la chose suivante, à partir d'un mail au format *.msg que j'aurais placé dans un dossier:
- pouvoir, depuis une macro excel, sélectionner ce message avec une boîte de dialogue
- que cette sélection me permette de récupérer l'adresse de l'expéditeur, voire son nom, ainsi que l'objet du mail dans mes cellules Excel.

Je sèche complètement (j'ai un niveau débutant), auriez-vous des pistes ou conseils?

Merci d'avance pour vos réponses,
N

[SilkyRoad]

Bonsoir


Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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
 
OutApp.Quit
Set OutApp = Nothing

bonne soirée
michel