Skip to main content

كيفية إنشاء تذكيرات في Outlook من جدول بيانات Excel؟

Author: Siluvia Last Modified: 2025-08-06

تتحدث هذه المقالة عن إنشاء تذكيرات في Outlook بناءً على بيانات جدول بيانات Excel.

إنشاء تذكيرات في Outlook من جدول بيانات Excel باستخدام كود VBA


إنشاء تذكيرات في Outlook من جدول بيانات Excel باستخدام كود VBA

إذا كنت تريد إنشاء تذكيرات في Outlook من Excel، يرجى اتباع الخطوات التالية.

1. قم بإنشاء ورقة عمل تحتوي على عناوين الأعمدة والحقول المرتبطة بالتذكير كما هو موضح في لقطة الشاشة أدناه.

steps of using vba to create Outlook reminders from Excel spreadsheet

ملاحظة: بالنسبة لعمود "حالة الانشغال"، الرقم "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 الخاص بك لعرض النتائج. انظر لقطة الشاشة:

steps of using vba to create Outlook reminders from Excel spreadsheet

أفضل أدوات إنتاجية أوفيس

أخبار عاجلة: أدوات Kutools لـ Outlook تطلق إصدارًا مجانيًا!

اختبر أدوات Kutools لـ Outlook الجديدة كليًا مع أكثر من100 ميزة مذهلة! انقر لتحميلها الآن!

🤖 Kutools AI : يستخدم تقنية الذكاء الاصطناعي المتقدمة لإدارة البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء الرسائل.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متاح لـ POP و IMAP) / جدولة إرسال البريد / نسخة تلقائية/مخفية عن طريق القواعد عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل منفصلة...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل الاحتيال حسب الموضوع وغيرها / حذف الرسائل المكررة / البحث المتقدم / تنظيم المجلدات...

📁 المرفقات المتقدمة: حفظ دفعة واحدة / فصل دفعة واحدة / ضغط دفعة واحدة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي...

🌟 سحر الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والمميزة / تذكير عند وصول البريد الهام / تصغير Outlook بدل الإغلاق...

👍 ميزات بضغطة واحدة: الرد على الجميع مع المرفقات / الحماية من التصيد الاحتيالي / 🕘 عرض المنطقة الزمنية للمرسل...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة جهات الاتصال دفعة واحدة من الرسائل المحددة / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد...

استخدم أدوات Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

افتح أدوات Kutools لـ Outlook فوراً بنقرة واحدة. لا تنتظر، حمِّله الآن وحقق كفاءة أعلى!

kutools for outlook features1 kutools for outlook features2