บางครั้ง คุณอาจต้องการนับอายุของผู้ติดต่อ Outlook ของคุณ แต่ Outlook ไม่มีฟังก์ชันนี้ และการนับด้วยตนเองอาจเกิดข้อผิดพลาดได้ ดังนั้นบทความนี้จะแนะนำ 2 วิธีด่วนผ่าน Outlook VBA
เมื่อสร้างรายชื่อผู้ติดต่อใหม่ใน Outlook คุณสามารถป้อนวันเกิดของผู้ติดต่อได้ จากนั้น Outlook จะสร้างกิจกรรมวันเกิดที่เกิดขึ้นซ้ำในปฏิทินของคุณโดยอัตโนมัติ ดังนั้นเมื่อถึงวันเกิดของใครก็ตาม คุณจะได้รับการแจ้งเตือน ในขั้นตอนนี้ คุณอาจต้องการทราบอายุของผู้ติดต่อ แต่ Outlook ไม่มีฟีเจอร์ในตัวสำหรับการคำนวณอายุของผู้ติดต่อ โชคดีที่เราสามารถใช้ Outlook VBA เพื่อให้ได้ข้อมูลนี้ได้อย่างง่ายดาย
วิธีที่ 1: รับอายุของผู้ติดต่อ Outlook ที่ระบุ
- เริ่มต้นด้วยการเปิดโปรแกรม Outlook แล้วกดปุ่ม “Alt + F11” พร้อมกัน
- จากนั้นในหน้าต่าง "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
- จากนั้น คุณสามารถออกจากหน้าต่างปัจจุบันและเพิ่มแมโครใหม่ลงในแถบเครื่องมือด่วนได้ตามปกติ
- หลังจากนั้น คุณสามารถเข้าถึงโฟลเดอร์ที่ติดต่อของคุณ และเลือกผู้ติดต่อที่ต้องการแล้วกดปุ่มมาโครในแถบเครื่องมือด่วน
- ในที่สุดคุณอาจได้รับผลลัพธ์ดังต่อไปนี้:
- หากคุณไม่ได้ป้อนวันเกิดของผู้ติดต่อ คุณจะได้รับการแจ้งเตือนดังภาพต่อไปนี้:
- หากคุณป้อนวันเกิดของผู้ติดต่อ คุณจะได้รับกล่องโต้ตอบซึ่งจะบอกอายุของผู้ติดต่อ ดังภาพด้านล่าง:
วิธีที่ 1 อาจยุ่งยากถ้าคุณต้องการเพิ่มอายุของผู้ติดต่อหลายๆ คนหรือทั้งหมด ดังนั้นโปรดอ่านต่อเพื่อใช้วิธีที่ 2
วิธีที่ 2: รับอายุผู้ติดต่อ Outlook ทั้งหมดอย่างรวดเร็ว
- ในตอนแรก ไปที่บานหน้าต่างผู้ติดต่อ และกดปุ่ม "ดูการตั้งค่า" บนแท็บ "ดู"
- ในกล่องโต้ตอบ "การตั้งค่ามุมมองขั้นสูง" ใหม่ ให้กดปุ่ม "คอลัมน์"
- จากนั้นในกล่องโต้ตอบ "แสดงคอลัมน์" ให้กดปุ่ม "คอลัมน์ใหม่" ในกล่องโต้ตอบ "คอลัมน์ใหม่" ให้พิมพ์ "อายุ" ในช่อง "ชื่อ" จากนั้นกด "ตกลง"
- หลังจากนั้นคลิกชุด "ตกลง" เพื่อกลับไปที่หน้าต่างหลักของ Outlook
- จากนั้นกด "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
- หลังจากนั้นคุณสามารถเพิ่มแมโครใหม่ลงในแถบเครื่องมือด่วนได้
- ในที่สุดก็เลือกผู้ติดต่อทั้งหมดโดย "Ctrl + A" แล้วกดปุ่มมาโครในแถบเครื่องมือด่วน คุณจะได้อายุของผู้ติดต่อทั้งหมด ยกเว้นผู้ที่ไม่ได้ระบุวันเกิด ดังภาพด้านล่าง:
ระวังความเสี่ยงเกี่ยวกับข้อมูล Outlook ของคุณ
Outlook มีแนวโน้มที่จะเกิดการทุจริต ดังนั้นคุณควรติดตามดูอันตรายทั้งหมดเกี่ยวกับข้อมูล Outlook ของคุณ โดยปกติแล้วจะเป็นไวรัส มัลแวร์ ไฟฟ้าดับ และข้อผิดพลาดของมนุษย์ เป็นต้น นอกจากนี้ เพื่อให้มั่นใจว่าคุณสามารถดำเนินการได้อย่างรวดเร็ว ซ่อมแซมความเสียหายของข้อมูล Outlook PSTคุณควรเก็บเครื่องมือซ่อมแซมที่มีประสบการณ์ไว้ใกล้ตัว เช่น DataNumen Outlook Repair.
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมไฟล์ SQL ที่เสียหาย และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.