2 Metode Cepat untuk Mendapatkan Usia Kontak Outlook Anda

Terkadang, Anda mungkin ingin menghitung usia kontak Outlook Anda. Tetapi Outlook tidak memiliki fungsi ini dan penghitungan manual akan rawan kesalahan. Jadi artikel ini akan memperkenalkan Anda 2 pendekatan cepat melalui Outlook VBA.

Saat membuat kontak Outlook baru, Anda dapat memasukkan tanggal lahir kontak. Kemudian Outlook akan secara otomatis membuat acara ulang tahun berulang yang sesuai di kalender Anda. Jadi, ketika ulang tahun seseorang tiba, Anda akan menerima pengingat. Pada titik ini, Anda pasti ingin mengetahui usia kontak tersebut. Namun, Outlook tidak memiliki fitur bawaan untuk menghitung usia kontak. Untungnya, kita dapat memanfaatkan Outlook VBA untuk mendapatkannya dengan sangat mudah.

Metode 1: Dapatkan Usia Kontak Outlook Tertentu

1. Pertama-tama, buka Outlook dan tekan tombol "Alt + F11".
2. Kemudian di jendela "Microsoft Visual Basic for Applications" yang baru, Anda harus membuka modul baru dan menyalin kode 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. Selanjutnya, Anda dapat keluar dari jendela saat ini dan menambahkan makro baru ke Bilah Alat Akses Cepat seperti biasa.
4. Setelah itu, Anda dapat mengakses folder Kontak Anda dan memilih kontak tertentu dan menekan tombol makro di Bilah Alat Akses Cepat.
5. Akhirnya Anda mungkin mendapatkan hasil berikut:

• Jika Anda belum memasukkan tanggal lahir kontak, Anda akan menerima peringatan seperti gambar berikut:
• Jika Anda telah memasukkan tanggal lahir kontak, Anda akan mendapatkan kotak dialog yang akan memberi tahu Anda usia kontak, seperti gambar di bawah ini:

Metode 1 akan membosankan jika Anda ingin mendapatkan beberapa atau semua usia kontak Anda. Jadi silakan baca terus untuk menggunakan Metode 2.

Metode 2: Dapatkan Usia Semua Kontak Outlook dengan Cepat

1. Pada awalnya, buka panel Kontak dan tekan tombol "Lihat Pengaturan" pada tab "Lihat".
2. Di kotak dialog "Pengaturan Tampilan Lanjut" yang baru, tekan tombol "Kolom".
3. Kemudian pada kotak dialog “Show Columns”, tekan tombol “New Column”. Dalam dialog "Kolom Baru", ketik "Usia" di kotak "Nama" dan kemudian tekan "OK".
4. Setelah itu, klik rangkaian “OK” untuk kembali ke jendela utama Outlook.
5. Selanjutnya, tekan "Alt + F11" untuk membuka jendela "Visual Basic" dan salin kode berikut ke 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. Nanti Anda dapat menambahkan makro baru ke Bilah Alat Akses Cepat.
7. Akhirnya pilih semua kontak dengan "Ctrl + A" dan tekan tombol makro di Bilah Alat Akses Cepat. Anda akan mendapatkan semua usia kontak, kecuali yang tidak memiliki tanggal lahir, seperti gambar di bawah ini:

Waspadai Risiko di Sekitar Data Outlook Anda

Outlook rentan terhadap korupsi. Oleh karena itu, Anda harus mengawasi semua bahaya di sekitar data Outlook Anda. Mereka biasanya virus, malware, pemadaman listrik dan kesalahan manusia, dll. Selain itu, untuk memastikan bahwa Anda dapat dengan cepat memperbaiki kerusakan data Outlook PST, Anda sebaiknya menyimpan alat perbaikan yang berpengalaman di sekitarnya, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki file SQL yang rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com