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