如何在 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 中隱藏行事曆中的生日預約