Extract Email Details For All Incoming Mails Using VBA In Outlook

[snb]

My preference:

Sub email_ontvangen_lezen()
  With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
    redim sn(.items.count,2)
 
   j=0
    for each it in .Items
      sn(j,0)=it.To 
      sn(j,1)=it.subject
      sn(j,2)=it.body
      j=j+1
    next
  End With

  thisworkbook.sheets(1).cells(1).resize(ubound(sn)+1,ubound(sn,2)+1)=sn
End Sub

Source:
http://www.snb-vba.eu/VBA_Outlook_external_en.html#L153