Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

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

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

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

doc καθυστέρηση αποστολής συνάντησης 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("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

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

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

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

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


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL