Εάν θέλετε να δημιουργήσετε ένα νέο email και να προσθέσετε όλα τα συνημμένα σε πολλά άλλα email στο νέο mail, μπορείτε να χρησιμοποιήσετε τη μέθοδο που εισάγεται σε αυτό το άρθρο. Θα σας διδάξει να χρησιμοποιήσετε το VBA για να το κάνετε σαν αεράκι.
Κατά καιρούς, ενδέχεται να χρειαστεί να αντιγράψετε μαζικά όλα τα συνημμένα από πολλά μηνύματα σε νέο email. Φυσικά, μπορείτε να επιλέξετε να το κάνετε χειροκίνητα, απλώς αποθηκεύοντάς τα πρώτα στην τοπική μονάδα δίσκου και στη συνέχεια επισυνάπτοντάς τα σε ένα νέο email ένα προς ένα. Ωστόσο, προφανώς, με αυτόν τον τρόπο, θα είναι ένα πολύ κουραστικό έργο. Επομένως, γιατί δεν χρησιμοποιείτε το VBA για να το συνειδητοποιήσετε γρήγορα; Στα ακόλουθα, θα σας εκθέσουμε τις περίπλοκες λειτουργίες και τους αντίστοιχους κωδικούς VBA.
Μαζική αντιγραφή όλων των συνημμένων από πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου σε νέο email
- Από την αρχή, ξεκινήστε το πρόγραμμα Outlook ως συνήθως.
- Στη συνέχεια, στο κύριο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
- Στο επόμενο παράθυρο "Microsoft Visual Basic for Applications", εισαγάγετε μια νέα λειτουργική μονάδα ή ανοίξτε μια λειτουργική μονάδα που δεν χρησιμοποιείται.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε μια τέτοια ενότητα.
Sub NewEmailwithAttachmentsinSeveralEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim strFilePath As String
Dim objNewMail As Outlook.MailItem
Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
On Error Resume Next
For Each objMail In objSelection
For Each objAttachment In objMail.attachments
'Save all the attachments to temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
objAttachment.SaveAsFile (strFilePath)
'Add the attachments to the new email
objNewMail.attachments.Add (strFilePath)
'Delete the temporary files
objFileSystem.DeleteFile (strFilePath)
Next
Next
'Show the new email
objNewMail.Display
End Sub
- Μετά από αυτό, πρέπει να προχωρήσετε στην προσθήκη του νέου έργου VBA στη Γραμμή εργαλείων γρήγορης πρόσβασης. Μπορείτε να το συμπληρώσετε στο "Επιλογές του Outlook".
- Αργότερα θα πρέπει να αλλάξετε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
- Τέλος, μπορείτε να δοκιμάσετε.
- Αρχικά, πατήστε το πλήκτρο "Ctrl" και επιλέξτε πολλά email τα συνημμένα των οποίων θέλετε να αντιγράψετε.
- Στη συνέχεια, πατήστε το νέο κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Αμέσως, θα εμφανιστεί ένα νέο email με όλα τα συνημμένα συνημμένα.
Πρόκληση συχνών ζητημάτων PST Outlook
Καθώς τα ζητήματα του PST του Outlook μπορούν να προκύψουν τώρα και ξανά, θα πρέπει να καταβάλλετε πολλές προσπάθειες για την προστασία των δεδομένων PST. Για παράδειγμα, καλύτερα να δημιουργήσετε αντίγραφα ασφαλείας των δεδομένων PST σας σε τακτική βάση, έτσι ώστε να μπορείτε να λάβετε ξανά τα δεδομένα κατεστραμμένο Outlook δεδομένα από αντίγραφα ασφαλείας χωρίς να ξεσκονίζουμε. Επιπλέον, πρέπει να διατηρείτε ένα αξιόπιστο εργαλείο κοντά σας DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή mdf και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com