Extract data from outlook emails using excel vba

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Dim msgtext As String

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("New Apps")

i = 1
lrow = 1

For Each OutlookMail In Folder.Items
MsgBox Folder.Items.Count
    msgtext = OutlookMail.Body
    MsgBox msgtext
     With ActiveSheet
            .Cells(lrow, 1) = OutlookMail.SenderName
            .Cells(lrow, 2) = OutlookMail.Subject
            .Cells(lrow, 3) = OutlookMail.ReceivedTime
            lrow = lrow + 1
        End With
  
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub