Sub ボタン1_Click()
Dim obj As Object
Dim outlook As Object
Dim i As Integer
Set obj = CreateObject("Outlook.Application")
Set outlook = obj.GetNamespace("MAPI") ' Namespace オブジェクト
For i = 1 To outlook.Folders(1).Folders("受信トレイ").Items.Count
MsgBox outlook.Folders(1).Folders("受信トレイ").Items(i).Subject _
& vbCrLf & outlook.Folders(1).Folders("受信トレイ").Items(i).Body
' ここから先、添付については、確認してないので
' 間違ってるかも??
For j = 1 To outlook.Folders(1).Folders("受信トレイ").Items(i).Attachments.Count
outlook.Folders(1).Folders("受信トレイ").Items(i).Attachments.Item(j).SaveAsFile "test" & CStr(i) & "の" & CStr(j) & ".txt"
Next
Next
End Sub