如何获取 收件箱下子文件夹名称 for outlook vba

yanfeiliuhen1

如何获取 收件箱下子文件夹名称 for outlook vba

闻启学

改一下

1. Sub GetSanderAdressAndBody()  '//获得收件箱的子文件夹的邮件  
   
2.     Dim Application As outlook.Application
   
3.     Dim myNamespace As NameSpace
   
4.     Dim myFolder As MAPIFolder
   
5. 
   
6.     Dim Folder As MAPIFolder
   
7.     Dim iMail As outlook.MailItem
   
8. 
   
9. 
   
10.     Dim ExcelApp
    
11.     Set ExcelApp = GetObject("", "Excel.Application")
    
12.     Set wbk = ExcelApp.Workbooks.Open("f:/测试中.xlsx")
    
13. 
    
14.     Set wst = wbk.Sheets(1)
    
15. 
    
16.     Set Application = New outlook.Application
    
17.     Set myNamespace = Application.GetNamespace("MAPI")
    
18.     'Set myFolder = MyNameSpace.PickFolder
    
19.     Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)    '//获得收件箱文件夹
    
20.     '// myNamespace.Folders.Count
    
21. 
    
22. 
    
23.     For i = 1 To myFolder.Folders.Count
    
24. 
    
25. '//        Set Folder = myFolder.Folders(i)
    
26. 
    
27.       debug.print  myFolder.Folders(i).name
    
28. 
    
29.     Next
    
30.     wbk.Close True
    
31.     Set iMail = Nothing
    
32.     Set myFolder = Nothing
    
33.     Set myNamespace = Nothing
    
34.     Set Application = Nothing
    
35. End Sub

复制代码

yanfeiliuhen1

谢谢 闻老师哈~