Πώς να δημιουργήσετε υπενθυμίσεις του Outlook από το υπολογιστικό φύλλο του Excel;
Αυτό το άρθρο αναφέρεται στη δημιουργία υπενθυμίσεων του Outlook βάσει δεδομένων του υπολογιστικού φύλλου Excel.
Υπενθυμίσεις Crete Outlook από υπολογιστικό φύλλο Excel με κώδικα VBA
Δημιουργήστε υπενθυμίσεις του Outlook από υπολογιστικό φύλλο Excel με κώδικα VBA
Εάν θέλετε να δημιουργήσετε υπενθυμίσεις του Outlook από το Excel, κάντε τα εξής.
1. Δημιουργήστε ένα φύλλο εργασίας που περιέχει τις κεφαλίδες στηλών και τα αντίστοιχα πεδία υπενθύμισης όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Note: Για το απασχολημένη κατάσταση στήλη, αριθμός 2 σημαίνει ότι η υπενθύμιση θα εμφανίζεται ως Απασχολημένος στο ημερολόγιο του Outlook. Μπορείτε να το αλλάξετε σε 1 (Προσοχή), 3 (εκτός γραφείου), 4 (Εργασία αλλού), ή 5 (δωρεάν) όπως χρειάζεστε.
2. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
3. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Code.
Κωδικός VBA: Δημιουργία υπενθυμίσεων Outlook από υπολογιστικό φύλλο Excel
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
Note: Στον παραπάνω κώδικα, A2: G2 είναι το εύρος δεδομένων στο οποίο θέλετε να δημιουργήσετε συναντήσεις βάσει.
4. Πάτα το F5 ή κάντε κλικ στο κουμπί Εκτέλεση για να εκτελέσετε τον κωδικό. Στη συνέχεια, όλα τα ραντεβού με συγκεκριμένα πεδία θα εισαχθούν ταυτόχρονα στο ημερολόγιο του 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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.