كيف تُنشئ تذكيرات Outlook من جدول Excel؟

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

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

---

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

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

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

ملاحظة: في عمود «حالة الانشغال»، يشير الرقم "2" إلى أن التذكير سيظهر كـ«مشغول» في تقويم Outlook الخاص بك. ويمكنك تغييره حسب الحاجة إلى «1 (مؤقت)» أو «3 (خارج المكتب)» أو «4 (يعمل في مكان آخر)» أو «5 (متاح)».

2. اضغط على مفتاحَي «Alt» + "F11" لفتح نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».

3. في نافذة «مايكروسوفت فيجوال بيسك للتطبيقات»، انقر فوق «Insert» > «Module»، ثم انسخ كود 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" أو انقر فوق زر «Run» لتشغيل الكود، وفور الانتهاء، سيتم إدراج جميع المواعيد ذات الحقول المحددة في تقويم Outlook الخاص بك دفعة واحدة.

بعد ذلك، يمكنك الانتقال إلى تقويم Outlook لعرض النتائج. انظر لقطة الشاشة: