希望你做得很好。这是我的逻辑
Create oForwardMessage from oMsg
Send oForwardMessage
oMsg.UnRead = False
**oMsg.Move(myDestFolderFolder)**
WriteToConsole(vbTab & vbTab & "Moved to Processed")
很少发生但.Move，电子邮件被移动到 DestFolder，但没有从收件箱中删除。然后我与 Exchange 团队合作，了解发生这种情况的原因。然后exchange也在研究中
所以我在阅读电子邮件时添加了一些额外的逻辑，如果它已经阅读，显示一条消息并跳过电子邮件。然后通过 EOD 我手动删除这些未读邮件，因为这些电子邮件在 DestFolder 中也可用。
一两天后出现此问题，然后该过程开始按应有的方式运行。我在 2023 年 2 月开始遇到这个问题 2-3 天之后，电子邮件正在处理，就好像问题从未发生过一样。
这个过程已经运行了几年，每年都会出现一次故障。
什么会导致 .Move 中出现这种问题
添加了一些额外的代码以跳过阅读电子邮件。