Outlook VBA - 仅移动仍在收件箱中的对话的电子邮件

Question

我已经在Outlook VBA中调整了在互联网上找到的例程，该例程将所有电子邮件从收件箱中的对话移动到特定文件夹。

我通过以下方式移动我的电子邮件：

olItem As MailItem 'Put email from conversation in olItem
DestFolder As Outlook.Folder 'Destination folder where i want to send my email
olItem.Move DestFolder

问题是：在此对话中，我有时会收到较早的电子邮件，这些电子邮件已经被移至目标文件夹：由于对话模式的工作方式，它们会显示在我的收件箱中。

如果我尝试使用 olItem.Move DestFolder 移动它，则代码会失败，因为电子邮件已经在DestFolder中。

如何检测目标文件夹中是否已有电子邮件，如果已经存在，则将其移至

提前感谢您的帮助

Answer 1

一种可能足够的简单方法。

On Error Resume Next
olItem.Move DestFolder
' Turn error bypass off once the purpose for it has been served
On Error GoTo 0