Outlook 2013 - gelen toplantıların konusunu düzenleme

Outlook 2013'ü kullanıyorum ve işimin bir parçası olarak toplantılar alıyorum (iş akışının bir parçası olarak bana iletiliyorlar). Toplantı açıklamasında belirtilen işi yapıyorum ve sonra bunları arşivliyorum. Kendi notlarım için toplantının konu satırını düzenlerim. Bu, Outlook 2010'da yaptığınız gibi son derece kolay ve kolay bir şekilde yapıldı - toplantıyı açın ve konu satırına yazın ve kaydedin. Ancak, görünüşte Outlook 2013'te mümkün değildir. Konu satırına yazamıyorum ve eylemler düğmesi gizlenmiş durumda. Neyi yanlış yapıyorum?

Düzenleme: "eylemler" derken şeridin üzerinde görünen düğmeyi kastediyorum. Editöre giriş yapmaya davetli olduğum toplantı davetiyesini kabul etmedim; Outlook 2010'da iyi çalıştı.

Bu benim için iyi çalışıyor. Kabul etmediğim bir toplantı davetiyle test ettim.

Tek yaptığım istediğim değişiklikleri yapmak ve vurmak ctrl - s

Bazen ekran genişliği yeterince büyük değilse, ancak klavye kısayolunu etkilemiyorsa şerit komutları gizlenir.

Bunu gerçekleştirmek için bir makro yazdım, çünkü M $ 'a nefessiz kaldıkları bu işlevselliği geri yüklemek için nefesini tutmuyorum.

Bu işlevsellik bozulmadan önce, konuyu değiştirmek için ilgilenilen "buluşma öğesi" açık olmalıdır.

Bu makro, büyük olasılıkla Exchange sunucusuyla eşitlemeler de dahil olmak üzere bir şeyi bozabilir veya bozmayabilir (ancak Exchange sunucusu bununla baş edemezse, bu, M $ 'ın kırılması gereken başka bir şeydir).

Tüm feragatnameler geçerlidir. Kullanım kendi sorumluluğunuzdadır. YMMV vb.

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