Outlook Kontaktınızın Yaşını Almaq üçün 2 Sürətli Metod

Bəzən Outlook kontaktlarınızın yaşını saymaq istəyə bilərsiniz. Lakin Outlook-da bu funksiya yoxdur və əl ilə hesablama xətalara meylli olacaq. Beləliklə, bu məqalə sizə Outlook VBA vasitəsilə 2 sürətli yanaşma təqdim edəcək.

Yeni Outlook kontaktları yaratarkən siz kontaktların ad günlərini daxil edə bilərsiniz. Sonra Outlook avtomatik olaraq təqviminizdə müvafiq təkrarlanan ad günü hadisələrini yaradacaq. Beləliklə, hər kəsin ad günü gələndə sizə xatırlatma gələcək. Bu zaman kontaktın yaşını bilmək istəməlisiniz. Lakin Outlook-da kontaktın yaşını hesablamaq üçün yerli xüsusiyyət yoxdur. Xoşbəxtlikdən, utm ilə əldə etmək üçün Outlook VBA-dan istifadə edə bilərikost rahatlıq.

Metod 1: Xüsusi Outlook Əlaqəsinin Yaşını əldə edin

1. Start ilə Outlook-u işə salın və “Alt + F11” düymələrini basın.
2. Sonra yeni “Proqramlar üçün Microsoft Visual Basic” pəncərəsində yeni modul açmalı və aşağıdakı VBA kodlarını ona köçürməlisiniz.

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. Bundan sonra, siz cari pəncərədən çıxa və həmişəki kimi Tez Giriş Alətlər Panelinə yeni makro əlavə edə bilərsiniz.
4. Bundan sonra, siz Kontaktlar qovluğuna daxil ola və xüsusi kontaktı seçə və Tez Giriş Alətlər Panelində makro düyməsini sıxa bilərsiniz.
5. Nəhayət, aşağıdakı nəticələri əldə edə bilərsiniz:

• Əgər kontaktın ad günlərini daxil etməmisinizsə, aşağıdakı şəkildəki kimi bir xəbərdarlıq alacaqsınız:
• Əgər kontaktın ad gününü daxil etmisinizsə, aşağıdakı şəkildəki kimi sizə əlaqə yaşını bildirən bir dialoq qutusu alacaqsınız:

Bir neçə və ya bütün kontaktlarınızın yaşını əldə etmək istəyirsinizsə, 1-ci üsul yorucu olacaq. Beləliklə, 2-ci Metoddan istifadə etmək üçün oxuyun.

Metod 2: Bütün Outlook kontaktlarının yaşını tez alın

1. Əvvəlcə Kontaktlar panelinə keçin və "Görünüş" sekmesinde "Parametrlərə Bax" düyməsini basın.
2. Yeni "Ətraflı Görünüş Parametrləri" informasiya qutusunda "Sütunlar" düyməsini basın.
3. Sonra "Sütunları göstər" informasiya qutusunda "Yeni sütun" düyməsini basın. "Yeni Sütun" dialoq qutusunda "Ad" qutusuna "Yaş" yazın və sonra "OK" düyməsini basın.
4. Bundan sonra, əsas Outlook pəncərəsinə qayıtmaq üçün bir sıra "OK" düyməsini basın.
5. Sonra, "Visual Basic" pəncərəsini açmaq üçün "Alt + F11" düyməsini basın və aşağıdakı kodları yeni modula köçürün.

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. Daha sonra siz Tez Giriş Alətlər Panelinə yeni makro əlavə edə bilərsiniz.
7. Sonda "Ctrl + A" ilə bütün kontaktları seçin və Tez Giriş Alətlər Panelində makro düyməsini basın. Aşağıdakı şəkildəki kimi ad günlərini doldurmayanlar istisna olmaqla, bütün kontaktların yaşını alacaqsınız:

Outlook məlumatlarınız ətrafında risklərdən çəkinin

Outlook korrupsiyaya meyllidir. Buna görə də, Outlook məlumatlarınız ətrafındakı bütün təhlükələrə diqqət yetirməlisiniz. Bunlar adətən viruslar, zərərli proqramlar, elektrik kəsilməsi və insan səhvləri və s. Outlook PST məlumatlarının zədələnməsini təmir edin, yaxşı olar ki, təcrübəli təmir alətini yaxınlıqda saxlayın DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş SQL faylını təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com