>>783で、質問した者です。まだ、テストプログラムです。。。。
下のようになったんですが、わからないことだらけなんです。
それは、「送信者」、「送信者アドレス」、「受信者アドレス」、「ｃｃアドレス」の名前です。
あと、参考になるサイトか、本かあれば紹介してほしいのですが。
よろしくお願いします。　m(_ _)m
Option Explicit
Sub GetMail()
Dim OLOOK As Outlook.Application
Dim NameSpc As Object
Dim finbox
Dim mail
Set OLOOK = New Outlook.Application
With OLOOK
Set NameSpc = .Application.GetNamespace("MAPI")
Set finbox = NameSpc.GetDefaultFolder(olFolderInbox)
For Each mail In finbox.Items
Debug.Print mail.SentOn
Debug.Print mail.CreationTime
Debug.Print mail.ReceivedTime
Debug.Print mail.To
Debug.Print mail.CC
Debug.Print mail.Subject
Debug.Print mail.Body
Exit For
Next
.Quit
End With
Set NameSpc = Nothing
Set finbox = Nothing
Set mail = Nothing
End Sub