3 Γρήγορες μέθοδοι για την προσάρτηση όλων των αρχείων σε έναν τοπικό φάκελο σε ένα Outlook email

Εάν χρειάζεται συχνά να επισυνάψετε όλα τα αρχεία σε έναν τοπικό φάκελο σε ένα email του Outlook, μπορείτε να χρησιμοποιήσετε τις 3 γρήγορες προσεγγίσεις που εισάγονται σε αυτό το άρθρο.

Δεν υπάρχει αμφιβολία ότι είναι πολύ εύκολο να επισυνάψετε ένα αρχείο σε ένα email του Outlook. Αλλά για πολλούς χρήστες του Outlook, είναι σχεδόν μια πολύ συνηθισμένη περίπτωση που πρέπει να επισυνάψουν όλα τα αρχεία σε έναν συγκεκριμένο τοπικό φάκελο σε ένα email του Outlook. Έτσι, ως απάντηση σε αυτήν την απαίτηση, εδώ θα σας εκθέσουμε 3 πιο εύχρηστα μέσα. Μπορείτε να επιλέξετε οποιαδήποτε σύμφωνα με τις ανάγκες και τις προτιμήσεις σας.

Μέθοδος 1: Χρησιμοποιήστε το "Επισύναψη αρχείου"

1. Αρχικά, ανοίξτε ένα email και συνθέστε το κατά βούληση.
2. Στη συνέχεια, μεταβείτε στην καρτέλα "Εισαγωγή".
3. Στη συνέχεια κάντε κλικ στο κουμπί "Επισύναψη αρχείου".
4. Και μετά στο αναδυόμενο παράθυρο διαλόγου "Εισαγωγή αρχείου", επιλέξτε όλα τα αρχεία με το "Ctrl + A".
5. Στη συνέχεια, κάντε κλικ στο κουμπί "Εισαγωγή".
6. Τέλος, μπορείτε να ολοκληρώσετε το email και να το στείλετε ως συνήθως.

Μέθοδος 2: Χρησιμοποιήστε το "Αποστολή σε παραλήπτη αλληλογραφίας"

1. Πρώτα, μεταβείτε στον συγκεκριμένο τοπικό φάκελο στην Εξερεύνηση αρχείων.
2. Στη συνέχεια, αφού βρείτε το φάκελο, κάντε δεξί κλικ πάνω του.
3. Στη συνέχεια, από το μενού με δεξί κλικ, μπορείτε να επιλέξετε "Αποστολή σε"> "Παραλήπτης αλληλογραφίας".
4. Τέλος, θα ανοίξει ένα νέο email του Outlook και θα προστεθούν όλα τα αρχεία σε αυτόν τον φάκελο, όπως το ακόλουθο στιγμιότυπο οθόνης:

Μέθοδος 3: Χρησιμοποιήστε το Outlook VBA

1. Αρχικά, πατήστε τα πλήκτρα "Alt + F11" στο κύριο παράθυρο του Outlook.
2. Στη συνέχεια, ανοίξτε μια λειτουργική μονάδα που δεν χρησιμοποιείται.
3. Στη συνέχεια αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε αυτό.

Sub AttachAllFilesinaLocalFolder()
    Dim objMail As Outlook.MailItem
    Dim strFolderPath As String
    Dim strFileName As String
 
    If TypeName(Application.ActiveInspector.CurrentItem) = "MailItem" Then
       Set objMail = Application.ActiveInspector.CurrentItem
    End If
 
    'Change the folder path as per your real case
    strFolderPath = "C:\Attachments\DataNumen Products\"
    strFileName = Dir(strFolderPath)
 
    While Len(strFileName) > 0
          objMail.attachments.Add (strFolderPath & strFileName)
          strFileName = Dir
    Wend
End Sub

4. Μετά από αυτό, ανοίξτε ένα νέο email και προσθέστε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης του παραθύρου μηνυμάτων.
5. Τέλος, μπορείτε να κάνετε κλικ στο νέο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης. Στη συνέχεια, όλα τα αρχεία στον συγκεκριμένο τοπικό φάκελο θα εισαχθούν αμέσως.

Σύγκριση των 3 μεθόδων

Κρατήστε κακόβουλα μηνύματα ηλεκτρονικού ταχυδρομείου στο Bay

Το Outlook είναι ευάλωτο σε διάφορους παράγοντες, όπως συχνή ακατάλληλη απενεργοποίηση, εσωτερικά λογικά σφάλματα και εξωτερικούς ιούς και κακόβουλα προγράμματα. Επομένως, εάν σκοπεύετε να χρησιμοποιήσετε μακροεντολές, θα πρέπει να προσέχετε τους δυνητικά μη ασφαλείς συνδέσμους στα κακόβουλα μηνύματα ηλεκτρονικού ταχυδρομείου. Επιπλέον, πρέπει να αποκτήσετε ένα ισχυρό εργαλείο επισκευής κοντά, όπως DataNumen Outlook Repair, Η οποία μπορεί να επιδιορθώστε το Outlook ζητήματα σε γρήγορο χρόνο.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com