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

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

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

Προώθηση πρόσκλησης σε σύσκεψη σε ένα συγκεκριμένο άτομο αυτόματα στο Outlook με κωδικό VBA


Προώθηση πρόσκλησης σε σύσκεψη σε ένα συγκεκριμένο άτομο αυτόματα στο Outlook με κωδικό VBA

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

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

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

Κωδικός VBA: Πρόσκληση για σύσκεψη αυτόματης προώθησης σε ένα συγκεκριμένο άτομο:

Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
    Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Note: Στον παραπάνω κώδικα, θα πρέπει να αλλάξετε τη διεύθυνση παραλήπτη στη δική σας.

doc auto forward forward meeting 1

3. Στη συνέχεια, αποθηκεύστε τον κώδικα και επανεκκινήστε το Outlook για να λάβετε το εφέ κώδικα.

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

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ótimo código!
Mas como faço para, em vez de aceitar os convites automaticamente e os encamilha-los, encaminhar para outro e-mail apenas os que eu aceitei (os que eu não aceitar ele ignora)?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations