20$ Export from outlook to Excel

[snb]

Here you are:

Sub M_snb()
  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