2 Μέθοδοι γρήγορης αποστολής επιλεγμένων κελιών σε ένα φύλλο εργασίας του Excel ως email Outlook

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

Το προηγούμενο άρθρο μου «2 Γρήγορες μέθοδοι για την αποστολή ενός φύλλου εργασίας του Excel ως email Outlook” σας δίδαξε πώς να στέλνετε ένα ολόκληρο φύλλο εργασίας του Excel ως email. Ωστόσο, μερικές φορές, θέλετε να στείλετε τα επιλεγμένα κελιά σε ένα φύλλο εργασίας μόνο ως email. Σε απάντηση αυτής της απαίτησης, εδώ θα σας παρουσιάσουμε 2 μεθόδους. Μπορείτε να επιλέξετε είτε σύμφωνα με τις προτιμήσεις σας.

Μέθοδος 1: Αντιγραφή επιλεγμένων κελιών στο email με μη αυτόματο τρόπο

1. Αρχικά, ανοίξτε το αρχείο προέλευσης Excel και αποκτήστε πρόσβαση στο σωστό φύλλο εργασίας Excel.
2. Στη συνέχεια, επιλέξτε τα κελιά που θέλετε να στείλετε ως email του Outlook.
3. Στη συνέχεια, πατήστε τις συντομεύσεις πλήκτρων "Ctrl + C" για να αντιγράψετε τα επιλεγμένα κελιά.
4. Μετά από αυτό, εκκινήστε την εφαρμογή Outlook.
5. Στη συνέχεια, κάντε κλικ στο κουμπί "Νέο email" στην κορδέλα "Αρχική σελίδα" για να δημιουργήσετε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook.
6. Αργότερα στο νέο παράθυρο Μήνυμα, κάντε κλικ στην ενότητα του σώματος του μηνύματος.
7. Στη συνέχεια, πατήστε τα πλήκτρα "Ctrl + V" για να επικολλήσετε τα επιλεγμένα κελιά του Excel που αντιγράφηκαν προηγουμένως.
8. Τέλος, μπορείτε να συνθέσετε το email ως συνήθως και να κάνετε κλικ στο κουμπί «Αποστολή» για να το στείλετε.

Μέθοδος 2: Αποστολή επιλεγμένων κελιών ως email μέσω VBA

1. Στην αρχή, ανοίξτε το βιβλίο εργασίας του Excel.
2. Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή Excel VBA.
3. Στο νέο παράθυρο, κάντε κλικ στο «Εισαγωγή» > «Μονάδα» για να εισαγάγετε μια νέα λειτουργική μονάδα.
4. Στη συνέχεια, θα πρέπει να ενεργοποιήσετε το Microsoft Outlook Object. Κάντε κλικ στην επιλογή "Εργαλεία" > "Αναφορές". Στο αναδυόμενο παράθυρο διαλόγου, βρείτε και επιλέξτε τη "Βιβλιοθήκη αντικειμένων Microsoft Outlook".
5. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.

Sub SendSelectedCells_inOutlookEmail()
    Dim objSelection As Excel.Range
    Dim objTempWorkbook As Excel.Workbook
    Dim objTempWorksheet As Excel.Worksheet
    Dim strTempHTMLFile As String
    Dim objTempHTMLFile As Object
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim objOutlookApp As Outlook.Application
    Dim objNewEmail As Outlook.MailItem
 
    'Copy the selection
    Set objSelection = Selection
    Selection.Copy
 
    'Paste the copied selected ranges into a temp worksheet
    Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
    Set objTempWorksheet = objTempWorkbook.Sheets(1)
 
    'Keep the values, column widths and formats in pasting
    With objTempWorksheet.Cells(1)
         .PasteSpecial xlPasteValues
         .PasteSpecial xlPasteColumnWidths
         .PasteSpecial xlPasteFormats
    End With
 
    'Save the temp worksheet as a HTML file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempHTMLFile = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Excel" & Format(Now, "YYYY-MM-DD hh-mm-ss") & ".htm"
    Set objTempHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strTempHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
    objTempHTMLFile.Publish (True)
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objNewEmail = objOutlookApp.CreateItem(olMailItem)
 
    'Read the HTML file data and insert into the email body
    Set objTextStream = objFileSystem.OpenTextFile(strTempHTMLFile)
    objNewEmail.HTMLBody = objTextStream.ReadAll
    objNewEmail.Display
    'You can specify the new email recipients, subjects here using the following lines:
    'objNewEmail.To = "johnsmith@datanumen.com"
    'objNewEmail.Subject = "DataNumen Products"
    'objNewEmail.Send --> directly send out this email
 
    objTextStream.Close
    objTempWorkbook.Close (False)
    objFileSystem.DeleteFile (strTempHTMLFile)
End Sub

6. Τελικά, μπορείτε να δοκιμάσετε.

• Αρχικά, επιλέξτε τα συγκεκριμένα κελιά ως συνήθως.
• Στη συνέχεια, επιστρέψτε στη νέα μακροεντολή και πατήστε το πλήκτρο F5 για να την ενεργοποιήσετε.
• Αμέσως, θα εμφανιστεί ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου του Outlook, στο οποίο μπορείτε να δείτε ότι τα επιλεγμένα κελιά έχουν εισαχθεί στο σώμα του ηλεκτρονικού ταχυδρομείου, όπως το ακόλουθο στιγμιότυπο οθόνης:

Το αρχείο PST είναι το ίδιο ευάλωτο με το αρχείο Excel

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

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

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