Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

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

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

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

تأخير إرسال الاجتماع 1

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

تأخير إرسال الاجتماع 2

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

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

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


Kutools for Outlook - يجلب 100 ميزة متقدمة إلى Outlook ، ويجعل العمل أسهل كثيرًا!

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL