كيفية استيراد أعياد الميلاد من 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 لعرض النتيجة ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
Kutools for Outlook - أكثر من 100 ميزة قوية لتعزيز توقعاتك
📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP) / جدولة إرسال رسائل البريد الإلكتروني / نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني / إعادة التوجيه التلقائي (القواعد المتقدمة) / إضافة تحية تلقائية / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية
📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة / حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين / حذف رسائل البريد الإلكتروني المكررة / المزيد من خيارات البحث / توحيد المجلدات
📁 المرفقات برو: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / فصل تلقائي / ضغط تلقائي
؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة / تصغير Outlook بدلاً من الإغلاق
؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة / رسائل البريد الإلكتروني لمكافحة التصيد / 🕘إظهار المنطقة الزمنية للمرسل
👩🏼🤝👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة / تقسيم مجموعة اتصال إلى مجموعات فردية / إزالة تذكير عيد ميلاد
على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.




