|
|
|
Sub GetUnreadMessages()
Dim olMAPI As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder
Const FOLDER_TO_OPEN = "Mailbox - John Doe" 'Modify as appropriate
Set olMAPI = GetObject("", "Outlook.Application") _
.GetNamespace("MAPI")
Call PrintFolderNames(olMAPI.Folders(FOLDER_TO_OPEN), "->")
Set olMAPI = Nothing
End Sub
Sub PrintFolderNames(tempfolder As Outlook.MAPIFolder, a$)
Dim i As Integer
If tempfolder.Folders.Count Then
Debug.Print a$ & " " & tempfolder.Name & " ";
Debug.Print tempfolder.UnReadItemCount
For i = 1 To tempfolder.Folders.Count
Call PrintFolderNames(tempfolder.Folders(i), a$ & "->")
Next i
Else
Debug.Print a$ & " " & tempfolder.Name & " ";
Debug.Print tempfolder.UnReadItemCount
End If
End Sub |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2003-8-2 22:30
