2 სწრაფი მეთოდი თქვენი Outlook კონტაქტის ასაკის მისაღებად

ზოგჯერ შეიძლება დაგჭირდეთ თქვენი Outlook კონტაქტების ასაკის დათვლა. მაგრამ Outlook-ს არ აქვს ეს ფუნქცია და ხელით დათვლა შეცდომისკენ მიდრეკილი იქნება. ამრიგად, ეს სტატია გაგაცნობთ 2 სწრაფ მიდგომას Outlook VBA-ის საშუალებით.

Outlook-ის ახალი კონტაქტების შექმნისას შეგიძლიათ შეიყვანოთ კონტაქტების დაბადების დღეები. შემდეგ Outlook ავტომატურად შექმნის შესაბამის განმეორებად დაბადების დღეებს თქვენს კალენდარში. ასე რომ, როდესაც ვინმეს დაბადების დღე დადგება, თქვენ მიიღებთ შეხსენებას. ამ ეტაპზე, თქვენ უნდა იცოდეთ კონტაქტის ასაკი. თუმცა, Outlook-ს არ აქვს ჩაშენებული ფუნქცია კონტაქტის ასაკის დასათვლელად. საბედნიეროდ, ჩვენ შეგვიძლია გამოვიყენოთ Outlook VBA, რომ ეს მაქსიმალურად მარტივად მივიღოთ.

მეთოდი 1: მიიღეთ კონკრეტული Outlook კონტაქტის ასაკი

1. დასაწყებად, გახსენით Outlook და დააჭირეთ Alt + F11 კლავიშებს.
2. შემდეგ ახალ ფანჯარაში „Microsoft Visual Basic აპლიკაციებისთვის“, თქვენ უნდა გახსნათ ახალი მოდული და დააკოპიროთ მასში შემდეგი 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. ამის შემდეგ, შეგიძლიათ გახვიდეთ მიმდინარე ფანჯრიდან და დაამატოთ ახალი მაკრო სწრაფი წვდომის ხელსაწყოთა ზოლში, როგორც ყოველთვის.
4. ამის შემდეგ შეგიძლიათ შეხვიდეთ თქვენს კონტაქტების საქაღალდეში და აირჩიოთ კონკრეტული კონტაქტი და დააჭიროთ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში.
5. საბოლოოდ შეგიძლიათ მიიღოთ შემდეგი შედეგები:

• თუ არ შეიყვანეთ კონტაქტის დაბადების თარიღები, მიიღებთ გაფრთხილებას, როგორიცაა შემდეგი სურათი:
• თუ თქვენ შეიყვანეთ კონტაქტის დაბადების თარიღი, მიიღებთ დიალოგურ ფანჯარას, რომელიც გეტყვით კონტაქტის ასაკს, როგორც ქვემოთ მოცემული სურათი:

მეთოდი 1 დამღლელი იქნება, თუ გსურთ მიიღოთ თქვენი რამდენიმე ან ყველა კონტაქტის ასაკი. ამიტომ გთხოვთ, წაიკითხოთ მე-2 მეთოდის გამოყენება.

მეთოდი 2: სწრაფად მიიღეთ ყველა Outlook კონტაქტის ასაკი

1. თავდაპირველად, გადადით კონტაქტების პანელზე და დააჭირეთ ღილაკს "View Settings" ჩანართზე "View".
2. ახალ დიალოგურ ფანჯარაში "Advanced View Settings" დააჭირეთ ღილაკს "Columns".
3. შემდეგ "სვეტების ჩვენება" დიალოგურ ფანჯარაში დააჭირეთ ღილაკს "ახალი სვეტი". "ახალი სვეტის" დიალოგში ჩაწერეთ "ასაკი" ველში "სახელი" და შემდეგ დააჭირეთ "OK".
4. ამის შემდეგ, დააწკაპუნეთ "OK"-ის სერიაზე, რათა დაბრუნდეთ Outlook-ის მთავარ ფანჯარაში.
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 მონაცემების გარშემო. ისინი, როგორც წესი, ვირუსები, მავნე პროგრამები, დენის გათიშვა და ადამიანური შეცდომები და ა.შ. Outlook PST მონაცემთა კორუფციის შეკეთებასჯობს იქვე გქონდეთ გამოცდილი სარემონტო ხელსაწყო, მაგ DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული SQL ფაილის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად