Note: The other languages of the website are Google-translated. Back to English

Πώς να αποδεχτείτε αυτόματα αίτημα σύσκεψης από συγκεκριμένο άτομο στο 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.


Σχετικά άρθρα:


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (2)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν λειτουργεί, τα ραντεβού μου χρειάζονται ακόμα επιβεβαίωση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για μένα, το αντικείμενο xMtResponse δεν έχει οριστεί και η μακροεντολή βγαίνει σφάλμα. Υπάρχουν ενημερώσεις για το Outlook 2016;
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0  Χαρακτήρες
Προτεινόμενες τοποθεσίες