Lister boite d'envoi outlook dans excel

[kinslow]

Bonsoir,
J'ai a nouveau une autre question.
Voici un code qui permet de lister les mails contenu dans la boite de reception d'outlook et de les lister dans excel.
Quels modifs je dois faire dessus pour y rajouter la boite d'envoi egalement?
Merci d'avance pour vos reponses.
Nico

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

 

[kinslow]

Re : Lister boite d'envoi outlook dans excel

C bon j'ai reussi a trouver tout seul. Pour info :

GetDefaultFolder(9).Name = "Calendrier"
GetDefaultFolder(10).Name = "Contacts"
GetDefaultFolder(3).Name = "Eléments supprimés"
GetDefaultFolder(16).Name = "Brouillons"
GetDefaultFolder(6).Name = "Boîte de réception"
GetDefaultFolder(11).Name = "Journal"
GetDefaultFolder(12).Name = "Notes"
GetDefaultFolder(4).Name = "Boîte d'envoi"
GetDefaultFolder(5).Name = "Eléments envoyés"
GetDefaultFolder(13).Name = "Tâches"