如何用VBA读取收件箱内容

a4157

我想用 VBA 读取outlook 收件箱的内容，包括 发件人、发件日期、主题、正文，我在网上搜了好多相关的代码，好像怎么试都不行，求高人指点，谢谢！

Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)    '//获得收件箱文件夹

For Each iMail In myFolder.Items
            a = iMail.ReceivedTime    '//接收邮件日期时间
            b = myFolder.Name    '//所在文件夹名称
            c = iMail.To   '//发件人
            d = iMail.CC    '//抄送人
            e = iMail.Body    '//正文
Next iMail

这段看起来没有问题啊？就是将 imail 作为 items 的每一个部分循环（类似 for each rng in range("A1:A10") 这个意思），a,b是可以读出来的，但是 c,d,e死活报错：

Run-time error '287' Application-defined or object-defined error

求高人指点！

a4157

段子抄的是这里的一个：http://club.excelhome.net/thread-1131891-1-1.html


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

闻启学

c ，d，e 是什么数据类型 ？？

a4157

没有作任何的 Dim , 我就是怕定义了然后出问题，但还是报错，不知为何？

闻启学

a4157 发表于 2016-4-10 21:49
没有作任何的 Dim , 我就是怕定义了然后出问题，但还是报错，不知为何？

给个代码我  我帮你测试下

a4157

就是上面代码，我刚测试了一下，用自己的电脑可以的，但是在公司的电脑上就报错，可能是有什么安全设置？不懂...

a4157

闻启学 发表于 2016-4-11 06:59
给个代码我  我帮你测试下

你好，我刚刚弄明白，公司的outlook用的是 .ost 的存储模式，而我们自己用的outlook都是.pst 的模式，上面代码可以读的，所以，问题来了， 如何读取.ost 的发件人和他的正文呢？

jiminyanyan

a4157 发表于 2016-4-17 15:34
你好，我刚刚弄明白，公司的outlook用的是 .ost 的存储模式，而我们自己用的outlook都是.pst 的模式，上 ...

对这个有兴趣，解决了没？

梧月书声

报错提示什么信息？按理说pst还是ost应该没影响