Εάν θέλετε να εισαγάγετε γρήγορα τα ονόματα των παραληπτών στο σώμα κατά τη σύνταξη ενός μηνύματος ηλεκτρονικού ταχυδρομείου, μπορείτε να διαβάσετε αυτό το άρθρο. Εδώ θα σας παρουσιάσουμε μια βολική μέθοδο.
Κατά καιρούς, μπορεί να χρειαστεί να εισαγάγετε τα ονόματα όλων των παραληπτών στο σώμα όταν συντάσσετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου. Αναμφίβολα, είναι πολύ κουραστικό και δυσκίνητο να εξαγάγετε και να εισαγάγετε τα ονόματα στο σώμα ένα προς ένα χειροκίνητα. Επομένως, για να σας βοηθήσουμε να το επιτύχετε γρήγορα, εδώ θα σας μοιραστούμε ένα αποτελεσματικό μέσο. Διαβάστε παρακάτω για να λάβετε λεπτομερή βήματα.
Εισαγάγετε ονόματα παραληπτών στο σώμα του email
- Για ωςtart, αποκτήστε πρόσβαση στον επεξεργαστή VBA μέσω του "Alt + F11".
- Στη συνέχεια, στο παράθυρο "Microsoft Visual Basic for Applications", ενεργοποιήστε το "MS Word Object Library "σύμφωνα με"Πώς να προσθέσετε ένα αντικείμενο Library Αναφορά στο VBA".
- Στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα VBA σε μια κενή μονάδα.
Sub CopyRecipientNamesToBody()
Dim objMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Dim strRecipAddress As String
Dim strRecipName As String
Dim objContacts As Outlook.Items
Dim i As Integer
Dim strFilter As String
Dim objFoundContact As Outlook.ContactItem
Dim strRecipNames As String
Dim objMailDocument As Word.Document
'Get the current email
Set objMail = Application.ActiveInspector.CurrentItem
objMail.Recipients.ResolveAll
For Each objRecipient In objMail.Recipients
strRecipAddress = objRecipient.Address
'Get the corresponding contact name
Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
For i = 1 To 3
strFilter = "[Email" & i & "Address] = " & strRecipAddress
Set objFoundContact = objContacts.Find(strFilter)
If Not (objFoundContact Is Nothing) Then
strRecipNames = strRecipNames & objFoundContact.FullName & vbCr
Exit For
End If
Next
'If there isn't associated contact
'Extract name from email address
If objFoundContact Is Nothing Then
strRecipName = Split(strRecipAddress, "@")(0)
strRecipName = UCase(Left(strRecipName, 1)) & Right(strRecipName, Len(strRecipName) - 1)
strRecipNames = strRecipNames & strRecipName & vbCr
End If
Next
'Insert the names at the beginning of email
Set objMailDocument = objMail.GetInspector.WordEditor
objMailDocument.Range(0, 0).InsertAfter strRecipNames
End Sub
- Στη συνέχεια, προσθέστε αυτήν τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης του μηνύματος σύμφωνα με το προαιρετικό βήμα στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
- Μετά από αυτό, βγείτε από το παράθυρο.
- Τέλος, κάντε μια βολή.
- Αρχικά, συνθέστε ένα email και συμπληρώστε παραλήπτες.
- Στη συνέχεια, πατήστε το κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Όταν τελειώσει η μακροεντολή, τα ονόματα των παραληπτών έχουν εισαχθεί στο σώμα του email, όπως φαίνεται στο παρακάτω σχήμα.
Προστατεύστε από το Outlook Damage
Δεδομένου ότι το Outlook είναι ευάλωτο, είναι δύσκολο να προστατεύσετε το Outlook από ζημιές. Χωρίς αμφιβολία, πρέπει να είστε απρόθυμοι να συναντήσετε Διαφθορά PST. Επομένως, καλύτερα να λάβετε κάποιες αποτελεσματικές προφυλάξεις. Για παράδειγμα, πρέπει να δημιουργήσετε συνεκτικά αντίγραφα ασφαλείας δεδομένων για το Outlook, να είστε εξοικειωμένοι με τον τρόπο χρήσης του εργαλείου επισκευής εισερχομένων, καθώς και να διατηρείτε ένα ισχυρό εξωτερικό εργαλείο σε κοντινή απόσταση, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server σταθερός και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com