Τρόπος μαζικής αποστολής όλων των αρχείων σε έναν φάκελο των Windows μέσω ξεχωριστών μηνυμάτων ηλεκτρονικού ταχυδρομείου του Outlook

Εάν θέλετε να στείλετε όλα τα αρχεία σε έναν φάκελο των Windows μέσω μεμονωμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου του Outlook σε κάποιον, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο. Χρησιμοποιεί κώδικα VBA, ο οποίος είναι αρκετά αποτελεσματικός.

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

Μαζική αποστολή όλων των αρχείων σε έναν φάκελο των Windows μέσω ξεχωριστών μηνυμάτων ηλεκτρονικού ταχυδρομείου

1. Αρχικά, ξεκινήστε το πρόγραμμα Outlook.
2. Στη συνέχεια, στο Outlook, αποκτήστε πρόσβαση στον επεξεργαστή VBA σε σχέση με το άρθρο - "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
3. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA σε ένα έργο ή μια λειτουργική μονάδα.

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

4. Μετά από αυτό, μπορείτε να εκτελέσετε αυτήν τη μακροεντολή ταυτόχρονα. Απλώς πατήστε το πλήκτρο «F5».
5. Στη συνέχεια, θα σας ζητηθεί να επιλέξετε τον προέλευση φάκελο των Windows στο αναδυόμενο παράθυρο διαλόγου.
6. Τελικά, το Outlook θα επισυνάψει όλα τα αρχεία σε αυτόν τον φάκελο των Windows σε ξεχωριστά μηνύματα ηλεκτρονικού ταχυδρομείου και θα στείλει τα μηνύματα στον προκαθορισμένο παραλήπτη.
7. Όταν τελειώσει, θα λάβετε ένα μήνυμα που θα σας προτρέπει "Όλα έγιναν!".

Παρακολουθήστε το Outlook Health

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

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

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