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

Πώς να αντιστοιχίσετε αυτόματα την κατηγορία χρωμάτων σε συναντήσεις αφού τις αποδεχτείτε στο Outlook;

Στην καθημερινή σας εργασία, ενδέχεται να λαμβάνετε πολλά μηνύματα συσκέψεων στο Outlook. Μερικές φορές, θέλετε να αντιστοιχίσετε μια συγκεκριμένη κατηγορία χρωμάτων σε συναντήσεις αυτόματα όταν γίνονται δεκτές. Κανονικά, μπορείτε να τα αντιστοιχίσετε με μη αυτόματο τρόπο, αλλά, θα είναι ενοχλητικό να τα ορίσετε ένα προς ένα. Σε αυτό το άρθρο, θα μιλήσω για τον τρόπο αυτόματης επίτευξής του στο Outlook.

Αυτόματη εκχώρηση κατηγορίας χρώματος σε συναντήσεις μετά την αποδοχή τους με κωδικό VBA


Αυτόματη εκχώρηση κατηγορίας χρώματος σε συναντήσεις μετά την αποδοχή τους με κωδικό VBA

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.

Κωδικός VBA: Αυτόματη εκχώρηση κατηγορίας χρώματος σε συναντήσεις μετά την αποδοχή τους

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
        Set xMeetingItemAccepted = xMeetingItem
        Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
        With xAppointmentItem
            .Categories = .Categories & "Red Category"
            .Save
        End With
    End If
End If
End Sub

doc αυτόματη κατηγοριοποίηση συναντήσεων 1

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε Κόκκινη κατηγορία στο επιθυμητό όνομα κατηγορίας χρωμάτων.

3. Και στη συνέχεια, επανεκκινήστε το Outlook για να ενεργοποιήσετε αυτήν τη μακροεντολή.

4. Στη συνέχεια, αφού αποδεχτείτε το email της σύσκεψης και κάντε κλικ στο Στείλτε την απάντηση τώρα επιλογή, η συγκεκριμένη κατηγορία χρωμάτων θα ανατεθεί ταυτόχρονα στην αποδεκτή σύσκεψη. Δείτε το στιγμιότυπο οθόνης:

doc αυτόματη κατηγοριοποίηση συναντήσεων 2

Note: Αυτός ο κωδικός εφαρμόζεται μόνο στον προεπιλεγμένο λογαριασμό δεδομένων.


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

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