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

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

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

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


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

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

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

تمكين 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


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