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

Πώς να εισαγάγετε ένα εργαλείο επιλογής ημερομηνίας σε μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook;

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


Εισαγάγετε ένα εργαλείο επιλογής ημερομηνίας στα μηνύματα ηλεκτρονικού ταχυδρομείου στο Outlook με κωδικό VBA

Μπορείτε να εκτελέσετε τον ακόλουθο κώδικα VBA για να εισαγάγετε ένα εργαλείο επιλογής ημερομηνίας στα μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook. Ακολουθήστε τις παρακάτω οδηγίες.

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο αριστερό παράθυρο, κάντε διπλό κλικ Project1 > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSession, και στη συνέχεια αντιγράψτε τον ακόλουθο κώδικα VBA στο ThisOutlookSession (Κωδικός) παράθυρο.

Κωδικός VBA: Εισαγάγετε το εργαλείο επιλογής ημερομηνίας στα μηνύματα ηλεκτρονικού ταχυδρομείου του Outlook

Sub DatePicker()
'Updated by Extendoffice 20220615
  Dim xDoc As Document
  On Error Resume Next
  Set xDoc = Application.ActiveInspector.WordEditor
  With xDoc.Application.Selection
    .Range.ContentControls.Add (wdContentControlDate)
    .ParentContentControl.DateDisplayFormat = "MMMM d, yyyy"
    .InsertAfter Format(Now(), "MMMM d, yyyy")
    .MoveRight wdCharacter, 1
  End With
End Sub

Σημείωση: Στον κωδικό, μπορείτε να αλλάξετε "ΜΜΜΜ η, εεεε" στη μορφή ημερομηνίας που χρειάζεστε.

3. Μείνετε στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > Βιβλιογραφικές αναφορές.

4. Στο Αναφορές – Έργο1 πλαίσιο ελέγχου, ελέγξτε το Βιβλιοθήκη αντικειμένων του Microsoft Word 16.0 πλαίσιο ελέγχου και κάντε κλικ στο OK Για να αποθηκεύσετε τις αλλαγές.

5. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

6. Στο Ταχυδρομείο προβολή, κάντε κλικ στο Νέο Email κάτω από το κουμπί Αρχική καρτέλα για να δημιουργήσετε ένα νέο email.

7. Στο Μήνυμα παράθυρο, κάντε κλικ στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης κουμπί , Και στη συνέχεια επιλέξτε Περισσότερες εντολές από το αναπτυσσόμενο μενού. Δείτε το στιγμιότυπο οθόνης:

8. Στο Επιλογές του Outlook παράθυρο, πρέπει να ρυθμίσετε τις παραμέτρους ως εξής.

8.1) Επιλέξτε Μακροεντολές στο Επιλέξτε εντολή από αναπτυσσόμενη λίστα;
8.2) Επιλέξτε το σενάριο που δημιουργήσατε παραπάνω στο αριστερό πλαίσιο εντολών.
8.3) Κάντε κλικ στο Πρόσθεση κουμπί.
8.4) Διατηρήστε το σενάριο επιλεγμένο στο δεξί πλαίσιο και, στη συνέχεια, κάντε κλικ στο Τροποποίηση κουμπί. Στο Κουμπί τροποποίησης παράθυρο διαλόγου, αντιστοιχίστε ένα νέο κουμπί στο σενάριο και κάντε κλικ Εντάξει.
8.5) Κάντε κλικ στο κουμπί OK στο Επιλογές του Outlook παράθυρο για να αποθηκεύσετε τις αλλαγές.

Το σενάριο VBA προστίθεται τώρα στο Γραμμή εργαλείων γρήγορης πρόσβασης και εμφανίζεται ως το εικονίδιο που ορίσατε.

Από εδώ και στο εξής, όταν συντάσσετε ένα email, μπορείτε να κάνετε κλικ στο εικονίδιο επιλογής ημερομηνίας στο Γραμμή εργαλείων γρήγορης πρόσβασης για να εισαγάγετε ένα εργαλείο επιλογής ημερομηνίας στο σώμα του email και, στη συνέχεια, επιλέξτε μια ημερομηνία που χρειάζεστε από αυτό. Δείτε το παρακάτω demo.

:

1) Μπορείτε να εισαγάγετε πολλαπλά εργαλεία επιλογής ημερομηνίας στο σώμα ενός email.
2) Μπορείτε να αλλάξετε την ημερομηνία που έχετε επιλέξει: κάντε κλικ στο πεδίο ημερομηνίας για να εμφανιστεί το στοιχείο ελέγχου Ημερομηνία και, στη συνέχεια, επιλέξτε μια νέα ημερομηνία όπως απαιτείται.
3) Αυτός ο επιλογέας ημερομηνίας μπορεί επίσης να εισαχθεί στο σώμα ενός ραντεβού ή μιας εργασίας. Εάν χρειάζεται, δημιουργήστε ένα νέο ραντεβού ή εργασία και επαναλάβετε τα βήματα 7-8 παραπάνω για να το πετύχετε.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello. Very clear instructions, thank you.
When I attempt to use the macro, I get this error:
"Compile error: User defined type not defined."
Sub DatePicker() and xDoc As Document are highlighted.
Any ideas on how to fix it please?
This comment was minimized by the moderator on the site
Hi Dave,

To solve this problem, please follow the instruction of step 3 and 4 to enable the Microsoft Word 16.0 Object Library option in the Microsoft Visual Basic for Applications window.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/outlook-word-referece-vba.png?1711618070
This comment was minimized by the moderator on the site
This was exactly what I was looking for. Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations