2 nopeaa tapaa saada Outlook-yhteyshenkilön ikä

Joskus saatat haluta laskea Outlook-yhteyshenkilöiden iän. Mutta Outlookilla ei ole tätä toimintoa, ja manuaalinen laskeminen on virhealtista. Siksi tässä artikkelissa esitellään sinulle kaksi nopeaa lähestymistapaa Outlook VBA: n kautta.

Kun luot uusia Outlook-yhteystietoja, voit syöttää yhteystietojen syntymäpäivät. Tämän jälkeen Outlook luo automaattisesti vastaavat toistuvat syntymäpäivätapahtumat kalenteriisi. Joten kun jonkun syntymäpäivä koittaa, saat muistutuksen. Tässä vaiheessa sinun on tiedettävä yhteystiedon ikä. Outlookissa ei kuitenkaan ole omaa ominaisuutta yhteystiedon iän laskemiseen. Onneksi voimme käyttää Outlook VBA:ta sen selvittämiseen äärimmäisen helposti.

Tapa 1: Hanki tietty Outlook-yhteyshenkilön ikä

1. Aloita käynnistämällä Outlook ja painamalla näppäinyhdistelmää "Alt + F11".
2. Sitten uudessa "Microsoft Visual Basic for Applications" -ikkunassa sinun pitäisi avata uusi moduuli ja kopioida seuraavat VBA-koodit siihen.

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. Tämän jälkeen voit poistua nykyisestä ikkunasta ja lisätä uuden makron Pikatyökaluriville tavalliseen tapaan.
4. Sen jälkeen pääset Yhteystiedot-kansioon, valitse haluamasi yhteyshenkilö ja paina makronäppäintä Pikakäynnistystyökalurivillä.
5. Lopuksi saatat saada seuraavat tulokset:

• Jos et ole kirjoittanut yhteyshenkilön syntymäpäiviä, saat seuraavan kuvan kaltaisen ilmoituksen:
• Jos olet antanut yhteyshenkilön syntymäpäivän, saat valintaikkunan, joka kertoo sinulle kontaktin ikän, kuten alla oleva kuva:

Menetelmä 1 on tylsä, jos haluat saada ikäsi useampaan tai kaikkiin kontakteihisi. Lue siis menetelmän 2 käyttö.

Tapa 2: Nopeasti kaikkien Outlook-yhteystietojen ikä

1. Siirry aluksi Yhteystiedot-ruutuun ja paina Näytä-välilehden Näytä asetukset -painiketta.
2. Napsauta uudessa Lisäasetukset-valintaikkunassa Sarakkeet-painiketta.
3. Paina sitten "Näytä sarakkeet" -valintaikkunassa "Uusi sarake" -painiketta. Kirjoita Uusi sarake -valintaikkunaan Nimi-ruutuun Ikä ja paina sitten OK.
4. Sen jälkeen napsauta sarjaa "OK" palataksesi Outlookin pääikkunaan.
5. Seuraavaksi paina “Alt + F11” avataksesi “Visual Basic” -ikkunan ja kopioimalla seuraavat koodit uuteen moduuliin.

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. Myöhemmin voit lisätä uuden makron Pikatyökaluriville.
7. Lopulta valitse kaikki yhteystiedot painamalla "Ctrl + A" ja paina makronäppäintä Pikakäynnistystyökalurivillä. Saat kaiken yhteyshenkilön iän, lukuun ottamatta niitä, joilla ei ole syntymäpäiviä, kuten alla olevassa kuvassa:

Varo Outlookin tietojen ympärillä olevia riskejä

Outlook on altis korruptiolle. Siksi sinun on pidettävä välilehtiä kaikista Outlook-tietojen ympärillä olevista vaaroista. Ne ovat yleensä viruksia, haittaohjelmia, sähkökatkoksia ja inhimillisiä virheitä jne. Lisäksi, jotta varmistat, että pystyt nopeasti korjata Outlookin PST-tietojen vioittuminen, kannattaa pitää kokenut korjaustyökalu lähellä DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata vioittunut SQL-tiedosto ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com