نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية حساب وتظهر الأعمار من قبل أعياد الميلاد على تقويم أوتلوك؟

وبصفة عامة، سيتم إضافة عيد ميلاد جهة الاتصال تلقائيا كموعد متكرر سنوي في التقويم. ولكن هل تعرف كيفية حساب عمر جهة الاتصال وعرض العمر مباشرة في طريقة عرض التقويم؟ سوف يعرض هذا المقال فبا لمعرفة عمر كل جهة اتصال وعرض العمر حول موضوع التكرار النسبية النسبية في أوتلوك.

حساب وعرض الأعمار حسب أعياد الميلاد على تقويم أوتلوك

علامة تبويب Office - تمكين التحرير والتصفح في Tabbed ، وجعل العمل أسهل بكثير ...
Kutools for Outlook - يجلب ميزات متقدمة قوية 100 إلى Microsoft Outlook
  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني المتعددة حسب القواعد ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC ؛ تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد ؛ الرد على العديد من رسائل البريد الإلكتروني مرة واحدة ؛ إضافة تحية السيارات عند الرد إضافة التاريخ والوقت إلى الموضوع ...
  • أدوات المرفقات: فصل تلقائي ، ضغط الكل ، إعادة تسمية الكل ، حفظ تلقائي للكل ... تقرير سريع، عدد الرسائل المختارة ، إزالة الرسائل المكررة وجهات الاتصال ...
  • أكثر من ميزات 100 المتقدمة سوف حل معظم مشاكلك في Outlook 2010-2019 و 365. ميزات كاملة النسخة التجريبية المجانية من 60.

السهم الأزرق الفقاعة اليمنىحساب وعرض الأعمار حسب أعياد الميلاد على تقويم أوتلوك

لحساب عمر كل جهة اتصال وعرض العمر في موضوع التكرار النسبي في تقويم أوتلوك، يرجى القيام بما يلي:

1. افتح مجلد التقويم الافتراضي واضغط على قديم + F11 مفاتيح لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس.

2. انقر إدراج > وحدة، ثم قم بلصق رمز فبا أدناه في نافذة الوحدة النمطية الجديدة.

فبا: حساب وعرض الأعمار الاتصالات في تقويم أوتلوك

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 مفتاح أو يجري زر لتشغيل هذا فبا.

عند العودة إلى التقويم الافتراضي، سترى يتم تحديد سن كل جهة اتصال بها ويظهر في موضوع التعيين عيد ميلاد متكرر. انظر لقطة الشاشة:

الملاحظات:
(شنومكس) في موضوع تعيين عيد ميلاد متكرر لجهة اتصال معينة، يتم احتضان سن جهة الاتصال هذه بين قوسين مماثلين (شنومكس في شنومكس), 41 هو العمر، و 2017 هو العام الحالي.
(شنومكس) إذا قمت بتغيير عيد ميلاد جهة اتصال معينة في مجلد جهات الاتصال، سيتم إزالة العمر من التقويم تلقائيا.
(شنومكس) يعمل هذا فبا مع تقويم أوتلوك الافتراضي فقط.


السهم الأزرق الفقاعة اليمنىمقالات ذات صلة


Kutools for Outlook - يجلب ميزات 100 المتقدمة إلى Outlook ، وجعل العمل أسهل بكثير!

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.