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
Anmerkungen:
xFileDlg.InitialFileName = "C:\Benutzer\Win10x64Test\Desktop\Anlagen speichern\"
Dann wird der angegebene Ordner jedes Mal geöffnet, wenn Sie diesen Code ausführen.
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.
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.