Private myol As New Outlook.Application
Private olNameSpace As NameSpace
Private myFolder As MAPIFolder
Private myInMails As MAPIFolder
 
Private Sub Form_Load()
   Dim myMessage As MailItem
   Dim myAtt As Attachment
   Dim i As Byte
   Set olNameSpace = myol.GetNamespace("MAPI")
   'Zugriff auf den Posteingang
   Set myFolder = olNameSpace.GetDefaultFolder(olFolderInbox)
   Set myInMails = olNameSpace.Folders("Persönliche Ordner").Folders( _
     "PostEingang")
   'Zugriff auf die Mails
   For Each myMessage In myInMails.Items
     'myMessage.Subject = Betreffzeile
     'myMessage.SenderName = Absender des Mails 
      'Zugriff auf die Attachments, wenn vorhanden...
      If myMessage.Attachments.Count > 0 Then
         For i = 1 To myMessage.Attachments.Count
            Set myAtt = myMessage.Attachments(i)
            MsgBox myAtt.FileName
         Next
      End If
   Next
End Sub