如何在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中隱藏生日約會