Excel提取outlook 邮件的主旨

天天笑19861007

大神们，
求救！
Excel有办法提取outlook里面全部的邮件的主旨到excel单元格吗？

wdx223

1. Sub test()
   
2. Dim myol, i&, arr()
   
3. Dim mm
   
4. 
   
5. Set myol = CreateObject("Outlook.Application")
   
6. 
   
7. For Each mm In myol.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
   
8.     i = i + 1
   
9.     ReDim Preserve arr(1 To i)
   
10.     arr(i) = mm.Subject
    
11. Next mm
    
12. [A1].Resize(i, 1) = Application.Transpose(arr)
    
13. End Sub

复制代码

天天笑19861007

你好
我运行之后，提示说：程序呼叫或引数不正确。
可以麻烦你帮忙再看一下