Note: The other languages of the website are Google-translated. Back to English

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:

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 Verwenden Sie 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.


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ählenrealisieren kannst...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakterealisieren kannst... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte