كيف يمكن تغيير موعد إلى اجتماع في Outlook، والعكس؟

تغيير موعد إلى اجتماع في Outlook

تغيير الاجتماعات إلى مواعيد في Outlook

سترشدك هذه الطريقة خلال دعوة المشاركين إلى اجتماعٍ ما من موعدٍ موجود، وتحويل هذا الموعد إلى اجتماع في Outlook.

1. انتقل إلى طريقة عرض التقويم، ثم انقر بزر الماوس الأيمن على الموعد الذي ترغب في تحويله إلى اجتماع، واختر «دعوة الحاضرين» من القائمة المنبثقة. راجع لقطة الشاشة:

2. الآن تم فتح نافذة الاجتماع مع محتوى الموعد المحدد. يُرجى النقر على زر «إلى». راجع لقطة الشاشة:

3. في مربع الحوار المنبثق «تحديد الحاضرين والموارد»، يُرجى تحديد جهات الاتصال التي ترغب في دعوتها كحاضرين، ثم انقر على زر «مطلوب» أو «اختياري» أو «موارد» حسب الحاجة، وبعد ذلك انقر على زر «موافق». راجع لقطة الشاشة أعلاه:

ملاحظة: عند الضغط على مفتاح «Ctrl»، يمكنك تحديد جهات اتصال متعددة غير متجاورة بالنقر على كلٍّ منها؛ وعند الضغط على مفتاح «Shift»، يمكنك تحديد جهات اتصال متجاورة متعددة بالنقر على أول جهة اتصال وآخر جهة اتصال.

4. الآن بعد عودتك إلى نافذة الاجتماع، يُرجى تعديل محتوى الاجتماع ثم النقر على زر «إرسال».

لقد قمنا حتى الآن بتحويل الموعد المحدد إلى اجتماع، وأرسلناه فعليًّا إلى الحاضرين المحدَّدين.

ستقدّم لك هذه الطريقة كود VBA لتحويل الاجتماعات المحددة إلى مواعيد في Outlook. يُرجى اتباع الخطوات التالية:

1. انتقل إلى طريقة عرض التقويم، ثم انقر لتحديد الاجتماعات التي ترغب في تحويلها إلى مواعيد.

2. اضغط معًا على مفاتيح «Alt» + "F11" لفتح نافذة Microsoft Visual Basic for Applications.

3. انقر على «إدراج» > «وحدة»، ثم الصق كود VBA أدناه في نافذة الوحدة الجديدة.

VBA: تحويل اجتماع إلى مواعيد في Outlook

Sub Meetings2Appointments()
Dim sWindowType As String
Dim oItem As Object

sWindowType = TypeName(Application.ActiveWindow)
Select Case sWindowType
Case "Explorer"
If Application.ActiveExplorer.Selection.Count > 0 Then
For Each oItem In Application.ActiveExplorer.Selection
Debug.Print oItem.Class
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
Next
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
If oItem.Class = olAppointment Then
If oItem.MeetingStatus <> olNonMeeting Then
Call Meeting2Appointment(oItem)
End If
End If
End Select
Set oItem = Nothing
End Sub

Sub Meeting2Appointment(oMeeting As Outlook.AppointmentItem)
With oMeeting
' remove all recipients
Do Until .Recipients.Count = 0
.Recipients.Remove 1
Loop
' reset meeting status
.MeetingStatus = olNonMeeting
.Save
End With
End Sub

4. اضغط مفتاح "F5" أو انقر زر «تشغيل» لتنفيذ كود VBA هذا.

وقد تم الآن تحويل جميع الاجتماعات المحددة إلى مواعيد في Outlook.

إخفاء جميع المواعيد من التقويم في Outlook

إخفاء مواعيد أعياد الميلاد من التقويم في Outlook