XL 2010 Récupération des mails BAL générique

[Pygos69]

Bonjour,

Je souhaite récupérer les mails de plusieurs bals génériques, pour comptabiliser les mails du jour. (par excel vba)

J'utilise le fichier de JB (Outlook.zip)😊, qui récupère les mails de ma boite de réception principale, ainsi que le calendrier, les contacts…..

Que faut il modifier pour effectuer la même opération sur les bals génériques ? (mails uniquement)

Sub LitMessagerie()
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6) ' olns.GetDefaultFolder(olFolderInbox)
Sheets("Litmessagerie").Select
On Error Resume Next
n = 2
For Each i In olxFolder.Items
Cells(n, 1) = i.Subject
Cells(n, 2).ClearComments
Cells(n, 2).AddComment Text:=Replace(i.Body, Chr(13), "")
Cells(n, 2).Comment.Shape.Height = 150
Cells(n, 2).Comment.Shape.Width = 300
Cells(n, 3) = i.SenderName
Cells(n, 4) = i.CreationTime
n = n + 1
Next
End Sub



Merci d'avance,

Bien cordialement,