2 Kaedah Pantas untuk Mendapatkan Umur Kenalan Outlook Anda

Kadang kala, anda mungkin mahu mengira usia kenalan Outlook anda. Tetapi Outlook tidak mempunyai fungsi ini dan pengiraan secara manual akan terdedah kepada ralat. Oleh itu artikel ini akan memperkenalkan kepada anda 2 pendekatan cepat melalui Outlook VBA.

Apabila mencipta kenalan Outlook baharu, anda boleh memasukkan hari lahir kenalan tersebut. Kemudian Outlook akan mencipta acara hari lahir berulang mengikut kalendar anda secara automatik. Jadi, apabila hari lahir sesiapa sahaja tiba, anda akan menerima peringatan. Pada ketika ini, anda mesti ingin mengetahui umur kenalan tersebut. Tetapi Outlook tidak mempunyai ciri asli untuk mengira umur kenalan tersebut. Mujurlah, kita boleh menggunakan Outlook VBA untuk mendapatkannya dengan sangat mudah.

Kaedah 1: Dapatkan Umur Kenalan Outlook Khusus

1. Untuk bermula, lancarkan Outlook dan tekan butang kekunci "Alt + F11".
2. Kemudian di tetingkap "Microsoft Visual Basic for Applications" yang baru, anda harus membuka modul baru dan menyalin kod VBA berikut ke dalamnya.

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. Selepas itu, anda boleh keluar dari tetingkap semasa dan menambahkan makro baru ke Bar Alat Akses Pantas seperti biasa.
4. Selepas itu, anda dapat mengakses folder Kenalan anda dan memilih kenalan tertentu dan tekan butang makro di Bar Alat Akses Pantas.
5. Akhirnya anda dapat hasil berikut:

• Sekiranya anda belum memasukkan ulang tahun kenalan, anda akan menerima makluman seperti gambar berikut:
• Sekiranya anda memasukkan tarikh lahir kenalan, anda akan mendapat kotak dialog yang akan memberitahu anda usia kenalan, seperti gambar di bawah:

Kaedah 1 akan membosankan jika anda ingin mendapatkan usia atau semua kenalan anda. Oleh itu, sila baca untuk menggunakan Kaedah 2.

Kaedah 2: Dapatkan Segera Umur Kenalan Outlook

1. Pada mulanya, pergi ke panel Kenalan dan tekan butang "Lihat Tetapan" pada tab "Lihat".
2. Di kotak dialog "Tetapan Pandangan Lanjutan" yang baru, tekan butang "Lajur".
3. Kemudian di kotak dialog "Tunjukkan Lajur", tekan butang "Lajur Baru". Dalam dialog "Kolom Baru", ketik "Umur" di kotak "Nama" dan kemudian tekan "OK".
4. Selepas itu, klik satu siri "OK" untuk kembali ke tetingkap utama Outlook.
5. Selanjutnya, tekan "Alt + F11" untuk membuka tetingkap "Visual Basic" dan salin kod berikut ke dalam modul baru.

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. Kemudian anda boleh menambahkan makro baru ke Bar Alat Akses Pantas.
7. Akhirnya pilih semua kenalan dengan "Ctrl + A" dan tekan butang makro di Bar Alat Akses Pantas. Anda akan mendapat semua umur kenalan, kecuali mereka yang tidak mempunyai ulang tahun, seperti gambar di bawah:

Berhati-hatilah dengan Risiko di sekitar Data Outlook Anda

Outlook terdedah kepada rasuah. Oleh itu, anda harus mengawasi semua bahaya di sekitar data Outlook anda. Biasanya virus, malware, pemadaman elektrik dan kesalahan manusia, dll. Lebih-lebih lagi, untuk memastikan anda dapat dengan cepat membaiki kerosakan data Outlook PST, lebih baik anda menyimpan alat pembaikan yang berpengalaman di sekitarnya, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk membaiki fail SQL yang rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com