Изменить встречу на собрание в Outlook

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

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

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

2. Теперь открывается окно встречи с содержанием выбранной встречи. Пожалуйста, нажмите на к кнопка. Смотрите скриншот:

3. Во всплывающем диалоговом окне «Выбор участников и ресурсы» выберите контакты, которых вы пригласите в качестве участников, нажмите необходимые/По желанию/Полезные ресурсы кнопку, как вам нужно, и нажмите кнопку OK кнопка. Смотрите скриншот выше:

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

4. Теперь вы вернетесь к окну собрания, отредактируйте его содержание и щелкните значок Отправить .

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

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

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

2. Нажмите другой + 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 ключ или щелкните Run кнопку, чтобы оправдать этот VBA.

И теперь все выбранные встречи конвертируются в встречи в Outlook.

Скрыть все встречи из календаря в Outlook

Скрыть дни рождения в календаре Outlook