Set oArchive = oAcc.GetSpecialArchive(DvArchivePersonalIn)
 
    Set oMessageItems = oArchive.AllItems
    For i = 0 To oMessageItems.Count - 1
        If oMessageItems.Item(i).Type = DvEMailItem Then
            Set oMailItem = oMessageItems.Item(i)
            List1.AddItem ("Subject: " & oMailItem.Subject)
            If Not oMailItem.Attachments.Count = 0 Then
                Set oAttachments = oMailItem.Attachments
                List1.AddItem ("    count of Attachments: " & _
                  oAttachments.Count)
                For k = 0 To oAttachments.Count - 1
                    Set oAttachment = oAttachments.Item(k)
                    List1.AddItem ("        Dateiname: " & _
                      oAttachment.DisplayName)
                Next k
            End If
        End If
    Next i

------------------------------------------
Es gibt 10 verschiedene Arten von Menschen auf diesem Planeten: Diejenigen, die bin?r verstehen, und die anderen.