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

or

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

Όταν λαμβάνετε πρόσκληση σε σύσκεψη στο Outlook, πρέπει να αποδεχτείτε μη αυτόματα την αίτηση σύσκεψης και να στείλετε την απάντηση στον αποστολέα. Υπάρχει εύκολος τρόπος να το αποδεχτείτε αυτόματα από ένα συγκεκριμένο άτομο στο Outlook; Η μέθοδος σε αυτό το άρθρο θα σας κάνει μια χάρη.

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


Εύκολα καταργήστε διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου από συγκεκριμένους φακέλους ηλεκτρονικού ταχυδρομείου ταυτόχρονα στο Outlook:

Η διαγραφή Διπλότυπο ηλεκτρονικό ταχυδρομείο χρησιμότητα του Kutools για το Outlook μπορεί να σας βοηθήσει να καταργήσετε γρήγορα όλα τα διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου από έναν φακέλο ηλεκτρονικού ταχυδρομείου ή από πολλούς καθορισμένους φακέλους ταυτόχρονα στο Outlook. Δείτε το στιγμιότυπο οθόνης:

Kutools για το Outlook: με περισσότερα από 40 εύχρηστα πρόσθετα του Outlook, δωρεάν να δοκιμάσετε χωρίς περιορισμούς σε 45 ημέρες. Λήψη και δοκιμή δωρεάν τώρα!


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

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

Note: Ο λογαριασμός ηλεκτρονικού ταχυδρομείου που λαμβάνει την αίτηση σύσκεψης πρέπει να είναι ο προεπιλεγμένος λογαριασμός στο Outlook.


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

Συνιστώμενα εργαλεία παραγωγικότητας

shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121

Kutools για Outlook - Περισσότερο από τις προηγμένες λειτουργίες του 100 για Outlook, Βελτίωση της αποδοτικότητας 70% Για εσάς

  • Πολύπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να πραγματοποιηθούν μία φορά σε δευτερόλεπτα.
  • Προωθήστε πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου ξεχωριστά με ένα κλικ και αυτόματη προώθηση με κανόνες.
  • Auto CC / BCC κάθε μήνυμα ηλεκτρονικού ταχυδρομείου αποστολής και εύκολη προσαρμογή των κανόνων και αυτόματη απάντηση χωρίς να χρειάζεται διακομιστής ανταλλαγής.
  • Ισχυρό φίλτρο ανεπιθύμητων μηνυμάτων ηλεκτρονικού ταχυδρομείου, αφαιρέστε διπλότυπα μηνύματα ηλεκτρονικού ταχυδρομείου, απαντήστε με συνημμένο, μάτσο με πράξεις ενός κλικ και ούτω καθεξής ...
  • 60-απεριόριστη δωρεάν δοκιμή ημέρας. Εγγύηση επιστροφής χρημάτων 60 ημερών. 2 χρόνια δωρεάν αναβάθμιση και υποστήριξη. Αγοράστε μία φορά, χρησιμοποιήστε για πάντα.
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.