Outlookで予定を会議に変更したり、その逆に変更するにはどうすればよいですか？

Outlookで予定を会議に変更する

Outlookで会議を予定に変更する

この方法では、予定に対して会議参加者を招待し、その予定をOutlookで会議に変換する手順を説明します。

1. カレンダービューに切り替え、右クリックで変更したい予定を選択し、「参加者を招待」を右クリックメニューから選択します。スクリーンショットをご覧ください：

2. これで、選択した予定の内容が入った会議ウィンドウが開きます。「To（宛先）」ボタンをクリックしてください。スクリーンショットをご覧ください：

3. 表示される「出席者とリソースの選択」ダイアログボックスで、招待したい連絡先を選択し、必要に応じて「必須」「オプション」「リソース」ボタンをクリックして「OK」ボタンを押してください。上のスクリーンショットをご覧ください：

注: 「Ctrl」キーを押しながら各連絡先をクリックすると、複数の非隣接する連絡先を選択できます。「Shift」キーを押しながら最初と最後の連絡先をクリックすると、複数の隣接する連絡先を選択できます。

4. これで会議ウィンドウに戻りますので、会議の内容を編集し、「送信」ボタンをクリックしてください。

これで、選択した予定を会議に変換し、指定された出席者に送信できました。

この方法では、選択した会議をOutlookで予定に変換するためのVBAを紹介します。以下の手順に従ってください：

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のカレンダーで誕生日の予定を非表示にする