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 - 僅移動仍在收件箱中的對話中的電子郵件

回答

相關問題