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

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,