Ako zobraziť vek zodpovedajúcich osôb pre všetky udalosti narodenín v zobrazení zoznamu kalendára programu Outlook

Niektorí používatelia by si pri prezeraní udalosti narodenín v kalendári chceli pozrieť aj vek zodpovedajúcej osoby. Preto v tomto článku budeme zdieľať metódu, vďaka ktorej sa táto myšlienka ľahko splní.

Keď ku kontaktu pridáte informácie o narodeninách, program Outlook automaticky vytvorí narodeninovú udalosť v kalendári. Za týchto okolností môžete zakaždým, keď v kalendári uvidíte udalosti narodenín, tiež chcieť zistiť vek zodpovedajúcich osôb. Preto vám tu predstavíme spôsob, ako si to uvedomiť.

Zobraziť vek zodpovedajúcich osôb pre všetky udalosti narodenín v zozname

1. Na úplnom začiatku spustite editor Outlook VBA.
2. Potom skopírujte nasledujúci kód do modulu.

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. Potom vložte kurzor do prvého podprogramu a stlačte „F5“, aby ste spustili toto makro.
4. Po dokončení makra ukončite editor VBA a otvorte priečinok kalendára.
5. Následne prejdite na kartu „Zobraziť“ a kliknite na položky „Zmeniť zobrazenie“> „Zoznam“.
6. Ďalej kliknite na tlačidlo „Zobraziť nastavenia“.
7. V rozbaľovacom dialógovom okne zvoľte možnosť „Stĺpce“.
8. Potom v ďalšom dialógovom okne „Zobraziť stĺpce“ vyberte zo zoznamu „Vybrať dostupné polia z“ položku „Používateľom definované polia v priečinku“.
9. Neskôr zadajte „Vek“ v poli „Dostupné stĺpce“ a kliknite na tlačidlo „Pridať ->“.
10. Nakoniec kliknite na sériu výrazov „OK“, kým sa nevrátite do zoznamu položiek kalendára.
11. Teraz v zozname vidíte vek osôb všetkých narodeninových udalostí, ako je znázornené na nasledujúcom obrázku.

Opravte kompromitovaný súbor programu Outlook

Pri stretnutí môžete mať paniku poškodený Outlook súbor, ktorý obsahuje veľa vašich cenných e-mailov a plánov. Napriek tomu, že je tento problém zúfalý, musíte sa okamžite upokojiť a zvážiť účinné opatrenia. Ak budete mať stále obavy, situácia sa môže zhoršovať a zhoršovať. V skutočnosti existuje niekoľko spôsobov a nástrojov, ktoré môžu opraviť poškodený súbor, napríklad nástroj na opravu doručenej pošty a robustnejší a skúsenejší nástroj, ako napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server fixné a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S