Extract Body Text From Outlook Email To Excel

[needhelp2]

Hi, I wanna extract email body text from Outlook to excel and I am using my Gmail in outlook and all emails are available in Inbox folder moreover my subject is same in all emails but body text could be different and i got mentioned below code from search but not working. Please help me in this regard.Thankx in Advance.

sub ExtractBodySubjectFromMails()

Dim oNS As Outlook.Namespace
Dim oFld As Outlook.Folder
Dim oMails As Outlook.Items
Dim oMailItem As Outlook.MailItem
Dim oProp As Outlook.PropertyPage

Dim sSubject As String
Dim sBody

On Error GoTo Err_OL

Set oNS = Application.GetNamespace("MAPI")
Set oFld = oNS.GetDefaultFolder(olFolderInbox)
Set oMails = oFld.Items

For Each oMailItem In oMails
sBody = oMailItem.Body
sSubject = oMailItem.Subject 'This property corresponds to the MAPI property PR_SUBJECT. The Subject property is the default property for Outlook items.
Next

Exit Sub
Err_OL:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
Resume Next
End If
End Sub

 

[snb_]

Sub M_snb()
    With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
        redim sn(1 to .items.count,1 to 4)

        for each it in .Items
           j=j+1
           sn(j,1)=it.To
           sn(j,2)=it.subject
           sn(j,3)=it.body
           sn(j,4)=it.sentOn
        next
     End With

     activesheet.cells(1).resize(ubound(sn),4)=sn 
End Sub