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

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

Όταν προσθέτετε τις πληροφορίες γενεθλίων σε μια επαφή, το Outlook θα δημιουργήσει αυτόματα ένα συμβάν γενεθλίων στο ημερολόγιο. Υπό αυτήν την περίπτωση, κάθε φορά που βλέπετε εκδηλώσεις γενεθλίων στο ημερολόγιο, ίσως θελήσετε επίσης να λάβετε τις ηλικίες των αντίστοιχων ατόμων. Έτσι, εδώ θα σας παρουσιάσουμε έναν τρόπο να το πραγματοποιήσετε.

Εμφάνιση των αντιστοίχων ηλικιών για όλες τις εκδηλώσεις γενεθλίων σε προβολή λίστας

1. Στην αρχή, ξεκινήστε το πρόγραμμα επεξεργασίας του Outlook VBA.
2. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα σε μια ενότητα.

Sub ShowAgesOfBirthdayEventsListView()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process All Calendar Folders in Your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Integer
    Dim objItem As Object
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim dStart, dBirth As Date
    Dim nAge As Integer
    Dim objNewProperty As Outlook.UserProperty
    Dim objSubCalendar As Outlook.Folder

    For i = objCalendar.Items.Count To 1 Step -1
        Set objItem = objCalendar.Items.Item(i)
        'Add "Age" Property to Birthday Events
        If (objItem.MeetingStatus = olNonMeeting) And (objItem.IsRecurring = True) And (Right(objItem.Subject, 11) = "'s Birthday") Then
           Set objBirthdayEvent = objItem
           dStart = objBirthdayEvent.Start
 
           'Count Age
           dCurrentBirthday = DateSerial(Year(Now), Month(dStart), Day(dStart))
           nAge = DateDiff("yyyy", dStart, dCurrentBirthday)
 
           Set objNewProperty = objBirthdayEvent.UserProperties.Find("Age", True)
           If objNewProperty Is Nothing Then
              Set objNewProperty = objBirthdayEvent.UserProperties.Add("Age", olText, True)
           End If
 
           objNewProperty.value = nAge
           objBirthdayEvent.Save
        End If
    Next
 
    'Process All Sub-Calendar Folders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Μετά από αυτό, βάλτε το δρομέα στην πρώτη υπορουτίνα και πατήστε "F5" για να εκτελέσετε αυτήν τη μακροεντολή.
4. Όταν ολοκληρωθεί η μακροεντολή, βγείτε από τον επεξεργαστή VBA και ανοίξτε ένα φάκελο ημερολογίου.
5. Στη συνέχεια, μεταβείτε στην καρτέλα "Προβολή" και κάντε κλικ στην επιλογή "Αλλαγή προβολής"> "Λίστα".
6. Στη συνέχεια, κάντε κλικ στο κουμπί "Προβολή ρυθμίσεων".
7. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε "Στήλες".
8. Στη συνέχεια, στο επόμενο παράθυρο διαλόγου "Εμφάνιση στηλών", επιλέξτε "Πεδία καθορισμένα από το χρήστη σε φάκελο" από τη λίστα "Επιλογή διαθέσιμων πεδίων από".
9. Αργότερα, προχωρήστε στο "Ηλικία" στο πλαίσιο "Διαθέσιμες στήλες" και κάντε κλικ στο κουμπί "Προσθήκη ->".
10. Τελικά, κάντε κλικ σε μια σειρά "OK" μέχρι να επιστρέψετε στη λίστα στοιχείων ημερολογίου.
11. Τώρα, στη λίστα, μπορείτε να δείτε τις ηλικίες των ατόμων από όλες τις εκδηλώσεις γενεθλίων, όπως φαίνεται στο παρακάτω σχήμα.

Επιδιόρθωση συμβιβασμένου αρχείου Outlook

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

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

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