2 gyors módszer Outlook-partnere életkorának megállapítására

Néha érdemes megszámolni Outlook-partnerei életkorát. Az Outlook azonban nem rendelkezik ezzel a funkcióval, és a kézi számlálás hibás lesz. Így ez a cikk két gyors megközelítést mutat be az Outlook VBA-n keresztül.

Új Outlook-névjegyek létrehozásakor megadhatja a névjegyek születésnapját. Ezután az Outlook automatikusan létrehozza a naptárban az ismétlődő születésnapi eseményeket. Tehát amikor eljön valakinek a születésnapja, emlékeztetőt kap. Ezen a ponton tudnia kell a névjegy életkorát. Az Outlooknak azonban nincs beépített funkciója a névjegy életkorának kiszámítására. Szerencsére az Outlook VBA segítségével könnyedén meg tudjuk ezt tenni.

1. módszer: Adott Outlook-partner életkorának meghatározása

1. Kezdésként indítsa el az Outlookot, és nyomja meg az „Alt + F11” billentyűkombinációt.
2. Ezután az új „Microsoft Visual Basic for Applications” ablakban meg kell nyitnia egy új modult, és be kell másolnia a következő VBA-kódokat.

Sub CountContactAge()
    Dim olContact As ContactItem
    Dim bDay As Date
    Dim Age As Integer
    Dim strMsg As String
    Dim nRes As Integer
 
    Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    If TypeName(olContact) = "ContactItem" Then
       If olContact.Birthday <> #1/1/4501# Then
          bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
          Age = DateDiff("yyyy", olContact.Birthday, bDay)
          strMsg = olContact.FullName & " is " & Age & " years old now."
          nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Age")
       Else
          strMsg = "You haven't input " & olContact.FullName & "'s birthday yet."
          nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Count Contact Age")
       End If
    End If
End Sub

3. Ezt követően kiléphet az aktuális ablakból, és a szokásos módon hozzáadhatja az új makrót a Gyorselérési eszköztárhoz.
4. Ezt követően elérheti a Névjegyek mappát, kiválaszthatja az adott névjegyet, majd megnyomhatja a makró gombot a Gyorselérési eszköztáron.
5. Végül a következő eredményeket kaphatja:

• Ha nem adta meg a kapcsolattartó születésnapját, a következő képhez hasonló figyelmeztetést fog kapni:
• Ha megadta a kapcsolattartó születésnapját, megjelenik egy párbeszédpanel, amely közli a kapcsolattartó életkorát, az alábbi képen látható módon:

Az 1. módszer unalmas lesz, ha több vagy az összes kapcsolattartóját szeretné elérni. Ezért kérjük, olvassa el a 2. módszer használatát.

2. módszer: Gyorsan lekérheti az összes Outlook-névjegy életkorát

1. Először lépjen a Névjegyek panelre, és nyomja meg a „Nézet beállítások” gombot a „Nézet” fülön.
2. Az új „Speciális nézetbeállítások” párbeszédpanelen nyomja meg az „Oszlopok” gombot.
3. Ezután az „Oszlopok megjelenítése” párbeszédpanelen nyomja meg az „Új oszlop” gombot. Az „Új oszlop” párbeszédpanel „Név” mezőjébe írja be az „Age” kifejezést, majd nyomja meg az „OK” gombot.
4. Ezután kattintson az „OK” sorra, hogy visszatérjen az Outlook főablakába.
5. Ezt követően nyomja meg az „Alt + F11” billentyűkombinációt a „Visual Basic” ablak megnyitásához, és másolja be a következő kódokat egy új modulba.

Sub AddAgeColumn()
    Dim obj As Object
    Dim olContact As Object
    Dim olProp As Outlook.UserProperty
    Dim bDay As Date
    Dim Age
 
    On Error Resume Next
 
    For Each obj In Application.ActiveExplorer.Selection
        If TypeName(obj) = “ContactItem” And obj.Birthday <> #1/1/4501# Then
           Set olContact = obj
           bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
           Age = DateDiff("yyyy", olContact.Birthday, bDay)
           Set olProp = olContact.UserProperties.Add("Age", olText, True)
           olProp.Value = Age
           olContact.Save
        End If
        Err.Clear
    Next
End Sub

6. Később hozzáadhatja az új makrót a Gyorselérési eszköztárhoz.
7. Végül válassza ki az összes névjegyet a „Ctrl + A” billentyűkombinációval, és nyomja meg a makró gombot a Gyorselérési eszköztáron. Megjelenik az összes kapcsolat életkora, kivéve azokat, akiknek nincs születésnapja, az alábbi képen látható módon:

Óvakodjon az Outlook adataival kapcsolatos kockázatoktól

Az Outlook hajlamos a korrupcióra. Ezért folyamatosan figyelnie kell az Outlook-adataival kapcsolatos összes veszélyt. Ezek általában vírusok, rosszindulatú programok, áramkimaradások és emberi hibák stb. Ezen túlmenően, hogy gyorsan az Outlook PST adatsérülésének javítása, inkább tartson a közelben tapasztalt javítószerszámot, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve a sérült SQL fájl javítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com