Sub LireMessagesDUnDossierEtLeDeplacerVersUnAutre()
Dim appOutlK As Object, NS As Object, RéceptBox As Object, boite As Object, i As Long, F As Worksheet
Set F = Sheets("MailsListe")
F.UsedRange.Offset(1).ClearContents
Set appOutlK = CreateObject("Outlook.Application")
Set NS = appOutlK.GetNamespace("MAPI")
'Set boite = NS.Folders(2)
'ou
Set boite = NS.Folders("monEmail@hotmail.fr")
'Set RéceptBox = boite.Folders(2) 'dossier boite de reception
'ou
Set RéceptBox = boite.Folders("Boîte de réception") 'dossier boite de reception
For i = 1 To RéceptBox.Items.Count
With RéceptBox.Items(i):
tbl = Array(i, DateValue(Format(.SentOn, "dd/MM/yyyy")), .SenderName, .SenderEmailAddress, .Subject)
End With
F.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = tbl
Next
Set NS = Nothing: Set OpenOutlk = Nothing
End Sub