Discussion :

[Kayser Sauzé]

Bonjour,
Je cherche à faire figurer le nom des pièces jointes via un code VBA.
Pour l'instant, cela ne fonctionne pas .
Quelqu'un a-t-il déjà cherché à faire cela ?
Merci de vos réponses

[olaxius]

Le code ci dessous lit les messages sélectionnés de la boite mail et affiche le noms des pièces jointes s'il y a .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim vEmail As Outlook.MailItem
Dim vEmails As Object
Dim vPJ As Outlook.Attachment
Set vEmails = Outlook.Application.ActiveExplorer.Selection
For Each vEmail In vEmails
  If vEmail.Attachments.count > 0 Then
    For Each vPJ In vEmail.Attachments
      MsgBox vPJ.FileName
    Next vPJ
 
  End If
Next vEmail

[Kayser Sauzé]

Merci pour cette réponse.
Ce n'est pas tout à fait ce que je cherche mais je n'avais pas donné beaucoup de précisions.
En effet, je souhaite que pour un message en cours (ouvert) le code répertorie dans le courriel (en haut pour pour simplifier) le nom des pièces jointes.
Je vais tenter d'adapter le vôtre.