Как преобразовать назначение во встречу и наоборот в Outlook?

Преобразование встречи из назначения в Outlook

Преобразование встреч в назначения в Outlook

Этот метод позволит вам пригласить участников на встречу по уже существующему назначению и преобразовать его во встречу в Outlook.

1. Перейдите в представление «Календарь», щелкните правой кнопкой мыши по назначению, которое хотите преобразовать во встречу, и выберите в контекстном меню команду «Пригласить участников». См. снимок экрана:

2. Теперь откроется окно встречи с содержимым выбранного назначения. Нажмите кнопку «Кому». См. снимок экрана:

3. В появившемся диалоговом окне «Выбор участников и ресурсов» выберите контакты, которых хотите пригласить в качестве участников, нажмите кнопку «Обязательные», «Необязательные» или «Ресурсы» — в зависимости от необходимости, — и подтвердите выбор, нажав «ОК». См. снимок экрана выше:

Примечание: Удерживая клавишу «Ctrl», вы можете выбрать несколько несмежных контактов, щёлкая по каждому из них; удерживая клавишу «Shift», вы можете выбрать несколько смежных контактов, щёлкнув по первому и последней ячейке.

4. Теперь вы вернётесь в окно встречи. Отредактируйте её содержимое и нажмите «Отправить».

На этом этапе выбранное назначение уже преобразовано во встречу и отправлено указанным участникам.

Этот метод описывает, как с помощью макроса VBA преобразовать выбранные встречи в назначения в Outlook. Выполните следующие действия:

1. Перейдите в представление «Календарь» и щёлкните, чтобы выбрать встречи, которые хотите преобразовать в назначения.

2. Нажмите одновременно клавиши «Alt» + «F11», чтобы открыть окно Microsoft Visual Basic для приложений.

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