请教遍历所有邮件的正确姿势

leon51

我要遍历"所有文件夹中的所有邮件"，以下代码在VBA中OK，但是在VS2010中出现问题，请问要怎么修改？谢谢
(为了方便测试，每个文件夹只输出3个邮件)

1. Public Sub ListAllMail()
   
2.     Dim olApp As New Outlook.Application
   
3.     Dim objFolder As Outlook.Folder
   
4.     Dim nmsName As Outlook.NameSpace
   
5.     Set nmsName = olApp.GetNamespace("MAPI")
   
6.     Dim i As Integer
   
7.    
   
8.     For Each f In nmsName.folders
   
9.         i = 0
   
10.         For Each itm In f.Items
    
11.         If i > 3 Then Exit For
    
12.             MsgBox itm.Subject
    
13.             i = i + 1
    
14.         Next
    
15.     Next
    
16. 
    
17. End Sub

复制代码