Πώς να στείλετε μαζικά όλα τα φύλλα εργασίας σε ένα βιβλίο εργασίας του Excel ως ξεχωριστά μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook

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

Στην προηγούμενη ανάρτησή μου "2 Γρήγορες μέθοδοι για την αποστολή ενός φύλλου εργασίας του Excel ως email Outlook», μπορείτε να μάθετε δύο τρόπους για να στείλετε ένα φύλλο εργασίας Excel ως email. Εάν θέλετε να στείλετε μαζικά όλα τα φύλλα εργασίας σε ένα βιβλίο εργασίας ως μεμονωμένα email, η χρήση οποιουδήποτε από τους δύο τρόπους που αναφέρονται σε αυτήν την ανάρτηση θα είναι αρκετά κουραστική και προβληματική. Έτσι, εδώ θα παρουσιάσουμε έναν άλλο τρόπο, ο οποίος μπορεί να πραγματοποιήσει μια τέτοια «μαζική αποστολή» σε σύντομο χρονικό διάστημα.

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

1. Καταρχάς, θα πρέπει να ανοίξετε το βιβλίο εργασίας του Excel προέλευσης.
2. Στη συνέχεια, μετά την είσοδο στο παράθυρο του Excel, πρέπει να πατήσετε τις συντομεύσεις πλήκτρων "Alt + F11".
3. Στη συνέχεια, θα εμφανιστεί ένα άλλο παράθυρο που ονομάζεται "Microsoft Visual Basic for Applications".
4. Σε αυτό, πρέπει να ανοίξετε μια αχρησιμοποίητη ενότητα ή να εισαγάγετε μια νέα ενότητα.
5. Στη συνέχεια, μπορείτε να αντιγράψετε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.

Sub SendEachWorksheet_inOutlookEmail()
    Dim objWorksheet As Excel.Worksheet
    Dim objRange As Excel.Range
    Dim objTempWorkbook As Excel.Workbook
    Dim objTempWorksheet As Excel.Worksheet
    Dim strTempFolder As String
    Dim strHTMLFile As String
    Dim objHTMLFile As Object
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    For Each objWorksheet In ActiveWorkbook.Sheets
        Set objRange = objWorksheet.UsedRange
        objRange.Copy
 
        Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
        Set objTempWorksheet = objTempWorkbook.Sheets(1)
        With objTempWorksheet.Cells(1)
             .PasteSpecial xlPasteValues
             .PasteSpecial xlPasteColumnWidths
             .PasteSpecial xlPasteFormats
        End With
 
        strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
        strHTMLFile = strTempFolder & "\Temp" & Format(Now, "yyyymmddhhmmss") & ".htm"
        Set objHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
        objHTMLFile.Publish (True)
 
        Set objOutlookApp = CreateObject("Outlook.Application")
        Set objMail = objOutlookApp.CreateItem(olMailItem)
 
        Set objFileSystem = CreateObject("Scripting.FileSystemObject")
        Set objTextStream = objFileSystem.OpenTextFile(strHTMLFile)
        objMail.HTMLBody = objTextStream.ReadAll
 
        'Change the email details as per your needs
        With objMail
             .To = "test@datanumen.com"
             .Subject = objWorksheet.Name
             .Display
        End With
 
        objTextStream.Close
        objTempWorkbook.Close False
        Kill strHTMLFile
    Next
End Sub

6. Μετά από αυτό, θα μπορούσατε να ενεργοποιήσετε αυτήν τη μακροεντολή πατώντας το πλήκτρο F5 ή κάνοντας κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων.
7. Ταυτόχρονα, τα μηνύματα ηλεκτρονικού ταχυδρομείου, τα οποία αντιστοιχούν σε όλα τα φύλλα εργασίας σε αυτό το βιβλίο εργασίας του Excel, θα εμφανίζονται στο Outlook.
8. Τέλος, μπορείτε να ελέγξετε ξανά όλες τις λεπτομέρειες των email και, τέλος, να κάνετε κλικ στο κουμπί "Αποστολή" για να στείλετε τα email.

Εφαρμόστε ένα ισχυρό εργαλείο αποκατάστασης εάν δεν δημιουργούνται αντίγραφα ασφαλείας

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

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

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