كيفية قبول طلب الاجتماع تلقائيًا من شخص معين في Outlook؟

Author: Siluvia Last Modified: 2025-05-30

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

قبول طلب الاجتماع تلقائيًا من شخص معين باستخدام كود VBA

قبول طلب الاجتماع تلقائيًا من شخص معين باستخدام كود VBA

يمكن أن يساعدك الكود البرمجي VBA أدناه على قبول طلبات الاجتماعات تلقائيًا التي يتم إرسالها من شخص معين في Outlook. يرجى القيام بما يلي.

1. اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا فوق ThisOutlookSession في الجزء الأيسر لفتح نافذة الكود، ثم انسخ الكود البرمجي VBA أدناه في النافذة. شاهد لقطة الشاشة:

doc-auto-accept-meeting-1

كود VBA: قبول طلب الاجتماع تلقائيًا من شخص معين في Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

ملاحظة: في الكود، يرجى استبدال "اسم المرسل" باسم العرض الخاص بالمرسل.

3. احفظ الكود، ثم اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

4. أعد تشغيل Outlook لتفعيل هذا الكود.

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

ملاحظة: يجب أن يكون حساب البريد الإلكتروني الذي يستقبل طلب الاجتماع هو الحساب الافتراضي في Outlook الخاص بك.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

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

هذه الميزة تدعم: