Maybe:
Sub extract_specifics() Dim olapp As Outlook.Application
Dim olmail As Outlook.MailItem
Dim olns As Outlook.Namespace
Dim olfolder As Outlook.Folder
Dim sName As String
Set olapp = New Outlook.Application
Set olmail = olapp.CreateItem(olMailItem)
Set olns = olapp.GetNamespace("MAPI")
Set olfolder = olns.GetDefaultFolder(olFolderInbox)
i = 1
For Each olmail In olfolder.Items
sName = olmail.SenderName
If sName = Range("I3").Value Then
i = i + 1
Cells(i, 1) = sName
Cells(i, 2) = olmail.ReceivedTime
Cells(i, 3) = olmail.Importance
End If
Next olmail
End Sub
Range("I3") is the name of the sender to be included.
Hope this helps