Sub OutlookMakro()
Dim myOlApp As Object
Dim myNamespace As Object
Dim myFolder As Object
Dim myItems As Object
Dim myMail
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(6)
Set myItems = myFolder.Items
For Each myMail In myItems
Debug.Print myMail.Subject, myMail.sendername
Next
End Sub