Μερικές φορές, μπορεί να θέλετε να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου σε όλες τις επαφές σε έναν συγκεκριμένο τομέα. Σε αυτήν την περίπτωση, μπορείτε να χρησιμοποιήσετε τη μέθοδο που παρουσιάζεται σε αυτό το άρθρο για να την αποκτήσετε γρήγορα.
Για κάποιους λόγους, μερικές φορές, μπορεί να χρειαστεί να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου σε όλες τις επαφές ενός συγκεκριμένου τομέα στο Outlook σας. Για παράδειγμα, απαιτείται να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου σε όλους τους συναδέλφους σας των οποίων οι διευθύνσεις ηλεκτρονικού ταχυδρομείου είναι σίγουρα σε έναν συγκεκριμένο τομέα ηλεκτρονικού ταχυδρομείου. Θα είναι αρκετά ενοχλητικό αν μάθετε χειροκίνητα αυτές τις επαφές. Επομένως, εδώ θα εισαγάγουμε μια γρήγορη μέθοδο για να την αποκτήσουμε. Τα παρακάτω είναι τα λεπτομερή βήματα και οι κωδικοί VBA.
Μαζική αποστολή email σε όλες τις επαφές σε έναν συγκεκριμένο τομέα
- Πρώτα, ξεκινήστε την εφαρμογή Outlook.
- Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή Outlook VBA,
- Στη συνέχεια, πρέπει να ανοίξετε μια ενότητα που δεν χρησιμοποιείται ή να εισαγάγετε απευθείας μια νέα μονάδα.
- Στη συνέχεια, αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA σε αυτό.
Sub SendanEmailtoAllContactsinSpecificDomain()
Dim objContactsFolder As Outlook.Folder
Dim objItem As Object
Dim objContact As Outlook.ContactItem
Dim strEmail1Address, strEmail2Address, strEmail3Address As String
Dim objMail As Outlook.MailItem
Dim objMailRecipients As Outlook.Recipients
Set objMail = Application.CreateItem(olMailItem)
Set objMailRecipients = objMail.Recipients
Set objContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
For Each objItem In objContactsFolder.Items
If objItem.Class = olContact Then
Set objContact = objItem
strEmail1Address = objContact.Email1Address
strEmail2Address = objContact.Email2Address
strEmail3Address = objContact.Email3Address
'Change the specific email domain
If InStr(strEmail1Address, "@datanumen.com") > 0 Then
objMail.Recipients.Add (strEmail1Address)
ElseIf InStr(strEmail2Address, "@datanumen.com") > 0 Then
objMail.Recipients.Add (strEmail2Address)
ElseIf InStr(strEmail3Address, "@datanumen.com") > 0 Then
objMail.Recipients.Add (strEmail3Address)
End If
End If
Next objItem
objMail.Display
End Sub
- Μετά από αυτό, πρέπει να αλλάξετε το επίπεδο ασφάλειας μακροεντολής του Outlook σε χαμηλό.
- Προαιρετικά, εάν χρειάζεται συχνά να στέλνετε ένα τέτοιο μήνυμα ηλεκτρονικού ταχυδρομείου, προτείνεται επίσης να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Σε αυτό το σημείο, μπορείτε να δοκιμάσετε. Κάντε κλικ στο εικονίδιο "εκτέλεση" στη γραμμή εργαλείων.
- Τελικά, θα εμφανιστεί ένα νέο email. Μπορείτε να διαπιστώσετε ότι όλες οι διευθύνσεις ηλεκτρονικού ταχυδρομείου που βρίσκονται στον συγκεκριμένο τομέα ηλεκτρονικού ταχυδρομείου έχουν συμπεριληφθεί στο πεδίο "Προς", όπως το παρακάτω στιγμιότυπο οθόνης:
Ποτέ μην πανικοβάλλεστε ενόψει σφαλμάτων PST
Οι χρήστες τείνουν να πανικοβάλλονται όταν αντιμετωπίζουν σοβαρά ζητήματα PST, όπως απρόσιτα σφάλματα PST, αρχείο PST μολυσμένο από ιούς ή κατεστραμμένο Outlook δεδομένα PST, κ.λπ. Ωστόσο, είναι συνετό να ηρεμήσετε και να προσπαθήσετε να το επιλύσετε το συντομότερο δυνατό. Πρώτα απ 'όλα, μπορείτε να δοκιμάσετε να επανεκκινήσετε το Outlook. Εάν τα προβλήματα επιμένουν, μπορείτε να χρησιμοποιήσετε ξανά το εργαλείο επιδιόρθωσης εισερχομένων, Scanpst.exe. Ωστόσο, υποθέτοντας ότι δεν μπορεί να έχει κανένα αποτέλεσμα, μπορείτε να καταφύγετε σε ένα πιο έμπειρο εργαλείο, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com