Нужно "обойти" все e-mail'ы во всех папках Outlook в текущем pst.

Делаю так:

    Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)
                
    For Each oChildFolder In oFolder.Parent.Folders
        DoFolder oChildFolder
    Next

    ...

Public Sub DoFolder(ByVal oFolder As MAPIFolder)
    Dim oChildFolder As Outlook.MAPIFolder
    Dim oMailItem As Object

    For Each oChildFolder In oFolder.Folders
        For Each oMailItem In oChildFolder.Items
            If TypeOf oMailItem Is MailItem Then
        ...
        Next
        DoFolder oChildFolder
    Next

но это не верно, письма из inbox'a не обрабатываются. Как поправить?

хм. так и не разобрался в чем дело.
есть у кого-нить идеи?

хммм....

up...

Здравствуйте, LA_, Вы писали:

LA_>up...

Public Sub DoFolder(ByVal oFolder As MAPIFolder)
    Dim oChildFolder As Outlook.MAPIFolder
    Dim oMailItem As Object
        
    For Each oMailItem In oFolder.Items
        If TypeOf oMailItem Is MailItem Then
        ...    
    Next

    For Each oChildFolder In oFolder.Folders
        DoFolder oChildFolder
    Next
    
End Sub