如何修复运行时错误'-2147024809（80070057）'

Question

Sub getDataFromOutlook()

    Dim OutlookApp As Outlook.Application

    Dim OutlookNamespace As Namespace

    Dim Folder As MAPIFolder
    Dim OutlookMail As Variant

    Dim i As Integer

    Set OutlookApp = New Outlook.Application

    Set OutlookNamespace = OutlookApp.GetNamespace(“MAPI”)

    Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox)