كيفية تغيير موعد إلى اجتماع وبالعكس في 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