كيفية حساب وعرض الأعمار حسب أعياد الميلاد في تقويم Outlook؟
بشكل عام ، ستتم إضافة تاريخ ميلاد جهة الاتصال تلقائيًا كموعد متكرر سنويًا في التقويم. ولكن هل تعرف كيفية حساب عمر جهة الاتصال وإظهار العمر مباشرة في عرض التقويم؟ ستقدم هذه المقالة VBA لمعرفة عمر كل جهة اتصال وإظهار العمر في موضوع الموعد النسبي المتكرر في Outlook.
حساب وعرض الأعمار حسب أعياد الميلاد في تقويم Outlook
- أتمتة البريد الإلكتروني مع CC السيارات / BCC, إعادة توجيه تلقائي بالقواعد؛ يرسل رد آلي (خارج المكتب) دون الحاجة إلى خادم تبادل...
- احصل على تذكيرات مثل تحذير BCC عند الرد على الكل أثناء تواجدك في قائمة نسخة مخفية الوجهة، و تذكير عند فقدان المرفقات للمرفقات المنسية..
- تحسين كفاءة البريد الإلكتروني مع الرد (الكل) مع المرفقات, إضافة تحية أو التاريخ والوقت تلقائيًا إلى التوقيع أو الموضوع, الرد على رسائل البريد الإلكتروني المتعددة
- تبسيط البريد الإلكتروني مع استدعاء رسائل البريد الإلكتروني, أدوات المرفقات (ضغط الكل، حفظ الكل تلقائيًا...)، إزالة التكراراتو تقرير سريع
حساب وعرض الأعمار حسب أعياد الميلاد في تقويم Outlook
لحساب عمر كل جهة اتصال وإظهار العمر في موضوع الموعد المتكرر النسبي في تقويم Outlook ، يرجى القيام بما يلي:
1. افتح مجلد التقويم الافتراضي ، واضغط على قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، ثم قم بلصق رمز VBA أدناه في نافذة الوحدة النمطية الجديدة.
فبا: حساب وعرض أعمار جهات الاتصال في تقويم Outlook
Option Explicit
Public Sub UpdateAges()
Dim xOlApp As Outlook.Application
Dim xOlFolder As Outlook.Folder
Dim xOlItems As Outlook.Items
Dim xAppointmentItem As AppointmentItem
Dim xAge As Integer
Dim xOlProp As Outlook.UserProperty
Set xOlApp = Outlook.Application
Set xOlFolder = Session.GetDefaultFolder(olFolderCalendar)
Set xOlItems = xOlFolder.Items
For Each xAppointmentItem In xOlItems
If (InStr(1, xAppointmentItem.Subject, "Birthday") Or InStr(1, xAppointmentItem.Subject, "Anniversary")) And xAppointmentItem.IsRecurring = True Then
With xAppointmentItem
If xAppointmentItem.UserProperties("Original Subject") Is Nothing Then
Set xOlProp = xAppointmentItem.UserProperties.Add("Original Subject", olText, True)
xOlProp.Value = .Subject
.Save
End If
xAge = DateDiff("yyyy", .Start, Date)
.Subject = .UserProperties("Original Subject") & " (" & xAge & " in " & Format(Date, "yyyy") & ")"
.Save
End With
End If
Next
Set xAppointmentItem = Nothing
Set xOlItems = Nothing
Set xOlFolder = Nothing
Set xOlApp = Nothing
End Sub
3. اضغط على F5 مفتاح أو يجري زر لتشغيل هذا VBA.
عندما تعود إلى التقويم الافتراضي ، سترى أن عمر كل جهة اتصال قد تم تحديده وعرضه في موضوع موعد عيد الميلاد المتكرر. انظر لقطة الشاشة:
ملاحظة:
(1) في موضوع موعد عيد ميلاد متكرر لجهة اتصال معينة ، يتم احتضان عمر جهة الاتصال هذه بأقواس تشبه (شنومكس في شنومكس), 41 هو العمر و 2017 هي السنة الحالية.
(2) إذا قمت بتغيير تاريخ ميلاد جهة اتصال معينة في مجلد جهات الاتصال ، فستتم إزالة العمر من التقويم تلقائيًا.
(3) يعمل VBA مع تقويم Outlook الافتراضي فقط.
مقالات ذات صلة
أفضل أدوات إنتاجية المكتب
كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك
🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.