0

在 Outlook 2007 中创建的所有事件都具有相同的默认提醒时间。您似乎无法为单个日历更改此时间。

我在 Outlook 中使用了两个日历：我的正常“事件”日历和一个单独的日历，用于跟踪我想在特定时间处理的任务项目。我希望他们有不同的提醒时间（特别是任务一，0 分钟）。

我想在每次创建事件时执行一个宏：

  • 检查日历名称
  • 将属于 1 个日历的事件的提醒时间更改为 0 分钟

任何资源将不胜感激。我已经在 Excel 中完成了重要的 VBA 编程，但是 Outlook vba 上的文档（以及 Outlook 中缺少“记录宏”）使它变得很难，因为它对我来说真的不直观。

我正在尝试一些东西（基于大量搜索在黑暗中拍摄..）像这样（作为一个类模块）

Dim myOlApp As New Outlook.Application
Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()
    Set myOlItems = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)


Dim myCAlEntry As Outlook.MeetingItem

MsgBox ("test")


End Sub

我应该澄清一下：我现在在创建日历事件时无法在消息框中看到“测试”。

4

1 回答 1

0

在本期展望会议中：

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

您不需要 Dim myOlApp As New Outlook.Application：

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

原始设置应适用于：

Public Sub Application_Startup()
    Initialize_handler
End Sub
于 2015-03-14T19:47:13.280 回答