كيف يمكن رفض دعوات الاجتماعات تلقائيًا من أشخاص محددين في Outlook؟

في Outlook، يمكنك إنشاء قاعدة لرفض دعوات الاجتماعات تلقائيًا من أشخاص محددين — فكيف تُنفّذ ذلك؟ يعرض هذا المقال طريقةً مفصلة.

رفض دعوات الاجتماعات من أشخاص محددين تلقائيًا في Outlook

رفض دعوات الاجتماعات من أشخاص محددين تلقائيًا وحذف الاجتماع من التقويم أيضًا

---

رفض دعوات الاجتماعات من أشخاص محددين تلقائيًا في Outlook

يرجى اتباع الخطوات التالية لإكمال هذه المهمة:

1. أولًا، أنشئ قالب رسالة لرفض دعوات الاجتماعات. في نافذةالرسالة، اكتب الرسالة التي تود إرسالها لرفض دعوة الاجتماع. انظر لقطة الشاشة:

2. بعد ذلك، لحفظ الرسالة بصيغة القالب، يرجى النقر علىملف > حفظ باسم. في نافذةحفظ باسم، أدخل اسمًا للرسالة في مربع النصاسم الملف، ثم اخترقالب Outlook (*.oft)من قائمةتحديد تنسيق الحفظالمنسدلة. انظر لقطة الشاشة:

ملاحظة: عند تحديدكقالب Outlook (*.oft)، سيتم فتح مجلد القوالب الافتراضي للمستخدم.

3. بعد ذلك، انقر على زرحفظلحفظ قالب الرسالة، ثم أغلق نافذة الرسالة.

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

5. في مربع حوارالقواعد والتنبيهات، انقر علىقاعدة جديدةمن علامة التبويبقواعد البريد الإلكتروني. انظر لقطة الشاشة:

6. في مربع الحوار المنبثقمعالج القواعد، انقر على خيارتطبيق القاعدة على الرسائل التي أستلمهاضمن قسمابدأ بقاعدة فارغة. انظر لقطة الشاشة:

7. بعد ذلك، انقر على زرالتالي. في مربع الحوار المنبثق، اختر الخيار «من أشخاص أو مجموعة عامة» من قائمةالخطوة 1: حدد الشرط (الشروط)، ثم انقر على الرابط النصيأشخاص أو مجموعة عامةلفتح مربع حوارعنوان القاعدة، وحدد الأشخاص الذين تريد رفض الاجتماعات القادمة منهم. انظر لقطة الشاشة:

8. انقر على زرموافق، ثم بينما لا تزال في نفس مربع الحوار، قم بالتمرير لأسفل وحدد الخيارالذي يكون دعوة اجتماع أو تحديثًامن مربع القائمةالخطوة 1: حدد الشرط (الشروط). انظر لقطة الشاشة:

9. استمر في النقر على زرالتاليفي مربع الحوار التالي:

(1.) حدد الخيارالرد باستخدام قالب معيّنفي مربع القائمةالخطوة 1: حدد الإجراء (الإجراءات)؛

(2.) بعد ذلك، انقر على الرابط النصيقالب معيّنلفتح مربع حوارتحديد قالب الرد؛

(3.) في مربع حوارتحديد قالب الرد، اخترقوالب المستخدم فينظام الملفاتمن قائمةالبحث فيالمنسدلة؛

(4.) بعد ذلك، حدد اسم الرسالة التي أنشأتها للتو؛

(5.) انقر على زرفتح.

10. عُد إلى مربع الحوار الأصلي، ثم اختر الخيارحذفهمن قائمةالخطوة 1: حدد الإجراء (الإجراءات). انظر لقطة الشاشة:

11. بعد ذلك، انقر علىالتالي > التاليللوصول إلى خطوة الإنهاء. في قسمإنهاءإعداد القاعدة، حدد اسمًا لهذه القاعدة، وفعّل الخيارتفعيل هذه القاعدةمنالخطوة 2: إعداد خيارات القاعدة. انظر لقطة الشاشة:

12. انقر على زرإنهاءلإكمال إعداد القاعدة، ثم انقر علىموافقلإغلاق مربع الحوار.

13. بدءًا من الآن، كلما تلقيت دعوة اجتماع من هؤلاء الأشخاص المحددين، سيتم إرسال رد رفض تلقائي إليهم وحذف رسالة الاجتماع أيضًا.

---

---

رفض دعوات الاجتماعات من أشخاص محددين تلقائيًا وحذف الاجتماع من التقويم أيضًا

الطريقة الأولى تتيح لك إرسال بريد إلكتروني لإبلاغ الشخص بأنك لن تحضر الاجتماع، مع بقاء الاجتماعات معروضة دائمًا في تقويمك. أما إذا كنت بحاجة إلى حذف الاجتماعات التي تظهر في تقويمك في الوقت نفسه، فإن كود VBA التالي سيساعدك.

1. اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.

2. في نافذةمايكروسوفت فيجوال بيسيك للتطبيقات، انقر مرتين علىThisOutlookSession من جزءالمشروع1 (VbaProject.OTM)لفتح الوحدة النمطية، ثم انسخ والصق الكود التالي في الوحدة النمطية الفارغة.

كود VBA: رفض دعوات الاجتماعات تلقائيًا وحذف الاجتماعات من التقويم أيضًا:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

3. بعد ذلك، احفظ وأغلق نافذة الكود هذه. من الآن فصاعدًا، كلما وصلتك دعوة لاجتماع من هذا الشخص المحدد، سيتم إرسال رسالة رفض تلقائيًا وحذف الاجتماع من تقويمك.