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

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

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

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

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

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

رمز فبا: استيراد أعياد الميلاد إلى تقويم 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. لا يزال في ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق الأدوات > المحلية. في خرجت المراجع - VBAProject مربع الحوار ، تحقق مكتبة كائنات Microsoft Outlook 16.0 خيار شكل المراجع المتاحة مربع القائمة ، انظر لقطة الشاشة:

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

5. ثم انقر فوق OK زر ، سيتم استيراد أعياد الميلاد إلى تقويم Outlook مرة واحدة ، يمكنك تشغيل Outlook لعرض النتيجة ، انظر لقطة الشاشة: