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

我调整了Outlook VBA中互联网上找到的例程，该例程将收件箱中的对话中的所有电子邮件移至特定文件夹。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中。

如何检测电子邮件是否已经在目标文件夹并将其移动到只有当它不存在的话

预先感谢您的帮助

来源

2017-02-14 Gotchock

你能告诉我们其余的代码吗？ – 0m3r

可能就足够了一个简单的方法。

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

来源

2017-02-14 04:59:19 niton

谢谢，它就像一个魅力！ – Gotchock

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

回答

相关问题