Wie öffnet man schnell das Dateidialogfeld, um in Outlook einen Anhang einzufügen?

Author: Siluvia Last Modified: 2025-05-28

Wenn wir einen Anhang in einer E-Mail einfügen müssen, klicken wir normalerweise auf Einfügen > Datei anhängen > Diesen PC durchsuchen, um das Dialogfeld „Datei einfügen“ zu öffnen, und suchen dann die gewünschte Datei. In diesem Tutorial stellen wir zwei VBA-Codes bereit, mit denen Sie das Dialogfeld „Datei einfügen“ mit nur einem Klick einfach öffnen können.

Schnelles Öffnen des Dateidialogfelds zum Einfügen eines Anhangs mit VBA

Die folgenden VBA-Codes können Folgendes erreichen:

VBA-Code 1: Öffnen des Standard-Dokumente-Ordners auf Ihrem Computer
VBA-Code 2: Öffnen des angegebenen Ordners auf Ihrem Computer

Bitte gehen Sie wie folgt vor, um dies zu erledigen.

1. Starten Sie Ihr Outlook, drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Tools > References (Extras > Verweise), und aktivieren Sie das Kontrollkästchen Microsoft Scripting Runtime im Dialogfeld References – Project1.

steps of opening the file dialog box to insert an attachment in outlook

3. Klicken Sie auf Insert > Module (Einfügen > Modul). Kopieren Sie dann einen der folgenden VBA-Codes in das Modulfenster.

VBA-Code 1: Öffnen des Standard-Dokumente-Ordners auf Ihrem Computer

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

VBA-Code 2: Öffnen des angegebenen Ordners auf Ihrem Computer

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Hinweise:

1) Der VBA-Code 1 hilft beim Öffnen des Standard-Dokumente-Ordners auf Ihrem Computer.

2) Ändern Sie im VBA-Code 2 den Ordnerpfad in der folgenden Zeile in den benötigten Ordnerpfad.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"
Dann wird jedes Mal, wenn Sie diesen Code ausführen, der angegebene Ordner geöffnet.

4. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Jetzt brauchen Sie eine Schaltfläche, um das Makro auszuführen.

5. Klicken Sie auf Home > Neue E-Mail (Start > Neue E-Mail), um eine neue E-Mail zu erstellen. Klicken Sie im Nachrichtenfenster auf Symbolleiste für den Schnellzugriff anpassen > Weitere Befehle.

6. Konfigurieren Sie im Dialogfeld Outlook-Optionen wie folgt.

6.1) Wählen Sie im Dropdown-Menü Befehle auswählen die Option Makros;

6.2) Wählen Sie das Makro aus, das Sie im vorherigen Schritt hinzugefügt haben;

6.3) Klicken Sie auf die Schaltfläche Hinzufügen, um dieses Makro zur Symbolleiste für den Schnellzugriff hinzuzufügen.

7. Behalten Sie das Skript im rechten Feld ausgewählt, und klicken Sie dann auf die Schaltfläche Ändern. Weisen Sie im Dialogfeld Schaltfläche ändern eine neue Schaltfläche dem Skript zu und klicken Sie auf OK.

8. Klicken Sie im Dialogfeld Outlook-Optionen auf OK, um die Änderungen zu speichern.

9. Die Schaltfläche, die Sie in Schritt 7 festgelegt haben, wird dann zur Symbolleiste für den Schnellzugriff hinzugefügt. Beim Verfassen einer E-Mail können Sie, wenn Sie einen Anhang einfügen möchten, einfach auf diese Schaltfläche klicken, um den Durchsuchen-Ordner zu öffnen und die einzufügende Datei auszuwählen.

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu bearbeiten, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...

📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!