Copy and paste body of unread email from a specific folder to excel

I was able to find a code that works. Marking the thread as solved.

Sub EmailText()
    Dim ObjOutlook As Object
    Dim MyNamespace As Object
    Dim i As Integer
    Dim j As Long
    Dim abody() As String
     
    Set ObjOutlook = GetObject(, "Outlook.Application")
    Set MyNamespace = ObjOutlook.GetNamespace("MAPI")
    
    With MyNamespace.GetDefaultFolder(6).Folders("- Changes")
    
        For i = .Items.Count To 1 Step -1
            abody = Split(.Items(i).Body, Chr(13) & Chr(10))
            For j = 0 To UBound(abody)
                Sheet1.Cells(65000, "C").End(xlUp).Offset(1, 0).Value = abody(j)
            Next
            .Items(i).Move MyNamespace.GetDefaultFolder(6).Folders("- Completed Changes")
        Next
        
        With Columns("C").Font
            .Name = "Arial"
            .Size = 11
        End With
        
    End With
    
    Set ObjOutlook = Nothing
    Set MyNamespace = Nothing
    
End Sub