Export to excel

[ram567]

this code capturing sendername and date sent from outlook to excel. but how to get
recevied time in matches with sendername in excel

thanks for your great help,

i = Sheets("Sheet1").Range("A65536").End(xlUp).Row + 1
  For Each olMail In Fldr.Items 
For Each olMail In Fldr.Items
    MyArray = Trim(Split(olMail.Subject, "-")(0))
If olMail.SenderName = "xxx" Or olMail.SenderName = "xxxx" Or olMail.SenderName = "xxxxx" Then
   If MyArray = "Password Permit" Then
     ActiveSheet.Cells(i, 1).Value = olMail.To
  ActiveSheet.Cells(i, 2).Value = olMail.SentOn
 i = i + 1
 End If
End If
 
 Next olMail
 
    Set Fldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
 
 
 Application.ScreenUpdating = True