Outlook kontaktingizning yoshini aniqlashning 2 ta tezkor usuli

Ba'zan siz Outlook kontaktlaringizning yoshini hisoblashni xohlashingiz mumkin. Ammo Outlook-da bunday funktsiya yo'q va qo'lda hisoblash xatolikka olib keladi. Shunday qilib, ushbu maqola sizni Outlook VBA orqali ikkita tezkor yondashuv bilan tanishtiradi.

Yangi Outlook kontaktlarini yaratishda siz kontaktlarning tug'ilgan kunlarini kiritishingiz mumkin. Keyin Outlook avtomatik ravishda taqvimingizda takrorlanadigan tug'ilgan kun tadbirlarini yaratadi. Shunday qilib, kimningdir tug'ilgan kuni kelganda, sizga eslatma keladi. Bu vaqtda siz kontaktning yoshini bilishingiz kerak. Lekin Outlookda kontaktning yoshini hisoblash uchun mahalliy funksiya yo'q. Yaxshiyamki, biz buni juda oson bajarish uchun Outlook VBA dan foydalanishimiz mumkin.

1-usul: Muayyan Outlook kontaktining yoshini oling

1. Boshlash uchun Outlook-ni ishga tushiring va "Alt + F11" tugmachalarini bosing.
2. Keyin yangi "Microsoft Visual Basic for Applications" oynasida siz yangi modul ochishingiz va unga quyidagi VBA kodlarini nusxalashingiz kerak.

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. Keyinchalik, siz joriy oynadan chiqishingiz va odatdagidek tez kirish asboblar paneliga yangi makrosni qo'shishingiz mumkin.
4. Shundan so'ng siz "Kontaktlar" jildiga kirishingiz va aniq kontaktni tanlashingiz va Tez kirish asboblar panelidagi so'l tugmasini bosishingiz mumkin.
5. Nihoyat, siz quyidagi natijalarga erishishingiz mumkin:

• Agar siz kontaktning tug'ilgan kunini kiritmagan bo'lsangiz, quyidagi rasmdagi kabi ogohlantirish olasiz:
• Agar siz kontaktning tug'ilgan kunini kiritgan bo'lsangiz, quyidagi rasmdagi kabi kontaktning yoshini ko'rsatadigan dialog oynasini olasiz:

Agar siz bir nechta yoki barcha kontaktlaringizning yoshini olishni istasangiz, 1-usul zerikarli bo'ladi. Shunday qilib, 2-usuldan foydalanish uchun o'qing.

2-usul: Barcha Outlook kontaktlarining yoshini tezda oling

1. Avvalo, Kontaktlar paneliga o'ting va "Ko'rish" yorlig'idagi "Sozlamalarni ko'rish" tugmasini bosing.
2. Yangi "Kengaytirilgan ko'rinish sozlamalari" dialog oynasida "Ustunlar" tugmasini bosing.
3. Keyin "Ustunlarni ko'rsatish" dialog oynasida "Yangi ustun" tugmasini bosing. "Yangi ustun" dialog oynasida "Ism" maydoniga "Yosh" ni kiriting va "OK" tugmasini bosing.
4. Shundan so'ng, asosiy Outlook oynasiga qaytish uchun bir qator "OK" tugmasini bosing.
5. Keyinchalik, "Visual Basic" oynasini ochish uchun "Alt + F11" tugmachalarini bosing va quyidagi kodlarni yangi modulga ko'chiring.

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. Keyinchalik tez kirish asboblar paneliga yangi makrosni qo'shishingiz mumkin.
7. Oxir-oqibat "Ctrl + A" tugmalari yordamida barcha kontaktlarni tanlang va Tez kirish asboblar panelidagi so'l tugmasini bosing. Quyidagi rasmdagi kabi, tug'ilgan kuni to'ldirilmaganlar bundan mustasno, barcha kontaktlarning yoshini olasiz:

Outlook ma'lumotlaringiz atrofidagi xavflardan ehtiyot bo'ling

Outlook korruptsiyaga moyil. Shuning uchun, siz Outlook ma'lumotlaringiz atrofidagi barcha xavflarni kuzatib borishingiz kerak. Ular odatda viruslar, zararli dasturlar, elektr ta'minotidagi uzilishlar va inson xatolari va hokazolardir. Bundan tashqari, siz tezda mumkin bo'lishingizni ta'minlash uchun. Outlook PST ma'lumotlarining buzilishini tuzatish, kabi tajribali ta'mirlash vositasini yaqin joyda saqlaganingiz ma'qul DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL faylini tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com