Paano Maipakita ang Mga Kaukulang Kaarawan ng Mga Tao para sa Lahat ng Mga Kaganapan sa Kaarawan sa Listahan ng View ng Outlook Calendar

Ang ilang mga gumagamit ay nais ding makita ang edad ng kaukulang tao kapag tumitingin sa isang kaganapan sa kaarawan sa kalendaryo. Samakatuwid, sa artikulong ito, magbabahagi kami ng isang pamamaraan upang maisagawa ang ideyang ito nang madali.

Kapag idinagdag mo ang impormasyon ng kaarawan sa isang contact, awtomatikong lilikha ang Outlook ng isang kaganapan sa kaarawan sa kalendaryo. Sa ilalim ng pangyayaring ito, sa tuwing makakakita ka ng mga kaganapan sa kaarawan sa kalendaryo, maaari mo ring makuha ang edad ng kaukulang mga tao. Kaya, dito ay ipakikilala namin sa iyo ang isang paraan upang mapagtanto ito.

Ipakita ang Mga Kaukulang Kaarawan ng Mga Tao para sa Lahat ng Mga Kaganapan sa Kaarawan sa Listahan ng Listahan

1. Sa simula pa lang, ilunsad ang editor ng VBA ng Outlook.
2. Pagkatapos, kopyahin ang sumusunod na code sa isang module.

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. Pagkatapos nito, ilagay ang cursor sa unang subroutine at pindutin ang "F5" upang patakbuhin ang macro na ito.
4. Kapag natapos ang macro, lumabas sa editor ng VBA at magbukas ng isang folder ng kalendaryo.
5. Kasunod, pumunta sa tab na "View" at i-click ang "Baguhin ang View"> "Lista".
6. Susunod, i-click ang pindutang "Tingnan ang Mga Setting".
7. Sa popup dialog box, piliin ang "Mga Haligi".
8. Pagkatapos, sa susunod na kahon ng dayalogo ng "Ipakita ang Mga Haligi", piliin ang "Mga natukoy na patlang ng folder sa folder" mula sa listahan ng "Piliin ang magagamit na mga patlang mula sa".
9. Sa paglaon, itakda ang "Edad" sa kahon na "Magagamit ang mga haligi" at i-click ang pindutang "Idagdag ->".
10. Sa paglaon, mag-click sa isang serye ng "OK" hanggang sa bumalik sa listahan ng item sa kalendaryo.
11. Ngayon, sa listahan, maaari mong makita ang edad ng mga tao sa lahat ng mga kaganapan sa kaarawan, tulad ng ipinakita sa sumusunod na pigura.

Ayusin ang Nakompromisong Outlook File

Maaari kang makakuha ng gulat kapag nakatagpo sira ang Outlook file na naglalaman ng maraming iyong mahalagang mga email at iskedyul. Sa kabila ng nasabing isyu ay medyo desperado, kailangan mo pa ring huminahon kaagad at isaalang-alang ang mga mabisang hakbang. Kung patuloy kang nag-aalala, ang sitwasyon ay maaaring lumala at lumala. Sa totoo lang, maraming mga paraan at utility na maaaring ayusin ang nasirang file, tulad ng tool sa pag-aayos ng inbox at isang mas matatag at may karanasan na tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa