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

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

أكواد VBA لنسخ الاجتماع الملغى كموعد

---

أكواد VBA لنسخ الاجتماع الملغى كموعد

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

ملاحظة: قبل تفعيل الرمز، يُرجى التأكد من تأشير الخيارين التاليين:

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

1. انتقل سريعًا إلى طريقة عرض تقويم Outlook، وحدد الاجتماع الذي تريد إلغاءه. ثم اضغط علىAlt+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، وسيتم الآن إلغاء الاجتماع المحدد وإنشاء موعد باسم «ملغى & الموضوع».

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

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

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، وستظهر لك نافذة تحديد المجلد لاختيار مجلد التقويم الذي تريد وضع الموعد فيه، ثم انقر على «موافق».

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