သင့် Outlook အဆက်အသွယ်၏အသက်ကိုရယူရန် အမြန်နည်းလမ်း 2 ခု

တစ်ခါတစ်ရံတွင်၊ သင်သည် သင်၏ Outlook အဆက်အသွယ်များ၏ အသက်ကို ရေတွက်လိုပေမည်။ သို့သော် Outlook တွင် ဤလုပ်ဆောင်ချက်မပါဝင်သဖြင့် ကိုယ်တိုင်ရေတွက်ခြင်းသည် အမှားအယွင်း ကျရောက်တတ်သည်။ ထို့ကြောင့် ဤဆောင်းပါးသည် သင့်အား Outlook VBA မှတဆင့် အမြန်ချဉ်းကပ်နည်း ၂ ခုကို မိတ်ဆက်ပေးပါမည်။

Outlook contact အသစ်များ ဖန်တီးသည့်အခါ contact များ၏ မွေးနေ့များကို ထည့်သွင်းနိုင်ပါသည်။ ထို့နောက် Outlook သည် သင့်ပြက္ခဒိန်တွင် မွေးနေ့ပွဲများကို အလိုအလျောက် ဖန်တီးပေးပါလိမ့်မည်။ ထို့ကြောင့် တစ်စုံတစ်ယောက်၏ မွေးနေ့ရောက်သောအခါတွင် သတိပေးချက်တစ်ခု ရရှိမည်ဖြစ်သည်။ ဤအချိန်တွင် contact ၏ အသက်ကို သိချင်ပေမည်။ သို့သော် Outlook တွင် contact ၏ အသက်ကို ရေတွက်ရန် native feature မရှိပါ။ ကံကောင်းထောက်မစွာ၊ ကျွန်ုပ်တို့သည် Outlook VBA ကို အသုံးပြု၍ ၎င်းကို အလွယ်တကူ ရယူနိုင်ပါသည်။

နည်းလမ်း 1- တိကျသော Outlook အဆက်အသွယ်၏အသက်ကို ရယူပါ။

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. ၎င်းနောက်၊ သင်သည် သင်၏အဆက်အသွယ်များဖိုဒါကိုဝင်ရောက်နိုင်ပြီး သီးခြားအဆက်အသွယ်ကိုရွေးချယ်ပြီး Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကိုနှိပ်ပါ။
5. နောက်ဆုံးတွင် အောက်ပါရလဒ်များကို သင်ရရှိနိုင်ပါသည်။

• အဆက်အသွယ်၏ မွေးနေ့များကို မထည့်သွင်းပါက၊ အောက်ပါပုံကဲ့သို့ သတိပေးချက်ကို သင်လက်ခံရရှိလိမ့်မည်-
• အကယ်၍ သင်သည် အဆက်အသွယ်၏ မွေးနေ့ကို ထည့်သွင်းပါက၊ အောက်ပါပုံကဲ့သို့ သင့်အား ဆက်သွယ်ရမည့် အသက်ကို ပြောပြမည့် dialog box ကို သင်ရရှိလိမ့်မည်-

နည်းလမ်း 1 သည် သင့်အဆက်အသွယ်များ၏ အသက်အများအပြား သို့မဟုတ် အားလုံးကို ရယူလိုပါက ပျင်းနေလိမ့်မည်။ ထို့ကြောင့် Method 2 ကိုအသုံးပြုရန်ဆက်လက်ဖတ်ရှုပါ။

နည်းလမ်း 2- Outlook Contacts 'Age အားလုံးကို အမြန်ရယူပါ။

1. ပထမဦးစွာ၊ Contacts pane သို့သွားပြီး "View" tab ရှိ "View Settings" ခလုတ်ကိုနှိပ်ပါ။
2. "Advanced View Settings" dialog box အသစ်တွင် "Columns" ခလုတ်ကို နှိပ်ပါ။
3. ထို့နောက် “Show Columns” dialog box တွင် “New Column” ခလုတ်ကို နှိပ်ပါ။ "ကော်လံအသစ်" ဒိုင်ယာလော့ဂ်တွင်၊ "အမည်" အကွက်တွင် "အသက်" ကိုရိုက်ထည့်ပြီး "အိုကေ" ကိုနှိပ်ပါ။
4. ထို့နောက် ပင်မ Outlook ဝင်းဒိုးသို့ ပြန်သွားရန် "OK" စီးရီးတစ်ခုကို နှိပ်ပါ။
5. ထို့နောက် “Visual Basic” ဝင်းဒိုးကိုဖွင့်ရန် “Alt + F11” ကိုနှိပ်ပြီး အောက်ပါကုဒ်များကို မော်ဂျူးအသစ်သို့ ကူးယူပါ။

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. နောက်ပိုင်းတွင် သင်သည် Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထည့်နိုင်သည်။
7. နောက်ဆုံးတွင် “Ctrl+A” ဖြင့် အဆက်အသွယ်အားလုံးကို ရွေးပြီး Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။ အောက်ပါပုံကဲ့သို့ မွေးနေ့များ မဖြည့်ထားသူများမှလွဲ၍ အဆက်အသွယ်များ၏ အသက်အရွယ် အားလုံးကို ရရှိမည်ဖြစ်ပါသည်။

သင်၏ Outlook ဒေတာဝန်းကျင်ရှိ အန္တရာယ်များကို သတိပြုပါ။

Outlook သည် အဂတိလိုက်စားမှု ကျရောက်နိုင်ခြေရှိသည်။ ထို့ကြောင့်၊ သင်သည် သင်၏ Outlook ဒေတာပတ်ဝန်းကျင်ရှိ အန္တရာယ်များအားလုံးတွင် တက်ဘ်များကို သိမ်းဆည်းထားသင့်သည်။ ၎င်းတို့သည် အများအားဖြင့် ဗိုင်းရပ်စ်များ၊ မဲလ်ဝဲများ၊ ဓာတ်အားပြတ်တောက်မှုများနှင့် လူတို့၏ အမှားအယွင်းများ စသည်တို့ဖြစ်သည်။ ထို့ထက် လျင်မြန်စွာ လုပ်ဆောင်နိုင်စေရန်အတွက်၊ Outlook PST ဒေတာ ပျက်စီးမှုကို ပြုပြင်ပါ။အတွေ့အကြုံရှိတဲ့ ပြုပြင်ရေးကိရိယာလိုမျိုး အနီးအနားမှာ ထားရင် ပိုကောင်းမယ်။ DataNumen Outlook Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်စီးနေသော SQL ဖိုင်ကိုပြုပြင်ပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com