Direkt zum Inhalt

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:

1) Der VBA-Code 1 hilft beim Öffnen des Standardordners Dokumente auf Ihrem Computer.
2) Im VBA-Code 2 ändern Sie bitte den Ordnerpfad in der folgenden Zeile auf den von Ihnen benötigten Ordnerpfad.
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.

6.1) In der Wählen Sie Befehle aus Dropdown-Liste, wählen Sie Makros;
6.2) Wählen Sie das Makro aus, das Sie im vorherigen Schritt hinzugefügt haben;
6.3) Klicken Sie auf Speichern Schaltfläche, um dieses Makro zum hinzuzufügen Anpassen der Symbolleiste für den Schnellzugriff Box.

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 ProBatch 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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations