Hallo Zusammen,

ich möchte bei bestimmten EMails den Anhang automatisch in einem von mir festgelegten Ordner auf dem Computer abspeichern. Mit einer Privaten EMail Adresse klappt das, nur bei mir auf der Arbeit benutzen wir ein Exchangekonto und da klappt es nicht. Kann mir einer sagen wir ich den Code umschreiben muss damit es auch mit einer Exchangemail klappt ?

Vielen Dank für eure Hilfe 

Das ist der bisherige Code den ich benutzte : 

Private WithEvents olItems As Outlook.Items

Private Sub Application_Startup()

'Variablen dimensionieren
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace

'Variablen initialisieren
Set olApp = Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olItems = olNS.GetDefaultFolder(olFolderInbox).Items

'Test
Debug.Print "Application_Startup wird ausgeführt"

End Sub

Private Sub olItems_ItemAdd(ByVal item As Object)

'Variablen dimensionieren
Dim olMail As Outlook.MailItem
Dim olAtt As Outlook.Attachment
Dim Dateipfad As String

'Prüfen, ob Item eine Mail ist
If TypeName(item) = "MailItem" Then

    Set olMail = item
    
    'Prüfen, ob Mail verwendet werden soll
    If InStr(olMail.Subject, "Test") <> 0 And _
    olMail.SenderEmailAddress = "gaby.roester@kirchhoff-automotive.com" Then

        'Daten zusammenführen

        'Schleife über alle Anhänge
        For Each olAtt In olMail.Attachments

            Dateipfad = "C:\Users\ahenke\Desktop\BDE\" & olAtt.FileName

            'Datei speichern
            olAtt.SaveAsFile Dateipfad


        Next olAtt

    End If
    
    'Test
'    Debug.Print olMail.Subject
'    Debug.Print olMail.SenderEmailAddress
'    Debug.Print olMail.Attachments.Count

End If

End Sub