Outlook .ost的文件中，如何用VBA读取收件箱正文？谢谢各位高手！

a4157

前段时间想用 EXCEL VBA 读取outlook收件箱的正文和发件人，但是老是报错，后来研究了一下，发现这段代码对 .pst 的文件是有用的，但是对于.ost 的文件，就读不到正文和发件人的信息，所以，想请各位高手帮忙指点一下，不胜感激！

Sub GetSanderAdressAndBody()  '//获得收件箱的子文件夹的邮件  
    Dim Application As outlook.Application
    Dim myNamespace As NameSpace
    Dim myFolder As MAPIFolder

    Dim Folder As MAPIFolder
    Dim iMail As outlook.MailItem


    Dim ExcelApp
    Set ExcelApp = GetObject("", "Excel.Application")
    Set wbk = ExcelApp.Workbooks.Open("f:/测试中.xlsx")

    Set wst = wbk.Sheets(1)

    Set Application = New outlook.Application
    Set myNamespace = Application.GetNamespace("MAPI")
    'Set myFolder = MyNameSpace.PickFolder
    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)    '//获得收件箱文件夹
    '// myNamespace.Folders.Count


    For i = 1 To myFolder.Folders.Count

        Set Folder = myFolder.Folders(i)

        For Each iMail In Folder.Items

            j = j + 1

            wst.Cells(j, 5) = iMail.ReceivedTime    '//接收邮件日期时间

            wst.Cells(j, 4) = Folder.Name    '//所在文件夹名称
            wst.Cells(j, 1) = iMail.To    '//发件人
            wst.Cells(j, 2) = iMail.CC    '//抄送人

            wst.Cells(j, 3) = iMail.Body    '//正文
        Next iMail

    Next
    wbk.Close True
    Set iMail = Nothing
    Set myFolder = Nothing
    Set myNamespace = Nothing
    Set Application = Nothing
End Sub