Μετάβαση στο κύριο περιεχόμενο

Πώς να ελέγξετε τις διευθύνσεις παραληπτών πριν από την αποστολή μέσω του Outlook;

Σε ορισμένες περιπτώσεις, μπορεί να χάσετε την προσθήκη ορισμένων σημαντικών παραληπτών στα πεδία Προς, CC ή BCC κατά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου μέσω του Outlook. Εδώ, μπορώ να εισαγάγω μια μέθοδο για να ελέγξω αν έχουν προστεθεί οι συγκεκριμένες διευθύνσεις email πριν από την αποστολή μέσω του Outlook.

Ελέγξτε τις διευθύνσεις πριν από την αποστολή με κωδικό VBA


Ελέγξτε τις διευθύνσεις πριν από την αποστολή με κωδικό VBA

Εδώ έχω δύο κωδικούς που μπορούν να σας βοηθήσουν στην επίλυση αυτής της εργασίας, μπορείτε να επιλέξετε οποιονδήποτε χρειάζεστε.

1. Τύπος Alt + F11 keys για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Διπλό κλικ Αυτό το OutlookSession από Project1 παράθυρο για να ανοίξετε τον επεξεργαστή κώδικα, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στον επεξεργαστή.

VBA: ελέγξτε τη διεύθυνση παραλήπτη στο πεδίο Προς πριν από την αποστολή

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xAddressArr() As Variant
Dim xAddress As String
Dim xRecipient As Recipient
Dim xPrompt As String
Dim xYesNo As Integer
Dim xDictionary As Scripting.Dictionary
On Error Resume Next
Set xDictionary = New Scripting.Dictionary
xAddressArr = Array("", "", "")
For i = LBound(xAddressArr) To UBound(xAddressArr)
    xDictionary.Add xAddressArr(i), True
Next i
For Each xRecipient In Item.Recipients
    If xRecipient.Type = olTo Then
        If xDictionary.Exists(xRecipient.Address) Then xDictionary.Remove xRecipient.Address
    End If
Next
If xDictionary.Count = 0 Then GoTo L1
For i = 0 To xDictionary.Count - 1
    If xAddress = "" Then
        xAddress = xDictionary.Keys(i)
    Else
        xAddress = xAddress + "; " & xDictionary.Keys(i)
    End If
Next i
xPrompt = "You are not sending this to: " & xAddress & ". Are you sure you want to send the Mail?"
xYesNo = MsgBox(xPrompt, vbQuestion + vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Cancel = True
L1:
  Set xRecipient = Nothing
  Set xDictionary = Nothing
End Sub

doc ελέγξτε τη διεύθυνση παραλήπτη πριν από την αποστολή 1

Στον κώδικα, μπορείτε να αλλάξετε ("""""") στους πραγματικούς παραλήπτες που χρειάζεστε.

3. Στη συνέχεια επίσης στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές. Ελέγξτε Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft πλαίσιο ελέγχου μέσα Αναφορές-Έργο 1 διαλόγου.

doc ελέγξτε τη διεύθυνση παραλήπτη πριν από την αποστολή 2 doc βέλος δεξιά doc ελέγξτε τη διεύθυνση παραλήπτη πριν από την αποστολή 3

4. κλικ OK και αποθηκεύστε τον κωδικό.

Τώρα Εάν οι καθορισμένοι παραλήπτες δεν εμφανίζονται στο πεδίο Προς κατά την αποστολή email, θα εμφανιστεί ένα παράθυρο διαλόγου για να σας υπενθυμίσει εάν θα στείλετε το email.
doc ελέγξτε τη διεύθυνση παραλήπτη πριν από την αποστολή 4

Με τον παραπάνω κωδικό, ελέγχει μόνο τις διευθύνσεις email στο Προς την πεδίο, εάν θέλετε να κάνετε check in Προς την, CC και BCC πεδία, μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα.

VBA: ελέγξτε τη διεύθυνση παραλήπτη στα πεδία Προς / CC / BCC πριν από την αποστολή

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180523
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim xPos As Integer
Dim xYesNo As Integer
Dim xPrompt As String
Dim xAddress As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xRecipients = Item.Recipients
xAddress = ""
For Each xRecipient In xRecipients
    xPos = InStr(LCase(xRecipient.Address), xAddress)
    If xPos = 0 Then
        xPrompt = "You sending this to " & xAddress & ". Are you sure you want to send it?"
        xYesNo = MsgBox(xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook")
        If xYesNo = vbNo Then Cancel = True
    End If
Next xRecipient
End Sub

Με αυτόν τον κωδικό, δεν χρειάζεται να ελέγξετε Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft πλαίσιο ελέγχου, απλώς αποθηκεύστε τον κώδικα για να τεθεί σε ισχύ.


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations