在Outlook中更改会议约会

在Outlook中将会议更改为约会

此方法将引导您逐步邀请会议参与者进行约会，并将约会转换为Outlook中的会议。

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

2.现在将打开一个会议窗口，其中包含选定约会的内容。 请点击 至 按钮。 看截图：

3.在弹出的“选择与会者和资源”对话框中，选择要邀请作为与会者的联系人，然后单击 其他要求/可选/文档 按钮，然后按一下 OK 按钮。 参见上面的截图：

请注意： 持有 按Ctrl 键，您可以通过单击每个联系人来选择多个不相邻的联系人； 举行 转移 键，您可以通过单击第一个联系人和最后一个联系人来选择多个相邻联系人。

4.现在回到会议窗口，请编辑会议内容，然后单击 提交 按钮。

到目前为止，我们已经将选定的约会转换为会议，并已经发送给指定的与会者。

此方法将引入VBA，以将选定的会议转换为Outlook中的约会。 请执行以下操作：

1.移至“日历”视图，然后单击以选择要在“日历”中转换为约会的会议。

2。 按 其他 + 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中的日历中隐藏生日约会