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

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

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

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

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

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

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

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

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

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

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

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 مفتاح ، يظهر مربع حوار تحديد مجلد لتختار مجلد تقويم للصق الموعد ، ثم انقر فوق موافق.

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