Question

我希望在更新约会时自动运行宏。

对于我的测试，我希望这个宏显示约会的主题。

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

这可以通过在Outlook中创建规则来完成，并启动宏。如果你的宏工作正常，那么你只需要设置规则。第一：

Sub Sub_name(MyMail As MailItem)
'Working Code
End Sub

然后，将条件设置为“这是会议邀请或更新”，操作是“运行脚本”检查它，然后单击“脚本”链接并选择“子名称”。

更新约会时自动运行

2 个答案: