Πώς να ανοίξετε γρήγορα το παράθυρο διαλόγου αρχείου για να εισαγάγετε ένα συνημμένο στο Outlook;

Πώς να ανοίξετε γρήγορα το πλαίσιο διαλόγου αρχείου για να εισαγάγετε ένα συνημμένο στο Outlook;

Όταν χρειάζεται να εισαγάγουμε ένα συνημμένο σε ένα email σύνταξης, συνήθως πρέπει να κάνουμε κλικ στο Εισαγωγή > Επισύναψη αρχείου > Αναζήτηση σε αυτόν τον υπολογιστή για να ανοίξει το παράθυρο διαλόγου Εισαγωγή αρχείου και, στη συνέχεια, να βρούμε και να εισαγάγουμε το αρχείο που χρειαζόμαστε. Σε αυτό το σεμινάριο, παρέχουμε δύο κωδικούς VBA για να σας βοηθήσουμε να ανοίξετε εύκολα το πλαίσιο διαλόγου Εισαγωγή αρχείου με ένα μόνο κλικ.

Ανοίξτε γρήγορα το πλαίσιο διαλόγου αρχείου για να εισαγάγετε ένα συνημμένο με VBA

Οι ακόλουθοι κωδικοί VBA μπορούν να επιτευχθούν:

Κωδικός VBA 1: Ανοίξτε τον προεπιλεγμένο φάκελο Documents στον υπολογιστή σας
Κωδικός VBA 2: Ανοίξτε τον καθορισμένο φάκελο στον υπολογιστή σας

Κάντε τα εξής για να το κάνετε.

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > Βιβλιογραφικές αναφορές, στη συνέχεια ελέγξτε το Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft στο πλαίσιο Αναφορές – Έργο1 κουτί διαλόγου.

3. κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε έναν από τους παρακάτω κωδικούς VBA στο Μονάδα μέτρησης παράθυρο.

Κωδικός VBA 1: Ανοίξτε τον προεπιλεγμένο φάκελο Documents στον υπολογιστή σας

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 2: Ανοίξτε τον καθορισμένο φάκελο στον υπολογιστή σας

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

1) Ο κωδικός VBA 1 βοηθά στο άνοιγμα του προεπιλεγμένου φακέλου Documents στον υπολογιστή σας.

2) Στον κωδικό VBA 2, αλλάξτε τη διαδρομή φακέλου στην ακόλουθη γραμμή στη διαδρομή φακέλου που χρειάζεστε.
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save συνημμένων\"
Στη συνέχεια, ο καθορισμένος φάκελος θα ανοίγει κάθε φορά που εκτελείτε αυτόν τον κωδικό.

4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Τώρα χρειάζεστε ένα κουμπί για να εκτελέσετε τη μακροεντολή.

5. κλικ Αρχική > Νέο Email για να δημιουργήσετε ένα νέο email. Στο παράθυρο μηνύματος, κάντε κλικ Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης > Περισσότερες εντολές.

6. Στο Επιλογές του Outlook πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

6.1) Στο Επιλέξτε εντολές από αναπτυσσόμενη λίστα, επιλέξτε Μακροεντολές;

6.2) Επιλέξτε τη μακροεντολή που προσθέσατε στο προηγούμενο βήμα.

6.3) Κάντε κλικ στο Πρόσθεση κουμπί για να προσθέσετε αυτήν τη μακροεντολή στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης κουτί.

7. Διατηρήστε τη δέσμη ενεργειών επιλεγμένη στο δεξί πλαίσιο και, στη συνέχεια, κάντε κλικ στο Τροποποίηση κουμπί. Στο Κουμπί τροποποίησης παράθυρο διαλόγου, αντιστοιχίστε ένα νέο κουμπί στο σενάριο και κάντε κλικ OK.

8. κλικ OK στο Επιλογές του Outlook πλαίσιο διαλόγου για να αποθηκεύσετε τις αλλαγές.

9. Το κουμπί που καθορίσατε στο βήμα 7 προστίθεται στη συνέχεια στο Γραμμή εργαλείων γρήγορης πρόσβασης. Κατά τη σύνταξη ενός email, εάν θέλετε να εισαγάγετε ένα συνημμένο, μπορείτε απλώς να κάνετε κλικ σε αυτό το κουμπί για να ανοίξετε το Αναζήτηση φάκελο και επιλέξτε το αρχείο που θέλετε να εισαγάγετε.