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。この VBA を実行するには、「F5」キーを押すか「実行」ボタンをクリックしてください。

これで、選択したすべての会議が Outlook で予定に変換されました。

Outlook でカレンダーからすべての予定を非表示にする

Outlook でカレンダーから誕生日の予定を非表示にする