Στο Outlook, όταν χρειάζεται να εξαγάγετε και να αντιγράψετε όλους τους πίνακες από το ένα email στο άλλο, είναι αναμφίβολα κουραστικό και δυσκίνητο να το κάνετε με μη αυτόματο τρόπο. Αυτό το άρθρο θα μοιραστεί μαζί σας έναν πολύ πιο έξυπνο τρόπο.
Κατά καιρούς, μπορεί να θέλετε να δημιουργήσετε ένα νέο email που θα περιέχει τους πίνακες ενός άλλου email. Αν υπάρχει μόνο ένας πίνακας στο email, είναι πολύ εύκολο. Ωστόσο, εάν υπάρχουν πολλοί πίνακες στο email προέλευσης, η μη αυτόματη αντιγραφή είναι πολύ κουραστική. Έτσι, στα ακόλουθα, θα παρουσιάσουμε έναν άλλο τρόπο που είναι πολύ πιο αποτελεσματικός και έξυπνος.
Αντιγράψτε όλους τους πίνακες από το ένα email στο άλλο
- Για αρχή, θα πρέπει να έχετε πρόσβαση στο Outlook σας κανονικά.
- Στη συνέχεια, στο κύριο παράθυρο του Outlook, μπορείτε να πατήσετε τα πλήκτρα συντόμευσης "Alt + F11".
- Στη συνέχεια, στο αναδυόμενο παράθυρο "Microsoft Visual Basic για Εφαρμογές", πρέπει να ανοίξετε μια μονάδα που δεν χρησιμοποιείται ή απλώς να εισαγάγετε μια νέα.
- Στη συνέχεια, μπορείτε να αντιγράψετε τον ακόλουθο κώδικα VBA σε αυτήν την ενότητα.
Sub CopyAllTablesFromOneEmailToAnother()
Dim objSourceMail As Outlook.MailItem
Dim objSourceMailDocument As Word.Document
Dim objNewMail As Outlook.MailItem
Dim objNewMailDocument As Word.Document
Dim objTable As Word.Table
'Get the source email
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set objSourceMail = ActiveExplorer.Selection.Item(1)
objSourceMail.Display
Case "Inspector"
Set objSourceMail = ActiveInspector.CurrentItem
End Select
Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
If objSourceMailDocument.Tables.count > 0 Then
'Create a new email
Set objNewMail = Application.CreateItem(olMailItem)
For Each objTable In objSourceMailDocument.Tables
Set objNewMailDocument = objNewMail.GetInspector.WordEditor
'Copy all tables from source email to the new email
With objNewMailDocument.Range
.Collapse wdCollapseEnd
.FormattedText = objTable.Range.FormattedText
.Collapse wdCollapseEnd
.Text = vbCrLf
End With
Next
'Close the source email
objSourceMail.Close olSave
'Display the new email
objNewMail.Display
End If
End Sub
- Μετά από αυτό, μπορείτε να βγείτε από το τρέχον παράθυρο του προγράμματος επεξεργασίας VBA.
- Αργότερα θα πρέπει να αλλάξετε τις ρυθμίσεις μακροεντολών του Outlook για να ενεργοποιήσετε όλες τις μακροεντολές.
- Επίσης, είναι καλύτερο να προσθέσετε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης, η οποία μπορεί να επιτευχθεί στις "Επιλογές του Outlook".
- Τέλος, μπορείτε να δοκιμάσετε:
- Στην αρχή, ανοίξτε ή επιλέξτε ένα email του οποίου οι πίνακες θα αντιγραφούν.
- Στη συνέχεια, πατήστε το κουμπί μακροεντολής που προστέθηκε πρόσφατα στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Αφού ολοκληρωθεί η εκτέλεση της μακροεντολής, θα εμφανιστεί ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου, στο οποίο έχουν επικολληθεί οι πίνακες των μηνυμάτων προέλευσης.
Υπερασπίσου το αρχείο του Outlook ενάντια στη διαφθορά
Παρόλο που το Outlook μπορεί να διαδραματίσει καλό ρόλο ανεξάρτητα από το αν είναι αυτόνομο πρόγραμμα-πελάτη ηλεκτρονικού ταχυδρομείου ή ως ιδιωτικός διαχειριστής χρονοδιαγράμματος, εξακολουθεί να μην μπορεί να είναι προστατευμένο από σφάλματα και διαφθορές. Επομένως, είναι αναμφίβολα μια επίπονη και κουραστική εργασία η προστασία των δεδομένων σας στο Outlook. Πρέπει να παρακολουθείτε τις καθημερινές σας συμπεριφορές στο Outlook, όπως να μην κάνετε κλικ σε ύποπτους συνδέσμους, να κάνετε λήψη μη ασφαλών συνημμένων ή να κλείσετε το Outlook ακατάλληλα και ούτω καθεξής. Φυσικά, είναι απαραίτητο να έχετε κοντά σας ένα αστρικό εργαλείο επισκευής, όπως π.χ DataNumen Outlook Repair στο ότι μπορεί επιδιορθώστε το Outlook τα προβλήματα σαν αεράκι.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επισκευή MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com