Πώς να αποδεχτείτε αυτόματα αίτημα σύσκεψης από συγκεκριμένο άτομο στο Outlook;
Κατά τη λήψη πρόσκλησης σε σύσκεψη στο Outlook, πρέπει να αποδεχτείτε χειροκίνητα την πρόσκληση σε σύσκεψη και να στείλετε την απάντηση στον αποστολέα. Υπάρχει κάποιος εύκολος τρόπος να το αποδεχτείτε αυτόματα από ένα συγκεκριμένο άτομο στο Outlook; Η μέθοδος σε αυτό το άρθρο θα σας βοηθήσει.
Αυτόματη αποδοχή αιτήματος συνάντησης από συγκεκριμένο άτομο με κωδικό VBA
Αυτόματη αποδοχή αιτήματος συνάντησης από συγκεκριμένο άτομο με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αποδεχτείτε αυτόματα αίτημα σύσκεψης που στάλθηκε από ένα συγκεκριμένο άτομο στο Outlook. Κάντε τα εξής:
1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession στο αριστερό παράθυρο για να ανοίξετε το παράθυρο κώδικα και, στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Αυτόματη αποδοχή αιτήματος σύσκεψης από συγκεκριμένο άτομο στο Outlook
Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
Set xMtRequest = Item
Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
With xAppointmentItem
.ReminderMinutesBeforeStart = 45
.Categories = "Orange Category"
.Save
End With
Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
xMtResponse.Send
xMtRequest.Delete
End If
End If
End Sub
Note: Στον κωδικό, αντικαταστήστε το "Ονομα αποστολέαΜε το εμφανιζόμενο όνομα του αποστολέα.
3. Αποθηκεύστε τον κωδικό και, στη συνέχεια, πατήστε το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
4. Επανεκκινήστε το Outlook για να λάβετε αυτό το εφέ κώδικα.
Από εδώ και στο εξής, όταν λαμβάνετε αιτήματα για σύσκεψη που αποστέλλονται από το άτομο που καθορίσατε στον κωδικό, η σύσκεψη θα γίνει αποδεκτή αυτόματα και ο αποστολέας θα λάβει επίσης ένα email απάντησης.
Note: Ο λογαριασμός email που λαμβάνει το αίτημα σύσκεψης πρέπει να είναι ο προεπιλεγμένος λογαριασμός στο Outlook.
Σχετικά άρθρα:
- Πώς να απορρίψετε μια πρόσκληση σε σύσκεψη αλλά να την αφήσετε στο ημερολόγιό σας στο Outlook;
- Πώς να απορρίψετε όλες τις μελλοντικές συναντήσεις στο Outlook;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.