كيفية إنشاء تذكيرات في Outlook من جدول بيانات Excel؟
تتحدث هذه المقالة عن إنشاء تذكيرات في Outlook بناءً على بيانات جدول بيانات Excel.
إنشاء تذكيرات في Outlook من جدول بيانات Excel باستخدام كود VBA
إنشاء تذكيرات في Outlook من جدول بيانات Excel باستخدام كود VBA
إذا كنت تريد إنشاء تذكيرات في Outlook من Excel، يرجى اتباع الخطوات التالية.
1. قم بإنشاء ورقة عمل تحتوي على عناوين الأعمدة والحقول المرتبطة بالتذكير كما هو موضح في لقطة الشاشة أدناه.

ملاحظة: بالنسبة لعمود "حالة الانشغال"، الرقم "2" يعني أن التذكير سيظهر كـ "مشغول" في تقويم Outlook الخاص بك. يمكنك تغييره إلى "1 (مؤقت)", "3 (خارج المكتب)", "4 (يعمل في مكان آخر)", أو "5 (مجاني)" حسب الحاجة.
2. اضغط على مفتاحي "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".
3. في نافذة "Microsoft Visual Basic for Applications"، انقر فوق "إدراج" > "وحدة". ثم قم بنسخ الكود التالي لـ VBA في نافذة الكود.
كود VBA: إنشاء تذكيرات في Outlook من جدول بيانات Excel
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.CreateItem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
ملاحظة: في الكود أعلاه، "A2:G2" هو نطاق البيانات الذي تريد إنشاء المواعيد بناءً عليه.
4. اضغط على "F5" أو انقر فوق زر "تشغيل" لتشغيل الكود. بعد ذلك سيتم إدراج جميع المواعيد مع الحقول المحددة في تقويم Outlook الخاص بك دفعة واحدة.
ثم يمكنك الانتقال إلى التقويم في Outlook الخاص بك لعرض النتائج. انظر لقطة الشاشة:

أفضل أدوات الإنتاجية لمجموعة Office
خبر عاجل: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!
جرّب الآن الإصدار المجاني الجديد كليًا من أدوات Kutools لـ Outlook مع أكثر من70 ميزة مذهلة، متاحة لك مدى الحياة! انقر للتحميل الآن!
📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية حسب القواعد عند الإرسال / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية ...
📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوعات وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات ...
📁 المرفقات الاحترافية: حفظ دفعي / فصل دفعي / ضغط دفعي / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...
🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تنبيهك عند وصول رسائل هامة / تصغير Outlook بدلاً من الإغلاق ...
👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / رسائل البريد الإلكتروني المضادة للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...
👩🏼🤝👩🏻 جهات الاتصال والتقويم: إضافة جهات اتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...
افتح أدوات Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتحميل الآن وزد من إنتاجيتك!

