كيفية استيراد أعياد الميلاد من Excel إلى تقويم Outlook؟

Author: Xiaoyang Last Modified: 2025-08-06

إذا كان لديك قائمة طويلة من معلومات أعياد الميلاد في ورقة عمل، وتريد الآن استيراد هذه الأعياد إلى تقويم Outlook كأحداث. كيف يمكنك التعامل مع هذه المهمة باستخدام بعض الطرق السريعة؟

استيراد أعياد الميلاد من Excel إلى تقويم Outlook باستخدام كود VBA

عادةً، لا يوجد طريقة مباشرة لاستيراد أعياد الميلاد إلى تقويم Outlook، هنا، سأقوم بإنشاء كود VBA لحل هذه المشكلة، يرجى اتباع الخطوات التالية:

1. افتح ورقة العمل التي تحتوي على أعياد الميلاد التي تريد استيرادها إلى Outlook، ثم اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: استيراد أعياد الميلاد إلى تقويم Outlook

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3. لا تزال في نافذة Microsoft Visual Basic for Applications، انقر فوق أدوات > مراجع. في مربع الحوار المنبثق مراجع – مشروع VBA، حدد خيار مكتبة كائنات Microsoft Outlook 16.0 من قائمة المراجع المتاحة، انظر إلى لقطة الشاشة:

4. ثم انقر فوق موافق لإغلاق هذا مربع الحوار. الآن، اضغط على مفتاح F5 لتشغيل هذا الكود، وسيظهر مربع موجه، يرجى تحديد أعمدة الاسم وعيد الميلاد، انظر إلى لقطة الشاشة:

5. وبعد ذلك، انقر فوق زر موافق، سيتم استيراد أعياد الميلاد إلى تقويم Outlook فوراً، يمكنك تشغيل Outlook الخاص بك لعرض النتيجة، انظر إلى لقطة الشاشة:

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم: