VBA-Code Outlook Anhänge aus Mails im Posteingang mit bestimmten Absendern auf einen Laufwerksordner ablegen.

Um Anhänge aus E-Mails im Outlook-Eingangspostkorb von bestimmten Absendern in einen Ordner auf einem Laufwerk zu speichern, kannst du den folgenden VBA-Code verwenden. Dieser Code durchsucht den Posteingang nach E-Mails von bestimmten Absendern und speichert die Anhänge in einem angegebenen Ordner.

```vba
Sub SaveAttachmentsFromSpecificSenders()
Dim olApp As Outlook.Application
Dim olNs As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olItem As Object
Dim olMail As Outlook.MailItem
Dim olAttachment As Outlook.Attachment
Dim saveFolder As String
Dim senderList As Variant
Dim sender As Variant

' Ordner zum Speichern der Anhänge festlegen
saveFolder = "C:\Dein\Pfad\Zum\Ordner\" ' Ändere den Pfad entsprechend

' Liste der spezifischen Absender
senderList = Array("[e-mail]", "[e-mail]") ' Füge hier die gewünschten Absender hinzu

' Outlook-Objekte initialisieren
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(olFolderInbox)

' Durchlaufe alle Elemente im Posteingang
For Each olItem In olFolder.Items
If TypeOf olItem Is Outlook.MailItem Then
Set olMail = olItem

' Überprüfe, ob der Absender in der Liste ist
For Each sender In senderList
If olMail.SenderEmailAddress = sender Then
' Speichere alle Anhänge
For Each olAttachment In olMail.Attachments
olAttachment.SaveAsFile saveFolder & olAttachment.FileName
Next olAttachment
End If
Next sender
End If
Next olItem

' Aufräumen
Set olAttachment = Nothing
Set olMail = Nothing
Set olItem = Nothing
Set olFolder = Nothing
Set olNs = Nothing
Set olApp = Nothing

MsgBox "Anhänge wurden gespeichert."
End Sub
```

### Hinweise:
1. **Ordnerpfad anpassen**: Ändere den `saveFolder`-Pfad zu dem gewünschten Speicherort auf deinem Laufwerk.
2. **Absender anpassen**: Füge die E-Mail-Adressen der Absender, von denen du die Anhänge speichern möchtest, in das `senderList`-Array ein.
3. **Sicherheitseinstellungen**: Stelle sicher, dass die Makros in Outlook aktiviert sind, um den Code auszuführen.

Dieser Code kann in das VBA-Editor-Fenster von Outlook eingefügt werden (Alt + F11) und dann ausgeführt werden.