Πώς να ανοίξετε γρήγορα το πλαίσιο διαλόγου αρχείου για να εισαγάγετε ένα συνημμένο στο 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

:

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

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

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

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

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

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

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

---

Kutools for Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει τη δουλειά πολύ πιο εύκολη!

• Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
• Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
• Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
• Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
• Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.

Διαβάστε περισσότερα ... Κατεβάστε τώρα...