Таны Outlook харилцагчийн насыг авах 2 хурдан арга

Заримдаа та Outlook харилцагчдынхаа насыг тоолж болно. Гэхдээ Outlook-д энэ функц байхгүй бөгөөд гараар тоолоход алдаа гарах магадлалтай. Тиймээс энэ нийтлэл нь Outlook VBA-ээр дамжуулан 2 хурдан аргыг танд танилцуулах болно.

Шинэ Outlook харилцагчид үүсгэхдээ та харилцагчдын төрсөн өдрийг оруулж болно. Дараа нь Outlook нь таны хуанли дээр давтагдах төрсөн өдрийн үйл явдлуудыг автоматаар үүсгэх болно. Тиймээс хэн нэгний төрсөн өдөр болоход та сануулга хүлээн авах болно. Энэ үед та харилцагчийн насыг мэдэхийг хүсэх ёстой. Гэхдээ Outlook нь харилцагчийн насыг тоолох үндсэн функцгүй. Аз болоход бид үүнийг хамгийн хялбараар авахын тулд Outlook VBA-г ашиглаж чадна.

Арга 1: Харилцагчийн насыг тодорхой хар

1. Эхлэхийн тулд Outlook-г ажиллуулаад "Alt" + "F11" товчлууруудыг дарна уу.
2. Дараа нь шинэ "Microsoft Visual Basic for Applications" цонхонд та шинэ модуль нээж, дараах VBA кодуудыг хуулах хэрэгтэй.

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. Үүний дараа та одоогийн цонхноос гарч, шинэ макрог ердийнхөөрөө Quick Access Toolbar-д нэмж болно.
4. Үүний дараа та Харилцагчийн хавтсанд нэвтэрч, тухайн харилцагчийг сонгоод Түргэн нэвтрэх хэрэгслийн самбар дээрх макро товчийг дарах боломжтой.
5. Эцэст нь та дараах үр дүнг авч болно.

• Хэрэв та харилцагчийн төрсөн өдрийг оруулаагүй бол дараах зураг шиг анхааруулга хүлээн авах болно.
• Хэрэв та харилцагчийн төрсөн өдрийг оруулсан бол доорх зураг шиг харилцагчийн насыг зааж өгөх харилцах цонх гарч ирнэ.

Хэрэв та хэд хэдэн эсвэл бүх харилцагчдынхаа насыг авахыг хүсвэл 1-р арга нь уйтгартай байх болно. Тиймээс 2-р аргыг ашиглахын тулд уншина уу.

Арга 2: Бүх Outlook харилцагчдын насыг хурдан аваарай

1. Эхлээд "Харилцах" хэсэгт очоод "Харах" таб дээрх "Тохиргоог харах" товчийг дарна уу.
2. Шинэ "Нарийвчилсан харах тохиргоо" харилцах цонхонд "Багана" товчийг дарна уу.
3. Дараа нь "Баганыг харуулах" харилцах цонхонд "Шинэ багана" товчийг дарна уу. "Шинэ багана" харилцах цонхны "Нэр" талбарт "Нас" гэж бичээд "OK" дээр дарна уу.
4. Үүний дараа Outlook-ийн үндсэн цонх руу буцахын тулд "OK" дээр дарна уу.
5. Дараа нь "Alt + F11" товчийг дарж "Visual Basic" цонхыг нээгээд дараах кодуудыг шинэ модуль руу хуулна уу.

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. Дараа нь та шинэ макро хурдан нэвтрэх хэрэгслийн самбарт нэмж болно.
7. Эцэст нь "Ctrl + A" товчийг дарж бүх харилцагчдыг сонгоод Хурдан нэвтрэх хэрэгслийн самбар дээрх макро товчийг дарна уу. Доорх зураг шиг төрсөн өдрөө тэмдэглээгүй хүмүүсээс бусад бүх харилцагчийн насыг та авах болно.

Таны Outlook мэдээллийн эргэн тойрон дахь эрсдэлээс болгоомжил

Төлөв байдал нь авлигад өртөмтгий байдаг. Тиймээс та Outlook өгөгдлийн эргэн тойрон дахь бүх аюулыг анхаарч үзэх хэрэгтэй. Эдгээр нь ихэвчлэн вирус, хортой программ хангамж, цахилгааны тасалдал, хүний ​​алдаа гэх мэт. Үүнээс гадна, хурдан шуурхай ажиллахын тулд Outlook PST мэдээллийн эвдрэлийг засах, та туршлагатай засварын хэрэгслийг ойролцоо байлгасан нь дээр DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн SQL файлыг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com