Question

在MS outlook中，我使用VBA创建了一些邮件或约会。

我想用某种标签标记它们，以便稍后检索它们。

我使用ItemProperties属性进行了尝试，但我不知道如何在find或restrict下使用它：

    Set ns = GetNamespace("MAPI")
    Set rdvs = ns.GetDefaultFolder(olFolderCalendar).Items.Find("[ItemProperties('Tag')] = 'auto-generated'")

我如何创建约会（来自MS Excel）：

Sub createAppointment()

    Dim apptm As Outlook.AppointmentItem

    Set apptm = Outlook.Application.CreateItem(olAppointmentItem)
    apptm.Subject = "Test"
    apptm.Start = Now
    apptm.Duration = 60

    apptm.ItemProperties.Add "Tag", Outlook.olText
    apptm.ItemProperties.Item("Tag").Value = "auto-generated"

    apptm.Save

End Sub

Answer 1

您需要使用Restrict方法只获取您标记的项目：

Set rdvs = ns.GetDefaultFolder(olFolderCalendar).Items.Restrict([Tag]='‌auto-generated')

如何标记宏创建的项目以便以后查找？

1 个答案: