Πώς να προεπιλέξετε αυτόματα τη σημερινή ημερομηνία ως ημερομηνία έναρξης μιας νέας εργασίας στο Outlook

Κοινή χρήση τώρα:

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

Από προεπιλογή, όταν κάνετε κλικ στην επιλογή δημιουργία νέας εργασίας στο Outlook, η εργασία θα εμφανίζεται με την επιλογή "Ημερομηνία έναρξης" ρυθμισμένη σε "Καμία", όπως φαίνεται στο παρακάτω σχήμα. Ωστόσο, τις περισσότερες φορές, έχετε συνηθίσει να ορίζετε την ημερομηνία έναρξης στην τρέχουσα ημερομηνία. Επομένως, πρέπει να εισαγάγετε ή να επιλέξετε χειροκίνητα την ημερομηνία στο πεδίο "Ημερομηνία έναρξης". Σε ένα τέτοιο σενάριο, μπορείτε να ελπίζετε ότι το Outlook μπορεί να προκαθορίσει αυτόματα τη σημερινή ημερομηνία ως ημερομηνία έναρξης της νέας εργασίας. Παρόλο που δεν υπάρχει τέτοια άμεση συνάρτηση, μπορείτε να την αποκτήσετε μέσω του κοινόχρηστου κώδικα VBA που αναφέρεται παρακάτω. Εάν δεν είστε εξοικειωμένοι με τη VBA, ανατρέξτε στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook" Εν τω μεταξύ.

Προεπιλεγμένη ημερομηνία έναρξης "Καμία"

Αυτόματη προεπιλογή της σημερινής ημέρας ως ημερομηνίας έναρξης μιας νέας εργασίας

  1. Αρχικά, ξεκινήστε την εφαρμογή Outlook.
  2. Στη συνέχεια, πατήστε "Alt + F11" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας του Outlook VBA.
  3. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα στο έργο "ThisOutlookSession".
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is TaskItem Then
       Set objTask = Inspector.CurrentItem
    End If
End Sub

Private Sub objTask_Open(Cancel As Boolean)
    'When opening a fresh new task item
    If Len(objTask.Subject) = 0 And Len(objTask.Body) = 0 And objTask.startDate = #1/1/4501# And objTask.DueDate = #1/1/4501# Then
 
       'Set start date to today
       objTask.startDate = Date
    End If
End Sub

Κώδικας VBA - Αυτόματη προεπιλογή της σημερινής ημέρας ως ημερομηνίας έναρξης μιας νέας εργασίας

  1. Στη συνέχεια, μετακινήστε τον κέρσορα στην πρώτη υπορουτίνα "Application_Startup".
  2. Αργότερα, πατήστε το πλήκτρο «F5».
  3. Από τότε, κάθε φορά που δημιουργείτε μια νέα εργασία, το Outlook θα ορίζει αυτόματα την ημερομηνία έναρξης στην τρέχουσα ημερομηνία, δηλαδή σήμερα, όπως φαίνεται στην παρακάτω εικόνα.Αυτόματη προεπιλογή της σημερινής ημέρας ως ημερομηνίας έναρξης

Προσοχή στις κακόβουλες μακροεντολές στο Outlook

Αν και η μακροεντολή VBA προσφέρει πολλές ευκολίες και δυνατότητες στους χρήστες, οδηγεί επίσης σε πολλούς πιθανούς κινδύνους. Για παράδειγμα, εάν ορίσετε τις ρυθμίσεις μακροεντολών ώστε να επιτρέπουν όλες τις μακροεντολές χωρίς ειδοποίηση, όταν ένα email με κακόβουλες μακροεντολές φτάνει στο γραμματοκιβώτιό σας και ανοίγετε τους ενσωματωμένους συνδέσμους του, το αρχείο δεδομένων του Outlook τείνει να δέχεται επίθεση από ιούς. Εκείνη τη στιγμή, πρέπει να σκοτώσετε τους ιούς και να προσπαθήσετε Επισκευή του OutlookΤις περισσότερες φορές, το ενσωματωμένο εργαλείο - Scanpst - δεν μπορεί να ανταποκριθεί σε αυτήν την εργασία. Επομένως, θα πρέπει να καλέσετε ένα πιο ισχυρό βοηθητικό πρόγραμμα, όπως το DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com

Κοινή χρήση τώρα:

Τα σχόλια είναι κλειστά.