How to change an appointment to meeting and vice versa in Outlook?

Change an appointment to a meeting in Outlook

Change meetings to appointments in Outlook

This method will walk you through inviting meeting attendees for an appointment and convert the appointment to a meeting in Outlook.

1. Shift to the Calendar view, right click the appointment you will convert to a meeting in Calendar, and then select the "Invite Attendees" from the right-clicking menu. See screenshot:

2. Now a meeting window is opening with selected appointment’s content. Please click the "To" button. See screenshot:

3. In the popping up Select Attendees and Resources dialog box, please select contacts you will invite as attendees, click "Required"/"Optional"/"Resources" button as you need, and click the "OK "button. See screenshot above:

Note: Holding the "Ctrl "key, you can select multiple nonadjacent contacts by clicking each contact; holding the "Shift" key, you can select multiple adjacent contacts by clicking the first contact and the last one.

4. Now you go back to the meeting window, please edit the meeting content and click the "Send "button.

So far we have converted the selected appointment to a meeting and sent to specified attendees already.

This method will introduce a VBA to convert selected meetings to appointments in Outlook. Please do as follows:

1. Shift to the Calendar view, and click to select the meetings you will convert to an appointment in Calendar.

2. Press "Alt" + "F11" keys simultaneously to open the Microsoft Visual Basic for Applications window.

3. Click" Insert "> "Module", and then paste below VBA code into the new Module window.

VBA: Convert meeting to appointments in 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. Press the "F5" key or click the "Run" button to exculpate this VBA.

And now all selected meetings are converted to appointments in Outlook.

Hide all appointments from calendar in Outlook

Hide birthday appointments in calendar in Outlook