Hvordan vise de tilsvarende personenes alder for alle bursdagsbegivenheter i listevisning av Outlook-kalenderen

Noen brukere ønsker også å se den tilsvarende personens alder når de ser på en bursdagshendelse i kalenderen. Derfor, i denne artikkelen, vil vi dele en metode for å gjøre denne ideen til virkelighet med letthet.

Når du legger til bursdagsinformasjonen til en kontakt, vil Outlook automatisk opprette en bursdagshendelse i kalenderen. Under disse omstendighetene, hver gang du ser bursdagsbegivenheter i kalenderen, vil du kanskje også få de tilsvarende personenes alder. Derfor vil vi her introdusere deg en måte å realisere det på.

Vis de tilsvarende personenes alder for alle bursdagsbegivenheter i listevisning

1. Helt i begynnelsen starter du Outlook VBA editor.
2. Kopier deretter følgende kode inn i en 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. Etter det, sett markøren i den første subrutinen og trykk "F5" for å kjøre denne makroen.
4. Når makroen er ferdig, avslutter du VBA-editoren og åpner en kalendermappe.
5. Deretter går du til "Vis"-fanen og klikker på "Endre visning"> "Liste".
6. Klikk deretter på "Vis innstillinger"-knappen.
7. I popup-dialogboksen velger du "Kolonner".
8. Deretter, i den neste dialogboksen i "Vis kolonner", velg "Brukerdefinerte felt i mappe" fra listen over "Velg tilgjengelige felt fra".
9. Senere slår du inn på «Alder» i «Tilgjengelige kolonner»-boksen og klikker på «Legg til ->»-knappen.
10. Til slutt klikker du på en rekke "OK" til du går tilbake til listen over kalenderelementer.
11. Nå, i listen, kan du se personenes alder på alle bursdagsbegivenheter, som vist i følgende figur.

Reparer kompromittert Outlook-fil

Du kan få panikk når du møter korrupte Outlook fil som inneholder mange av dine verdifulle e-poster og tidsplaner. Til tross for at et slikt problem er ganske desperat, må du fortsatt roe deg ned med en gang og vurdere effektive tiltak. Hvis du fortsetter å bekymre deg, kan situasjonen bli verre og verre. Faktisk er det flere måter og verktøy som kan reparere den skadede filen, for eksempel reparasjonsverktøy for innboks og et mer robust og erfarent verktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server fastsette og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med