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

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

Öffnen Sie schnell das Dateidialogfeld, um einen Anhang mit VBA einzufügen

Die folgenden VBA-Codes können Folgendes erreichen:

VBA-Code 1: Öffnen Sie den Standardordner Dokumente auf Ihrem Computer
VBA-Code 2: Öffnen Sie den angegebenen Ordner auf Ihrem Computer

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

1. Starten Sie Outlook und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Verweise, dann überprüfe das Microsoft Scripting-Laufzeit Box in der Referenzen – Projekt1 Dialogbox.

3 Klicken Insert > Modul. Kopieren Sie dann einen der folgenden VBA-Codes in die Modul Fenster.

VBA-Code 1: Öffnen Sie den Standardordner Dokumente 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 Sie den angegebenen 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 Sub

Hinweise:

4. Drücken Sie die Taste Andere + Q Tasten zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

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

5 Klicken Home > Neue e-mail um eine neue E-Mail zu erstellen. Klicken Sie im Nachrichtenfenster auf Anpassen der Symbolleiste für den Schnellzugriff > Mehr Befehle.

6. In dem Outlook-Optionen Dialogfeld müssen Sie wie folgt konfigurieren.

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

8 Klicken OK der Outlook-Optionen Dialogfeld zum Speichern der Änderungen.

9. Die Schaltfläche, die Sie in Schritt 7 angegeben haben, wird dann zu hinzugefügt Quick Access Toolbar. Wenn Sie beim Verfassen einer E-Mail einen Anhang einfügen möchten, können Sie einfach auf diese Schaltfläche klicken, um die zu öffnen Entdecken Ordner und wählen Sie die einzufügende Datei aus.

---

Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

• Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
• BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
• Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
• Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
• Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.

Lesen Sie mehr... Jetzt downloaden...