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

بشكلٍ عام، يمكنك استخدام ميزة «تأخير التسليم» لإرسال رسالة في الوقت الذي تحدده بدلاً من إرسالها فورًا. لكن قد ترغب أحيانًا في تأخير إرسال دعوة اجتماع بالطريقة نفسها التي تؤخّر بها إرسال بريد إلكتروني. فكيف يمكنك إرسال دعوة اجتماع في الوقت الذي تريده باستخدام Outlook؟

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

---

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

قد لا توجد طريقة مباشرة لتأخير دعوة اجتماع في Outlook، لكن الكود التالي بلغة VBA يمكن أن يساعدك. يُرجى اتباع الخطوات التالية:

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

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

(2.) حدد تاريخ التذكير والوقت الذي ترغب في إرسال دعوة الاجتماع فيه؛

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

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

3. بعد ذلك، اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

4. في نافذةMicrosoft Visual Basic for Applications، انقر مرتين علىThisOutlookSession من جزءProject1 (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

ملاحظة: في الكود أعلاه، يُشيرMeeting test إلى موضوع الاجتماع الذي أنشأته في الخطوة 1؛ ويجب عليك تعديل معلوماتعناوين المستلمين، ومكان الاجتماع، ووقت البدء، ومدة الاجتماعوفقًا لبياناتك الخاصة.

5. احفظ الكود وأغلقه، ثم أعد تشغيل Outlook لتفعيله.

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