如何在Outlook中将约会转换为会议，或将会议转换为约会？

在Outlook中将约会转换为会议

在Outlook中将会议转换为约会

此方法将引导你为某个约会邀请参会者，并将其转换为Outlook中的会议。

1. 切换到日历视图，右键单击要在日历中转换为会议的约会，然后从右键菜单中选择“邀请与会者”。参见截图：

2. 现在会打开一个包含所选约会内容的会议窗口。请点击“To（收件人）”按钮。参见截图：

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中隐藏生日约会