Kaip parodyti atitinkamų asmenų amžių visiems gimtadienio įvykiams „Outlook“ kalendoriaus sąrašo rodinyje

Kai kurie vartotojai, peržiūrėdami gimtadienio įvykį kalendoriuje, norėtų matyti ir atitinkamo asmens amžių. Todėl šiame straipsnyje pasidalinsime metodu, kaip lengvai įgyvendinti šią idėją.

Kai pridedate gimtadienio informaciją prie kontakto, „Outlook“ automatiškai sukurs gimtadienio įvykį kalendoriuje. Esant tokioms aplinkybėms, kiekvieną kartą, kai kalendoriuje matote gimtadienio įvykius, galbūt norėsite sužinoti ir atitinkamų asmenų amžių. Taigi, čia mes jums pristatysime būdą, kaip tai įgyvendinti.

Sąrašo rodinyje parodykite visų gimtadienio įvykių atitinkamų asmenų amžių

1. Pačioje pradžioje paleiskite Outlook VBA redaktorių.
2. Tada nukopijuokite šį kodą į 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. Po to perkelkite žymeklį į pirmąją paprogramę ir paspauskite „F5“, kad paleistumėte šią makrokomandą.
4. Baigę makrokomandą, išeikite iš VBA redaktoriaus ir atidarykite kalendoriaus aplanką.
5. Tada eikite į skirtuką „Rodinys“ ir spustelėkite „Keisti rodinį“ > „Sąrašas“.
6. Tada spustelėkite mygtuką „Peržiūrėti nustatymus“.
7. Atsidariusiame dialogo lange pasirinkite „Stulpeliai“.
8. Tada kitame dialogo lange „Rodyti stulpelius“ iš sąrašo „Pasirinkti galimus laukus iš“ pasirinkite „Vartotojo nustatyti laukai aplanke“.
9. Vėliau laukelyje „Galimi stulpeliai“ nurodykite „Amžius“ ir spustelėkite mygtuką „Pridėti ->“.
10. Galiausiai spustelėkite „Gerai“ seriją, kol grįšite į kalendoriaus elementų sąrašą.
11. Dabar sąraše galite matyti visų gimtadienio įvykių asmenų amžių, kaip parodyta toliau pateiktame paveikslėlyje.

Pataisykite pažeistą „Outlook“ failą

Susidūrę galite panikuoti sugadintas Outlook failą, kuriame yra daug vertingų el. laiškų ir tvarkaraščių. Nepaisant to, kad tokia problema yra gana beviltiška, vis tiek turite iš karto nusiraminti ir apsvarstyti veiksmingų priemonių. Jei ir toliau nerimaujate, situacija gali pablogėti ir blogėti. Tiesą sakant, yra daug būdų ir paslaugų, kurios gali pataisyti sugadintą failą, pvz., gautųjų taisymo įrankis ir patikimesnis bei patyręs įrankis, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server nustatyti ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com