重新安排时自动更新 Outlook 会议提醒答案

【问题标题】：Automatically update an Outlook Meeting's Reminder when rescheduled重新安排时自动更新 Outlook 会议提醒
【发布时间】：2020-06-25 07:31:39
【问题描述】：

我正在尝试找到一种方法（规则或 VBA，我不知道）在重新安排会议时自动更改提醒值。

我四处寻找，但无法找到触发更改会议日期时间的方法，这似乎是实现我想要的第一步，因此指导正确/最接近的触发器可能对我来说就足够了（一旦我有触发器，我应该能够通过实际检查和重置提醒来蒙混过关）。

背景：最终目标是让脚本/规则确保在重新安排会议时，其提醒不是“无”（在提醒被解除后重新安排会议的情况下，这是一个典型的例子）。在最幸福的世界中，脚本将与谁拥有会议无关（这就是为什么最好关闭会议时间更改）。

提前致谢！

【问题讨论】：

这是一个非常古老的已知问题。 +1 能见度，祝你好运！（我不认为它可以通过规则来完成，但我确信这可以通过 VBA 来完成）虽然，这样做的一种方法是召开一个 new 会议，这将创建适当的提醒。
谢谢！是的，我在其他地方找到了类似的主题，但从来没有答案，所以我想我会在这里尝试。

标签： vba outlook triggers

【解决方案1】：

我知道这个问题很老，但我在搜索答案时从 Google 偶然发现了这个问题。如果会议提醒设置为少于 10 分钟（Outlook 2013），则最终创建了一些 VBA 来通知自己：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Application_ItemSend fires everytime you hit send on any mail, meeting, etc.
Dim m As Variant
'check to see if the item you're about to send is a meeting invite:
If TypeName(Item) = "MeetingItem" Then
    'if the reminder is not set at all, or set to less than 10 minutes, give the user the option to cancel sending
    If (Not Item.GetAssociatedAppointment(False).ReminderSet) Or (Item.GetAssociatedAppointment(False).ReminderMinutesBeforeStart < 10) Then
        m = MsgBox("Your meeting reminder is set to 10 minutes or less. Do you still want to send?", vbExclamation + vbYesNo + vbMsgBoxSetForeground)
            If m = vbNo Then Cancel = True
            End If
    End If
handleError:
If Err.Number <> 0 Then
MsgBox "Outlook Error: " & Err.Description, vbExclamation
End If
End Sub

【讨论】：

【解决方案2】：

查看 ItemChange 事件http://msdn.microsoft.com/en-us/library/office/ff865866%28v=office.14%29.aspx

Public WithEvents myOlItems As Outlook.Items 

Public Sub Application_Startup() 
  Set myOlItems = _
    Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items 
End Sub 

Private Sub myOlItems_ItemChange(ByVal Item As Object) 
    debug.print item.subject
End Sub

【讨论】：