Outlook VBA 宏同步两个文件夹

Question

我正在尝试同步两个outlook文件夹（一个是共享邮箱，另一个是个人自定义文件夹） 我的主要目标是至少每次“原始”共享文件夹收到应复制到“目标”自定义文件夹中的新邮件时，让这两个文件夹同步。

我能够在特定时间间隔内（例如当天）检索原始共享邮箱中的所有邮件消息

Private ons As Outlook.NameSpace
Dim sourceFolder As Outlook.Folder
Dim sourceFolderRecipient As Outlook.Recipient
Set sourceFolderRecipient = ons.CreateRecipient("sharedAccount@myDomain.com")
Set sourceFolder = ons.GetSharedDefaultFolder(sourceFolderRecipient, olFolderInbox)
Dim sourceFolderMails As Outlook.items
Set sourceFolderMails = sourceFolder.items
Dim sourceFolderMail As Outlook.MailItem  

Dim strFilter As String
strFilter = "[SentOn] > '" & Date & "'"

Set sourceFolderMails = sourceFolderMails.Restrict(strFilter)

我也可以复制目标文件夹中 sourceFolderMails 列表中的所有邮件

不幸的是，当有新邮件到达时，再次调用该函数，它将复制目标文件夹中的所有邮件以及新邮件。

有没有办法过滤 sourceFolderMails，如 sourceFolderMails.Restrict("all Subject and SentOn messages different from a list") 或其他仅复制新邮件/邮件的解决方案？

更多信息

每次有新消息到达时都会调用我的同步函数（触发ItemAdd 事件）。我尝试使用两个嵌套的For Each item In items 用于比较Subject 和SentOn 属性的sourceFolderMails 和destinationFolderMails 项目容器。它有效，但SentOn 比较导致宏将执行时间从不到一秒增加到超过 30 秒，这是不可行的，因为我必须检查多达六个共享邮件文件夹。 （Subject 比较不会影响执行时间，而像 Size 这样的其他属性会影响执行时间，这就是为什么我正在寻找一种不同的方法来过滤检索到的邮件列表，例如使用 items.Restrict(filter) ）。

更新

考虑到有一些 MailItem 属性可以在不影响执行时间的情况下进行比较（至少 Subject 和 EntryID），一个可能的解决方案可以在复制的邮件上复制原始项目 EntryID（因为它在邮件复制后会更改）

Dim objCopy As Outlook.MailItem
Dim EntryID2Property As Outlook.UserProperty

Set objCopy = sourceFolderMail.Copy
Set EntryID2Property = objCopy.UserProperties.Add("EntryID2", olText)
EntryID2Property.Value = sourceFolderMail.EntryID
objCopy.Save
objCopy.Move destinationFolder

可以添加自定义属性，然后与原始EntryID进行比较

If (sourceFolderMail.Subject = destinationFolderMail.Subject) And (sourceFolderMail.EntryID = destinationFolderMail.UserProperties.Find("EntryID2")) Then

不幸的是，自定义属性比较与 SendOn 一样慢。 在将复制邮件与原始邮件进行比较后，我将继续寻找检测复制邮件的最佳方法。

Answer 1

您可以使用源文件夹上的Items.ItemAdd 事件来复制传递给事件处理程序的项目。

当新消息到达源文件夹时，您的代码当然必须正在运行。