Hur man visar motsvarande personers åldrar för alla födelsedagshändelser i listvy över Outlook-kalendern

Vissa användare vill också se motsvarande persons ålder när de tittar på en födelsedagshändelse i kalendern. Därför delar vi i den här artikeln en metod för att få denna idé att gå i uppfyllelse med lätthet.

När du lägger till födelsedagsinformationen till en kontakt skapar Outlook automatiskt en födelsedagshändelse i kalendern. Under denna omständighet kanske du också vill få motsvarande personers ålder varje gång du ser födelsedagshändelser i kalendern. Så här kommer vi att presentera dig ett sätt att förverkliga det.

Visa motsvarande personers åldrar för alla födelsedagshändelser i listvy

1. Starta Outlook VBA-redigeraren i början.
2. Kopiera sedan följande kod till 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. Därefter sätter du markören i den första underrutinen och trycker på “F5” för att köra detta makro.
4. När makrot är klart stänger du VBA-redigeraren och öppnar en kalendermapp.
5. Gå sedan till fliken "Visa" och klicka på "Ändra vy"> "Lista".
6. Klicka sedan på knappen "Visa inställningar".
7. Välj "Kolumner" i popup-dialogrutan.
8. Välj sedan "Användardefinierade fält i mapp" i nästa dialogruta under "Visa kolumner" i listan med "Välj tillgängliga fält från".
9. Senare, tonhöjd på "Ålder" i rutan "Tillgängliga kolumner" och klicka på knappen "Lägg till ->".
10. Så småningom klickar du på en serie "OK" tills du går tillbaka till listan över kalenderobjekt.
11. Nu i listan kan du se personernas åldrar för alla födelsedagshändelser, som visas i följande bild.

Fixa komprometterad Outlook-fil

Du kan få panik när du stöter på korrupta Outlook fil som innehåller många av dina värdefulla e-postmeddelanden och scheman. Trots att en sådan fråga är ganska desperat, måste du fortfarande lugna dig omedelbart och överväga effektiva åtgärder. Om du fortsätter att vara orolig kan situationen bli värre och värre. Det finns faktiskt flera sätt och verktyg som kan reparera den skadade filen, till exempel reparationsverktyg för inkorgen och ett mer robust och erfaret verktyg, som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server fast och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com