Dim sFaxName As String
        Dim myApp As New Outlook.Application
        Dim myNameSpace As Outlook.NameSpace
        Dim MyFolder As Outlook.MAPIFolder
        Dim myDeleteFolder As Outlook.MAPIFolder
        Dim myItem As Outlook.MailItem
        Dim myAttachment As Outlook.Attachment
 
        Try
 
            myNameSpace = myApp.GetNamespace("MAPI")
            MyFolder = myNameSpace.GetDefaultFolder( _
              Outlook.OlDefaultFolders.olFolderInbox)
            myDeleteFolder = myNameSpace.GetDefaultFolder( _
            Outlook.OlDefaultFolders.olFolderDeletedItems)
            'Überprüfen des Posteingangs
            For Each myItem In MyFolder.Items
                If InStr(UCase(myItem.SenderName), "FAX") Then
                    'For Each myAttachment In myItem.Attachments()                 
...

cu
Ralph