انتقل إلى المحتوى الرئيسي
مستخدم ChatGPT العادي؟ حاول دمج ChatGPTs مع ExtendOffice.

Outlook: كيف تحتفظ بإلغاء الاجتماع في التقويم كمنظم؟

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

رموز VBA لنسخ الاجتماع الملغي كموعد


رموز VBA لنسخ الاجتماع الملغي كموعد

الكاتب : شمس آخر تعديل: 2022-12-22

فيما يلي رمزان لإلغاء الاجتماع ونسخه ولصقه كموعد في نفس الوقت.

ملاحظة: قبل تمكين الرمز ، يرجى التأكد من تحديد هذين الخيارين:

تمكين Outlook ، انقر فوق قم بتقديم > مزيد من الخيارات، في نافذة خيارات Outlook ، انقر فوق مركز التوثيق علامة التبويب وانقر فوق إعدادات مركز التوثيق، ثم في نافذة مركز التوثيق ، انقر فوق إعدادات الماكرو علامة التبويب، تحقق تمكين جميع وحدات الماكرو (غير مستحسن؛ يمكن تشغيل الشفرة التي يحتمل أن تكون خطرة) و قم بتطبيق إعدادات أمان الماكرو على الوظائف الإضافية المثبتة خيارات. انقر OK > OK لغلق النوافذ. إعادة تشغيل الآفاق.

doc الحفاظ على الاجتماع في التقويم 1

doc الحفاظ على الاجتماع في التقويم 2

1. انتقل إلى عرض تقويم Outlook ، وحدد الاجتماع الذي تريد إلغاءه. اضغط قديم + F11 مفاتيح لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر إدراج > وحدة لإدراج وحدة فارغة جديدة. ثم انسخ والصق الكود أدناه.

الرمز: نسخ الاجتماع كموعد وإلغائه

Sub CopyMeetingAsAppointmentBeforeCancel()
'UpdatebyExtendoffice20221129
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move Application.ActiveExplorer.CurrentFolder
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

doc الحفاظ على الاجتماع في التقويم 3

3. انقر يجري زر أو اضغط F5 مفتاح ، الآن تم إلغاء الاجتماع المحدد وتعيين موعد جديد باسم إلغاء & subjet.

doc الحفاظ على الاجتماع في التقويم 4

إذا كنت تريد نسخ الاجتماع ولصقه كموعد في تقويم آخر ثم إلغاء الاجتماع ، فاستخدم الرمز أدناه:

الرمز: انسخ الاجتماع كموعد في تقويم آخر وقم بإلغائه

Sub CopyMeetingAsAppointmentToCalenderBeforeCancel()
'Updatebyextendoffice20221129
Dim xDestCalendar As Outlook.MAPIFolder
Dim xNameSpace As Outlook.NameSpace
Dim xAppointmentItem As AppointmentItem
Dim xMeetingItem As AppointmentItem
On Error Resume Next
Set xNameSpace = Application.GetNamespace("MAPI")
Set xDestCalendar = xNameSpace.PickFolder
If xDestCalendar.DefaultItemType <> olAppointmentItem Then
  MsgBox "Please Select calendar folder. ", vbOKOnly + vbInformation, "Kutools for Outlook"
  Exit Sub
End If
Set xMeetingItem = GetCurrentItem()
Set xAppointmentItem = Application.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = "Canceled: " & xMeetingItem.Subject
  .Start = xMeetingItem.Start
  .Duration = xMeetingItem.Duration
  .Location = xMeetingItem.Location
  .Body = xMeetingItem.Body
  .Save
  .Move xDestCalendar
End With
With xMeetingItem
  .MeetingStatus = olMeetingCanceled
  .Send
  .Delete
End With
Set xDestCalendar = Nothing
Set xNameSpace = Nothing
Set xAppointmentItem = Nothing
Set xMeetingItem = Nothing
End Sub

Function GetCurrentItem() As Object
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
    Case "Inspector"
      Set GetCurrentItem = Application.ActiveInspector.CurrentItem
  End Select
End Function

انقر يجري زر أو اضغط F5 مفتاح ، يظهر مربع حوار تحديد مجلد لتختار مجلد تقويم للصق الموعد ، ثم انقر فوق موافق.

doc الحفاظ على الاجتماع في التقويم 5

الآن تم إلغاء الاجتماع ونسخه ولصقه كموعد في مجلد التقويم الذي تختاره.

doc الحفاظ على الاجتماع في التقويم 6


أفضل أدوات إنتاجية المكتب

كوتولس لتوقعات - أكثر من 100 ميزة قوية لتعزيز توقعاتك

🤖 مساعد بريد الذكاء الاصطناعي: رسائل بريد إلكتروني احترافية فورية مع سحر الذكاء الاصطناعي - بنقرة واحدة للردود العبقرية، والنغمة المثالية، وإتقان متعدد اللغات. تحويل البريد الإلكتروني دون عناء! ...

📧 أتمتة البريد الإلكتروني: خارج المكتب (متوفر لـ POP وIMAP)  /  جدولة إرسال رسائل البريد الإلكتروني  /  نسخة تلقائية/نسخة مخفية الوجهة حسب القواعد عند إرسال البريد الإلكتروني  /  إعادة التوجيه التلقائي (القواعد المتقدمة)   /  إضافة تحية تلقائية   /  تقسيم رسائل البريد الإلكتروني متعددة المستلمين تلقائيًا إلى رسائل فردية 

📨 إدارة البريد الإلكتروني: استدعاء رسائل البريد الإلكتروني بسهولة  /  حظر رسائل البريد الإلكتروني الاحتيالية حسب الموضوعات والآخرين  /  حذف رسائل البريد الإلكتروني المكررة  /  المزيد من خيارات البحث  /  توحيد المجلدات 

📁 المرفقات بروحفظ دفعة  /  فصل دفعة  /  ضغط دفعة  /  حفظ تلقائي   /  فصل تلقائي  /  ضغط تلقائي 

؟؟؟؟ واجهة ماجيك: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة   /  عزز إنتاجية Outlook الخاص بك باستخدام طرق العرض المبوبة  /  تصغير Outlook بدلاً من الإغلاق 

؟؟؟؟ بنقرة واحدة عجائب: الرد على الكل بالمرفقات الواردة  /   رسائل البريد الإلكتروني لمكافحة التصيد  /  🕘إظهار المنطقة الزمنية للمرسل 

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: دفعة إضافة جهات الاتصال من رسائل البريد الإلكتروني المحددة  /  تقسيم مجموعة اتصال إلى مجموعات فردية  /  إزالة تذكير عيد ميلاد 

على مدى ميزات 100 في انتظار الاستكشاف الخاص بك! انقر هنا لاكتشاف المزيد.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations