كيفية تأخير إرسال دعوة الاجتماع في Outlook؟ 

عادة ، يمكنك تطبيق ميزة تأخير التسليم لإرسال رسالة في وقت محدد بدلاً من الآن. لكن ، في بعض الأحيان ، تريد تأخير إرسال دعوة اجتماع مثل رسالة بريد إلكتروني. كيف يمكنك إرسال دعوة اجتماع في الوقت المطلوب كما تريد في Outlook؟

قم بتأجيل إرسال دعوة اجتماع في Outlook برمز VBA

---

قم بتأجيل إرسال دعوة اجتماع في Outlook برمز VBA

قد لا توجد طريقة مباشرة لتأخير دعوة الاجتماع في Outlook ، ولكن ، يمكن أن يقدم لك رمز VBA أدناه معروفًا ، يرجى القيام بذلك على النحو التالي:

1. أولاً ، يجب عليك إنشاء مهمة جديدة. في الجديد مهمة نافذة:

(1.) حدد الموضوع وتاريخ البدء وتاريخ انتهاء الاجتماع ؛

(2.) تعيين تاريخ ووقت تذكير عندما تريد إرسال دعوة الاجتماع ؛

(3.) اكتب رسالة الاجتماع حسب حاجتك.

2. بعد إنشاء المهمة ، الرجاء الضغط حفظ وإغلاق خيار لإغلاق هذه النافذة.

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

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

رمز VBA: تأخير إرسال دعوة الاجتماع:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

ملاحظة: في الكود أعلاه: اختبار الاجتماع هو الموضوع الذي أنشأته للاجتماع في الخطوة 1 ؛ ويجب عليك تغيير معلومات عناوين المستلم, مكان الاجتماع, وقت البدء و مدة الاجتماع لنفسك.

5. احفظ الرمز وأغلقه ، ثم أعد تشغيل Outlook لجعل هذا الرمز ساري المفعول.

6. من الآن فصاعدًا ، عندما ينبثق تذكير عنصر المهمة في الوقت المحدد الذي تحدده ، سيرسل Outlook دعوة الاجتماع تلقائيًا.