Τα cookies μάς βοηθούν να παρέχουμε τις υπηρεσίες μας. Με τη χρήση των υπηρεσιών μας, συμφωνείτε με τη χρήση των cookies.
Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανω ΕΓΓΡΑΦΗ
x

or

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

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

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

Απάντηση σε όλους αποκλείει τον εαυτό μου στην προοπτική

Όταν χρησιμοποιούμε τη λειτουργία "Απάντηση σε όλους" στο Outlook, μπορούμε να προσθέσουμε και τους λογαριασμούς μας στο πεδίο "Για" εάν τα μηνύματα ηλεκτρονικού ταχυδρομείου που λαμβάνετε περιέχουν δύο ακόμη λογαριασμούς. Σε αυτήν την περίπτωση, ίσως θελήσετε να καταργήσετε τους λογαριασμούς σας από τα πεδία To και CC. Ktools για το Outlook's Το όνομά μου είναι μπορεί να σας κάνει μια χάρη για την ταχεία επίλυση αυτής της εργασίας. Χρειάζεται μόνο ένα κλικ, όλοι οι λογαριασμοί myselft στο Outlook θα αφαιρεθούν από τα πεδία To και CC. Κάντε κλικ για δωρεάν δοκιμαστική περίοδο 45 ημερών!
η απάντηση του εγγράφου εξαιρεί τον λογαριασμό
doc arrow dowm

η απάντηση του εγγράφου εξαιρεί τον λογαριασμό 2
Kutools για Outlook: με δεκάδες εύχρηστα πρόσθετα του Outlook, ελεύθερα να δοκιμάσουν χωρίς περιορισμό στις 45 ημέρες.

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

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

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

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

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

Ιδιόκτητο Sub Application_ItemSend (ByVal στοιχείο ως αντικείμενο, Ακύρωση ως Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () ως παράμετρος Dim xAddress ως Dim string ως Recipient Dim xPrompt ως String Dim xYesNo ως ακέραιο Dim xDictionary ως Scripting.Dictionary On Error Συνέχεια Επόμενος Set xDictionary = Νέο Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Για το i = LBound (xAddressArr) στο UBound (xAddressArr) xDictionary.Add xAddressArr ), Αληθές Επόμενο i Για κάθε xRecipient σε Item.Recipients Αν xRecipient.Type = olTo τότε Εάν xDictionary.Exists (xRecipient.Address) Στη συνέχεια xDictionary.Remove xRecipient.Address Τέλος Αν Next Εάν xDictionary.Count = 0 Στη συνέχεια GoTo L1 Για i = 0 Σε xDictionary.Count - 1 Αν xAddress = "" Τότε xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) Τελικό Εάν Επόμενο i xPrompt = "Δεν στέλνετε αυτό στο: "& xAddress &" Είστε βέβαιοι ότι θέλετε να στείλετε την αλληλογραφία; " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools για Outlook") Εάν xYesNo = vbNo τότε Ακύρωση = True L1: Ρύθμιση xRecipient = Καμία ρύθμιση xDictionary =

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

Στον κώδικα, μπορείτε να αλλάξετε ("example1@126.com", "example2@126.com", "example3@126.com") στους πραγματικούς αποδέκτες που χρειάζεστε.

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

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

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

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

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

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

Private Sub Application_ItemSend (ByVal στοιχείο ως αντικείμενο, Ακύρωση ως Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients Ως Outlook.Προσφέστες Dim xRecipient ως Outlook.Διαφημιστής Dim xPos ως ακέραιος Dim xYesNo ως ακέραιο Dim xPrompt ως String Dim xAddress ως String On Σφάλμα Συνέχεια Επόμενο Αν Στοιχείο. (XRecipient.Address), xAddress) Εάν xPos = 1 Στη συνέχεια xPrompt = "Στέλνετε αυτό να "& xAddress &" Είστε βέβαιοι ότι θέλετε να το στείλετε; " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 0, "Kutools για Outlook") Εάν xYesNo = vbNo τότε Ακύρωση = True End Εάν Next xRecipient End Sub

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



Kutools για το Outlook

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Outlook 2010, 2013, 2016, 2019 και 365

πυροβολισμό οθόνης kutools για προοπτική μικροσκοπικό για banner 201812

περισσότερα Χαρακτηριστικά | Δωρεάν κατέβασμα | Μόνο $ 39.00 για εκατοντάδες λειτουργίες

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.