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

Πώς να καθυστερήσετε την αποστολή πρόσκλησης σε σύσκεψη στο Outlook; 

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

Καθυστέρηση αποστολής πρόσκλησης σε σύσκεψη στο Outlook με κώδικα VBA


Καθυστέρηση αποστολής πρόσκλησης σε σύσκεψη στο Outlook με κώδικα VBA

Ίσως, δεν υπάρχει άμεσος τρόπος για να καθυστερήσετε μια πρόσκληση σε συνάντηση στο Outlook, αλλά ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη, κάντε το εξής:

1. Πρώτα, πρέπει να δημιουργήσετε μια νέα εργασία. Στο νέο Έργο παράθυρο:

(1.) Καθορίστε το θέμα, την ημερομηνία έναρξης, την ημερομηνία λήξης της συνάντησης.

(2.) Ορίστε μια ημερομηνία και ώρα υπενθύμισης όταν θέλετε να στείλετε την πρόσκληση σε σύσκεψη.

(3.) Πληκτρολογήστε το μήνυμα της σύσκεψης όπως χρειάζεστε.

καθυστέρηση αποστολής εγγράφου συνάντηση 1

2. Αφού δημιουργήσετε την εργασία, κάντε κλικ Αποθήκευση & Κλείσιμο επιλογή για να κλείσετε αυτό το παράθυρο.

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

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

Κωδικός VBA: Καθυστέρηση αποστολής πρόσκλησης σε σύσκεψη:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split(",,", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

καθυστέρηση αποστολής εγγράφου συνάντηση 2

Note: Στον παραπάνω κωδικό: Τεστ συνάντησης είναι το θέμα που δημιουργήσατε για τη σύσκεψη στο βήμα 1. και, θα πρέπει να αλλάξετε τις πληροφορίες του διευθύνσεις παραληπτών, τοποθεσία συνάντησης, ώρα έναρξης και διάρκεια συνάντησης στο δικό σου.

5. Αποθηκεύστε και κλείστε τον κώδικα και, στη συνέχεια, επανεκκινήστε το Outlook για να τεθεί σε ισχύ αυτός ο κώδικας.

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

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations