重新安排時自動更新Outlook會議的提醒

Question

我試圖找到一種方法（規則或VBA我不可知）在會議重新安排時自動更改提醒值。

我已經探索過，但無法找到觸發某個會議日期時間變更的方法，這似乎是實現我想要的第一步，因此有關正確/最接近的觸發器的指導可能對我來說已經足夠了（我應該能夠通過實際檢查和重置提醒後重新啓動）。

背景：最終目標是讓腳本/規則確保在重新安排會議時，其提醒不是「無」（如果在提醒被解除後將會議重新安排爲「無」例）。在最快樂的世界裏，劇本對於誰擁有會議是不可知的（這就是爲什麼最好能夠在會議時間改變的時候關閉）。

在此先感謝！

Answer 1

見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 

Answer 2

我知道這個問題是舊的，但我從谷歌偶然發現了它，而尋找答案。如果會議提醒設置爲小於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