Τρόπος αυτόματης εισαγωγής τρέχουσας ημερομηνίας ή ώρας σε θέμα email ή σώμα με το Outlook VBA

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

Στην προηγούμενη σελost - "Τρόπος αυτόματης προσθήκης τρέχουσας ημερομηνίας στα θέματα των email σας στο Outlook”, μπορείτε να μάθετε πώς να προσθέτετε αυτόματα την τρέχουσα ημερομηνία ή ώρα στο θέμα. Αλλά η μέθοδος σε εκείνο το post είναι απλώς η δημιουργία μιας προσαρμοσμένης μορφής μηνύματος. Έτσι, με αυτόν τον τρόπο, κάθε φορά που θέλετε να δημιουργήσετε ένα νέο email με την τρέχουσα ημερομηνία ή ώρα στο θέμα, πρέπει να επιλέξετε την προσαρμοσμένη φόρμα αντί να δημιουργείτε ένα νέο email ως συνήθως. Προφανώς, θα είναι αρκετά δυσκίνητο.

Στην πραγματικότητα, το Outlook μας έχει ήδη προσφέρει ένα εγγενές πεδίο για εισαγωγή ημερομηνίας ή ώρας. Επίσης, μπορείτε να εφαρμόσετε το Outlook VBA για αυτόματη εισαγωγή της τρέχουσας ημερομηνίας ή ώρας στο σώμα ή το θέμα του νέου email. Όσο για τη μέθοδο που θα επιλέξετε, εξαρτάται από το πόσο συχνά πρέπει να εισάγετε την ημερομηνία ή την ώρα.

Χειροκίνητη εισαγωγή με το πεδίο «Ημερομηνία και ώρα».

1. Προς starμε, ξεκινήστε το Outlook.
2. Στη συνέχεια, δημιουργήστε ένα νέο μήνυμα κάνοντας κλικ στο κουμπί "Νέο email" στην ομάδα "Νέο" κάτω από την καρτέλα "Αρχική σελίδα".
3. Στη συνέχεια, στο παράθυρο Νέο μήνυμα, μπορείτε να κάνετε κλικ στο σώμα του email και να μεταβείτε στην καρτέλα "Εισαγωγή".
4. Στη συνέχεια, μπορείτε να βρείτε και να κάνετε κλικ στο πεδίο «Ημερομηνία και ώρα» στην ομάδα «Κείμενο».
5. Μετά από αυτό, θα εμφανιστεί ένα νέο παράθυρο διαλόγου. Μπορείτε να επιλέξετε μια διαθέσιμη μορφή και στη συνέχεια να κάνετε κλικ στο κουμπί "OK".
6. Αφού επιστρέψετε στο παράθυρο μηνύματος, μπορείτε να δείτε την τρέχουσα ημερομηνία ή ώρα στο σώμα του email. Από προεπιλογή, το Outlook δεν σας επιτρέπει να εφαρμόσετε το πεδίο "Ημερομηνία και ώρα" στο θέμα.
7. Επομένως, τέλος, εάν θέλετε να εισαγάγετε την ημερομηνία ή την ώρα στο θέμα, πρέπει να τα αντιγράψετε από το σώμα και να τα επικολλήσετε στο θέμα χειροκίνητα.

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

Αυτόματη εισαγωγή με το Outlook VBA

1. Αρχικά, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή VBA.
2. Στη συνέχεια, κάντε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά για να το ανοίξετε.
3. Στη συνέχεια, αντιγράψτε τους παρακάτω κωδικούς σε αυτό.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

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

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

Σημείωση: Οι παραπάνω κωδικοί θα λειτουργήσουν για την αυτόματη εισαγωγή της τρέχουσας ώρας στο θέμα και στο σώμα. Εάν θέλετε να εισαγάγετε την τρέχουσα ημερομηνία, αντικαταστήστε το "objMail_Open” sub με τα ακόλουθα:

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub

4. Στη συνέχεια, υπογράψτε αυτόν τον κωδικό ως συνήθως.
5. Αργότερα, restart Outlook για να ενεργοποιήσετε τη μακροεντολή.
6. Τέλος, μπορείτε να δοκιμάσετε.

• Κάντε απευθείας κλικ στο κουμπί "Νέο email" για να ανοίξετε ένα νέο email.
• Θα διαπιστώσετε ότι το νέο αυτόματο email περιέχει την τρέχουσα ημερομηνία ή ώρα στο θέμα και το σώμα, όπως η παρακάτω εικόνα:

Μην εμπιστεύεστε εύκολα τα άγνωστα email

Πρέπει να έχετε λάβει ποτέ ανεπιθύμητα email. Πώς τις αντιμετωπίζετε συνήθως; Δεν συνιστάται η λήψη συνημμένων ή το άνοιγμα συνδέσμων σε αυτού του είδους τα μηνύματα, καθώς ενδέχεται να περιέχουν ιούς. Μόλις μολυνθούν τα δεδομένα του Outlook, το εργαλείο επιδιόρθωσης εισερχομένων, Scanpst.exe δεν θα κάνει εφέ. Σε αυτή την περίπτωση, δεν έχετε άλλη επιλογή από το να καταφύγετε σε έναν πιο έμπειρο Διόρθωση PST εργαλείο, όπως DataNumen Outlook Repair.

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

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