Wie öffnen Sie schnell das Dateidialogfeld, um einen Anhang in Outlook einzufügen?
Wenn Sie einen Anhang in eine zu verfassende E-Mail einfügen möchten, klicken Sie normalerweise auf **Einfügen > Datei anhängen > Auf diesem PC suchen**, um das Dialogfeld **Datei einfügen** zu öffnen, und wählen dann die gewünschte Datei aus. In diesem Tutorial stellen wir Ihnen zwei VBA-Codes zur Verfügung, mit denen Sie das Dialogfeld **Datei einfügen** mit nur einem einzigen Klick direkt öffnen können.
Schnelles Öffnen des Dateidialogfelds zum Einfügen eines Anhangs mit VBA
Die folgenden VBA-Codes ermöglichen:
VBA-Code 1: Öffnet den standardmäßigen Dokumente-Ordner auf Ihrem Computer
VBA-Code 2: Öffnet einen festgelegten Ordner auf Ihrem Computer
Gehen Sie folgendermaßen vor, um dies durchzuführen.
1. Starten Sie Ihr Outlook und drücken Sie die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Extras > Verweise, und aktivieren Sie dann das Kontrollkästchen Microsoft Scripting Runtime im Dialogfeld Verweise – Projekt1.
3. Klicken Sie auf Einfügen > Modul. Kopieren Sie anschließend einen der folgenden VBA-Codes in das Modul-Fenster.
VBA-Code 1: Öffnet den standardmäßigen Dokumente-Ordner 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 SubVBA-Code 2: Öffnet einen festgelegten Ordner 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 SubHinweise:
xFileDlg.InitialFileName = „C:\Users\Win10x64Test\Desktop\save attachments\"
Danach wird bei jeder Ausführung dieses Codes der festgelegte Ordner geöffnet.
4. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.
Jetzt brauchen Sie eine Schaltfläche, um das Makro auszuführen.
5. Klicken Sie auf 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 Folgendes.
7. Lassen Sie das Skript im rechten Feld ausgewählt und klicken Sie auf die Schaltfläche Ändern. Weisen Sie im Dialogfeld Schaltfläche ändern dem Skript eine neue Schaltfläche zu und klicken Sie auf OK.
8. Klicken Sie im Dialogfeld OK, um die Änderungen im Dialog Outlook-Optionen zu speichern.
9. Die in Schritt 7 festgelegte Schaltfläche wird nun zur Symbolleiste für den Schnellzugriff hinzugefügt. Wenn Sie beim Verfassen einer E-Mail einen Anhang einfügen möchten, klicken Sie einfach auf diese Schaltfläche, um den Durchsuchen-Dialog zu öffnen und die gewünschte Datei auszuwählen.
Beste Office-Produktivitätswerkzeuge
Erleben Sie das komplett neue Kutools für Outlook mit 100+ unglaublichen Funktionen!Jetzt zum Download klicken!
📧E-Mail-Automatisierung: Automatische Antworten (verfügbar für POP und IMAP) / E-Mails zeitgesteuert versenden / Beim Senden automatisch CC/BCC basierend auf Regeln hinzufügen / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Grußformel einfügen / Mehrfachadressierte E-Mails automatisch in Einzelnachrichten aufteilen …
📨E-Mail-Verwaltung: E-Mails zurückrufen, Betrugs-E-Mails anhand von Betreffzeilen und weiteren Kriterien blockieren, doppelte E-Mails löschen, Erweiterte Suche, Ordner organisieren …
📁Anhänge Pro: Stapelweise speichern / Stapelweise lösen / Stapelweise komprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung …
🌟Oberflächenzauber:😊Noch mehr hübsche und coole Emojis/Benachrichtigung bei wichtigen eingehenden E-Mails/Outlook minimieren statt schließen...
👍Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Aktuelle Uhrzeit der Absender-Zeitzone anzeigen...
👩🏼🤝👩🏻Kontakte & Kalender:Stapelweise Kontakte aus ausgewählten E-Mails hinzufügen/Eine Kontaktgruppe in einzelne Kontakte aufteilen/Geburtstagserinnerung entfernen...
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere Sprachen!
🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins
Stark empfohlen: Kutools for Office (5-in-1)
Mit einem Klick fünf Installationsprogrammegleichzeitig herunterladen –Kutools für Excel, Outlook, Word, PowerPointund Office Tab Pro.Jetzt zum Download klicken!
- ✅Ein-Klick-Komfort: Laden Sie alle fünf Installationspakete mit nur einem Klick herunter.
- 🚀Bereit für jede Office-Aufgabe: Installieren Sie die Add-Ins, die Sie brauchen – genau dann, wenn Sie sie benötigen.
- 🧰Enthalten: Kutools für Excel / Kutools für Outlook / Kutools für Word / Office Tab Pro / Kutools for PowerPoint