Εάν θέλετε να αντιγράψετε όλους τους υπερσυνδέσμους σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου και στη συνέχεια να τους στείλετε σε ένα νέο μήνυμα ηλεκτρονικού ταχυδρομείου σε κάποιον άλλο, μπορείτε να χρησιμοποιήσετε την προσέγγιση που παρουσιάζεται σε αυτό το άρθρο. Είναι σε θέση να σας αφήσει να το αποκτήσετε με μια κίνηση.
Κατά καιρούς, μπορεί να χρειαστεί να εξαγάγετε και να στείλετε τους υπερσυνδέσμους από πολλά ληφθέντα email σε μια συγκεκριμένη διεύθυνση email. Για παράδειγμα, ο συνάδελφός σας σας στέλνει μερικά email που περιέχουν υπερσυνδέσμους που σχετίζονται με ένα έργο που βρίσκεται σε εξέλιξη. Στη συνέχεια, θα θέλατε να εξαγάγετε αυτούς τους υπερσυνδέσμους σε ένα μόνο email και να στείλετε αυτό το email στην άλλη διεύθυνση email σας. Στην περίπτωση αυτή, το most άμεσος τρόπος είναι να αντιγράψετε υπερσυνδέσμους στο νέο email έναν προς έναν από τα email προέλευσης. Αλλά, είναι πολύ ανόητο και αναποτελεσματικό. Τώρα, στη συνέχεια, θα σας μοιραστούμε μια πιο βολική και γρήγορη μέθοδο.
Μαζική αντιγραφή όλων των υπερσυνδέσμων σε πολλά μηνύματα ηλεκτρονικού ταχυδρομείου σε ένα νέο email
- Στην αρχή, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, επιλέξτε τα email από τα οποία θέλετε να εξαγάγετε υπερσυνδέσμους.
- Στη συνέχεια, ενεργοποιήστε το πρόγραμμα επεξεργασίας του Outlook VBA σύμφωνα με το "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Στο παράθυρο του προγράμματος επεξεργασίας VBA, ενεργοποιήστε την αναφορά στο "MS Word Object Library "σύμφωνα με"Πώς να προσθέσετε ένα αντικείμενο Library Αναφορά στο VBA".
- Αργότερα, βάλτε τον παρακάτω κώδικα σε μια ενότητα.
Sub CopyAllHyperlinksOfMultipleEmails()
Dim objNewMail As Outlook.MailItem
Dim objNewMailDocument As Word.Document
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objHyperlink As Word.Hyperlink
'Create a new mail
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
objNewMail.Display
Set objNewMailDocument = objNewMail.GetInspector.WordEditor
'Get all selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For i = objSelection.Count To 1 Step -1
If objSelection.Item(i).Class = olMail Then
Set objMail = objSelection.Item(i)
Set objMailDocument = objMail.GetInspector.WordEditor
'Copy hyperlink to new mail body
For Each objHyperlink In objMailDocument.Hyperlinks
objHyperlink.Range.Copy
objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
objNewMailDocument.Range(0, 0).Select
objNewMailDocument.Application.Selection.TypeParagraph
Next
End If
Next
End Sub
- Μετά από αυτό, πατήστε "F5" για να εκτελέσετε αυτήν τη μακροεντολή αυτή τη στιγμή.
- Τέλος, όταν ολοκληρωθεί η μακροεντολή, θα εμφανιστεί ένα νέο μήνυμα, το οποίο περιέχει όλους τους υπερσυνδέσμους που έχουν εξαχθεί από τα προηγουμένως επιλεγμένα email.
Δώστε ιδιαίτερη προσοχή σε άγνωστους υπερσυνδέσμους
Είναι ιδιαίτερα απαραίτητο για τους χρήστες του Outlook να προσέχουν όλους τους ύποπτους υπερσυνδέσμους σε άγνωστα μηνύματα ηλεκτρονικού ταχυδρομείου. Είναι επειδή ο μost από αυτά ενδέχεται να φέρουν ιούς, οι οποίοι μπορούν να οδηγήσουν άμεσα σε καταστροφή δεδομένων του Outlook. Προφανώς, κανείς δεν είναι έτοιμος να χάσει τα δεδομένα του Outlook. Ως εκ τούτου, στην καθημερινή εργασία, θα πρέπει να προσέχετε τα άγνωστα μηνύματα, αποτρέποντας ιούς και κακόβουλο λογισμικό. Επιπλέον, αν είναι δυνατόν, προτείνεται να αποκτήσετε έναν έμπειρο και αξιόπιστο Επισκευή του Outlook εργαλείο, όπως DataNumen Outlook Repair. Σίγουρα θα σας βοηθήσει πολύ όταν το αρχείο PST του Outlook παραβιαστεί.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com