Πώς να προωθείτε αυτόματα προσκλήσεις σε σύσκεψη σε ένα συγκεκριμένο άτομο στο 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: Στον παραπάνω κώδικα, θα πρέπει να αλλάξετε τη διεύθυνση παραλήπτη στη δική σας.
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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.