☰

Outlook 2013 — редактирование темы полученных встреч

tag-icon • tag-icon microsoft-outlook-2013
Outlook 2013 — редактирование темы полученных встреч

Я использую Outlook 2013, и в рамках своей работы я получаю встречи (они пересылаются мне как часть рабочего процесса). Я выполняю работу, указанную в описании встречи, а затем архивирую их. Для своих собственных заметок я редактирую тему встречи. Это было легко и сделано точно так же, как вы делали в Outlook 2010 — открываю встречу, ввожу тему и сохраняю. Однако, по-видимому, это невозможно в Outlook 2013. Я не могу вводить тему, а кнопка действий скрыта. Что я делаю неправильно?

Редактировать: Под "действиями" я подразумеваю кнопку, которая появляется на ленте. Я не принял приглашение на собрание, пытаясь редактировать; в Outlook 2010 все работало нормально.

решение1

У меня все работает нормально. Я проверил с приглашением на встречу, которое я не принял.

Все, что я делаю, это вношу нужные изменения и нажимаю ctrl—s

Иногда команды ленты скрываются, если ширина дисплея недостаточно велика, но это не влияет на сочетание клавиш.

решение2

Я написал макрос для этого, так как не жду с нетерпением, что M$ восстановит эту функциональность, которую они по непонятной причине убрали.

Поскольку до этого данная функция была недоступна, для смены темы необходимо было открыть интересующий «элемент встречи».

Этот макрос может что-то сломать, а может и нет, возможно, включая синхронизацию с сервером Exchange (но если сервер Exchange не может с этим справиться, то это уже другая задача M$, которую нужно исправить).

Все отказы от ответственности действительны. Используйте на свой страх и риск. YMMV и т. д.

Option Explicit
Sub change_subject_of_currently_open_meeting_request()
        Dim oMail As MailItem
        Dim oMtg As MeetingItem

        On Error Resume Next
        Err.Clear
        Set oMtg = ActiveInspector.currentItem
        If Err.Number <> 0 Then
            MsgBox "This macro works only in an open MEETINGItem." & vbCrLf & "Will now exit macro."
            Exit Sub
        End If
        On Error GoTo 0

        Dim strS, t, v, p, prompt, title
        strS = oMtg.Subject

        p = "Microsoft broke the ability to edit subject lines"
        p = p & vbCrLf & "of meeting requests in the 2013 version."
        p = p & vbCrLf
        p = p & vbCrLf & "This macro provides a way to do so."

        prompt = p
        title = "Provides the ability to edit meeting request subject lines, broken in Outlook 2013."
        t = InputBox(prompt, title, strS) ' prompt, title, default
        If t <> "" Then
           If t <> strS Then
              oMtg.Subject = t
           End If
        End If
End Sub

Связанный контент