Kako prikazati odgovarajuću dob osoba za sve rođendanske događaje u prikazu popisa Outlook kalendara

Neki korisnici također žele vidjeti dob odgovarajuće osobe kada gledaju događaj rođendana u kalendaru. Stoga ćemo u ovom članku podijeliti metodu kako ovu ideju lako ostvariti.

Kada kontaktu dodate podatke o rođendanu, Outlook će automatski stvoriti rođendanski događaj u kalendaru. Pod ovim okolnostima, svaki put kada vidite rođendanske događaje u kalendaru, možda ćete također htjeti dobiti odgovarajuće godine osoba. Stoga ćemo vam ovdje predstaviti način kako to ostvariti.

Prikažite odgovarajuću dob osoba za sve rođendanske događaje u prikazu popisa

1. Na samom početku pokrenite Outlook VBA editor.
2. Zatim kopirajte sljedeći kod u modul.

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. Nakon toga, postavite kursor na prvu potprogram i pritisnite “F5” za pokretanje ove makronaredbe.
4. Kada makronaredba završi, izađite iz VBA editora i otvorite mapu kalendara.
5. Nakon toga idite na karticu "Prikaz" i kliknite "Promijeni prikaz" > "Popis".
6. Zatim kliknite gumb "View Settings".
7. U skočnom dijaloškom okviru odaberite "Stupci".
8. Zatim, u sljedećem dijaloškom okviru "Prikaži stupce", odaberite "Korisnički definirana polja u mapi" s popisa "Odaberi dostupna polja iz".
9. Kasnije, predložite “Dob” u okviru “Dostupni stupci” i kliknite gumb “Dodaj ->”.
10. Na kraju pritisnite niz "U redu" dok se ne vratite na popis stavki kalendara.
11. Sada na popisu možete vidjeti dob osoba za sve rođendanske događaje, kao što je prikazano na sljedećoj slici.

Popravite ugroženu Outlook datoteku

Prilikom susreta možete uhvatiti paniku pokvareni Outlook datoteku koja sadrži puno vaših vrijednih e-poruka i rasporeda. Bez obzira što je takav problem prilično očajan, ipak se morate odmah smiriti i razmisliti o učinkovitim mjerama. Ako nastavite brinuti, situacija može biti sve gora i gora. Zapravo, postoji više načina i uslužnih programa koji mogu popraviti oštećenu datoteku, kao što je alat za popravak pristigle pošte i robusniji i iskusniji alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server popraviti i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com