如何抓取Outlook 收件箱 下所有邮件的邮件标题

rosinrosin1

怎么把帖子顶上去 。。。

闻启学

rosinrosin1 发表于 2016-9-30 12:48
怎么把帖子顶上去 。。。

试一试这个代码   

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.         For Each iMail In Folder.Items
    
28. 
    
29.             j = j + 1
    
30. 
    
31.             wst.Cells(j, 5) = iMail.ReceivedTime    '//接收邮件日期时间
    
32. 
    
33.             wst.Cells(j, 4) = Folder.Name    '//所在文件夹名称
    
34. 
    
35.             wst.Cells(j, 1) = iMail.To    '//发件人
    
36. 
    
37.             wst.Cells(j, 2) = iMail.CC    '//抄送人
    
38. 
    
39.             wst.Cells(j, 3) = iMail.Subject    '//正文
    
40.         Next iMail
    
41. 
    
42.     Next
    
43. 
    
44.     wbk.Close True
    
45. 
    
46.     Set iMail = Nothing
    
47.     Set myFolder = Nothing
    
48.     Set myNamespace = Nothing
    
49.     Set Application = Nothing
    
50. 
    
51. 
    
52. End Sub

复制代码

闻启学

rosinrosin1 发表于 2016-9-30 12:48
怎么把帖子顶上去 。。。

试一试上面代码  

我曾经做过  找不到这个文件