怎么读取多个数据文件下的收件箱中的邮件

zjtrueking

在outlook 中有多个邮箱，怎么将每个邮箱中的收件箱中的邮件都读取出来。不同的邮箱应该对应的是不同的数据文件，这个对象怎么称呼啊。

dsd999

Sub CreatePersonalContacts()
    Dim myOlApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
   
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    For Each myFolder In myNamespace.Folders
    MsgBox myFolder.Name
    Next
   
End Sub

这个看明白了，你就会了。

每个邮箱其实是个folder。

zjtrueking

谢谢楼上。