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

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

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

---

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

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

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

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

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

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

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("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    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

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

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

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